From 329cdc31b3c78d53c1f08ae419436900654b71b7 Mon Sep 17 00:00:00 2001 From: martin-frbg Date: Thu, 21 Apr 2022 20:39:29 +0200 Subject: [PATCH 01/10] Update LAPACK/LAPACKE to Reference-LAPACK 3.10.1 --- cmake/lapack.cmake | 28 +- exports/gensymbol | 22 + lapack-netlib/INSTALL/Makefile | 2 + lapack-netlib/INSTALL/droundup_lwork.f | 86 + lapack-netlib/INSTALL/sroundup_lwork.f | 86 + lapack-netlib/LAPACKE/include/CMakeLists.txt | 6 +- lapack-netlib/LAPACKE/include/lapack.h | 15328 ++++++++++++---- lapack-netlib/LAPACKE/include/lapacke.h | 1 - .../LAPACKE/include/lapacke_config.h | 8 - lapack-netlib/LAPACKE/include/lapacke_utils.h | 1 - lapack-netlib/LAPACKE/src/CMakeLists.txt | 16 + lapack-netlib/LAPACKE/src/lapacke_cbbcsd.c | 1 - .../LAPACKE/src/lapacke_cbbcsd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cbdsqr.c | 1 - .../LAPACKE/src/lapacke_cbdsqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgbbrd.c | 1 - .../LAPACKE/src/lapacke_cgbbrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgbcon.c | 1 - .../LAPACKE/src/lapacke_cgbcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgbequ.c | 1 - .../LAPACKE/src/lapacke_cgbequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgbequb.c | 1 - .../LAPACKE/src/lapacke_cgbequb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgbrfs.c | 1 - .../LAPACKE/src/lapacke_cgbrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgbrfsx.c | 1 - .../LAPACKE/src/lapacke_cgbrfsx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgbsv.c | 1 - .../LAPACKE/src/lapacke_cgbsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgbsvx.c | 1 - .../LAPACKE/src/lapacke_cgbsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgbsvxx.c | 1 - .../LAPACKE/src/lapacke_cgbsvxx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgbtrf.c | 1 - .../LAPACKE/src/lapacke_cgbtrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgbtrs.c | 1 - .../LAPACKE/src/lapacke_cgbtrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgebak.c | 1 - .../LAPACKE/src/lapacke_cgebak_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgebal.c | 1 - .../LAPACKE/src/lapacke_cgebal_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgebrd.c | 1 - .../LAPACKE/src/lapacke_cgebrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgecon.c | 1 - .../LAPACKE/src/lapacke_cgecon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgeequ.c | 1 - .../LAPACKE/src/lapacke_cgeequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgeequb.c | 1 - .../LAPACKE/src/lapacke_cgeequb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgees.c | 1 - .../LAPACKE/src/lapacke_cgees_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgeesx.c | 1 - .../LAPACKE/src/lapacke_cgeesx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgeev.c | 1 - .../LAPACKE/src/lapacke_cgeev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgeevx.c | 1 - .../LAPACKE/src/lapacke_cgeevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgehrd.c | 1 - .../LAPACKE/src/lapacke_cgehrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgejsv.c | 1 - .../LAPACKE/src/lapacke_cgejsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgelq.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgelq2.c | 1 - .../LAPACKE/src/lapacke_cgelq2_work.c | 1 - .../LAPACKE/src/lapacke_cgelq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgelqf.c | 1 - .../LAPACKE/src/lapacke_cgelqf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgels.c | 1 - .../LAPACKE/src/lapacke_cgels_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgelsd.c | 1 - .../LAPACKE/src/lapacke_cgelsd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgelss.c | 1 - .../LAPACKE/src/lapacke_cgelss_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgelsy.c | 1 - .../LAPACKE/src/lapacke_cgelsy_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgemlq.c | 1 - .../LAPACKE/src/lapacke_cgemlq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgemqr.c | 1 - .../LAPACKE/src/lapacke_cgemqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgemqrt.c | 1 - .../LAPACKE/src/lapacke_cgemqrt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgeqlf.c | 1 - .../LAPACKE/src/lapacke_cgeqlf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgeqp3.c | 1 - .../LAPACKE/src/lapacke_cgeqp3_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgeqpf.c | 1 - .../LAPACKE/src/lapacke_cgeqpf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgeqr.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgeqr2.c | 1 - .../LAPACKE/src/lapacke_cgeqr2_work.c | 1 - .../LAPACKE/src/lapacke_cgeqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgeqrf.c | 1 - .../LAPACKE/src/lapacke_cgeqrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgeqrfp.c | 1 - .../LAPACKE/src/lapacke_cgeqrfp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgeqrt.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgeqrt2.c | 1 - .../LAPACKE/src/lapacke_cgeqrt2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgeqrt3.c | 1 - .../LAPACKE/src/lapacke_cgeqrt3_work.c | 1 - .../LAPACKE/src/lapacke_cgeqrt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgerfs.c | 1 - .../LAPACKE/src/lapacke_cgerfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgerfsx.c | 1 - .../LAPACKE/src/lapacke_cgerfsx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgerqf.c | 1 - .../LAPACKE/src/lapacke_cgerqf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgesdd.c | 1 - .../LAPACKE/src/lapacke_cgesdd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgesv.c | 1 - .../LAPACKE/src/lapacke_cgesv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgesvd.c | 1 - .../LAPACKE/src/lapacke_cgesvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgesvdq.c | 1 - .../LAPACKE/src/lapacke_cgesvdq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgesvdx.c | 1 - .../LAPACKE/src/lapacke_cgesvdx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgesvj.c | 1 - .../LAPACKE/src/lapacke_cgesvj_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgesvx.c | 1 - .../LAPACKE/src/lapacke_cgesvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgesvxx.c | 1 - .../LAPACKE/src/lapacke_cgesvxx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgetf2.c | 1 - .../LAPACKE/src/lapacke_cgetf2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgetrf.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgetrf2.c | 1 - .../LAPACKE/src/lapacke_cgetrf2_work.c | 1 - .../LAPACKE/src/lapacke_cgetrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgetri.c | 1 - .../LAPACKE/src/lapacke_cgetri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgetrs.c | 1 - .../LAPACKE/src/lapacke_cgetrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgetsls.c | 1 - .../LAPACKE/src/lapacke_cgetsls_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cggbak.c | 1 - .../LAPACKE/src/lapacke_cggbak_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cggbal.c | 1 - .../LAPACKE/src/lapacke_cggbal_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgges.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgges3.c | 1 - .../LAPACKE/src/lapacke_cgges3_work.c | 1 - .../LAPACKE/src/lapacke_cgges_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cggesx.c | 1 - .../LAPACKE/src/lapacke_cggesx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cggev.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cggev3.c | 1 - .../LAPACKE/src/lapacke_cggev3_work.c | 1 - .../LAPACKE/src/lapacke_cggev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cggevx.c | 1 - .../LAPACKE/src/lapacke_cggevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cggglm.c | 1 - .../LAPACKE/src/lapacke_cggglm_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgghd3.c | 1 - .../LAPACKE/src/lapacke_cgghd3_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgghrd.c | 1 - .../LAPACKE/src/lapacke_cgghrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgglse.c | 1 - .../LAPACKE/src/lapacke_cgglse_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cggqrf.c | 1 - .../LAPACKE/src/lapacke_cggqrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cggrqf.c | 1 - .../LAPACKE/src/lapacke_cggrqf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cggsvd.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cggsvd3.c | 1 - .../LAPACKE/src/lapacke_cggsvd3_work.c | 1 - .../LAPACKE/src/lapacke_cggsvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cggsvp.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cggsvp3.c | 1 - .../LAPACKE/src/lapacke_cggsvp3_work.c | 1 - .../LAPACKE/src/lapacke_cggsvp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgtcon.c | 1 - .../LAPACKE/src/lapacke_cgtcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgtrfs.c | 1 - .../LAPACKE/src/lapacke_cgtrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgtsv.c | 1 - .../LAPACKE/src/lapacke_cgtsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgtsvx.c | 1 - .../LAPACKE/src/lapacke_cgtsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgttrf.c | 1 - .../LAPACKE/src/lapacke_cgttrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cgttrs.c | 1 - .../LAPACKE/src/lapacke_cgttrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chbev.c | 1 - .../LAPACKE/src/lapacke_chbev_2stage.c | 1 - .../LAPACKE/src/lapacke_chbev_2stage_work.c | 1 - .../LAPACKE/src/lapacke_chbev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chbevd.c | 1 - .../LAPACKE/src/lapacke_chbevd_2stage.c | 1 - .../LAPACKE/src/lapacke_chbevd_2stage_work.c | 1 - .../LAPACKE/src/lapacke_chbevd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chbevx.c | 1 - .../LAPACKE/src/lapacke_chbevx_2stage.c | 1 - .../LAPACKE/src/lapacke_chbevx_2stage_work.c | 1 - .../LAPACKE/src/lapacke_chbevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chbgst.c | 1 - .../LAPACKE/src/lapacke_chbgst_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chbgv.c | 1 - .../LAPACKE/src/lapacke_chbgv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chbgvd.c | 1 - .../LAPACKE/src/lapacke_chbgvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chbgvx.c | 1 - .../LAPACKE/src/lapacke_chbgvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chbtrd.c | 1 - .../LAPACKE/src/lapacke_chbtrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_checon.c | 1 - lapack-netlib/LAPACKE/src/lapacke_checon_3.c | 1 - .../LAPACKE/src/lapacke_checon_3_work.c | 1 - .../LAPACKE/src/lapacke_checon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cheequb.c | 1 - .../LAPACKE/src/lapacke_cheequb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cheev.c | 1 - .../LAPACKE/src/lapacke_cheev_2stage.c | 1 - .../LAPACKE/src/lapacke_cheev_2stage_work.c | 1 - .../LAPACKE/src/lapacke_cheev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cheevd.c | 1 - .../LAPACKE/src/lapacke_cheevd_2stage.c | 1 - .../LAPACKE/src/lapacke_cheevd_2stage_work.c | 1 - .../LAPACKE/src/lapacke_cheevd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cheevr.c | 1 - .../LAPACKE/src/lapacke_cheevr_2stage.c | 1 - .../LAPACKE/src/lapacke_cheevr_2stage_work.c | 1 - .../LAPACKE/src/lapacke_cheevr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cheevx.c | 1 - .../LAPACKE/src/lapacke_cheevx_2stage.c | 1 - .../LAPACKE/src/lapacke_cheevx_2stage_work.c | 1 - .../LAPACKE/src/lapacke_cheevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chegst.c | 3 +- .../LAPACKE/src/lapacke_chegst_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chegv.c | 1 - .../LAPACKE/src/lapacke_chegv_2stage.c | 1 - .../LAPACKE/src/lapacke_chegv_2stage_work.c | 1 - .../LAPACKE/src/lapacke_chegv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chegvd.c | 1 - .../LAPACKE/src/lapacke_chegvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chegvx.c | 1 - .../LAPACKE/src/lapacke_chegvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cherfs.c | 1 - .../LAPACKE/src/lapacke_cherfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cherfsx.c | 1 - .../LAPACKE/src/lapacke_cherfsx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chesv.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chesv_aa.c | 1 - .../LAPACKE/src/lapacke_chesv_aa_2stage.c | 1 - .../src/lapacke_chesv_aa_2stage_work.c | 1 - .../LAPACKE/src/lapacke_chesv_aa_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chesv_rk.c | 1 - .../LAPACKE/src/lapacke_chesv_rk_work.c | 1 - .../LAPACKE/src/lapacke_chesv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chesvx.c | 1 - .../LAPACKE/src/lapacke_chesvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chesvxx.c | 1 - .../LAPACKE/src/lapacke_chesvxx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cheswapr.c | 1 - .../LAPACKE/src/lapacke_cheswapr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chetrd.c | 1 - .../LAPACKE/src/lapacke_chetrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chetrf.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chetrf_aa.c | 1 - .../LAPACKE/src/lapacke_chetrf_aa_2stage.c | 1 - .../src/lapacke_chetrf_aa_2stage_work.c | 1 - .../LAPACKE/src/lapacke_chetrf_aa_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chetrf_rk.c | 1 - .../LAPACKE/src/lapacke_chetrf_rk_work.c | 1 - .../LAPACKE/src/lapacke_chetrf_rook.c | 1 - .../LAPACKE/src/lapacke_chetrf_rook_work.c | 1 - .../LAPACKE/src/lapacke_chetrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chetri.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chetri2.c | 1 - .../LAPACKE/src/lapacke_chetri2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chetri2x.c | 1 - .../LAPACKE/src/lapacke_chetri2x_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chetri_3.c | 1 - .../LAPACKE/src/lapacke_chetri_3_work.c | 1 - .../LAPACKE/src/lapacke_chetri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chetrs.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chetrs2.c | 1 - .../LAPACKE/src/lapacke_chetrs2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chetrs_3.c | 1 - .../LAPACKE/src/lapacke_chetrs_3_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chetrs_aa.c | 1 - .../LAPACKE/src/lapacke_chetrs_aa_2stage.c | 1 - .../src/lapacke_chetrs_aa_2stage_work.c | 1 - .../LAPACKE/src/lapacke_chetrs_aa_work.c | 1 - .../LAPACKE/src/lapacke_chetrs_rook.c | 1 - .../LAPACKE/src/lapacke_chetrs_rook_work.c | 1 - .../LAPACKE/src/lapacke_chetrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chfrk.c | 1 - .../LAPACKE/src/lapacke_chfrk_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chgeqz.c | 1 - .../LAPACKE/src/lapacke_chgeqz_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chpcon.c | 1 - .../LAPACKE/src/lapacke_chpcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chpev.c | 1 - .../LAPACKE/src/lapacke_chpev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chpevd.c | 1 - .../LAPACKE/src/lapacke_chpevd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chpevx.c | 1 - .../LAPACKE/src/lapacke_chpevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chpgst.c | 1 - .../LAPACKE/src/lapacke_chpgst_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chpgv.c | 1 - .../LAPACKE/src/lapacke_chpgv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chpgvd.c | 1 - .../LAPACKE/src/lapacke_chpgvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chpgvx.c | 1 - .../LAPACKE/src/lapacke_chpgvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chprfs.c | 1 - .../LAPACKE/src/lapacke_chprfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chpsv.c | 1 - .../LAPACKE/src/lapacke_chpsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chpsvx.c | 1 - .../LAPACKE/src/lapacke_chpsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chptrd.c | 1 - .../LAPACKE/src/lapacke_chptrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chptrf.c | 1 - .../LAPACKE/src/lapacke_chptrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chptri.c | 1 - .../LAPACKE/src/lapacke_chptri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chptrs.c | 1 - .../LAPACKE/src/lapacke_chptrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chsein.c | 1 - .../LAPACKE/src/lapacke_chsein_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_chseqr.c | 1 - .../LAPACKE/src/lapacke_chseqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clacgv.c | 1 - .../LAPACKE/src/lapacke_clacgv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clacn2.c | 1 - .../LAPACKE/src/lapacke_clacn2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clacp2.c | 1 - .../LAPACKE/src/lapacke_clacp2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clacpy.c | 1 - .../LAPACKE/src/lapacke_clacpy_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clacrm.c | 1 - .../LAPACKE/src/lapacke_clacrm_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clag2z.c | 1 - .../LAPACKE/src/lapacke_clag2z_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clagge.c | 1 - .../LAPACKE/src/lapacke_clagge_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_claghe.c | 1 - .../LAPACKE/src/lapacke_claghe_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clagsy.c | 1 - .../LAPACKE/src/lapacke_clagsy_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clange.c | 1 - .../LAPACKE/src/lapacke_clange_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clanhe.c | 1 - .../LAPACKE/src/lapacke_clanhe_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clansy.c | 1 - .../LAPACKE/src/lapacke_clansy_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clantr.c | 1 - .../LAPACKE/src/lapacke_clantr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clapmr.c | 1 - .../LAPACKE/src/lapacke_clapmr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clapmt.c | 1 - .../LAPACKE/src/lapacke_clapmt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clarcm.c | 1 - .../LAPACKE/src/lapacke_clarcm_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clarfb.c | 1 - .../LAPACKE/src/lapacke_clarfb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clarfg.c | 1 - .../LAPACKE/src/lapacke_clarfg_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clarft.c | 1 - .../LAPACKE/src/lapacke_clarft_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clarfx.c | 1 - .../LAPACKE/src/lapacke_clarfx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clarnv.c | 1 - .../LAPACKE/src/lapacke_clarnv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clascl.c | 1 - .../LAPACKE/src/lapacke_clascl_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_claset.c | 1 - .../LAPACKE/src/lapacke_claset_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_classq.c | 1 - .../LAPACKE/src/lapacke_classq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_claswp.c | 1 - .../LAPACKE/src/lapacke_claswp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clatms.c | 1 - .../LAPACKE/src/lapacke_clatms_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_clauum.c | 1 - .../LAPACKE/src/lapacke_clauum_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpbcon.c | 1 - .../LAPACKE/src/lapacke_cpbcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpbequ.c | 1 - .../LAPACKE/src/lapacke_cpbequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpbrfs.c | 1 - .../LAPACKE/src/lapacke_cpbrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpbstf.c | 1 - .../LAPACKE/src/lapacke_cpbstf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpbsv.c | 1 - .../LAPACKE/src/lapacke_cpbsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpbsvx.c | 1 - .../LAPACKE/src/lapacke_cpbsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpbtrf.c | 1 - .../LAPACKE/src/lapacke_cpbtrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpbtrs.c | 1 - .../LAPACKE/src/lapacke_cpbtrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpftrf.c | 1 - .../LAPACKE/src/lapacke_cpftrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpftri.c | 1 - .../LAPACKE/src/lapacke_cpftri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpftrs.c | 1 - .../LAPACKE/src/lapacke_cpftrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpocon.c | 1 - .../LAPACKE/src/lapacke_cpocon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpoequ.c | 1 - .../LAPACKE/src/lapacke_cpoequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpoequb.c | 1 - .../LAPACKE/src/lapacke_cpoequb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cporfs.c | 1 - .../LAPACKE/src/lapacke_cporfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cporfsx.c | 1 - .../LAPACKE/src/lapacke_cporfsx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cposv.c | 1 - .../LAPACKE/src/lapacke_cposv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cposvx.c | 1 - .../LAPACKE/src/lapacke_cposvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cposvxx.c | 1 - .../LAPACKE/src/lapacke_cposvxx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpotrf.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpotrf2.c | 1 - .../LAPACKE/src/lapacke_cpotrf2_work.c | 1 - .../LAPACKE/src/lapacke_cpotrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpotri.c | 1 - .../LAPACKE/src/lapacke_cpotri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpotrs.c | 1 - .../LAPACKE/src/lapacke_cpotrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cppcon.c | 1 - .../LAPACKE/src/lapacke_cppcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cppequ.c | 1 - .../LAPACKE/src/lapacke_cppequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpprfs.c | 1 - .../LAPACKE/src/lapacke_cpprfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cppsv.c | 1 - .../LAPACKE/src/lapacke_cppsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cppsvx.c | 1 - .../LAPACKE/src/lapacke_cppsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpptrf.c | 1 - .../LAPACKE/src/lapacke_cpptrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpptri.c | 1 - .../LAPACKE/src/lapacke_cpptri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpptrs.c | 1 - .../LAPACKE/src/lapacke_cpptrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpstrf.c | 1 - .../LAPACKE/src/lapacke_cpstrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cptcon.c | 1 - .../LAPACKE/src/lapacke_cptcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpteqr.c | 1 - .../LAPACKE/src/lapacke_cpteqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cptrfs.c | 1 - .../LAPACKE/src/lapacke_cptrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cptsv.c | 1 - .../LAPACKE/src/lapacke_cptsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cptsvx.c | 1 - .../LAPACKE/src/lapacke_cptsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpttrf.c | 1 - .../LAPACKE/src/lapacke_cpttrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cpttrs.c | 1 - .../LAPACKE/src/lapacke_cpttrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cspcon.c | 1 - .../LAPACKE/src/lapacke_cspcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csprfs.c | 1 - .../LAPACKE/src/lapacke_csprfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cspsv.c | 1 - .../LAPACKE/src/lapacke_cspsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cspsvx.c | 1 - .../LAPACKE/src/lapacke_cspsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csptrf.c | 1 - .../LAPACKE/src/lapacke_csptrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csptri.c | 1 - .../LAPACKE/src/lapacke_csptri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csptrs.c | 1 - .../LAPACKE/src/lapacke_csptrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cstedc.c | 1 - .../LAPACKE/src/lapacke_cstedc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cstegr.c | 1 - .../LAPACKE/src/lapacke_cstegr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cstein.c | 1 - .../LAPACKE/src/lapacke_cstein_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cstemr.c | 1 - .../LAPACKE/src/lapacke_cstemr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csteqr.c | 1 - .../LAPACKE/src/lapacke_csteqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csycon.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csycon_3.c | 1 - .../LAPACKE/src/lapacke_csycon_3_work.c | 1 - .../LAPACKE/src/lapacke_csycon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csyconv.c | 1 - .../LAPACKE/src/lapacke_csyconv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csyequb.c | 1 - .../LAPACKE/src/lapacke_csyequb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csyr.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csyr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csyrfs.c | 1 - .../LAPACKE/src/lapacke_csyrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csyrfsx.c | 1 - .../LAPACKE/src/lapacke_csyrfsx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csysv.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csysv_aa.c | 1 - .../LAPACKE/src/lapacke_csysv_aa_2stage.c | 1 - .../src/lapacke_csysv_aa_2stage_work.c | 1 - .../LAPACKE/src/lapacke_csysv_aa_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csysv_rk.c | 1 - .../LAPACKE/src/lapacke_csysv_rk_work.c | 1 - .../LAPACKE/src/lapacke_csysv_rook.c | 1 - .../LAPACKE/src/lapacke_csysv_rook_work.c | 1 - .../LAPACKE/src/lapacke_csysv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csysvx.c | 1 - .../LAPACKE/src/lapacke_csysvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csysvxx.c | 1 - .../LAPACKE/src/lapacke_csysvxx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csyswapr.c | 1 - .../LAPACKE/src/lapacke_csyswapr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csytrf.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csytrf_aa.c | 1 - .../LAPACKE/src/lapacke_csytrf_aa_2stage.c | 1 - .../src/lapacke_csytrf_aa_2stage_work.c | 1 - .../LAPACKE/src/lapacke_csytrf_aa_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csytrf_rk.c | 1 - .../LAPACKE/src/lapacke_csytrf_rk_work.c | 1 - .../LAPACKE/src/lapacke_csytrf_rook.c | 1 - .../LAPACKE/src/lapacke_csytrf_rook_work.c | 1 - .../LAPACKE/src/lapacke_csytrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csytri.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csytri2.c | 1 - .../LAPACKE/src/lapacke_csytri2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csytri2x.c | 1 - .../LAPACKE/src/lapacke_csytri2x_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csytri_3.c | 1 - .../LAPACKE/src/lapacke_csytri_3_work.c | 1 - .../LAPACKE/src/lapacke_csytri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csytrs.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csytrs2.c | 1 - .../LAPACKE/src/lapacke_csytrs2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csytrs_3.c | 1 - .../LAPACKE/src/lapacke_csytrs_3_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_csytrs_aa.c | 1 - .../LAPACKE/src/lapacke_csytrs_aa_2stage.c | 1 - .../src/lapacke_csytrs_aa_2stage_work.c | 1 - .../LAPACKE/src/lapacke_csytrs_aa_work.c | 1 - .../LAPACKE/src/lapacke_csytrs_rook.c | 1 - .../LAPACKE/src/lapacke_csytrs_rook_work.c | 1 - .../LAPACKE/src/lapacke_csytrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctbcon.c | 1 - .../LAPACKE/src/lapacke_ctbcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctbrfs.c | 1 - .../LAPACKE/src/lapacke_ctbrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctbtrs.c | 1 - .../LAPACKE/src/lapacke_ctbtrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctfsm.c | 1 - .../LAPACKE/src/lapacke_ctfsm_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctftri.c | 1 - .../LAPACKE/src/lapacke_ctftri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctfttp.c | 1 - .../LAPACKE/src/lapacke_ctfttp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctfttr.c | 1 - .../LAPACKE/src/lapacke_ctfttr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctgevc.c | 1 - .../LAPACKE/src/lapacke_ctgevc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctgexc.c | 1 - .../LAPACKE/src/lapacke_ctgexc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctgsen.c | 1 - .../LAPACKE/src/lapacke_ctgsen_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctgsja.c | 1 - .../LAPACKE/src/lapacke_ctgsja_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctgsna.c | 1 - .../LAPACKE/src/lapacke_ctgsna_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctgsyl.c | 1 - .../LAPACKE/src/lapacke_ctgsyl_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctpcon.c | 1 - .../LAPACKE/src/lapacke_ctpcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctpmqrt.c | 1 - .../LAPACKE/src/lapacke_ctpmqrt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctpqrt.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctpqrt2.c | 1 - .../LAPACKE/src/lapacke_ctpqrt2_work.c | 1 - .../LAPACKE/src/lapacke_ctpqrt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctprfb.c | 1 - .../LAPACKE/src/lapacke_ctprfb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctprfs.c | 1 - .../LAPACKE/src/lapacke_ctprfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctptri.c | 1 - .../LAPACKE/src/lapacke_ctptri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctptrs.c | 1 - .../LAPACKE/src/lapacke_ctptrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctpttf.c | 1 - .../LAPACKE/src/lapacke_ctpttf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctpttr.c | 1 - .../LAPACKE/src/lapacke_ctpttr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctrcon.c | 1 - .../LAPACKE/src/lapacke_ctrcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctrevc.c | 1 - .../LAPACKE/src/lapacke_ctrevc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctrexc.c | 1 - .../LAPACKE/src/lapacke_ctrexc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctrrfs.c | 1 - .../LAPACKE/src/lapacke_ctrrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctrsen.c | 1 - .../LAPACKE/src/lapacke_ctrsen_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctrsna.c | 1 - .../LAPACKE/src/lapacke_ctrsna_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctrsyl.c | 1 - .../LAPACKE/src/lapacke_ctrsyl_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctrtri.c | 1 - .../LAPACKE/src/lapacke_ctrtri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctrtrs.c | 1 - .../LAPACKE/src/lapacke_ctrtrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctrttf.c | 1 - .../LAPACKE/src/lapacke_ctrttf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctrttp.c | 1 - .../LAPACKE/src/lapacke_ctrttp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ctzrzf.c | 1 - .../LAPACKE/src/lapacke_ctzrzf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cunbdb.c | 1 - .../LAPACKE/src/lapacke_cunbdb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cuncsd.c | 1 - .../LAPACKE/src/lapacke_cuncsd2by1.c | 1 - .../LAPACKE/src/lapacke_cuncsd2by1_work.c | 1 - .../LAPACKE/src/lapacke_cuncsd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cungbr.c | 1 - .../LAPACKE/src/lapacke_cungbr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cunghr.c | 1 - .../LAPACKE/src/lapacke_cunghr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cunglq.c | 1 - .../LAPACKE/src/lapacke_cunglq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cungql.c | 1 - .../LAPACKE/src/lapacke_cungql_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cungqr.c | 1 - .../LAPACKE/src/lapacke_cungqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cungrq.c | 1 - .../LAPACKE/src/lapacke_cungrq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cungtr.c | 1 - .../LAPACKE/src/lapacke_cungtr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cunmbr.c | 1 - .../LAPACKE/src/lapacke_cunmbr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cunmhr.c | 1 - .../LAPACKE/src/lapacke_cunmhr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cunmlq.c | 1 - .../LAPACKE/src/lapacke_cunmlq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cunmql.c | 1 - .../LAPACKE/src/lapacke_cunmql_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cunmqr.c | 1 - .../LAPACKE/src/lapacke_cunmqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cunmrq.c | 1 - .../LAPACKE/src/lapacke_cunmrq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cunmrz.c | 1 - .../LAPACKE/src/lapacke_cunmrz_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cunmtr.c | 1 - .../LAPACKE/src/lapacke_cunmtr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cupgtr.c | 1 - .../LAPACKE/src/lapacke_cupgtr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_cupmtr.c | 1 - .../LAPACKE/src/lapacke_cupmtr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dbbcsd.c | 1 - .../LAPACKE/src/lapacke_dbbcsd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dbdsdc.c | 1 - .../LAPACKE/src/lapacke_dbdsdc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dbdsqr.c | 1 - .../LAPACKE/src/lapacke_dbdsqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dbdsvdx.c | 1 - .../LAPACKE/src/lapacke_dbdsvdx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ddisna.c | 1 - .../LAPACKE/src/lapacke_ddisna_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgbbrd.c | 1 - .../LAPACKE/src/lapacke_dgbbrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgbcon.c | 1 - .../LAPACKE/src/lapacke_dgbcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgbequ.c | 1 - .../LAPACKE/src/lapacke_dgbequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgbequb.c | 1 - .../LAPACKE/src/lapacke_dgbequb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgbrfs.c | 1 - .../LAPACKE/src/lapacke_dgbrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgbrfsx.c | 1 - .../LAPACKE/src/lapacke_dgbrfsx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgbsv.c | 1 - .../LAPACKE/src/lapacke_dgbsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgbsvx.c | 1 - .../LAPACKE/src/lapacke_dgbsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgbsvxx.c | 1 - .../LAPACKE/src/lapacke_dgbsvxx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgbtrf.c | 1 - .../LAPACKE/src/lapacke_dgbtrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgbtrs.c | 1 - .../LAPACKE/src/lapacke_dgbtrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgebak.c | 1 - .../LAPACKE/src/lapacke_dgebak_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgebal.c | 1 - .../LAPACKE/src/lapacke_dgebal_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgebrd.c | 1 - .../LAPACKE/src/lapacke_dgebrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgecon.c | 1 - .../LAPACKE/src/lapacke_dgecon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgeequ.c | 1 - .../LAPACKE/src/lapacke_dgeequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgeequb.c | 1 - .../LAPACKE/src/lapacke_dgeequb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgees.c | 1 - .../LAPACKE/src/lapacke_dgees_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgeesx.c | 1 - .../LAPACKE/src/lapacke_dgeesx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgeev.c | 1 - .../LAPACKE/src/lapacke_dgeev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgeevx.c | 1 - .../LAPACKE/src/lapacke_dgeevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgehrd.c | 1 - .../LAPACKE/src/lapacke_dgehrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgejsv.c | 1 - .../LAPACKE/src/lapacke_dgejsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgelq.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgelq2.c | 1 - .../LAPACKE/src/lapacke_dgelq2_work.c | 1 - .../LAPACKE/src/lapacke_dgelq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgelqf.c | 1 - .../LAPACKE/src/lapacke_dgelqf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgels.c | 1 - .../LAPACKE/src/lapacke_dgels_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgelsd.c | 1 - .../LAPACKE/src/lapacke_dgelsd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgelss.c | 1 - .../LAPACKE/src/lapacke_dgelss_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgelsy.c | 1 - .../LAPACKE/src/lapacke_dgelsy_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgemlq.c | 1 - .../LAPACKE/src/lapacke_dgemlq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgemqr.c | 1 - .../LAPACKE/src/lapacke_dgemqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgemqrt.c | 1 - .../LAPACKE/src/lapacke_dgemqrt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgeqlf.c | 1 - .../LAPACKE/src/lapacke_dgeqlf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgeqp3.c | 1 - .../LAPACKE/src/lapacke_dgeqp3_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgeqpf.c | 1 - .../LAPACKE/src/lapacke_dgeqpf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgeqr.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgeqr2.c | 1 - .../LAPACKE/src/lapacke_dgeqr2_work.c | 1 - .../LAPACKE/src/lapacke_dgeqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgeqrf.c | 1 - .../LAPACKE/src/lapacke_dgeqrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgeqrfp.c | 1 - .../LAPACKE/src/lapacke_dgeqrfp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgeqrt.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgeqrt2.c | 1 - .../LAPACKE/src/lapacke_dgeqrt2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgeqrt3.c | 1 - .../LAPACKE/src/lapacke_dgeqrt3_work.c | 1 - .../LAPACKE/src/lapacke_dgeqrt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgerfs.c | 1 - .../LAPACKE/src/lapacke_dgerfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgerfsx.c | 1 - .../LAPACKE/src/lapacke_dgerfsx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgerqf.c | 1 - .../LAPACKE/src/lapacke_dgerqf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgesdd.c | 1 - .../LAPACKE/src/lapacke_dgesdd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgesv.c | 1 - .../LAPACKE/src/lapacke_dgesv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgesvd.c | 1 - .../LAPACKE/src/lapacke_dgesvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgesvdq.c | 1 - .../LAPACKE/src/lapacke_dgesvdq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgesvdx.c | 1 - .../LAPACKE/src/lapacke_dgesvdx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgesvj.c | 1 - .../LAPACKE/src/lapacke_dgesvj_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgesvx.c | 1 - .../LAPACKE/src/lapacke_dgesvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgesvxx.c | 1 - .../LAPACKE/src/lapacke_dgesvxx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgetf2.c | 1 - .../LAPACKE/src/lapacke_dgetf2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgetrf.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgetrf2.c | 1 - .../LAPACKE/src/lapacke_dgetrf2_work.c | 1 - .../LAPACKE/src/lapacke_dgetrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgetri.c | 1 - .../LAPACKE/src/lapacke_dgetri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgetrs.c | 1 - .../LAPACKE/src/lapacke_dgetrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgetsls.c | 1 - .../LAPACKE/src/lapacke_dgetsls_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dggbak.c | 1 - .../LAPACKE/src/lapacke_dggbak_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dggbal.c | 1 - .../LAPACKE/src/lapacke_dggbal_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgges.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgges3.c | 1 - .../LAPACKE/src/lapacke_dgges3_work.c | 1 - .../LAPACKE/src/lapacke_dgges_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dggesx.c | 1 - .../LAPACKE/src/lapacke_dggesx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dggev.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dggev3.c | 1 - .../LAPACKE/src/lapacke_dggev3_work.c | 1 - .../LAPACKE/src/lapacke_dggev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dggevx.c | 1 - .../LAPACKE/src/lapacke_dggevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dggglm.c | 1 - .../LAPACKE/src/lapacke_dggglm_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgghd3.c | 1 - .../LAPACKE/src/lapacke_dgghd3_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgghrd.c | 1 - .../LAPACKE/src/lapacke_dgghrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgglse.c | 1 - .../LAPACKE/src/lapacke_dgglse_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dggqrf.c | 1 - .../LAPACKE/src/lapacke_dggqrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dggrqf.c | 1 - .../LAPACKE/src/lapacke_dggrqf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dggsvd.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dggsvd3.c | 1 - .../LAPACKE/src/lapacke_dggsvd3_work.c | 1 - .../LAPACKE/src/lapacke_dggsvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dggsvp.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dggsvp3.c | 1 - .../LAPACKE/src/lapacke_dggsvp3_work.c | 1 - .../LAPACKE/src/lapacke_dggsvp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgtcon.c | 1 - .../LAPACKE/src/lapacke_dgtcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgtrfs.c | 1 - .../LAPACKE/src/lapacke_dgtrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgtsv.c | 1 - .../LAPACKE/src/lapacke_dgtsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgtsvx.c | 1 - .../LAPACKE/src/lapacke_dgtsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgttrf.c | 1 - .../LAPACKE/src/lapacke_dgttrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dgttrs.c | 1 - .../LAPACKE/src/lapacke_dgttrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dhgeqz.c | 1 - .../LAPACKE/src/lapacke_dhgeqz_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dhsein.c | 1 - .../LAPACKE/src/lapacke_dhsein_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dhseqr.c | 1 - .../LAPACKE/src/lapacke_dhseqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlacn2.c | 1 - .../LAPACKE/src/lapacke_dlacn2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlacpy.c | 1 - .../LAPACKE/src/lapacke_dlacpy_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlag2s.c | 1 - .../LAPACKE/src/lapacke_dlag2s_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlagge.c | 1 - .../LAPACKE/src/lapacke_dlagge_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlagsy.c | 1 - .../LAPACKE/src/lapacke_dlagsy_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlamch.c | 1 - .../LAPACKE/src/lapacke_dlamch_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlange.c | 1 - .../LAPACKE/src/lapacke_dlange_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlansy.c | 1 - .../LAPACKE/src/lapacke_dlansy_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlantr.c | 1 - .../LAPACKE/src/lapacke_dlantr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlapmr.c | 1 - .../LAPACKE/src/lapacke_dlapmr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlapmt.c | 1 - .../LAPACKE/src/lapacke_dlapmt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlapy2.c | 1 - .../LAPACKE/src/lapacke_dlapy2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlapy3.c | 1 - .../LAPACKE/src/lapacke_dlapy3_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlarfb.c | 1 - .../LAPACKE/src/lapacke_dlarfb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlarfg.c | 1 - .../LAPACKE/src/lapacke_dlarfg_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlarft.c | 1 - .../LAPACKE/src/lapacke_dlarft_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlarfx.c | 1 - .../LAPACKE/src/lapacke_dlarfx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlarnv.c | 1 - .../LAPACKE/src/lapacke_dlarnv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlartgp.c | 1 - .../LAPACKE/src/lapacke_dlartgp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlartgs.c | 1 - .../LAPACKE/src/lapacke_dlartgs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlascl.c | 1 - .../LAPACKE/src/lapacke_dlascl_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlaset.c | 1 - .../LAPACKE/src/lapacke_dlaset_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlasrt.c | 1 - .../LAPACKE/src/lapacke_dlasrt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlassq.c | 1 - .../LAPACKE/src/lapacke_dlassq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlaswp.c | 1 - .../LAPACKE/src/lapacke_dlaswp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlatms.c | 1 - .../LAPACKE/src/lapacke_dlatms_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dlauum.c | 1 - .../LAPACKE/src/lapacke_dlauum_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dopgtr.c | 1 - .../LAPACKE/src/lapacke_dopgtr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dopmtr.c | 1 - .../LAPACKE/src/lapacke_dopmtr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dorbdb.c | 1 - .../LAPACKE/src/lapacke_dorbdb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dorcsd.c | 1 - .../LAPACKE/src/lapacke_dorcsd2by1.c | 1 - .../LAPACKE/src/lapacke_dorcsd2by1_work.c | 1 - .../LAPACKE/src/lapacke_dorcsd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dorgbr.c | 1 - .../LAPACKE/src/lapacke_dorgbr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dorghr.c | 1 - .../LAPACKE/src/lapacke_dorghr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dorglq.c | 1 - .../LAPACKE/src/lapacke_dorglq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dorgql.c | 1 - .../LAPACKE/src/lapacke_dorgql_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dorgqr.c | 1 - .../LAPACKE/src/lapacke_dorgqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dorgrq.c | 1 - .../LAPACKE/src/lapacke_dorgrq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dorgtr.c | 1 - .../LAPACKE/src/lapacke_dorgtr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dormbr.c | 1 - .../LAPACKE/src/lapacke_dormbr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dormhr.c | 1 - .../LAPACKE/src/lapacke_dormhr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dormlq.c | 1 - .../LAPACKE/src/lapacke_dormlq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dormql.c | 1 - .../LAPACKE/src/lapacke_dormql_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dormqr.c | 1 - .../LAPACKE/src/lapacke_dormqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dormrq.c | 1 - .../LAPACKE/src/lapacke_dormrq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dormrz.c | 1 - .../LAPACKE/src/lapacke_dormrz_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dormtr.c | 1 - .../LAPACKE/src/lapacke_dormtr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpbcon.c | 1 - .../LAPACKE/src/lapacke_dpbcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpbequ.c | 1 - .../LAPACKE/src/lapacke_dpbequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpbrfs.c | 1 - .../LAPACKE/src/lapacke_dpbrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpbstf.c | 1 - .../LAPACKE/src/lapacke_dpbstf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpbsv.c | 1 - .../LAPACKE/src/lapacke_dpbsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpbsvx.c | 1 - .../LAPACKE/src/lapacke_dpbsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpbtrf.c | 1 - .../LAPACKE/src/lapacke_dpbtrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpbtrs.c | 1 - .../LAPACKE/src/lapacke_dpbtrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpftrf.c | 1 - .../LAPACKE/src/lapacke_dpftrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpftri.c | 1 - .../LAPACKE/src/lapacke_dpftri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpftrs.c | 1 - .../LAPACKE/src/lapacke_dpftrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpocon.c | 1 - .../LAPACKE/src/lapacke_dpocon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpoequ.c | 1 - .../LAPACKE/src/lapacke_dpoequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpoequb.c | 1 - .../LAPACKE/src/lapacke_dpoequb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dporfs.c | 1 - .../LAPACKE/src/lapacke_dporfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dporfsx.c | 1 - .../LAPACKE/src/lapacke_dporfsx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dposv.c | 1 - .../LAPACKE/src/lapacke_dposv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dposvx.c | 1 - .../LAPACKE/src/lapacke_dposvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dposvxx.c | 1 - .../LAPACKE/src/lapacke_dposvxx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpotrf.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpotrf2.c | 1 - .../LAPACKE/src/lapacke_dpotrf2_work.c | 1 - .../LAPACKE/src/lapacke_dpotrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpotri.c | 1 - .../LAPACKE/src/lapacke_dpotri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpotrs.c | 1 - .../LAPACKE/src/lapacke_dpotrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dppcon.c | 1 - .../LAPACKE/src/lapacke_dppcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dppequ.c | 1 - .../LAPACKE/src/lapacke_dppequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpprfs.c | 1 - .../LAPACKE/src/lapacke_dpprfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dppsv.c | 1 - .../LAPACKE/src/lapacke_dppsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dppsvx.c | 1 - .../LAPACKE/src/lapacke_dppsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpptrf.c | 1 - .../LAPACKE/src/lapacke_dpptrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpptri.c | 1 - .../LAPACKE/src/lapacke_dpptri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpptrs.c | 1 - .../LAPACKE/src/lapacke_dpptrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpstrf.c | 1 - .../LAPACKE/src/lapacke_dpstrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dptcon.c | 1 - .../LAPACKE/src/lapacke_dptcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpteqr.c | 1 - .../LAPACKE/src/lapacke_dpteqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dptrfs.c | 1 - .../LAPACKE/src/lapacke_dptrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dptsv.c | 1 - .../LAPACKE/src/lapacke_dptsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dptsvx.c | 1 - .../LAPACKE/src/lapacke_dptsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpttrf.c | 1 - .../LAPACKE/src/lapacke_dpttrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dpttrs.c | 1 - .../LAPACKE/src/lapacke_dpttrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsbev.c | 1 - .../LAPACKE/src/lapacke_dsbev_2stage.c | 1 - .../LAPACKE/src/lapacke_dsbev_2stage_work.c | 1 - .../LAPACKE/src/lapacke_dsbev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsbevd.c | 1 - .../LAPACKE/src/lapacke_dsbevd_2stage.c | 1 - .../LAPACKE/src/lapacke_dsbevd_2stage_work.c | 1 - .../LAPACKE/src/lapacke_dsbevd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsbevx.c | 1 - .../LAPACKE/src/lapacke_dsbevx_2stage.c | 1 - .../LAPACKE/src/lapacke_dsbevx_2stage_work.c | 1 - .../LAPACKE/src/lapacke_dsbevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsbgst.c | 1 - .../LAPACKE/src/lapacke_dsbgst_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsbgv.c | 1 - .../LAPACKE/src/lapacke_dsbgv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsbgvd.c | 1 - .../LAPACKE/src/lapacke_dsbgvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsbgvx.c | 1 - .../LAPACKE/src/lapacke_dsbgvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsbtrd.c | 1 - .../LAPACKE/src/lapacke_dsbtrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsfrk.c | 1 - .../LAPACKE/src/lapacke_dsfrk_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsgesv.c | 1 - .../LAPACKE/src/lapacke_dsgesv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dspcon.c | 1 - .../LAPACKE/src/lapacke_dspcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dspev.c | 1 - .../LAPACKE/src/lapacke_dspev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dspevd.c | 1 - .../LAPACKE/src/lapacke_dspevd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dspevx.c | 1 - .../LAPACKE/src/lapacke_dspevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dspgst.c | 1 - .../LAPACKE/src/lapacke_dspgst_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dspgv.c | 1 - .../LAPACKE/src/lapacke_dspgv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dspgvd.c | 1 - .../LAPACKE/src/lapacke_dspgvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dspgvx.c | 1 - .../LAPACKE/src/lapacke_dspgvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsposv.c | 1 - .../LAPACKE/src/lapacke_dsposv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsprfs.c | 1 - .../LAPACKE/src/lapacke_dsprfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dspsv.c | 1 - .../LAPACKE/src/lapacke_dspsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dspsvx.c | 1 - .../LAPACKE/src/lapacke_dspsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsptrd.c | 1 - .../LAPACKE/src/lapacke_dsptrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsptrf.c | 1 - .../LAPACKE/src/lapacke_dsptrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsptri.c | 1 - .../LAPACKE/src/lapacke_dsptri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsptrs.c | 1 - .../LAPACKE/src/lapacke_dsptrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dstebz.c | 1 - .../LAPACKE/src/lapacke_dstebz_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dstedc.c | 1 - .../LAPACKE/src/lapacke_dstedc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dstegr.c | 1 - .../LAPACKE/src/lapacke_dstegr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dstein.c | 1 - .../LAPACKE/src/lapacke_dstein_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dstemr.c | 1 - .../LAPACKE/src/lapacke_dstemr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsteqr.c | 1 - .../LAPACKE/src/lapacke_dsteqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsterf.c | 1 - .../LAPACKE/src/lapacke_dsterf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dstev.c | 1 - .../LAPACKE/src/lapacke_dstev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dstevd.c | 1 - .../LAPACKE/src/lapacke_dstevd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dstevr.c | 1 - .../LAPACKE/src/lapacke_dstevr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dstevx.c | 1 - .../LAPACKE/src/lapacke_dstevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsycon.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsycon_3.c | 1 - .../LAPACKE/src/lapacke_dsycon_3_work.c | 1 - .../LAPACKE/src/lapacke_dsycon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsyconv.c | 1 - .../LAPACKE/src/lapacke_dsyconv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsyequb.c | 1 - .../LAPACKE/src/lapacke_dsyequb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsyev.c | 1 - .../LAPACKE/src/lapacke_dsyev_2stage.c | 1 - .../LAPACKE/src/lapacke_dsyev_2stage_work.c | 1 - .../LAPACKE/src/lapacke_dsyev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsyevd.c | 1 - .../LAPACKE/src/lapacke_dsyevd_2stage.c | 1 - .../LAPACKE/src/lapacke_dsyevd_2stage_work.c | 1 - .../LAPACKE/src/lapacke_dsyevd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsyevr.c | 1 - .../LAPACKE/src/lapacke_dsyevr_2stage.c | 1 - .../LAPACKE/src/lapacke_dsyevr_2stage_work.c | 1 - .../LAPACKE/src/lapacke_dsyevr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsyevx.c | 1 - .../LAPACKE/src/lapacke_dsyevx_2stage.c | 1 - .../LAPACKE/src/lapacke_dsyevx_2stage_work.c | 1 - .../LAPACKE/src/lapacke_dsyevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsygst.c | 1 - .../LAPACKE/src/lapacke_dsygst_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsygv.c | 1 - .../LAPACKE/src/lapacke_dsygv_2stage.c | 1 - .../LAPACKE/src/lapacke_dsygv_2stage_work.c | 1 - .../LAPACKE/src/lapacke_dsygv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsygvd.c | 1 - .../LAPACKE/src/lapacke_dsygvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsygvx.c | 1 - .../LAPACKE/src/lapacke_dsygvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsyrfs.c | 1 - .../LAPACKE/src/lapacke_dsyrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsyrfsx.c | 1 - .../LAPACKE/src/lapacke_dsyrfsx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsysv.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsysv_aa.c | 1 - .../LAPACKE/src/lapacke_dsysv_aa_2stage.c | 1 - .../src/lapacke_dsysv_aa_2stage_work.c | 1 - .../LAPACKE/src/lapacke_dsysv_aa_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsysv_rk.c | 1 - .../LAPACKE/src/lapacke_dsysv_rk_work.c | 1 - .../LAPACKE/src/lapacke_dsysv_rook.c | 1 - .../LAPACKE/src/lapacke_dsysv_rook_work.c | 1 - .../LAPACKE/src/lapacke_dsysv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsysvx.c | 1 - .../LAPACKE/src/lapacke_dsysvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsysvxx.c | 1 - .../LAPACKE/src/lapacke_dsysvxx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsyswapr.c | 1 - .../LAPACKE/src/lapacke_dsyswapr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsytrd.c | 1 - .../LAPACKE/src/lapacke_dsytrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsytrf.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa.c | 1 - .../LAPACKE/src/lapacke_dsytrf_aa_2stage.c | 1 - .../src/lapacke_dsytrf_aa_2stage_work.c | 1 - .../LAPACKE/src/lapacke_dsytrf_aa_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsytrf_rk.c | 1 - .../LAPACKE/src/lapacke_dsytrf_rk_work.c | 1 - .../LAPACKE/src/lapacke_dsytrf_rook.c | 1 - .../LAPACKE/src/lapacke_dsytrf_rook_work.c | 1 - .../LAPACKE/src/lapacke_dsytrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsytri.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsytri2.c | 1 - .../LAPACKE/src/lapacke_dsytri2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsytri2x.c | 1 - .../LAPACKE/src/lapacke_dsytri2x_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsytri_3.c | 1 - .../LAPACKE/src/lapacke_dsytri_3_work.c | 1 - .../LAPACKE/src/lapacke_dsytri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsytrs.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsytrs2.c | 1 - .../LAPACKE/src/lapacke_dsytrs2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsytrs_3.c | 1 - .../LAPACKE/src/lapacke_dsytrs_3_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa.c | 1 - .../LAPACKE/src/lapacke_dsytrs_aa_2stage.c | 1 - .../src/lapacke_dsytrs_aa_2stage_work.c | 1 - .../LAPACKE/src/lapacke_dsytrs_aa_work.c | 1 - .../LAPACKE/src/lapacke_dsytrs_rook.c | 1 - .../LAPACKE/src/lapacke_dsytrs_rook_work.c | 1 - .../LAPACKE/src/lapacke_dsytrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtbcon.c | 1 - .../LAPACKE/src/lapacke_dtbcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtbrfs.c | 1 - .../LAPACKE/src/lapacke_dtbrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtbtrs.c | 1 - .../LAPACKE/src/lapacke_dtbtrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtfsm.c | 1 - .../LAPACKE/src/lapacke_dtfsm_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtftri.c | 1 - .../LAPACKE/src/lapacke_dtftri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtfttp.c | 1 - .../LAPACKE/src/lapacke_dtfttp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtfttr.c | 1 - .../LAPACKE/src/lapacke_dtfttr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtgevc.c | 1 - .../LAPACKE/src/lapacke_dtgevc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtgexc.c | 1 - .../LAPACKE/src/lapacke_dtgexc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtgsen.c | 1 - .../LAPACKE/src/lapacke_dtgsen_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtgsja.c | 1 - .../LAPACKE/src/lapacke_dtgsja_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtgsna.c | 1 - .../LAPACKE/src/lapacke_dtgsna_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtgsyl.c | 1 - .../LAPACKE/src/lapacke_dtgsyl_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtpcon.c | 1 - .../LAPACKE/src/lapacke_dtpcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtpmqrt.c | 1 - .../LAPACKE/src/lapacke_dtpmqrt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtpqrt.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtpqrt2.c | 1 - .../LAPACKE/src/lapacke_dtpqrt2_work.c | 1 - .../LAPACKE/src/lapacke_dtpqrt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtprfb.c | 1 - .../LAPACKE/src/lapacke_dtprfb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtprfs.c | 1 - .../LAPACKE/src/lapacke_dtprfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtptri.c | 1 - .../LAPACKE/src/lapacke_dtptri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtptrs.c | 1 - .../LAPACKE/src/lapacke_dtptrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtpttf.c | 1 - .../LAPACKE/src/lapacke_dtpttf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtpttr.c | 1 - .../LAPACKE/src/lapacke_dtpttr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtrcon.c | 1 - .../LAPACKE/src/lapacke_dtrcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtrevc.c | 1 - .../LAPACKE/src/lapacke_dtrevc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtrexc.c | 1 - .../LAPACKE/src/lapacke_dtrexc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtrrfs.c | 1 - .../LAPACKE/src/lapacke_dtrrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtrsen.c | 1 - .../LAPACKE/src/lapacke_dtrsen_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtrsna.c | 1 - .../LAPACKE/src/lapacke_dtrsna_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtrsyl.c | 1 - .../LAPACKE/src/lapacke_dtrsyl_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtrtri.c | 1 - .../LAPACKE/src/lapacke_dtrtri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtrtrs.c | 1 - .../LAPACKE/src/lapacke_dtrtrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtrttf.c | 1 - .../LAPACKE/src/lapacke_dtrttf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtrttp.c | 1 - .../LAPACKE/src/lapacke_dtrttp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_dtzrzf.c | 1 - .../LAPACKE/src/lapacke_dtzrzf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ilaver.c | 1 - lapack-netlib/LAPACKE/src/lapacke_nancheck.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sbbcsd.c | 1 - .../LAPACKE/src/lapacke_sbbcsd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sbdsdc.c | 1 - .../LAPACKE/src/lapacke_sbdsdc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sbdsqr.c | 1 - .../LAPACKE/src/lapacke_sbdsqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sbdsvdx.c | 1 - .../LAPACKE/src/lapacke_sbdsvdx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sdisna.c | 1 - .../LAPACKE/src/lapacke_sdisna_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgbbrd.c | 1 - .../LAPACKE/src/lapacke_sgbbrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgbcon.c | 1 - .../LAPACKE/src/lapacke_sgbcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgbequ.c | 1 - .../LAPACKE/src/lapacke_sgbequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgbequb.c | 1 - .../LAPACKE/src/lapacke_sgbequb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgbrfs.c | 1 - .../LAPACKE/src/lapacke_sgbrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgbrfsx.c | 1 - .../LAPACKE/src/lapacke_sgbrfsx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgbsv.c | 1 - .../LAPACKE/src/lapacke_sgbsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgbsvx.c | 1 - .../LAPACKE/src/lapacke_sgbsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgbsvxx.c | 1 - .../LAPACKE/src/lapacke_sgbsvxx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgbtrf.c | 1 - .../LAPACKE/src/lapacke_sgbtrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgbtrs.c | 1 - .../LAPACKE/src/lapacke_sgbtrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgebak.c | 1 - .../LAPACKE/src/lapacke_sgebak_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgebal.c | 1 - .../LAPACKE/src/lapacke_sgebal_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgebrd.c | 1 - .../LAPACKE/src/lapacke_sgebrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgecon.c | 1 - .../LAPACKE/src/lapacke_sgecon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgeequ.c | 1 - .../LAPACKE/src/lapacke_sgeequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgeequb.c | 1 - .../LAPACKE/src/lapacke_sgeequb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgees.c | 1 - .../LAPACKE/src/lapacke_sgees_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgeesx.c | 1 - .../LAPACKE/src/lapacke_sgeesx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgeev.c | 1 - .../LAPACKE/src/lapacke_sgeev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgeevx.c | 1 - .../LAPACKE/src/lapacke_sgeevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgehrd.c | 1 - .../LAPACKE/src/lapacke_sgehrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgejsv.c | 1 - .../LAPACKE/src/lapacke_sgejsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgelq.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgelq2.c | 1 - .../LAPACKE/src/lapacke_sgelq2_work.c | 1 - .../LAPACKE/src/lapacke_sgelq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgelqf.c | 1 - .../LAPACKE/src/lapacke_sgelqf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgels.c | 1 - .../LAPACKE/src/lapacke_sgels_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgelsd.c | 1 - .../LAPACKE/src/lapacke_sgelsd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgelss.c | 1 - .../LAPACKE/src/lapacke_sgelss_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgelsy.c | 1 - .../LAPACKE/src/lapacke_sgelsy_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgemlq.c | 1 - .../LAPACKE/src/lapacke_sgemlq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgemqr.c | 1 - .../LAPACKE/src/lapacke_sgemqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgemqrt.c | 1 - .../LAPACKE/src/lapacke_sgemqrt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgeqlf.c | 1 - .../LAPACKE/src/lapacke_sgeqlf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgeqp3.c | 1 - .../LAPACKE/src/lapacke_sgeqp3_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgeqpf.c | 1 - .../LAPACKE/src/lapacke_sgeqpf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgeqr.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgeqr2.c | 1 - .../LAPACKE/src/lapacke_sgeqr2_work.c | 1 - .../LAPACKE/src/lapacke_sgeqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgeqrf.c | 1 - .../LAPACKE/src/lapacke_sgeqrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgeqrfp.c | 1 - .../LAPACKE/src/lapacke_sgeqrfp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgeqrt.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgeqrt2.c | 1 - .../LAPACKE/src/lapacke_sgeqrt2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgeqrt3.c | 1 - .../LAPACKE/src/lapacke_sgeqrt3_work.c | 1 - .../LAPACKE/src/lapacke_sgeqrt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgerfs.c | 1 - .../LAPACKE/src/lapacke_sgerfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgerfsx.c | 1 - .../LAPACKE/src/lapacke_sgerfsx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgerqf.c | 1 - .../LAPACKE/src/lapacke_sgerqf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgesdd.c | 1 - .../LAPACKE/src/lapacke_sgesdd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgesv.c | 1 - .../LAPACKE/src/lapacke_sgesv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgesvd.c | 1 - .../LAPACKE/src/lapacke_sgesvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgesvdq.c | 1 - .../LAPACKE/src/lapacke_sgesvdq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgesvdx.c | 1 - .../LAPACKE/src/lapacke_sgesvdx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgesvj.c | 1 - .../LAPACKE/src/lapacke_sgesvj_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgesvx.c | 1 - .../LAPACKE/src/lapacke_sgesvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgesvxx.c | 1 - .../LAPACKE/src/lapacke_sgesvxx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgetf2.c | 1 - .../LAPACKE/src/lapacke_sgetf2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgetrf.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgetrf2.c | 1 - .../LAPACKE/src/lapacke_sgetrf2_work.c | 1 - .../LAPACKE/src/lapacke_sgetrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgetri.c | 1 - .../LAPACKE/src/lapacke_sgetri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgetrs.c | 1 - .../LAPACKE/src/lapacke_sgetrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgetsls.c | 1 - .../LAPACKE/src/lapacke_sgetsls_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sggbak.c | 1 - .../LAPACKE/src/lapacke_sggbak_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sggbal.c | 1 - .../LAPACKE/src/lapacke_sggbal_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgges.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgges3.c | 1 - .../LAPACKE/src/lapacke_sgges3_work.c | 1 - .../LAPACKE/src/lapacke_sgges_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sggesx.c | 1 - .../LAPACKE/src/lapacke_sggesx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sggev.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sggev3.c | 1 - .../LAPACKE/src/lapacke_sggev3_work.c | 1 - .../LAPACKE/src/lapacke_sggev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sggevx.c | 1 - .../LAPACKE/src/lapacke_sggevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sggglm.c | 1 - .../LAPACKE/src/lapacke_sggglm_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgghd3.c | 1 - .../LAPACKE/src/lapacke_sgghd3_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgghrd.c | 1 - .../LAPACKE/src/lapacke_sgghrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgglse.c | 1 - .../LAPACKE/src/lapacke_sgglse_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sggqrf.c | 1 - .../LAPACKE/src/lapacke_sggqrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sggrqf.c | 1 - .../LAPACKE/src/lapacke_sggrqf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sggsvd.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sggsvd3.c | 1 - .../LAPACKE/src/lapacke_sggsvd3_work.c | 1 - .../LAPACKE/src/lapacke_sggsvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sggsvp.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sggsvp3.c | 1 - .../LAPACKE/src/lapacke_sggsvp3_work.c | 1 - .../LAPACKE/src/lapacke_sggsvp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgtcon.c | 1 - .../LAPACKE/src/lapacke_sgtcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgtrfs.c | 1 - .../LAPACKE/src/lapacke_sgtrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgtsv.c | 1 - .../LAPACKE/src/lapacke_sgtsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgtsvx.c | 1 - .../LAPACKE/src/lapacke_sgtsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgttrf.c | 1 - .../LAPACKE/src/lapacke_sgttrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sgttrs.c | 1 - .../LAPACKE/src/lapacke_sgttrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_shgeqz.c | 1 - .../LAPACKE/src/lapacke_shgeqz_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_shsein.c | 1 - .../LAPACKE/src/lapacke_shsein_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_shseqr.c | 1 - .../LAPACKE/src/lapacke_shseqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slacn2.c | 1 - .../LAPACKE/src/lapacke_slacn2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slacpy.c | 1 - .../LAPACKE/src/lapacke_slacpy_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slag2d.c | 1 - .../LAPACKE/src/lapacke_slag2d_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slagge.c | 1 - .../LAPACKE/src/lapacke_slagge_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slagsy.c | 1 - .../LAPACKE/src/lapacke_slagsy_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slamch.c | 1 - .../LAPACKE/src/lapacke_slamch_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slange.c | 1 - .../LAPACKE/src/lapacke_slange_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slansy.c | 1 - .../LAPACKE/src/lapacke_slansy_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slantr.c | 1 - .../LAPACKE/src/lapacke_slantr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slapmr.c | 1 - .../LAPACKE/src/lapacke_slapmr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slapmt.c | 1 - .../LAPACKE/src/lapacke_slapmt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slapy2.c | 1 - .../LAPACKE/src/lapacke_slapy2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slapy3.c | 1 - .../LAPACKE/src/lapacke_slapy3_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slarfb.c | 1 - .../LAPACKE/src/lapacke_slarfb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slarfg.c | 1 - .../LAPACKE/src/lapacke_slarfg_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slarft.c | 1 - .../LAPACKE/src/lapacke_slarft_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slarfx.c | 1 - .../LAPACKE/src/lapacke_slarfx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slarnv.c | 1 - .../LAPACKE/src/lapacke_slarnv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slartgp.c | 1 - .../LAPACKE/src/lapacke_slartgp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slartgs.c | 1 - .../LAPACKE/src/lapacke_slartgs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slascl.c | 1 - .../LAPACKE/src/lapacke_slascl_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slaset.c | 1 - .../LAPACKE/src/lapacke_slaset_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slasrt.c | 1 - .../LAPACKE/src/lapacke_slasrt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slassq.c | 1 - .../LAPACKE/src/lapacke_slassq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slaswp.c | 1 - .../LAPACKE/src/lapacke_slaswp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slatms.c | 1 - .../LAPACKE/src/lapacke_slatms_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_slauum.c | 1 - .../LAPACKE/src/lapacke_slauum_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sopgtr.c | 1 - .../LAPACKE/src/lapacke_sopgtr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sopmtr.c | 1 - .../LAPACKE/src/lapacke_sopmtr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sorbdb.c | 1 - .../LAPACKE/src/lapacke_sorbdb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sorcsd.c | 1 - .../LAPACKE/src/lapacke_sorcsd2by1.c | 1 - .../LAPACKE/src/lapacke_sorcsd2by1_work.c | 1 - .../LAPACKE/src/lapacke_sorcsd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sorgbr.c | 1 - .../LAPACKE/src/lapacke_sorgbr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sorghr.c | 1 - .../LAPACKE/src/lapacke_sorghr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sorglq.c | 1 - .../LAPACKE/src/lapacke_sorglq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sorgql.c | 1 - .../LAPACKE/src/lapacke_sorgql_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sorgqr.c | 1 - .../LAPACKE/src/lapacke_sorgqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sorgrq.c | 1 - .../LAPACKE/src/lapacke_sorgrq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sorgtr.c | 1 - .../LAPACKE/src/lapacke_sorgtr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sormbr.c | 1 - .../LAPACKE/src/lapacke_sormbr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sormhr.c | 1 - .../LAPACKE/src/lapacke_sormhr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sormlq.c | 1 - .../LAPACKE/src/lapacke_sormlq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sormql.c | 1 - .../LAPACKE/src/lapacke_sormql_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sormqr.c | 1 - .../LAPACKE/src/lapacke_sormqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sormrq.c | 1 - .../LAPACKE/src/lapacke_sormrq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sormrz.c | 1 - .../LAPACKE/src/lapacke_sormrz_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sormtr.c | 1 - .../LAPACKE/src/lapacke_sormtr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spbcon.c | 1 - .../LAPACKE/src/lapacke_spbcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spbequ.c | 1 - .../LAPACKE/src/lapacke_spbequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spbrfs.c | 1 - .../LAPACKE/src/lapacke_spbrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spbstf.c | 1 - .../LAPACKE/src/lapacke_spbstf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spbsv.c | 1 - .../LAPACKE/src/lapacke_spbsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spbsvx.c | 1 - .../LAPACKE/src/lapacke_spbsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spbtrf.c | 1 - .../LAPACKE/src/lapacke_spbtrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spbtrs.c | 1 - .../LAPACKE/src/lapacke_spbtrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spftrf.c | 1 - .../LAPACKE/src/lapacke_spftrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spftri.c | 1 - .../LAPACKE/src/lapacke_spftri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spftrs.c | 1 - .../LAPACKE/src/lapacke_spftrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spocon.c | 1 - .../LAPACKE/src/lapacke_spocon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spoequ.c | 1 - .../LAPACKE/src/lapacke_spoequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spoequb.c | 1 - .../LAPACKE/src/lapacke_spoequb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sporfs.c | 1 - .../LAPACKE/src/lapacke_sporfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sporfsx.c | 1 - .../LAPACKE/src/lapacke_sporfsx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sposv.c | 1 - .../LAPACKE/src/lapacke_sposv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sposvx.c | 1 - .../LAPACKE/src/lapacke_sposvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sposvxx.c | 1 - .../LAPACKE/src/lapacke_sposvxx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spotrf.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spotrf2.c | 1 - .../LAPACKE/src/lapacke_spotrf2_work.c | 1 - .../LAPACKE/src/lapacke_spotrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spotri.c | 1 - .../LAPACKE/src/lapacke_spotri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spotrs.c | 1 - .../LAPACKE/src/lapacke_spotrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sppcon.c | 1 - .../LAPACKE/src/lapacke_sppcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sppequ.c | 1 - .../LAPACKE/src/lapacke_sppequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spprfs.c | 1 - .../LAPACKE/src/lapacke_spprfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sppsv.c | 1 - .../LAPACKE/src/lapacke_sppsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sppsvx.c | 1 - .../LAPACKE/src/lapacke_sppsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spptrf.c | 1 - .../LAPACKE/src/lapacke_spptrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spptri.c | 1 - .../LAPACKE/src/lapacke_spptri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spptrs.c | 1 - .../LAPACKE/src/lapacke_spptrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spstrf.c | 1 - .../LAPACKE/src/lapacke_spstrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sptcon.c | 1 - .../LAPACKE/src/lapacke_sptcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spteqr.c | 1 - .../LAPACKE/src/lapacke_spteqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sptrfs.c | 1 - .../LAPACKE/src/lapacke_sptrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sptsv.c | 1 - .../LAPACKE/src/lapacke_sptsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sptsvx.c | 1 - .../LAPACKE/src/lapacke_sptsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spttrf.c | 1 - .../LAPACKE/src/lapacke_spttrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_spttrs.c | 1 - .../LAPACKE/src/lapacke_spttrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssbev.c | 1 - .../LAPACKE/src/lapacke_ssbev_2stage.c | 1 - .../LAPACKE/src/lapacke_ssbev_2stage_work.c | 1 - .../LAPACKE/src/lapacke_ssbev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssbevd.c | 1 - .../LAPACKE/src/lapacke_ssbevd_2stage.c | 1 - .../LAPACKE/src/lapacke_ssbevd_2stage_work.c | 1 - .../LAPACKE/src/lapacke_ssbevd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssbevx.c | 1 - .../LAPACKE/src/lapacke_ssbevx_2stage.c | 1 - .../LAPACKE/src/lapacke_ssbevx_2stage_work.c | 1 - .../LAPACKE/src/lapacke_ssbevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssbgst.c | 1 - .../LAPACKE/src/lapacke_ssbgst_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssbgv.c | 1 - .../LAPACKE/src/lapacke_ssbgv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssbgvd.c | 1 - .../LAPACKE/src/lapacke_ssbgvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssbgvx.c | 1 - .../LAPACKE/src/lapacke_ssbgvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssbtrd.c | 1 - .../LAPACKE/src/lapacke_ssbtrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssfrk.c | 1 - .../LAPACKE/src/lapacke_ssfrk_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sspcon.c | 1 - .../LAPACKE/src/lapacke_sspcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sspev.c | 1 - .../LAPACKE/src/lapacke_sspev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sspevd.c | 1 - .../LAPACKE/src/lapacke_sspevd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sspevx.c | 1 - .../LAPACKE/src/lapacke_sspevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sspgst.c | 1 - .../LAPACKE/src/lapacke_sspgst_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sspgv.c | 1 - .../LAPACKE/src/lapacke_sspgv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sspgvd.c | 1 - .../LAPACKE/src/lapacke_sspgvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sspgvx.c | 1 - .../LAPACKE/src/lapacke_sspgvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssprfs.c | 1 - .../LAPACKE/src/lapacke_ssprfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sspsv.c | 1 - .../LAPACKE/src/lapacke_sspsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sspsvx.c | 1 - .../LAPACKE/src/lapacke_sspsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssptrd.c | 1 - .../LAPACKE/src/lapacke_ssptrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssptrf.c | 1 - .../LAPACKE/src/lapacke_ssptrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssptri.c | 1 - .../LAPACKE/src/lapacke_ssptri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssptrs.c | 1 - .../LAPACKE/src/lapacke_ssptrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sstebz.c | 1 - .../LAPACKE/src/lapacke_sstebz_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sstedc.c | 1 - .../LAPACKE/src/lapacke_sstedc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sstegr.c | 1 - .../LAPACKE/src/lapacke_sstegr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sstein.c | 1 - .../LAPACKE/src/lapacke_sstein_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sstemr.c | 1 - .../LAPACKE/src/lapacke_sstemr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssteqr.c | 1 - .../LAPACKE/src/lapacke_ssteqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssterf.c | 1 - .../LAPACKE/src/lapacke_ssterf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sstev.c | 1 - .../LAPACKE/src/lapacke_sstev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sstevd.c | 1 - .../LAPACKE/src/lapacke_sstevd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sstevr.c | 1 - .../LAPACKE/src/lapacke_sstevr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_sstevx.c | 1 - .../LAPACKE/src/lapacke_sstevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssycon.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssycon_3.c | 1 - .../LAPACKE/src/lapacke_ssycon_3_work.c | 1 - .../LAPACKE/src/lapacke_ssycon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssyconv.c | 1 - .../LAPACKE/src/lapacke_ssyconv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssyequb.c | 1 - .../LAPACKE/src/lapacke_ssyequb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssyev.c | 1 - .../LAPACKE/src/lapacke_ssyev_2stage.c | 1 - .../LAPACKE/src/lapacke_ssyev_2stage_work.c | 1 - .../LAPACKE/src/lapacke_ssyev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssyevd.c | 1 - .../LAPACKE/src/lapacke_ssyevd_2stage.c | 1 - .../LAPACKE/src/lapacke_ssyevd_2stage_work.c | 1 - .../LAPACKE/src/lapacke_ssyevd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssyevr.c | 1 - .../LAPACKE/src/lapacke_ssyevr_2stage.c | 1 - .../LAPACKE/src/lapacke_ssyevr_2stage_work.c | 1 - .../LAPACKE/src/lapacke_ssyevr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssyevx.c | 1 - .../LAPACKE/src/lapacke_ssyevx_2stage.c | 1 - .../LAPACKE/src/lapacke_ssyevx_2stage_work.c | 1 - .../LAPACKE/src/lapacke_ssyevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssygst.c | 1 - .../LAPACKE/src/lapacke_ssygst_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssygv.c | 1 - .../LAPACKE/src/lapacke_ssygv_2stage.c | 1 - .../LAPACKE/src/lapacke_ssygv_2stage_work.c | 1 - .../LAPACKE/src/lapacke_ssygv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssygvd.c | 1 - .../LAPACKE/src/lapacke_ssygvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssygvx.c | 1 - .../LAPACKE/src/lapacke_ssygvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssyrfs.c | 1 - .../LAPACKE/src/lapacke_ssyrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssyrfsx.c | 1 - .../LAPACKE/src/lapacke_ssyrfsx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssysv.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssysv_aa.c | 1 - .../LAPACKE/src/lapacke_ssysv_aa_2stage.c | 1 - .../src/lapacke_ssysv_aa_2stage_work.c | 1 - .../LAPACKE/src/lapacke_ssysv_aa_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssysv_rk.c | 1 - .../LAPACKE/src/lapacke_ssysv_rk_work.c | 1 - .../LAPACKE/src/lapacke_ssysv_rook.c | 1 - .../LAPACKE/src/lapacke_ssysv_rook_work.c | 1 - .../LAPACKE/src/lapacke_ssysv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssysvx.c | 1 - .../LAPACKE/src/lapacke_ssysvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssysvxx.c | 1 - .../LAPACKE/src/lapacke_ssysvxx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssyswapr.c | 1 - .../LAPACKE/src/lapacke_ssyswapr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssytrd.c | 1 - .../LAPACKE/src/lapacke_ssytrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssytrf.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa.c | 1 - .../LAPACKE/src/lapacke_ssytrf_aa_2stage.c | 1 - .../src/lapacke_ssytrf_aa_2stage_work.c | 1 - .../LAPACKE/src/lapacke_ssytrf_aa_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssytrf_rk.c | 1 - .../LAPACKE/src/lapacke_ssytrf_rk_work.c | 1 - .../LAPACKE/src/lapacke_ssytrf_rook.c | 1 - .../LAPACKE/src/lapacke_ssytrf_rook_work.c | 1 - .../LAPACKE/src/lapacke_ssytrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssytri.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssytri2.c | 1 - .../LAPACKE/src/lapacke_ssytri2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssytri2x.c | 1 - .../LAPACKE/src/lapacke_ssytri2x_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssytri_3.c | 1 - .../LAPACKE/src/lapacke_ssytri_3_work.c | 1 - .../LAPACKE/src/lapacke_ssytri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssytrs.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssytrs2.c | 1 - .../LAPACKE/src/lapacke_ssytrs2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssytrs_3.c | 1 - .../LAPACKE/src/lapacke_ssytrs_3_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa.c | 1 - .../LAPACKE/src/lapacke_ssytrs_aa_2stage.c | 1 - .../src/lapacke_ssytrs_aa_2stage_work.c | 1 - .../LAPACKE/src/lapacke_ssytrs_aa_work.c | 1 - .../LAPACKE/src/lapacke_ssytrs_rook.c | 1 - .../LAPACKE/src/lapacke_ssytrs_rook_work.c | 1 - .../LAPACKE/src/lapacke_ssytrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stbcon.c | 1 - .../LAPACKE/src/lapacke_stbcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stbrfs.c | 1 - .../LAPACKE/src/lapacke_stbrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stbtrs.c | 1 - .../LAPACKE/src/lapacke_stbtrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stfsm.c | 1 - .../LAPACKE/src/lapacke_stfsm_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stftri.c | 1 - .../LAPACKE/src/lapacke_stftri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stfttp.c | 1 - .../LAPACKE/src/lapacke_stfttp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stfttr.c | 1 - .../LAPACKE/src/lapacke_stfttr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stgevc.c | 1 - .../LAPACKE/src/lapacke_stgevc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stgexc.c | 1 - .../LAPACKE/src/lapacke_stgexc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stgsen.c | 1 - .../LAPACKE/src/lapacke_stgsen_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stgsja.c | 1 - .../LAPACKE/src/lapacke_stgsja_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stgsna.c | 1 - .../LAPACKE/src/lapacke_stgsna_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stgsyl.c | 1 - .../LAPACKE/src/lapacke_stgsyl_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stpcon.c | 1 - .../LAPACKE/src/lapacke_stpcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stpmqrt.c | 1 - .../LAPACKE/src/lapacke_stpmqrt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stpqrt.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stpqrt2.c | 1 - .../LAPACKE/src/lapacke_stpqrt2_work.c | 1 - .../LAPACKE/src/lapacke_stpqrt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stprfb.c | 1 - .../LAPACKE/src/lapacke_stprfb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stprfs.c | 1 - .../LAPACKE/src/lapacke_stprfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stptri.c | 1 - .../LAPACKE/src/lapacke_stptri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stptrs.c | 1 - .../LAPACKE/src/lapacke_stptrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stpttf.c | 1 - .../LAPACKE/src/lapacke_stpttf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stpttr.c | 1 - .../LAPACKE/src/lapacke_stpttr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_strcon.c | 1 - .../LAPACKE/src/lapacke_strcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_strevc.c | 1 - .../LAPACKE/src/lapacke_strevc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_strexc.c | 1 - .../LAPACKE/src/lapacke_strexc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_strrfs.c | 1 - .../LAPACKE/src/lapacke_strrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_strsen.c | 1 - .../LAPACKE/src/lapacke_strsen_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_strsna.c | 1 - .../LAPACKE/src/lapacke_strsna_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_strsyl.c | 1 - .../LAPACKE/src/lapacke_strsyl_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_strtri.c | 1 - .../LAPACKE/src/lapacke_strtri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_strtrs.c | 1 - .../LAPACKE/src/lapacke_strtrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_strttf.c | 1 - .../LAPACKE/src/lapacke_strttf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_strttp.c | 1 - .../LAPACKE/src/lapacke_strttp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_stzrzf.c | 1 - .../LAPACKE/src/lapacke_stzrzf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zbbcsd.c | 1 - .../LAPACKE/src/lapacke_zbbcsd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zbdsqr.c | 1 - .../LAPACKE/src/lapacke_zbdsqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zcgesv.c | 1 - .../LAPACKE/src/lapacke_zcgesv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zcposv.c | 1 - .../LAPACKE/src/lapacke_zcposv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgbbrd.c | 1 - .../LAPACKE/src/lapacke_zgbbrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgbcon.c | 1 - .../LAPACKE/src/lapacke_zgbcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgbequ.c | 1 - .../LAPACKE/src/lapacke_zgbequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgbequb.c | 1 - .../LAPACKE/src/lapacke_zgbequb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgbrfs.c | 1 - .../LAPACKE/src/lapacke_zgbrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgbrfsx.c | 1 - .../LAPACKE/src/lapacke_zgbrfsx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgbsv.c | 1 - .../LAPACKE/src/lapacke_zgbsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgbsvx.c | 1 - .../LAPACKE/src/lapacke_zgbsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgbsvxx.c | 1 - .../LAPACKE/src/lapacke_zgbsvxx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgbtrf.c | 1 - .../LAPACKE/src/lapacke_zgbtrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgbtrs.c | 1 - .../LAPACKE/src/lapacke_zgbtrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgebak.c | 1 - .../LAPACKE/src/lapacke_zgebak_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgebal.c | 1 - .../LAPACKE/src/lapacke_zgebal_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgebrd.c | 1 - .../LAPACKE/src/lapacke_zgebrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgecon.c | 1 - .../LAPACKE/src/lapacke_zgecon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgeequ.c | 1 - .../LAPACKE/src/lapacke_zgeequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgeequb.c | 1 - .../LAPACKE/src/lapacke_zgeequb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgees.c | 1 - .../LAPACKE/src/lapacke_zgees_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgeesx.c | 1 - .../LAPACKE/src/lapacke_zgeesx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgeev.c | 1 - .../LAPACKE/src/lapacke_zgeev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgeevx.c | 1 - .../LAPACKE/src/lapacke_zgeevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgehrd.c | 1 - .../LAPACKE/src/lapacke_zgehrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgejsv.c | 1 - .../LAPACKE/src/lapacke_zgejsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgelq.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgelq2.c | 1 - .../LAPACKE/src/lapacke_zgelq2_work.c | 1 - .../LAPACKE/src/lapacke_zgelq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgelqf.c | 1 - .../LAPACKE/src/lapacke_zgelqf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgels.c | 1 - .../LAPACKE/src/lapacke_zgels_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgelsd.c | 1 - .../LAPACKE/src/lapacke_zgelsd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgelss.c | 1 - .../LAPACKE/src/lapacke_zgelss_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgelsy.c | 1 - .../LAPACKE/src/lapacke_zgelsy_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgemlq.c | 1 - .../LAPACKE/src/lapacke_zgemlq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgemqr.c | 1 - .../LAPACKE/src/lapacke_zgemqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgemqrt.c | 1 - .../LAPACKE/src/lapacke_zgemqrt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgeqlf.c | 1 - .../LAPACKE/src/lapacke_zgeqlf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgeqp3.c | 1 - .../LAPACKE/src/lapacke_zgeqp3_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgeqpf.c | 1 - .../LAPACKE/src/lapacke_zgeqpf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgeqr.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgeqr2.c | 1 - .../LAPACKE/src/lapacke_zgeqr2_work.c | 1 - .../LAPACKE/src/lapacke_zgeqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgeqrf.c | 1 - .../LAPACKE/src/lapacke_zgeqrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgeqrfp.c | 1 - .../LAPACKE/src/lapacke_zgeqrfp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgeqrt.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgeqrt2.c | 1 - .../LAPACKE/src/lapacke_zgeqrt2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgeqrt3.c | 1 - .../LAPACKE/src/lapacke_zgeqrt3_work.c | 1 - .../LAPACKE/src/lapacke_zgeqrt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgerfs.c | 1 - .../LAPACKE/src/lapacke_zgerfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgerfsx.c | 1 - .../LAPACKE/src/lapacke_zgerfsx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgerqf.c | 1 - .../LAPACKE/src/lapacke_zgerqf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgesdd.c | 1 - .../LAPACKE/src/lapacke_zgesdd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgesv.c | 1 - .../LAPACKE/src/lapacke_zgesv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgesvd.c | 1 - .../LAPACKE/src/lapacke_zgesvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgesvdq.c | 1 - .../LAPACKE/src/lapacke_zgesvdq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgesvdx.c | 1 - .../LAPACKE/src/lapacke_zgesvdx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgesvj.c | 1 - .../LAPACKE/src/lapacke_zgesvj_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgesvx.c | 1 - .../LAPACKE/src/lapacke_zgesvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgesvxx.c | 1 - .../LAPACKE/src/lapacke_zgesvxx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgetf2.c | 1 - .../LAPACKE/src/lapacke_zgetf2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgetrf.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgetrf2.c | 1 - .../LAPACKE/src/lapacke_zgetrf2_work.c | 1 - .../LAPACKE/src/lapacke_zgetrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgetri.c | 1 - .../LAPACKE/src/lapacke_zgetri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgetrs.c | 1 - .../LAPACKE/src/lapacke_zgetrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgetsls.c | 1 - .../LAPACKE/src/lapacke_zgetsls_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zggbak.c | 1 - .../LAPACKE/src/lapacke_zggbak_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zggbal.c | 1 - .../LAPACKE/src/lapacke_zggbal_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgges.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgges3.c | 1 - .../LAPACKE/src/lapacke_zgges3_work.c | 1 - .../LAPACKE/src/lapacke_zgges_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zggesx.c | 1 - .../LAPACKE/src/lapacke_zggesx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zggev.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zggev3.c | 1 - .../LAPACKE/src/lapacke_zggev3_work.c | 1 - .../LAPACKE/src/lapacke_zggev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zggevx.c | 1 - .../LAPACKE/src/lapacke_zggevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zggglm.c | 1 - .../LAPACKE/src/lapacke_zggglm_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgghd3.c | 1 - .../LAPACKE/src/lapacke_zgghd3_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgghrd.c | 1 - .../LAPACKE/src/lapacke_zgghrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgglse.c | 1 - .../LAPACKE/src/lapacke_zgglse_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zggqrf.c | 1 - .../LAPACKE/src/lapacke_zggqrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zggrqf.c | 1 - .../LAPACKE/src/lapacke_zggrqf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zggsvd.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zggsvd3.c | 1 - .../LAPACKE/src/lapacke_zggsvd3_work.c | 1 - .../LAPACKE/src/lapacke_zggsvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zggsvp.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zggsvp3.c | 1 - .../LAPACKE/src/lapacke_zggsvp3_work.c | 1 - .../LAPACKE/src/lapacke_zggsvp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgtcon.c | 1 - .../LAPACKE/src/lapacke_zgtcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgtrfs.c | 1 - .../LAPACKE/src/lapacke_zgtrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgtsv.c | 1 - .../LAPACKE/src/lapacke_zgtsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgtsvx.c | 1 - .../LAPACKE/src/lapacke_zgtsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgttrf.c | 1 - .../LAPACKE/src/lapacke_zgttrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zgttrs.c | 1 - .../LAPACKE/src/lapacke_zgttrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhbev.c | 1 - .../LAPACKE/src/lapacke_zhbev_2stage.c | 1 - .../LAPACKE/src/lapacke_zhbev_2stage_work.c | 1 - .../LAPACKE/src/lapacke_zhbev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhbevd.c | 1 - .../LAPACKE/src/lapacke_zhbevd_2stage.c | 1 - .../LAPACKE/src/lapacke_zhbevd_2stage_work.c | 1 - .../LAPACKE/src/lapacke_zhbevd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhbevx.c | 1 - .../LAPACKE/src/lapacke_zhbevx_2stage.c | 1 - .../LAPACKE/src/lapacke_zhbevx_2stage_work.c | 1 - .../LAPACKE/src/lapacke_zhbevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhbgst.c | 1 - .../LAPACKE/src/lapacke_zhbgst_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhbgv.c | 1 - .../LAPACKE/src/lapacke_zhbgv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhbgvd.c | 1 - .../LAPACKE/src/lapacke_zhbgvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhbgvx.c | 1 - .../LAPACKE/src/lapacke_zhbgvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhbtrd.c | 1 - .../LAPACKE/src/lapacke_zhbtrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhecon.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhecon_3.c | 1 - .../LAPACKE/src/lapacke_zhecon_3_work.c | 1 - .../LAPACKE/src/lapacke_zhecon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zheequb.c | 1 - .../LAPACKE/src/lapacke_zheequb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zheev.c | 1 - .../LAPACKE/src/lapacke_zheev_2stage.c | 1 - .../LAPACKE/src/lapacke_zheev_2stage_work.c | 1 - .../LAPACKE/src/lapacke_zheev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zheevd.c | 1 - .../LAPACKE/src/lapacke_zheevd_2stage.c | 1 - .../LAPACKE/src/lapacke_zheevd_2stage_work.c | 1 - .../LAPACKE/src/lapacke_zheevd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zheevr.c | 1 - .../LAPACKE/src/lapacke_zheevr_2stage.c | 1 - .../LAPACKE/src/lapacke_zheevr_2stage_work.c | 1 - .../LAPACKE/src/lapacke_zheevr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zheevx.c | 1 - .../LAPACKE/src/lapacke_zheevx_2stage.c | 1 - .../LAPACKE/src/lapacke_zheevx_2stage_work.c | 1 - .../LAPACKE/src/lapacke_zheevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhegst.c | 3 +- .../LAPACKE/src/lapacke_zhegst_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhegv.c | 1 - .../LAPACKE/src/lapacke_zhegv_2stage.c | 1 - .../LAPACKE/src/lapacke_zhegv_2stage_work.c | 1 - .../LAPACKE/src/lapacke_zhegv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhegvd.c | 1 - .../LAPACKE/src/lapacke_zhegvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhegvx.c | 1 - .../LAPACKE/src/lapacke_zhegvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zherfs.c | 1 - .../LAPACKE/src/lapacke_zherfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zherfsx.c | 1 - .../LAPACKE/src/lapacke_zherfsx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhesv.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhesv_aa.c | 1 - .../LAPACKE/src/lapacke_zhesv_aa_2stage.c | 1 - .../src/lapacke_zhesv_aa_2stage_work.c | 1 - .../LAPACKE/src/lapacke_zhesv_aa_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhesv_rk.c | 1 - .../LAPACKE/src/lapacke_zhesv_rk_work.c | 1 - .../LAPACKE/src/lapacke_zhesv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhesvx.c | 1 - .../LAPACKE/src/lapacke_zhesvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhesvxx.c | 1 - .../LAPACKE/src/lapacke_zhesvxx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zheswapr.c | 1 - .../LAPACKE/src/lapacke_zheswapr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhetrd.c | 1 - .../LAPACKE/src/lapacke_zhetrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhetrf.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa.c | 1 - .../LAPACKE/src/lapacke_zhetrf_aa_2stage.c | 1 - .../src/lapacke_zhetrf_aa_2stage_work.c | 1 - .../LAPACKE/src/lapacke_zhetrf_aa_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhetrf_rk.c | 1 - .../LAPACKE/src/lapacke_zhetrf_rk_work.c | 1 - .../LAPACKE/src/lapacke_zhetrf_rook.c | 1 - .../LAPACKE/src/lapacke_zhetrf_rook_work.c | 1 - .../LAPACKE/src/lapacke_zhetrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhetri.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhetri2.c | 1 - .../LAPACKE/src/lapacke_zhetri2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhetri2x.c | 1 - .../LAPACKE/src/lapacke_zhetri2x_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhetri_3.c | 1 - .../LAPACKE/src/lapacke_zhetri_3_work.c | 1 - .../LAPACKE/src/lapacke_zhetri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhetrs.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhetrs2.c | 1 - .../LAPACKE/src/lapacke_zhetrs2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhetrs_3.c | 1 - .../LAPACKE/src/lapacke_zhetrs_3_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa.c | 1 - .../LAPACKE/src/lapacke_zhetrs_aa_2stage.c | 1 - .../src/lapacke_zhetrs_aa_2stage_work.c | 1 - .../LAPACKE/src/lapacke_zhetrs_aa_work.c | 1 - .../LAPACKE/src/lapacke_zhetrs_rook.c | 1 - .../LAPACKE/src/lapacke_zhetrs_rook_work.c | 1 - .../LAPACKE/src/lapacke_zhetrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhfrk.c | 1 - .../LAPACKE/src/lapacke_zhfrk_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhgeqz.c | 1 - .../LAPACKE/src/lapacke_zhgeqz_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhpcon.c | 1 - .../LAPACKE/src/lapacke_zhpcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhpev.c | 1 - .../LAPACKE/src/lapacke_zhpev_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhpevd.c | 1 - .../LAPACKE/src/lapacke_zhpevd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhpevx.c | 1 - .../LAPACKE/src/lapacke_zhpevx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhpgst.c | 1 - .../LAPACKE/src/lapacke_zhpgst_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhpgv.c | 1 - .../LAPACKE/src/lapacke_zhpgv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhpgvd.c | 1 - .../LAPACKE/src/lapacke_zhpgvd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhpgvx.c | 1 - .../LAPACKE/src/lapacke_zhpgvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhprfs.c | 1 - .../LAPACKE/src/lapacke_zhprfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhpsv.c | 1 - .../LAPACKE/src/lapacke_zhpsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhpsvx.c | 1 - .../LAPACKE/src/lapacke_zhpsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhptrd.c | 1 - .../LAPACKE/src/lapacke_zhptrd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhptrf.c | 1 - .../LAPACKE/src/lapacke_zhptrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhptri.c | 1 - .../LAPACKE/src/lapacke_zhptri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhptrs.c | 1 - .../LAPACKE/src/lapacke_zhptrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhsein.c | 1 - .../LAPACKE/src/lapacke_zhsein_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zhseqr.c | 1 - .../LAPACKE/src/lapacke_zhseqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlacgv.c | 1 - .../LAPACKE/src/lapacke_zlacgv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlacn2.c | 1 - .../LAPACKE/src/lapacke_zlacn2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlacp2.c | 1 - .../LAPACKE/src/lapacke_zlacp2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlacpy.c | 1 - .../LAPACKE/src/lapacke_zlacpy_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlacrm.c | 1 - .../LAPACKE/src/lapacke_zlacrm_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlag2c.c | 1 - .../LAPACKE/src/lapacke_zlag2c_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlagge.c | 1 - .../LAPACKE/src/lapacke_zlagge_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlaghe.c | 1 - .../LAPACKE/src/lapacke_zlaghe_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlagsy.c | 1 - .../LAPACKE/src/lapacke_zlagsy_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlange.c | 1 - .../LAPACKE/src/lapacke_zlange_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlanhe.c | 1 - .../LAPACKE/src/lapacke_zlanhe_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlansy.c | 1 - .../LAPACKE/src/lapacke_zlansy_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlantr.c | 1 - .../LAPACKE/src/lapacke_zlantr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlapmr.c | 1 - .../LAPACKE/src/lapacke_zlapmr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlapmt.c | 1 - .../LAPACKE/src/lapacke_zlapmt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlarcm.c | 1 - .../LAPACKE/src/lapacke_zlarcm_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlarfb.c | 1 - .../LAPACKE/src/lapacke_zlarfb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlarfg.c | 1 - .../LAPACKE/src/lapacke_zlarfg_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlarft.c | 1 - .../LAPACKE/src/lapacke_zlarft_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlarfx.c | 1 - .../LAPACKE/src/lapacke_zlarfx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlarnv.c | 1 - .../LAPACKE/src/lapacke_zlarnv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlascl.c | 1 - .../LAPACKE/src/lapacke_zlascl_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlaset.c | 1 - .../LAPACKE/src/lapacke_zlaset_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlassq.c | 1 - .../LAPACKE/src/lapacke_zlassq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlaswp.c | 1 - .../LAPACKE/src/lapacke_zlaswp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlatms.c | 1 - .../LAPACKE/src/lapacke_zlatms_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zlauum.c | 1 - .../LAPACKE/src/lapacke_zlauum_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpbcon.c | 1 - .../LAPACKE/src/lapacke_zpbcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpbequ.c | 1 - .../LAPACKE/src/lapacke_zpbequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpbrfs.c | 1 - .../LAPACKE/src/lapacke_zpbrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpbstf.c | 1 - .../LAPACKE/src/lapacke_zpbstf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpbsv.c | 1 - .../LAPACKE/src/lapacke_zpbsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpbsvx.c | 1 - .../LAPACKE/src/lapacke_zpbsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpbtrf.c | 1 - .../LAPACKE/src/lapacke_zpbtrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpbtrs.c | 1 - .../LAPACKE/src/lapacke_zpbtrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpftrf.c | 1 - .../LAPACKE/src/lapacke_zpftrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpftri.c | 1 - .../LAPACKE/src/lapacke_zpftri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpftrs.c | 1 - .../LAPACKE/src/lapacke_zpftrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpocon.c | 1 - .../LAPACKE/src/lapacke_zpocon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpoequ.c | 1 - .../LAPACKE/src/lapacke_zpoequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpoequb.c | 1 - .../LAPACKE/src/lapacke_zpoequb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zporfs.c | 1 - .../LAPACKE/src/lapacke_zporfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zporfsx.c | 1 - .../LAPACKE/src/lapacke_zporfsx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zposv.c | 1 - .../LAPACKE/src/lapacke_zposv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zposvx.c | 1 - .../LAPACKE/src/lapacke_zposvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zposvxx.c | 1 - .../LAPACKE/src/lapacke_zposvxx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpotrf.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpotrf2.c | 1 - .../LAPACKE/src/lapacke_zpotrf2_work.c | 1 - .../LAPACKE/src/lapacke_zpotrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpotri.c | 1 - .../LAPACKE/src/lapacke_zpotri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpotrs.c | 1 - .../LAPACKE/src/lapacke_zpotrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zppcon.c | 1 - .../LAPACKE/src/lapacke_zppcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zppequ.c | 1 - .../LAPACKE/src/lapacke_zppequ_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpprfs.c | 1 - .../LAPACKE/src/lapacke_zpprfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zppsv.c | 1 - .../LAPACKE/src/lapacke_zppsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zppsvx.c | 1 - .../LAPACKE/src/lapacke_zppsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpptrf.c | 1 - .../LAPACKE/src/lapacke_zpptrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpptri.c | 1 - .../LAPACKE/src/lapacke_zpptri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpptrs.c | 1 - .../LAPACKE/src/lapacke_zpptrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpstrf.c | 1 - .../LAPACKE/src/lapacke_zpstrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zptcon.c | 1 - .../LAPACKE/src/lapacke_zptcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpteqr.c | 1 - .../LAPACKE/src/lapacke_zpteqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zptrfs.c | 1 - .../LAPACKE/src/lapacke_zptrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zptsv.c | 1 - .../LAPACKE/src/lapacke_zptsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zptsvx.c | 1 - .../LAPACKE/src/lapacke_zptsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpttrf.c | 1 - .../LAPACKE/src/lapacke_zpttrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zpttrs.c | 1 - .../LAPACKE/src/lapacke_zpttrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zspcon.c | 1 - .../LAPACKE/src/lapacke_zspcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsprfs.c | 1 - .../LAPACKE/src/lapacke_zsprfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zspsv.c | 1 - .../LAPACKE/src/lapacke_zspsv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zspsvx.c | 1 - .../LAPACKE/src/lapacke_zspsvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsptrf.c | 1 - .../LAPACKE/src/lapacke_zsptrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsptri.c | 1 - .../LAPACKE/src/lapacke_zsptri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsptrs.c | 1 - .../LAPACKE/src/lapacke_zsptrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zstedc.c | 1 - .../LAPACKE/src/lapacke_zstedc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zstegr.c | 1 - .../LAPACKE/src/lapacke_zstegr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zstein.c | 1 - .../LAPACKE/src/lapacke_zstein_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zstemr.c | 1 - .../LAPACKE/src/lapacke_zstemr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsteqr.c | 1 - .../LAPACKE/src/lapacke_zsteqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsycon.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsycon_3.c | 1 - .../LAPACKE/src/lapacke_zsycon_3_work.c | 1 - .../LAPACKE/src/lapacke_zsycon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsyconv.c | 1 - .../LAPACKE/src/lapacke_zsyconv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsyequb.c | 1 - .../LAPACKE/src/lapacke_zsyequb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsyr.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsyr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsyrfs.c | 1 - .../LAPACKE/src/lapacke_zsyrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsyrfsx.c | 1 - .../LAPACKE/src/lapacke_zsyrfsx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsysv.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsysv_aa.c | 1 - .../LAPACKE/src/lapacke_zsysv_aa_2stage.c | 1 - .../src/lapacke_zsysv_aa_2stage_work.c | 1 - .../LAPACKE/src/lapacke_zsysv_aa_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsysv_rk.c | 1 - .../LAPACKE/src/lapacke_zsysv_rk_work.c | 1 - .../LAPACKE/src/lapacke_zsysv_rook.c | 1 - .../LAPACKE/src/lapacke_zsysv_rook_work.c | 1 - .../LAPACKE/src/lapacke_zsysv_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsysvx.c | 1 - .../LAPACKE/src/lapacke_zsysvx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsysvxx.c | 1 - .../LAPACKE/src/lapacke_zsysvxx_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsyswapr.c | 1 - .../LAPACKE/src/lapacke_zsyswapr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsytrf.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa.c | 1 - .../LAPACKE/src/lapacke_zsytrf_aa_2stage.c | 1 - .../src/lapacke_zsytrf_aa_2stage_work.c | 1 - .../LAPACKE/src/lapacke_zsytrf_aa_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsytrf_rk.c | 1 - .../LAPACKE/src/lapacke_zsytrf_rk_work.c | 1 - .../LAPACKE/src/lapacke_zsytrf_rook.c | 1 - .../LAPACKE/src/lapacke_zsytrf_rook_work.c | 1 - .../LAPACKE/src/lapacke_zsytrf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsytri.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsytri2.c | 1 - .../LAPACKE/src/lapacke_zsytri2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsytri2x.c | 1 - .../LAPACKE/src/lapacke_zsytri2x_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsytri_3.c | 1 - .../LAPACKE/src/lapacke_zsytri_3_work.c | 1 - .../LAPACKE/src/lapacke_zsytri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsytrs.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsytrs2.c | 1 - .../LAPACKE/src/lapacke_zsytrs2_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsytrs_3.c | 1 - .../LAPACKE/src/lapacke_zsytrs_3_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa.c | 1 - .../LAPACKE/src/lapacke_zsytrs_aa_2stage.c | 1 - .../src/lapacke_zsytrs_aa_2stage_work.c | 1 - .../LAPACKE/src/lapacke_zsytrs_aa_work.c | 1 - .../LAPACKE/src/lapacke_zsytrs_rook.c | 1 - .../LAPACKE/src/lapacke_zsytrs_rook_work.c | 1 - .../LAPACKE/src/lapacke_zsytrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztbcon.c | 1 - .../LAPACKE/src/lapacke_ztbcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztbrfs.c | 1 - .../LAPACKE/src/lapacke_ztbrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztbtrs.c | 1 - .../LAPACKE/src/lapacke_ztbtrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztfsm.c | 1 - .../LAPACKE/src/lapacke_ztfsm_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztftri.c | 1 - .../LAPACKE/src/lapacke_ztftri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztfttp.c | 1 - .../LAPACKE/src/lapacke_ztfttp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztfttr.c | 1 - .../LAPACKE/src/lapacke_ztfttr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztgevc.c | 1 - .../LAPACKE/src/lapacke_ztgevc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztgexc.c | 1 - .../LAPACKE/src/lapacke_ztgexc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztgsen.c | 1 - .../LAPACKE/src/lapacke_ztgsen_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztgsja.c | 1 - .../LAPACKE/src/lapacke_ztgsja_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztgsna.c | 1 - .../LAPACKE/src/lapacke_ztgsna_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztgsyl.c | 1 - .../LAPACKE/src/lapacke_ztgsyl_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztpcon.c | 1 - .../LAPACKE/src/lapacke_ztpcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztpmqrt.c | 1 - .../LAPACKE/src/lapacke_ztpmqrt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztpqrt.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztpqrt2.c | 1 - .../LAPACKE/src/lapacke_ztpqrt2_work.c | 1 - .../LAPACKE/src/lapacke_ztpqrt_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztprfb.c | 1 - .../LAPACKE/src/lapacke_ztprfb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztprfs.c | 1 - .../LAPACKE/src/lapacke_ztprfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztptri.c | 1 - .../LAPACKE/src/lapacke_ztptri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztptrs.c | 1 - .../LAPACKE/src/lapacke_ztptrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztpttf.c | 1 - .../LAPACKE/src/lapacke_ztpttf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztpttr.c | 1 - .../LAPACKE/src/lapacke_ztpttr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztrcon.c | 1 - .../LAPACKE/src/lapacke_ztrcon_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztrevc.c | 1 - .../LAPACKE/src/lapacke_ztrevc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztrexc.c | 1 - .../LAPACKE/src/lapacke_ztrexc_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztrrfs.c | 1 - .../LAPACKE/src/lapacke_ztrrfs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztrsen.c | 1 - .../LAPACKE/src/lapacke_ztrsen_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztrsna.c | 1 - .../LAPACKE/src/lapacke_ztrsna_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztrsyl.c | 1 - .../LAPACKE/src/lapacke_ztrsyl_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztrtri.c | 1 - .../LAPACKE/src/lapacke_ztrtri_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztrtrs.c | 1 - .../LAPACKE/src/lapacke_ztrtrs_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztrttf.c | 1 - .../LAPACKE/src/lapacke_ztrttf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztrttp.c | 1 - .../LAPACKE/src/lapacke_ztrttp_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_ztzrzf.c | 1 - .../LAPACKE/src/lapacke_ztzrzf_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zunbdb.c | 1 - .../LAPACKE/src/lapacke_zunbdb_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zuncsd.c | 1 - .../LAPACKE/src/lapacke_zuncsd2by1.c | 1 - .../LAPACKE/src/lapacke_zuncsd2by1_work.c | 1 - .../LAPACKE/src/lapacke_zuncsd_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zungbr.c | 1 - .../LAPACKE/src/lapacke_zungbr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zunghr.c | 1 - .../LAPACKE/src/lapacke_zunghr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zunglq.c | 1 - .../LAPACKE/src/lapacke_zunglq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zungql.c | 1 - .../LAPACKE/src/lapacke_zungql_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zungqr.c | 1 - .../LAPACKE/src/lapacke_zungqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zungrq.c | 1 - .../LAPACKE/src/lapacke_zungrq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zungtr.c | 1 - .../LAPACKE/src/lapacke_zungtr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zunmbr.c | 1 - .../LAPACKE/src/lapacke_zunmbr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zunmhr.c | 1 - .../LAPACKE/src/lapacke_zunmhr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zunmlq.c | 1 - .../LAPACKE/src/lapacke_zunmlq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zunmql.c | 1 - .../LAPACKE/src/lapacke_zunmql_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zunmqr.c | 1 - .../LAPACKE/src/lapacke_zunmqr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zunmrq.c | 1 - .../LAPACKE/src/lapacke_zunmrq_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zunmrz.c | 1 - .../LAPACKE/src/lapacke_zunmrz_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zunmtr.c | 1 - .../LAPACKE/src/lapacke_zunmtr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zupgtr.c | 1 - .../LAPACKE/src/lapacke_zupgtr_work.c | 1 - lapack-netlib/LAPACKE/src/lapacke_zupmtr.c | 1 - .../LAPACKE/src/lapacke_zupmtr_work.c | 1 - lapack-netlib/LAPACKE/utils/Makefile | 1 - .../LAPACKE/utils/lapacke_c_nancheck.c | 1 - .../LAPACKE/utils/lapacke_cgb_nancheck.c | 1 - .../LAPACKE/utils/lapacke_cgb_trans.c | 1 - .../LAPACKE/utils/lapacke_cge_nancheck.c | 1 - .../LAPACKE/utils/lapacke_cge_trans.c | 1 - .../LAPACKE/utils/lapacke_cgg_nancheck.c | 1 - .../LAPACKE/utils/lapacke_cgg_trans.c | 1 - .../LAPACKE/utils/lapacke_cgt_nancheck.c | 1 - .../LAPACKE/utils/lapacke_chb_nancheck.c | 1 - .../LAPACKE/utils/lapacke_chb_trans.c | 1 - .../LAPACKE/utils/lapacke_che_nancheck.c | 1 - .../LAPACKE/utils/lapacke_che_trans.c | 1 - .../LAPACKE/utils/lapacke_chp_nancheck.c | 1 - .../LAPACKE/utils/lapacke_chp_trans.c | 1 - .../LAPACKE/utils/lapacke_chs_nancheck.c | 1 - .../LAPACKE/utils/lapacke_chs_trans.c | 1 - .../LAPACKE/utils/lapacke_cpb_nancheck.c | 1 - .../LAPACKE/utils/lapacke_cpb_trans.c | 1 - .../LAPACKE/utils/lapacke_cpf_nancheck.c | 1 - .../LAPACKE/utils/lapacke_cpf_trans.c | 1 - .../LAPACKE/utils/lapacke_cpo_nancheck.c | 1 - .../LAPACKE/utils/lapacke_cpo_trans.c | 1 - .../LAPACKE/utils/lapacke_cpp_nancheck.c | 1 - .../LAPACKE/utils/lapacke_cpp_trans.c | 1 - .../LAPACKE/utils/lapacke_cpt_nancheck.c | 1 - .../LAPACKE/utils/lapacke_csp_nancheck.c | 1 - .../LAPACKE/utils/lapacke_csp_trans.c | 1 - .../LAPACKE/utils/lapacke_cst_nancheck.c | 1 - .../LAPACKE/utils/lapacke_csy_nancheck.c | 1 - .../LAPACKE/utils/lapacke_csy_trans.c | 1 - .../LAPACKE/utils/lapacke_ctb_nancheck.c | 1 - .../LAPACKE/utils/lapacke_ctb_trans.c | 1 - .../LAPACKE/utils/lapacke_ctf_nancheck.c | 1 - .../LAPACKE/utils/lapacke_ctf_trans.c | 1 - .../LAPACKE/utils/lapacke_ctp_nancheck.c | 1 - .../LAPACKE/utils/lapacke_ctp_trans.c | 1 - .../LAPACKE/utils/lapacke_ctr_nancheck.c | 1 - .../LAPACKE/utils/lapacke_ctr_trans.c | 1 - .../LAPACKE/utils/lapacke_d_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dgb_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dgb_trans.c | 1 - .../LAPACKE/utils/lapacke_dge_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dge_trans.c | 1 - .../LAPACKE/utils/lapacke_dgg_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dgg_trans.c | 1 - .../LAPACKE/utils/lapacke_dgt_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dhs_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dhs_trans.c | 1 - .../LAPACKE/utils/lapacke_dpb_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dpb_trans.c | 1 - .../LAPACKE/utils/lapacke_dpf_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dpf_trans.c | 1 - .../LAPACKE/utils/lapacke_dpo_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dpo_trans.c | 1 - .../LAPACKE/utils/lapacke_dpp_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dpp_trans.c | 1 - .../LAPACKE/utils/lapacke_dpt_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dsb_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dsb_trans.c | 1 - .../LAPACKE/utils/lapacke_dsp_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dsp_trans.c | 1 - .../LAPACKE/utils/lapacke_dst_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dsy_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dsy_trans.c | 1 - .../LAPACKE/utils/lapacke_dtb_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dtb_trans.c | 1 - .../LAPACKE/utils/lapacke_dtf_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dtf_trans.c | 1 - .../LAPACKE/utils/lapacke_dtp_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dtp_trans.c | 1 - .../LAPACKE/utils/lapacke_dtr_nancheck.c | 1 - .../LAPACKE/utils/lapacke_dtr_trans.c | 1 - lapack-netlib/LAPACKE/utils/lapacke_lsame.c | 1 - .../LAPACKE/utils/lapacke_s_nancheck.c | 1 - .../LAPACKE/utils/lapacke_sgb_nancheck.c | 1 - .../LAPACKE/utils/lapacke_sgb_trans.c | 1 - .../LAPACKE/utils/lapacke_sge_nancheck.c | 1 - .../LAPACKE/utils/lapacke_sge_trans.c | 1 - .../LAPACKE/utils/lapacke_sgg_nancheck.c | 1 - .../LAPACKE/utils/lapacke_sgg_trans.c | 1 - .../LAPACKE/utils/lapacke_sgt_nancheck.c | 1 - .../LAPACKE/utils/lapacke_shs_nancheck.c | 1 - .../LAPACKE/utils/lapacke_shs_trans.c | 1 - .../LAPACKE/utils/lapacke_spb_nancheck.c | 1 - .../LAPACKE/utils/lapacke_spb_trans.c | 1 - .../LAPACKE/utils/lapacke_spf_nancheck.c | 1 - .../LAPACKE/utils/lapacke_spf_trans.c | 1 - .../LAPACKE/utils/lapacke_spo_nancheck.c | 1 - .../LAPACKE/utils/lapacke_spo_trans.c | 1 - .../LAPACKE/utils/lapacke_spp_nancheck.c | 1 - .../LAPACKE/utils/lapacke_spp_trans.c | 1 - .../LAPACKE/utils/lapacke_spt_nancheck.c | 1 - .../LAPACKE/utils/lapacke_ssb_nancheck.c | 1 - .../LAPACKE/utils/lapacke_ssb_trans.c | 1 - .../LAPACKE/utils/lapacke_ssp_nancheck.c | 1 - .../LAPACKE/utils/lapacke_ssp_trans.c | 1 - .../LAPACKE/utils/lapacke_sst_nancheck.c | 1 - .../LAPACKE/utils/lapacke_ssy_nancheck.c | 1 - .../LAPACKE/utils/lapacke_ssy_trans.c | 1 - .../LAPACKE/utils/lapacke_stb_nancheck.c | 1 - .../LAPACKE/utils/lapacke_stb_trans.c | 1 - .../LAPACKE/utils/lapacke_stf_nancheck.c | 1 - .../LAPACKE/utils/lapacke_stf_trans.c | 1 - .../LAPACKE/utils/lapacke_stp_nancheck.c | 1 - .../LAPACKE/utils/lapacke_stp_trans.c | 1 - .../LAPACKE/utils/lapacke_str_nancheck.c | 1 - .../LAPACKE/utils/lapacke_str_trans.c | 1 - lapack-netlib/LAPACKE/utils/lapacke_xerbla.c | 1 - .../LAPACKE/utils/lapacke_z_nancheck.c | 1 - .../LAPACKE/utils/lapacke_zgb_nancheck.c | 1 - .../LAPACKE/utils/lapacke_zgb_trans.c | 1 - .../LAPACKE/utils/lapacke_zge_nancheck.c | 1 - .../LAPACKE/utils/lapacke_zge_trans.c | 1 - .../LAPACKE/utils/lapacke_zgg_nancheck.c | 1 - .../LAPACKE/utils/lapacke_zgg_trans.c | 1 - .../LAPACKE/utils/lapacke_zgt_nancheck.c | 1 - .../LAPACKE/utils/lapacke_zhb_nancheck.c | 1 - .../LAPACKE/utils/lapacke_zhb_trans.c | 1 - .../LAPACKE/utils/lapacke_zhe_nancheck.c | 1 - .../LAPACKE/utils/lapacke_zhe_trans.c | 1 - .../LAPACKE/utils/lapacke_zhp_nancheck.c | 1 - .../LAPACKE/utils/lapacke_zhp_trans.c | 1 - .../LAPACKE/utils/lapacke_zhs_nancheck.c | 1 - .../LAPACKE/utils/lapacke_zhs_trans.c | 1 - .../LAPACKE/utils/lapacke_zpb_nancheck.c | 1 - .../LAPACKE/utils/lapacke_zpb_trans.c | 1 - .../LAPACKE/utils/lapacke_zpf_nancheck.c | 1 - .../LAPACKE/utils/lapacke_zpf_trans.c | 1 - .../LAPACKE/utils/lapacke_zpo_nancheck.c | 1 - .../LAPACKE/utils/lapacke_zpo_trans.c | 1 - .../LAPACKE/utils/lapacke_zpp_nancheck.c | 1 - .../LAPACKE/utils/lapacke_zpp_trans.c | 1 - .../LAPACKE/utils/lapacke_zpt_nancheck.c | 1 - .../LAPACKE/utils/lapacke_zsp_nancheck.c | 1 - .../LAPACKE/utils/lapacke_zsp_trans.c | 1 - .../LAPACKE/utils/lapacke_zst_nancheck.c | 1 - .../LAPACKE/utils/lapacke_zsy_nancheck.c | 1 - .../LAPACKE/utils/lapacke_zsy_trans.c | 1 - .../LAPACKE/utils/lapacke_ztb_nancheck.c | 1 - .../LAPACKE/utils/lapacke_ztb_trans.c | 1 - .../LAPACKE/utils/lapacke_ztf_nancheck.c | 1 - .../LAPACKE/utils/lapacke_ztf_trans.c | 1 - .../LAPACKE/utils/lapacke_ztp_nancheck.c | 1 - .../LAPACKE/utils/lapacke_ztp_trans.c | 1 - .../LAPACKE/utils/lapacke_ztr_nancheck.c | 1 - .../LAPACKE/utils/lapacke_ztr_trans.c | 1 - lapack-netlib/SRC/CMakeLists.txt | 94 +- lapack-netlib/SRC/DEPRECATED/cgegs.f | 5 +- lapack-netlib/SRC/DEPRECATED/cgegv.f | 5 +- lapack-netlib/SRC/DEPRECATED/cgelsx.f | 5 +- lapack-netlib/SRC/DEPRECATED/cgeqpf.f | 5 +- lapack-netlib/SRC/DEPRECATED/cggsvd.f | 5 +- lapack-netlib/SRC/DEPRECATED/cggsvp.f | 5 +- lapack-netlib/SRC/DEPRECATED/clahrd.f | 5 +- lapack-netlib/SRC/DEPRECATED/clatzm.f | 5 +- lapack-netlib/SRC/DEPRECATED/ctzrqf.f | 5 +- lapack-netlib/SRC/DEPRECATED/dgegs.f | 5 +- lapack-netlib/SRC/DEPRECATED/dgegv.f | 5 +- lapack-netlib/SRC/DEPRECATED/dgelsx.f | 5 +- lapack-netlib/SRC/DEPRECATED/dgeqpf.f | 5 +- lapack-netlib/SRC/DEPRECATED/dggsvd.f | 5 +- lapack-netlib/SRC/DEPRECATED/dggsvp.f | 5 +- lapack-netlib/SRC/DEPRECATED/dlahrd.f | 5 +- lapack-netlib/SRC/DEPRECATED/dlatzm.f | 5 +- lapack-netlib/SRC/DEPRECATED/dtzrqf.f | 5 +- lapack-netlib/SRC/DEPRECATED/sgegs.f | 5 +- lapack-netlib/SRC/DEPRECATED/sgegv.f | 5 +- lapack-netlib/SRC/DEPRECATED/sgelsx.f | 5 +- lapack-netlib/SRC/DEPRECATED/sgeqpf.f | 5 +- lapack-netlib/SRC/DEPRECATED/sggsvd.f | 5 +- lapack-netlib/SRC/DEPRECATED/sggsvp.f | 5 +- lapack-netlib/SRC/DEPRECATED/slahrd.f | 5 +- lapack-netlib/SRC/DEPRECATED/slatzm.f | 5 +- lapack-netlib/SRC/DEPRECATED/stzrqf.f | 5 +- lapack-netlib/SRC/DEPRECATED/zgegs.f | 5 +- lapack-netlib/SRC/DEPRECATED/zgegv.f | 5 +- lapack-netlib/SRC/DEPRECATED/zgelsx.f | 5 +- lapack-netlib/SRC/DEPRECATED/zgeqpf.f | 5 +- lapack-netlib/SRC/DEPRECATED/zggsvd.f | 5 +- lapack-netlib/SRC/DEPRECATED/zggsvp.f | 5 +- lapack-netlib/SRC/DEPRECATED/zlahrd.f | 5 +- lapack-netlib/SRC/DEPRECATED/zlatzm.f | 5 +- lapack-netlib/SRC/DEPRECATED/ztzrqf.f | 5 +- lapack-netlib/SRC/Makefile | 6 +- .../SRC/VARIANTS/cholesky/RL/cpotrf.f | 3 +- .../SRC/VARIANTS/cholesky/RL/dpotrf.f | 3 +- .../SRC/VARIANTS/cholesky/RL/spotrf.f | 3 +- .../SRC/VARIANTS/cholesky/RL/zpotrf.f | 3 +- .../SRC/VARIANTS/cholesky/TOP/cpotrf.f | 3 +- .../SRC/VARIANTS/cholesky/TOP/dpotrf.f | 3 +- .../SRC/VARIANTS/cholesky/TOP/spotrf.f | 3 +- .../SRC/VARIANTS/cholesky/TOP/zpotrf.f | 3 +- lapack-netlib/SRC/VARIANTS/lu/CR/cgetrf.f | 3 +- lapack-netlib/SRC/VARIANTS/lu/CR/dgetrf.f | 3 +- lapack-netlib/SRC/VARIANTS/lu/CR/sgetrf.f | 3 +- lapack-netlib/SRC/VARIANTS/lu/CR/zgetrf.f | 3 +- lapack-netlib/SRC/VARIANTS/lu/LL/cgetrf.f | 3 +- lapack-netlib/SRC/VARIANTS/lu/LL/dgetrf.f | 3 +- lapack-netlib/SRC/VARIANTS/lu/LL/sgetrf.f | 3 +- lapack-netlib/SRC/VARIANTS/lu/LL/zgetrf.f | 3 +- lapack-netlib/SRC/VARIANTS/lu/REC/cgetrf.f | 1 - lapack-netlib/SRC/VARIANTS/lu/REC/dgetrf.f | 1 - lapack-netlib/SRC/VARIANTS/lu/REC/sgetrf.f | 1 - lapack-netlib/SRC/VARIANTS/lu/REC/zgetrf.f | 1 - lapack-netlib/SRC/VARIANTS/qr/LL/cgeqrf.f | 3 +- lapack-netlib/SRC/VARIANTS/qr/LL/dgeqrf.f | 3 +- lapack-netlib/SRC/VARIANTS/qr/LL/sceil.f | 3 +- lapack-netlib/SRC/VARIANTS/qr/LL/sgeqrf.f | 3 +- lapack-netlib/SRC/VARIANTS/qr/LL/zgeqrf.f | 3 +- lapack-netlib/SRC/cbbcsd.f | 12 +- lapack-netlib/SRC/cbdsqr.f | 5 +- lapack-netlib/SRC/cgbbrd.f | 5 +- lapack-netlib/SRC/cgbcon.f | 5 +- lapack-netlib/SRC/cgbequ.f | 5 +- lapack-netlib/SRC/cgbequb.f | 5 +- lapack-netlib/SRC/cgbrfs.f | 5 +- lapack-netlib/SRC/cgbrfsx.f | 11 +- lapack-netlib/SRC/cgbsv.f | 5 +- lapack-netlib/SRC/cgbsvx.f | 5 +- lapack-netlib/SRC/cgbsvxx.f | 13 +- lapack-netlib/SRC/cgbtf2.f | 5 +- lapack-netlib/SRC/cgbtrf.f | 5 +- lapack-netlib/SRC/cgbtrs.f | 5 +- lapack-netlib/SRC/cgebak.f | 5 +- lapack-netlib/SRC/cgebal.f | 5 +- lapack-netlib/SRC/cgebd2.f | 13 +- lapack-netlib/SRC/cgebrd.f | 5 +- lapack-netlib/SRC/cgecon.f | 5 +- lapack-netlib/SRC/cgeequ.f | 5 +- lapack-netlib/SRC/cgeequb.f | 5 +- lapack-netlib/SRC/cgees.f | 7 +- lapack-netlib/SRC/cgeesx.f | 7 +- lapack-netlib/SRC/cgeev.f | 4 +- lapack-netlib/SRC/cgeevx.f | 4 +- lapack-netlib/SRC/cgehd2.f | 5 +- lapack-netlib/SRC/cgehrd.f | 9 +- lapack-netlib/SRC/cgejsv.f | 47 +- lapack-netlib/SRC/cgelq.f | 3 +- lapack-netlib/SRC/cgelq2.f | 7 +- lapack-netlib/SRC/cgelqf.f | 7 +- lapack-netlib/SRC/cgelqt.f | 5 +- lapack-netlib/SRC/cgelqt3.f | 9 +- lapack-netlib/SRC/cgels.f | 5 +- lapack-netlib/SRC/cgelsd.f | 5 +- lapack-netlib/SRC/cgelss.f | 31 +- lapack-netlib/SRC/cgelsy.f | 5 +- lapack-netlib/SRC/cgemlq.f | 11 +- lapack-netlib/SRC/cgemlqt.f | 23 +- lapack-netlib/SRC/cgemqr.f | 11 +- lapack-netlib/SRC/cgemqrt.f | 7 +- lapack-netlib/SRC/cgeql2.f | 5 +- lapack-netlib/SRC/cgeqlf.f | 5 +- lapack-netlib/SRC/cgeqp3.f | 5 +- lapack-netlib/SRC/cgeqr.f | 3 +- lapack-netlib/SRC/cgeqr2.f | 5 +- lapack-netlib/SRC/cgeqr2p.f | 5 +- lapack-netlib/SRC/cgeqrf.f | 23 +- lapack-netlib/SRC/cgeqrfp.f | 5 +- lapack-netlib/SRC/cgeqrt.f | 5 +- lapack-netlib/SRC/cgeqrt3.f | 5 +- lapack-netlib/SRC/cgerfs.f | 5 +- lapack-netlib/SRC/cgerfsx.f | 5 +- lapack-netlib/SRC/cgerq2.f | 5 +- lapack-netlib/SRC/cgerqf.f | 13 +- lapack-netlib/SRC/cgesc2.f | 5 +- lapack-netlib/SRC/cgesdd.f | 17 +- lapack-netlib/SRC/cgesv.f | 5 +- lapack-netlib/SRC/cgesvd.f | 5 +- lapack-netlib/SRC/cgesvdq.f | 8 +- lapack-netlib/SRC/cgesvdx.f | 5 +- lapack-netlib/SRC/cgesvj.f | 7 +- lapack-netlib/SRC/cgesvx.f | 5 +- lapack-netlib/SRC/cgesvxx.f | 5 +- lapack-netlib/SRC/cgetc2.f | 5 +- lapack-netlib/SRC/cgetf2.f | 5 +- lapack-netlib/SRC/cgetrf.f | 5 +- lapack-netlib/SRC/cgetrf2.f | 5 +- lapack-netlib/SRC/cgetri.f | 5 +- lapack-netlib/SRC/cgetrs.f | 5 +- lapack-netlib/SRC/cgetsls.f | 22 +- lapack-netlib/SRC/cggbak.f | 5 +- lapack-netlib/SRC/cggbal.f | 5 +- lapack-netlib/SRC/cgges.f | 5 +- lapack-netlib/SRC/cgges3.f | 17 +- lapack-netlib/SRC/cggesx.f | 5 +- lapack-netlib/SRC/cggev.f | 9 +- lapack-netlib/SRC/cggev3.f | 23 +- lapack-netlib/SRC/cggevx.f | 9 +- lapack-netlib/SRC/cggglm.f | 7 +- lapack-netlib/SRC/cgghd3.f | 7 +- lapack-netlib/SRC/cgghrd.f | 5 +- lapack-netlib/SRC/cgglse.f | 7 +- lapack-netlib/SRC/cggqrf.f | 7 +- lapack-netlib/SRC/cggrqf.f | 7 +- lapack-netlib/SRC/cggsvd3.f | 5 +- lapack-netlib/SRC/cggsvp3.f | 5 +- lapack-netlib/SRC/cgsvj0.f | 5 +- lapack-netlib/SRC/cgsvj1.f | 9 +- lapack-netlib/SRC/cgtcon.f | 5 +- lapack-netlib/SRC/cgtrfs.f | 5 +- lapack-netlib/SRC/cgtsv.f | 5 +- lapack-netlib/SRC/cgtsvx.f | 5 +- lapack-netlib/SRC/cgttrf.f | 5 +- lapack-netlib/SRC/cgttrs.f | 5 +- lapack-netlib/SRC/cgtts2.f | 5 +- lapack-netlib/SRC/chb2st_kernels.f | 5 +- lapack-netlib/SRC/chbev.f | 9 +- lapack-netlib/SRC/chbev_2stage.f | 5 +- lapack-netlib/SRC/chbevd.f | 7 +- lapack-netlib/SRC/chbevd_2stage.f | 5 +- lapack-netlib/SRC/chbevx.f | 7 +- lapack-netlib/SRC/chbevx_2stage.f | 5 +- lapack-netlib/SRC/chbgst.f | 5 +- lapack-netlib/SRC/chbgv.f | 5 +- lapack-netlib/SRC/chbgvd.f | 5 +- lapack-netlib/SRC/chbgvx.f | 5 +- lapack-netlib/SRC/chbtrd.f | 9 +- lapack-netlib/SRC/checon.f | 5 +- lapack-netlib/SRC/checon_3.f | 5 +- lapack-netlib/SRC/checon_rook.f | 5 +- lapack-netlib/SRC/cheequb.f | 13 +- lapack-netlib/SRC/cheev.f | 7 +- lapack-netlib/SRC/cheev_2stage.f | 5 +- lapack-netlib/SRC/cheevd.f | 7 +- lapack-netlib/SRC/cheevd_2stage.f | 5 +- lapack-netlib/SRC/cheevr.f | 7 +- lapack-netlib/SRC/cheevr_2stage.f | 7 +- lapack-netlib/SRC/cheevx.f | 9 +- lapack-netlib/SRC/cheevx_2stage.f | 5 +- lapack-netlib/SRC/chegs2.f | 21 +- lapack-netlib/SRC/chegst.f | 5 +- lapack-netlib/SRC/chegv.f | 5 +- lapack-netlib/SRC/chegv_2stage.f | 5 +- lapack-netlib/SRC/chegvd.f | 5 +- lapack-netlib/SRC/chegvx.f | 5 +- lapack-netlib/SRC/cherfs.f | 5 +- lapack-netlib/SRC/cherfsx.f | 13 +- lapack-netlib/SRC/chesv.f | 5 +- lapack-netlib/SRC/chesv_aa.f | 5 +- lapack-netlib/SRC/chesv_aa_2stage.f | 5 +- lapack-netlib/SRC/chesv_rk.f | 7 +- lapack-netlib/SRC/chesv_rook.f | 5 +- lapack-netlib/SRC/chesvx.f | 5 +- lapack-netlib/SRC/chesvxx.f | 11 +- lapack-netlib/SRC/cheswapr.f | 5 +- lapack-netlib/SRC/chetd2.f | 17 +- lapack-netlib/SRC/chetf2.f | 5 +- lapack-netlib/SRC/chetf2_rk.f | 9 +- lapack-netlib/SRC/chetf2_rook.f | 9 +- lapack-netlib/SRC/chetrd.f | 9 +- lapack-netlib/SRC/chetrd_2stage.f | 5 +- lapack-netlib/SRC/chetrd_hb2st.F | 17 +- lapack-netlib/SRC/chetrd_he2hb.f | 11 +- lapack-netlib/SRC/chetrf.f | 5 +- lapack-netlib/SRC/chetrf_aa.f | 6 +- lapack-netlib/SRC/chetrf_aa_2stage.f | 5 +- lapack-netlib/SRC/chetrf_rk.f | 5 +- lapack-netlib/SRC/chetrf_rook.f | 7 +- lapack-netlib/SRC/chetri.f | 5 +- lapack-netlib/SRC/chetri2.f | 5 +- lapack-netlib/SRC/chetri2x.f | 5 +- lapack-netlib/SRC/chetri_3.f | 5 +- lapack-netlib/SRC/chetri_3x.f | 5 +- lapack-netlib/SRC/chetri_rook.f | 5 +- lapack-netlib/SRC/chetrs.f | 5 +- lapack-netlib/SRC/chetrs2.f | 5 +- lapack-netlib/SRC/chetrs_3.f | 5 +- lapack-netlib/SRC/chetrs_aa.f | 5 +- lapack-netlib/SRC/chetrs_aa_2stage.f | 5 +- lapack-netlib/SRC/chetrs_rook.f | 5 +- lapack-netlib/SRC/chfrk.f | 5 +- lapack-netlib/SRC/chgeqz.f | 22 +- lapack-netlib/SRC/chla_transtype.f | 5 +- lapack-netlib/SRC/chpcon.f | 5 +- lapack-netlib/SRC/chpev.f | 7 +- lapack-netlib/SRC/chpevd.f | 7 +- lapack-netlib/SRC/chpevx.f | 9 +- lapack-netlib/SRC/chpgst.f | 19 +- lapack-netlib/SRC/chpgv.f | 5 +- lapack-netlib/SRC/chpgvd.f | 5 +- lapack-netlib/SRC/chpgvx.f | 5 +- lapack-netlib/SRC/chprfs.f | 5 +- lapack-netlib/SRC/chpsv.f | 5 +- lapack-netlib/SRC/chpsvx.f | 5 +- lapack-netlib/SRC/chptrd.f | 17 +- lapack-netlib/SRC/chptrf.f | 5 +- lapack-netlib/SRC/chptri.f | 5 +- lapack-netlib/SRC/chptrs.f | 5 +- lapack-netlib/SRC/chsein.f | 5 +- lapack-netlib/SRC/chseqr.f | 5 +- lapack-netlib/SRC/cla_gbamv.f | 5 +- lapack-netlib/SRC/cla_gbrcond_c.f | 7 +- lapack-netlib/SRC/cla_gbrcond_x.f | 7 +- lapack-netlib/SRC/cla_gbrfsx_extended.f | 12 +- lapack-netlib/SRC/cla_gbrpvgrw.f | 8 +- lapack-netlib/SRC/cla_geamv.f | 5 +- lapack-netlib/SRC/cla_gercond_c.f | 7 +- lapack-netlib/SRC/cla_gercond_x.f | 7 +- lapack-netlib/SRC/cla_gerfsx_extended.f | 12 +- lapack-netlib/SRC/cla_gerpvgrw.f | 8 +- lapack-netlib/SRC/cla_heamv.f | 5 +- lapack-netlib/SRC/cla_hercond_c.f | 7 +- lapack-netlib/SRC/cla_hercond_x.f | 7 +- lapack-netlib/SRC/cla_herfsx_extended.f | 12 +- lapack-netlib/SRC/cla_herpvgrw.f | 10 +- lapack-netlib/SRC/cla_lin_berr.f | 8 +- lapack-netlib/SRC/cla_porcond_c.f | 7 +- lapack-netlib/SRC/cla_porcond_x.f | 7 +- lapack-netlib/SRC/cla_porfsx_extended.f | 12 +- lapack-netlib/SRC/cla_porpvgrw.f | 8 +- lapack-netlib/SRC/cla_syamv.f | 5 +- lapack-netlib/SRC/cla_syrcond_c.f | 7 +- lapack-netlib/SRC/cla_syrcond_x.f | 7 +- lapack-netlib/SRC/cla_syrfsx_extended.f | 12 +- lapack-netlib/SRC/cla_syrpvgrw.f | 8 +- lapack-netlib/SRC/cla_wwaddw.f | 8 +- lapack-netlib/SRC/clabrd.f | 13 +- lapack-netlib/SRC/clacgv.f | 5 +- lapack-netlib/SRC/clacn2.f | 5 +- lapack-netlib/SRC/clacon.f | 5 +- lapack-netlib/SRC/clacp2.f | 5 +- lapack-netlib/SRC/clacpy.f | 5 +- lapack-netlib/SRC/clacrm.f | 5 +- lapack-netlib/SRC/clacrt.f | 5 +- lapack-netlib/SRC/cladiv.f | 5 +- lapack-netlib/SRC/claed0.f | 7 +- lapack-netlib/SRC/claed7.f | 7 +- lapack-netlib/SRC/claed8.f | 7 +- lapack-netlib/SRC/claein.f | 5 +- lapack-netlib/SRC/claesy.f | 5 +- lapack-netlib/SRC/claev2.f | 5 +- lapack-netlib/SRC/clag2z.f | 5 +- lapack-netlib/SRC/clags2.f | 5 +- lapack-netlib/SRC/clagtm.f | 5 +- lapack-netlib/SRC/clahef.f | 5 +- lapack-netlib/SRC/clahef_aa.f | 5 +- lapack-netlib/SRC/clahef_rk.f | 5 +- lapack-netlib/SRC/clahef_rook.f | 5 +- lapack-netlib/SRC/clahqr.f | 29 +- lapack-netlib/SRC/clahr2.f | 11 +- lapack-netlib/SRC/claic1.f | 25 +- lapack-netlib/SRC/clals0.f | 5 +- lapack-netlib/SRC/clalsa.f | 5 +- lapack-netlib/SRC/clalsd.f | 5 +- lapack-netlib/SRC/clamswlq.f | 41 +- lapack-netlib/SRC/clamtsqr.f | 28 +- lapack-netlib/SRC/clangb.f | 28 +- lapack-netlib/SRC/clange.f | 27 +- lapack-netlib/SRC/clangt.f | 5 +- lapack-netlib/SRC/clanhb.f | 53 +- lapack-netlib/SRC/clanhe.f | 50 +- lapack-netlib/SRC/clanhf.f | 5 +- lapack-netlib/SRC/clanhp.f | 51 +- lapack-netlib/SRC/clanhs.f | 28 +- lapack-netlib/SRC/clanht.f | 5 +- lapack-netlib/SRC/clansb.f | 47 +- lapack-netlib/SRC/clansp.f | 59 +- lapack-netlib/SRC/clansy.f | 45 +- lapack-netlib/SRC/clantb.f | 60 +- lapack-netlib/SRC/clantp.f | 58 +- lapack-netlib/SRC/clantr.f | 59 +- lapack-netlib/SRC/clapll.f | 5 +- lapack-netlib/SRC/clapmr.f | 7 +- lapack-netlib/SRC/clapmt.f | 5 +- lapack-netlib/SRC/claqgb.f | 5 +- lapack-netlib/SRC/claqge.f | 5 +- lapack-netlib/SRC/claqhb.f | 5 +- lapack-netlib/SRC/claqhe.f | 5 +- lapack-netlib/SRC/claqhp.f | 5 +- lapack-netlib/SRC/claqp2.f | 5 +- lapack-netlib/SRC/claqps.f | 5 +- lapack-netlib/SRC/claqr0.f | 5 +- lapack-netlib/SRC/claqr1.f | 5 +- lapack-netlib/SRC/claqr2.f | 5 +- lapack-netlib/SRC/claqr3.f | 5 +- lapack-netlib/SRC/claqr4.f | 5 +- lapack-netlib/SRC/claqr5.f | 5 +- lapack-netlib/SRC/claqsb.f | 5 +- lapack-netlib/SRC/claqsp.f | 5 +- lapack-netlib/SRC/claqsy.f | 5 +- lapack-netlib/SRC/claqz0.f | 691 + lapack-netlib/SRC/claqz1.f | 247 + lapack-netlib/SRC/claqz2.f | 463 + lapack-netlib/SRC/claqz3.f | 511 + lapack-netlib/SRC/clar1v.f | 5 +- lapack-netlib/SRC/clar2v.f | 5 +- lapack-netlib/SRC/clarcm.f | 5 +- lapack-netlib/SRC/clarf.f | 5 +- lapack-netlib/SRC/clarfb.f | 5 +- lapack-netlib/SRC/clarfg.f | 5 +- lapack-netlib/SRC/clarfgp.f | 7 +- lapack-netlib/SRC/clarft.f | 5 +- lapack-netlib/SRC/clarfx.f | 5 +- lapack-netlib/SRC/clarfy.f | 5 +- lapack-netlib/SRC/clargv.f | 5 +- lapack-netlib/SRC/clarnv.f | 7 +- lapack-netlib/SRC/clarrv.f | 5 +- lapack-netlib/SRC/clarscl2.f | 5 +- lapack-netlib/SRC/clartg.f | 250 - lapack-netlib/SRC/clartg.f90 | 233 + lapack-netlib/SRC/clartv.f | 5 +- lapack-netlib/SRC/clarz.f | 5 +- lapack-netlib/SRC/clarzb.f | 5 +- lapack-netlib/SRC/clarzt.f | 5 +- lapack-netlib/SRC/clascl.f | 5 +- lapack-netlib/SRC/clascl2.f | 5 +- lapack-netlib/SRC/claset.f | 5 +- lapack-netlib/SRC/clasr.f | 5 +- lapack-netlib/SRC/classq.f | 168 - lapack-netlib/SRC/classq.f90 | 262 + lapack-netlib/SRC/claswlq.f | 15 +- lapack-netlib/SRC/claswp.f | 5 +- lapack-netlib/SRC/clasyf.f | 5 +- lapack-netlib/SRC/clasyf_aa.f | 5 +- lapack-netlib/SRC/clasyf_rk.f | 5 +- lapack-netlib/SRC/clasyf_rook.f | 5 +- lapack-netlib/SRC/clatbs.f | 5 +- lapack-netlib/SRC/clatdf.f | 5 +- lapack-netlib/SRC/clatps.f | 5 +- lapack-netlib/SRC/clatrd.f | 9 +- lapack-netlib/SRC/clatrs.f | 5 +- lapack-netlib/SRC/clatrz.f | 5 +- lapack-netlib/SRC/clatsqr.f | 11 +- lapack-netlib/SRC/claunhr_col_getrfnp.f | 5 +- lapack-netlib/SRC/claunhr_col_getrfnp2.f | 7 +- lapack-netlib/SRC/clauu2.f | 9 +- lapack-netlib/SRC/clauum.f | 5 +- lapack-netlib/SRC/cpbcon.f | 5 +- lapack-netlib/SRC/cpbequ.f | 5 +- lapack-netlib/SRC/cpbrfs.f | 5 +- lapack-netlib/SRC/cpbstf.f | 5 +- lapack-netlib/SRC/cpbsv.f | 5 +- lapack-netlib/SRC/cpbsvx.f | 5 +- lapack-netlib/SRC/cpbtf2.f | 5 +- lapack-netlib/SRC/cpbtrf.f | 5 +- lapack-netlib/SRC/cpbtrs.f | 5 +- lapack-netlib/SRC/cpftrf.f | 5 +- lapack-netlib/SRC/cpftri.f | 5 +- lapack-netlib/SRC/cpftrs.f | 5 +- lapack-netlib/SRC/cpocon.f | 5 +- lapack-netlib/SRC/cpoequ.f | 5 +- lapack-netlib/SRC/cpoequb.f | 9 +- lapack-netlib/SRC/cporfs.f | 5 +- lapack-netlib/SRC/cporfsx.f | 7 +- lapack-netlib/SRC/cposv.f | 5 +- lapack-netlib/SRC/cposvx.f | 5 +- lapack-netlib/SRC/cposvxx.f | 5 +- lapack-netlib/SRC/cpotf2.f | 13 +- lapack-netlib/SRC/cpotrf.f | 5 +- lapack-netlib/SRC/cpotrf2.f | 5 +- lapack-netlib/SRC/cpotri.f | 5 +- lapack-netlib/SRC/cpotrs.f | 5 +- lapack-netlib/SRC/cppcon.f | 5 +- lapack-netlib/SRC/cppequ.f | 5 +- lapack-netlib/SRC/cpprfs.f | 5 +- lapack-netlib/SRC/cppsv.f | 5 +- lapack-netlib/SRC/cppsvx.f | 5 +- lapack-netlib/SRC/cpptrf.f | 9 +- lapack-netlib/SRC/cpptri.f | 7 +- lapack-netlib/SRC/cpptrs.f | 5 +- lapack-netlib/SRC/cpstf2.f | 5 +- lapack-netlib/SRC/cpstrf.f | 5 +- lapack-netlib/SRC/cptcon.f | 5 +- lapack-netlib/SRC/cpteqr.f | 5 +- lapack-netlib/SRC/cptrfs.f | 5 +- lapack-netlib/SRC/cptsv.f | 5 +- lapack-netlib/SRC/cptsvx.f | 5 +- lapack-netlib/SRC/cpttrf.f | 5 +- lapack-netlib/SRC/cpttrs.f | 5 +- lapack-netlib/SRC/cptts2.f | 5 +- lapack-netlib/SRC/crot.f | 7 +- lapack-netlib/SRC/cspcon.f | 5 +- lapack-netlib/SRC/cspmv.f | 5 +- lapack-netlib/SRC/cspr.f | 5 +- lapack-netlib/SRC/csprfs.f | 5 +- lapack-netlib/SRC/cspsv.f | 5 +- lapack-netlib/SRC/cspsvx.f | 5 +- lapack-netlib/SRC/csptrf.f | 5 +- lapack-netlib/SRC/csptri.f | 5 +- lapack-netlib/SRC/csptrs.f | 5 +- lapack-netlib/SRC/csrscl.f | 5 +- lapack-netlib/SRC/cstedc.f | 5 +- lapack-netlib/SRC/cstegr.f | 5 +- lapack-netlib/SRC/cstein.f | 5 +- lapack-netlib/SRC/cstemr.f | 5 +- lapack-netlib/SRC/csteqr.f | 5 +- lapack-netlib/SRC/csycon.f | 5 +- lapack-netlib/SRC/csycon_3.f | 5 +- lapack-netlib/SRC/csycon_rook.f | 5 +- lapack-netlib/SRC/csyconv.f | 5 +- lapack-netlib/SRC/csyconvf.f | 9 +- lapack-netlib/SRC/csyconvf_rook.f | 5 +- lapack-netlib/SRC/csyequb.f | 13 +- lapack-netlib/SRC/csymv.f | 5 +- lapack-netlib/SRC/csyr.f | 5 +- lapack-netlib/SRC/csyrfs.f | 5 +- lapack-netlib/SRC/csyrfsx.f | 11 +- lapack-netlib/SRC/csysv.f | 7 +- lapack-netlib/SRC/csysv_aa.f | 5 +- lapack-netlib/SRC/csysv_aa_2stage.f | 11 +- lapack-netlib/SRC/csysv_rk.f | 7 +- lapack-netlib/SRC/csysv_rook.f | 7 +- lapack-netlib/SRC/csysvx.f | 5 +- lapack-netlib/SRC/csysvxx.f | 11 +- lapack-netlib/SRC/csyswapr.f | 5 +- lapack-netlib/SRC/csytf2.f | 5 +- lapack-netlib/SRC/csytf2_rk.f | 5 +- lapack-netlib/SRC/csytf2_rook.f | 5 +- lapack-netlib/SRC/csytrf.f | 5 +- lapack-netlib/SRC/csytrf_aa.f | 6 +- lapack-netlib/SRC/csytrf_aa_2stage.f | 5 +- lapack-netlib/SRC/csytrf_rk.f | 5 +- lapack-netlib/SRC/csytrf_rook.f | 5 +- lapack-netlib/SRC/csytri.f | 5 +- lapack-netlib/SRC/csytri2.f | 5 +- lapack-netlib/SRC/csytri2x.f | 5 +- lapack-netlib/SRC/csytri_3.f | 5 +- lapack-netlib/SRC/csytri_3x.f | 5 +- lapack-netlib/SRC/csytri_rook.f | 5 +- lapack-netlib/SRC/csytrs.f | 5 +- lapack-netlib/SRC/csytrs2.f | 5 +- lapack-netlib/SRC/csytrs_3.f | 5 +- lapack-netlib/SRC/csytrs_aa.f | 5 +- lapack-netlib/SRC/csytrs_aa_2stage.f | 5 +- lapack-netlib/SRC/csytrs_rook.f | 5 +- lapack-netlib/SRC/ctbcon.f | 5 +- lapack-netlib/SRC/ctbrfs.f | 5 +- lapack-netlib/SRC/ctbtrs.f | 5 +- lapack-netlib/SRC/ctfsm.f | 5 +- lapack-netlib/SRC/ctftri.f | 5 +- lapack-netlib/SRC/ctfttp.f | 5 +- lapack-netlib/SRC/ctfttr.f | 5 +- lapack-netlib/SRC/ctgevc.f | 5 +- lapack-netlib/SRC/ctgex2.f | 43 +- lapack-netlib/SRC/ctgexc.f | 5 +- lapack-netlib/SRC/ctgsen.f | 5 +- lapack-netlib/SRC/ctgsja.f | 5 +- lapack-netlib/SRC/ctgsna.f | 5 +- lapack-netlib/SRC/ctgsy2.f | 5 +- lapack-netlib/SRC/ctgsyl.f | 7 +- lapack-netlib/SRC/ctpcon.f | 5 +- lapack-netlib/SRC/ctplqt.f | 5 +- lapack-netlib/SRC/ctplqt2.f | 5 +- lapack-netlib/SRC/ctpmlqt.f | 25 +- lapack-netlib/SRC/ctpmqrt.f | 7 +- lapack-netlib/SRC/ctpqrt.f | 5 +- lapack-netlib/SRC/ctpqrt2.f | 5 +- lapack-netlib/SRC/ctprfb.f | 5 +- lapack-netlib/SRC/ctprfs.f | 5 +- lapack-netlib/SRC/ctptri.f | 5 +- lapack-netlib/SRC/ctptrs.f | 5 +- lapack-netlib/SRC/ctpttf.f | 5 +- lapack-netlib/SRC/ctpttr.f | 5 +- lapack-netlib/SRC/ctrcon.f | 5 +- lapack-netlib/SRC/ctrevc.f | 5 +- lapack-netlib/SRC/ctrevc3.f | 7 +- lapack-netlib/SRC/ctrexc.f | 5 +- lapack-netlib/SRC/ctrrfs.f | 5 +- lapack-netlib/SRC/ctrsen.f | 5 +- lapack-netlib/SRC/ctrsna.f | 5 +- lapack-netlib/SRC/ctrsyl.f | 5 +- lapack-netlib/SRC/ctrti2.f | 5 +- lapack-netlib/SRC/ctrtri.f | 5 +- lapack-netlib/SRC/ctrtrs.f | 5 +- lapack-netlib/SRC/ctrttf.f | 5 +- lapack-netlib/SRC/ctrttp.f | 5 +- lapack-netlib/SRC/ctzrzf.f | 7 +- lapack-netlib/SRC/cunbdb.f | 5 +- lapack-netlib/SRC/cunbdb1.f | 5 +- lapack-netlib/SRC/cunbdb2.f | 5 +- lapack-netlib/SRC/cunbdb3.f | 5 +- lapack-netlib/SRC/cunbdb4.f | 5 +- lapack-netlib/SRC/cunbdb5.f | 5 +- lapack-netlib/SRC/cunbdb6.f | 5 +- lapack-netlib/SRC/cuncsd.f | 5 +- lapack-netlib/SRC/cuncsd2by1.f | 33 +- lapack-netlib/SRC/cung2l.f | 5 +- lapack-netlib/SRC/cung2r.f | 5 +- lapack-netlib/SRC/cungbr.f | 7 +- lapack-netlib/SRC/cunghr.f | 5 +- lapack-netlib/SRC/cungl2.f | 5 +- lapack-netlib/SRC/cunglq.f | 5 +- lapack-netlib/SRC/cungql.f | 5 +- lapack-netlib/SRC/cungqr.f | 5 +- lapack-netlib/SRC/cungr2.f | 5 +- lapack-netlib/SRC/cungrq.f | 5 +- lapack-netlib/SRC/cungtr.f | 5 +- lapack-netlib/SRC/cungtsqr.f | 14 +- lapack-netlib/SRC/cunhr_col.f | 14 +- lapack-netlib/SRC/cunm22.f | 5 +- lapack-netlib/SRC/cunm2l.f | 5 +- lapack-netlib/SRC/cunm2r.f | 5 +- lapack-netlib/SRC/cunmbr.f | 18 +- lapack-netlib/SRC/cunmhr.f | 13 +- lapack-netlib/SRC/cunml2.f | 5 +- lapack-netlib/SRC/cunmlq.f | 15 +- lapack-netlib/SRC/cunmql.f | 9 +- lapack-netlib/SRC/cunmqr.f | 15 +- lapack-netlib/SRC/cunmr2.f | 5 +- lapack-netlib/SRC/cunmr3.f | 5 +- lapack-netlib/SRC/cunmrq.f | 9 +- lapack-netlib/SRC/cunmrz.f | 9 +- lapack-netlib/SRC/cunmtr.f | 13 +- lapack-netlib/SRC/cupgtr.f | 5 +- lapack-netlib/SRC/cupmtr.f | 5 +- lapack-netlib/SRC/dbbcsd.f | 12 +- lapack-netlib/SRC/dbdsdc.f | 5 +- lapack-netlib/SRC/dbdsqr.f | 5 +- lapack-netlib/SRC/dbdsvdx.f | 5 +- lapack-netlib/SRC/ddisna.f | 5 +- lapack-netlib/SRC/dgbbrd.f | 5 +- lapack-netlib/SRC/dgbcon.f | 5 +- lapack-netlib/SRC/dgbequ.f | 5 +- lapack-netlib/SRC/dgbequb.f | 5 +- lapack-netlib/SRC/dgbrfs.f | 5 +- lapack-netlib/SRC/dgbrfsx.f | 5 +- lapack-netlib/SRC/dgbsv.f | 5 +- lapack-netlib/SRC/dgbsvx.f | 5 +- lapack-netlib/SRC/dgbsvxx.f | 5 +- lapack-netlib/SRC/dgbtf2.f | 5 +- lapack-netlib/SRC/dgbtrf.f | 5 +- lapack-netlib/SRC/dgbtrs.f | 5 +- lapack-netlib/SRC/dgebak.f | 5 +- lapack-netlib/SRC/dgebal.f | 5 +- lapack-netlib/SRC/dgebd2.f | 5 +- lapack-netlib/SRC/dgebrd.f | 5 +- lapack-netlib/SRC/dgecon.f | 5 +- lapack-netlib/SRC/dgeequ.f | 5 +- lapack-netlib/SRC/dgeequb.f | 5 +- lapack-netlib/SRC/dgees.f | 5 +- lapack-netlib/SRC/dgeesx.f | 5 +- lapack-netlib/SRC/dgeev.f | 4 +- lapack-netlib/SRC/dgeevx.f | 4 +- lapack-netlib/SRC/dgehd2.f | 5 +- lapack-netlib/SRC/dgehrd.f | 5 +- lapack-netlib/SRC/dgejsv.f | 9 +- lapack-netlib/SRC/dgelq.f | 3 +- lapack-netlib/SRC/dgelq2.f | 7 +- lapack-netlib/SRC/dgelqf.f | 7 +- lapack-netlib/SRC/dgelqt.f | 7 +- lapack-netlib/SRC/dgelqt3.f | 9 +- lapack-netlib/SRC/dgels.f | 5 +- lapack-netlib/SRC/dgelsd.f | 5 +- lapack-netlib/SRC/dgelss.f | 5 +- lapack-netlib/SRC/dgelsy.f | 5 +- lapack-netlib/SRC/dgemlq.f | 3 +- lapack-netlib/SRC/dgemlqt.f | 11 +- lapack-netlib/SRC/dgemqr.f | 3 +- lapack-netlib/SRC/dgemqrt.f | 11 +- lapack-netlib/SRC/dgeql2.f | 5 +- lapack-netlib/SRC/dgeqlf.f | 5 +- lapack-netlib/SRC/dgeqp3.f | 5 +- lapack-netlib/SRC/dgeqr.f | 3 +- lapack-netlib/SRC/dgeqr2.f | 5 +- lapack-netlib/SRC/dgeqr2p.f | 5 +- lapack-netlib/SRC/dgeqrf.f | 23 +- lapack-netlib/SRC/dgeqrfp.f | 5 +- lapack-netlib/SRC/dgeqrt.f | 5 +- lapack-netlib/SRC/dgeqrt3.f | 5 +- lapack-netlib/SRC/dgerfs.f | 5 +- lapack-netlib/SRC/dgerfsx.f | 5 +- lapack-netlib/SRC/dgerq2.f | 5 +- lapack-netlib/SRC/dgerqf.f | 13 +- lapack-netlib/SRC/dgesc2.f | 5 +- lapack-netlib/SRC/dgesdd.f | 17 +- lapack-netlib/SRC/dgesv.f | 5 +- lapack-netlib/SRC/dgesvd.f | 5 +- lapack-netlib/SRC/dgesvdq.f | 12 +- lapack-netlib/SRC/dgesvdx.f | 5 +- lapack-netlib/SRC/dgesvj.f | 7 +- lapack-netlib/SRC/dgesvx.f | 5 +- lapack-netlib/SRC/dgesvxx.f | 5 +- lapack-netlib/SRC/dgetc2.f | 5 +- lapack-netlib/SRC/dgetf2.f | 5 +- lapack-netlib/SRC/dgetrf.f | 5 +- lapack-netlib/SRC/dgetrf2.f | 5 +- lapack-netlib/SRC/dgetri.f | 5 +- lapack-netlib/SRC/dgetrs.f | 5 +- lapack-netlib/SRC/dgetsls.f | 22 +- lapack-netlib/SRC/dggbak.f | 5 +- lapack-netlib/SRC/dggbal.f | 5 +- lapack-netlib/SRC/dgges.f | 5 +- lapack-netlib/SRC/dgges3.f | 17 +- lapack-netlib/SRC/dggesx.f | 5 +- lapack-netlib/SRC/dggev.f | 5 +- lapack-netlib/SRC/dggev3.f | 21 +- lapack-netlib/SRC/dggevx.f | 5 +- lapack-netlib/SRC/dggglm.f | 5 +- lapack-netlib/SRC/dgghd3.f | 7 +- lapack-netlib/SRC/dgghrd.f | 5 +- lapack-netlib/SRC/dgglse.f | 5 +- lapack-netlib/SRC/dggqrf.f | 5 +- lapack-netlib/SRC/dggrqf.f | 5 +- lapack-netlib/SRC/dggsvd3.f | 5 +- lapack-netlib/SRC/dggsvp3.f | 5 +- lapack-netlib/SRC/dgsvj0.f | 7 +- lapack-netlib/SRC/dgsvj1.f | 9 +- lapack-netlib/SRC/dgtcon.f | 5 +- lapack-netlib/SRC/dgtrfs.f | 5 +- lapack-netlib/SRC/dgtsv.f | 5 +- lapack-netlib/SRC/dgtsvx.f | 5 +- lapack-netlib/SRC/dgttrf.f | 5 +- lapack-netlib/SRC/dgttrs.f | 5 +- lapack-netlib/SRC/dgtts2.f | 5 +- lapack-netlib/SRC/dhgeqz.f | 22 +- lapack-netlib/SRC/dhsein.f | 5 +- lapack-netlib/SRC/dhseqr.f | 5 +- lapack-netlib/SRC/disnan.f | 5 +- lapack-netlib/SRC/dla_gbamv.f | 5 +- lapack-netlib/SRC/dla_gbrcond.f | 7 +- lapack-netlib/SRC/dla_gbrfsx_extended.f | 12 +- lapack-netlib/SRC/dla_gbrpvgrw.f | 8 +- lapack-netlib/SRC/dla_geamv.f | 5 +- lapack-netlib/SRC/dla_gercond.f | 7 +- lapack-netlib/SRC/dla_gerfsx_extended.f | 12 +- lapack-netlib/SRC/dla_gerpvgrw.f | 8 +- lapack-netlib/SRC/dla_lin_berr.f | 8 +- lapack-netlib/SRC/dla_porcond.f | 7 +- lapack-netlib/SRC/dla_porfsx_extended.f | 12 +- lapack-netlib/SRC/dla_porpvgrw.f | 8 +- lapack-netlib/SRC/dla_syamv.f | 5 +- lapack-netlib/SRC/dla_syrcond.f | 7 +- lapack-netlib/SRC/dla_syrfsx_extended.f | 12 +- lapack-netlib/SRC/dla_syrpvgrw.f | 8 +- lapack-netlib/SRC/dla_wwaddw.f | 8 +- lapack-netlib/SRC/dlabad.f | 5 +- lapack-netlib/SRC/dlabrd.f | 5 +- lapack-netlib/SRC/dlacn2.f | 28 +- lapack-netlib/SRC/dlacon.f | 5 +- lapack-netlib/SRC/dlacpy.f | 5 +- lapack-netlib/SRC/dladiv.f | 13 +- lapack-netlib/SRC/dlae2.f | 5 +- lapack-netlib/SRC/dlaebz.f | 5 +- lapack-netlib/SRC/dlaed0.f | 7 +- lapack-netlib/SRC/dlaed1.f | 7 +- lapack-netlib/SRC/dlaed2.f | 7 +- lapack-netlib/SRC/dlaed3.f | 7 +- lapack-netlib/SRC/dlaed4.f | 7 +- lapack-netlib/SRC/dlaed5.f | 9 +- lapack-netlib/SRC/dlaed6.f | 7 +- lapack-netlib/SRC/dlaed7.f | 7 +- lapack-netlib/SRC/dlaed8.f | 7 +- lapack-netlib/SRC/dlaed9.f | 7 +- lapack-netlib/SRC/dlaeda.f | 7 +- lapack-netlib/SRC/dlaein.f | 5 +- lapack-netlib/SRC/dlaev2.f | 5 +- lapack-netlib/SRC/dlaexc.f | 7 +- lapack-netlib/SRC/dlag2.f | 5 +- lapack-netlib/SRC/dlag2s.f | 5 +- lapack-netlib/SRC/dlags2.f | 5 +- lapack-netlib/SRC/dlagtf.f | 5 +- lapack-netlib/SRC/dlagtm.f | 5 +- lapack-netlib/SRC/dlagts.f | 5 +- lapack-netlib/SRC/dlagv2.f | 5 +- lapack-netlib/SRC/dlahqr.f | 30 +- lapack-netlib/SRC/dlahr2.f | 5 +- lapack-netlib/SRC/dlaic1.f | 5 +- lapack-netlib/SRC/dlaisnan.f | 5 +- lapack-netlib/SRC/dlaln2.f | 5 +- lapack-netlib/SRC/dlals0.f | 5 +- lapack-netlib/SRC/dlalsa.f | 5 +- lapack-netlib/SRC/dlalsd.f | 5 +- lapack-netlib/SRC/dlamrg.f | 5 +- lapack-netlib/SRC/dlamswlq.f | 33 +- lapack-netlib/SRC/dlamtsqr.f | 18 +- lapack-netlib/SRC/dlaneg.f | 5 +- lapack-netlib/SRC/dlangb.f | 31 +- lapack-netlib/SRC/dlange.f | 27 +- lapack-netlib/SRC/dlangt.f | 5 +- lapack-netlib/SRC/dlanhs.f | 30 +- lapack-netlib/SRC/dlansb.f | 49 +- lapack-netlib/SRC/dlansf.f | 5 +- lapack-netlib/SRC/dlansp.f | 53 +- lapack-netlib/SRC/dlanst.f | 5 +- lapack-netlib/SRC/dlansy.f | 47 +- lapack-netlib/SRC/dlantb.f | 62 +- lapack-netlib/SRC/dlantp.f | 60 +- lapack-netlib/SRC/dlantr.f | 61 +- lapack-netlib/SRC/dlanv2.f | 5 +- lapack-netlib/SRC/dlaorhr_col_getrfnp.f | 5 +- lapack-netlib/SRC/dlaorhr_col_getrfnp2.f | 7 +- lapack-netlib/SRC/dlapll.f | 5 +- lapack-netlib/SRC/dlapmr.f | 7 +- lapack-netlib/SRC/dlapmt.f | 5 +- lapack-netlib/SRC/dlapy2.f | 15 +- lapack-netlib/SRC/dlapy3.f | 15 +- lapack-netlib/SRC/dlaqgb.f | 5 +- lapack-netlib/SRC/dlaqge.f | 5 +- lapack-netlib/SRC/dlaqp2.f | 5 +- lapack-netlib/SRC/dlaqps.f | 5 +- lapack-netlib/SRC/dlaqr0.f | 5 +- lapack-netlib/SRC/dlaqr1.f | 5 +- lapack-netlib/SRC/dlaqr2.f | 5 +- lapack-netlib/SRC/dlaqr3.f | 5 +- lapack-netlib/SRC/dlaqr4.f | 5 +- lapack-netlib/SRC/dlaqr5.f | 5 +- lapack-netlib/SRC/dlaqsb.f | 5 +- lapack-netlib/SRC/dlaqsp.f | 5 +- lapack-netlib/SRC/dlaqsy.f | 5 +- lapack-netlib/SRC/dlaqtr.f | 5 +- lapack-netlib/SRC/dlaqz0.f | 753 + lapack-netlib/SRC/dlaqz1.f | 194 + lapack-netlib/SRC/dlaqz2.f | 317 + lapack-netlib/SRC/dlaqz3.f | 565 + lapack-netlib/SRC/dlaqz4.f | 532 + lapack-netlib/SRC/dlar1v.f | 5 +- lapack-netlib/SRC/dlar2v.f | 5 +- lapack-netlib/SRC/dlarf.f | 5 +- lapack-netlib/SRC/dlarfb.f | 5 +- lapack-netlib/SRC/dlarfg.f | 5 +- lapack-netlib/SRC/dlarfgp.f | 5 +- lapack-netlib/SRC/dlarft.f | 5 +- lapack-netlib/SRC/dlarfx.f | 5 +- lapack-netlib/SRC/dlarfy.f | 5 +- lapack-netlib/SRC/dlargv.f | 5 +- lapack-netlib/SRC/dlarnv.f | 7 +- lapack-netlib/SRC/dlarra.f | 5 +- lapack-netlib/SRC/dlarrb.f | 5 +- lapack-netlib/SRC/dlarrc.f | 7 +- lapack-netlib/SRC/dlarrd.f | 5 +- lapack-netlib/SRC/dlarre.f | 7 +- lapack-netlib/SRC/dlarrf.f | 5 +- lapack-netlib/SRC/dlarrj.f | 5 +- lapack-netlib/SRC/dlarrk.f | 5 +- lapack-netlib/SRC/dlarrr.f | 7 +- lapack-netlib/SRC/dlarrv.f | 5 +- lapack-netlib/SRC/dlarscl2.f | 5 +- lapack-netlib/SRC/dlartg.f | 204 - lapack-netlib/SRC/dlartg.f90 | 162 + lapack-netlib/SRC/dlartgp.f | 5 +- lapack-netlib/SRC/dlartgs.f | 5 +- lapack-netlib/SRC/dlartv.f | 5 +- lapack-netlib/SRC/dlaruv.f | 5 +- lapack-netlib/SRC/dlarz.f | 5 +- lapack-netlib/SRC/dlarzb.f | 5 +- lapack-netlib/SRC/dlarzt.f | 5 +- lapack-netlib/SRC/dlas2.f | 5 +- lapack-netlib/SRC/dlascl.f | 5 +- lapack-netlib/SRC/dlascl2.f | 5 +- lapack-netlib/SRC/dlasd0.f | 5 +- lapack-netlib/SRC/dlasd1.f | 5 +- lapack-netlib/SRC/dlasd2.f | 5 +- lapack-netlib/SRC/dlasd3.f | 5 +- lapack-netlib/SRC/dlasd4.f | 5 +- lapack-netlib/SRC/dlasd5.f | 5 +- lapack-netlib/SRC/dlasd6.f | 5 +- lapack-netlib/SRC/dlasd7.f | 5 +- lapack-netlib/SRC/dlasd8.f | 5 +- lapack-netlib/SRC/dlasda.f | 5 +- lapack-netlib/SRC/dlasdq.f | 5 +- lapack-netlib/SRC/dlasdt.f | 5 +- lapack-netlib/SRC/dlaset.f | 5 +- lapack-netlib/SRC/dlasq1.f | 5 +- lapack-netlib/SRC/dlasq2.f | 8 +- lapack-netlib/SRC/dlasq3.f | 5 +- lapack-netlib/SRC/dlasq4.f | 5 +- lapack-netlib/SRC/dlasq5.f | 5 +- lapack-netlib/SRC/dlasq6.f | 5 +- lapack-netlib/SRC/dlasr.f | 5 +- lapack-netlib/SRC/dlasrt.f | 5 +- lapack-netlib/SRC/dlassq.f | 155 - lapack-netlib/SRC/dlassq.f90 | 253 + lapack-netlib/SRC/dlasv2.f | 5 +- lapack-netlib/SRC/dlaswlq.f | 15 +- lapack-netlib/SRC/dlaswp.f | 5 +- lapack-netlib/SRC/dlasy2.f | 5 +- lapack-netlib/SRC/dlasyf.f | 5 +- lapack-netlib/SRC/dlasyf_aa.f | 5 +- lapack-netlib/SRC/dlasyf_rk.f | 5 +- lapack-netlib/SRC/dlasyf_rook.f | 5 +- lapack-netlib/SRC/dlat2s.f | 5 +- lapack-netlib/SRC/dlatbs.f | 5 +- lapack-netlib/SRC/dlatdf.f | 5 +- lapack-netlib/SRC/dlatps.f | 5 +- lapack-netlib/SRC/dlatrd.f | 5 +- lapack-netlib/SRC/dlatrs.f | 5 +- lapack-netlib/SRC/dlatrz.f | 5 +- lapack-netlib/SRC/dlatsqr.f | 13 +- lapack-netlib/SRC/dlauu2.f | 5 +- lapack-netlib/SRC/dlauum.f | 5 +- lapack-netlib/SRC/dopgtr.f | 5 +- lapack-netlib/SRC/dopmtr.f | 5 +- lapack-netlib/SRC/dorbdb.f | 5 +- lapack-netlib/SRC/dorbdb1.f | 5 +- lapack-netlib/SRC/dorbdb2.f | 5 +- lapack-netlib/SRC/dorbdb3.f | 5 +- lapack-netlib/SRC/dorbdb4.f | 5 +- lapack-netlib/SRC/dorbdb5.f | 5 +- lapack-netlib/SRC/dorbdb6.f | 5 +- lapack-netlib/SRC/dorcsd.f | 5 +- lapack-netlib/SRC/dorcsd2by1.f | 7 +- lapack-netlib/SRC/dorg2l.f | 5 +- lapack-netlib/SRC/dorg2r.f | 5 +- lapack-netlib/SRC/dorgbr.f | 5 +- lapack-netlib/SRC/dorghr.f | 5 +- lapack-netlib/SRC/dorgl2.f | 5 +- lapack-netlib/SRC/dorglq.f | 5 +- lapack-netlib/SRC/dorgql.f | 5 +- lapack-netlib/SRC/dorgqr.f | 5 +- lapack-netlib/SRC/dorgr2.f | 5 +- lapack-netlib/SRC/dorgrq.f | 5 +- lapack-netlib/SRC/dorgtr.f | 5 +- lapack-netlib/SRC/dorgtsqr.f | 8 +- lapack-netlib/SRC/dorhr_col.f | 16 +- lapack-netlib/SRC/dorm22.f | 5 +- lapack-netlib/SRC/dorm2l.f | 5 +- lapack-netlib/SRC/dorm2r.f | 5 +- lapack-netlib/SRC/dormbr.f | 13 +- lapack-netlib/SRC/dormhr.f | 13 +- lapack-netlib/SRC/dorml2.f | 5 +- lapack-netlib/SRC/dormlq.f | 15 +- lapack-netlib/SRC/dormql.f | 7 +- lapack-netlib/SRC/dormqr.f | 15 +- lapack-netlib/SRC/dormr2.f | 5 +- lapack-netlib/SRC/dormr3.f | 5 +- lapack-netlib/SRC/dormrq.f | 7 +- lapack-netlib/SRC/dormrz.f | 9 +- lapack-netlib/SRC/dormtr.f | 13 +- lapack-netlib/SRC/dpbcon.f | 5 +- lapack-netlib/SRC/dpbequ.f | 5 +- lapack-netlib/SRC/dpbrfs.f | 5 +- lapack-netlib/SRC/dpbstf.f | 5 +- lapack-netlib/SRC/dpbsv.f | 5 +- lapack-netlib/SRC/dpbsvx.f | 5 +- lapack-netlib/SRC/dpbtf2.f | 5 +- lapack-netlib/SRC/dpbtrf.f | 5 +- lapack-netlib/SRC/dpbtrs.f | 5 +- lapack-netlib/SRC/dpftrf.f | 5 +- lapack-netlib/SRC/dpftri.f | 5 +- lapack-netlib/SRC/dpftrs.f | 5 +- lapack-netlib/SRC/dpocon.f | 5 +- lapack-netlib/SRC/dpoequ.f | 5 +- lapack-netlib/SRC/dpoequb.f | 5 +- lapack-netlib/SRC/dporfs.f | 5 +- lapack-netlib/SRC/dporfsx.f | 5 +- lapack-netlib/SRC/dposv.f | 5 +- lapack-netlib/SRC/dposvx.f | 5 +- lapack-netlib/SRC/dposvxx.f | 5 +- lapack-netlib/SRC/dpotf2.f | 5 +- lapack-netlib/SRC/dpotrf.f | 5 +- lapack-netlib/SRC/dpotrf2.f | 5 +- lapack-netlib/SRC/dpotri.f | 5 +- lapack-netlib/SRC/dpotrs.f | 5 +- lapack-netlib/SRC/dppcon.f | 5 +- lapack-netlib/SRC/dppequ.f | 5 +- lapack-netlib/SRC/dpprfs.f | 5 +- lapack-netlib/SRC/dppsv.f | 5 +- lapack-netlib/SRC/dppsvx.f | 5 +- lapack-netlib/SRC/dpptrf.f | 5 +- lapack-netlib/SRC/dpptri.f | 5 +- lapack-netlib/SRC/dpptrs.f | 5 +- lapack-netlib/SRC/dpstf2.f | 5 +- lapack-netlib/SRC/dpstrf.f | 5 +- lapack-netlib/SRC/dptcon.f | 5 +- lapack-netlib/SRC/dpteqr.f | 5 +- lapack-netlib/SRC/dptrfs.f | 5 +- lapack-netlib/SRC/dptsv.f | 5 +- lapack-netlib/SRC/dptsvx.f | 5 +- lapack-netlib/SRC/dpttrf.f | 5 +- lapack-netlib/SRC/dpttrs.f | 5 +- lapack-netlib/SRC/dptts2.f | 5 +- lapack-netlib/SRC/drscl.f | 5 +- lapack-netlib/SRC/dsb2st_kernels.f | 5 +- lapack-netlib/SRC/dsbev.f | 5 +- lapack-netlib/SRC/dsbev_2stage.f | 5 +- lapack-netlib/SRC/dsbevd.f | 5 +- lapack-netlib/SRC/dsbevd_2stage.f | 5 +- lapack-netlib/SRC/dsbevx.f | 5 +- lapack-netlib/SRC/dsbevx_2stage.f | 5 +- lapack-netlib/SRC/dsbgst.f | 5 +- lapack-netlib/SRC/dsbgv.f | 5 +- lapack-netlib/SRC/dsbgvd.f | 5 +- lapack-netlib/SRC/dsbgvx.f | 5 +- lapack-netlib/SRC/dsbtrd.f | 5 +- lapack-netlib/SRC/dsfrk.f | 5 +- lapack-netlib/SRC/dsgesv.f | 7 +- lapack-netlib/SRC/dspcon.f | 5 +- lapack-netlib/SRC/dspev.f | 5 +- lapack-netlib/SRC/dspevd.f | 5 +- lapack-netlib/SRC/dspevx.f | 5 +- lapack-netlib/SRC/dspgst.f | 5 +- lapack-netlib/SRC/dspgv.f | 5 +- lapack-netlib/SRC/dspgvd.f | 5 +- lapack-netlib/SRC/dspgvx.f | 5 +- lapack-netlib/SRC/dsposv.f | 7 +- lapack-netlib/SRC/dsprfs.f | 5 +- lapack-netlib/SRC/dspsv.f | 5 +- lapack-netlib/SRC/dspsvx.f | 5 +- lapack-netlib/SRC/dsptrd.f | 5 +- lapack-netlib/SRC/dsptrf.f | 5 +- lapack-netlib/SRC/dsptri.f | 5 +- lapack-netlib/SRC/dsptrs.f | 5 +- lapack-netlib/SRC/dstebz.f | 5 +- lapack-netlib/SRC/dstedc.f | 5 +- lapack-netlib/SRC/dstegr.f | 5 +- lapack-netlib/SRC/dstein.f | 5 +- lapack-netlib/SRC/dstemr.f | 5 +- lapack-netlib/SRC/dsteqr.f | 5 +- lapack-netlib/SRC/dsterf.f | 5 +- lapack-netlib/SRC/dstev.f | 5 +- lapack-netlib/SRC/dstevd.f | 5 +- lapack-netlib/SRC/dstevr.f | 5 +- lapack-netlib/SRC/dstevx.f | 5 +- lapack-netlib/SRC/dsycon.f | 5 +- lapack-netlib/SRC/dsycon_3.f | 5 +- lapack-netlib/SRC/dsycon_rook.f | 5 +- lapack-netlib/SRC/dsyconv.f | 5 +- lapack-netlib/SRC/dsyconvf.f | 9 +- lapack-netlib/SRC/dsyconvf_rook.f | 5 +- lapack-netlib/SRC/dsyequb.f | 5 +- lapack-netlib/SRC/dsyev.f | 5 +- lapack-netlib/SRC/dsyev_2stage.f | 11 +- lapack-netlib/SRC/dsyevd.f | 5 +- lapack-netlib/SRC/dsyevd_2stage.f | 5 +- lapack-netlib/SRC/dsyevr.f | 5 +- lapack-netlib/SRC/dsyevr_2stage.f | 5 +- lapack-netlib/SRC/dsyevx.f | 5 +- lapack-netlib/SRC/dsyevx_2stage.f | 5 +- lapack-netlib/SRC/dsygs2.f | 5 +- lapack-netlib/SRC/dsygst.f | 5 +- lapack-netlib/SRC/dsygv.f | 5 +- lapack-netlib/SRC/dsygv_2stage.f | 5 +- lapack-netlib/SRC/dsygvd.f | 5 +- lapack-netlib/SRC/dsygvx.f | 5 +- lapack-netlib/SRC/dsyrfs.f | 5 +- lapack-netlib/SRC/dsyrfsx.f | 5 +- lapack-netlib/SRC/dsysv.f | 5 +- lapack-netlib/SRC/dsysv_aa.f | 5 +- lapack-netlib/SRC/dsysv_aa_2stage.f | 5 +- lapack-netlib/SRC/dsysv_rk.f | 5 +- lapack-netlib/SRC/dsysv_rook.f | 5 +- lapack-netlib/SRC/dsysvx.f | 5 +- lapack-netlib/SRC/dsysvxx.f | 5 +- lapack-netlib/SRC/dsyswapr.f | 5 +- lapack-netlib/SRC/dsytd2.f | 5 +- lapack-netlib/SRC/dsytf2.f | 5 +- lapack-netlib/SRC/dsytf2_rk.f | 5 +- lapack-netlib/SRC/dsytf2_rook.f | 5 +- lapack-netlib/SRC/dsytrd.f | 5 +- lapack-netlib/SRC/dsytrd_2stage.f | 5 +- lapack-netlib/SRC/dsytrd_sb2st.F | 7 +- lapack-netlib/SRC/dsytrd_sy2sb.f | 11 +- lapack-netlib/SRC/dsytrf.f | 5 +- lapack-netlib/SRC/dsytrf_aa.f | 6 +- lapack-netlib/SRC/dsytrf_aa_2stage.f | 5 +- lapack-netlib/SRC/dsytrf_rk.f | 5 +- lapack-netlib/SRC/dsytrf_rook.f | 5 +- lapack-netlib/SRC/dsytri.f | 5 +- lapack-netlib/SRC/dsytri2.f | 5 +- lapack-netlib/SRC/dsytri2x.f | 5 +- lapack-netlib/SRC/dsytri_3.f | 5 +- lapack-netlib/SRC/dsytri_3x.f | 5 +- lapack-netlib/SRC/dsytri_rook.f | 5 +- lapack-netlib/SRC/dsytrs.f | 5 +- lapack-netlib/SRC/dsytrs2.f | 5 +- lapack-netlib/SRC/dsytrs_3.f | 5 +- lapack-netlib/SRC/dsytrs_aa.f | 5 +- lapack-netlib/SRC/dsytrs_aa_2stage.f | 5 +- lapack-netlib/SRC/dsytrs_rook.f | 5 +- lapack-netlib/SRC/dtbcon.f | 5 +- lapack-netlib/SRC/dtbrfs.f | 5 +- lapack-netlib/SRC/dtbtrs.f | 5 +- lapack-netlib/SRC/dtfsm.f | 5 +- lapack-netlib/SRC/dtftri.f | 5 +- lapack-netlib/SRC/dtfttp.f | 5 +- lapack-netlib/SRC/dtfttr.f | 5 +- lapack-netlib/SRC/dtgevc.f | 5 +- lapack-netlib/SRC/dtgex2.f | 68 +- lapack-netlib/SRC/dtgexc.f | 5 +- lapack-netlib/SRC/dtgsen.f | 5 +- lapack-netlib/SRC/dtgsja.f | 5 +- lapack-netlib/SRC/dtgsna.f | 5 +- lapack-netlib/SRC/dtgsy2.f | 5 +- lapack-netlib/SRC/dtgsyl.f | 5 +- lapack-netlib/SRC/dtpcon.f | 5 +- lapack-netlib/SRC/dtplqt.f | 7 +- lapack-netlib/SRC/dtplqt2.f | 5 +- lapack-netlib/SRC/dtpmlqt.f | 17 +- lapack-netlib/SRC/dtpmqrt.f | 5 +- lapack-netlib/SRC/dtpqrt.f | 5 +- lapack-netlib/SRC/dtpqrt2.f | 5 +- lapack-netlib/SRC/dtprfb.f | 5 +- lapack-netlib/SRC/dtprfs.f | 5 +- lapack-netlib/SRC/dtptri.f | 5 +- lapack-netlib/SRC/dtptrs.f | 5 +- lapack-netlib/SRC/dtpttf.f | 5 +- lapack-netlib/SRC/dtpttr.f | 5 +- lapack-netlib/SRC/dtrcon.f | 5 +- lapack-netlib/SRC/dtrevc.f | 5 +- lapack-netlib/SRC/dtrevc3.f | 7 +- lapack-netlib/SRC/dtrexc.f | 5 +- lapack-netlib/SRC/dtrrfs.f | 5 +- lapack-netlib/SRC/dtrsen.f | 5 +- lapack-netlib/SRC/dtrsna.f | 5 +- lapack-netlib/SRC/dtrsyl.f | 5 +- lapack-netlib/SRC/dtrti2.f | 5 +- lapack-netlib/SRC/dtrtri.f | 5 +- lapack-netlib/SRC/dtrtrs.f | 5 +- lapack-netlib/SRC/dtrttf.f | 5 +- lapack-netlib/SRC/dtrttp.f | 5 +- lapack-netlib/SRC/dtzrzf.f | 5 +- lapack-netlib/SRC/dzsum1.f | 5 +- lapack-netlib/SRC/icmax1.f | 5 +- lapack-netlib/SRC/ieeeck.f | 5 +- lapack-netlib/SRC/ilaclc.f | 5 +- lapack-netlib/SRC/ilaclr.f | 5 +- lapack-netlib/SRC/iladiag.f | 5 +- lapack-netlib/SRC/iladlc.f | 5 +- lapack-netlib/SRC/iladlr.f | 5 +- lapack-netlib/SRC/ilaenv.f | 17 +- lapack-netlib/SRC/ilaenv2stage.f | 4 +- lapack-netlib/SRC/ilaprec.f | 5 +- lapack-netlib/SRC/ilaslc.f | 5 +- lapack-netlib/SRC/ilaslr.f | 5 +- lapack-netlib/SRC/ilatrans.f | 5 +- lapack-netlib/SRC/ilauplo.f | 5 +- lapack-netlib/SRC/ilazlc.f | 5 +- lapack-netlib/SRC/ilazlr.f | 5 +- lapack-netlib/SRC/iparam2stage.F | 5 +- lapack-netlib/SRC/iparmq.f | 27 +- lapack-netlib/SRC/izmax1.f | 5 +- lapack-netlib/SRC/la_constants.f90 | 131 + lapack-netlib/SRC/la_xisnan.F90 | 59 + lapack-netlib/SRC/lsamen.f | 5 +- lapack-netlib/SRC/sbbcsd.f | 12 +- lapack-netlib/SRC/sbdsdc.f | 5 +- lapack-netlib/SRC/sbdsqr.f | 5 +- lapack-netlib/SRC/sbdsvdx.f | 5 +- lapack-netlib/SRC/scsum1.f | 5 +- lapack-netlib/SRC/sdisna.f | 5 +- lapack-netlib/SRC/sgbbrd.f | 5 +- lapack-netlib/SRC/sgbcon.f | 5 +- lapack-netlib/SRC/sgbequ.f | 5 +- lapack-netlib/SRC/sgbequb.f | 5 +- lapack-netlib/SRC/sgbrfs.f | 5 +- lapack-netlib/SRC/sgbrfsx.f | 7 +- lapack-netlib/SRC/sgbsv.f | 5 +- lapack-netlib/SRC/sgbsvx.f | 5 +- lapack-netlib/SRC/sgbsvxx.f | 5 +- lapack-netlib/SRC/sgbtf2.f | 5 +- lapack-netlib/SRC/sgbtrf.f | 5 +- lapack-netlib/SRC/sgbtrs.f | 5 +- lapack-netlib/SRC/sgebak.f | 5 +- lapack-netlib/SRC/sgebal.f | 5 +- lapack-netlib/SRC/sgebd2.f | 5 +- lapack-netlib/SRC/sgebrd.f | 5 +- lapack-netlib/SRC/sgecon.f | 5 +- lapack-netlib/SRC/sgeequ.f | 5 +- lapack-netlib/SRC/sgeequb.f | 5 +- lapack-netlib/SRC/sgees.f | 5 +- lapack-netlib/SRC/sgeesx.f | 5 +- lapack-netlib/SRC/sgeev.f | 4 +- lapack-netlib/SRC/sgeevx.f | 4 +- lapack-netlib/SRC/sgehd2.f | 5 +- lapack-netlib/SRC/sgehrd.f | 9 +- lapack-netlib/SRC/sgejsv.f | 9 +- lapack-netlib/SRC/sgelq.f | 3 +- lapack-netlib/SRC/sgelq2.f | 7 +- lapack-netlib/SRC/sgelqf.f | 7 +- lapack-netlib/SRC/sgelqt.f | 5 +- lapack-netlib/SRC/sgelqt3.f | 9 +- lapack-netlib/SRC/sgels.f | 5 +- lapack-netlib/SRC/sgelsd.f | 5 +- lapack-netlib/SRC/sgelss.f | 5 +- lapack-netlib/SRC/sgelsy.f | 5 +- lapack-netlib/SRC/sgemlq.f | 3 +- lapack-netlib/SRC/sgemlqt.f | 19 +- lapack-netlib/SRC/sgemqr.f | 3 +- lapack-netlib/SRC/sgemqrt.f | 11 +- lapack-netlib/SRC/sgeql2.f | 5 +- lapack-netlib/SRC/sgeqlf.f | 5 +- lapack-netlib/SRC/sgeqp3.f | 5 +- lapack-netlib/SRC/sgeqr.f | 3 +- lapack-netlib/SRC/sgeqr2.f | 5 +- lapack-netlib/SRC/sgeqr2p.f | 5 +- lapack-netlib/SRC/sgeqrf.f | 23 +- lapack-netlib/SRC/sgeqrfp.f | 5 +- lapack-netlib/SRC/sgeqrt.f | 5 +- lapack-netlib/SRC/sgeqrt3.f | 5 +- lapack-netlib/SRC/sgerfs.f | 5 +- lapack-netlib/SRC/sgerfsx.f | 5 +- lapack-netlib/SRC/sgerq2.f | 5 +- lapack-netlib/SRC/sgerqf.f | 16 +- lapack-netlib/SRC/sgesc2.f | 5 +- lapack-netlib/SRC/sgesdd.f | 17 +- lapack-netlib/SRC/sgesv.f | 5 +- lapack-netlib/SRC/sgesvd.f | 5 +- lapack-netlib/SRC/sgesvdq.f | 12 +- lapack-netlib/SRC/sgesvdx.f | 5 +- lapack-netlib/SRC/sgesvj.f | 7 +- lapack-netlib/SRC/sgesvx.f | 5 +- lapack-netlib/SRC/sgesvxx.f | 5 +- lapack-netlib/SRC/sgetc2.f | 5 +- lapack-netlib/SRC/sgetf2.f | 5 +- lapack-netlib/SRC/sgetrf.f | 5 +- lapack-netlib/SRC/sgetrf2.f | 5 +- lapack-netlib/SRC/sgetri.f | 5 +- lapack-netlib/SRC/sgetrs.f | 5 +- lapack-netlib/SRC/sgetsls.f | 20 +- lapack-netlib/SRC/sggbak.f | 5 +- lapack-netlib/SRC/sggbal.f | 5 +- lapack-netlib/SRC/sgges.f | 5 +- lapack-netlib/SRC/sgges3.f | 17 +- lapack-netlib/SRC/sggesx.f | 5 +- lapack-netlib/SRC/sggev.f | 5 +- lapack-netlib/SRC/sggev3.f | 21 +- lapack-netlib/SRC/sggevx.f | 5 +- lapack-netlib/SRC/sggglm.f | 5 +- lapack-netlib/SRC/sgghd3.f | 9 +- lapack-netlib/SRC/sgghrd.f | 5 +- lapack-netlib/SRC/sgglse.f | 5 +- lapack-netlib/SRC/sggqrf.f | 5 +- lapack-netlib/SRC/sggrqf.f | 5 +- lapack-netlib/SRC/sggsvd3.f | 5 +- lapack-netlib/SRC/sggsvp3.f | 5 +- lapack-netlib/SRC/sgsvj0.f | 7 +- lapack-netlib/SRC/sgsvj1.f | 9 +- lapack-netlib/SRC/sgtcon.f | 5 +- lapack-netlib/SRC/sgtrfs.f | 5 +- lapack-netlib/SRC/sgtsv.f | 5 +- lapack-netlib/SRC/sgtsvx.f | 5 +- lapack-netlib/SRC/sgttrf.f | 5 +- lapack-netlib/SRC/sgttrs.f | 5 +- lapack-netlib/SRC/sgtts2.f | 5 +- lapack-netlib/SRC/shgeqz.f | 22 +- lapack-netlib/SRC/shsein.f | 5 +- lapack-netlib/SRC/shseqr.f | 5 +- lapack-netlib/SRC/sisnan.f | 5 +- lapack-netlib/SRC/sla_gbamv.f | 5 +- lapack-netlib/SRC/sla_gbrcond.f | 7 +- lapack-netlib/SRC/sla_gbrfsx_extended.f | 12 +- lapack-netlib/SRC/sla_gbrpvgrw.f | 8 +- lapack-netlib/SRC/sla_geamv.f | 5 +- lapack-netlib/SRC/sla_gercond.f | 7 +- lapack-netlib/SRC/sla_gerfsx_extended.f | 12 +- lapack-netlib/SRC/sla_gerpvgrw.f | 8 +- lapack-netlib/SRC/sla_lin_berr.f | 8 +- lapack-netlib/SRC/sla_porcond.f | 7 +- lapack-netlib/SRC/sla_porfsx_extended.f | 12 +- lapack-netlib/SRC/sla_porpvgrw.f | 10 +- lapack-netlib/SRC/sla_syamv.f | 5 +- lapack-netlib/SRC/sla_syrcond.f | 7 +- lapack-netlib/SRC/sla_syrfsx_extended.f | 12 +- lapack-netlib/SRC/sla_syrpvgrw.f | 8 +- lapack-netlib/SRC/sla_wwaddw.f | 8 +- lapack-netlib/SRC/slabad.f | 5 +- lapack-netlib/SRC/slabrd.f | 5 +- lapack-netlib/SRC/slacn2.f | 28 +- lapack-netlib/SRC/slacon.f | 5 +- lapack-netlib/SRC/slacpy.f | 5 +- lapack-netlib/SRC/sladiv.f | 13 +- lapack-netlib/SRC/slae2.f | 5 +- lapack-netlib/SRC/slaebz.f | 5 +- lapack-netlib/SRC/slaed0.f | 7 +- lapack-netlib/SRC/slaed1.f | 7 +- lapack-netlib/SRC/slaed2.f | 7 +- lapack-netlib/SRC/slaed3.f | 7 +- lapack-netlib/SRC/slaed4.f | 7 +- lapack-netlib/SRC/slaed5.f | 9 +- lapack-netlib/SRC/slaed6.f | 7 +- lapack-netlib/SRC/slaed7.f | 7 +- lapack-netlib/SRC/slaed8.f | 7 +- lapack-netlib/SRC/slaed9.f | 7 +- lapack-netlib/SRC/slaeda.f | 7 +- lapack-netlib/SRC/slaein.f | 5 +- lapack-netlib/SRC/slaev2.f | 5 +- lapack-netlib/SRC/slaexc.f | 7 +- lapack-netlib/SRC/slag2.f | 5 +- lapack-netlib/SRC/slag2d.f | 5 +- lapack-netlib/SRC/slags2.f | 5 +- lapack-netlib/SRC/slagtf.f | 5 +- lapack-netlib/SRC/slagtm.f | 5 +- lapack-netlib/SRC/slagts.f | 5 +- lapack-netlib/SRC/slagv2.f | 5 +- lapack-netlib/SRC/slahqr.f | 30 +- lapack-netlib/SRC/slahr2.f | 11 +- lapack-netlib/SRC/slaic1.f | 5 +- lapack-netlib/SRC/slaisnan.f | 5 +- lapack-netlib/SRC/slaln2.f | 5 +- lapack-netlib/SRC/slals0.f | 5 +- lapack-netlib/SRC/slalsa.f | 5 +- lapack-netlib/SRC/slalsd.f | 5 +- lapack-netlib/SRC/slamrg.f | 5 +- lapack-netlib/SRC/slamswlq.f | 31 +- lapack-netlib/SRC/slamtsqr.f | 24 +- lapack-netlib/SRC/slaneg.f | 5 +- lapack-netlib/SRC/slangb.f | 31 +- lapack-netlib/SRC/slange.f | 27 +- lapack-netlib/SRC/slangt.f | 5 +- lapack-netlib/SRC/slanhs.f | 30 +- lapack-netlib/SRC/slansb.f | 49 +- lapack-netlib/SRC/slansf.f | 5 +- lapack-netlib/SRC/slansp.f | 53 +- lapack-netlib/SRC/slanst.f | 5 +- lapack-netlib/SRC/slansy.f | 47 +- lapack-netlib/SRC/slantb.f | 62 +- lapack-netlib/SRC/slantp.f | 60 +- lapack-netlib/SRC/slantr.f | 61 +- lapack-netlib/SRC/slanv2.f | 5 +- lapack-netlib/SRC/slaorhr_col_getrfnp.f | 5 +- lapack-netlib/SRC/slaorhr_col_getrfnp2.f | 7 +- lapack-netlib/SRC/slapll.f | 5 +- lapack-netlib/SRC/slapmr.f | 7 +- lapack-netlib/SRC/slapmt.f | 5 +- lapack-netlib/SRC/slapy2.f | 18 +- lapack-netlib/SRC/slapy3.f | 15 +- lapack-netlib/SRC/slaqgb.f | 5 +- lapack-netlib/SRC/slaqge.f | 5 +- lapack-netlib/SRC/slaqp2.f | 5 +- lapack-netlib/SRC/slaqps.f | 5 +- lapack-netlib/SRC/slaqr0.f | 5 +- lapack-netlib/SRC/slaqr1.f | 5 +- lapack-netlib/SRC/slaqr2.f | 5 +- lapack-netlib/SRC/slaqr3.f | 5 +- lapack-netlib/SRC/slaqr4.f | 5 +- lapack-netlib/SRC/slaqr5.f | 5 +- lapack-netlib/SRC/slaqsb.f | 5 +- lapack-netlib/SRC/slaqsp.f | 5 +- lapack-netlib/SRC/slaqsy.f | 5 +- lapack-netlib/SRC/slaqtr.f | 5 +- lapack-netlib/SRC/slaqz0.f | 749 + lapack-netlib/SRC/slaqz1.f | 194 + lapack-netlib/SRC/slaqz2.f | 315 + lapack-netlib/SRC/slaqz3.f | 563 + lapack-netlib/SRC/slaqz4.f | 532 + lapack-netlib/SRC/slar1v.f | 5 +- lapack-netlib/SRC/slar2v.f | 5 +- lapack-netlib/SRC/slarf.f | 5 +- lapack-netlib/SRC/slarfb.f | 5 +- lapack-netlib/SRC/slarfg.f | 5 +- lapack-netlib/SRC/slarfgp.f | 5 +- lapack-netlib/SRC/slarft.f | 5 +- lapack-netlib/SRC/slarfx.f | 5 +- lapack-netlib/SRC/slarfy.f | 5 +- lapack-netlib/SRC/slargv.f | 5 +- lapack-netlib/SRC/slarnv.f | 7 +- lapack-netlib/SRC/slarra.f | 5 +- lapack-netlib/SRC/slarrb.f | 5 +- lapack-netlib/SRC/slarrc.f | 7 +- lapack-netlib/SRC/slarrd.f | 5 +- lapack-netlib/SRC/slarre.f | 7 +- lapack-netlib/SRC/slarrf.f | 5 +- lapack-netlib/SRC/slarrj.f | 5 +- lapack-netlib/SRC/slarrk.f | 5 +- lapack-netlib/SRC/slarrr.f | 7 +- lapack-netlib/SRC/slarrv.f | 5 +- lapack-netlib/SRC/slarscl2.f | 5 +- lapack-netlib/SRC/slartg.f | 204 - lapack-netlib/SRC/slartg.f90 | 162 + lapack-netlib/SRC/slartgp.f | 7 +- lapack-netlib/SRC/slartgs.f | 5 +- lapack-netlib/SRC/slartv.f | 5 +- lapack-netlib/SRC/slaruv.f | 5 +- lapack-netlib/SRC/slarz.f | 5 +- lapack-netlib/SRC/slarzb.f | 5 +- lapack-netlib/SRC/slarzt.f | 5 +- lapack-netlib/SRC/slas2.f | 5 +- lapack-netlib/SRC/slascl.f | 5 +- lapack-netlib/SRC/slascl2.f | 5 +- lapack-netlib/SRC/slasd0.f | 5 +- lapack-netlib/SRC/slasd1.f | 5 +- lapack-netlib/SRC/slasd2.f | 5 +- lapack-netlib/SRC/slasd3.f | 5 +- lapack-netlib/SRC/slasd4.f | 5 +- lapack-netlib/SRC/slasd5.f | 5 +- lapack-netlib/SRC/slasd6.f | 5 +- lapack-netlib/SRC/slasd7.f | 5 +- lapack-netlib/SRC/slasd8.f | 5 +- lapack-netlib/SRC/slasda.f | 5 +- lapack-netlib/SRC/slasdq.f | 5 +- lapack-netlib/SRC/slasdt.f | 5 +- lapack-netlib/SRC/slaset.f | 5 +- lapack-netlib/SRC/slasq1.f | 5 +- lapack-netlib/SRC/slasq2.f | 8 +- lapack-netlib/SRC/slasq3.f | 5 +- lapack-netlib/SRC/slasq4.f | 5 +- lapack-netlib/SRC/slasq5.f | 5 +- lapack-netlib/SRC/slasq6.f | 5 +- lapack-netlib/SRC/slasr.f | 5 +- lapack-netlib/SRC/slasrt.f | 5 +- lapack-netlib/SRC/slassq.f | 155 - lapack-netlib/SRC/slassq.f90 | 253 + lapack-netlib/SRC/slasv2.f | 5 +- lapack-netlib/SRC/slaswlq.f | 15 +- lapack-netlib/SRC/slaswp.f | 5 +- lapack-netlib/SRC/slasy2.f | 5 +- lapack-netlib/SRC/slasyf.f | 5 +- lapack-netlib/SRC/slasyf_aa.f | 5 +- lapack-netlib/SRC/slasyf_rk.f | 5 +- lapack-netlib/SRC/slasyf_rook.f | 5 +- lapack-netlib/SRC/slatbs.f | 5 +- lapack-netlib/SRC/slatdf.f | 5 +- lapack-netlib/SRC/slatps.f | 5 +- lapack-netlib/SRC/slatrd.f | 5 +- lapack-netlib/SRC/slatrs.f | 5 +- lapack-netlib/SRC/slatrz.f | 5 +- lapack-netlib/SRC/slatsqr.f | 11 +- lapack-netlib/SRC/slauu2.f | 5 +- lapack-netlib/SRC/slauum.f | 5 +- lapack-netlib/SRC/sopgtr.f | 5 +- lapack-netlib/SRC/sopmtr.f | 5 +- lapack-netlib/SRC/sorbdb.f | 5 +- lapack-netlib/SRC/sorbdb1.f | 5 +- lapack-netlib/SRC/sorbdb2.f | 5 +- lapack-netlib/SRC/sorbdb3.f | 5 +- lapack-netlib/SRC/sorbdb4.f | 5 +- lapack-netlib/SRC/sorbdb5.f | 5 +- lapack-netlib/SRC/sorbdb6.f | 5 +- lapack-netlib/SRC/sorcsd.f | 5 +- lapack-netlib/SRC/sorcsd2by1.f | 9 +- lapack-netlib/SRC/sorg2l.f | 5 +- lapack-netlib/SRC/sorg2r.f | 5 +- lapack-netlib/SRC/sorgbr.f | 5 +- lapack-netlib/SRC/sorghr.f | 5 +- lapack-netlib/SRC/sorgl2.f | 5 +- lapack-netlib/SRC/sorglq.f | 5 +- lapack-netlib/SRC/sorgql.f | 5 +- lapack-netlib/SRC/sorgqr.f | 5 +- lapack-netlib/SRC/sorgr2.f | 5 +- lapack-netlib/SRC/sorgrq.f | 5 +- lapack-netlib/SRC/sorgtr.f | 5 +- lapack-netlib/SRC/sorgtsqr.f | 16 +- lapack-netlib/SRC/sorhr_col.f | 16 +- lapack-netlib/SRC/sorm22.f | 5 +- lapack-netlib/SRC/sorm2l.f | 5 +- lapack-netlib/SRC/sorm2r.f | 5 +- lapack-netlib/SRC/sormbr.f | 13 +- lapack-netlib/SRC/sormhr.f | 13 +- lapack-netlib/SRC/sorml2.f | 5 +- lapack-netlib/SRC/sormlq.f | 15 +- lapack-netlib/SRC/sormql.f | 7 +- lapack-netlib/SRC/sormqr.f | 15 +- lapack-netlib/SRC/sormr2.f | 5 +- lapack-netlib/SRC/sormr3.f | 5 +- lapack-netlib/SRC/sormrq.f | 7 +- lapack-netlib/SRC/sormrz.f | 9 +- lapack-netlib/SRC/sormtr.f | 13 +- lapack-netlib/SRC/spbcon.f | 5 +- lapack-netlib/SRC/spbequ.f | 5 +- lapack-netlib/SRC/spbrfs.f | 5 +- lapack-netlib/SRC/spbstf.f | 5 +- lapack-netlib/SRC/spbsv.f | 5 +- lapack-netlib/SRC/spbsvx.f | 5 +- lapack-netlib/SRC/spbtf2.f | 5 +- lapack-netlib/SRC/spbtrf.f | 5 +- lapack-netlib/SRC/spbtrs.f | 5 +- lapack-netlib/SRC/spftrf.f | 5 +- lapack-netlib/SRC/spftri.f | 5 +- lapack-netlib/SRC/spftrs.f | 5 +- lapack-netlib/SRC/spocon.f | 5 +- lapack-netlib/SRC/spoequ.f | 5 +- lapack-netlib/SRC/spoequb.f | 5 +- lapack-netlib/SRC/sporfs.f | 5 +- lapack-netlib/SRC/sporfsx.f | 5 +- lapack-netlib/SRC/sposv.f | 5 +- lapack-netlib/SRC/sposvx.f | 5 +- lapack-netlib/SRC/sposvxx.f | 5 +- lapack-netlib/SRC/spotf2.f | 5 +- lapack-netlib/SRC/spotrf.f | 5 +- lapack-netlib/SRC/spotrf2.f | 5 +- lapack-netlib/SRC/spotri.f | 5 +- lapack-netlib/SRC/spotrs.f | 5 +- lapack-netlib/SRC/sppcon.f | 5 +- lapack-netlib/SRC/sppequ.f | 5 +- lapack-netlib/SRC/spprfs.f | 5 +- lapack-netlib/SRC/sppsv.f | 5 +- lapack-netlib/SRC/sppsvx.f | 5 +- lapack-netlib/SRC/spptrf.f | 5 +- lapack-netlib/SRC/spptri.f | 5 +- lapack-netlib/SRC/spptrs.f | 5 +- lapack-netlib/SRC/spstf2.f | 5 +- lapack-netlib/SRC/spstrf.f | 5 +- lapack-netlib/SRC/sptcon.f | 5 +- lapack-netlib/SRC/spteqr.f | 5 +- lapack-netlib/SRC/sptrfs.f | 5 +- lapack-netlib/SRC/sptsv.f | 5 +- lapack-netlib/SRC/sptsvx.f | 5 +- lapack-netlib/SRC/spttrf.f | 5 +- lapack-netlib/SRC/spttrs.f | 5 +- lapack-netlib/SRC/sptts2.f | 5 +- lapack-netlib/SRC/srscl.f | 5 +- lapack-netlib/SRC/ssb2st_kernels.f | 7 +- lapack-netlib/SRC/ssbev.f | 5 +- lapack-netlib/SRC/ssbev_2stage.f | 5 +- lapack-netlib/SRC/ssbevd.f | 5 +- lapack-netlib/SRC/ssbevd_2stage.f | 5 +- lapack-netlib/SRC/ssbevx.f | 5 +- lapack-netlib/SRC/ssbevx_2stage.f | 5 +- lapack-netlib/SRC/ssbgst.f | 5 +- lapack-netlib/SRC/ssbgv.f | 5 +- lapack-netlib/SRC/ssbgvd.f | 5 +- lapack-netlib/SRC/ssbgvx.f | 5 +- lapack-netlib/SRC/ssbtrd.f | 5 +- lapack-netlib/SRC/ssfrk.f | 5 +- lapack-netlib/SRC/sspcon.f | 5 +- lapack-netlib/SRC/sspev.f | 5 +- lapack-netlib/SRC/sspevd.f | 5 +- lapack-netlib/SRC/sspevx.f | 5 +- lapack-netlib/SRC/sspgst.f | 5 +- lapack-netlib/SRC/sspgv.f | 5 +- lapack-netlib/SRC/sspgvd.f | 5 +- lapack-netlib/SRC/sspgvx.f | 5 +- lapack-netlib/SRC/ssprfs.f | 5 +- lapack-netlib/SRC/sspsv.f | 5 +- lapack-netlib/SRC/sspsvx.f | 5 +- lapack-netlib/SRC/ssptrd.f | 5 +- lapack-netlib/SRC/ssptrf.f | 5 +- lapack-netlib/SRC/ssptri.f | 5 +- lapack-netlib/SRC/ssptrs.f | 5 +- lapack-netlib/SRC/sstebz.f | 5 +- lapack-netlib/SRC/sstedc.f | 5 +- lapack-netlib/SRC/sstegr.f | 5 +- lapack-netlib/SRC/sstein.f | 5 +- lapack-netlib/SRC/sstemr.f | 5 +- lapack-netlib/SRC/ssteqr.f | 5 +- lapack-netlib/SRC/ssterf.f | 5 +- lapack-netlib/SRC/sstev.f | 5 +- lapack-netlib/SRC/sstevd.f | 5 +- lapack-netlib/SRC/sstevr.f | 5 +- lapack-netlib/SRC/sstevx.f | 5 +- lapack-netlib/SRC/ssycon.f | 5 +- lapack-netlib/SRC/ssycon_3.f | 7 +- lapack-netlib/SRC/ssycon_rook.f | 5 +- lapack-netlib/SRC/ssyconv.f | 5 +- lapack-netlib/SRC/ssyconvf.f | 9 +- lapack-netlib/SRC/ssyconvf_rook.f | 5 +- lapack-netlib/SRC/ssyequb.f | 5 +- lapack-netlib/SRC/ssyev.f | 5 +- lapack-netlib/SRC/ssyev_2stage.f | 11 +- lapack-netlib/SRC/ssyevd.f | 5 +- lapack-netlib/SRC/ssyevd_2stage.f | 5 +- lapack-netlib/SRC/ssyevr.f | 5 +- lapack-netlib/SRC/ssyevr_2stage.f | 5 +- lapack-netlib/SRC/ssyevx.f | 5 +- lapack-netlib/SRC/ssyevx_2stage.f | 5 +- lapack-netlib/SRC/ssygs2.f | 5 +- lapack-netlib/SRC/ssygst.f | 5 +- lapack-netlib/SRC/ssygv.f | 5 +- lapack-netlib/SRC/ssygv_2stage.f | 5 +- lapack-netlib/SRC/ssygvd.f | 5 +- lapack-netlib/SRC/ssygvx.f | 5 +- lapack-netlib/SRC/ssyrfs.f | 5 +- lapack-netlib/SRC/ssyrfsx.f | 5 +- lapack-netlib/SRC/ssysv.f | 5 +- lapack-netlib/SRC/ssysv_aa.f | 5 +- lapack-netlib/SRC/ssysv_aa_2stage.f | 5 +- lapack-netlib/SRC/ssysv_rk.f | 5 +- lapack-netlib/SRC/ssysv_rook.f | 5 +- lapack-netlib/SRC/ssysvx.f | 5 +- lapack-netlib/SRC/ssysvxx.f | 5 +- lapack-netlib/SRC/ssyswapr.f | 5 +- lapack-netlib/SRC/ssytd2.f | 5 +- lapack-netlib/SRC/ssytf2.f | 5 +- lapack-netlib/SRC/ssytf2_rk.f | 5 +- lapack-netlib/SRC/ssytf2_rook.f | 5 +- lapack-netlib/SRC/ssytrd.f | 5 +- lapack-netlib/SRC/ssytrd_2stage.f | 5 +- lapack-netlib/SRC/ssytrd_sb2st.F | 13 +- lapack-netlib/SRC/ssytrd_sy2sb.f | 11 +- lapack-netlib/SRC/ssytrf.f | 5 +- lapack-netlib/SRC/ssytrf_aa.f | 6 +- lapack-netlib/SRC/ssytrf_aa_2stage.f | 5 +- lapack-netlib/SRC/ssytrf_rk.f | 5 +- lapack-netlib/SRC/ssytrf_rook.f | 5 +- lapack-netlib/SRC/ssytri.f | 5 +- lapack-netlib/SRC/ssytri2.f | 5 +- lapack-netlib/SRC/ssytri2x.f | 5 +- lapack-netlib/SRC/ssytri_3.f | 5 +- lapack-netlib/SRC/ssytri_3x.f | 5 +- lapack-netlib/SRC/ssytri_rook.f | 5 +- lapack-netlib/SRC/ssytrs.f | 5 +- lapack-netlib/SRC/ssytrs2.f | 5 +- lapack-netlib/SRC/ssytrs_3.f | 5 +- lapack-netlib/SRC/ssytrs_aa.f | 5 +- lapack-netlib/SRC/ssytrs_aa_2stage.f | 5 +- lapack-netlib/SRC/ssytrs_rook.f | 5 +- lapack-netlib/SRC/stbcon.f | 5 +- lapack-netlib/SRC/stbrfs.f | 5 +- lapack-netlib/SRC/stbtrs.f | 5 +- lapack-netlib/SRC/stfsm.f | 5 +- lapack-netlib/SRC/stftri.f | 5 +- lapack-netlib/SRC/stfttp.f | 5 +- lapack-netlib/SRC/stfttr.f | 5 +- lapack-netlib/SRC/stgevc.f | 5 +- lapack-netlib/SRC/stgex2.f | 61 +- lapack-netlib/SRC/stgexc.f | 5 +- lapack-netlib/SRC/stgsen.f | 5 +- lapack-netlib/SRC/stgsja.f | 5 +- lapack-netlib/SRC/stgsna.f | 5 +- lapack-netlib/SRC/stgsy2.f | 5 +- lapack-netlib/SRC/stgsyl.f | 5 +- lapack-netlib/SRC/stpcon.f | 5 +- lapack-netlib/SRC/stplqt.f | 9 +- lapack-netlib/SRC/stplqt2.f | 5 +- lapack-netlib/SRC/stpmlqt.f | 27 +- lapack-netlib/SRC/stpmqrt.f | 5 +- lapack-netlib/SRC/stpqrt.f | 5 +- lapack-netlib/SRC/stpqrt2.f | 5 +- lapack-netlib/SRC/stprfb.f | 5 +- lapack-netlib/SRC/stprfs.f | 5 +- lapack-netlib/SRC/stptri.f | 5 +- lapack-netlib/SRC/stptrs.f | 5 +- lapack-netlib/SRC/stpttf.f | 5 +- lapack-netlib/SRC/stpttr.f | 5 +- lapack-netlib/SRC/strcon.f | 5 +- lapack-netlib/SRC/strevc.f | 5 +- lapack-netlib/SRC/strevc3.f | 7 +- lapack-netlib/SRC/strexc.f | 5 +- lapack-netlib/SRC/strrfs.f | 5 +- lapack-netlib/SRC/strsen.f | 5 +- lapack-netlib/SRC/strsna.f | 5 +- lapack-netlib/SRC/strsyl.f | 5 +- lapack-netlib/SRC/strti2.f | 5 +- lapack-netlib/SRC/strtri.f | 5 +- lapack-netlib/SRC/strtrs.f | 5 +- lapack-netlib/SRC/strttf.f | 5 +- lapack-netlib/SRC/strttp.f | 5 +- lapack-netlib/SRC/stzrzf.f | 7 +- lapack-netlib/SRC/xerbla.f | 5 +- lapack-netlib/SRC/xerbla_array.f | 5 +- lapack-netlib/SRC/zbbcsd.f | 12 +- lapack-netlib/SRC/zbdsqr.f | 5 +- lapack-netlib/SRC/zcgesv.f | 7 +- lapack-netlib/SRC/zcposv.f | 7 +- lapack-netlib/SRC/zdrscl.f | 5 +- lapack-netlib/SRC/zgbbrd.f | 5 +- lapack-netlib/SRC/zgbcon.f | 5 +- lapack-netlib/SRC/zgbequ.f | 5 +- lapack-netlib/SRC/zgbequb.f | 5 +- lapack-netlib/SRC/zgbrfs.f | 5 +- lapack-netlib/SRC/zgbrfsx.f | 11 +- lapack-netlib/SRC/zgbsv.f | 5 +- lapack-netlib/SRC/zgbsvx.f | 5 +- lapack-netlib/SRC/zgbsvxx.f | 13 +- lapack-netlib/SRC/zgbtf2.f | 5 +- lapack-netlib/SRC/zgbtrf.f | 5 +- lapack-netlib/SRC/zgbtrs.f | 5 +- lapack-netlib/SRC/zgebak.f | 5 +- lapack-netlib/SRC/zgebal.f | 5 +- lapack-netlib/SRC/zgebd2.f | 13 +- lapack-netlib/SRC/zgebrd.f | 5 +- lapack-netlib/SRC/zgecon.f | 5 +- lapack-netlib/SRC/zgeequ.f | 5 +- lapack-netlib/SRC/zgeequb.f | 5 +- lapack-netlib/SRC/zgees.f | 7 +- lapack-netlib/SRC/zgeesx.f | 7 +- lapack-netlib/SRC/zgeev.f | 4 +- lapack-netlib/SRC/zgeevx.f | 4 +- lapack-netlib/SRC/zgehd2.f | 5 +- lapack-netlib/SRC/zgehrd.f | 9 +- lapack-netlib/SRC/zgejsv.f | 47 +- lapack-netlib/SRC/zgelq.f | 3 +- lapack-netlib/SRC/zgelq2.f | 7 +- lapack-netlib/SRC/zgelqf.f | 7 +- lapack-netlib/SRC/zgelqt.f | 7 +- lapack-netlib/SRC/zgelqt3.f | 13 +- lapack-netlib/SRC/zgels.f | 5 +- lapack-netlib/SRC/zgelsd.f | 5 +- lapack-netlib/SRC/zgelss.f | 31 +- lapack-netlib/SRC/zgelsy.f | 5 +- lapack-netlib/SRC/zgemlq.f | 11 +- lapack-netlib/SRC/zgemlqt.f | 25 +- lapack-netlib/SRC/zgemqr.f | 11 +- lapack-netlib/SRC/zgemqrt.f | 13 +- lapack-netlib/SRC/zgeql2.f | 5 +- lapack-netlib/SRC/zgeqlf.f | 5 +- lapack-netlib/SRC/zgeqp3.f | 5 +- lapack-netlib/SRC/zgeqr.f | 3 +- lapack-netlib/SRC/zgeqr2.f | 5 +- lapack-netlib/SRC/zgeqr2p.f | 5 +- lapack-netlib/SRC/zgeqrf.f | 23 +- lapack-netlib/SRC/zgeqrfp.f | 5 +- lapack-netlib/SRC/zgeqrt.f | 5 +- lapack-netlib/SRC/zgeqrt3.f | 5 +- lapack-netlib/SRC/zgerfs.f | 5 +- lapack-netlib/SRC/zgerfsx.f | 5 +- lapack-netlib/SRC/zgerq2.f | 5 +- lapack-netlib/SRC/zgerqf.f | 13 +- lapack-netlib/SRC/zgesc2.f | 5 +- lapack-netlib/SRC/zgesdd.f | 17 +- lapack-netlib/SRC/zgesv.f | 5 +- lapack-netlib/SRC/zgesvd.f | 5 +- lapack-netlib/SRC/zgesvdq.f | 18 +- lapack-netlib/SRC/zgesvdx.f | 5 +- lapack-netlib/SRC/zgesvj.f | 7 +- lapack-netlib/SRC/zgesvx.f | 5 +- lapack-netlib/SRC/zgesvxx.f | 5 +- lapack-netlib/SRC/zgetc2.f | 5 +- lapack-netlib/SRC/zgetf2.f | 5 +- lapack-netlib/SRC/zgetrf.f | 5 +- lapack-netlib/SRC/zgetrf2.f | 5 +- lapack-netlib/SRC/zgetri.f | 5 +- lapack-netlib/SRC/zgetrs.f | 5 +- lapack-netlib/SRC/zgetsls.f | 22 +- lapack-netlib/SRC/zggbak.f | 5 +- lapack-netlib/SRC/zggbal.f | 5 +- lapack-netlib/SRC/zgges.f | 5 +- lapack-netlib/SRC/zgges3.f | 17 +- lapack-netlib/SRC/zggesx.f | 5 +- lapack-netlib/SRC/zggev.f | 9 +- lapack-netlib/SRC/zggev3.f | 23 +- lapack-netlib/SRC/zggevx.f | 9 +- lapack-netlib/SRC/zggglm.f | 7 +- lapack-netlib/SRC/zgghd3.f | 7 +- lapack-netlib/SRC/zgghrd.f | 5 +- lapack-netlib/SRC/zgglse.f | 7 +- lapack-netlib/SRC/zggqrf.f | 7 +- lapack-netlib/SRC/zggrqf.f | 7 +- lapack-netlib/SRC/zggsvd3.f | 5 +- lapack-netlib/SRC/zggsvp3.f | 5 +- lapack-netlib/SRC/zgsvj0.f | 5 +- lapack-netlib/SRC/zgsvj1.f | 15 +- lapack-netlib/SRC/zgtcon.f | 5 +- lapack-netlib/SRC/zgtrfs.f | 5 +- lapack-netlib/SRC/zgtsv.f | 5 +- lapack-netlib/SRC/zgtsvx.f | 5 +- lapack-netlib/SRC/zgttrf.f | 5 +- lapack-netlib/SRC/zgttrs.f | 5 +- lapack-netlib/SRC/zgtts2.f | 5 +- lapack-netlib/SRC/zhb2st_kernels.f | 5 +- lapack-netlib/SRC/zhbev.f | 9 +- lapack-netlib/SRC/zhbev_2stage.f | 5 +- lapack-netlib/SRC/zhbevd.f | 7 +- lapack-netlib/SRC/zhbevd_2stage.f | 5 +- lapack-netlib/SRC/zhbevx.f | 7 +- lapack-netlib/SRC/zhbevx_2stage.f | 5 +- lapack-netlib/SRC/zhbgst.f | 5 +- lapack-netlib/SRC/zhbgv.f | 5 +- lapack-netlib/SRC/zhbgvd.f | 5 +- lapack-netlib/SRC/zhbgvx.f | 5 +- lapack-netlib/SRC/zhbtrd.f | 9 +- lapack-netlib/SRC/zhecon.f | 5 +- lapack-netlib/SRC/zhecon_3.f | 5 +- lapack-netlib/SRC/zhecon_rook.f | 5 +- lapack-netlib/SRC/zheequb.f | 13 +- lapack-netlib/SRC/zheev.f | 7 +- lapack-netlib/SRC/zheev_2stage.f | 5 +- lapack-netlib/SRC/zheevd.f | 7 +- lapack-netlib/SRC/zheevd_2stage.f | 5 +- lapack-netlib/SRC/zheevr.f | 7 +- lapack-netlib/SRC/zheevr_2stage.f | 7 +- lapack-netlib/SRC/zheevx.f | 9 +- lapack-netlib/SRC/zheevx_2stage.f | 5 +- lapack-netlib/SRC/zhegs2.f | 21 +- lapack-netlib/SRC/zhegst.f | 5 +- lapack-netlib/SRC/zhegv.f | 5 +- lapack-netlib/SRC/zhegv_2stage.f | 5 +- lapack-netlib/SRC/zhegvd.f | 5 +- lapack-netlib/SRC/zhegvx.f | 5 +- lapack-netlib/SRC/zherfs.f | 5 +- lapack-netlib/SRC/zherfsx.f | 13 +- lapack-netlib/SRC/zhesv.f | 5 +- lapack-netlib/SRC/zhesv_aa.f | 5 +- lapack-netlib/SRC/zhesv_aa_2stage.f | 5 +- lapack-netlib/SRC/zhesv_rk.f | 7 +- lapack-netlib/SRC/zhesv_rook.f | 5 +- lapack-netlib/SRC/zhesvx.f | 5 +- lapack-netlib/SRC/zhesvxx.f | 11 +- lapack-netlib/SRC/zheswapr.f | 5 +- lapack-netlib/SRC/zhetd2.f | 17 +- lapack-netlib/SRC/zhetf2.f | 5 +- lapack-netlib/SRC/zhetf2_rk.f | 13 +- lapack-netlib/SRC/zhetf2_rook.f | 13 +- lapack-netlib/SRC/zhetrd.f | 9 +- lapack-netlib/SRC/zhetrd_2stage.f | 5 +- lapack-netlib/SRC/zhetrd_hb2st.F | 13 +- lapack-netlib/SRC/zhetrd_he2hb.f | 11 +- lapack-netlib/SRC/zhetrf.f | 5 +- lapack-netlib/SRC/zhetrf_aa.f | 6 +- lapack-netlib/SRC/zhetrf_aa_2stage.f | 5 +- lapack-netlib/SRC/zhetrf_rk.f | 5 +- lapack-netlib/SRC/zhetrf_rook.f | 5 +- lapack-netlib/SRC/zhetri.f | 5 +- lapack-netlib/SRC/zhetri2.f | 5 +- lapack-netlib/SRC/zhetri2x.f | 13 +- lapack-netlib/SRC/zhetri_3.f | 5 +- lapack-netlib/SRC/zhetri_3x.f | 5 +- lapack-netlib/SRC/zhetri_rook.f | 5 +- lapack-netlib/SRC/zhetrs.f | 5 +- lapack-netlib/SRC/zhetrs2.f | 5 +- lapack-netlib/SRC/zhetrs_3.f | 5 +- lapack-netlib/SRC/zhetrs_aa.f | 5 +- lapack-netlib/SRC/zhetrs_aa_2stage.f | 5 +- lapack-netlib/SRC/zhetrs_rook.f | 5 +- lapack-netlib/SRC/zhfrk.f | 5 +- lapack-netlib/SRC/zhgeqz.f | 22 +- lapack-netlib/SRC/zhpcon.f | 5 +- lapack-netlib/SRC/zhpev.f | 7 +- lapack-netlib/SRC/zhpevd.f | 7 +- lapack-netlib/SRC/zhpevx.f | 9 +- lapack-netlib/SRC/zhpgst.f | 19 +- lapack-netlib/SRC/zhpgv.f | 5 +- lapack-netlib/SRC/zhpgvd.f | 5 +- lapack-netlib/SRC/zhpgvx.f | 5 +- lapack-netlib/SRC/zhprfs.f | 5 +- lapack-netlib/SRC/zhpsv.f | 5 +- lapack-netlib/SRC/zhpsvx.f | 5 +- lapack-netlib/SRC/zhptrd.f | 17 +- lapack-netlib/SRC/zhptrf.f | 5 +- lapack-netlib/SRC/zhptri.f | 5 +- lapack-netlib/SRC/zhptrs.f | 5 +- lapack-netlib/SRC/zhsein.f | 5 +- lapack-netlib/SRC/zhseqr.f | 5 +- lapack-netlib/SRC/zla_gbamv.f | 5 +- lapack-netlib/SRC/zla_gbrcond_c.f | 7 +- lapack-netlib/SRC/zla_gbrcond_x.f | 7 +- lapack-netlib/SRC/zla_gbrfsx_extended.f | 12 +- lapack-netlib/SRC/zla_gbrpvgrw.f | 8 +- lapack-netlib/SRC/zla_geamv.f | 5 +- lapack-netlib/SRC/zla_gercond_c.f | 7 +- lapack-netlib/SRC/zla_gercond_x.f | 7 +- lapack-netlib/SRC/zla_gerfsx_extended.f | 12 +- lapack-netlib/SRC/zla_gerpvgrw.f | 8 +- lapack-netlib/SRC/zla_heamv.f | 5 +- lapack-netlib/SRC/zla_hercond_c.f | 7 +- lapack-netlib/SRC/zla_hercond_x.f | 7 +- lapack-netlib/SRC/zla_herfsx_extended.f | 12 +- lapack-netlib/SRC/zla_herpvgrw.f | 8 +- lapack-netlib/SRC/zla_lin_berr.f | 8 +- lapack-netlib/SRC/zla_porcond_c.f | 7 +- lapack-netlib/SRC/zla_porcond_x.f | 7 +- lapack-netlib/SRC/zla_porfsx_extended.f | 12 +- lapack-netlib/SRC/zla_porpvgrw.f | 8 +- lapack-netlib/SRC/zla_syamv.f | 5 +- lapack-netlib/SRC/zla_syrcond_c.f | 7 +- lapack-netlib/SRC/zla_syrcond_x.f | 7 +- lapack-netlib/SRC/zla_syrfsx_extended.f | 12 +- lapack-netlib/SRC/zla_syrpvgrw.f | 8 +- lapack-netlib/SRC/zla_wwaddw.f | 8 +- lapack-netlib/SRC/zlabrd.f | 13 +- lapack-netlib/SRC/zlacgv.f | 5 +- lapack-netlib/SRC/zlacn2.f | 5 +- lapack-netlib/SRC/zlacon.f | 5 +- lapack-netlib/SRC/zlacp2.f | 5 +- lapack-netlib/SRC/zlacpy.f | 5 +- lapack-netlib/SRC/zlacrm.f | 5 +- lapack-netlib/SRC/zlacrt.f | 5 +- lapack-netlib/SRC/zladiv.f | 5 +- lapack-netlib/SRC/zlaed0.f | 7 +- lapack-netlib/SRC/zlaed7.f | 7 +- lapack-netlib/SRC/zlaed8.f | 7 +- lapack-netlib/SRC/zlaein.f | 5 +- lapack-netlib/SRC/zlaesy.f | 5 +- lapack-netlib/SRC/zlaev2.f | 5 +- lapack-netlib/SRC/zlag2c.f | 5 +- lapack-netlib/SRC/zlags2.f | 5 +- lapack-netlib/SRC/zlagtm.f | 5 +- lapack-netlib/SRC/zlahef.f | 5 +- lapack-netlib/SRC/zlahef_aa.f | 5 +- lapack-netlib/SRC/zlahef_rk.f | 13 +- lapack-netlib/SRC/zlahef_rook.f | 13 +- lapack-netlib/SRC/zlahqr.f | 29 +- lapack-netlib/SRC/zlahr2.f | 11 +- lapack-netlib/SRC/zlaic1.f | 22 +- lapack-netlib/SRC/zlals0.f | 5 +- lapack-netlib/SRC/zlalsa.f | 5 +- lapack-netlib/SRC/zlalsd.f | 5 +- lapack-netlib/SRC/zlamswlq.f | 39 +- lapack-netlib/SRC/zlamtsqr.f | 28 +- lapack-netlib/SRC/zlangb.f | 28 +- lapack-netlib/SRC/zlange.f | 27 +- lapack-netlib/SRC/zlangt.f | 5 +- lapack-netlib/SRC/zlanhb.f | 53 +- lapack-netlib/SRC/zlanhe.f | 50 +- lapack-netlib/SRC/zlanhf.f | 5 +- lapack-netlib/SRC/zlanhp.f | 51 +- lapack-netlib/SRC/zlanhs.f | 28 +- lapack-netlib/SRC/zlanht.f | 5 +- lapack-netlib/SRC/zlansb.f | 47 +- lapack-netlib/SRC/zlansp.f | 59 +- lapack-netlib/SRC/zlansy.f | 45 +- lapack-netlib/SRC/zlantb.f | 60 +- lapack-netlib/SRC/zlantp.f | 58 +- lapack-netlib/SRC/zlantr.f | 59 +- lapack-netlib/SRC/zlapll.f | 5 +- lapack-netlib/SRC/zlapmr.f | 7 +- lapack-netlib/SRC/zlapmt.f | 5 +- lapack-netlib/SRC/zlaqgb.f | 5 +- lapack-netlib/SRC/zlaqge.f | 5 +- lapack-netlib/SRC/zlaqhb.f | 5 +- lapack-netlib/SRC/zlaqhe.f | 5 +- lapack-netlib/SRC/zlaqhp.f | 5 +- lapack-netlib/SRC/zlaqp2.f | 5 +- lapack-netlib/SRC/zlaqps.f | 5 +- lapack-netlib/SRC/zlaqr0.f | 5 +- lapack-netlib/SRC/zlaqr1.f | 5 +- lapack-netlib/SRC/zlaqr2.f | 5 +- lapack-netlib/SRC/zlaqr3.f | 5 +- lapack-netlib/SRC/zlaqr4.f | 5 +- lapack-netlib/SRC/zlaqr5.f | 5 +- lapack-netlib/SRC/zlaqsb.f | 5 +- lapack-netlib/SRC/zlaqsp.f | 5 +- lapack-netlib/SRC/zlaqsy.f | 5 +- lapack-netlib/SRC/zlaqz0.f | 692 + lapack-netlib/SRC/zlaqz1.f | 248 + lapack-netlib/SRC/zlaqz2.f | 464 + lapack-netlib/SRC/zlaqz3.f | 514 + lapack-netlib/SRC/zlar1v.f | 5 +- lapack-netlib/SRC/zlar2v.f | 5 +- lapack-netlib/SRC/zlarcm.f | 5 +- lapack-netlib/SRC/zlarf.f | 5 +- lapack-netlib/SRC/zlarfb.f | 5 +- lapack-netlib/SRC/zlarfg.f | 5 +- lapack-netlib/SRC/zlarfgp.f | 7 +- lapack-netlib/SRC/zlarft.f | 5 +- lapack-netlib/SRC/zlarfx.f | 5 +- lapack-netlib/SRC/zlarfy.f | 5 +- lapack-netlib/SRC/zlargv.f | 5 +- lapack-netlib/SRC/zlarnv.f | 7 +- lapack-netlib/SRC/zlarrv.f | 5 +- lapack-netlib/SRC/zlarscl2.f | 5 +- lapack-netlib/SRC/zlartg.f | 250 - lapack-netlib/SRC/zlartg.f90 | 233 + lapack-netlib/SRC/zlartv.f | 5 +- lapack-netlib/SRC/zlarz.f | 5 +- lapack-netlib/SRC/zlarzb.f | 5 +- lapack-netlib/SRC/zlarzt.f | 5 +- lapack-netlib/SRC/zlascl.f | 5 +- lapack-netlib/SRC/zlascl2.f | 5 +- lapack-netlib/SRC/zlaset.f | 5 +- lapack-netlib/SRC/zlasr.f | 5 +- lapack-netlib/SRC/zlassq.f | 168 - lapack-netlib/SRC/zlassq.f90 | 262 + lapack-netlib/SRC/zlaswlq.f | 15 +- lapack-netlib/SRC/zlaswp.f | 5 +- lapack-netlib/SRC/zlasyf.f | 5 +- lapack-netlib/SRC/zlasyf_aa.f | 5 +- lapack-netlib/SRC/zlasyf_rk.f | 5 +- lapack-netlib/SRC/zlasyf_rook.f | 5 +- lapack-netlib/SRC/zlat2c.f | 5 +- lapack-netlib/SRC/zlatbs.f | 5 +- lapack-netlib/SRC/zlatdf.f | 5 +- lapack-netlib/SRC/zlatps.f | 5 +- lapack-netlib/SRC/zlatrd.f | 9 +- lapack-netlib/SRC/zlatrs.f | 5 +- lapack-netlib/SRC/zlatrz.f | 5 +- lapack-netlib/SRC/zlatsqr.f | 11 +- lapack-netlib/SRC/zlaunhr_col_getrfnp.f | 5 +- lapack-netlib/SRC/zlaunhr_col_getrfnp2.f | 7 +- lapack-netlib/SRC/zlauu2.f | 9 +- lapack-netlib/SRC/zlauum.f | 5 +- lapack-netlib/SRC/zpbcon.f | 5 +- lapack-netlib/SRC/zpbequ.f | 5 +- lapack-netlib/SRC/zpbrfs.f | 5 +- lapack-netlib/SRC/zpbstf.f | 5 +- lapack-netlib/SRC/zpbsv.f | 5 +- lapack-netlib/SRC/zpbsvx.f | 5 +- lapack-netlib/SRC/zpbtf2.f | 5 +- lapack-netlib/SRC/zpbtrf.f | 5 +- lapack-netlib/SRC/zpbtrs.f | 5 +- lapack-netlib/SRC/zpftrf.f | 5 +- lapack-netlib/SRC/zpftri.f | 5 +- lapack-netlib/SRC/zpftrs.f | 5 +- lapack-netlib/SRC/zpocon.f | 5 +- lapack-netlib/SRC/zpoequ.f | 5 +- lapack-netlib/SRC/zpoequb.f | 9 +- lapack-netlib/SRC/zporfs.f | 5 +- lapack-netlib/SRC/zporfsx.f | 9 +- lapack-netlib/SRC/zposv.f | 5 +- lapack-netlib/SRC/zposvx.f | 5 +- lapack-netlib/SRC/zposvxx.f | 5 +- lapack-netlib/SRC/zpotf2.f | 13 +- lapack-netlib/SRC/zpotrf.f | 5 +- lapack-netlib/SRC/zpotrf2.f | 5 +- lapack-netlib/SRC/zpotri.f | 5 +- lapack-netlib/SRC/zpotrs.f | 5 +- lapack-netlib/SRC/zppcon.f | 5 +- lapack-netlib/SRC/zppequ.f | 5 +- lapack-netlib/SRC/zpprfs.f | 5 +- lapack-netlib/SRC/zppsv.f | 5 +- lapack-netlib/SRC/zppsvx.f | 5 +- lapack-netlib/SRC/zpptrf.f | 9 +- lapack-netlib/SRC/zpptri.f | 7 +- lapack-netlib/SRC/zpptrs.f | 5 +- lapack-netlib/SRC/zpstf2.f | 5 +- lapack-netlib/SRC/zpstrf.f | 5 +- lapack-netlib/SRC/zptcon.f | 5 +- lapack-netlib/SRC/zpteqr.f | 5 +- lapack-netlib/SRC/zptrfs.f | 5 +- lapack-netlib/SRC/zptsv.f | 5 +- lapack-netlib/SRC/zptsvx.f | 5 +- lapack-netlib/SRC/zpttrf.f | 5 +- lapack-netlib/SRC/zpttrs.f | 5 +- lapack-netlib/SRC/zptts2.f | 5 +- lapack-netlib/SRC/zrot.f | 7 +- lapack-netlib/SRC/zspcon.f | 5 +- lapack-netlib/SRC/zspmv.f | 5 +- lapack-netlib/SRC/zspr.f | 5 +- lapack-netlib/SRC/zsprfs.f | 5 +- lapack-netlib/SRC/zspsv.f | 5 +- lapack-netlib/SRC/zspsvx.f | 5 +- lapack-netlib/SRC/zsptrf.f | 5 +- lapack-netlib/SRC/zsptri.f | 5 +- lapack-netlib/SRC/zsptrs.f | 5 +- lapack-netlib/SRC/zstedc.f | 5 +- lapack-netlib/SRC/zstegr.f | 7 +- lapack-netlib/SRC/zstein.f | 5 +- lapack-netlib/SRC/zstemr.f | 5 +- lapack-netlib/SRC/zsteqr.f | 5 +- lapack-netlib/SRC/zsycon.f | 5 +- lapack-netlib/SRC/zsycon_3.f | 5 +- lapack-netlib/SRC/zsycon_rook.f | 5 +- lapack-netlib/SRC/zsyconv.f | 5 +- lapack-netlib/SRC/zsyconvf.f | 9 +- lapack-netlib/SRC/zsyconvf_rook.f | 5 +- lapack-netlib/SRC/zsyequb.f | 13 +- lapack-netlib/SRC/zsymv.f | 5 +- lapack-netlib/SRC/zsyr.f | 5 +- lapack-netlib/SRC/zsyrfs.f | 5 +- lapack-netlib/SRC/zsyrfsx.f | 11 +- lapack-netlib/SRC/zsysv.f | 7 +- lapack-netlib/SRC/zsysv_aa.f | 5 +- lapack-netlib/SRC/zsysv_aa_2stage.f | 11 +- lapack-netlib/SRC/zsysv_rk.f | 7 +- lapack-netlib/SRC/zsysv_rook.f | 7 +- lapack-netlib/SRC/zsysvx.f | 5 +- lapack-netlib/SRC/zsysvxx.f | 11 +- lapack-netlib/SRC/zsyswapr.f | 5 +- lapack-netlib/SRC/zsytf2.f | 5 +- lapack-netlib/SRC/zsytf2_rk.f | 5 +- lapack-netlib/SRC/zsytf2_rook.f | 5 +- lapack-netlib/SRC/zsytrf.f | 5 +- lapack-netlib/SRC/zsytrf_aa.f | 6 +- lapack-netlib/SRC/zsytrf_aa_2stage.f | 11 +- lapack-netlib/SRC/zsytrf_rk.f | 5 +- lapack-netlib/SRC/zsytrf_rook.f | 5 +- lapack-netlib/SRC/zsytri.f | 5 +- lapack-netlib/SRC/zsytri2.f | 5 +- lapack-netlib/SRC/zsytri2x.f | 9 +- lapack-netlib/SRC/zsytri_3.f | 5 +- lapack-netlib/SRC/zsytri_3x.f | 5 +- lapack-netlib/SRC/zsytri_rook.f | 5 +- lapack-netlib/SRC/zsytrs.f | 5 +- lapack-netlib/SRC/zsytrs2.f | 5 +- lapack-netlib/SRC/zsytrs_3.f | 5 +- lapack-netlib/SRC/zsytrs_aa.f | 5 +- lapack-netlib/SRC/zsytrs_aa_2stage.f | 5 +- lapack-netlib/SRC/zsytrs_rook.f | 5 +- lapack-netlib/SRC/ztbcon.f | 5 +- lapack-netlib/SRC/ztbrfs.f | 5 +- lapack-netlib/SRC/ztbtrs.f | 5 +- lapack-netlib/SRC/ztfsm.f | 5 +- lapack-netlib/SRC/ztftri.f | 5 +- lapack-netlib/SRC/ztfttp.f | 5 +- lapack-netlib/SRC/ztfttr.f | 5 +- lapack-netlib/SRC/ztgevc.f | 5 +- lapack-netlib/SRC/ztgex2.f | 49 +- lapack-netlib/SRC/ztgexc.f | 5 +- lapack-netlib/SRC/ztgsen.f | 5 +- lapack-netlib/SRC/ztgsja.f | 5 +- lapack-netlib/SRC/ztgsna.f | 5 +- lapack-netlib/SRC/ztgsy2.f | 5 +- lapack-netlib/SRC/ztgsyl.f | 7 +- lapack-netlib/SRC/ztpcon.f | 5 +- lapack-netlib/SRC/ztplqt.f | 15 +- lapack-netlib/SRC/ztplqt2.f | 5 +- lapack-netlib/SRC/ztpmlqt.f | 25 +- lapack-netlib/SRC/ztpmqrt.f | 7 +- lapack-netlib/SRC/ztpqrt.f | 5 +- lapack-netlib/SRC/ztpqrt2.f | 5 +- lapack-netlib/SRC/ztprfb.f | 5 +- lapack-netlib/SRC/ztprfs.f | 5 +- lapack-netlib/SRC/ztptri.f | 5 +- lapack-netlib/SRC/ztptrs.f | 5 +- lapack-netlib/SRC/ztpttf.f | 5 +- lapack-netlib/SRC/ztpttr.f | 5 +- lapack-netlib/SRC/ztrcon.f | 5 +- lapack-netlib/SRC/ztrevc.f | 5 +- lapack-netlib/SRC/ztrevc3.f | 11 +- lapack-netlib/SRC/ztrexc.f | 5 +- lapack-netlib/SRC/ztrrfs.f | 5 +- lapack-netlib/SRC/ztrsen.f | 5 +- lapack-netlib/SRC/ztrsna.f | 5 +- lapack-netlib/SRC/ztrsyl.f | 5 +- lapack-netlib/SRC/ztrti2.f | 5 +- lapack-netlib/SRC/ztrtri.f | 5 +- lapack-netlib/SRC/ztrtrs.f | 5 +- lapack-netlib/SRC/ztrttf.f | 5 +- lapack-netlib/SRC/ztrttp.f | 5 +- lapack-netlib/SRC/ztzrzf.f | 7 +- lapack-netlib/SRC/zunbdb.f | 5 +- lapack-netlib/SRC/zunbdb1.f | 5 +- lapack-netlib/SRC/zunbdb2.f | 5 +- lapack-netlib/SRC/zunbdb3.f | 5 +- lapack-netlib/SRC/zunbdb4.f | 5 +- lapack-netlib/SRC/zunbdb5.f | 5 +- lapack-netlib/SRC/zunbdb6.f | 5 +- lapack-netlib/SRC/zuncsd.f | 5 +- lapack-netlib/SRC/zuncsd2by1.f | 32 +- lapack-netlib/SRC/zung2l.f | 5 +- lapack-netlib/SRC/zung2r.f | 5 +- lapack-netlib/SRC/zungbr.f | 7 +- lapack-netlib/SRC/zunghr.f | 5 +- lapack-netlib/SRC/zungl2.f | 5 +- lapack-netlib/SRC/zunglq.f | 5 +- lapack-netlib/SRC/zungql.f | 5 +- lapack-netlib/SRC/zungqr.f | 5 +- lapack-netlib/SRC/zungr2.f | 5 +- lapack-netlib/SRC/zungrq.f | 5 +- lapack-netlib/SRC/zungtr.f | 5 +- lapack-netlib/SRC/zungtsqr.f | 12 +- lapack-netlib/SRC/zunhr_col.f | 18 +- lapack-netlib/SRC/zunm22.f | 5 +- lapack-netlib/SRC/zunm2l.f | 5 +- lapack-netlib/SRC/zunm2r.f | 5 +- lapack-netlib/SRC/zunmbr.f | 18 +- lapack-netlib/SRC/zunmhr.f | 13 +- lapack-netlib/SRC/zunml2.f | 5 +- lapack-netlib/SRC/zunmlq.f | 15 +- lapack-netlib/SRC/zunmql.f | 11 +- lapack-netlib/SRC/zunmqr.f | 15 +- lapack-netlib/SRC/zunmr2.f | 5 +- lapack-netlib/SRC/zunmr3.f | 5 +- lapack-netlib/SRC/zunmrq.f | 9 +- lapack-netlib/SRC/zunmrz.f | 7 +- lapack-netlib/SRC/zunmtr.f | 13 +- lapack-netlib/SRC/zupgtr.f | 5 +- lapack-netlib/SRC/zupmtr.f | 5 +- 4696 files changed, 27372 insertions(+), 17919 deletions(-) create mode 100644 lapack-netlib/INSTALL/droundup_lwork.f create mode 100644 lapack-netlib/INSTALL/sroundup_lwork.f create mode 100644 lapack-netlib/SRC/claqz0.f create mode 100644 lapack-netlib/SRC/claqz1.f create mode 100644 lapack-netlib/SRC/claqz2.f create mode 100644 lapack-netlib/SRC/claqz3.f delete mode 100644 lapack-netlib/SRC/clartg.f create mode 100644 lapack-netlib/SRC/clartg.f90 delete mode 100644 lapack-netlib/SRC/classq.f create mode 100644 lapack-netlib/SRC/classq.f90 create mode 100644 lapack-netlib/SRC/dlaqz0.f create mode 100644 lapack-netlib/SRC/dlaqz1.f create mode 100644 lapack-netlib/SRC/dlaqz2.f create mode 100644 lapack-netlib/SRC/dlaqz3.f create mode 100644 lapack-netlib/SRC/dlaqz4.f delete mode 100644 lapack-netlib/SRC/dlartg.f create mode 100644 lapack-netlib/SRC/dlartg.f90 delete mode 100644 lapack-netlib/SRC/dlassq.f create mode 100644 lapack-netlib/SRC/dlassq.f90 create mode 100644 lapack-netlib/SRC/la_constants.f90 create mode 100644 lapack-netlib/SRC/la_xisnan.F90 create mode 100644 lapack-netlib/SRC/slaqz0.f create mode 100644 lapack-netlib/SRC/slaqz1.f create mode 100644 lapack-netlib/SRC/slaqz2.f create mode 100644 lapack-netlib/SRC/slaqz3.f create mode 100644 lapack-netlib/SRC/slaqz4.f delete mode 100644 lapack-netlib/SRC/slartg.f create mode 100644 lapack-netlib/SRC/slartg.f90 delete mode 100644 lapack-netlib/SRC/slassq.f create mode 100644 lapack-netlib/SRC/slassq.f90 create mode 100644 lapack-netlib/SRC/zlaqz0.f create mode 100644 lapack-netlib/SRC/zlaqz1.f create mode 100644 lapack-netlib/SRC/zlaqz2.f create mode 100644 lapack-netlib/SRC/zlaqz3.f delete mode 100644 lapack-netlib/SRC/zlartg.f create mode 100644 lapack-netlib/SRC/zlartg.f90 delete mode 100644 lapack-netlib/SRC/zlassq.f create mode 100644 lapack-netlib/SRC/zlassq.f90 diff --git a/cmake/lapack.cmake b/cmake/lapack.cmake index be3aead4c..f8a27f5d4 100644 --- a/cmake/lapack.cmake +++ b/cmake/lapack.cmake @@ -2,12 +2,13 @@ if (NOT C_LAPACK) message (STATUS "fortran lapack") set(ALLAUX ilaenv.f ilaenv2stage.f ieeeck.f lsamen.f iparmq.f iparam2stage.F - ilaprec.f ilatrans.f ilauplo.f iladiag.f chla_transtype.f dlaset.f + ilaprec.f ilatrans.f ilauplo.f iladiag.f chla_transtype.f dlaset.f la_xisnan.F90 ../INSTALL/ilaver.f xerbla_array.f ../INSTALL/slamch.f) set(SCLAUX scombssq.f sbdsvdx.f sstevx.f sstein.f + la_constants.f90 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 @@ -16,16 +17,17 @@ set(SCLAUX 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 + slartg.f90 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 + slasr.f slasrt.f slassq.f90 slasv2.f spttrf.f sstebz.f sstedc.f ssteqr.f ssterf.f slaisnan.f sisnan.f - slartgp.f slartgs.f + slartgp.f slartgs.f ../INSTALL/sroundup_lwork.f ../INSTALL/second_${TIMER}.f) set(DZLAUX + la_constants.f90 dbdsdc.f dbdsvdx.f dstevx.f dstein.f dbdsqr.f ddisna.f dlabad.f dlacpy.f dladiv.f dlae2.f dlaebz.f @@ -35,13 +37,13 @@ set(DZLAUX 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 + dlartg.f90 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 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 + dlasr.f dlasrt.f dlassq.f90 dlasv2.f dpttrf.f dstebz.f dstedc.f dsteqr.f dsterf.f dlaisnan.f disnan.f - dlartgp.f dlartgs.f + dlartgp.f dlartgs.f ../INSTALL/droundup_lwork.f ../INSTALL/dlamch.f ../INSTALL/dsecnd_${TIMER}.f) set(SLASRC @@ -59,6 +61,7 @@ set(SLASRC sggrqf.f sggsvd3.f sggsvp3.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 + slaqz0.f slaqz1.f slaqz2.f slaqz3.f slaqz4.f slaein.f slaexc.f slag2.f slags2.f slagtm.f slagv2.f slahqr.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 @@ -171,10 +174,11 @@ set(CLASRC 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 + claqz0.f claqz1.f claqz2.f claqz3.f claqsp.f claqsy.f clar1v.f clar2v.f ilaclr.f ilaclc.f clarf.f clarfb.f clarfb_gett.f clarfg.f clarfgp.f clarft.f - clarfx.f clarfy.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 + clarfx.f clarfy.f clargv.f clarnv.f clarrv.f clartg.f90 clartv.f + clarz.f clarzb.f clarzt.f clascl.f claset.f clasr.f classq.f90 clasyf.f clasyf_rook.f clasyf_rk.f clasyf_aa.f clatbs.f clatdf.f clatps.f clatrd.f clatrs.f clatrz.f cpbcon.f cpbequ.f cpbrfs.f cpbstf.f cpbsv.f @@ -245,6 +249,7 @@ set(DLASRC dggglm.f dgghrd.f dgghd3.f dgglse.f dggqrf.f dggrqf.f dggsvd3.f dggsvp3.f dgtcon.f dgtrfs.f dgtsv.f dgtsvx.f dgttrf.f dgttrs.f dgtts2.f dhgeqz.f + dlaqz0.f dlaqz1.f dlaqz2.f dlaqz3.f dlaqz4.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 dlahr2.f dlaic1.f dlaln2.f dlals0.f dlalsa.f dlalsd.f @@ -346,6 +351,7 @@ set(ZLASRC zhetrs_3.f zhecon_3.f zhesv_rk.f zhesv_aa.f zhesv_aa_2stage.f zhetrf_aa.f zhetrf_aa_2stage.f zhetrs_aa.f zhetrs_aa_2stage.f zhgeqz.f zhpcon.f zhpev.f zhpevd.f + zlaqz0.f zlaqz1.f zlaqz2.f zlaqz3.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 @@ -363,9 +369,9 @@ set(ZLASRC zlaqsp.f zlaqsy.f zlar1v.f zlar2v.f ilazlr.f ilazlc.f zlarcm.f zlarf.f zlarfb.f zlarfb_gett.f zlarfg.f zlarfgp.f zlarft.f - zlarfx.f zlarfy.f zlargv.f zlarnv.f zlarrv.f zlartg.f zlartv.f + zlarfx.f zlarfy.f zlargv.f zlarnv.f zlarrv.f zlartg.f90 zlartv.f zlarz.f zlarzb.f zlarzt.f zlascl.f zlaset.f zlasr.f - zlassq.f zlasyf.f zlasyf_rook.f zlasyf_rk.f zlasyf_aa.f + zlassq.f90 zlasyf.f zlasyf_rook.f zlasyf_rk.f zlasyf_aa.f zlatbs.f zlatdf.f zlatps.f zlatrd.f zlatrs.f zlatrz.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 diff --git a/exports/gensymbol b/exports/gensymbol index e7210a030..e48b8c201 100644 --- a/exports/gensymbol +++ b/exports/gensymbol @@ -814,6 +814,28 @@ zpotri, zgesvdq, zungtsqr ); + # functions added for lapack-3.10.1 +#@lapackobjs2d = (@lapackobjs2d, +# dlaqz0, +# dlaqz1, +# dlaqz2, +# dlaqz3, +# dlaqz4 +# ); +#@lapackobjs2s = (@lapackobjs2s, +# slaqz0, +# slaqz1, +# slaqz2, +# slaqz3, +# slaqz4 +# ); +#@lapackobjs2z = (@lapackobjs2z, +# zlaqz0, +# zlaqz1, +# zlaqz2, +# zlaqz3, +# zlaqz4 +#); @lapack_extendedprecision_objs = ( zposvxx, clagge, clatms, chesvxx, cposvxx, cgesvxx, ssyrfssx, csyrfsx, diff --git a/lapack-netlib/INSTALL/Makefile b/lapack-netlib/INSTALL/Makefile index 1c86bd77d..667197f9e 100644 --- a/lapack-netlib/INSTALL/Makefile +++ b/lapack-netlib/INSTALL/Makefile @@ -75,6 +75,8 @@ cleantest: ifneq ($(C_LAPACK), 1) slamch.o: slamch.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< dlamch.o: dlamch.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< +sroundup_lwork.o: sroundup_lwork.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< +droundup_lwork.o: droundup_lwork.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< else slamch.o: slamch.c ; $(CC) $(CFLAGS) -c -o $@ $< dlamch.o: dlamch.c ; $(CC) $(CFLAGS) -c -o $@ $< diff --git a/lapack-netlib/INSTALL/droundup_lwork.f b/lapack-netlib/INSTALL/droundup_lwork.f new file mode 100644 index 000000000..86f84b2ad --- /dev/null +++ b/lapack-netlib/INSTALL/droundup_lwork.f @@ -0,0 +1,86 @@ +*> \brief \b DROUNDUP_LWORK +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +* Definition: +* =========== +* +* DOUBLE PRECISION FUNCTION DROUNDUP_LWORK( LWORK ) +* +* .. Scalar Arguments .. +* INTEGER LWORK +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> DROUNDUP_LWORK deals with a subtle bug with returning LWORK as a Float. +*> This routine guarantees it is rounded up instead of down by +*> multiplying LWORK by 1+eps when it is necessary, where eps is the relative machine precision. +*> E.g., +*> +*> float( 9007199254740993 ) == 9007199254740992 +*> float( 9007199254740993 ) * (1.+eps) == 9007199254740994 +*> +*> \return DROUNDUP_LWORK +*> \verbatim +*> DROUNDUP_LWORK >= LWORK. +*> DROUNDUP_LWORK is guaranteed to have zero decimal part. +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] LWORK Workspace size. +* +* Authors: +* ======== +* +*> \author Weslley Pereira, University of Colorado Denver, USA +* +*> \ingroup auxOTHERauxiliary +* +*> \par Further Details: +* ===================== +*> +*> \verbatim +*> This routine was inspired in the method `magma_zmake_lwork` from MAGMA. +*> \see https://bitbucket.org/icl/magma/src/master/control/magma_zauxiliary.cpp +*> \endverbatim +* +* ===================================================================== + DOUBLE PRECISION FUNCTION DROUNDUP_LWORK( LWORK ) +* +* -- LAPACK auxiliary routine -- +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +* +* .. Scalar Arguments .. + INTEGER LWORK +* .. +* +* ===================================================================== +* .. +* .. Intrinsic Functions .. + INTRINSIC EPSILON, DBLE, INT +* .. +* .. Executable Statements .. +* .. + DROUNDUP_LWORK = DBLE( LWORK ) +* + IF( INT( DROUNDUP_LWORK ) .LT. LWORK ) THEN +* Force round up of LWORK + DROUNDUP_LWORK = DROUNDUP_LWORK * ( 1.0D+0 + EPSILON(0.0D+0) ) + ENDIF +* + RETURN +* +* End of DROUNDUP_LWORK +* + END diff --git a/lapack-netlib/INSTALL/sroundup_lwork.f b/lapack-netlib/INSTALL/sroundup_lwork.f new file mode 100644 index 000000000..7fe8610f0 --- /dev/null +++ b/lapack-netlib/INSTALL/sroundup_lwork.f @@ -0,0 +1,86 @@ +*> \brief \b SROUNDUP_LWORK +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +* Definition: +* =========== +* +* REAL FUNCTION SROUNDUP_LWORK( LWORK ) +* +* .. Scalar Arguments .. +* INTEGER LWORK +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> SROUNDUP_LWORK deals with a subtle bug with returning LWORK as a Float. +*> This routine guarantees it is rounded up instead of down by +*> multiplying LWORK by 1+eps when it is necessary, where eps is the relative machine precision. +*> E.g., +*> +*> float( 16777217 ) == 16777216 +*> float( 16777217 ) * (1.+eps) == 16777218 +*> +*> \return SROUNDUP_LWORK +*> \verbatim +*> SROUNDUP_LWORK >= LWORK. +*> SROUNDUP_LWORK is guaranteed to have zero decimal part. +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] LWORK Workspace size. +* +* Authors: +* ======== +* +*> \author Weslley Pereira, University of Colorado Denver, USA +* +*> \ingroup auxOTHERauxiliary +* +*> \par Further Details: +* ===================== +*> +*> \verbatim +*> This routine was inspired in the method `magma_zmake_lwork` from MAGMA. +*> \see https://bitbucket.org/icl/magma/src/master/control/magma_zauxiliary.cpp +*> \endverbatim +* +* ===================================================================== + REAL FUNCTION SROUNDUP_LWORK( LWORK ) +* +* -- LAPACK auxiliary routine -- +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +* +* .. Scalar Arguments .. + INTEGER LWORK +* .. +* +* ===================================================================== +* .. +* .. Intrinsic Functions .. + INTRINSIC EPSILON, REAL, INT +* .. +* .. Executable Statements .. +* .. + SROUNDUP_LWORK = REAL( LWORK ) +* + IF( INT( SROUNDUP_LWORK ) .LT. LWORK ) THEN +* Force round up of LWORK + SROUNDUP_LWORK = SROUNDUP_LWORK * ( 1.0E+0 + EPSILON(0.0E+0) ) + ENDIF +* + RETURN +* +* End of SROUNDUP_LWORK +* + END diff --git a/lapack-netlib/LAPACKE/include/CMakeLists.txt b/lapack-netlib/LAPACKE/include/CMakeLists.txt index b690dc554..7b266fc99 100644 --- a/lapack-netlib/LAPACKE/include/CMakeLists.txt +++ b/lapack-netlib/LAPACKE/include/CMakeLists.txt @@ -1,3 +1,7 @@ -set(LAPACKE_INCLUDE lapacke.h lapack.h lapacke_config.h lapacke_utils.h) +set(LAPACKE_INCLUDE lapack.h) + +IF(LAPACKE) + list(APPEND LAPACKE_INCLUDE lapacke.h lapacke_config.h lapacke_utils.h) +endif() file(COPY ${LAPACKE_INCLUDE} DESTINATION ${LAPACK_BINARY_DIR}/include) diff --git a/lapack-netlib/LAPACKE/include/lapack.h b/lapack-netlib/LAPACKE/include/lapack.h index ada1944b2..e4c39e1ee 100644 --- a/lapack-netlib/LAPACKE/include/lapack.h +++ b/lapack-netlib/LAPACKE/include/lapack.h @@ -11,6 +11,12 @@ #include "lapacke_mangling.h" #include +#include + +/* It seems all current Fortran compilers put strlen at end. +* Some historical compilers put strlen after the str argument +* or make the str argument into a struct. */ +#define LAPACK_FORTRAN_STRLEN_END /* Complex types are structures equivalent to the * Fortran complex types COMPLEX(4) and COMPLEX(8). @@ -108,16 +114,25 @@ typedef lapack_logical (*LAPACK_Z_SELECT1) ( const lapack_complex_double* ); typedef lapack_logical (*LAPACK_Z_SELECT2) ( const lapack_complex_double*, const lapack_complex_double* ); -#define LAPACK_lsame LAPACK_GLOBAL(lsame,LSAME) -lapack_logical LAPACK_lsame( char* ca, char* cb, - lapack_int lca, lapack_int lcb ); +#define LAPACK_lsame_base LAPACK_GLOBAL(lsame,LSAME) +lapack_logical LAPACK_lsame_base( char* ca, char* cb, + lapack_int lca, lapack_int lcb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__) +#endif /*----------------------------------------------------------------------------*/ /* This is in alphabetical order (ignoring leading precision). */ -#define LAPACK_cbbcsd LAPACK_GLOBAL(cbbcsd,CBBCSD) -void LAPACK_cbbcsd( +#define LAPACK_cbbcsd_base LAPACK_GLOBAL(cbbcsd,CBBCSD) +void LAPACK_cbbcsd_base( char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, lapack_int const* m, lapack_int const* p, lapack_int const* q, float* theta, @@ -135,10 +150,19 @@ void LAPACK_cbbcsd( float* B22D, float* B22E, float* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__) +#endif -#define LAPACK_dbbcsd LAPACK_GLOBAL(dbbcsd,DBBCSD) -void LAPACK_dbbcsd( +#define LAPACK_dbbcsd_base LAPACK_GLOBAL(dbbcsd,DBBCSD) +void LAPACK_dbbcsd_base( char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, lapack_int const* m, lapack_int const* p, lapack_int const* q, double* theta, @@ -156,10 +180,19 @@ void LAPACK_dbbcsd( double* b22d, double* b22e, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__) +#endif -#define LAPACK_sbbcsd LAPACK_GLOBAL(sbbcsd,SBBCSD) -void LAPACK_sbbcsd( +#define LAPACK_sbbcsd_base LAPACK_GLOBAL(sbbcsd,SBBCSD) +void LAPACK_sbbcsd_base( char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, lapack_int const* m, lapack_int const* p, lapack_int const* q, float* theta, @@ -177,10 +210,19 @@ void LAPACK_sbbcsd( float* B22D, float* B22E, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__) +#endif -#define LAPACK_zbbcsd LAPACK_GLOBAL(zbbcsd,ZBBCSD) -void LAPACK_zbbcsd( +#define LAPACK_zbbcsd_base LAPACK_GLOBAL(zbbcsd,ZBBCSD) +void LAPACK_zbbcsd_base( char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, lapack_int const* m, lapack_int const* p, lapack_int const* q, double* theta, @@ -198,10 +240,19 @@ void LAPACK_zbbcsd( double* B22D, double* B22E, double* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__) +#endif -#define LAPACK_dbdsdc LAPACK_GLOBAL(dbdsdc,DBDSDC) -void LAPACK_dbdsdc( +#define LAPACK_dbdsdc_base LAPACK_GLOBAL(dbdsdc,DBDSDC) +void LAPACK_dbdsdc_base( char const* uplo, char const* compq, lapack_int const* n, double* D, @@ -211,10 +262,19 @@ void LAPACK_dbdsdc( double* Q, lapack_int* IQ, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__) +#endif -#define LAPACK_sbdsdc LAPACK_GLOBAL(sbdsdc,SBDSDC) -void LAPACK_sbdsdc( +#define LAPACK_sbdsdc_base LAPACK_GLOBAL(sbdsdc,SBDSDC) +void LAPACK_sbdsdc_base( char const* uplo, char const* compq, lapack_int const* n, float* D, @@ -224,10 +284,19 @@ void LAPACK_sbdsdc( float* Q, lapack_int* IQ, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__) +#endif -#define LAPACK_cbdsqr LAPACK_GLOBAL(cbdsqr,CBDSQR) -void LAPACK_cbdsqr( +#define LAPACK_cbdsqr_base LAPACK_GLOBAL(cbdsqr,CBDSQR) +void LAPACK_cbdsqr_base( char const* uplo, lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc, float* D, @@ -236,10 +305,19 @@ void LAPACK_cbdsqr( lapack_complex_float* U, lapack_int const* ldu, lapack_complex_float* C, lapack_int const* ldc, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__) +#endif -#define LAPACK_dbdsqr LAPACK_GLOBAL(dbdsqr,DBDSQR) -void LAPACK_dbdsqr( +#define LAPACK_dbdsqr_base LAPACK_GLOBAL(dbdsqr,DBDSQR) +void LAPACK_dbdsqr_base( char const* uplo, lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc, double* D, @@ -248,10 +326,19 @@ void LAPACK_dbdsqr( double* U, lapack_int const* ldu, double* C, lapack_int const* ldc, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__) +#endif -#define LAPACK_sbdsqr LAPACK_GLOBAL(sbdsqr,SBDSQR) -void LAPACK_sbdsqr( +#define LAPACK_sbdsqr_base LAPACK_GLOBAL(sbdsqr,SBDSQR) +void LAPACK_sbdsqr_base( char const* uplo, lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc, float* D, @@ -260,10 +347,19 @@ void LAPACK_sbdsqr( float* U, lapack_int const* ldu, float* C, lapack_int const* ldc, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__) +#endif -#define LAPACK_zbdsqr LAPACK_GLOBAL(zbdsqr,ZBDSQR) -void LAPACK_zbdsqr( +#define LAPACK_zbdsqr_base LAPACK_GLOBAL(zbdsqr,ZBDSQR) +void LAPACK_zbdsqr_base( char const* uplo, lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc, double* D, @@ -272,10 +368,19 @@ void LAPACK_zbdsqr( lapack_complex_double* U, lapack_int const* ldu, lapack_complex_double* C, lapack_int const* ldc, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__) +#endif -#define LAPACK_dbdsvdx LAPACK_GLOBAL(dbdsvdx,DBDSVDX) -void LAPACK_dbdsvdx( +#define LAPACK_dbdsvdx_base LAPACK_GLOBAL(dbdsvdx,DBDSVDX) +void LAPACK_dbdsvdx_base( char const* uplo, char const* jobz, char const* range, lapack_int const* n, double const* D, @@ -286,10 +391,19 @@ void LAPACK_dbdsvdx( double* Z, lapack_int const* ldz, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__) +#endif -#define LAPACK_sbdsvdx LAPACK_GLOBAL(sbdsvdx,SBDSVDX) -void LAPACK_sbdsvdx( +#define LAPACK_sbdsvdx_base LAPACK_GLOBAL(sbdsvdx,SBDSVDX) +void LAPACK_sbdsvdx_base( char const* uplo, char const* jobz, char const* range, lapack_int const* n, float const* D, @@ -300,26 +414,53 @@ void LAPACK_sbdsvdx( float* Z, lapack_int const* ldz, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__) +#endif -#define LAPACK_ddisna LAPACK_GLOBAL(ddisna,DDISNA) -void LAPACK_ddisna( +#define LAPACK_ddisna_base LAPACK_GLOBAL(ddisna,DDISNA) +void LAPACK_ddisna_base( char const* job, lapack_int const* m, lapack_int const* n, double const* D, double* SEP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__, 1) +#else + #define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__) +#endif -#define LAPACK_sdisna LAPACK_GLOBAL(sdisna,SDISNA) -void LAPACK_sdisna( +#define LAPACK_sdisna_base LAPACK_GLOBAL(sdisna,SDISNA) +void LAPACK_sdisna_base( char const* job, lapack_int const* m, lapack_int const* n, float const* D, float* SEP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__, 1) +#else + #define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__) +#endif -#define LAPACK_cgbbrd LAPACK_GLOBAL(cgbbrd,CGBBRD) -void LAPACK_cgbbrd( +#define LAPACK_cgbbrd_base LAPACK_GLOBAL(cgbbrd,CGBBRD) +void LAPACK_cgbbrd_base( char const* vect, lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku, lapack_complex_float* AB, lapack_int const* ldab, @@ -330,10 +471,19 @@ void LAPACK_cgbbrd( lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__) +#endif -#define LAPACK_dgbbrd LAPACK_GLOBAL(dgbbrd,DGBBRD) -void LAPACK_dgbbrd( +#define LAPACK_dgbbrd_base LAPACK_GLOBAL(dgbbrd,DGBBRD) +void LAPACK_dgbbrd_base( char const* vect, lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku, double* AB, lapack_int const* ldab, @@ -343,10 +493,19 @@ void LAPACK_dgbbrd( double* PT, lapack_int const* ldpt, double* C, lapack_int const* ldc, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__) +#endif -#define LAPACK_sgbbrd LAPACK_GLOBAL(sgbbrd,SGBBRD) -void LAPACK_sgbbrd( +#define LAPACK_sgbbrd_base LAPACK_GLOBAL(sgbbrd,SGBBRD) +void LAPACK_sgbbrd_base( char const* vect, lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku, float* AB, lapack_int const* ldab, @@ -356,10 +515,19 @@ void LAPACK_sgbbrd( float* PT, lapack_int const* ldpt, float* C, lapack_int const* ldc, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__) +#endif -#define LAPACK_zgbbrd LAPACK_GLOBAL(zgbbrd,ZGBBRD) -void LAPACK_zgbbrd( +#define LAPACK_zgbbrd_base LAPACK_GLOBAL(zgbbrd,ZGBBRD) +void LAPACK_zgbbrd_base( char const* vect, lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku, lapack_complex_double* AB, lapack_int const* ldab, @@ -370,10 +538,19 @@ void LAPACK_zgbbrd( lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__) +#endif -#define LAPACK_cgbcon LAPACK_GLOBAL(cgbcon,CGBCON) -void LAPACK_cgbcon( +#define LAPACK_cgbcon_base LAPACK_GLOBAL(cgbcon,CGBCON) +void LAPACK_cgbcon_base( char const* norm, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_complex_float const* AB, lapack_int const* ldab, lapack_int const* ipiv, @@ -381,10 +558,19 @@ void LAPACK_cgbcon( float* rcond, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__) +#endif -#define LAPACK_dgbcon LAPACK_GLOBAL(dgbcon,DGBCON) -void LAPACK_dgbcon( +#define LAPACK_dgbcon_base LAPACK_GLOBAL(dgbcon,DGBCON) +void LAPACK_dgbcon_base( char const* norm, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, double const* AB, lapack_int const* ldab, lapack_int const* ipiv, @@ -392,10 +578,19 @@ void LAPACK_dgbcon( double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__) +#endif -#define LAPACK_sgbcon LAPACK_GLOBAL(sgbcon,SGBCON) -void LAPACK_sgbcon( +#define LAPACK_sgbcon_base LAPACK_GLOBAL(sgbcon,SGBCON) +void LAPACK_sgbcon_base( char const* norm, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, float const* AB, lapack_int const* ldab, lapack_int const* ipiv, @@ -403,10 +598,19 @@ void LAPACK_sgbcon( float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__) +#endif -#define LAPACK_zgbcon LAPACK_GLOBAL(zgbcon,ZGBCON) -void LAPACK_zgbcon( +#define LAPACK_zgbcon_base LAPACK_GLOBAL(zgbcon,ZGBCON) +void LAPACK_zgbcon_base( char const* norm, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_complex_double const* AB, lapack_int const* ldab, lapack_int const* ipiv, @@ -414,7 +618,16 @@ void LAPACK_zgbcon( double* rcond, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__) +#endif #define LAPACK_cgbequ LAPACK_GLOBAL(cgbequ,CGBEQU) void LAPACK_cgbequ( @@ -504,8 +717,8 @@ void LAPACK_zgbequb( double* amax, lapack_int* info ); -#define LAPACK_cgbrfs LAPACK_GLOBAL(cgbrfs,CGBRFS) -void LAPACK_cgbrfs( +#define LAPACK_cgbrfs_base LAPACK_GLOBAL(cgbrfs,CGBRFS) +void LAPACK_cgbrfs_base( char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_float const* AB, lapack_int const* ldab, @@ -516,10 +729,19 @@ void LAPACK_cgbrfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_dgbrfs LAPACK_GLOBAL(dgbrfs,DGBRFS) -void LAPACK_dgbrfs( +#define LAPACK_dgbrfs_base LAPACK_GLOBAL(dgbrfs,DGBRFS) +void LAPACK_dgbrfs_base( char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, double const* AB, lapack_int const* ldab, @@ -530,10 +752,19 @@ void LAPACK_dgbrfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_sgbrfs LAPACK_GLOBAL(sgbrfs,SGBRFS) -void LAPACK_sgbrfs( +#define LAPACK_sgbrfs_base LAPACK_GLOBAL(sgbrfs,SGBRFS) +void LAPACK_sgbrfs_base( char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, float const* AB, lapack_int const* ldab, @@ -544,10 +775,19 @@ void LAPACK_sgbrfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_zgbrfs LAPACK_GLOBAL(zgbrfs,ZGBRFS) -void LAPACK_zgbrfs( +#define LAPACK_zgbrfs_base LAPACK_GLOBAL(zgbrfs,ZGBRFS) +void LAPACK_zgbrfs_base( char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_double const* AB, lapack_int const* ldab, @@ -558,10 +798,19 @@ void LAPACK_zgbrfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_cgbrfsx LAPACK_GLOBAL(cgbrfsx,CGBRFSX) -void LAPACK_cgbrfsx( +#define LAPACK_cgbrfsx_base LAPACK_GLOBAL(cgbrfsx,CGBRFSX) +void LAPACK_cgbrfsx_base( char const* trans, char const* equed, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_float const* AB, lapack_int const* ldab, @@ -577,10 +826,19 @@ void LAPACK_cgbrfsx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__) +#endif -#define LAPACK_dgbrfsx LAPACK_GLOBAL(dgbrfsx,DGBRFSX) -void LAPACK_dgbrfsx( +#define LAPACK_dgbrfsx_base LAPACK_GLOBAL(dgbrfsx,DGBRFSX) +void LAPACK_dgbrfsx_base( char const* trans, char const* equed, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, double const* AB, lapack_int const* ldab, @@ -596,10 +854,19 @@ void LAPACK_dgbrfsx( double* params, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__) +#endif -#define LAPACK_sgbrfsx LAPACK_GLOBAL(sgbrfsx,SGBRFSX) -void LAPACK_sgbrfsx( +#define LAPACK_sgbrfsx_base LAPACK_GLOBAL(sgbrfsx,SGBRFSX) +void LAPACK_sgbrfsx_base( char const* trans, char const* equed, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, float const* AB, lapack_int const* ldab, @@ -615,10 +882,19 @@ void LAPACK_sgbrfsx( float* params, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__) +#endif -#define LAPACK_zgbrfsx LAPACK_GLOBAL(zgbrfsx,ZGBRFSX) -void LAPACK_zgbrfsx( +#define LAPACK_zgbrfsx_base LAPACK_GLOBAL(zgbrfsx,ZGBRFSX) +void LAPACK_zgbrfsx_base( char const* trans, char const* equed, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_double const* AB, lapack_int const* ldab, @@ -634,7 +910,16 @@ void LAPACK_zgbrfsx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__) +#endif #define LAPACK_cgbsv LAPACK_GLOBAL(cgbsv,CGBSV) void LAPACK_cgbsv( @@ -664,8 +949,8 @@ void LAPACK_zgbsv( lapack_complex_double* B, lapack_int const* ldb, lapack_int* info ); -#define LAPACK_cgbsvx LAPACK_GLOBAL(cgbsvx,CGBSVX) -void LAPACK_cgbsvx( +#define LAPACK_cgbsvx_base LAPACK_GLOBAL(cgbsvx,CGBSVX) +void LAPACK_cgbsvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_float* AB, lapack_int const* ldab, @@ -680,10 +965,19 @@ void LAPACK_cgbsvx( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__) +#endif -#define LAPACK_dgbsvx LAPACK_GLOBAL(dgbsvx,DGBSVX) -void LAPACK_dgbsvx( +#define LAPACK_dgbsvx_base LAPACK_GLOBAL(dgbsvx,DGBSVX) +void LAPACK_dgbsvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, double* AB, lapack_int const* ldab, @@ -698,10 +992,19 @@ void LAPACK_dgbsvx( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__) +#endif -#define LAPACK_sgbsvx LAPACK_GLOBAL(sgbsvx,SGBSVX) -void LAPACK_sgbsvx( +#define LAPACK_sgbsvx_base LAPACK_GLOBAL(sgbsvx,SGBSVX) +void LAPACK_sgbsvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, float* AB, lapack_int const* ldab, @@ -716,10 +1019,19 @@ void LAPACK_sgbsvx( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__) +#endif -#define LAPACK_zgbsvx LAPACK_GLOBAL(zgbsvx,ZGBSVX) -void LAPACK_zgbsvx( +#define LAPACK_zgbsvx_base LAPACK_GLOBAL(zgbsvx,ZGBSVX) +void LAPACK_zgbsvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_double* AB, lapack_int const* ldab, @@ -734,10 +1046,19 @@ void LAPACK_zgbsvx( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__) +#endif -#define LAPACK_cgbsvxx LAPACK_GLOBAL(cgbsvxx,CGBSVXX) -void LAPACK_cgbsvxx( +#define LAPACK_cgbsvxx_base LAPACK_GLOBAL(cgbsvxx,CGBSVXX) +void LAPACK_cgbsvxx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_float* AB, lapack_int const* ldab, @@ -755,10 +1076,19 @@ void LAPACK_cgbsvxx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__) +#endif -#define LAPACK_dgbsvxx LAPACK_GLOBAL(dgbsvxx,DGBSVXX) -void LAPACK_dgbsvxx( +#define LAPACK_dgbsvxx_base LAPACK_GLOBAL(dgbsvxx,DGBSVXX) +void LAPACK_dgbsvxx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, double* AB, lapack_int const* ldab, @@ -776,10 +1106,19 @@ void LAPACK_dgbsvxx( double* params, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__) +#endif -#define LAPACK_sgbsvxx LAPACK_GLOBAL(sgbsvxx,SGBSVXX) -void LAPACK_sgbsvxx( +#define LAPACK_sgbsvxx_base LAPACK_GLOBAL(sgbsvxx,SGBSVXX) +void LAPACK_sgbsvxx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, float* AB, lapack_int const* ldab, @@ -797,10 +1136,19 @@ void LAPACK_sgbsvxx( float* params, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__) +#endif -#define LAPACK_zgbsvxx LAPACK_GLOBAL(zgbsvxx,ZGBSVXX) -void LAPACK_zgbsvxx( +#define LAPACK_zgbsvxx_base LAPACK_GLOBAL(zgbsvxx,ZGBSVXX) +void LAPACK_zgbsvxx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_double* AB, lapack_int const* ldab, @@ -818,7 +1166,16 @@ void LAPACK_zgbsvxx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__) +#endif #define LAPACK_cgbtrf LAPACK_GLOBAL(cgbtrf,CGBTRF) void LAPACK_cgbtrf( @@ -844,101 +1201,209 @@ void LAPACK_zgbtrf( lapack_complex_double* AB, lapack_int const* ldab, lapack_int* ipiv, lapack_int* info ); -#define LAPACK_cgbtrs LAPACK_GLOBAL(cgbtrs,CGBTRS) -void LAPACK_cgbtrs( +#define LAPACK_cgbtrs_base LAPACK_GLOBAL(cgbtrs,CGBTRS) +void LAPACK_cgbtrs_base( char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_float const* AB, lapack_int const* ldab, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_dgbtrs LAPACK_GLOBAL(dgbtrs,DGBTRS) -void LAPACK_dgbtrs( +#define LAPACK_dgbtrs_base LAPACK_GLOBAL(dgbtrs,DGBTRS) +void LAPACK_dgbtrs_base( char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, double const* AB, lapack_int const* ldab, lapack_int const* ipiv, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_sgbtrs LAPACK_GLOBAL(sgbtrs,SGBTRS) -void LAPACK_sgbtrs( +#define LAPACK_sgbtrs_base LAPACK_GLOBAL(sgbtrs,SGBTRS) +void LAPACK_sgbtrs_base( char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, float const* AB, lapack_int const* ldab, lapack_int const* ipiv, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_zgbtrs LAPACK_GLOBAL(zgbtrs,ZGBTRS) -void LAPACK_zgbtrs( +#define LAPACK_zgbtrs_base LAPACK_GLOBAL(zgbtrs,ZGBTRS) +void LAPACK_zgbtrs_base( char const* trans, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, lapack_complex_double const* AB, lapack_int const* ldab, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_cgebak LAPACK_GLOBAL(cgebak,CGEBAK) -void LAPACK_cgebak( +#define LAPACK_cgebak_base LAPACK_GLOBAL(cgebak,CGEBAK) +void LAPACK_cgebak_base( char const* job, char const* side, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, float const* scale, lapack_int const* m, lapack_complex_float* V, lapack_int const* ldv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__) +#endif -#define LAPACK_dgebak LAPACK_GLOBAL(dgebak,DGEBAK) -void LAPACK_dgebak( +#define LAPACK_dgebak_base LAPACK_GLOBAL(dgebak,DGEBAK) +void LAPACK_dgebak_base( char const* job, char const* side, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, double const* scale, lapack_int const* m, double* V, lapack_int const* ldv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__) +#endif -#define LAPACK_sgebak LAPACK_GLOBAL(sgebak,SGEBAK) -void LAPACK_sgebak( +#define LAPACK_sgebak_base LAPACK_GLOBAL(sgebak,SGEBAK) +void LAPACK_sgebak_base( char const* job, char const* side, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, float const* scale, lapack_int const* m, float* V, lapack_int const* ldv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__) +#endif -#define LAPACK_zgebak LAPACK_GLOBAL(zgebak,ZGEBAK) -void LAPACK_zgebak( +#define LAPACK_zgebak_base LAPACK_GLOBAL(zgebak,ZGEBAK) +void LAPACK_zgebak_base( char const* job, char const* side, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, double const* scale, lapack_int const* m, lapack_complex_double* V, lapack_int const* ldv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__) +#endif -#define LAPACK_cgebal LAPACK_GLOBAL(cgebal,CGEBAL) -void LAPACK_cgebal( +#define LAPACK_cgebal_base LAPACK_GLOBAL(cgebal,CGEBAL) +void LAPACK_cgebal_base( char const* job, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi, float* scale, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__) +#endif -#define LAPACK_dgebal LAPACK_GLOBAL(dgebal,DGEBAL) -void LAPACK_dgebal( +#define LAPACK_dgebal_base LAPACK_GLOBAL(dgebal,DGEBAL) +void LAPACK_dgebal_base( char const* job, lapack_int const* n, double* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi, double* scale, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__) +#endif -#define LAPACK_sgebal LAPACK_GLOBAL(sgebal,SGEBAL) -void LAPACK_sgebal( +#define LAPACK_sgebal_base LAPACK_GLOBAL(sgebal,SGEBAL) +void LAPACK_sgebal_base( char const* job, lapack_int const* n, float* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi, float* scale, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__) +#endif -#define LAPACK_zgebal LAPACK_GLOBAL(zgebal,ZGEBAL) -void LAPACK_zgebal( +#define LAPACK_zgebal_base LAPACK_GLOBAL(zgebal,ZGEBAL) +void LAPACK_zgebal_base( char const* job, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi, double* scale, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__) +#endif #define LAPACK_cgebrd LAPACK_GLOBAL(cgebrd,CGEBRD) void LAPACK_cgebrd( @@ -984,8 +1449,8 @@ void LAPACK_zgebrd( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cgecon LAPACK_GLOBAL(cgecon,CGECON) -void LAPACK_cgecon( +#define LAPACK_cgecon_base LAPACK_GLOBAL(cgecon,CGECON) +void LAPACK_cgecon_base( char const* norm, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, @@ -993,10 +1458,19 @@ void LAPACK_cgecon( float* rcond, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__) +#endif -#define LAPACK_dgecon LAPACK_GLOBAL(dgecon,DGECON) -void LAPACK_dgecon( +#define LAPACK_dgecon_base LAPACK_GLOBAL(dgecon,DGECON) +void LAPACK_dgecon_base( char const* norm, lapack_int const* n, double const* A, lapack_int const* lda, @@ -1004,10 +1478,19 @@ void LAPACK_dgecon( double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__) +#endif -#define LAPACK_sgecon LAPACK_GLOBAL(sgecon,SGECON) -void LAPACK_sgecon( +#define LAPACK_sgecon_base LAPACK_GLOBAL(sgecon,SGECON) +void LAPACK_sgecon_base( char const* norm, lapack_int const* n, float const* A, lapack_int const* lda, @@ -1015,10 +1498,19 @@ void LAPACK_sgecon( float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__) +#endif -#define LAPACK_zgecon LAPACK_GLOBAL(zgecon,ZGECON) -void LAPACK_zgecon( +#define LAPACK_zgecon_base LAPACK_GLOBAL(zgecon,ZGECON) +void LAPACK_zgecon_base( char const* norm, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, @@ -1026,7 +1518,16 @@ void LAPACK_zgecon( double* rcond, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__) +#endif #define LAPACK_cgeequ LAPACK_GLOBAL(cgeequ,CGEEQU) void LAPACK_cgeequ( @@ -1116,8 +1617,8 @@ void LAPACK_zgeequb( double* amax, lapack_int* info ); -#define LAPACK_cgees LAPACK_GLOBAL(cgees,CGEES) -void LAPACK_cgees( +#define LAPACK_cgees_base LAPACK_GLOBAL(cgees,CGEES) +void LAPACK_cgees_base( char const* jobvs, char const* sort, LAPACK_C_SELECT1 select, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* sdim, @@ -1125,10 +1626,19 @@ void LAPACK_cgees( lapack_complex_float* VS, lapack_int const* ldvs, lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__) +#endif -#define LAPACK_dgees LAPACK_GLOBAL(dgees,DGEES) -void LAPACK_dgees( +#define LAPACK_dgees_base LAPACK_GLOBAL(dgees,DGEES) +void LAPACK_dgees_base( char const* jobvs, char const* sort, LAPACK_D_SELECT2 select, lapack_int const* n, double* A, lapack_int const* lda, lapack_int* sdim, @@ -1136,10 +1646,19 @@ void LAPACK_dgees( double* WI, double* VS, lapack_int const* ldvs, double* work, lapack_int const* lwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__) +#endif -#define LAPACK_sgees LAPACK_GLOBAL(sgees,SGEES) -void LAPACK_sgees( +#define LAPACK_sgees_base LAPACK_GLOBAL(sgees,SGEES) +void LAPACK_sgees_base( char const* jobvs, char const* sort, LAPACK_S_SELECT2 select, lapack_int const* n, float* A, lapack_int const* lda, lapack_int* sdim, @@ -1147,10 +1666,19 @@ void LAPACK_sgees( float* WI, float* VS, lapack_int const* ldvs, float* work, lapack_int const* lwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__) +#endif -#define LAPACK_zgees LAPACK_GLOBAL(zgees,ZGEES) -void LAPACK_zgees( +#define LAPACK_zgees_base LAPACK_GLOBAL(zgees,ZGEES) +void LAPACK_zgees_base( char const* jobvs, char const* sort, LAPACK_Z_SELECT1 select, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* sdim, @@ -1158,10 +1686,19 @@ void LAPACK_zgees( lapack_complex_double* VS, lapack_int const* ldvs, lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__) +#endif -#define LAPACK_cgeesx LAPACK_GLOBAL(cgeesx,CGEESX) -void LAPACK_cgeesx( +#define LAPACK_cgeesx_base LAPACK_GLOBAL(cgeesx,CGEESX) +void LAPACK_cgeesx_base( char const* jobvs, char const* sort, LAPACK_C_SELECT1 select, char const* sense, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* sdim, @@ -1171,10 +1708,19 @@ void LAPACK_cgeesx( float* rcondv, lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__) +#endif -#define LAPACK_dgeesx LAPACK_GLOBAL(dgeesx,DGEESX) -void LAPACK_dgeesx( +#define LAPACK_dgeesx_base LAPACK_GLOBAL(dgeesx,DGEESX) +void LAPACK_dgeesx_base( char const* jobvs, char const* sort, LAPACK_D_SELECT2 select, char const* sense, lapack_int const* n, double* A, lapack_int const* lda, lapack_int* sdim, @@ -1185,10 +1731,19 @@ void LAPACK_dgeesx( double* rcondv, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__) +#endif -#define LAPACK_sgeesx LAPACK_GLOBAL(sgeesx,SGEESX) -void LAPACK_sgeesx( +#define LAPACK_sgeesx_base LAPACK_GLOBAL(sgeesx,SGEESX) +void LAPACK_sgeesx_base( char const* jobvs, char const* sort, LAPACK_S_SELECT2 select, char const* sense, lapack_int const* n, float* A, lapack_int const* lda, lapack_int* sdim, @@ -1199,10 +1754,19 @@ void LAPACK_sgeesx( float* rcondv, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__) +#endif -#define LAPACK_zgeesx LAPACK_GLOBAL(zgeesx,ZGEESX) -void LAPACK_zgeesx( +#define LAPACK_zgeesx_base LAPACK_GLOBAL(zgeesx,ZGEESX) +void LAPACK_zgeesx_base( char const* jobvs, char const* sort, LAPACK_Z_SELECT1 select, char const* sense, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* sdim, @@ -1212,10 +1776,19 @@ void LAPACK_zgeesx( double* rcondv, lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__) +#endif -#define LAPACK_cgeev LAPACK_GLOBAL(cgeev,CGEEV) -void LAPACK_cgeev( +#define LAPACK_cgeev_base LAPACK_GLOBAL(cgeev,CGEEV) +void LAPACK_cgeev_base( char const* jobvl, char const* jobvr, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -1224,10 +1797,19 @@ void LAPACK_cgeev( lapack_complex_float* VR, lapack_int const* ldvr, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__) +#endif -#define LAPACK_dgeev LAPACK_GLOBAL(dgeev,DGEEV) -void LAPACK_dgeev( +#define LAPACK_dgeev_base LAPACK_GLOBAL(dgeev,DGEEV) +void LAPACK_dgeev_base( char const* jobvl, char const* jobvr, lapack_int const* n, double* A, lapack_int const* lda, @@ -1236,10 +1818,19 @@ void LAPACK_dgeev( double* VL, lapack_int const* ldvl, double* VR, lapack_int const* ldvr, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__) +#endif -#define LAPACK_sgeev LAPACK_GLOBAL(sgeev,SGEEV) -void LAPACK_sgeev( +#define LAPACK_sgeev_base LAPACK_GLOBAL(sgeev,SGEEV) +void LAPACK_sgeev_base( char const* jobvl, char const* jobvr, lapack_int const* n, float* A, lapack_int const* lda, @@ -1248,10 +1839,19 @@ void LAPACK_sgeev( float* VL, lapack_int const* ldvl, float* VR, lapack_int const* ldvr, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__) +#endif -#define LAPACK_zgeev LAPACK_GLOBAL(zgeev,ZGEEV) -void LAPACK_zgeev( +#define LAPACK_zgeev_base LAPACK_GLOBAL(zgeev,ZGEEV) +void LAPACK_zgeev_base( char const* jobvl, char const* jobvr, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -1260,10 +1860,19 @@ void LAPACK_zgeev( lapack_complex_double* VR, lapack_int const* ldvr, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__) +#endif -#define LAPACK_cgeevx LAPACK_GLOBAL(cgeevx,CGEEVX) -void LAPACK_cgeevx( +#define LAPACK_cgeevx_base LAPACK_GLOBAL(cgeevx,CGEEVX) +void LAPACK_cgeevx_base( char const* balanc, char const* jobvl, char const* jobvr, char const* sense, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -1276,10 +1885,19 @@ void LAPACK_cgeevx( float* rcondv, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__) +#endif -#define LAPACK_dgeevx LAPACK_GLOBAL(dgeevx,DGEEVX) -void LAPACK_dgeevx( +#define LAPACK_dgeevx_base LAPACK_GLOBAL(dgeevx,DGEEVX) +void LAPACK_dgeevx_base( char const* balanc, char const* jobvl, char const* jobvr, char const* sense, lapack_int const* n, double* A, lapack_int const* lda, @@ -1293,10 +1911,19 @@ void LAPACK_dgeevx( double* rcondv, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__) +#endif -#define LAPACK_sgeevx LAPACK_GLOBAL(sgeevx,SGEEVX) -void LAPACK_sgeevx( +#define LAPACK_sgeevx_base LAPACK_GLOBAL(sgeevx,SGEEVX) +void LAPACK_sgeevx_base( char const* balanc, char const* jobvl, char const* jobvr, char const* sense, lapack_int const* n, float* A, lapack_int const* lda, @@ -1310,10 +1937,19 @@ void LAPACK_sgeevx( float* rcondv, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__) +#endif -#define LAPACK_zgeevx LAPACK_GLOBAL(zgeevx,ZGEEVX) -void LAPACK_zgeevx( +#define LAPACK_zgeevx_base LAPACK_GLOBAL(zgeevx,ZGEEVX) +void LAPACK_zgeevx_base( char const* balanc, char const* jobvl, char const* jobvr, char const* sense, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -1326,7 +1962,16 @@ void LAPACK_zgeevx( double* rcondv, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__) +#endif #define LAPACK_cgehrd LAPACK_GLOBAL(cgehrd,CGEHRD) void LAPACK_cgehrd( @@ -1360,8 +2005,8 @@ void LAPACK_zgehrd( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cgejsv LAPACK_GLOBAL(cgejsv,CGEJSV) -void LAPACK_cgejsv( +#define LAPACK_cgejsv_base LAPACK_GLOBAL(cgejsv,CGEJSV) +void LAPACK_cgejsv_base( char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp, lapack_int const* m, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -1371,10 +2016,19 @@ void LAPACK_cgejsv( lapack_complex_float* cwork, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) +#else + #define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__) +#endif -#define LAPACK_dgejsv LAPACK_GLOBAL(dgejsv,DGEJSV) -void LAPACK_dgejsv( +#define LAPACK_dgejsv_base LAPACK_GLOBAL(dgejsv,DGEJSV) +void LAPACK_dgejsv_base( char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp, lapack_int const* m, lapack_int const* n, double* A, lapack_int const* lda, @@ -1383,10 +2037,19 @@ void LAPACK_dgejsv( double* V, lapack_int const* ldv, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) +#else + #define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__) +#endif -#define LAPACK_sgejsv LAPACK_GLOBAL(sgejsv,SGEJSV) -void LAPACK_sgejsv( +#define LAPACK_sgejsv_base LAPACK_GLOBAL(sgejsv,SGEJSV) +void LAPACK_sgejsv_base( char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp, lapack_int const* m, lapack_int const* n, float* A, lapack_int const* lda, @@ -1395,10 +2058,19 @@ void LAPACK_sgejsv( float* V, lapack_int const* ldv, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) +#else + #define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__) +#endif -#define LAPACK_zgejsv LAPACK_GLOBAL(zgejsv,ZGEJSV) -void LAPACK_zgejsv( +#define LAPACK_zgejsv_base LAPACK_GLOBAL(zgejsv,ZGEJSV) +void LAPACK_zgejsv_base( char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp, lapack_int const* m, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -1408,7 +2080,16 @@ void LAPACK_zgejsv( lapack_complex_double* cwork, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) +#else + #define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__) +#endif #define LAPACK_cgelq LAPACK_GLOBAL(cgelq,CGELQ) void LAPACK_cgelq( @@ -1506,41 +2187,77 @@ void LAPACK_zgelqf( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cgels LAPACK_GLOBAL(cgels,CGELS) -void LAPACK_cgels( +#define LAPACK_cgels_base LAPACK_GLOBAL(cgels,CGELS) +void LAPACK_cgels_base( char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__) +#endif -#define LAPACK_dgels LAPACK_GLOBAL(dgels,DGELS) -void LAPACK_dgels( +#define LAPACK_dgels_base LAPACK_GLOBAL(dgels,DGELS) +void LAPACK_dgels_base( char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, double* B, lapack_int const* ldb, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__) +#endif -#define LAPACK_sgels LAPACK_GLOBAL(sgels,SGELS) -void LAPACK_sgels( +#define LAPACK_sgels_base LAPACK_GLOBAL(sgels,SGELS) +void LAPACK_sgels_base( char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, float* B, lapack_int const* ldb, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__) +#endif -#define LAPACK_zgels LAPACK_GLOBAL(zgels,ZGELS) -void LAPACK_zgels( +#define LAPACK_zgels_base LAPACK_GLOBAL(zgels,ZGELS) +void LAPACK_zgels_base( char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__) +#endif #define LAPACK_cgelsd LAPACK_GLOBAL(cgelsd,CGELSD) void LAPACK_cgelsd( @@ -1668,125 +2385,233 @@ void LAPACK_zgelsy( double* rwork, lapack_int* info ); -#define LAPACK_cgemlq LAPACK_GLOBAL(cgemlq,CGEMLQ) -void LAPACK_cgemlq( +#define LAPACK_cgemlq_base LAPACK_GLOBAL(cgemlq,CGEMLQ) +void LAPACK_cgemlq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* T, lapack_int const* tsize, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__) +#endif -#define LAPACK_dgemlq LAPACK_GLOBAL(dgemlq,DGEMLQ) -void LAPACK_dgemlq( +#define LAPACK_dgemlq_base LAPACK_GLOBAL(dgemlq,DGEMLQ) +void LAPACK_dgemlq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, double const* A, lapack_int const* lda, double const* T, lapack_int const* tsize, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__) +#endif -#define LAPACK_sgemlq LAPACK_GLOBAL(sgemlq,SGEMLQ) -void LAPACK_sgemlq( +#define LAPACK_sgemlq_base LAPACK_GLOBAL(sgemlq,SGEMLQ) +void LAPACK_sgemlq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, float const* A, lapack_int const* lda, float const* T, lapack_int const* tsize, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__) +#endif -#define LAPACK_zgemlq LAPACK_GLOBAL(zgemlq,ZGEMLQ) -void LAPACK_zgemlq( +#define LAPACK_zgemlq_base LAPACK_GLOBAL(zgemlq,ZGEMLQ) +void LAPACK_zgemlq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* T, lapack_int const* tsize, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__) +#endif -#define LAPACK_cgemqr LAPACK_GLOBAL(cgemqr,CGEMQR) -void LAPACK_cgemqr( +#define LAPACK_cgemqr_base LAPACK_GLOBAL(cgemqr,CGEMQR) +void LAPACK_cgemqr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* T, lapack_int const* tsize, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__) +#endif -#define LAPACK_dgemqr LAPACK_GLOBAL(dgemqr,DGEMQR) -void LAPACK_dgemqr( +#define LAPACK_dgemqr_base LAPACK_GLOBAL(dgemqr,DGEMQR) +void LAPACK_dgemqr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, double const* A, lapack_int const* lda, double const* T, lapack_int const* tsize, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__) +#endif -#define LAPACK_sgemqr LAPACK_GLOBAL(sgemqr,SGEMQR) -void LAPACK_sgemqr( +#define LAPACK_sgemqr_base LAPACK_GLOBAL(sgemqr,SGEMQR) +void LAPACK_sgemqr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, float const* A, lapack_int const* lda, float const* T, lapack_int const* tsize, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__) +#endif -#define LAPACK_zgemqr LAPACK_GLOBAL(zgemqr,ZGEMQR) -void LAPACK_zgemqr( +#define LAPACK_zgemqr_base LAPACK_GLOBAL(zgemqr,ZGEMQR) +void LAPACK_zgemqr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* T, lapack_int const* tsize, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__) +#endif -#define LAPACK_cgemqrt LAPACK_GLOBAL(cgemqrt,CGEMQRT) -void LAPACK_cgemqrt( +#define LAPACK_cgemqrt_base LAPACK_GLOBAL(cgemqrt,CGEMQRT) +void LAPACK_cgemqrt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb, lapack_complex_float const* V, lapack_int const* ldv, lapack_complex_float const* T, lapack_int const* ldt, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__) +#endif -#define LAPACK_dgemqrt LAPACK_GLOBAL(dgemqrt,DGEMQRT) -void LAPACK_dgemqrt( +#define LAPACK_dgemqrt_base LAPACK_GLOBAL(dgemqrt,DGEMQRT) +void LAPACK_dgemqrt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb, double const* V, lapack_int const* ldv, double const* T, lapack_int const* ldt, double* C, lapack_int const* ldc, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__) +#endif -#define LAPACK_sgemqrt LAPACK_GLOBAL(sgemqrt,SGEMQRT) -void LAPACK_sgemqrt( +#define LAPACK_sgemqrt_base LAPACK_GLOBAL(sgemqrt,SGEMQRT) +void LAPACK_sgemqrt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb, float const* V, lapack_int const* ldv, float const* T, lapack_int const* ldt, float* C, lapack_int const* ldc, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__) +#endif -#define LAPACK_zgemqrt LAPACK_GLOBAL(zgemqrt,ZGEMQRT) -void LAPACK_zgemqrt( +#define LAPACK_zgemqrt_base LAPACK_GLOBAL(zgemqrt,ZGEMQRT) +void LAPACK_zgemqrt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb, lapack_complex_double const* V, lapack_int const* ldv, lapack_complex_double const* T, lapack_int const* ldt, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__) +#endif #define LAPACK_cgeql2 LAPACK_GLOBAL(cgeql2,CGEQL2) void LAPACK_cgeql2( @@ -2124,8 +2949,8 @@ void LAPACK_zgeqrt3( lapack_complex_double* T, lapack_int const* ldt, lapack_int* info ); -#define LAPACK_cgerfs LAPACK_GLOBAL(cgerfs,CGERFS) -void LAPACK_cgerfs( +#define LAPACK_cgerfs_base LAPACK_GLOBAL(cgerfs,CGERFS) +void LAPACK_cgerfs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -2136,10 +2961,19 @@ void LAPACK_cgerfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__) +#endif -#define LAPACK_dgerfs LAPACK_GLOBAL(dgerfs,DGERFS) -void LAPACK_dgerfs( +#define LAPACK_dgerfs_base LAPACK_GLOBAL(dgerfs,DGERFS) +void LAPACK_dgerfs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, @@ -2150,10 +2984,19 @@ void LAPACK_dgerfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__) +#endif -#define LAPACK_sgerfs LAPACK_GLOBAL(sgerfs,SGERFS) -void LAPACK_sgerfs( +#define LAPACK_sgerfs_base LAPACK_GLOBAL(sgerfs,SGERFS) +void LAPACK_sgerfs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, @@ -2164,10 +3007,19 @@ void LAPACK_sgerfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__) +#endif -#define LAPACK_zgerfs LAPACK_GLOBAL(zgerfs,ZGERFS) -void LAPACK_zgerfs( +#define LAPACK_zgerfs_base LAPACK_GLOBAL(zgerfs,ZGERFS) +void LAPACK_zgerfs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -2178,10 +3030,19 @@ void LAPACK_zgerfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__) +#endif -#define LAPACK_cgerfsx LAPACK_GLOBAL(cgerfsx,CGERFSX) -void LAPACK_cgerfsx( +#define LAPACK_cgerfsx_base LAPACK_GLOBAL(cgerfsx,CGERFSX) +void LAPACK_cgerfsx_base( char const* trans, char const* equed, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -2197,10 +3058,19 @@ void LAPACK_cgerfsx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__) +#endif -#define LAPACK_dgerfsx LAPACK_GLOBAL(dgerfsx,DGERFSX) -void LAPACK_dgerfsx( +#define LAPACK_dgerfsx_base LAPACK_GLOBAL(dgerfsx,DGERFSX) +void LAPACK_dgerfsx_base( char const* trans, char const* equed, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, @@ -2216,10 +3086,19 @@ void LAPACK_dgerfsx( double* params, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__) +#endif -#define LAPACK_sgerfsx LAPACK_GLOBAL(sgerfsx,SGERFSX) -void LAPACK_sgerfsx( +#define LAPACK_sgerfsx_base LAPACK_GLOBAL(sgerfsx,SGERFSX) +void LAPACK_sgerfsx_base( char const* trans, char const* equed, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, @@ -2235,10 +3114,19 @@ void LAPACK_sgerfsx( float* params, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__) +#endif -#define LAPACK_zgerfsx LAPACK_GLOBAL(zgerfsx,ZGERFSX) -void LAPACK_zgerfsx( +#define LAPACK_zgerfsx_base LAPACK_GLOBAL(zgerfsx,ZGERFSX) +void LAPACK_zgerfsx_base( char const* trans, char const* equed, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -2254,7 +3142,16 @@ void LAPACK_zgerfsx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__) +#endif #define LAPACK_cgerq2 LAPACK_GLOBAL(cgerq2,CGERQ2) void LAPACK_cgerq2( @@ -2320,8 +3217,8 @@ void LAPACK_zgerqf( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cgesdd LAPACK_GLOBAL(cgesdd,CGESDD) -void LAPACK_cgesdd( +#define LAPACK_cgesdd_base LAPACK_GLOBAL(cgesdd,CGESDD) +void LAPACK_cgesdd_base( char const* jobz, lapack_int const* m, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -2331,10 +3228,19 @@ void LAPACK_cgesdd( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__) +#endif -#define LAPACK_dgesdd LAPACK_GLOBAL(dgesdd,DGESDD) -void LAPACK_dgesdd( +#define LAPACK_dgesdd_base LAPACK_GLOBAL(dgesdd,DGESDD) +void LAPACK_dgesdd_base( char const* jobz, lapack_int const* m, lapack_int const* n, double* A, lapack_int const* lda, @@ -2343,10 +3249,19 @@ void LAPACK_dgesdd( double* VT, lapack_int const* ldvt, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__) +#endif -#define LAPACK_sgesdd LAPACK_GLOBAL(sgesdd,SGESDD) -void LAPACK_sgesdd( +#define LAPACK_sgesdd_base LAPACK_GLOBAL(sgesdd,SGESDD) +void LAPACK_sgesdd_base( char const* jobz, lapack_int const* m, lapack_int const* n, float* A, lapack_int const* lda, @@ -2355,10 +3270,19 @@ void LAPACK_sgesdd( float* VT, lapack_int const* ldvt, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__) +#endif -#define LAPACK_zgesdd LAPACK_GLOBAL(zgesdd,ZGESDD) -void LAPACK_zgesdd( +#define LAPACK_zgesdd_base LAPACK_GLOBAL(zgesdd,ZGESDD) +void LAPACK_zgesdd_base( char const* jobz, lapack_int const* m, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -2368,7 +3292,16 @@ void LAPACK_zgesdd( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__) +#endif #define LAPACK_cgesv LAPACK_GLOBAL(cgesv,CGESV) void LAPACK_cgesv( @@ -2419,8 +3352,8 @@ void LAPACK_zcgesv( double* rwork, lapack_int* iter, lapack_int* info ); -#define LAPACK_cgesvd LAPACK_GLOBAL(cgesvd,CGESVD) -void LAPACK_cgesvd( +#define LAPACK_cgesvd_base LAPACK_GLOBAL(cgesvd,CGESVD) +void LAPACK_cgesvd_base( char const* jobu, char const* jobvt, lapack_int const* m, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -2429,10 +3362,19 @@ void LAPACK_cgesvd( lapack_complex_float* VT, lapack_int const* ldvt, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__) +#endif -#define LAPACK_dgesvd LAPACK_GLOBAL(dgesvd,DGESVD) -void LAPACK_dgesvd( +#define LAPACK_dgesvd_base LAPACK_GLOBAL(dgesvd,DGESVD) +void LAPACK_dgesvd_base( char const* jobu, char const* jobvt, lapack_int const* m, lapack_int const* n, double* A, lapack_int const* lda, @@ -2440,10 +3382,19 @@ void LAPACK_dgesvd( double* U, lapack_int const* ldu, double* VT, lapack_int const* ldvt, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__) +#endif -#define LAPACK_sgesvd LAPACK_GLOBAL(sgesvd,SGESVD) -void LAPACK_sgesvd( +#define LAPACK_sgesvd_base LAPACK_GLOBAL(sgesvd,SGESVD) +void LAPACK_sgesvd_base( char const* jobu, char const* jobvt, lapack_int const* m, lapack_int const* n, float* A, lapack_int const* lda, @@ -2451,10 +3402,19 @@ void LAPACK_sgesvd( float* U, lapack_int const* ldu, float* VT, lapack_int const* ldvt, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__) +#endif -#define LAPACK_zgesvd LAPACK_GLOBAL(zgesvd,ZGESVD) -void LAPACK_zgesvd( +#define LAPACK_zgesvd_base LAPACK_GLOBAL(zgesvd,ZGESVD) +void LAPACK_zgesvd_base( char const* jobu, char const* jobvt, lapack_int const* m, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -2463,10 +3423,19 @@ void LAPACK_zgesvd( lapack_complex_double* VT, lapack_int const* ldvt, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__) +#endif -#define LAPACK_cgesvdq LAPACK_GLOBAL(cgesvdq,CGESVDQ) -void LAPACK_cgesvdq( +#define LAPACK_cgesvdq_base LAPACK_GLOBAL(cgesvdq,CGESVDQ) +void LAPACK_cgesvdq_base( char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv, lapack_int const* m, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -2476,10 +3445,19 @@ void LAPACK_cgesvdq( lapack_int* iwork, lapack_int const* liwork, lapack_complex_float* cwork, lapack_int* lcwork, float* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__) +#endif -#define LAPACK_dgesvdq LAPACK_GLOBAL(dgesvdq,DGESVDQ) -void LAPACK_dgesvdq( +#define LAPACK_dgesvdq_base LAPACK_GLOBAL(dgesvdq,DGESVDQ) +void LAPACK_dgesvdq_base( char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv, lapack_int const* m, lapack_int const* n, double* A, lapack_int const* lda, @@ -2489,10 +3467,19 @@ void LAPACK_dgesvdq( lapack_int* iwork, lapack_int const* liwork, double* work, lapack_int* lwork, double* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__) +#endif -#define LAPACK_sgesvdq LAPACK_GLOBAL(sgesvdq,SGESVDQ) -void LAPACK_sgesvdq( +#define LAPACK_sgesvdq_base LAPACK_GLOBAL(sgesvdq,SGESVDQ) +void LAPACK_sgesvdq_base( char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv, lapack_int const* m, lapack_int const* n, float* A, lapack_int const* lda, @@ -2502,10 +3489,19 @@ void LAPACK_sgesvdq( lapack_int* iwork, lapack_int const* liwork, float* work, lapack_int* lwork, float* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__) +#endif -#define LAPACK_zgesvdq LAPACK_GLOBAL(zgesvdq,ZGESVDQ) -void LAPACK_zgesvdq( +#define LAPACK_zgesvdq_base LAPACK_GLOBAL(zgesvdq,ZGESVDQ) +void LAPACK_zgesvdq_base( char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv, lapack_int const* m, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -2515,10 +3511,19 @@ void LAPACK_zgesvdq( lapack_int* iwork, lapack_int const* liwork, lapack_complex_double* cwork, lapack_int* lcwork, double* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__) +#endif -#define LAPACK_cgesvdx LAPACK_GLOBAL(cgesvdx,CGESVDX) -void LAPACK_cgesvdx( +#define LAPACK_cgesvdx_base LAPACK_GLOBAL(cgesvdx,CGESVDX) +void LAPACK_cgesvdx_base( char const* jobu, char const* jobvt, char const* range, lapack_int const* m, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -2530,10 +3535,20 @@ void LAPACK_cgesvdx( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__) +#endif -#define LAPACK_dgesvdx LAPACK_GLOBAL(dgesvdx,DGESVDX) -void LAPACK_dgesvdx( + +#define LAPACK_dgesvdx_base LAPACK_GLOBAL(dgesvdx,DGESVDX) +void LAPACK_dgesvdx_base( char const* jobu, char const* jobvt, char const* range, lapack_int const* m, lapack_int const* n, double* A, lapack_int const* lda, @@ -2544,10 +3559,19 @@ void LAPACK_dgesvdx( double* VT, lapack_int const* ldvt, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__) +#endif -#define LAPACK_sgesvdx LAPACK_GLOBAL(sgesvdx,SGESVDX) -void LAPACK_sgesvdx( +#define LAPACK_sgesvdx_base LAPACK_GLOBAL(sgesvdx,SGESVDX) +void LAPACK_sgesvdx_base( char const* jobu, char const* jobvt, char const* range, lapack_int const* m, lapack_int const* n, float* A, lapack_int const* lda, @@ -2558,10 +3582,19 @@ void LAPACK_sgesvdx( float* VT, lapack_int const* ldvt, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__) +#endif -#define LAPACK_zgesvdx LAPACK_GLOBAL(zgesvdx,ZGESVDX) -void LAPACK_zgesvdx( +#define LAPACK_zgesvdx_base LAPACK_GLOBAL(zgesvdx,ZGESVDX) +void LAPACK_zgesvdx_base( char const* jobu, char const* jobvt, char const* range, lapack_int const* m, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -2573,10 +3606,19 @@ void LAPACK_zgesvdx( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__) +#endif -#define LAPACK_cgesvj LAPACK_GLOBAL(cgesvj,CGESVJ) -void LAPACK_cgesvj( +#define LAPACK_cgesvj_base LAPACK_GLOBAL(cgesvj,CGESVJ) +void LAPACK_cgesvj_base( char const* joba, char const* jobu, char const* jobv, lapack_int const* m, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -2584,30 +3626,57 @@ void LAPACK_cgesvj( lapack_complex_float* V, lapack_int const* ldv, lapack_complex_float* cwork, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__) +#endif -#define LAPACK_dgesvj LAPACK_GLOBAL(dgesvj,DGESVJ) -void LAPACK_dgesvj( +#define LAPACK_dgesvj_base LAPACK_GLOBAL(dgesvj,DGESVJ) +void LAPACK_dgesvj_base( char const* joba, char const* jobu, char const* jobv, lapack_int const* m, lapack_int const* n, double* A, lapack_int const* lda, double* SVA, lapack_int const* mv, double* V, lapack_int const* ldv, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__) +#endif -#define LAPACK_sgesvj LAPACK_GLOBAL(sgesvj,SGESVJ) -void LAPACK_sgesvj( +#define LAPACK_sgesvj_base LAPACK_GLOBAL(sgesvj,SGESVJ) +void LAPACK_sgesvj_base( char const* joba, char const* jobu, char const* jobv, lapack_int const* m, lapack_int const* n, float* A, lapack_int const* lda, float* SVA, lapack_int const* mv, float* V, lapack_int const* ldv, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__) +#endif -#define LAPACK_zgesvj LAPACK_GLOBAL(zgesvj,ZGESVJ) -void LAPACK_zgesvj( +#define LAPACK_zgesvj_base LAPACK_GLOBAL(zgesvj,ZGESVJ) +void LAPACK_zgesvj_base( char const* joba, char const* jobu, char const* jobv, lapack_int const* m, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -2615,10 +3684,19 @@ void LAPACK_zgesvj( lapack_complex_double* V, lapack_int const* ldv, lapack_complex_double* cwork, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__) +#endif -#define LAPACK_cgesvx LAPACK_GLOBAL(cgesvx,CGESVX) -void LAPACK_cgesvx( +#define LAPACK_cgesvx_base LAPACK_GLOBAL(cgesvx,CGESVX) +void LAPACK_cgesvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, @@ -2633,10 +3711,19 @@ void LAPACK_cgesvx( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__) +#endif -#define LAPACK_dgesvx LAPACK_GLOBAL(dgesvx,DGESVX) -void LAPACK_dgesvx( +#define LAPACK_dgesvx_base LAPACK_GLOBAL(dgesvx,DGESVX) +void LAPACK_dgesvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, @@ -2651,10 +3738,19 @@ void LAPACK_dgesvx( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__) +#endif -#define LAPACK_sgesvx LAPACK_GLOBAL(sgesvx,SGESVX) -void LAPACK_sgesvx( +#define LAPACK_sgesvx_base LAPACK_GLOBAL(sgesvx,SGESVX) +void LAPACK_sgesvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, @@ -2669,10 +3765,19 @@ void LAPACK_sgesvx( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__) +#endif -#define LAPACK_zgesvx LAPACK_GLOBAL(zgesvx,ZGESVX) -void LAPACK_zgesvx( +#define LAPACK_zgesvx_base LAPACK_GLOBAL(zgesvx,ZGESVX) +void LAPACK_zgesvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, @@ -2687,10 +3792,19 @@ void LAPACK_zgesvx( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__) +#endif -#define LAPACK_cgesvxx LAPACK_GLOBAL(cgesvxx,CGESVXX) -void LAPACK_cgesvxx( +#define LAPACK_cgesvxx_base LAPACK_GLOBAL(cgesvxx,CGESVXX) +void LAPACK_cgesvxx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, @@ -2708,10 +3822,19 @@ void LAPACK_cgesvxx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__) +#endif -#define LAPACK_dgesvxx LAPACK_GLOBAL(dgesvxx,DGESVXX) -void LAPACK_dgesvxx( +#define LAPACK_dgesvxx_base LAPACK_GLOBAL(dgesvxx,DGESVXX) +void LAPACK_dgesvxx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, @@ -2729,10 +3852,19 @@ void LAPACK_dgesvxx( double* params, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__) +#endif -#define LAPACK_sgesvxx LAPACK_GLOBAL(sgesvxx,SGESVXX) -void LAPACK_sgesvxx( +#define LAPACK_sgesvxx_base LAPACK_GLOBAL(sgesvxx,SGESVXX) +void LAPACK_sgesvxx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, @@ -2750,10 +3882,19 @@ void LAPACK_sgesvxx( float* params, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__) +#endif -#define LAPACK_zgesvxx LAPACK_GLOBAL(zgesvxx,ZGESVXX) -void LAPACK_zgesvxx( +#define LAPACK_zgesvxx_base LAPACK_GLOBAL(zgesvxx,ZGESVXX) +void LAPACK_zgesvxx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, @@ -2771,7 +3912,16 @@ void LAPACK_zgesvxx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__) +#endif #define LAPACK_cgetf2 LAPACK_GLOBAL(cgetf2,CGETF2) void LAPACK_cgetf2( @@ -2873,73 +4023,145 @@ void LAPACK_zgetri( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cgetrs LAPACK_GLOBAL(cgetrs,CGETRS) -void LAPACK_cgetrs( +#define LAPACK_cgetrs_base LAPACK_GLOBAL(cgetrs,CGETRS) +void LAPACK_cgetrs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_dgetrs LAPACK_GLOBAL(dgetrs,DGETRS) -void LAPACK_dgetrs( - char const* trans, + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__) +#endif + +#define LAPACK_dgetrs_base LAPACK_GLOBAL(dgetrs,DGETRS) +void LAPACK_dgetrs_base( + char const* trans, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, lapack_int const* ipiv, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__) +#endif -#define LAPACK_sgetrs LAPACK_GLOBAL(sgetrs,SGETRS) -void LAPACK_sgetrs( +#define LAPACK_sgetrs_base LAPACK_GLOBAL(sgetrs,SGETRS) +void LAPACK_sgetrs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, lapack_int const* ipiv, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__) +#endif -#define LAPACK_zgetrs LAPACK_GLOBAL(zgetrs,ZGETRS) -void LAPACK_zgetrs( +#define LAPACK_zgetrs_base LAPACK_GLOBAL(zgetrs,ZGETRS) +void LAPACK_zgetrs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__) +#endif -#define LAPACK_cgetsls LAPACK_GLOBAL(cgetsls,CGETSLS) -void LAPACK_cgetsls( +#define LAPACK_cgetsls_base LAPACK_GLOBAL(cgetsls,CGETSLS) +void LAPACK_cgetsls_base( char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__) +#endif -#define LAPACK_dgetsls LAPACK_GLOBAL(dgetsls,DGETSLS) -void LAPACK_dgetsls( +#define LAPACK_dgetsls_base LAPACK_GLOBAL(dgetsls,DGETSLS) +void LAPACK_dgetsls_base( char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, double* B, lapack_int const* ldb, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__) +#endif -#define LAPACK_sgetsls LAPACK_GLOBAL(sgetsls,SGETSLS) -void LAPACK_sgetsls( +#define LAPACK_sgetsls_base LAPACK_GLOBAL(sgetsls,SGETSLS) +void LAPACK_sgetsls_base( char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, float* B, lapack_int const* ldb, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__) +#endif -#define LAPACK_zgetsls LAPACK_GLOBAL(zgetsls,ZGETSLS) -void LAPACK_zgetsls( +#define LAPACK_zgetsls_base LAPACK_GLOBAL(zgetsls,ZGETSLS) +void LAPACK_zgetsls_base( char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__) +#endif #define LAPACK_cgetsqrhrt LAPACK_GLOBAL(cgetsqrhrt,CGETSQRHRT) void LAPACK_cgetsqrhrt( @@ -2977,44 +4199,80 @@ void LAPACK_zgetsqrhrt( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cggbak LAPACK_GLOBAL(cggbak,CGGBAK) -void LAPACK_cggbak( +#define LAPACK_cggbak_base LAPACK_GLOBAL(cggbak,CGGBAK) +void LAPACK_cggbak_base( char const* job, char const* side, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, float const* lscale, float const* rscale, lapack_int const* m, lapack_complex_float* V, lapack_int const* ldv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggbak(...) LAPACK_cggbak_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cggbak(...) LAPACK_cggbak_base(__VA_ARGS__) +#endif -#define LAPACK_dggbak LAPACK_GLOBAL(dggbak,DGGBAK) -void LAPACK_dggbak( +#define LAPACK_dggbak_base LAPACK_GLOBAL(dggbak,DGGBAK) +void LAPACK_dggbak_base( char const* job, char const* side, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, double const* lscale, double const* rscale, lapack_int const* m, double* V, lapack_int const* ldv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggbak(...) LAPACK_dggbak_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dggbak(...) LAPACK_dggbak_base(__VA_ARGS__) +#endif -#define LAPACK_sggbak LAPACK_GLOBAL(sggbak,SGGBAK) -void LAPACK_sggbak( +#define LAPACK_sggbak_base LAPACK_GLOBAL(sggbak,SGGBAK) +void LAPACK_sggbak_base( char const* job, char const* side, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, float const* lscale, float const* rscale, lapack_int const* m, float* V, lapack_int const* ldv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggbak(...) LAPACK_sggbak_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sggbak(...) LAPACK_sggbak_base(__VA_ARGS__) +#endif -#define LAPACK_zggbak LAPACK_GLOBAL(zggbak,ZGGBAK) -void LAPACK_zggbak( +#define LAPACK_zggbak_base LAPACK_GLOBAL(zggbak,ZGGBAK) +void LAPACK_zggbak_base( char const* job, char const* side, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, double const* lscale, double const* rscale, lapack_int const* m, lapack_complex_double* V, lapack_int const* ldv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggbak(...) LAPACK_zggbak_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zggbak(...) LAPACK_zggbak_base(__VA_ARGS__) +#endif -#define LAPACK_cggbal LAPACK_GLOBAL(cggbal,CGGBAL) -void LAPACK_cggbal( +#define LAPACK_cggbal_base LAPACK_GLOBAL(cggbal,CGGBAL) +void LAPACK_cggbal_base( char const* job, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -3022,10 +4280,19 @@ void LAPACK_cggbal( float* lscale, float* rscale, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggbal(...) LAPACK_cggbal_base(__VA_ARGS__, 1) +#else + #define LAPACK_cggbal(...) LAPACK_cggbal_base(__VA_ARGS__) +#endif -#define LAPACK_dggbal LAPACK_GLOBAL(dggbal,DGGBAL) -void LAPACK_dggbal( +#define LAPACK_dggbal_base LAPACK_GLOBAL(dggbal,DGGBAL) +void LAPACK_dggbal_base( char const* job, lapack_int const* n, double* A, lapack_int const* lda, @@ -3033,10 +4300,19 @@ void LAPACK_dggbal( double* lscale, double* rscale, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggbal(...) LAPACK_dggbal_base(__VA_ARGS__, 1) +#else + #define LAPACK_dggbal(...) LAPACK_dggbal_base(__VA_ARGS__) +#endif -#define LAPACK_sggbal LAPACK_GLOBAL(sggbal,SGGBAL) -void LAPACK_sggbal( +#define LAPACK_sggbal_base LAPACK_GLOBAL(sggbal,SGGBAL) +void LAPACK_sggbal_base( char const* job, lapack_int const* n, float* A, lapack_int const* lda, @@ -3044,10 +4320,19 @@ void LAPACK_sggbal( float* lscale, float* rscale, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggbal(...) LAPACK_sggbal_base(__VA_ARGS__, 1) +#else + #define LAPACK_sggbal(...) LAPACK_sggbal_base(__VA_ARGS__) +#endif -#define LAPACK_zggbal LAPACK_GLOBAL(zggbal,ZGGBAL) -void LAPACK_zggbal( +#define LAPACK_zggbal_base LAPACK_GLOBAL(zggbal,ZGGBAL) +void LAPACK_zggbal_base( char const* job, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -3055,10 +4340,19 @@ void LAPACK_zggbal( double* lscale, double* rscale, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggbal(...) LAPACK_zggbal_base(__VA_ARGS__, 1) +#else + #define LAPACK_zggbal(...) LAPACK_zggbal_base(__VA_ARGS__) +#endif -#define LAPACK_cgges LAPACK_GLOBAL(cgges,CGGES) -void LAPACK_cgges( +#define LAPACK_cgges_base LAPACK_GLOBAL(cgges,CGGES) +void LAPACK_cgges_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -3069,10 +4363,19 @@ void LAPACK_cgges( lapack_complex_float* VSR, lapack_int const* ldvsr, lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgges(...) LAPACK_cgges_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cgges(...) LAPACK_cgges_base(__VA_ARGS__) +#endif -#define LAPACK_dgges LAPACK_GLOBAL(dgges,DGGES) -void LAPACK_dgges( +#define LAPACK_dgges_base LAPACK_GLOBAL(dgges,DGGES) +void LAPACK_dgges_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg, lapack_int const* n, double* A, lapack_int const* lda, @@ -3083,10 +4386,19 @@ void LAPACK_dgges( double* VSL, lapack_int const* ldvsl, double* VSR, lapack_int const* ldvsr, double* work, lapack_int const* lwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgges(...) LAPACK_dgges_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dgges(...) LAPACK_dgges_base(__VA_ARGS__) +#endif -#define LAPACK_sgges LAPACK_GLOBAL(sgges,SGGES) -void LAPACK_sgges( +#define LAPACK_sgges_base LAPACK_GLOBAL(sgges,SGGES) +void LAPACK_sgges_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg, lapack_int const* n, float* A, lapack_int const* lda, @@ -3097,10 +4409,19 @@ void LAPACK_sgges( float* VSL, lapack_int const* ldvsl, float* VSR, lapack_int const* ldvsr, float* work, lapack_int const* lwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgges(...) LAPACK_sgges_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sgges(...) LAPACK_sgges_base(__VA_ARGS__) +#endif -#define LAPACK_zgges LAPACK_GLOBAL(zgges,ZGGES) -void LAPACK_zgges( +#define LAPACK_zgges_base LAPACK_GLOBAL(zgges,ZGGES) +void LAPACK_zgges_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -3111,10 +4432,19 @@ void LAPACK_zgges( lapack_complex_double* VSR, lapack_int const* ldvsr, lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgges(...) LAPACK_zgges_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zgges(...) LAPACK_zgges_base(__VA_ARGS__) +#endif -#define LAPACK_cgges3 LAPACK_GLOBAL(cgges3,CGGES3) -void LAPACK_cgges3( +#define LAPACK_cgges3_base LAPACK_GLOBAL(cgges3,CGGES3) +void LAPACK_cgges3_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -3125,10 +4455,19 @@ void LAPACK_cgges3( lapack_complex_float* VSR, lapack_int const* ldvsr, lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgges3(...) LAPACK_cgges3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cgges3(...) LAPACK_cgges3_base(__VA_ARGS__) +#endif -#define LAPACK_dgges3 LAPACK_GLOBAL(dgges3,DGGES3) -void LAPACK_dgges3( +#define LAPACK_dgges3_base LAPACK_GLOBAL(dgges3,DGGES3) +void LAPACK_dgges3_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg, lapack_int const* n, double* A, lapack_int const* lda, @@ -3139,10 +4478,19 @@ void LAPACK_dgges3( double* VSL, lapack_int const* ldvsl, double* VSR, lapack_int const* ldvsr, double* work, lapack_int const* lwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgges3(...) LAPACK_dgges3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dgges3(...) LAPACK_dgges3_base(__VA_ARGS__) +#endif -#define LAPACK_sgges3 LAPACK_GLOBAL(sgges3,SGGES3) -void LAPACK_sgges3( +#define LAPACK_sgges3_base LAPACK_GLOBAL(sgges3,SGGES3) +void LAPACK_sgges3_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg, lapack_int const* n, float* A, lapack_int const* lda, @@ -3153,10 +4501,19 @@ void LAPACK_sgges3( float* VSL, lapack_int const* ldvsl, float* VSR, lapack_int const* ldvsr, float* work, lapack_int const* lwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgges3(...) LAPACK_sgges3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sgges3(...) LAPACK_sgges3_base(__VA_ARGS__) +#endif -#define LAPACK_zgges3 LAPACK_GLOBAL(zgges3,ZGGES3) -void LAPACK_zgges3( +#define LAPACK_zgges3_base LAPACK_GLOBAL(zgges3,ZGGES3) +void LAPACK_zgges3_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -3167,10 +4524,19 @@ void LAPACK_zgges3( lapack_complex_double* VSR, lapack_int const* ldvsr, lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgges3(...) LAPACK_zgges3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zgges3(...) LAPACK_zgges3_base(__VA_ARGS__) +#endif -#define LAPACK_cggesx LAPACK_GLOBAL(cggesx,CGGESX) -void LAPACK_cggesx( +#define LAPACK_cggesx_base LAPACK_GLOBAL(cggesx,CGGESX) +void LAPACK_cggesx_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg, char const* sense, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -3184,10 +4550,19 @@ void LAPACK_cggesx( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggesx(...) LAPACK_cggesx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_cggesx(...) LAPACK_cggesx_base(__VA_ARGS__) +#endif -#define LAPACK_dggesx LAPACK_GLOBAL(dggesx,DGGESX) -void LAPACK_dggesx( +#define LAPACK_dggesx_base LAPACK_GLOBAL(dggesx,DGGESX) +void LAPACK_dggesx_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg, char const* sense, lapack_int const* n, double* A, lapack_int const* lda, @@ -3201,10 +4576,19 @@ void LAPACK_dggesx( double* rcondv, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggesx(...) LAPACK_dggesx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_dggesx(...) LAPACK_dggesx_base(__VA_ARGS__) +#endif -#define LAPACK_sggesx LAPACK_GLOBAL(sggesx,SGGESX) -void LAPACK_sggesx( +#define LAPACK_sggesx_base LAPACK_GLOBAL(sggesx,SGGESX) +void LAPACK_sggesx_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg, char const* sense, lapack_int const* n, float* A, lapack_int const* lda, @@ -3218,10 +4602,19 @@ void LAPACK_sggesx( float* rcondv, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggesx(...) LAPACK_sggesx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_sggesx(...) LAPACK_sggesx_base(__VA_ARGS__) +#endif -#define LAPACK_zggesx LAPACK_GLOBAL(zggesx,ZGGESX) -void LAPACK_zggesx( +#define LAPACK_zggesx_base LAPACK_GLOBAL(zggesx,ZGGESX) +void LAPACK_zggesx_base( char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg, char const* sense, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -3235,10 +4628,19 @@ void LAPACK_zggesx( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggesx(...) LAPACK_zggesx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_zggesx(...) LAPACK_zggesx_base(__VA_ARGS__) +#endif -#define LAPACK_cggev LAPACK_GLOBAL(cggev,CGGEV) -void LAPACK_cggev( +#define LAPACK_cggev_base LAPACK_GLOBAL(cggev,CGGEV) +void LAPACK_cggev_base( char const* jobvl, char const* jobvr, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -3249,10 +4651,19 @@ void LAPACK_cggev( lapack_complex_float* VR, lapack_int const* ldvr, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggev(...) LAPACK_cggev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cggev(...) LAPACK_cggev_base(__VA_ARGS__) +#endif -#define LAPACK_dggev LAPACK_GLOBAL(dggev,DGGEV) -void LAPACK_dggev( +#define LAPACK_dggev_base LAPACK_GLOBAL(dggev,DGGEV) +void LAPACK_dggev_base( char const* jobvl, char const* jobvr, lapack_int const* n, double* A, lapack_int const* lda, @@ -3263,10 +4674,19 @@ void LAPACK_dggev( double* VL, lapack_int const* ldvl, double* VR, lapack_int const* ldvr, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggev(...) LAPACK_dggev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dggev(...) LAPACK_dggev_base(__VA_ARGS__) +#endif -#define LAPACK_sggev LAPACK_GLOBAL(sggev,SGGEV) -void LAPACK_sggev( +#define LAPACK_sggev_base LAPACK_GLOBAL(sggev,SGGEV) +void LAPACK_sggev_base( char const* jobvl, char const* jobvr, lapack_int const* n, float* A, lapack_int const* lda, @@ -3277,10 +4697,19 @@ void LAPACK_sggev( float* VL, lapack_int const* ldvl, float* VR, lapack_int const* ldvr, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggev(...) LAPACK_sggev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sggev(...) LAPACK_sggev_base(__VA_ARGS__) +#endif -#define LAPACK_zggev LAPACK_GLOBAL(zggev,ZGGEV) -void LAPACK_zggev( +#define LAPACK_zggev_base LAPACK_GLOBAL(zggev,ZGGEV) +void LAPACK_zggev_base( char const* jobvl, char const* jobvr, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -3291,10 +4720,19 @@ void LAPACK_zggev( lapack_complex_double* VR, lapack_int const* ldvr, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggev(...) LAPACK_zggev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zggev(...) LAPACK_zggev_base(__VA_ARGS__) +#endif -#define LAPACK_cggev3 LAPACK_GLOBAL(cggev3,CGGEV3) -void LAPACK_cggev3( +#define LAPACK_cggev3_base LAPACK_GLOBAL(cggev3,CGGEV3) +void LAPACK_cggev3_base( char const* jobvl, char const* jobvr, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -3305,10 +4743,19 @@ void LAPACK_cggev3( lapack_complex_float* VR, lapack_int const* ldvr, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggev3(...) LAPACK_cggev3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cggev3(...) LAPACK_cggev3_base(__VA_ARGS__) +#endif -#define LAPACK_dggev3 LAPACK_GLOBAL(dggev3,DGGEV3) -void LAPACK_dggev3( +#define LAPACK_dggev3_base LAPACK_GLOBAL(dggev3,DGGEV3) +void LAPACK_dggev3_base( char const* jobvl, char const* jobvr, lapack_int const* n, double* A, lapack_int const* lda, @@ -3319,10 +4766,19 @@ void LAPACK_dggev3( double* VL, lapack_int const* ldvl, double* VR, lapack_int const* ldvr, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggev3(...) LAPACK_dggev3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dggev3(...) LAPACK_dggev3_base(__VA_ARGS__) +#endif -#define LAPACK_sggev3 LAPACK_GLOBAL(sggev3,SGGEV3) -void LAPACK_sggev3( +#define LAPACK_sggev3_base LAPACK_GLOBAL(sggev3,SGGEV3) +void LAPACK_sggev3_base( char const* jobvl, char const* jobvr, lapack_int const* n, float* A, lapack_int const* lda, @@ -3333,10 +4789,19 @@ void LAPACK_sggev3( float* VL, lapack_int const* ldvl, float* VR, lapack_int const* ldvr, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggev3(...) LAPACK_sggev3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sggev3(...) LAPACK_sggev3_base(__VA_ARGS__) +#endif -#define LAPACK_zggev3 LAPACK_GLOBAL(zggev3,ZGGEV3) -void LAPACK_zggev3( +#define LAPACK_zggev3_base LAPACK_GLOBAL(zggev3,ZGGEV3) +void LAPACK_zggev3_base( char const* jobvl, char const* jobvr, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -3347,10 +4812,19 @@ void LAPACK_zggev3( lapack_complex_double* VR, lapack_int const* ldvr, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggev3(...) LAPACK_zggev3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zggev3(...) LAPACK_zggev3_base(__VA_ARGS__) +#endif -#define LAPACK_cggevx LAPACK_GLOBAL(cggevx,CGGEVX) -void LAPACK_cggevx( +#define LAPACK_cggevx_base LAPACK_GLOBAL(cggevx,CGGEVX) +void LAPACK_cggevx_base( char const* balanc, char const* jobvl, char const* jobvr, char const* sense, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -3368,10 +4842,19 @@ void LAPACK_cggevx( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int* iwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggevx(...) LAPACK_cggevx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_cggevx(...) LAPACK_cggevx_base(__VA_ARGS__) +#endif -#define LAPACK_dggevx LAPACK_GLOBAL(dggevx,DGGEVX) -void LAPACK_dggevx( +#define LAPACK_dggevx_base LAPACK_GLOBAL(dggevx,DGGEVX) +void LAPACK_dggevx_base( char const* balanc, char const* jobvl, char const* jobvr, char const* sense, lapack_int const* n, double* A, lapack_int const* lda, @@ -3389,10 +4872,19 @@ void LAPACK_dggevx( double* rcondv, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggevx(...) LAPACK_dggevx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_dggevx(...) LAPACK_dggevx_base(__VA_ARGS__) +#endif -#define LAPACK_sggevx LAPACK_GLOBAL(sggevx,SGGEVX) -void LAPACK_sggevx( +#define LAPACK_sggevx_base LAPACK_GLOBAL(sggevx,SGGEVX) +void LAPACK_sggevx_base( char const* balanc, char const* jobvl, char const* jobvr, char const* sense, lapack_int const* n, float* A, lapack_int const* lda, @@ -3410,10 +4902,19 @@ void LAPACK_sggevx( float* rcondv, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggevx(...) LAPACK_sggevx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_sggevx(...) LAPACK_sggevx_base(__VA_ARGS__) +#endif -#define LAPACK_zggevx LAPACK_GLOBAL(zggevx,ZGGEVX) -void LAPACK_zggevx( +#define LAPACK_zggevx_base LAPACK_GLOBAL(zggevx,ZGGEVX) +void LAPACK_zggevx_base( char const* balanc, char const* jobvl, char const* jobvr, char const* sense, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -3431,7 +4932,16 @@ void LAPACK_zggevx( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int* iwork, lapack_logical* BWORK, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggevx(...) LAPACK_zggevx_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_zggevx(...) LAPACK_zggevx_base(__VA_ARGS__) +#endif #define LAPACK_cggglm LAPACK_GLOBAL(cggglm,CGGGLM) void LAPACK_cggglm( @@ -3477,8 +4987,8 @@ void LAPACK_zggglm( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cgghd3 LAPACK_GLOBAL(cgghd3,CGGHD3) -void LAPACK_cgghd3( +#define LAPACK_cgghd3_base LAPACK_GLOBAL(cgghd3,CGGHD3) +void LAPACK_cgghd3_base( char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_float* A, lapack_int const* lda, @@ -3486,10 +4996,19 @@ void LAPACK_cgghd3( lapack_complex_float* Q, lapack_int const* ldq, lapack_complex_float* Z, lapack_int const* ldz, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgghd3(...) LAPACK_cgghd3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgghd3(...) LAPACK_cgghd3_base(__VA_ARGS__) +#endif -#define LAPACK_dgghd3 LAPACK_GLOBAL(dgghd3,DGGHD3) -void LAPACK_dgghd3( +#define LAPACK_dgghd3_base LAPACK_GLOBAL(dgghd3,DGGHD3) +void LAPACK_dgghd3_base( char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, double* A, lapack_int const* lda, @@ -3497,10 +5016,19 @@ void LAPACK_dgghd3( double* Q, lapack_int const* ldq, double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgghd3(...) LAPACK_dgghd3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgghd3(...) LAPACK_dgghd3_base(__VA_ARGS__) +#endif -#define LAPACK_sgghd3 LAPACK_GLOBAL(sgghd3,SGGHD3) -void LAPACK_sgghd3( +#define LAPACK_sgghd3_base LAPACK_GLOBAL(sgghd3,SGGHD3) +void LAPACK_sgghd3_base( char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, float* A, lapack_int const* lda, @@ -3508,10 +5036,19 @@ void LAPACK_sgghd3( float* Q, lapack_int const* ldq, float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgghd3(...) LAPACK_sgghd3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgghd3(...) LAPACK_sgghd3_base(__VA_ARGS__) +#endif -#define LAPACK_zgghd3 LAPACK_GLOBAL(zgghd3,ZGGHD3) -void LAPACK_zgghd3( +#define LAPACK_zgghd3_base LAPACK_GLOBAL(zgghd3,ZGGHD3) +void LAPACK_zgghd3_base( char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_double* A, lapack_int const* lda, @@ -3519,47 +5056,92 @@ void LAPACK_zgghd3( lapack_complex_double* Q, lapack_int const* ldq, lapack_complex_double* Z, lapack_int const* ldz, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgghd3(...) LAPACK_zgghd3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgghd3(...) LAPACK_zgghd3_base(__VA_ARGS__) +#endif -#define LAPACK_cgghrd LAPACK_GLOBAL(cgghrd,CGGHRD) -void LAPACK_cgghrd( +#define LAPACK_cgghrd_base LAPACK_GLOBAL(cgghrd,CGGHRD) +void LAPACK_cgghrd_base( char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* Q, lapack_int const* ldq, lapack_complex_float* Z, lapack_int const* ldz, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgghrd(...) LAPACK_cgghrd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgghrd(...) LAPACK_cgghrd_base(__VA_ARGS__) +#endif -#define LAPACK_dgghrd LAPACK_GLOBAL(dgghrd,DGGHRD) -void LAPACK_dgghrd( +#define LAPACK_dgghrd_base LAPACK_GLOBAL(dgghrd,DGGHRD) +void LAPACK_dgghrd_base( char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, double* A, lapack_int const* lda, double* B, lapack_int const* ldb, double* Q, lapack_int const* ldq, double* Z, lapack_int const* ldz, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgghrd(...) LAPACK_dgghrd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgghrd(...) LAPACK_dgghrd_base(__VA_ARGS__) +#endif -#define LAPACK_sgghrd LAPACK_GLOBAL(sgghrd,SGGHRD) -void LAPACK_sgghrd( +#define LAPACK_sgghrd_base LAPACK_GLOBAL(sgghrd,SGGHRD) +void LAPACK_sgghrd_base( char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, float* A, lapack_int const* lda, float* B, lapack_int const* ldb, float* Q, lapack_int const* ldq, float* Z, lapack_int const* ldz, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgghrd(...) LAPACK_sgghrd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgghrd(...) LAPACK_sgghrd_base(__VA_ARGS__) +#endif -#define LAPACK_zgghrd LAPACK_GLOBAL(zgghrd,ZGGHRD) -void LAPACK_zgghrd( +#define LAPACK_zgghrd_base LAPACK_GLOBAL(zgghrd,ZGGHRD) +void LAPACK_zgghrd_base( char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* Q, lapack_int const* ldq, lapack_complex_double* Z, lapack_int const* ldz, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgghrd(...) LAPACK_zgghrd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgghrd(...) LAPACK_zgghrd_base(__VA_ARGS__) +#endif #define LAPACK_cgglse LAPACK_GLOBAL(cgglse,CGGLSE) void LAPACK_cgglse( @@ -3685,8 +5267,31 @@ void LAPACK_zggrqf( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_sggsvd LAPACK_GLOBAL(sggsvd,SGGSVD) -lapack_int LAPACK_sggsvd( +#define LAPACK_cggsvd_base LAPACK_GLOBAL(cggsvd,CGGSVD) +lapack_int LAPACK_cggsvd_base( + char const* jobu, char const* jobv, char const* jobq, + lapack_int const* m, lapack_int const* n, lapack_int const* p, + lapack_int* k, lapack_int* l, + lapack_complex_float* a, lapack_int const* lda, + lapack_complex_float* b, lapack_int const* ldb, + float* alpha, float* beta, + lapack_complex_float* u, lapack_int const* ldu, + lapack_complex_float* v, lapack_int const* ldv, + lapack_complex_float* q, lapack_int const* ldq, + lapack_complex_float* work, float* rwork, + lapack_int* iwork, lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggsvd(...) LAPACK_cggsvd_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cggsvd(...) LAPACK_cggsvd_base(__VA_ARGS__) +#endif + +#define LAPACK_sggsvd_base LAPACK_GLOBAL(sggsvd,SGGSVD) +lapack_int LAPACK_sggsvd_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l, @@ -3696,10 +5301,19 @@ lapack_int LAPACK_sggsvd( float* u, lapack_int const* ldu, float* v, lapack_int const* ldv, float* q, lapack_int const* ldq, - float* work, lapack_int* iwork, lapack_int* info ); + float* work, lapack_int* iwork, lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggsvd(...) LAPACK_sggsvd_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sggsvd(...) LAPACK_sggsvd_base(__VA_ARGS__) +#endif -#define LAPACK_dggsvd LAPACK_GLOBAL(dggsvd,DGGSVD) -lapack_int LAPACK_dggsvd( +#define LAPACK_dggsvd_base LAPACK_GLOBAL(dggsvd,DGGSVD) +lapack_int LAPACK_dggsvd_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l, @@ -3709,24 +5323,19 @@ lapack_int LAPACK_dggsvd( double* u, lapack_int const* ldu, double* v, lapack_int const* ldv, double* q, lapack_int const* ldq, - double* work, lapack_int* iwork, lapack_int* info ); - -#define LAPACK_cggsvd LAPACK_GLOBAL(cggsvd,CGGSVD) -lapack_int LAPACK_cggsvd( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* n, lapack_int const* p, - lapack_int* k, lapack_int* l, - lapack_complex_float* a, lapack_int const* lda, - lapack_complex_float* b, lapack_int const* ldb, - float* alpha, float* beta, - lapack_complex_float* u, lapack_int const* ldu, - lapack_complex_float* v, lapack_int const* ldv, - lapack_complex_float* q, lapack_int const* ldq, - lapack_complex_float* work, float* rwork, - lapack_int* iwork, lapack_int* info ); + double* work, lapack_int* iwork, lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggsvd(...) LAPACK_dggsvd_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dggsvd(...) LAPACK_dggsvd_base(__VA_ARGS__) +#endif -#define LAPACK_zggsvd LAPACK_GLOBAL(zggsvd,ZGGSVD) -lapack_int LAPACK_zggsvd( +#define LAPACK_zggsvd_base LAPACK_GLOBAL(zggsvd,ZGGSVD) +lapack_int LAPACK_zggsvd_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l, @@ -3737,10 +5346,19 @@ lapack_int LAPACK_zggsvd( lapack_complex_double* v, lapack_int const* ldv, lapack_complex_double* q, lapack_int const* ldq, lapack_complex_double* work, double* rwork, - lapack_int* iwork, lapack_int* info ); + lapack_int* iwork, lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggsvd(...) LAPACK_zggsvd_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zggsvd(...) LAPACK_zggsvd_base(__VA_ARGS__) +#endif -#define LAPACK_cggsvd3 LAPACK_GLOBAL(cggsvd3,CGGSVD3) -void LAPACK_cggsvd3( +#define LAPACK_cggsvd3_base LAPACK_GLOBAL(cggsvd3,CGGSVD3) +void LAPACK_cggsvd3_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l, lapack_complex_float* A, lapack_int const* lda, @@ -3753,10 +5371,19 @@ void LAPACK_cggsvd3( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggsvd3(...) LAPACK_cggsvd3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cggsvd3(...) LAPACK_cggsvd3_base(__VA_ARGS__) +#endif -#define LAPACK_dggsvd3 LAPACK_GLOBAL(dggsvd3,DGGSVD3) -void LAPACK_dggsvd3( +#define LAPACK_dggsvd3_base LAPACK_GLOBAL(dggsvd3,DGGSVD3) +void LAPACK_dggsvd3_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l, double* A, lapack_int const* lda, @@ -3768,10 +5395,19 @@ void LAPACK_dggsvd3( double* Q, lapack_int const* ldq, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggsvd3(...) LAPACK_dggsvd3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dggsvd3(...) LAPACK_dggsvd3_base(__VA_ARGS__) +#endif -#define LAPACK_sggsvd3 LAPACK_GLOBAL(sggsvd3,SGGSVD3) -void LAPACK_sggsvd3( +#define LAPACK_sggsvd3_base LAPACK_GLOBAL(sggsvd3,SGGSVD3) +void LAPACK_sggsvd3_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l, float* A, lapack_int const* lda, @@ -3783,10 +5419,19 @@ void LAPACK_sggsvd3( float* Q, lapack_int const* ldq, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggsvd3(...) LAPACK_sggsvd3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sggsvd3(...) LAPACK_sggsvd3_base(__VA_ARGS__) +#endif -#define LAPACK_zggsvd3 LAPACK_GLOBAL(zggsvd3,ZGGSVD3) -void LAPACK_zggsvd3( +#define LAPACK_zggsvd3_base LAPACK_GLOBAL(zggsvd3,ZGGSVD3) +void LAPACK_zggsvd3_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l, lapack_complex_double* A, lapack_int const* lda, @@ -3799,10 +5444,19 @@ void LAPACK_zggsvd3( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggsvd3(...) LAPACK_zggsvd3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zggsvd3(...) LAPACK_zggsvd3_base(__VA_ARGS__) +#endif -#define LAPACK_sggsvp LAPACK_GLOBAL(sggsvp,SGGSVP) -lapack_int LAPACK_sggsvp( +#define LAPACK_sggsvp_base LAPACK_GLOBAL(sggsvp,SGGSVP) +lapack_int LAPACK_sggsvp_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, float* a, lapack_int const* lda, @@ -3813,10 +5467,19 @@ lapack_int LAPACK_sggsvp( float* v, lapack_int const* ldv, float* q, lapack_int const* ldq, lapack_int* iwork, float* tau, - float* work, lapack_int* info ); + float* work, lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggsvp(...) LAPACK_sggsvp_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sggsvp(...) LAPACK_sggsvp_base(__VA_ARGS__) +#endif -#define LAPACK_dggsvp LAPACK_GLOBAL(dggsvp,DGGSVP) -lapack_int LAPACK_dggsvp( +#define LAPACK_dggsvp_base LAPACK_GLOBAL(dggsvp,DGGSVP) +lapack_int LAPACK_dggsvp_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, double* a, lapack_int const* lda, @@ -3827,10 +5490,19 @@ lapack_int LAPACK_dggsvp( double* v, lapack_int const* ldv, double* q, lapack_int const* ldq, lapack_int* iwork, double* tau, - double* work, lapack_int* info ); + double* work, lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggsvp(...) LAPACK_dggsvp_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dggsvp(...) LAPACK_dggsvp_base(__VA_ARGS__) +#endif -#define LAPACK_cggsvp LAPACK_GLOBAL(cggsvp,CGGSVP) -lapack_int LAPACK_cggsvp( +#define LAPACK_cggsvp_base LAPACK_GLOBAL(cggsvp,CGGSVP) +lapack_int LAPACK_cggsvp_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_complex_float* a, lapack_int const* lda, @@ -3840,10 +5512,19 @@ lapack_int LAPACK_cggsvp( lapack_complex_float* v, lapack_int const* ldv, lapack_complex_float* q, lapack_int const* ldq, lapack_int* iwork, float* rwork, lapack_complex_float* tau, - lapack_complex_float* work, lapack_int* info ); + lapack_complex_float* work, lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggsvp(...) LAPACK_cggsvp_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cggsvp(...) LAPACK_cggsvp_base(__VA_ARGS__) +#endif -#define LAPACK_zggsvp LAPACK_GLOBAL(zggsvp,ZGGSVP) -lapack_int LAPACK_zggsvp( +#define LAPACK_zggsvp_base LAPACK_GLOBAL(zggsvp,ZGGSVP) +lapack_int LAPACK_zggsvp_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_complex_double* a, lapack_int const* lda, @@ -3853,10 +5534,19 @@ lapack_int LAPACK_zggsvp( lapack_complex_double* v, lapack_int const* ldv, lapack_complex_double* q, lapack_int const* ldq, lapack_int* iwork, double* rwork, lapack_complex_double* tau, - lapack_complex_double* work, lapack_int* info ); + lapack_complex_double* work, lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggsvp(...) LAPACK_zggsvp_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zggsvp(...) LAPACK_zggsvp_base(__VA_ARGS__) +#endif -#define LAPACK_cggsvp3 LAPACK_GLOBAL(cggsvp3,CGGSVP3) -void LAPACK_cggsvp3( +#define LAPACK_cggsvp3_base LAPACK_GLOBAL(cggsvp3,CGGSVP3) +void LAPACK_cggsvp3_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -3870,10 +5560,19 @@ void LAPACK_cggsvp3( float* rwork, lapack_complex_float* tau, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cggsvp3(...) LAPACK_cggsvp3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cggsvp3(...) LAPACK_cggsvp3_base(__VA_ARGS__) +#endif -#define LAPACK_dggsvp3 LAPACK_GLOBAL(dggsvp3,DGGSVP3) -void LAPACK_dggsvp3( +#define LAPACK_dggsvp3_base LAPACK_GLOBAL(dggsvp3,DGGSVP3) +void LAPACK_dggsvp3_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, double* A, lapack_int const* lda, @@ -3886,10 +5585,19 @@ void LAPACK_dggsvp3( lapack_int* iwork, double* tau, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dggsvp3(...) LAPACK_dggsvp3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dggsvp3(...) LAPACK_dggsvp3_base(__VA_ARGS__) +#endif -#define LAPACK_sggsvp3 LAPACK_GLOBAL(sggsvp3,SGGSVP3) -void LAPACK_sggsvp3( +#define LAPACK_sggsvp3_base LAPACK_GLOBAL(sggsvp3,SGGSVP3) +void LAPACK_sggsvp3_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, float* A, lapack_int const* lda, @@ -3902,10 +5610,19 @@ void LAPACK_sggsvp3( lapack_int* iwork, float* tau, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sggsvp3(...) LAPACK_sggsvp3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sggsvp3(...) LAPACK_sggsvp3_base(__VA_ARGS__) +#endif -#define LAPACK_zggsvp3 LAPACK_GLOBAL(zggsvp3,ZGGSVP3) -void LAPACK_zggsvp3( +#define LAPACK_zggsvp3_base LAPACK_GLOBAL(zggsvp3,ZGGSVP3) +void LAPACK_zggsvp3_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -3919,10 +5636,19 @@ void LAPACK_zggsvp3( double* rwork, lapack_complex_double* tau, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zggsvp3(...) LAPACK_zggsvp3_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zggsvp3(...) LAPACK_zggsvp3_base(__VA_ARGS__) +#endif -#define LAPACK_cgtcon LAPACK_GLOBAL(cgtcon,CGTCON) -void LAPACK_cgtcon( +#define LAPACK_cgtcon_base LAPACK_GLOBAL(cgtcon,CGTCON) +void LAPACK_cgtcon_base( char const* norm, lapack_int const* n, lapack_complex_float const* DL, @@ -3932,10 +5658,19 @@ void LAPACK_cgtcon( float const* anorm, float* rcond, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgtcon(...) LAPACK_cgtcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgtcon(...) LAPACK_cgtcon_base(__VA_ARGS__) +#endif -#define LAPACK_dgtcon LAPACK_GLOBAL(dgtcon,DGTCON) -void LAPACK_dgtcon( +#define LAPACK_dgtcon_base LAPACK_GLOBAL(dgtcon,DGTCON) +void LAPACK_dgtcon_base( char const* norm, lapack_int const* n, double const* DL, @@ -3946,10 +5681,19 @@ void LAPACK_dgtcon( double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgtcon(...) LAPACK_dgtcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgtcon(...) LAPACK_dgtcon_base(__VA_ARGS__) +#endif -#define LAPACK_sgtcon LAPACK_GLOBAL(sgtcon,SGTCON) -void LAPACK_sgtcon( +#define LAPACK_sgtcon_base LAPACK_GLOBAL(sgtcon,SGTCON) +void LAPACK_sgtcon_base( char const* norm, lapack_int const* n, float const* DL, @@ -3960,10 +5704,19 @@ void LAPACK_sgtcon( float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgtcon(...) LAPACK_sgtcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgtcon(...) LAPACK_sgtcon_base(__VA_ARGS__) +#endif -#define LAPACK_zgtcon LAPACK_GLOBAL(zgtcon,ZGTCON) -void LAPACK_zgtcon( +#define LAPACK_zgtcon_base LAPACK_GLOBAL(zgtcon,ZGTCON) +void LAPACK_zgtcon_base( char const* norm, lapack_int const* n, lapack_complex_double const* DL, @@ -3973,10 +5726,19 @@ void LAPACK_zgtcon( double const* anorm, double* rcond, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgtcon(...) LAPACK_zgtcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgtcon(...) LAPACK_zgtcon_base(__VA_ARGS__) +#endif -#define LAPACK_cgtrfs LAPACK_GLOBAL(cgtrfs,CGTRFS) -void LAPACK_cgtrfs( +#define LAPACK_cgtrfs_base LAPACK_GLOBAL(cgtrfs,CGTRFS) +void LAPACK_cgtrfs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* DL, @@ -3992,10 +5754,19 @@ void LAPACK_cgtrfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgtrfs(...) LAPACK_cgtrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgtrfs(...) LAPACK_cgtrfs_base(__VA_ARGS__) +#endif -#define LAPACK_dgtrfs LAPACK_GLOBAL(dgtrfs,DGTRFS) -void LAPACK_dgtrfs( +#define LAPACK_dgtrfs_base LAPACK_GLOBAL(dgtrfs,DGTRFS) +void LAPACK_dgtrfs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, double const* DL, @@ -4011,10 +5782,19 @@ void LAPACK_dgtrfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgtrfs(...) LAPACK_dgtrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgtrfs(...) LAPACK_dgtrfs_base(__VA_ARGS__) +#endif -#define LAPACK_sgtrfs LAPACK_GLOBAL(sgtrfs,SGTRFS) -void LAPACK_sgtrfs( +#define LAPACK_sgtrfs_base LAPACK_GLOBAL(sgtrfs,SGTRFS) +void LAPACK_sgtrfs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, float const* DL, @@ -4030,10 +5810,19 @@ void LAPACK_sgtrfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgtrfs(...) LAPACK_sgtrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgtrfs(...) LAPACK_sgtrfs_base(__VA_ARGS__) +#endif -#define LAPACK_zgtrfs LAPACK_GLOBAL(zgtrfs,ZGTRFS) -void LAPACK_zgtrfs( +#define LAPACK_zgtrfs_base LAPACK_GLOBAL(zgtrfs,ZGTRFS) +void LAPACK_zgtrfs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* DL, @@ -4049,7 +5838,16 @@ void LAPACK_zgtrfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgtrfs(...) LAPACK_zgtrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgtrfs(...) LAPACK_zgtrfs_base(__VA_ARGS__) +#endif #define LAPACK_cgtsv LAPACK_GLOBAL(cgtsv,CGTSV) void LAPACK_cgtsv( @@ -4087,8 +5885,8 @@ void LAPACK_zgtsv( lapack_complex_double* B, lapack_int const* ldb, lapack_int* info ); -#define LAPACK_cgtsvx LAPACK_GLOBAL(cgtsvx,CGTSVX) -void LAPACK_cgtsvx( +#define LAPACK_cgtsvx_base LAPACK_GLOBAL(cgtsvx,CGTSVX) +void LAPACK_cgtsvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* DL, @@ -4105,10 +5903,19 @@ void LAPACK_cgtsvx( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgtsvx(...) LAPACK_cgtsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cgtsvx(...) LAPACK_cgtsvx_base(__VA_ARGS__) +#endif -#define LAPACK_dgtsvx LAPACK_GLOBAL(dgtsvx,DGTSVX) -void LAPACK_dgtsvx( +#define LAPACK_dgtsvx_base LAPACK_GLOBAL(dgtsvx,DGTSVX) +void LAPACK_dgtsvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, double const* DL, @@ -4125,10 +5932,19 @@ void LAPACK_dgtsvx( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgtsvx(...) LAPACK_dgtsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dgtsvx(...) LAPACK_dgtsvx_base(__VA_ARGS__) +#endif -#define LAPACK_sgtsvx LAPACK_GLOBAL(sgtsvx,SGTSVX) -void LAPACK_sgtsvx( +#define LAPACK_sgtsvx_base LAPACK_GLOBAL(sgtsvx,SGTSVX) +void LAPACK_sgtsvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, float const* DL, @@ -4145,10 +5961,19 @@ void LAPACK_sgtsvx( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgtsvx(...) LAPACK_sgtsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sgtsvx(...) LAPACK_sgtsvx_base(__VA_ARGS__) +#endif -#define LAPACK_zgtsvx LAPACK_GLOBAL(zgtsvx,ZGTSVX) -void LAPACK_zgtsvx( +#define LAPACK_zgtsvx_base LAPACK_GLOBAL(zgtsvx,ZGTSVX) +void LAPACK_zgtsvx_base( char const* fact, char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* DL, @@ -4165,7 +5990,16 @@ void LAPACK_zgtsvx( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgtsvx(...) LAPACK_zgtsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zgtsvx(...) LAPACK_zgtsvx_base(__VA_ARGS__) +#endif #define LAPACK_cgttrf LAPACK_GLOBAL(cgttrf,CGTTRF) void LAPACK_cgttrf( @@ -4203,8 +6037,8 @@ void LAPACK_zgttrf( lapack_complex_double* DU2, lapack_int* ipiv, lapack_int* info ); -#define LAPACK_cgttrs LAPACK_GLOBAL(cgttrs,CGTTRS) -void LAPACK_cgttrs( +#define LAPACK_cgttrs_base LAPACK_GLOBAL(cgttrs,CGTTRS) +void LAPACK_cgttrs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* DL, @@ -4212,10 +6046,19 @@ void LAPACK_cgttrs( lapack_complex_float const* DU, lapack_complex_float const* DU2, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cgttrs(...) LAPACK_cgttrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cgttrs(...) LAPACK_cgttrs_base(__VA_ARGS__) +#endif -#define LAPACK_dgttrs LAPACK_GLOBAL(dgttrs,DGTTRS) -void LAPACK_dgttrs( +#define LAPACK_dgttrs_base LAPACK_GLOBAL(dgttrs,DGTTRS) +void LAPACK_dgttrs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, double const* DL, @@ -4223,10 +6066,19 @@ void LAPACK_dgttrs( double const* DU, double const* DU2, lapack_int const* ipiv, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dgttrs(...) LAPACK_dgttrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dgttrs(...) LAPACK_dgttrs_base(__VA_ARGS__) +#endif -#define LAPACK_sgttrs LAPACK_GLOBAL(sgttrs,SGTTRS) -void LAPACK_sgttrs( +#define LAPACK_sgttrs_base LAPACK_GLOBAL(sgttrs,SGTTRS) +void LAPACK_sgttrs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, float const* DL, @@ -4234,10 +6086,19 @@ void LAPACK_sgttrs( float const* DU, float const* DU2, lapack_int const* ipiv, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sgttrs(...) LAPACK_sgttrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_sgttrs(...) LAPACK_sgttrs_base(__VA_ARGS__) +#endif -#define LAPACK_zgttrs LAPACK_GLOBAL(zgttrs,ZGTTRS) -void LAPACK_zgttrs( +#define LAPACK_zgttrs_base LAPACK_GLOBAL(zgttrs,ZGTTRS) +void LAPACK_zgttrs_base( char const* trans, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* DL, @@ -4245,10 +6106,19 @@ void LAPACK_zgttrs( lapack_complex_double const* DU, lapack_complex_double const* DU2, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zgttrs(...) LAPACK_zgttrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zgttrs(...) LAPACK_zgttrs_base(__VA_ARGS__) +#endif -#define LAPACK_chbev LAPACK_GLOBAL(chbev,CHBEV) -void LAPACK_chbev( +#define LAPACK_chbev_base LAPACK_GLOBAL(chbev,CHBEV) +void LAPACK_chbev_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float* AB, lapack_int const* ldab, @@ -4256,10 +6126,19 @@ void LAPACK_chbev( lapack_complex_float* Z, lapack_int const* ldz, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbev(...) LAPACK_chbev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chbev(...) LAPACK_chbev_base(__VA_ARGS__) +#endif -#define LAPACK_zhbev LAPACK_GLOBAL(zhbev,ZHBEV) -void LAPACK_zhbev( +#define LAPACK_zhbev_base LAPACK_GLOBAL(zhbev,ZHBEV) +void LAPACK_zhbev_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double* AB, lapack_int const* ldab, @@ -4267,10 +6146,19 @@ void LAPACK_zhbev( lapack_complex_double* Z, lapack_int const* ldz, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbev(...) LAPACK_zhbev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhbev(...) LAPACK_zhbev_base(__VA_ARGS__) +#endif -#define LAPACK_chbev_2stage LAPACK_GLOBAL(chbev_2stage,CHBEV_2STAGE) -void LAPACK_chbev_2stage( +#define LAPACK_chbev_2stage_base LAPACK_GLOBAL(chbev_2stage,CHBEV_2STAGE) +void LAPACK_chbev_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float* AB, lapack_int const* ldab, @@ -4278,10 +6166,19 @@ void LAPACK_chbev_2stage( lapack_complex_float* Z, lapack_int const* ldz, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbev_2stage(...) LAPACK_chbev_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chbev_2stage(...) LAPACK_chbev_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zhbev_2stage LAPACK_GLOBAL(zhbev_2stage,ZHBEV_2STAGE) -void LAPACK_zhbev_2stage( +#define LAPACK_zhbev_2stage_base LAPACK_GLOBAL(zhbev_2stage,ZHBEV_2STAGE) +void LAPACK_zhbev_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double* AB, lapack_int const* ldab, @@ -4289,10 +6186,19 @@ void LAPACK_zhbev_2stage( lapack_complex_double* Z, lapack_int const* ldz, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbev_2stage(...) LAPACK_zhbev_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhbev_2stage(...) LAPACK_zhbev_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_chbevd LAPACK_GLOBAL(chbevd,CHBEVD) -void LAPACK_chbevd( +#define LAPACK_chbevd_base LAPACK_GLOBAL(chbevd,CHBEVD) +void LAPACK_chbevd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float* AB, lapack_int const* ldab, @@ -4301,10 +6207,19 @@ void LAPACK_chbevd( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbevd(...) LAPACK_chbevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chbevd(...) LAPACK_chbevd_base(__VA_ARGS__) +#endif -#define LAPACK_zhbevd LAPACK_GLOBAL(zhbevd,ZHBEVD) -void LAPACK_zhbevd( +#define LAPACK_zhbevd_base LAPACK_GLOBAL(zhbevd,ZHBEVD) +void LAPACK_zhbevd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double* AB, lapack_int const* ldab, @@ -4313,10 +6228,19 @@ void LAPACK_zhbevd( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbevd(...) LAPACK_zhbevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhbevd(...) LAPACK_zhbevd_base(__VA_ARGS__) +#endif -#define LAPACK_chbevd_2stage LAPACK_GLOBAL(chbevd_2stage,CHBEVD_2STAGE) -void LAPACK_chbevd_2stage( +#define LAPACK_chbevd_2stage_base LAPACK_GLOBAL(chbevd_2stage,CHBEVD_2STAGE) +void LAPACK_chbevd_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float* AB, lapack_int const* ldab, @@ -4325,10 +6249,19 @@ void LAPACK_chbevd_2stage( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbevd_2stage(...) LAPACK_chbevd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chbevd_2stage(...) LAPACK_chbevd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zhbevd_2stage LAPACK_GLOBAL(zhbevd_2stage,ZHBEVD_2STAGE) -void LAPACK_zhbevd_2stage( +#define LAPACK_zhbevd_2stage_base LAPACK_GLOBAL(zhbevd_2stage,ZHBEVD_2STAGE) +void LAPACK_zhbevd_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double* AB, lapack_int const* ldab, @@ -4337,10 +6270,19 @@ void LAPACK_zhbevd_2stage( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbevd_2stage(...) LAPACK_zhbevd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhbevd_2stage(...) LAPACK_zhbevd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_chbevx LAPACK_GLOBAL(chbevx,CHBEVX) -void LAPACK_chbevx( +#define LAPACK_chbevx_base LAPACK_GLOBAL(chbevx,CHBEVX) +void LAPACK_chbevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float* AB, lapack_int const* ldab, @@ -4353,10 +6295,19 @@ void LAPACK_chbevx( lapack_complex_float* work, float* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbevx(...) LAPACK_chbevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chbevx(...) LAPACK_chbevx_base(__VA_ARGS__) +#endif -#define LAPACK_zhbevx LAPACK_GLOBAL(zhbevx,ZHBEVX) -void LAPACK_zhbevx( +#define LAPACK_zhbevx_base LAPACK_GLOBAL(zhbevx,ZHBEVX) +void LAPACK_zhbevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double* AB, lapack_int const* ldab, @@ -4369,10 +6320,19 @@ void LAPACK_zhbevx( lapack_complex_double* work, double* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbevx(...) LAPACK_zhbevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhbevx(...) LAPACK_zhbevx_base(__VA_ARGS__) +#endif -#define LAPACK_chbevx_2stage LAPACK_GLOBAL(chbevx_2stage,CHBEVX_2STAGE) -void LAPACK_chbevx_2stage( +#define LAPACK_chbevx_2stage_base LAPACK_GLOBAL(chbevx_2stage,CHBEVX_2STAGE) +void LAPACK_chbevx_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float* AB, lapack_int const* ldab, @@ -4385,10 +6345,19 @@ void LAPACK_chbevx_2stage( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbevx_2stage(...) LAPACK_chbevx_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chbevx_2stage(...) LAPACK_chbevx_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zhbevx_2stage LAPACK_GLOBAL(zhbevx_2stage,ZHBEVX_2STAGE) -void LAPACK_zhbevx_2stage( +#define LAPACK_zhbevx_2stage_base LAPACK_GLOBAL(zhbevx_2stage,ZHBEVX_2STAGE) +void LAPACK_zhbevx_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double* AB, lapack_int const* ldab, @@ -4401,10 +6370,19 @@ void LAPACK_zhbevx_2stage( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbevx_2stage(...) LAPACK_zhbevx_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhbevx_2stage(...) LAPACK_zhbevx_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_chbgst LAPACK_GLOBAL(chbgst,CHBGST) -void LAPACK_chbgst( +#define LAPACK_chbgst_base LAPACK_GLOBAL(chbgst,CHBGST) +void LAPACK_chbgst_base( char const* vect, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, lapack_complex_float* AB, lapack_int const* ldab, @@ -4412,10 +6390,19 @@ void LAPACK_chbgst( lapack_complex_float* X, lapack_int const* ldx, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbgst(...) LAPACK_chbgst_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chbgst(...) LAPACK_chbgst_base(__VA_ARGS__) +#endif -#define LAPACK_zhbgst LAPACK_GLOBAL(zhbgst,ZHBGST) -void LAPACK_zhbgst( +#define LAPACK_zhbgst_base LAPACK_GLOBAL(zhbgst,ZHBGST) +void LAPACK_zhbgst_base( char const* vect, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, lapack_complex_double* AB, lapack_int const* ldab, @@ -4423,10 +6410,19 @@ void LAPACK_zhbgst( lapack_complex_double* X, lapack_int const* ldx, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbgst(...) LAPACK_zhbgst_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhbgst(...) LAPACK_zhbgst_base(__VA_ARGS__) +#endif -#define LAPACK_chbgv LAPACK_GLOBAL(chbgv,CHBGV) -void LAPACK_chbgv( +#define LAPACK_chbgv_base LAPACK_GLOBAL(chbgv,CHBGV) +void LAPACK_chbgv_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, lapack_complex_float* AB, lapack_int const* ldab, @@ -4435,10 +6431,19 @@ void LAPACK_chbgv( lapack_complex_float* Z, lapack_int const* ldz, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbgv(...) LAPACK_chbgv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chbgv(...) LAPACK_chbgv_base(__VA_ARGS__) +#endif -#define LAPACK_zhbgv LAPACK_GLOBAL(zhbgv,ZHBGV) -void LAPACK_zhbgv( +#define LAPACK_zhbgv_base LAPACK_GLOBAL(zhbgv,ZHBGV) +void LAPACK_zhbgv_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, lapack_complex_double* AB, lapack_int const* ldab, @@ -4447,10 +6452,19 @@ void LAPACK_zhbgv( lapack_complex_double* Z, lapack_int const* ldz, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbgv(...) LAPACK_zhbgv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhbgv(...) LAPACK_zhbgv_base(__VA_ARGS__) +#endif -#define LAPACK_chbgvd LAPACK_GLOBAL(chbgvd,CHBGVD) -void LAPACK_chbgvd( +#define LAPACK_chbgvd_base LAPACK_GLOBAL(chbgvd,CHBGVD) +void LAPACK_chbgvd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, lapack_complex_float* AB, lapack_int const* ldab, @@ -4460,10 +6474,19 @@ void LAPACK_chbgvd( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbgvd(...) LAPACK_chbgvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chbgvd(...) LAPACK_chbgvd_base(__VA_ARGS__) +#endif -#define LAPACK_zhbgvd LAPACK_GLOBAL(zhbgvd,ZHBGVD) -void LAPACK_zhbgvd( +#define LAPACK_zhbgvd_base LAPACK_GLOBAL(zhbgvd,ZHBGVD) +void LAPACK_zhbgvd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, lapack_complex_double* AB, lapack_int const* ldab, @@ -4473,10 +6496,19 @@ void LAPACK_zhbgvd( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbgvd(...) LAPACK_zhbgvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhbgvd(...) LAPACK_zhbgvd_base(__VA_ARGS__) +#endif -#define LAPACK_chbgvx LAPACK_GLOBAL(chbgvx,CHBGVX) -void LAPACK_chbgvx( +#define LAPACK_chbgvx_base LAPACK_GLOBAL(chbgvx,CHBGVX) +void LAPACK_chbgvx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, lapack_complex_float* AB, lapack_int const* ldab, @@ -4490,10 +6522,19 @@ void LAPACK_chbgvx( lapack_complex_float* work, float* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbgvx(...) LAPACK_chbgvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chbgvx(...) LAPACK_chbgvx_base(__VA_ARGS__) +#endif -#define LAPACK_zhbgvx LAPACK_GLOBAL(zhbgvx,ZHBGVX) -void LAPACK_zhbgvx( +#define LAPACK_zhbgvx_base LAPACK_GLOBAL(zhbgvx,ZHBGVX) +void LAPACK_zhbgvx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, lapack_complex_double* AB, lapack_int const* ldab, @@ -4507,10 +6548,19 @@ void LAPACK_zhbgvx( lapack_complex_double* work, double* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbgvx(...) LAPACK_zhbgvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhbgvx(...) LAPACK_zhbgvx_base(__VA_ARGS__) +#endif -#define LAPACK_chbtrd LAPACK_GLOBAL(chbtrd,CHBTRD) -void LAPACK_chbtrd( +#define LAPACK_chbtrd_base LAPACK_GLOBAL(chbtrd,CHBTRD) +void LAPACK_chbtrd_base( char const* vect, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float* AB, lapack_int const* ldab, @@ -4518,10 +6568,19 @@ void LAPACK_chbtrd( float* E, lapack_complex_float* Q, lapack_int const* ldq, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chbtrd(...) LAPACK_chbtrd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chbtrd(...) LAPACK_chbtrd_base(__VA_ARGS__) +#endif -#define LAPACK_zhbtrd LAPACK_GLOBAL(zhbtrd,ZHBTRD) -void LAPACK_zhbtrd( +#define LAPACK_zhbtrd_base LAPACK_GLOBAL(zhbtrd,ZHBTRD) +void LAPACK_zhbtrd_base( char const* vect, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double* AB, lapack_int const* ldab, @@ -4529,30 +6588,57 @@ void LAPACK_zhbtrd( double* E, lapack_complex_double* Q, lapack_int const* ldq, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhbtrd(...) LAPACK_zhbtrd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhbtrd(...) LAPACK_zhbtrd_base(__VA_ARGS__) +#endif -#define LAPACK_checon LAPACK_GLOBAL(checon,CHECON) -void LAPACK_checon( +#define LAPACK_checon_base LAPACK_GLOBAL(checon,CHECON) +void LAPACK_checon_base( char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, float const* anorm, float* rcond, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_checon(...) LAPACK_checon_base(__VA_ARGS__, 1) +#else + #define LAPACK_checon(...) LAPACK_checon_base(__VA_ARGS__) +#endif -#define LAPACK_zhecon LAPACK_GLOBAL(zhecon,ZHECON) -void LAPACK_zhecon( +#define LAPACK_zhecon_base LAPACK_GLOBAL(zhecon,ZHECON) +void LAPACK_zhecon_base( char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, double const* anorm, double* rcond, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhecon(...) LAPACK_zhecon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhecon(...) LAPACK_zhecon_base(__VA_ARGS__) +#endif -#define LAPACK_checon_3 LAPACK_GLOBAL(checon_3,CHECON_3) -void LAPACK_checon_3( +#define LAPACK_checon_3_base LAPACK_GLOBAL(checon_3,CHECON_3) +void LAPACK_checon_3_base( char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, @@ -4560,10 +6646,19 @@ void LAPACK_checon_3( float const* anorm, float* rcond, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_checon_3(...) LAPACK_checon_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_checon_3(...) LAPACK_checon_3_base(__VA_ARGS__) +#endif -#define LAPACK_zhecon_3 LAPACK_GLOBAL(zhecon_3,ZHECON_3) -void LAPACK_zhecon_3( +#define LAPACK_zhecon_3_base LAPACK_GLOBAL(zhecon_3,ZHECON_3) +void LAPACK_zhecon_3_base( char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, @@ -4571,10 +6666,19 @@ void LAPACK_zhecon_3( double const* anorm, double* rcond, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhecon_3(...) LAPACK_zhecon_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhecon_3(...) LAPACK_zhecon_3_base(__VA_ARGS__) +#endif -#define LAPACK_cheequb LAPACK_GLOBAL(cheequb,CHEEQUB) -void LAPACK_cheequb( +#define LAPACK_cheequb_base LAPACK_GLOBAL(cheequb,CHEEQUB) +void LAPACK_cheequb_base( char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, @@ -4582,10 +6686,19 @@ void LAPACK_cheequb( float* scond, float* amax, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheequb(...) LAPACK_cheequb_base(__VA_ARGS__, 1) +#else + #define LAPACK_cheequb(...) LAPACK_cheequb_base(__VA_ARGS__) +#endif -#define LAPACK_zheequb LAPACK_GLOBAL(zheequb,ZHEEQUB) -void LAPACK_zheequb( +#define LAPACK_zheequb_base LAPACK_GLOBAL(zheequb,ZHEEQUB) +void LAPACK_zheequb_base( char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, @@ -4593,50 +6706,95 @@ void LAPACK_zheequb( double* scond, double* amax, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheequb(...) LAPACK_zheequb_base(__VA_ARGS__, 1) +#else + #define LAPACK_zheequb(...) LAPACK_zheequb_base(__VA_ARGS__) +#endif -#define LAPACK_cheev LAPACK_GLOBAL(cheev,CHEEV) -void LAPACK_cheev( +#define LAPACK_cheev_base LAPACK_GLOBAL(cheev,CHEEV) +void LAPACK_cheev_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, float* W, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheev(...) LAPACK_cheev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cheev(...) LAPACK_cheev_base(__VA_ARGS__) +#endif -#define LAPACK_zheev LAPACK_GLOBAL(zheev,ZHEEV) -void LAPACK_zheev( +#define LAPACK_zheev_base LAPACK_GLOBAL(zheev,ZHEEV) +void LAPACK_zheev_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, double* W, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheev(...) LAPACK_zheev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zheev(...) LAPACK_zheev_base(__VA_ARGS__) +#endif -#define LAPACK_cheev_2stage LAPACK_GLOBAL(cheev_2stage,CHEEV_2STAGE) -void LAPACK_cheev_2stage( +#define LAPACK_cheev_2stage_base LAPACK_GLOBAL(cheev_2stage,CHEEV_2STAGE) +void LAPACK_cheev_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, float* W, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheev_2stage(...) LAPACK_cheev_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cheev_2stage(...) LAPACK_cheev_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zheev_2stage LAPACK_GLOBAL(zheev_2stage,ZHEEV_2STAGE) -void LAPACK_zheev_2stage( +#define LAPACK_zheev_2stage_base LAPACK_GLOBAL(zheev_2stage,ZHEEV_2STAGE) +void LAPACK_zheev_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, double* W, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheev_2stage(...) LAPACK_zheev_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zheev_2stage(...) LAPACK_zheev_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_cheevd LAPACK_GLOBAL(cheevd,CHEEVD) -void LAPACK_cheevd( +#define LAPACK_cheevd_base LAPACK_GLOBAL(cheevd,CHEEVD) +void LAPACK_cheevd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4644,10 +6802,19 @@ void LAPACK_cheevd( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheevd(...) LAPACK_cheevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cheevd(...) LAPACK_cheevd_base(__VA_ARGS__) +#endif -#define LAPACK_zheevd LAPACK_GLOBAL(zheevd,ZHEEVD) -void LAPACK_zheevd( +#define LAPACK_zheevd_base LAPACK_GLOBAL(zheevd,ZHEEVD) +void LAPACK_zheevd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4655,10 +6822,19 @@ void LAPACK_zheevd( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheevd(...) LAPACK_zheevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zheevd(...) LAPACK_zheevd_base(__VA_ARGS__) +#endif -#define LAPACK_cheevd_2stage LAPACK_GLOBAL(cheevd_2stage,CHEEVD_2STAGE) -void LAPACK_cheevd_2stage( +#define LAPACK_cheevd_2stage_base LAPACK_GLOBAL(cheevd_2stage,CHEEVD_2STAGE) +void LAPACK_cheevd_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4666,10 +6842,19 @@ void LAPACK_cheevd_2stage( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheevd_2stage(...) LAPACK_cheevd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cheevd_2stage(...) LAPACK_cheevd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zheevd_2stage LAPACK_GLOBAL(zheevd_2stage,ZHEEVD_2STAGE) -void LAPACK_zheevd_2stage( +#define LAPACK_zheevd_2stage_base LAPACK_GLOBAL(zheevd_2stage,ZHEEVD_2STAGE) +void LAPACK_zheevd_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4677,10 +6862,19 @@ void LAPACK_zheevd_2stage( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheevd_2stage(...) LAPACK_zheevd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zheevd_2stage(...) LAPACK_zheevd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_cheevr LAPACK_GLOBAL(cheevr,CHEEVR) -void LAPACK_cheevr( +#define LAPACK_cheevr_base LAPACK_GLOBAL(cheevr,CHEEVR) +void LAPACK_cheevr_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4692,10 +6886,19 @@ void LAPACK_cheevr( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheevr(...) LAPACK_cheevr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cheevr(...) LAPACK_cheevr_base(__VA_ARGS__) +#endif -#define LAPACK_zheevr LAPACK_GLOBAL(zheevr,ZHEEVR) -void LAPACK_zheevr( +#define LAPACK_zheevr_base LAPACK_GLOBAL(zheevr,ZHEEVR) +void LAPACK_zheevr_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4707,10 +6910,19 @@ void LAPACK_zheevr( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheevr(...) LAPACK_zheevr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zheevr(...) LAPACK_zheevr_base(__VA_ARGS__) +#endif -#define LAPACK_cheevr_2stage LAPACK_GLOBAL(cheevr_2stage,CHEEVR_2STAGE) -void LAPACK_cheevr_2stage( +#define LAPACK_cheevr_2stage_base LAPACK_GLOBAL(cheevr_2stage,CHEEVR_2STAGE) +void LAPACK_cheevr_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4722,10 +6934,19 @@ void LAPACK_cheevr_2stage( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheevr_2stage(...) LAPACK_cheevr_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cheevr_2stage(...) LAPACK_cheevr_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zheevr_2stage LAPACK_GLOBAL(zheevr_2stage,ZHEEVR_2STAGE) -void LAPACK_zheevr_2stage( +#define LAPACK_zheevr_2stage_base LAPACK_GLOBAL(zheevr_2stage,ZHEEVR_2STAGE) +void LAPACK_zheevr_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4737,10 +6958,19 @@ void LAPACK_zheevr_2stage( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheevr_2stage(...) LAPACK_zheevr_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zheevr_2stage(...) LAPACK_zheevr_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_cheevx LAPACK_GLOBAL(cheevx,CHEEVX) -void LAPACK_cheevx( +#define LAPACK_cheevx_base LAPACK_GLOBAL(cheevx,CHEEVX) +void LAPACK_cheevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4752,10 +6982,19 @@ void LAPACK_cheevx( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheevx(...) LAPACK_cheevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cheevx(...) LAPACK_cheevx_base(__VA_ARGS__) +#endif -#define LAPACK_zheevx LAPACK_GLOBAL(zheevx,ZHEEVX) -void LAPACK_zheevx( +#define LAPACK_zheevx_base LAPACK_GLOBAL(zheevx,ZHEEVX) +void LAPACK_zheevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4767,10 +7006,19 @@ void LAPACK_zheevx( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheevx(...) LAPACK_zheevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zheevx(...) LAPACK_zheevx_base(__VA_ARGS__) +#endif -#define LAPACK_cheevx_2stage LAPACK_GLOBAL(cheevx_2stage,CHEEVX_2STAGE) -void LAPACK_cheevx_2stage( +#define LAPACK_cheevx_2stage_base LAPACK_GLOBAL(cheevx_2stage,CHEEVX_2STAGE) +void LAPACK_cheevx_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4782,10 +7030,19 @@ void LAPACK_cheevx_2stage( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheevx_2stage(...) LAPACK_cheevx_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cheevx_2stage(...) LAPACK_cheevx_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zheevx_2stage LAPACK_GLOBAL(zheevx_2stage,ZHEEVX_2STAGE) -void LAPACK_zheevx_2stage( +#define LAPACK_zheevx_2stage_base LAPACK_GLOBAL(zheevx_2stage,ZHEEVX_2STAGE) +void LAPACK_zheevx_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4797,26 +7054,53 @@ void LAPACK_zheevx_2stage( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheevx_2stage(...) LAPACK_zheevx_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zheevx_2stage(...) LAPACK_zheevx_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_chegst LAPACK_GLOBAL(chegst,CHEGST) -void LAPACK_chegst( +#define LAPACK_chegst_base LAPACK_GLOBAL(chegst,CHEGST) +void LAPACK_chegst_base( lapack_int const* itype, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, const lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chegst(...) LAPACK_chegst_base(__VA_ARGS__, 1) +#else + #define LAPACK_chegst(...) LAPACK_chegst_base(__VA_ARGS__) +#endif -#define LAPACK_zhegst LAPACK_GLOBAL(zhegst,ZHEGST) -void LAPACK_zhegst( +#define LAPACK_zhegst_base LAPACK_GLOBAL(zhegst,ZHEGST) +void LAPACK_zhegst_base( lapack_int const* itype, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, const lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhegst(...) LAPACK_zhegst_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhegst(...) LAPACK_zhegst_base(__VA_ARGS__) +#endif -#define LAPACK_chegv LAPACK_GLOBAL(chegv,CHEGV) -void LAPACK_chegv( +#define LAPACK_chegv_base LAPACK_GLOBAL(chegv,CHEGV) +void LAPACK_chegv_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4824,10 +7108,19 @@ void LAPACK_chegv( float* W, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chegv(...) LAPACK_chegv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chegv(...) LAPACK_chegv_base(__VA_ARGS__) +#endif -#define LAPACK_zhegv LAPACK_GLOBAL(zhegv,ZHEGV) -void LAPACK_zhegv( +#define LAPACK_zhegv_base LAPACK_GLOBAL(zhegv,ZHEGV) +void LAPACK_zhegv_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4835,10 +7128,19 @@ void LAPACK_zhegv( double* W, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhegv(...) LAPACK_zhegv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhegv(...) LAPACK_zhegv_base(__VA_ARGS__) +#endif -#define LAPACK_chegv_2stage LAPACK_GLOBAL(chegv_2stage,CHEGV_2STAGE) -void LAPACK_chegv_2stage( +#define LAPACK_chegv_2stage_base LAPACK_GLOBAL(chegv_2stage,CHEGV_2STAGE) +void LAPACK_chegv_2stage_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4846,10 +7148,19 @@ void LAPACK_chegv_2stage( float* W, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chegv_2stage(...) LAPACK_chegv_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chegv_2stage(...) LAPACK_chegv_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zhegv_2stage LAPACK_GLOBAL(zhegv_2stage,ZHEGV_2STAGE) -void LAPACK_zhegv_2stage( +#define LAPACK_zhegv_2stage_base LAPACK_GLOBAL(zhegv_2stage,ZHEGV_2STAGE) +void LAPACK_zhegv_2stage_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4857,10 +7168,19 @@ void LAPACK_zhegv_2stage( double* W, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhegv_2stage(...) LAPACK_zhegv_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhegv_2stage(...) LAPACK_zhegv_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_chegvd LAPACK_GLOBAL(chegvd,CHEGVD) -void LAPACK_chegvd( +#define LAPACK_chegvd_base LAPACK_GLOBAL(chegvd,CHEGVD) +void LAPACK_chegvd_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4869,10 +7189,19 @@ void LAPACK_chegvd( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chegvd(...) LAPACK_chegvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chegvd(...) LAPACK_chegvd_base(__VA_ARGS__) +#endif -#define LAPACK_zhegvd LAPACK_GLOBAL(zhegvd,ZHEGVD) -void LAPACK_zhegvd( +#define LAPACK_zhegvd_base LAPACK_GLOBAL(zhegvd,ZHEGVD) +void LAPACK_zhegvd_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4881,10 +7210,19 @@ void LAPACK_zhegvd( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhegvd(...) LAPACK_zhegvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhegvd(...) LAPACK_zhegvd_base(__VA_ARGS__) +#endif -#define LAPACK_chegvx LAPACK_GLOBAL(chegvx,CHEGVX) -void LAPACK_chegvx( +#define LAPACK_chegvx_base LAPACK_GLOBAL(chegvx,CHEGVX) +void LAPACK_chegvx_base( lapack_int const* itype, char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -4897,10 +7235,19 @@ void LAPACK_chegvx( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chegvx(...) LAPACK_chegvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chegvx(...) LAPACK_chegvx_base(__VA_ARGS__) +#endif -#define LAPACK_zhegvx LAPACK_GLOBAL(zhegvx,ZHEGVX) -void LAPACK_zhegvx( +#define LAPACK_zhegvx_base LAPACK_GLOBAL(zhegvx,ZHEGVX) +void LAPACK_zhegvx_base( lapack_int const* itype, char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -4913,10 +7260,19 @@ void LAPACK_zhegvx( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhegvx(...) LAPACK_zhegvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhegvx(...) LAPACK_zhegvx_base(__VA_ARGS__) +#endif -#define LAPACK_cherfs LAPACK_GLOBAL(cherfs,CHERFS) -void LAPACK_cherfs( +#define LAPACK_cherfs_base LAPACK_GLOBAL(cherfs,CHERFS) +void LAPACK_cherfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -4927,10 +7283,19 @@ void LAPACK_cherfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cherfs(...) LAPACK_cherfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cherfs(...) LAPACK_cherfs_base(__VA_ARGS__) +#endif -#define LAPACK_zherfs LAPACK_GLOBAL(zherfs,ZHERFS) -void LAPACK_zherfs( +#define LAPACK_zherfs_base LAPACK_GLOBAL(zherfs,ZHERFS) +void LAPACK_zherfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -4941,10 +7306,19 @@ void LAPACK_zherfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zherfs(...) LAPACK_zherfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zherfs(...) LAPACK_zherfs_base(__VA_ARGS__) +#endif -#define LAPACK_cherfsx LAPACK_GLOBAL(cherfsx,CHERFSX) -void LAPACK_cherfsx( +#define LAPACK_cherfsx_base LAPACK_GLOBAL(cherfsx,CHERFSX) +void LAPACK_cherfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -4959,10 +7333,19 @@ void LAPACK_cherfsx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cherfsx(...) LAPACK_cherfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cherfsx(...) LAPACK_cherfsx_base(__VA_ARGS__) +#endif -#define LAPACK_zherfsx LAPACK_GLOBAL(zherfsx,ZHERFSX) -void LAPACK_zherfsx( +#define LAPACK_zherfsx_base LAPACK_GLOBAL(zherfsx,ZHERFSX) +void LAPACK_zherfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -4977,104 +7360,203 @@ void LAPACK_zherfsx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zherfsx(...) LAPACK_zherfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zherfsx(...) LAPACK_zherfsx_base(__VA_ARGS__) +#endif -#define LAPACK_chesv LAPACK_GLOBAL(chesv,CHESV) -void LAPACK_chesv( +#define LAPACK_chesv_base LAPACK_GLOBAL(chesv,CHESV) +void LAPACK_chesv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chesv(...) LAPACK_chesv_base(__VA_ARGS__, 1) +#else + #define LAPACK_chesv(...) LAPACK_chesv_base(__VA_ARGS__) +#endif -#define LAPACK_zhesv LAPACK_GLOBAL(zhesv,ZHESV) -void LAPACK_zhesv( +#define LAPACK_zhesv_base LAPACK_GLOBAL(zhesv,ZHESV) +void LAPACK_zhesv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhesv(...) LAPACK_zhesv_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhesv(...) LAPACK_zhesv_base(__VA_ARGS__) +#endif -#define LAPACK_chesv_aa LAPACK_GLOBAL(chesv_aa,CHESV_AA) -void LAPACK_chesv_aa( +#define LAPACK_chesv_aa_base LAPACK_GLOBAL(chesv_aa,CHESV_AA) +void LAPACK_chesv_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chesv_aa(...) LAPACK_chesv_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_chesv_aa(...) LAPACK_chesv_aa_base(__VA_ARGS__) +#endif -#define LAPACK_zhesv_aa LAPACK_GLOBAL(zhesv_aa,ZHESV_AA) -void LAPACK_zhesv_aa( +#define LAPACK_zhesv_aa_base LAPACK_GLOBAL(zhesv_aa,ZHESV_AA) +void LAPACK_zhesv_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhesv_aa(...) LAPACK_zhesv_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhesv_aa(...) LAPACK_zhesv_aa_base(__VA_ARGS__) +#endif -#define LAPACK_chesv_aa_2stage LAPACK_GLOBAL(chesv_aa_2stage,CHESV_AA_2STAGE) -void LAPACK_chesv_aa_2stage( +#define LAPACK_chesv_aa_2stage_base LAPACK_GLOBAL(chesv_aa_2stage,CHESV_AA_2STAGE) +void LAPACK_chesv_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chesv_aa_2stage(...) LAPACK_chesv_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_chesv_aa_2stage(...) LAPACK_chesv_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zhesv_aa_2stage LAPACK_GLOBAL(zhesv_aa_2stage,ZHESV_AA_2STAGE) -void LAPACK_zhesv_aa_2stage( +#define LAPACK_zhesv_aa_2stage_base LAPACK_GLOBAL(zhesv_aa_2stage,ZHESV_AA_2STAGE) +void LAPACK_zhesv_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhesv_aa_2stage(...) LAPACK_zhesv_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhesv_aa_2stage(...) LAPACK_zhesv_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_chesv_rk LAPACK_GLOBAL(chesv_rk,CHESV_RK) -void LAPACK_chesv_rk( +#define LAPACK_chesv_rk_base LAPACK_GLOBAL(chesv_rk,CHESV_RK) +void LAPACK_chesv_rk_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* E, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chesv_rk(...) LAPACK_chesv_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_chesv_rk(...) LAPACK_chesv_rk_base(__VA_ARGS__) +#endif -#define LAPACK_zhesv_rk LAPACK_GLOBAL(zhesv_rk,ZHESV_RK) -void LAPACK_zhesv_rk( +#define LAPACK_zhesv_rk_base LAPACK_GLOBAL(zhesv_rk,ZHESV_RK) +void LAPACK_zhesv_rk_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* E, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhesv_rk(...) LAPACK_zhesv_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhesv_rk(...) LAPACK_zhesv_rk_base(__VA_ARGS__) +#endif -#define LAPACK_chesv_rook LAPACK_GLOBAL(chesv_rook,CHESV_ROOK) -void LAPACK_chesv_rook( +#define LAPACK_chesv_rook_base LAPACK_GLOBAL(chesv_rook,CHESV_ROOK) +void LAPACK_chesv_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chesv_rook(...) LAPACK_chesv_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_chesv_rook(...) LAPACK_chesv_rook_base(__VA_ARGS__) +#endif -#define LAPACK_zhesv_rook LAPACK_GLOBAL(zhesv_rook,ZHESV_ROOK) -void LAPACK_zhesv_rook( +#define LAPACK_zhesv_rook_base LAPACK_GLOBAL(zhesv_rook,ZHESV_ROOK) +void LAPACK_zhesv_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhesv_rook(...) LAPACK_zhesv_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhesv_rook(...) LAPACK_zhesv_rook_base(__VA_ARGS__) +#endif -#define LAPACK_chesvx LAPACK_GLOBAL(chesvx,CHESVX) -void LAPACK_chesvx( +#define LAPACK_chesvx_base LAPACK_GLOBAL(chesvx,CHESVX) +void LAPACK_chesvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -5086,10 +7568,19 @@ void LAPACK_chesvx( float* berr, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chesvx(...) LAPACK_chesvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chesvx(...) LAPACK_chesvx_base(__VA_ARGS__) +#endif -#define LAPACK_zhesvx LAPACK_GLOBAL(zhesvx,ZHESVX) -void LAPACK_zhesvx( +#define LAPACK_zhesvx_base LAPACK_GLOBAL(zhesvx,ZHESVX) +void LAPACK_zhesvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -5101,10 +7592,19 @@ void LAPACK_zhesvx( double* berr, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhesvx(...) LAPACK_zhesvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhesvx(...) LAPACK_zhesvx_base(__VA_ARGS__) +#endif -#define LAPACK_chesvxx LAPACK_GLOBAL(chesvxx,CHESVXX) -void LAPACK_chesvxx( +#define LAPACK_chesvxx_base LAPACK_GLOBAL(chesvxx,CHESVXX) +void LAPACK_chesvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, @@ -5121,10 +7621,19 @@ void LAPACK_chesvxx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chesvxx(...) LAPACK_chesvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chesvxx(...) LAPACK_chesvxx_base(__VA_ARGS__) +#endif -#define LAPACK_zhesvxx LAPACK_GLOBAL(zhesvxx,ZHESVXX) -void LAPACK_zhesvxx( +#define LAPACK_zhesvxx_base LAPACK_GLOBAL(zhesvxx,ZHESVXX) +void LAPACK_zhesvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, @@ -5141,22 +7650,49 @@ void LAPACK_zhesvxx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhesvxx(...) LAPACK_zhesvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhesvxx(...) LAPACK_zhesvxx_base(__VA_ARGS__) +#endif -#define LAPACK_cheswapr LAPACK_GLOBAL(cheswapr,CHESWAPR) -void LAPACK_cheswapr( +#define LAPACK_cheswapr_base LAPACK_GLOBAL(cheswapr,CHESWAPR) +void LAPACK_cheswapr_base( char const* uplo, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 ); + lapack_complex_float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cheswapr(...) LAPACK_cheswapr_base(__VA_ARGS__, 1) +#else + #define LAPACK_cheswapr(...) LAPACK_cheswapr_base(__VA_ARGS__) +#endif -#define LAPACK_zheswapr LAPACK_GLOBAL(zheswapr,ZHESWAPR) -void LAPACK_zheswapr( +#define LAPACK_zheswapr_base LAPACK_GLOBAL(zheswapr,ZHESWAPR) +void LAPACK_zheswapr_base( char const* uplo, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 ); + lapack_complex_double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zheswapr(...) LAPACK_zheswapr_base(__VA_ARGS__, 1) +#else + #define LAPACK_zheswapr(...) LAPACK_zheswapr_base(__VA_ARGS__) +#endif -#define LAPACK_chetrd LAPACK_GLOBAL(chetrd,CHETRD) -void LAPACK_chetrd( +#define LAPACK_chetrd_base LAPACK_GLOBAL(chetrd,CHETRD) +void LAPACK_chetrd_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -5164,10 +7700,19 @@ void LAPACK_chetrd( float* E, lapack_complex_float* tau, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrd(...) LAPACK_chetrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrd(...) LAPACK_chetrd_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrd LAPACK_GLOBAL(zhetrd,ZHETRD) -void LAPACK_zhetrd( +#define LAPACK_zhetrd_base LAPACK_GLOBAL(zhetrd,ZHETRD) +void LAPACK_zhetrd_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -5175,10 +7720,19 @@ void LAPACK_zhetrd( double* E, lapack_complex_double* tau, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrd(...) LAPACK_zhetrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrd(...) LAPACK_zhetrd_base(__VA_ARGS__) +#endif -#define LAPACK_chetrd_2stage LAPACK_GLOBAL(chetrd_2stage,CHETRD_2STAGE) -void LAPACK_chetrd_2stage( +#define LAPACK_chetrd_2stage_base LAPACK_GLOBAL(chetrd_2stage,CHETRD_2STAGE) +void LAPACK_chetrd_2stage_base( char const* vect, char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, @@ -5187,10 +7741,19 @@ void LAPACK_chetrd_2stage( lapack_complex_float* tau, lapack_complex_float* HOUS2, lapack_int const* lhous2, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrd_2stage(...) LAPACK_chetrd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chetrd_2stage(...) LAPACK_chetrd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrd_2stage LAPACK_GLOBAL(zhetrd_2stage,ZHETRD_2STAGE) -void LAPACK_zhetrd_2stage( +#define LAPACK_zhetrd_2stage_base LAPACK_GLOBAL(zhetrd_2stage,ZHETRD_2STAGE) +void LAPACK_zhetrd_2stage_base( char const* vect, char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, @@ -5199,282 +7762,579 @@ void LAPACK_zhetrd_2stage( lapack_complex_double* tau, lapack_complex_double* HOUS2, lapack_int const* lhous2, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrd_2stage(...) LAPACK_zhetrd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhetrd_2stage(...) LAPACK_zhetrd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_chetrf LAPACK_GLOBAL(chetrf,CHETRF) -void LAPACK_chetrf( +#define LAPACK_chetrf_base LAPACK_GLOBAL(chetrf,CHETRF) +void LAPACK_chetrf_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrf(...) LAPACK_chetrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrf(...) LAPACK_chetrf_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrf LAPACK_GLOBAL(zhetrf,ZHETRF) -void LAPACK_zhetrf( +#define LAPACK_zhetrf_base LAPACK_GLOBAL(zhetrf,ZHETRF) +void LAPACK_zhetrf_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrf(...) LAPACK_zhetrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrf(...) LAPACK_zhetrf_base(__VA_ARGS__) +#endif -#define LAPACK_chetrf_aa LAPACK_GLOBAL(chetrf_aa,CHETRF_AA) -void LAPACK_chetrf_aa( +#define LAPACK_chetrf_aa_base LAPACK_GLOBAL(chetrf_aa,CHETRF_AA) +void LAPACK_chetrf_aa_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrf_aa(...) LAPACK_chetrf_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrf_aa(...) LAPACK_chetrf_aa_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrf_aa LAPACK_GLOBAL(zhetrf_aa,ZHETRF_AA) -void LAPACK_zhetrf_aa( +#define LAPACK_zhetrf_aa_base LAPACK_GLOBAL(zhetrf_aa,ZHETRF_AA) +void LAPACK_zhetrf_aa_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrf_aa(...) LAPACK_zhetrf_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrf_aa(...) LAPACK_zhetrf_aa_base(__VA_ARGS__) +#endif -#define LAPACK_chetrf_aa_2stage LAPACK_GLOBAL(chetrf_aa_2stage,CHETRF_AA_2STAGE) -void LAPACK_chetrf_aa_2stage( +#define LAPACK_chetrf_aa_2stage_base LAPACK_GLOBAL(chetrf_aa_2stage,CHETRF_AA_2STAGE) +void LAPACK_chetrf_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrf_aa_2stage(...) LAPACK_chetrf_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrf_aa_2stage(...) LAPACK_chetrf_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrf_aa_2stage LAPACK_GLOBAL(zhetrf_aa_2stage,ZHETRF_AA_2STAGE) -void LAPACK_zhetrf_aa_2stage( +#define LAPACK_zhetrf_aa_2stage_base LAPACK_GLOBAL(zhetrf_aa_2stage,ZHETRF_AA_2STAGE) +void LAPACK_zhetrf_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrf_aa_2stage(...) LAPACK_zhetrf_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrf_aa_2stage(...) LAPACK_zhetrf_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_chetrf_rk LAPACK_GLOBAL(chetrf_rk,CHETRF_RK) -void LAPACK_chetrf_rk( +#define LAPACK_chetrf_rk_base LAPACK_GLOBAL(chetrf_rk,CHETRF_RK) +void LAPACK_chetrf_rk_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* E, lapack_int* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrf_rk(...) LAPACK_chetrf_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrf_rk(...) LAPACK_chetrf_rk_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrf_rk LAPACK_GLOBAL(zhetrf_rk,ZHETRF_RK) -void LAPACK_zhetrf_rk( +#define LAPACK_zhetrf_rk_base LAPACK_GLOBAL(zhetrf_rk,ZHETRF_RK) +void LAPACK_zhetrf_rk_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* E, lapack_int* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrf_rk(...) LAPACK_zhetrf_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrf_rk(...) LAPACK_zhetrf_rk_base(__VA_ARGS__) +#endif -#define LAPACK_chetrf_rook LAPACK_GLOBAL(chetrf_rook,CHETRF_ROOK) -void LAPACK_chetrf_rook( +#define LAPACK_chetrf_rook_base LAPACK_GLOBAL(chetrf_rook,CHETRF_ROOK) +void LAPACK_chetrf_rook_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrf_rook(...) LAPACK_chetrf_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrf_rook(...) LAPACK_chetrf_rook_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrf_rook LAPACK_GLOBAL(zhetrf_rook,ZHETRF_ROOK) -void LAPACK_zhetrf_rook( +#define LAPACK_zhetrf_rook_base LAPACK_GLOBAL(zhetrf_rook,ZHETRF_ROOK) +void LAPACK_zhetrf_rook_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrf_rook(...) LAPACK_zhetrf_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrf_rook(...) LAPACK_zhetrf_rook_base(__VA_ARGS__) +#endif -#define LAPACK_chetri LAPACK_GLOBAL(chetri,CHETRI) -void LAPACK_chetri( +#define LAPACK_chetri_base LAPACK_GLOBAL(chetri,CHETRI) +void LAPACK_chetri_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetri(...) LAPACK_chetri_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetri(...) LAPACK_chetri_base(__VA_ARGS__) +#endif -#define LAPACK_zhetri LAPACK_GLOBAL(zhetri,ZHETRI) -void LAPACK_zhetri( +#define LAPACK_zhetri_base LAPACK_GLOBAL(zhetri,ZHETRI) +void LAPACK_zhetri_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetri(...) LAPACK_zhetri_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetri(...) LAPACK_zhetri_base(__VA_ARGS__) +#endif -#define LAPACK_chetri2 LAPACK_GLOBAL(chetri2,CHETRI2) -void LAPACK_chetri2( +#define LAPACK_chetri2_base LAPACK_GLOBAL(chetri2,CHETRI2) +void LAPACK_chetri2_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetri2(...) LAPACK_chetri2_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetri2(...) LAPACK_chetri2_base(__VA_ARGS__) +#endif -#define LAPACK_zhetri2 LAPACK_GLOBAL(zhetri2,ZHETRI2) -void LAPACK_zhetri2( +#define LAPACK_zhetri2_base LAPACK_GLOBAL(zhetri2,ZHETRI2) +void LAPACK_zhetri2_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetri2(...) LAPACK_zhetri2_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetri2(...) LAPACK_zhetri2_base(__VA_ARGS__) +#endif -#define LAPACK_chetri2x LAPACK_GLOBAL(chetri2x,CHETRI2X) -void LAPACK_chetri2x( +#define LAPACK_chetri2x_base LAPACK_GLOBAL(chetri2x,CHETRI2X) +void LAPACK_chetri2x_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* work, lapack_int const* nb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetri2x(...) LAPACK_chetri2x_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetri2x(...) LAPACK_chetri2x_base(__VA_ARGS__) +#endif -#define LAPACK_zhetri2x LAPACK_GLOBAL(zhetri2x,ZHETRI2X) -void LAPACK_zhetri2x( +#define LAPACK_zhetri2x_base LAPACK_GLOBAL(zhetri2x,ZHETRI2X) +void LAPACK_zhetri2x_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* work, lapack_int const* nb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetri2x(...) LAPACK_zhetri2x_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetri2x(...) LAPACK_zhetri2x_base(__VA_ARGS__) +#endif -#define LAPACK_chetri_3 LAPACK_GLOBAL(chetri_3,CHETRI_3) -void LAPACK_chetri_3( +#define LAPACK_chetri_3_base LAPACK_GLOBAL(chetri_3,CHETRI_3) +void LAPACK_chetri_3_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float const* E, lapack_int const* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetri_3(...) LAPACK_chetri_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetri_3(...) LAPACK_chetri_3_base(__VA_ARGS__) +#endif -#define LAPACK_zhetri_3 LAPACK_GLOBAL(zhetri_3,ZHETRI_3) -void LAPACK_zhetri_3( +#define LAPACK_zhetri_3_base LAPACK_GLOBAL(zhetri_3,ZHETRI_3) +void LAPACK_zhetri_3_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double const* E, lapack_int const* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetri_3(...) LAPACK_zhetri_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetri_3(...) LAPACK_zhetri_3_base(__VA_ARGS__) +#endif -#define LAPACK_chetrs LAPACK_GLOBAL(chetrs,CHETRS) -void LAPACK_chetrs( +#define LAPACK_chetrs_base LAPACK_GLOBAL(chetrs,CHETRS) +void LAPACK_chetrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrs(...) LAPACK_chetrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrs(...) LAPACK_chetrs_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrs LAPACK_GLOBAL(zhetrs,ZHETRS) -void LAPACK_zhetrs( +#define LAPACK_zhetrs_base LAPACK_GLOBAL(zhetrs,ZHETRS) +void LAPACK_zhetrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrs(...) LAPACK_zhetrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrs(...) LAPACK_zhetrs_base(__VA_ARGS__) +#endif -#define LAPACK_chetrs2 LAPACK_GLOBAL(chetrs2,CHETRS2) -void LAPACK_chetrs2( +#define LAPACK_chetrs2_base LAPACK_GLOBAL(chetrs2,CHETRS2) +void LAPACK_chetrs2_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrs2(...) LAPACK_chetrs2_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrs2(...) LAPACK_chetrs2_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrs2 LAPACK_GLOBAL(zhetrs2,ZHETRS2) -void LAPACK_zhetrs2( +#define LAPACK_zhetrs2_base LAPACK_GLOBAL(zhetrs2,ZHETRS2) +void LAPACK_zhetrs2_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrs2(...) LAPACK_zhetrs2_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrs2(...) LAPACK_zhetrs2_base(__VA_ARGS__) +#endif -#define LAPACK_chetrs_3 LAPACK_GLOBAL(chetrs_3,CHETRS_3) -void LAPACK_chetrs_3( +#define LAPACK_chetrs_3_base LAPACK_GLOBAL(chetrs_3,CHETRS_3) +void LAPACK_chetrs_3_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* E, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrs_3(...) LAPACK_chetrs_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrs_3(...) LAPACK_chetrs_3_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrs_3 LAPACK_GLOBAL(zhetrs_3,ZHETRS_3) -void LAPACK_zhetrs_3( +#define LAPACK_zhetrs_3_base LAPACK_GLOBAL(zhetrs_3,ZHETRS_3) +void LAPACK_zhetrs_3_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* E, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrs_3(...) LAPACK_zhetrs_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrs_3(...) LAPACK_zhetrs_3_base(__VA_ARGS__) +#endif -#define LAPACK_chetrs_aa LAPACK_GLOBAL(chetrs_aa,CHETRS_AA) -void LAPACK_chetrs_aa( +#define LAPACK_chetrs_aa_base LAPACK_GLOBAL(chetrs_aa,CHETRS_AA) +void LAPACK_chetrs_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrs_aa(...) LAPACK_chetrs_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrs_aa(...) LAPACK_chetrs_aa_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrs_aa LAPACK_GLOBAL(zhetrs_aa,ZHETRS_AA) -void LAPACK_zhetrs_aa( +#define LAPACK_zhetrs_aa_base LAPACK_GLOBAL(zhetrs_aa,ZHETRS_AA) +void LAPACK_zhetrs_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrs_aa(...) LAPACK_zhetrs_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrs_aa(...) LAPACK_zhetrs_aa_base(__VA_ARGS__) +#endif -#define LAPACK_chetrs_aa_2stage LAPACK_GLOBAL(chetrs_aa_2stage,CHETRS_AA_2STAGE) -void LAPACK_chetrs_aa_2stage( +#define LAPACK_chetrs_aa_2stage_base LAPACK_GLOBAL(chetrs_aa_2stage,CHETRS_AA_2STAGE) +void LAPACK_chetrs_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrs_aa_2stage(...) LAPACK_chetrs_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrs_aa_2stage(...) LAPACK_chetrs_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrs_aa_2stage LAPACK_GLOBAL(zhetrs_aa_2stage,ZHETRS_AA_2STAGE) -void LAPACK_zhetrs_aa_2stage( +#define LAPACK_zhetrs_aa_2stage_base LAPACK_GLOBAL(zhetrs_aa_2stage,ZHETRS_AA_2STAGE) +void LAPACK_zhetrs_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrs_aa_2stage(...) LAPACK_zhetrs_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrs_aa_2stage(...) LAPACK_zhetrs_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_chetrs_rook LAPACK_GLOBAL(chetrs_rook,CHETRS_ROOK) -void LAPACK_chetrs_rook( +#define LAPACK_chetrs_rook_base LAPACK_GLOBAL(chetrs_rook,CHETRS_ROOK) +void LAPACK_chetrs_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chetrs_rook(...) LAPACK_chetrs_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_chetrs_rook(...) LAPACK_chetrs_rook_base(__VA_ARGS__) +#endif -#define LAPACK_zhetrs_rook LAPACK_GLOBAL(zhetrs_rook,ZHETRS_ROOK) -void LAPACK_zhetrs_rook( +#define LAPACK_zhetrs_rook_base LAPACK_GLOBAL(zhetrs_rook,ZHETRS_ROOK) +void LAPACK_zhetrs_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhetrs_rook(...) LAPACK_zhetrs_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhetrs_rook(...) LAPACK_zhetrs_rook_base(__VA_ARGS__) +#endif -#define LAPACK_chfrk LAPACK_GLOBAL(chfrk,CHFRK) -void LAPACK_chfrk( +#define LAPACK_chfrk_base LAPACK_GLOBAL(chfrk,CHFRK) +void LAPACK_chfrk_base( char const* transr, char const* uplo, char const* trans, lapack_int const* n, lapack_int const* k, float const* alpha, lapack_complex_float const* A, lapack_int const* lda, float const* beta, - lapack_complex_float* C ); + lapack_complex_float* C +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chfrk(...) LAPACK_chfrk_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chfrk(...) LAPACK_chfrk_base(__VA_ARGS__) +#endif -#define LAPACK_zhfrk LAPACK_GLOBAL(zhfrk,ZHFRK) -void LAPACK_zhfrk( +#define LAPACK_zhfrk_base LAPACK_GLOBAL(zhfrk,ZHFRK) +void LAPACK_zhfrk_base( char const* transr, char const* uplo, char const* trans, lapack_int const* n, lapack_int const* k, double const* alpha, lapack_complex_double const* A, lapack_int const* lda, double const* beta, - lapack_complex_double* C ); + lapack_complex_double* C +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhfrk(...) LAPACK_zhfrk_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhfrk(...) LAPACK_zhfrk_base(__VA_ARGS__) +#endif -#define LAPACK_chgeqz LAPACK_GLOBAL(chgeqz,CHGEQZ) -void LAPACK_chgeqz( +#define LAPACK_chgeqz_base LAPACK_GLOBAL(chgeqz,CHGEQZ) +void LAPACK_chgeqz_base( char const* job, char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_float* H, lapack_int const* ldh, @@ -5485,10 +8345,19 @@ void LAPACK_chgeqz( lapack_complex_float* Z, lapack_int const* ldz, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chgeqz(...) LAPACK_chgeqz_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chgeqz(...) LAPACK_chgeqz_base(__VA_ARGS__) +#endif -#define LAPACK_dhgeqz LAPACK_GLOBAL(dhgeqz,DHGEQZ) -void LAPACK_dhgeqz( +#define LAPACK_dhgeqz_base LAPACK_GLOBAL(dhgeqz,DHGEQZ) +void LAPACK_dhgeqz_base( char const* job, char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, double* H, lapack_int const* ldh, @@ -5499,10 +8368,19 @@ void LAPACK_dhgeqz( double* Q, lapack_int const* ldq, double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dhgeqz(...) LAPACK_dhgeqz_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dhgeqz(...) LAPACK_dhgeqz_base(__VA_ARGS__) +#endif -#define LAPACK_shgeqz LAPACK_GLOBAL(shgeqz,SHGEQZ) -void LAPACK_shgeqz( +#define LAPACK_shgeqz_base LAPACK_GLOBAL(shgeqz,SHGEQZ) +void LAPACK_shgeqz_base( char const* job, char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, float* H, lapack_int const* ldh, @@ -5513,10 +8391,19 @@ void LAPACK_shgeqz( float* Q, lapack_int const* ldq, float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_shgeqz(...) LAPACK_shgeqz_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_shgeqz(...) LAPACK_shgeqz_base(__VA_ARGS__) +#endif -#define LAPACK_zhgeqz LAPACK_GLOBAL(zhgeqz,ZHGEQZ) -void LAPACK_zhgeqz( +#define LAPACK_zhgeqz_base LAPACK_GLOBAL(zhgeqz,ZHGEQZ) +void LAPACK_zhgeqz_base( char const* job, char const* compq, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_double* H, lapack_int const* ldh, @@ -5527,30 +8414,57 @@ void LAPACK_zhgeqz( lapack_complex_double* Z, lapack_int const* ldz, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhgeqz(...) LAPACK_zhgeqz_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhgeqz(...) LAPACK_zhgeqz_base(__VA_ARGS__) +#endif -#define LAPACK_chpcon LAPACK_GLOBAL(chpcon,CHPCON) -void LAPACK_chpcon( +#define LAPACK_chpcon_base LAPACK_GLOBAL(chpcon,CHPCON) +void LAPACK_chpcon_base( char const* uplo, lapack_int const* n, lapack_complex_float const* AP, lapack_int const* ipiv, float const* anorm, float* rcond, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpcon(...) LAPACK_chpcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_chpcon(...) LAPACK_chpcon_base(__VA_ARGS__) +#endif -#define LAPACK_zhpcon LAPACK_GLOBAL(zhpcon,ZHPCON) -void LAPACK_zhpcon( +#define LAPACK_zhpcon_base LAPACK_GLOBAL(zhpcon,ZHPCON) +void LAPACK_zhpcon_base( char const* uplo, lapack_int const* n, lapack_complex_double const* AP, lapack_int const* ipiv, double const* anorm, double* rcond, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpcon(...) LAPACK_zhpcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhpcon(...) LAPACK_zhpcon_base(__VA_ARGS__) +#endif -#define LAPACK_chpev LAPACK_GLOBAL(chpev,CHPEV) -void LAPACK_chpev( +#define LAPACK_chpev_base LAPACK_GLOBAL(chpev,CHPEV) +void LAPACK_chpev_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* AP, @@ -5558,10 +8472,19 @@ void LAPACK_chpev( lapack_complex_float* Z, lapack_int const* ldz, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpev(...) LAPACK_chpev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chpev(...) LAPACK_chpev_base(__VA_ARGS__) +#endif -#define LAPACK_zhpev LAPACK_GLOBAL(zhpev,ZHPEV) -void LAPACK_zhpev( +#define LAPACK_zhpev_base LAPACK_GLOBAL(zhpev,ZHPEV) +void LAPACK_zhpev_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* AP, @@ -5569,10 +8492,19 @@ void LAPACK_zhpev( lapack_complex_double* Z, lapack_int const* ldz, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpev(...) LAPACK_zhpev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhpev(...) LAPACK_zhpev_base(__VA_ARGS__) +#endif -#define LAPACK_chpevd LAPACK_GLOBAL(chpevd,CHPEVD) -void LAPACK_chpevd( +#define LAPACK_chpevd_base LAPACK_GLOBAL(chpevd,CHPEVD) +void LAPACK_chpevd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* AP, @@ -5581,10 +8513,19 @@ void LAPACK_chpevd( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpevd(...) LAPACK_chpevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chpevd(...) LAPACK_chpevd_base(__VA_ARGS__) +#endif -#define LAPACK_zhpevd LAPACK_GLOBAL(zhpevd,ZHPEVD) -void LAPACK_zhpevd( +#define LAPACK_zhpevd_base LAPACK_GLOBAL(zhpevd,ZHPEVD) +void LAPACK_zhpevd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* AP, @@ -5593,10 +8534,19 @@ void LAPACK_zhpevd( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpevd(...) LAPACK_zhpevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhpevd(...) LAPACK_zhpevd_base(__VA_ARGS__) +#endif -#define LAPACK_chpevx LAPACK_GLOBAL(chpevx,CHPEVX) -void LAPACK_chpevx( +#define LAPACK_chpevx_base LAPACK_GLOBAL(chpevx,CHPEVX) +void LAPACK_chpevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_float* AP, @@ -5608,10 +8558,19 @@ void LAPACK_chpevx( lapack_complex_float* work, float* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpevx(...) LAPACK_chpevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chpevx(...) LAPACK_chpevx_base(__VA_ARGS__) +#endif -#define LAPACK_zhpevx LAPACK_GLOBAL(zhpevx,ZHPEVX) -void LAPACK_zhpevx( +#define LAPACK_zhpevx_base LAPACK_GLOBAL(zhpevx,ZHPEVX) +void LAPACK_zhpevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_double* AP, @@ -5623,26 +8582,53 @@ void LAPACK_zhpevx( lapack_complex_double* work, double* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpevx(...) LAPACK_zhpevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhpevx(...) LAPACK_zhpevx_base(__VA_ARGS__) +#endif -#define LAPACK_chpgst LAPACK_GLOBAL(chpgst,CHPGST) -void LAPACK_chpgst( +#define LAPACK_chpgst_base LAPACK_GLOBAL(chpgst,CHPGST) +void LAPACK_chpgst_base( lapack_int const* itype, char const* uplo, lapack_int const* n, lapack_complex_float* AP, lapack_complex_float const* BP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpgst(...) LAPACK_chpgst_base(__VA_ARGS__, 1) +#else + #define LAPACK_chpgst(...) LAPACK_chpgst_base(__VA_ARGS__) +#endif -#define LAPACK_zhpgst LAPACK_GLOBAL(zhpgst,ZHPGST) -void LAPACK_zhpgst( +#define LAPACK_zhpgst_base LAPACK_GLOBAL(zhpgst,ZHPGST) +void LAPACK_zhpgst_base( lapack_int const* itype, char const* uplo, lapack_int const* n, lapack_complex_double* AP, lapack_complex_double const* BP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpgst(...) LAPACK_zhpgst_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhpgst(...) LAPACK_zhpgst_base(__VA_ARGS__) +#endif -#define LAPACK_chpgv LAPACK_GLOBAL(chpgv,CHPGV) -void LAPACK_chpgv( +#define LAPACK_chpgv_base LAPACK_GLOBAL(chpgv,CHPGV) +void LAPACK_chpgv_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* AP, @@ -5651,10 +8637,19 @@ void LAPACK_chpgv( lapack_complex_float* Z, lapack_int const* ldz, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpgv(...) LAPACK_chpgv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chpgv(...) LAPACK_chpgv_base(__VA_ARGS__) +#endif -#define LAPACK_zhpgv LAPACK_GLOBAL(zhpgv,ZHPGV) -void LAPACK_zhpgv( +#define LAPACK_zhpgv_base LAPACK_GLOBAL(zhpgv,ZHPGV) +void LAPACK_zhpgv_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* AP, @@ -5663,10 +8658,19 @@ void LAPACK_zhpgv( lapack_complex_double* Z, lapack_int const* ldz, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpgv(...) LAPACK_zhpgv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhpgv(...) LAPACK_zhpgv_base(__VA_ARGS__) +#endif -#define LAPACK_chpgvd LAPACK_GLOBAL(chpgvd,CHPGVD) -void LAPACK_chpgvd( +#define LAPACK_chpgvd_base LAPACK_GLOBAL(chpgvd,CHPGVD) +void LAPACK_chpgvd_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_float* AP, @@ -5676,10 +8680,19 @@ void LAPACK_chpgvd( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpgvd(...) LAPACK_chpgvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chpgvd(...) LAPACK_chpgvd_base(__VA_ARGS__) +#endif -#define LAPACK_zhpgvd LAPACK_GLOBAL(zhpgvd,ZHPGVD) -void LAPACK_zhpgvd( +#define LAPACK_zhpgvd_base LAPACK_GLOBAL(zhpgvd,ZHPGVD) +void LAPACK_zhpgvd_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, lapack_complex_double* AP, @@ -5689,10 +8702,19 @@ void LAPACK_zhpgvd( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpgvd(...) LAPACK_zhpgvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhpgvd(...) LAPACK_zhpgvd_base(__VA_ARGS__) +#endif -#define LAPACK_chpgvx LAPACK_GLOBAL(chpgvx,CHPGVX) -void LAPACK_chpgvx( +#define LAPACK_chpgvx_base LAPACK_GLOBAL(chpgvx,CHPGVX) +void LAPACK_chpgvx_base( lapack_int const* itype, char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_float* AP, @@ -5705,10 +8727,19 @@ void LAPACK_chpgvx( lapack_complex_float* work, float* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpgvx(...) LAPACK_chpgvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chpgvx(...) LAPACK_chpgvx_base(__VA_ARGS__) +#endif -#define LAPACK_zhpgvx LAPACK_GLOBAL(zhpgvx,ZHPGVX) -void LAPACK_zhpgvx( +#define LAPACK_zhpgvx_base LAPACK_GLOBAL(zhpgvx,ZHPGVX) +void LAPACK_zhpgvx_base( lapack_int const* itype, char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_complex_double* AP, @@ -5721,10 +8752,19 @@ void LAPACK_zhpgvx( lapack_complex_double* work, double* rwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpgvx(...) LAPACK_zhpgvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhpgvx(...) LAPACK_zhpgvx_base(__VA_ARGS__) +#endif -#define LAPACK_chprfs LAPACK_GLOBAL(chprfs,CHPRFS) -void LAPACK_chprfs( +#define LAPACK_chprfs_base LAPACK_GLOBAL(chprfs,CHPRFS) +void LAPACK_chprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, @@ -5735,10 +8775,19 @@ void LAPACK_chprfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chprfs(...) LAPACK_chprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_chprfs(...) LAPACK_chprfs_base(__VA_ARGS__) +#endif -#define LAPACK_zhprfs LAPACK_GLOBAL(zhprfs,ZHPRFS) -void LAPACK_zhprfs( +#define LAPACK_zhprfs_base LAPACK_GLOBAL(zhprfs,ZHPRFS) +void LAPACK_zhprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, @@ -5749,26 +8798,53 @@ void LAPACK_zhprfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhprfs(...) LAPACK_zhprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhprfs(...) LAPACK_zhprfs_base(__VA_ARGS__) +#endif -#define LAPACK_chpsv LAPACK_GLOBAL(chpsv,CHPSV) -void LAPACK_chpsv( +#define LAPACK_chpsv_base LAPACK_GLOBAL(chpsv,CHPSV) +void LAPACK_chpsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* AP, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpsv(...) LAPACK_chpsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_chpsv(...) LAPACK_chpsv_base(__VA_ARGS__) +#endif -#define LAPACK_zhpsv LAPACK_GLOBAL(zhpsv,ZHPSV) -void LAPACK_zhpsv( +#define LAPACK_zhpsv_base LAPACK_GLOBAL(zhpsv,ZHPSV) +void LAPACK_zhpsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* AP, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpsv(...) LAPACK_zhpsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhpsv(...) LAPACK_zhpsv_base(__VA_ARGS__) +#endif -#define LAPACK_chpsvx LAPACK_GLOBAL(chpsvx,CHPSVX) -void LAPACK_chpsvx( +#define LAPACK_chpsvx_base LAPACK_GLOBAL(chpsvx,CHPSVX) +void LAPACK_chpsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, @@ -5780,10 +8856,19 @@ void LAPACK_chpsvx( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chpsvx(...) LAPACK_chpsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chpsvx(...) LAPACK_chpsvx_base(__VA_ARGS__) +#endif -#define LAPACK_zhpsvx LAPACK_GLOBAL(zhpsvx,ZHPSVX) -void LAPACK_zhpsvx( +#define LAPACK_zhpsvx_base LAPACK_GLOBAL(zhpsvx,ZHPSVX) +void LAPACK_zhpsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, @@ -5795,76 +8880,157 @@ void LAPACK_zhpsvx( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhpsvx(...) LAPACK_zhpsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhpsvx(...) LAPACK_zhpsvx_base(__VA_ARGS__) +#endif -#define LAPACK_chptrd LAPACK_GLOBAL(chptrd,CHPTRD) -void LAPACK_chptrd( +#define LAPACK_chptrd_base LAPACK_GLOBAL(chptrd,CHPTRD) +void LAPACK_chptrd_base( char const* uplo, lapack_int const* n, lapack_complex_float* AP, float* D, float* E, lapack_complex_float* tau, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chptrd(...) LAPACK_chptrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_chptrd(...) LAPACK_chptrd_base(__VA_ARGS__) +#endif -#define LAPACK_zhptrd LAPACK_GLOBAL(zhptrd,ZHPTRD) -void LAPACK_zhptrd( +#define LAPACK_zhptrd_base LAPACK_GLOBAL(zhptrd,ZHPTRD) +void LAPACK_zhptrd_base( char const* uplo, lapack_int const* n, lapack_complex_double* AP, double* D, double* E, lapack_complex_double* tau, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhptrd(...) LAPACK_zhptrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhptrd(...) LAPACK_zhptrd_base(__VA_ARGS__) +#endif -#define LAPACK_chptrf LAPACK_GLOBAL(chptrf,CHPTRF) -void LAPACK_chptrf( +#define LAPACK_chptrf_base LAPACK_GLOBAL(chptrf,CHPTRF) +void LAPACK_chptrf_base( char const* uplo, lapack_int const* n, lapack_complex_float* AP, lapack_int* ipiv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chptrf(...) LAPACK_chptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_chptrf(...) LAPACK_chptrf_base(__VA_ARGS__) +#endif -#define LAPACK_zhptrf LAPACK_GLOBAL(zhptrf,ZHPTRF) -void LAPACK_zhptrf( +#define LAPACK_zhptrf_base LAPACK_GLOBAL(zhptrf,ZHPTRF) +void LAPACK_zhptrf_base( char const* uplo, lapack_int const* n, lapack_complex_double* AP, lapack_int* ipiv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhptrf(...) LAPACK_zhptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhptrf(...) LAPACK_zhptrf_base(__VA_ARGS__) +#endif -#define LAPACK_chptri LAPACK_GLOBAL(chptri,CHPTRI) -void LAPACK_chptri( +#define LAPACK_chptri_base LAPACK_GLOBAL(chptri,CHPTRI) +void LAPACK_chptri_base( char const* uplo, lapack_int const* n, lapack_complex_float* AP, lapack_int const* ipiv, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chptri(...) LAPACK_chptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_chptri(...) LAPACK_chptri_base(__VA_ARGS__) +#endif -#define LAPACK_zhptri LAPACK_GLOBAL(zhptri,ZHPTRI) -void LAPACK_zhptri( +#define LAPACK_zhptri_base LAPACK_GLOBAL(zhptri,ZHPTRI) +void LAPACK_zhptri_base( char const* uplo, lapack_int const* n, lapack_complex_double* AP, lapack_int const* ipiv, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhptri(...) LAPACK_zhptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhptri(...) LAPACK_zhptri_base(__VA_ARGS__) +#endif -#define LAPACK_chptrs LAPACK_GLOBAL(chptrs,CHPTRS) -void LAPACK_chptrs( +#define LAPACK_chptrs_base LAPACK_GLOBAL(chptrs,CHPTRS) +void LAPACK_chptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chptrs(...) LAPACK_chptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_chptrs(...) LAPACK_chptrs_base(__VA_ARGS__) +#endif -#define LAPACK_zhptrs LAPACK_GLOBAL(zhptrs,ZHPTRS) -void LAPACK_zhptrs( +#define LAPACK_zhptrs_base LAPACK_GLOBAL(zhptrs,ZHPTRS) +void LAPACK_zhptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhptrs(...) LAPACK_zhptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zhptrs(...) LAPACK_zhptrs_base(__VA_ARGS__) +#endif -#define LAPACK_chsein LAPACK_GLOBAL(chsein,CHSEIN) -void LAPACK_chsein( +#define LAPACK_chsein_base LAPACK_GLOBAL(chsein,CHSEIN) +void LAPACK_chsein_base( char const* side, char const* eigsrc, char const* initv, lapack_logical const* select, lapack_int const* n, @@ -5874,10 +9040,19 @@ void LAPACK_chsein( lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, lapack_complex_float* work, float* rwork, lapack_int* IFAILL, lapack_int* IFAILR, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chsein(...) LAPACK_chsein_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_chsein(...) LAPACK_chsein_base(__VA_ARGS__) +#endif -#define LAPACK_dhsein LAPACK_GLOBAL(dhsein,DHSEIN) -void LAPACK_dhsein( +#define LAPACK_dhsein_base LAPACK_GLOBAL(dhsein,DHSEIN) +void LAPACK_dhsein_base( char const* side, char const* eigsrc, char const* initv, lapack_logical* select, lapack_int const* n, @@ -5887,10 +9062,19 @@ void LAPACK_dhsein( double* VL, lapack_int const* ldvl, double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, double* work, lapack_int* IFAILL, lapack_int* IFAILR, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dhsein(...) LAPACK_dhsein_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dhsein(...) LAPACK_dhsein_base(__VA_ARGS__) +#endif -#define LAPACK_shsein LAPACK_GLOBAL(shsein,SHSEIN) -void LAPACK_shsein( +#define LAPACK_shsein_base LAPACK_GLOBAL(shsein,SHSEIN) +void LAPACK_shsein_base( char const* side, char const* eigsrc, char const* initv, lapack_logical* select, lapack_int const* n, @@ -5900,10 +9084,19 @@ void LAPACK_shsein( float* VL, lapack_int const* ldvl, float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, float* work, lapack_int* IFAILL, lapack_int* IFAILR, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_shsein(...) LAPACK_shsein_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_shsein(...) LAPACK_shsein_base(__VA_ARGS__) +#endif -#define LAPACK_zhsein LAPACK_GLOBAL(zhsein,ZHSEIN) -void LAPACK_zhsein( +#define LAPACK_zhsein_base LAPACK_GLOBAL(zhsein,ZHSEIN) +void LAPACK_zhsein_base( char const* side, char const* eigsrc, char const* initv, lapack_logical const* select, lapack_int const* n, @@ -5913,20 +9106,38 @@ void LAPACK_zhsein( lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, lapack_complex_double* work, double* rwork, lapack_int* IFAILL, lapack_int* IFAILR, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhsein(...) LAPACK_zhsein_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zhsein(...) LAPACK_zhsein_base(__VA_ARGS__) +#endif -#define LAPACK_chseqr LAPACK_GLOBAL(chseqr,CHSEQR) -void LAPACK_chseqr( +#define LAPACK_chseqr_base LAPACK_GLOBAL(chseqr,CHSEQR) +void LAPACK_chseqr_base( char const* job, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_float* H, lapack_int const* ldh, lapack_complex_float* W, lapack_complex_float* Z, lapack_int const* ldz, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_chseqr(...) LAPACK_chseqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_chseqr(...) LAPACK_chseqr_base(__VA_ARGS__) +#endif -#define LAPACK_dhseqr LAPACK_GLOBAL(dhseqr,DHSEQR) -void LAPACK_dhseqr( +#define LAPACK_dhseqr_base LAPACK_GLOBAL(dhseqr,DHSEQR) +void LAPACK_dhseqr_base( char const* job, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, double* H, lapack_int const* ldh, @@ -5934,10 +9145,19 @@ void LAPACK_dhseqr( double* WI, double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dhseqr(...) LAPACK_dhseqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dhseqr(...) LAPACK_dhseqr_base(__VA_ARGS__) +#endif -#define LAPACK_shseqr LAPACK_GLOBAL(shseqr,SHSEQR) -void LAPACK_shseqr( +#define LAPACK_shseqr_base LAPACK_GLOBAL(shseqr,SHSEQR) +void LAPACK_shseqr_base( char const* job, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, float* H, lapack_int const* ldh, @@ -5945,17 +9165,35 @@ void LAPACK_shseqr( float* WI, float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_shseqr(...) LAPACK_shseqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_shseqr(...) LAPACK_shseqr_base(__VA_ARGS__) +#endif -#define LAPACK_zhseqr LAPACK_GLOBAL(zhseqr,ZHSEQR) -void LAPACK_zhseqr( +#define LAPACK_zhseqr_base LAPACK_GLOBAL(zhseqr,ZHSEQR) +void LAPACK_zhseqr_base( char const* job, char const* compz, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_double* H, lapack_int const* ldh, lapack_complex_double* W, lapack_complex_double* Z, lapack_int const* ldz, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zhseqr(...) LAPACK_zhseqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zhseqr(...) LAPACK_zhseqr_base(__VA_ARGS__) +#endif #define LAPACK_clacgv LAPACK_GLOBAL(clacgv,CLACGV) void LAPACK_clacgv( @@ -5995,47 +9233,101 @@ void LAPACK_zlacn2( lapack_complex_double* X, double* est, lapack_int* kase, lapack_int* ISAVE ); -#define LAPACK_clacp2 LAPACK_GLOBAL(clacp2,CLACP2) -void LAPACK_clacp2( +#define LAPACK_clacp2_base LAPACK_GLOBAL(clacp2,CLACP2) +void LAPACK_clacp2_base( char const* uplo, lapack_int const* m, lapack_int const* n, float const* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb ); + lapack_complex_float* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clacp2(...) LAPACK_clacp2_base(__VA_ARGS__, 1) +#else + #define LAPACK_clacp2(...) LAPACK_clacp2_base(__VA_ARGS__) +#endif -#define LAPACK_zlacp2 LAPACK_GLOBAL(zlacp2,ZLACP2) -void LAPACK_zlacp2( +#define LAPACK_zlacp2_base LAPACK_GLOBAL(zlacp2,ZLACP2) +void LAPACK_zlacp2_base( char const* uplo, lapack_int const* m, lapack_int const* n, double const* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb ); + lapack_complex_double* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlacp2(...) LAPACK_zlacp2_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlacp2(...) LAPACK_zlacp2_base(__VA_ARGS__) +#endif -#define LAPACK_clacpy LAPACK_GLOBAL(clacpy,CLACPY) -void LAPACK_clacpy( +#define LAPACK_clacpy_base LAPACK_GLOBAL(clacpy,CLACPY) +void LAPACK_clacpy_base( char const* uplo, lapack_int const* m, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb ); + lapack_complex_float* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clacpy(...) LAPACK_clacpy_base(__VA_ARGS__, 1) +#else + #define LAPACK_clacpy(...) LAPACK_clacpy_base(__VA_ARGS__) +#endif -#define LAPACK_dlacpy LAPACK_GLOBAL(dlacpy,DLACPY) -void LAPACK_dlacpy( +#define LAPACK_dlacpy_base LAPACK_GLOBAL(dlacpy,DLACPY) +void LAPACK_dlacpy_base( char const* uplo, lapack_int const* m, lapack_int const* n, double const* A, lapack_int const* lda, - double* B, lapack_int const* ldb ); + double* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlacpy(...) LAPACK_dlacpy_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlacpy(...) LAPACK_dlacpy_base(__VA_ARGS__) +#endif -#define LAPACK_slacpy LAPACK_GLOBAL(slacpy,SLACPY) -void LAPACK_slacpy( +#define LAPACK_slacpy_base LAPACK_GLOBAL(slacpy,SLACPY) +void LAPACK_slacpy_base( char const* uplo, lapack_int const* m, lapack_int const* n, float const* A, lapack_int const* lda, - float* B, lapack_int const* ldb ); + float* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slacpy(...) LAPACK_slacpy_base(__VA_ARGS__, 1) +#else + #define LAPACK_slacpy(...) LAPACK_slacpy_base(__VA_ARGS__) +#endif -#define LAPACK_zlacpy LAPACK_GLOBAL(zlacpy,ZLACPY) -void LAPACK_zlacpy( +#define LAPACK_zlacpy_base LAPACK_GLOBAL(zlacpy,ZLACPY) +void LAPACK_zlacpy_base( char const* uplo, lapack_int const* m, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb ); + lapack_complex_double* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlacpy(...) LAPACK_zlacpy_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlacpy(...) LAPACK_zlacpy_base(__VA_ARGS__) +#endif #define LAPACK_clacrm LAPACK_GLOBAL(clacrm,CLACRM) void LAPACK_clacrm( @@ -6161,367 +9453,835 @@ void LAPACK_zlagsy( lapack_complex_double* work, lapack_int* info ); -#define LAPACK_dlamch LAPACK_GLOBAL(dlamch,DLAMCH) -double LAPACK_dlamch( - char const* cmach ); +#define LAPACK_dlamch_base LAPACK_GLOBAL(dlamch,DLAMCH) +double LAPACK_dlamch_base( + char const* cmach +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlamch(...) LAPACK_dlamch_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlamch(...) LAPACK_dlamch_base(__VA_ARGS__) +#endif -#define LAPACK_slamch LAPACK_GLOBAL(slamch,SLAMCH) -lapack_float_return LAPACK_slamch( - char const* cmach ); +#define LAPACK_slamch_base LAPACK_GLOBAL(slamch,SLAMCH) +lapack_float_return LAPACK_slamch_base( + char const* cmach +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slamch(...) LAPACK_slamch_base(__VA_ARGS__, 1) +#else + #define LAPACK_slamch(...) LAPACK_slamch_base(__VA_ARGS__) +#endif -#define LAPACK_clangb LAPACK_GLOBAL(clangb,CLANGB) -lapack_float_return LAPACK_clangb( +#define LAPACK_clangb_base LAPACK_GLOBAL(clangb,CLANGB) +lapack_float_return LAPACK_clangb_base( char const* norm, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_complex_float const* AB, lapack_int const* ldab, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clangb(...) LAPACK_clangb_base(__VA_ARGS__, 1) +#else + #define LAPACK_clangb(...) LAPACK_clangb_base(__VA_ARGS__) +#endif -#define LAPACK_dlangb LAPACK_GLOBAL(dlangb,DLANGB) -double LAPACK_dlangb( +#define LAPACK_dlangb_base LAPACK_GLOBAL(dlangb,DLANGB) +double LAPACK_dlangb_base( char const* norm, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, double const* AB, lapack_int const* ldab, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlangb(...) LAPACK_dlangb_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlangb(...) LAPACK_dlangb_base(__VA_ARGS__) +#endif -#define LAPACK_slangb LAPACK_GLOBAL(slangb,SLANGB) -lapack_float_return LAPACK_slangb( +#define LAPACK_slangb_base LAPACK_GLOBAL(slangb,SLANGB) +lapack_float_return LAPACK_slangb_base( char const* norm, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, float const* AB, lapack_int const* ldab, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slangb(...) LAPACK_slangb_base(__VA_ARGS__, 1) +#else + #define LAPACK_slangb(...) LAPACK_slangb_base(__VA_ARGS__) +#endif -#define LAPACK_zlangb LAPACK_GLOBAL(zlangb,ZLANGB) -double LAPACK_zlangb( +#define LAPACK_zlangb_base LAPACK_GLOBAL(zlangb,ZLANGB) +double LAPACK_zlangb_base( char const* norm, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_complex_double const* AB, lapack_int const* ldab, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlangb(...) LAPACK_zlangb_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlangb(...) LAPACK_zlangb_base(__VA_ARGS__) +#endif -#define LAPACK_clange LAPACK_GLOBAL(clange,CLANGE) -lapack_float_return LAPACK_clange( +#define LAPACK_clange_base LAPACK_GLOBAL(clange,CLANGE) +lapack_float_return LAPACK_clange_base( char const* norm, lapack_int const* m, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clange(...) LAPACK_clange_base(__VA_ARGS__, 1) +#else + #define LAPACK_clange(...) LAPACK_clange_base(__VA_ARGS__) +#endif -#define LAPACK_dlange LAPACK_GLOBAL(dlange,DLANGE) -double LAPACK_dlange( +#define LAPACK_dlange_base LAPACK_GLOBAL(dlange,DLANGE) +double LAPACK_dlange_base( char const* norm, lapack_int const* m, lapack_int const* n, double const* A, lapack_int const* lda, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlange(...) LAPACK_dlange_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlange(...) LAPACK_dlange_base(__VA_ARGS__) +#endif -#define LAPACK_slange LAPACK_GLOBAL(slange,SLANGE) -lapack_float_return LAPACK_slange( +#define LAPACK_slange_base LAPACK_GLOBAL(slange,SLANGE) +lapack_float_return LAPACK_slange_base( char const* norm, lapack_int const* m, lapack_int const* n, float const* A, lapack_int const* lda, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slange(...) LAPACK_slange_base(__VA_ARGS__, 1) +#else + #define LAPACK_slange(...) LAPACK_slange_base(__VA_ARGS__) +#endif -#define LAPACK_zlange LAPACK_GLOBAL(zlange,ZLANGE) -double LAPACK_zlange( +#define LAPACK_zlange_base LAPACK_GLOBAL(zlange,ZLANGE) +double LAPACK_zlange_base( char const* norm, lapack_int const* m, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlange(...) LAPACK_zlange_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlange(...) LAPACK_zlange_base(__VA_ARGS__) +#endif -#define LAPACK_clangt LAPACK_GLOBAL(clangt,CLANGT) -lapack_float_return LAPACK_clangt( +#define LAPACK_clangt_base LAPACK_GLOBAL(clangt,CLANGT) +lapack_float_return LAPACK_clangt_base( char const* norm, lapack_int const* n, lapack_complex_float const* DL, lapack_complex_float const* D, - lapack_complex_float const* DU ); + lapack_complex_float const* DU +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clangt(...) LAPACK_clangt_base(__VA_ARGS__, 1) +#else + #define LAPACK_clangt(...) LAPACK_clangt_base(__VA_ARGS__) +#endif -#define LAPACK_dlangt LAPACK_GLOBAL(dlangt,DLANGT) -double LAPACK_dlangt( +#define LAPACK_dlangt_base LAPACK_GLOBAL(dlangt,DLANGT) +double LAPACK_dlangt_base( char const* norm, lapack_int const* n, double const* DL, double const* D, - double const* DU ); + double const* DU +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlangt(...) LAPACK_dlangt_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlangt(...) LAPACK_dlangt_base(__VA_ARGS__) +#endif -#define LAPACK_slangt LAPACK_GLOBAL(slangt,SLANGT) -lapack_float_return LAPACK_slangt( +#define LAPACK_slangt_base LAPACK_GLOBAL(slangt,SLANGT) +lapack_float_return LAPACK_slangt_base( char const* norm, lapack_int const* n, float const* DL, float const* D, - float const* DU ); + float const* DU +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slangt(...) LAPACK_slangt_base(__VA_ARGS__, 1) +#else + #define LAPACK_slangt(...) LAPACK_slangt_base(__VA_ARGS__) +#endif -#define LAPACK_zlangt LAPACK_GLOBAL(zlangt,ZLANGT) -double LAPACK_zlangt( +#define LAPACK_zlangt_base LAPACK_GLOBAL(zlangt,ZLANGT) +double LAPACK_zlangt_base( char const* norm, lapack_int const* n, lapack_complex_double const* DL, lapack_complex_double const* D, - lapack_complex_double const* DU ); + lapack_complex_double const* DU +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlangt(...) LAPACK_zlangt_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlangt(...) LAPACK_zlangt_base(__VA_ARGS__) +#endif -#define LAPACK_clanhb LAPACK_GLOBAL(clanhb,CLANHB) -lapack_float_return LAPACK_clanhb( +#define LAPACK_clanhb_base LAPACK_GLOBAL(clanhb,CLANHB) +lapack_float_return LAPACK_clanhb_base( char const* norm, char const* uplo, lapack_int const* n, lapack_int const* k, lapack_complex_float const* AB, lapack_int const* ldab, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clanhb(...) LAPACK_clanhb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_clanhb(...) LAPACK_clanhb_base(__VA_ARGS__) +#endif -#define LAPACK_zlanhb LAPACK_GLOBAL(zlanhb,ZLANHB) -double LAPACK_zlanhb( +#define LAPACK_zlanhb_base LAPACK_GLOBAL(zlanhb,ZLANHB) +double LAPACK_zlanhb_base( char const* norm, char const* uplo, lapack_int const* n, lapack_int const* k, lapack_complex_double const* AB, lapack_int const* ldab, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlanhb(...) LAPACK_zlanhb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zlanhb(...) LAPACK_zlanhb_base(__VA_ARGS__) +#endif -#define LAPACK_clanhe LAPACK_GLOBAL(clanhe,CLANHE) -lapack_float_return LAPACK_clanhe( +#define LAPACK_clanhe_base LAPACK_GLOBAL(clanhe,CLANHE) +lapack_float_return LAPACK_clanhe_base( char const* norm, char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clanhe(...) LAPACK_clanhe_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_clanhe(...) LAPACK_clanhe_base(__VA_ARGS__) +#endif -#define LAPACK_zlanhe LAPACK_GLOBAL(zlanhe,ZLANHE) -double LAPACK_zlanhe( +#define LAPACK_zlanhe_base LAPACK_GLOBAL(zlanhe,ZLANHE) +double LAPACK_zlanhe_base( char const* norm, char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlanhe(...) LAPACK_zlanhe_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zlanhe(...) LAPACK_zlanhe_base(__VA_ARGS__) +#endif -#define LAPACK_clanhp LAPACK_GLOBAL(clanhp,CLANHP) -lapack_float_return LAPACK_clanhp( +#define LAPACK_clanhp_base LAPACK_GLOBAL(clanhp,CLANHP) +lapack_float_return LAPACK_clanhp_base( char const* norm, char const* uplo, lapack_int const* n, lapack_complex_float const* AP, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clanhp(...) LAPACK_clanhp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_clanhp(...) LAPACK_clanhp_base(__VA_ARGS__) +#endif -#define LAPACK_zlanhp LAPACK_GLOBAL(zlanhp,ZLANHP) -double LAPACK_zlanhp( +#define LAPACK_zlanhp_base LAPACK_GLOBAL(zlanhp,ZLANHP) +double LAPACK_zlanhp_base( char const* norm, char const* uplo, lapack_int const* n, lapack_complex_double const* AP, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlanhp(...) LAPACK_zlanhp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zlanhp(...) LAPACK_zlanhp_base(__VA_ARGS__) +#endif -#define LAPACK_clanhs LAPACK_GLOBAL(clanhs,CLANHS) -lapack_float_return LAPACK_clanhs( +#define LAPACK_clanhs_base LAPACK_GLOBAL(clanhs,CLANHS) +lapack_float_return LAPACK_clanhs_base( char const* norm, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clanhs(...) LAPACK_clanhs_base(__VA_ARGS__, 1) +#else + #define LAPACK_clanhs(...) LAPACK_clanhs_base(__VA_ARGS__) +#endif -#define LAPACK_dlanhs LAPACK_GLOBAL(dlanhs,DLANHS) -double LAPACK_dlanhs( +#define LAPACK_dlanhs_base LAPACK_GLOBAL(dlanhs,DLANHS) +double LAPACK_dlanhs_base( char const* norm, lapack_int const* n, double const* A, lapack_int const* lda, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlanhs(...) LAPACK_dlanhs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlanhs(...) LAPACK_dlanhs_base(__VA_ARGS__) +#endif -#define LAPACK_slanhs LAPACK_GLOBAL(slanhs,SLANHS) -lapack_float_return LAPACK_slanhs( +#define LAPACK_slanhs_base LAPACK_GLOBAL(slanhs,SLANHS) +lapack_float_return LAPACK_slanhs_base( char const* norm, lapack_int const* n, float const* A, lapack_int const* lda, - float* work ); - -#define LAPACK_zlanhs LAPACK_GLOBAL(zlanhs,ZLANHS) -double LAPACK_zlanhs( + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slanhs(...) LAPACK_slanhs_base(__VA_ARGS__, 1) +#else + #define LAPACK_slanhs(...) LAPACK_slanhs_base(__VA_ARGS__) +#endif + +#define LAPACK_zlanhs_base LAPACK_GLOBAL(zlanhs,ZLANHS) +double LAPACK_zlanhs_base( char const* norm, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlanhs(...) LAPACK_zlanhs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlanhs(...) LAPACK_zlanhs_base(__VA_ARGS__) +#endif -#define LAPACK_clanht LAPACK_GLOBAL(clanht,CLANHT) -lapack_float_return LAPACK_clanht( +#define LAPACK_clanht_base LAPACK_GLOBAL(clanht,CLANHT) +lapack_float_return LAPACK_clanht_base( char const* norm, lapack_int const* n, float const* D, - lapack_complex_float const* E ); + lapack_complex_float const* E +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clanht(...) LAPACK_clanht_base(__VA_ARGS__, 1) +#else + #define LAPACK_clanht(...) LAPACK_clanht_base(__VA_ARGS__) +#endif -#define LAPACK_zlanht LAPACK_GLOBAL(zlanht,ZLANHT) -double LAPACK_zlanht( +#define LAPACK_zlanht_base LAPACK_GLOBAL(zlanht,ZLANHT) +double LAPACK_zlanht_base( char const* norm, lapack_int const* n, double const* D, - lapack_complex_double const* E ); + lapack_complex_double const* E +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlanht(...) LAPACK_zlanht_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlanht(...) LAPACK_zlanht_base(__VA_ARGS__) +#endif -#define LAPACK_clansb LAPACK_GLOBAL(clansb,CLANSB) -lapack_float_return LAPACK_clansb( +#define LAPACK_clansb_base LAPACK_GLOBAL(clansb,CLANSB) +lapack_float_return LAPACK_clansb_base( char const* norm, char const* uplo, lapack_int const* n, lapack_int const* k, lapack_complex_float const* AB, lapack_int const* ldab, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clansb(...) LAPACK_clansb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_clansb(...) LAPACK_clansb_base(__VA_ARGS__) +#endif -#define LAPACK_dlansb LAPACK_GLOBAL(dlansb,DLANSB) -double LAPACK_dlansb( +#define LAPACK_dlansb_base LAPACK_GLOBAL(dlansb,DLANSB) +double LAPACK_dlansb_base( char const* norm, char const* uplo, lapack_int const* n, lapack_int const* k, double const* AB, lapack_int const* ldab, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlansb(...) LAPACK_dlansb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dlansb(...) LAPACK_dlansb_base(__VA_ARGS__) +#endif -#define LAPACK_slansb LAPACK_GLOBAL(slansb,SLANSB) -lapack_float_return LAPACK_slansb( +#define LAPACK_slansb_base LAPACK_GLOBAL(slansb,SLANSB) +lapack_float_return LAPACK_slansb_base( char const* norm, char const* uplo, lapack_int const* n, lapack_int const* k, float const* AB, lapack_int const* ldab, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slansb(...) LAPACK_slansb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_slansb(...) LAPACK_slansb_base(__VA_ARGS__) +#endif -#define LAPACK_zlansb LAPACK_GLOBAL(zlansb,ZLANSB) -double LAPACK_zlansb( +#define LAPACK_zlansb_base LAPACK_GLOBAL(zlansb,ZLANSB) +double LAPACK_zlansb_base( char const* norm, char const* uplo, lapack_int const* n, lapack_int const* k, lapack_complex_double const* AB, lapack_int const* ldab, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlansb(...) LAPACK_zlansb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zlansb(...) LAPACK_zlansb_base(__VA_ARGS__) +#endif -#define LAPACK_clansp LAPACK_GLOBAL(clansp,CLANSP) -lapack_float_return LAPACK_clansp( +#define LAPACK_clansp_base LAPACK_GLOBAL(clansp,CLANSP) +lapack_float_return LAPACK_clansp_base( char const* norm, char const* uplo, lapack_int const* n, lapack_complex_float const* AP, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clansp(...) LAPACK_clansp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_clansp(...) LAPACK_clansp_base(__VA_ARGS__) +#endif -#define LAPACK_dlansp LAPACK_GLOBAL(dlansp,DLANSP) -double LAPACK_dlansp( +#define LAPACK_dlansp_base LAPACK_GLOBAL(dlansp,DLANSP) +double LAPACK_dlansp_base( char const* norm, char const* uplo, lapack_int const* n, double const* AP, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlansp(...) LAPACK_dlansp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dlansp(...) LAPACK_dlansp_base(__VA_ARGS__) +#endif -#define LAPACK_slansp LAPACK_GLOBAL(slansp,SLANSP) -lapack_float_return LAPACK_slansp( +#define LAPACK_slansp_base LAPACK_GLOBAL(slansp,SLANSP) +lapack_float_return LAPACK_slansp_base( char const* norm, char const* uplo, lapack_int const* n, float const* AP, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slansp(...) LAPACK_slansp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_slansp(...) LAPACK_slansp_base(__VA_ARGS__) +#endif -#define LAPACK_zlansp LAPACK_GLOBAL(zlansp,ZLANSP) -double LAPACK_zlansp( +#define LAPACK_zlansp_base LAPACK_GLOBAL(zlansp,ZLANSP) +double LAPACK_zlansp_base( char const* norm, char const* uplo, lapack_int const* n, lapack_complex_double const* AP, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlansp(...) LAPACK_zlansp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zlansp(...) LAPACK_zlansp_base(__VA_ARGS__) +#endif -#define LAPACK_dlanst LAPACK_GLOBAL(dlanst,DLANST) -double LAPACK_dlanst( +#define LAPACK_dlanst_base LAPACK_GLOBAL(dlanst,DLANST) +double LAPACK_dlanst_base( char const* norm, lapack_int const* n, double const* D, - double const* E ); + double const* E +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlanst(...) LAPACK_dlanst_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlanst(...) LAPACK_dlanst_base(__VA_ARGS__) +#endif -#define LAPACK_slanst LAPACK_GLOBAL(slanst,SLANST) -lapack_float_return LAPACK_slanst( +#define LAPACK_slanst_base LAPACK_GLOBAL(slanst,SLANST) +lapack_float_return LAPACK_slanst_base( char const* norm, lapack_int const* n, float const* D, - float const* E ); + float const* E +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slanst(...) LAPACK_slanst_base(__VA_ARGS__, 1) +#else + #define LAPACK_slanst(...) LAPACK_slanst_base(__VA_ARGS__) +#endif -#define LAPACK_clansy LAPACK_GLOBAL(clansy,CLANSY) -lapack_float_return LAPACK_clansy( +#define LAPACK_clansy_base LAPACK_GLOBAL(clansy,CLANSY) +lapack_float_return LAPACK_clansy_base( char const* norm, char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clansy(...) LAPACK_clansy_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_clansy(...) LAPACK_clansy_base(__VA_ARGS__) +#endif -#define LAPACK_dlansy LAPACK_GLOBAL(dlansy,DLANSY) -double LAPACK_dlansy( +#define LAPACK_dlansy_base LAPACK_GLOBAL(dlansy,DLANSY) +double LAPACK_dlansy_base( char const* norm, char const* uplo, lapack_int const* n, double const* A, lapack_int const* lda, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlansy(...) LAPACK_dlansy_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dlansy(...) LAPACK_dlansy_base(__VA_ARGS__) +#endif -#define LAPACK_slansy LAPACK_GLOBAL(slansy,SLANSY) -lapack_float_return LAPACK_slansy( +#define LAPACK_slansy_base LAPACK_GLOBAL(slansy,SLANSY) +lapack_float_return LAPACK_slansy_base( char const* norm, char const* uplo, lapack_int const* n, float const* A, lapack_int const* lda, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slansy(...) LAPACK_slansy_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_slansy(...) LAPACK_slansy_base(__VA_ARGS__) +#endif -#define LAPACK_zlansy LAPACK_GLOBAL(zlansy,ZLANSY) -double LAPACK_zlansy( +#define LAPACK_zlansy_base LAPACK_GLOBAL(zlansy,ZLANSY) +double LAPACK_zlansy_base( char const* norm, char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlansy(...) LAPACK_zlansy_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zlansy(...) LAPACK_zlansy_base(__VA_ARGS__) +#endif -#define LAPACK_clantb LAPACK_GLOBAL(clantb,CLANTB) -lapack_float_return LAPACK_clantb( +#define LAPACK_clantb_base LAPACK_GLOBAL(clantb,CLANTB) +lapack_float_return LAPACK_clantb_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_int const* k, lapack_complex_float const* AB, lapack_int const* ldab, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clantb(...) LAPACK_clantb_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_clantb(...) LAPACK_clantb_base(__VA_ARGS__) +#endif -#define LAPACK_dlantb LAPACK_GLOBAL(dlantb,DLANTB) -double LAPACK_dlantb( +#define LAPACK_dlantb_base LAPACK_GLOBAL(dlantb,DLANTB) +double LAPACK_dlantb_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_int const* k, double const* AB, lapack_int const* ldab, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlantb(...) LAPACK_dlantb_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dlantb(...) LAPACK_dlantb_base(__VA_ARGS__) +#endif -#define LAPACK_slantb LAPACK_GLOBAL(slantb,SLANTB) -lapack_float_return LAPACK_slantb( +#define LAPACK_slantb_base LAPACK_GLOBAL(slantb,SLANTB) +lapack_float_return LAPACK_slantb_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_int const* k, float const* AB, lapack_int const* ldab, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slantb(...) LAPACK_slantb_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_slantb(...) LAPACK_slantb_base(__VA_ARGS__) +#endif -#define LAPACK_zlantb LAPACK_GLOBAL(zlantb,ZLANTB) -double LAPACK_zlantb( +#define LAPACK_zlantb_base LAPACK_GLOBAL(zlantb,ZLANTB) +double LAPACK_zlantb_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_int const* k, lapack_complex_double const* AB, lapack_int const* ldab, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlantb(...) LAPACK_zlantb_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zlantb(...) LAPACK_zlantb_base(__VA_ARGS__) +#endif -#define LAPACK_clantp LAPACK_GLOBAL(clantp,CLANTP) -lapack_float_return LAPACK_clantp( +#define LAPACK_clantp_base LAPACK_GLOBAL(clantp,CLANTP) +lapack_float_return LAPACK_clantp_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_complex_float const* AP, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clantp(...) LAPACK_clantp_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_clantp(...) LAPACK_clantp_base(__VA_ARGS__) +#endif -#define LAPACK_dlantp LAPACK_GLOBAL(dlantp,DLANTP) -double LAPACK_dlantp( +#define LAPACK_dlantp_base LAPACK_GLOBAL(dlantp,DLANTP) +double LAPACK_dlantp_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, double const* AP, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlantp(...) LAPACK_dlantp_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dlantp(...) LAPACK_dlantp_base(__VA_ARGS__) +#endif -#define LAPACK_slantp LAPACK_GLOBAL(slantp,SLANTP) -lapack_float_return LAPACK_slantp( +#define LAPACK_slantp_base LAPACK_GLOBAL(slantp,SLANTP) +lapack_float_return LAPACK_slantp_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, float const* AP, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slantp(...) LAPACK_slantp_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_slantp(...) LAPACK_slantp_base(__VA_ARGS__) +#endif -#define LAPACK_zlantp LAPACK_GLOBAL(zlantp,ZLANTP) -double LAPACK_zlantp( +#define LAPACK_zlantp_base LAPACK_GLOBAL(zlantp,ZLANTP) +double LAPACK_zlantp_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_complex_double const* AP, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlantp(...) LAPACK_zlantp_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zlantp(...) LAPACK_zlantp_base(__VA_ARGS__) +#endif -#define LAPACK_clantr LAPACK_GLOBAL(clantr,CLANTR) -lapack_float_return LAPACK_clantr( +#define LAPACK_clantr_base LAPACK_GLOBAL(clantr,CLANTR) +lapack_float_return LAPACK_clantr_base( char const* norm, char const* uplo, char const* diag, lapack_int const* m, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clantr(...) LAPACK_clantr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_clantr(...) LAPACK_clantr_base(__VA_ARGS__) +#endif -#define LAPACK_dlantr LAPACK_GLOBAL(dlantr,DLANTR) -double LAPACK_dlantr( +#define LAPACK_dlantr_base LAPACK_GLOBAL(dlantr,DLANTR) +double LAPACK_dlantr_base( char const* norm, char const* uplo, char const* diag, lapack_int const* m, lapack_int const* n, double const* A, lapack_int const* lda, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlantr(...) LAPACK_dlantr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dlantr(...) LAPACK_dlantr_base(__VA_ARGS__) +#endif -#define LAPACK_slantr LAPACK_GLOBAL(slantr,SLANTR) -lapack_float_return LAPACK_slantr( +#define LAPACK_slantr_base LAPACK_GLOBAL(slantr,SLANTR) +lapack_float_return LAPACK_slantr_base( char const* norm, char const* uplo, char const* diag, lapack_int const* m, lapack_int const* n, float const* A, lapack_int const* lda, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slantr(...) LAPACK_slantr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_slantr(...) LAPACK_slantr_base(__VA_ARGS__) +#endif -#define LAPACK_zlantr LAPACK_GLOBAL(zlantr,ZLANTR) -double LAPACK_zlantr( +#define LAPACK_zlantr_base LAPACK_GLOBAL(zlantr,ZLANTR) +double LAPACK_zlantr_base( char const* norm, char const* uplo, char const* diag, lapack_int const* m, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlantr(...) LAPACK_zlantr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zlantr(...) LAPACK_zlantr_base(__VA_ARGS__) +#endif #define LAPACK_clapmr LAPACK_GLOBAL(clapmr,CLAPMR) void LAPACK_clapmr( @@ -6601,77 +10361,149 @@ void LAPACK_zlarcm( lapack_complex_double* C, lapack_int const* ldc, double* rwork ); -#define LAPACK_clarf LAPACK_GLOBAL(clarf,CLARF) -void LAPACK_clarf( +#define LAPACK_clarf_base LAPACK_GLOBAL(clarf,CLARF) +void LAPACK_clarf_base( char const* side, lapack_int const* m, lapack_int const* n, lapack_complex_float const* V, lapack_int const* incv, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work ); + lapack_complex_float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clarf(...) LAPACK_clarf_base(__VA_ARGS__, 1) +#else + #define LAPACK_clarf(...) LAPACK_clarf_base(__VA_ARGS__) +#endif -#define LAPACK_dlarf LAPACK_GLOBAL(dlarf,DLARF) -void LAPACK_dlarf( +#define LAPACK_dlarf_base LAPACK_GLOBAL(dlarf,DLARF) +void LAPACK_dlarf_base( char const* side, lapack_int const* m, lapack_int const* n, double const* V, lapack_int const* incv, double const* tau, double* C, lapack_int const* ldc, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlarf(...) LAPACK_dlarf_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlarf(...) LAPACK_dlarf_base(__VA_ARGS__) +#endif -#define LAPACK_slarf LAPACK_GLOBAL(slarf,SLARF) -void LAPACK_slarf( +#define LAPACK_slarf_base LAPACK_GLOBAL(slarf,SLARF) +void LAPACK_slarf_base( char const* side, lapack_int const* m, lapack_int const* n, float const* V, lapack_int const* incv, float const* tau, float* C, lapack_int const* ldc, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slarf(...) LAPACK_slarf_base(__VA_ARGS__, 1) +#else + #define LAPACK_slarf(...) LAPACK_slarf_base(__VA_ARGS__) +#endif -#define LAPACK_zlarf LAPACK_GLOBAL(zlarf,ZLARF) -void LAPACK_zlarf( +#define LAPACK_zlarf_base LAPACK_GLOBAL(zlarf,ZLARF) +void LAPACK_zlarf_base( char const* side, lapack_int const* m, lapack_int const* n, lapack_complex_double const* V, lapack_int const* incv, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work ); + lapack_complex_double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlarf(...) LAPACK_zlarf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlarf(...) LAPACK_zlarf_base(__VA_ARGS__) +#endif -#define LAPACK_clarfb LAPACK_GLOBAL(clarfb,CLARFB) -void LAPACK_clarfb( +#define LAPACK_clarfb_base LAPACK_GLOBAL(clarfb,CLARFB) +void LAPACK_clarfb_base( char const* side, char const* trans, char const* direct, char const* storev, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_float const* V, lapack_int const* ldv, lapack_complex_float const* T, lapack_int const* ldt, lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work, lapack_int const* ldwork ); + lapack_complex_float* work, lapack_int const* ldwork +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clarfb(...) LAPACK_clarfb_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_clarfb(...) LAPACK_clarfb_base(__VA_ARGS__) +#endif -#define LAPACK_dlarfb LAPACK_GLOBAL(dlarfb,DLARFB) -void LAPACK_dlarfb( +#define LAPACK_dlarfb_base LAPACK_GLOBAL(dlarfb,DLARFB) +void LAPACK_dlarfb_base( char const* side, char const* trans, char const* direct, char const* storev, lapack_int const* m, lapack_int const* n, lapack_int const* k, double const* V, lapack_int const* ldv, double const* T, lapack_int const* ldt, double* C, lapack_int const* ldc, - double* work, lapack_int const* ldwork ); + double* work, lapack_int const* ldwork +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlarfb(...) LAPACK_dlarfb_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_dlarfb(...) LAPACK_dlarfb_base(__VA_ARGS__) +#endif -#define LAPACK_slarfb LAPACK_GLOBAL(slarfb,SLARFB) -void LAPACK_slarfb( +#define LAPACK_slarfb_base LAPACK_GLOBAL(slarfb,SLARFB) +void LAPACK_slarfb_base( char const* side, char const* trans, char const* direct, char const* storev, lapack_int const* m, lapack_int const* n, lapack_int const* k, float const* V, lapack_int const* ldv, float const* T, lapack_int const* ldt, float* C, lapack_int const* ldc, - float* work, lapack_int const* ldwork ); + float* work, lapack_int const* ldwork +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slarfb(...) LAPACK_slarfb_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_slarfb(...) LAPACK_slarfb_base(__VA_ARGS__) +#endif -#define LAPACK_zlarfb LAPACK_GLOBAL(zlarfb,ZLARFB) -void LAPACK_zlarfb( +#define LAPACK_zlarfb_base LAPACK_GLOBAL(zlarfb,ZLARFB) +void LAPACK_zlarfb_base( char const* side, char const* trans, char const* direct, char const* storev, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_double const* V, lapack_int const* ldv, lapack_complex_double const* T, lapack_int const* ldt, lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work, lapack_int const* ldwork ); + lapack_complex_double* work, lapack_int const* ldwork +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlarfb(...) LAPACK_zlarfb_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_zlarfb(...) LAPACK_zlarfb_base(__VA_ARGS__) +#endif #define LAPACK_clarfg LAPACK_GLOBAL(clarfg,CLARFG) void LAPACK_clarfg( @@ -6701,73 +10533,145 @@ void LAPACK_zlarfg( lapack_complex_double* X, lapack_int const* incx, lapack_complex_double* tau ); -#define LAPACK_clarft LAPACK_GLOBAL(clarft,CLARFT) -void LAPACK_clarft( +#define LAPACK_clarft_base LAPACK_GLOBAL(clarft,CLARFT) +void LAPACK_clarft_base( char const* direct, char const* storev, lapack_int const* n, lapack_int const* k, lapack_complex_float const* V, lapack_int const* ldv, lapack_complex_float const* tau, - lapack_complex_float* T, lapack_int const* ldt ); + lapack_complex_float* T, lapack_int const* ldt +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clarft(...) LAPACK_clarft_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_clarft(...) LAPACK_clarft_base(__VA_ARGS__) +#endif -#define LAPACK_dlarft LAPACK_GLOBAL(dlarft,DLARFT) -void LAPACK_dlarft( +#define LAPACK_dlarft_base LAPACK_GLOBAL(dlarft,DLARFT) +void LAPACK_dlarft_base( char const* direct, char const* storev, lapack_int const* n, lapack_int const* k, double const* V, lapack_int const* ldv, double const* tau, - double* T, lapack_int const* ldt ); + double* T, lapack_int const* ldt +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlarft(...) LAPACK_dlarft_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dlarft(...) LAPACK_dlarft_base(__VA_ARGS__) +#endif -#define LAPACK_slarft LAPACK_GLOBAL(slarft,SLARFT) -void LAPACK_slarft( +#define LAPACK_slarft_base LAPACK_GLOBAL(slarft,SLARFT) +void LAPACK_slarft_base( char const* direct, char const* storev, lapack_int const* n, lapack_int const* k, float const* V, lapack_int const* ldv, float const* tau, - float* T, lapack_int const* ldt ); + float* T, lapack_int const* ldt +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slarft(...) LAPACK_slarft_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_slarft(...) LAPACK_slarft_base(__VA_ARGS__) +#endif -#define LAPACK_zlarft LAPACK_GLOBAL(zlarft,ZLARFT) -void LAPACK_zlarft( +#define LAPACK_zlarft_base LAPACK_GLOBAL(zlarft,ZLARFT) +void LAPACK_zlarft_base( char const* direct, char const* storev, lapack_int const* n, lapack_int const* k, lapack_complex_double const* V, lapack_int const* ldv, lapack_complex_double const* tau, - lapack_complex_double* T, lapack_int const* ldt ); + lapack_complex_double* T, lapack_int const* ldt +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlarft(...) LAPACK_zlarft_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zlarft(...) LAPACK_zlarft_base(__VA_ARGS__) +#endif -#define LAPACK_clarfx LAPACK_GLOBAL(clarfx,CLARFX) -void LAPACK_clarfx( +#define LAPACK_clarfx_base LAPACK_GLOBAL(clarfx,CLARFX) +void LAPACK_clarfx_base( char const* side, lapack_int const* m, lapack_int const* n, lapack_complex_float const* V, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work ); + lapack_complex_float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clarfx(...) LAPACK_clarfx_base(__VA_ARGS__, 1) +#else + #define LAPACK_clarfx(...) LAPACK_clarfx_base(__VA_ARGS__) +#endif -#define LAPACK_dlarfx LAPACK_GLOBAL(dlarfx,DLARFX) -void LAPACK_dlarfx( +#define LAPACK_dlarfx_base LAPACK_GLOBAL(dlarfx,DLARFX) +void LAPACK_dlarfx_base( char const* side, lapack_int const* m, lapack_int const* n, double const* V, double const* tau, double* C, lapack_int const* ldc, - double* work ); + double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlarfx(...) LAPACK_dlarfx_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlarfx(...) LAPACK_dlarfx_base(__VA_ARGS__) +#endif -#define LAPACK_slarfx LAPACK_GLOBAL(slarfx,SLARFX) -void LAPACK_slarfx( +#define LAPACK_slarfx_base LAPACK_GLOBAL(slarfx,SLARFX) +void LAPACK_slarfx_base( char const* side, lapack_int const* m, lapack_int const* n, float const* V, float const* tau, float* C, lapack_int const* ldc, - float* work ); + float* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slarfx(...) LAPACK_slarfx_base(__VA_ARGS__, 1) +#else + #define LAPACK_slarfx(...) LAPACK_slarfx_base(__VA_ARGS__) +#endif -#define LAPACK_zlarfx LAPACK_GLOBAL(zlarfx,ZLARFX) -void LAPACK_zlarfx( +#define LAPACK_zlarfx_base LAPACK_GLOBAL(zlarfx,ZLARFX) +void LAPACK_zlarfx_base( char const* side, lapack_int const* m, lapack_int const* n, lapack_complex_double const* V, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work ); + lapack_complex_double* work +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlarfx(...) LAPACK_zlarfx_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlarfx(...) LAPACK_zlarfx_base(__VA_ARGS__) +#endif #define LAPACK_clarnv LAPACK_GLOBAL(clarnv,CLARNV) void LAPACK_clarnv( @@ -6821,87 +10725,177 @@ void LAPACK_slartgs( float* cs, float* sn ); -#define LAPACK_clascl LAPACK_GLOBAL(clascl,CLASCL) -void LAPACK_clascl( +#define LAPACK_clascl_base LAPACK_GLOBAL(clascl,CLASCL) +void LAPACK_clascl_base( char const* type, lapack_int const* kl, lapack_int const* ku, float const* cfrom, float const* cto, lapack_int const* m, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clascl(...) LAPACK_clascl_base(__VA_ARGS__, 1) +#else + #define LAPACK_clascl(...) LAPACK_clascl_base(__VA_ARGS__) +#endif -#define LAPACK_dlascl LAPACK_GLOBAL(dlascl,DLASCL) -void LAPACK_dlascl( +#define LAPACK_dlascl_base LAPACK_GLOBAL(dlascl,DLASCL) +void LAPACK_dlascl_base( char const* type, lapack_int const* kl, lapack_int const* ku, double const* cfrom, double const* cto, lapack_int const* m, lapack_int const* n, double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlascl(...) LAPACK_dlascl_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlascl(...) LAPACK_dlascl_base(__VA_ARGS__) +#endif -#define LAPACK_slascl LAPACK_GLOBAL(slascl,SLASCL) -void LAPACK_slascl( +#define LAPACK_slascl_base LAPACK_GLOBAL(slascl,SLASCL) +void LAPACK_slascl_base( char const* type, lapack_int const* kl, lapack_int const* ku, float const* cfrom, float const* cto, lapack_int const* m, lapack_int const* n, float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slascl(...) LAPACK_slascl_base(__VA_ARGS__, 1) +#else + #define LAPACK_slascl(...) LAPACK_slascl_base(__VA_ARGS__) +#endif -#define LAPACK_zlascl LAPACK_GLOBAL(zlascl,ZLASCL) -void LAPACK_zlascl( +#define LAPACK_zlascl_base LAPACK_GLOBAL(zlascl,ZLASCL) +void LAPACK_zlascl_base( char const* type, lapack_int const* kl, lapack_int const* ku, double const* cfrom, double const* cto, lapack_int const* m, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlascl(...) LAPACK_zlascl_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlascl(...) LAPACK_zlascl_base(__VA_ARGS__) +#endif -#define LAPACK_claset LAPACK_GLOBAL(claset,CLASET) -void LAPACK_claset( +#define LAPACK_claset_base LAPACK_GLOBAL(claset,CLASET) +void LAPACK_claset_base( char const* uplo, lapack_int const* m, lapack_int const* n, lapack_complex_float const* alpha, lapack_complex_float const* beta, - lapack_complex_float* A, lapack_int const* lda ); + lapack_complex_float* A, lapack_int const* lda +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_claset(...) LAPACK_claset_base(__VA_ARGS__, 1) +#else + #define LAPACK_claset(...) LAPACK_claset_base(__VA_ARGS__) +#endif -#define LAPACK_dlaset LAPACK_GLOBAL(dlaset,DLASET) -void LAPACK_dlaset( +#define LAPACK_dlaset_base LAPACK_GLOBAL(dlaset,DLASET) +void LAPACK_dlaset_base( char const* uplo, lapack_int const* m, lapack_int const* n, double const* alpha, double const* beta, - double* A, lapack_int const* lda ); + double* A, lapack_int const* lda +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlaset(...) LAPACK_dlaset_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlaset(...) LAPACK_dlaset_base(__VA_ARGS__) +#endif -#define LAPACK_slaset LAPACK_GLOBAL(slaset,SLASET) -void LAPACK_slaset( +#define LAPACK_slaset_base LAPACK_GLOBAL(slaset,SLASET) +void LAPACK_slaset_base( char const* uplo, lapack_int const* m, lapack_int const* n, float const* alpha, float const* beta, - float* A, lapack_int const* lda ); + float* A, lapack_int const* lda +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slaset(...) LAPACK_slaset_base(__VA_ARGS__, 1) +#else + #define LAPACK_slaset(...) LAPACK_slaset_base(__VA_ARGS__) +#endif -#define LAPACK_zlaset LAPACK_GLOBAL(zlaset,ZLASET) -void LAPACK_zlaset( +#define LAPACK_zlaset_base LAPACK_GLOBAL(zlaset,ZLASET) +void LAPACK_zlaset_base( char const* uplo, lapack_int const* m, lapack_int const* n, lapack_complex_double const* alpha, lapack_complex_double const* beta, - lapack_complex_double* A, lapack_int const* lda ); + lapack_complex_double* A, lapack_int const* lda +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlaset(...) LAPACK_zlaset_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlaset(...) LAPACK_zlaset_base(__VA_ARGS__) +#endif -#define LAPACK_dlasrt LAPACK_GLOBAL(dlasrt,DLASRT) -void LAPACK_dlasrt( +#define LAPACK_dlasrt_base LAPACK_GLOBAL(dlasrt,DLASRT) +void LAPACK_dlasrt_base( char const* id, lapack_int const* n, double* D, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlasrt(...) LAPACK_dlasrt_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlasrt(...) LAPACK_dlasrt_base(__VA_ARGS__) +#endif -#define LAPACK_slasrt LAPACK_GLOBAL(slasrt,SLASRT) -void LAPACK_slasrt( +#define LAPACK_slasrt_base LAPACK_GLOBAL(slasrt,SLASRT) +void LAPACK_slasrt_base( char const* id, lapack_int const* n, float* D, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slasrt(...) LAPACK_slasrt_base(__VA_ARGS__, 1) +#else + #define LAPACK_slasrt(...) LAPACK_slasrt_base(__VA_ARGS__) +#endif #define LAPACK_classq LAPACK_GLOBAL(classq,CLASSQ) void LAPACK_classq( @@ -6951,8 +10945,8 @@ void LAPACK_zlaswp( lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx ); -#define LAPACK_clatms LAPACK_GLOBAL(clatms,CLATMS) -void LAPACK_clatms( +#define LAPACK_clatms_base LAPACK_GLOBAL(clatms,CLATMS) +void LAPACK_clatms_base( lapack_int const* m, lapack_int const* n, char const* dist, lapack_int* iseed, char const* sym, float* D, @@ -6962,10 +10956,19 @@ void LAPACK_clatms( lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clatms(...) LAPACK_clatms_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_clatms(...) LAPACK_clatms_base(__VA_ARGS__) +#endif -#define LAPACK_dlatms LAPACK_GLOBAL(dlatms,DLATMS) -void LAPACK_dlatms( +#define LAPACK_dlatms_base LAPACK_GLOBAL(dlatms,DLATMS) +void LAPACK_dlatms_base( lapack_int const* m, lapack_int const* n, char const* dist, lapack_int* iseed, char const* sym, double* D, @@ -6975,10 +10978,19 @@ void LAPACK_dlatms( double* A, lapack_int const* lda, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlatms(...) LAPACK_dlatms_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dlatms(...) LAPACK_dlatms_base(__VA_ARGS__) +#endif -#define LAPACK_slatms LAPACK_GLOBAL(slatms,SLATMS) -void LAPACK_slatms( +#define LAPACK_slatms_base LAPACK_GLOBAL(slatms,SLATMS) +void LAPACK_slatms_base( lapack_int const* m, lapack_int const* n, char const* dist, lapack_int* iseed, char const* sym, float* D, @@ -6988,10 +11000,19 @@ void LAPACK_slatms( float* A, lapack_int const* lda, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slatms(...) LAPACK_slatms_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_slatms(...) LAPACK_slatms_base(__VA_ARGS__) +#endif -#define LAPACK_zlatms LAPACK_GLOBAL(zlatms,ZLATMS) -void LAPACK_zlatms( +#define LAPACK_zlatms_base LAPACK_GLOBAL(zlatms,ZLATMS) +void LAPACK_zlatms_base( lapack_int const* m, lapack_int const* n, char const* dist, lapack_int* iseed, char const* sym, double* D, @@ -7001,82 +11022,163 @@ void LAPACK_zlatms( lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlatms(...) LAPACK_zlatms_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zlatms(...) LAPACK_zlatms_base(__VA_ARGS__) +#endif -#define LAPACK_clauum LAPACK_GLOBAL(clauum,CLAUUM) -void LAPACK_clauum( +#define LAPACK_clauum_base LAPACK_GLOBAL(clauum,CLAUUM) +void LAPACK_clauum_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_clauum(...) LAPACK_clauum_base(__VA_ARGS__, 1) +#else + #define LAPACK_clauum(...) LAPACK_clauum_base(__VA_ARGS__) +#endif -#define LAPACK_dlauum LAPACK_GLOBAL(dlauum,DLAUUM) -void LAPACK_dlauum( +#define LAPACK_dlauum_base LAPACK_GLOBAL(dlauum,DLAUUM) +void LAPACK_dlauum_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dlauum(...) LAPACK_dlauum_base(__VA_ARGS__, 1) +#else + #define LAPACK_dlauum(...) LAPACK_dlauum_base(__VA_ARGS__) +#endif -#define LAPACK_slauum LAPACK_GLOBAL(slauum,SLAUUM) -void LAPACK_slauum( +#define LAPACK_slauum_base LAPACK_GLOBAL(slauum,SLAUUM) +void LAPACK_slauum_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_slauum(...) LAPACK_slauum_base(__VA_ARGS__, 1) +#else + #define LAPACK_slauum(...) LAPACK_slauum_base(__VA_ARGS__) +#endif -#define LAPACK_zlauum LAPACK_GLOBAL(zlauum,ZLAUUM) -void LAPACK_zlauum( +#define LAPACK_zlauum_base LAPACK_GLOBAL(zlauum,ZLAUUM) +void LAPACK_zlauum_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zlauum(...) LAPACK_zlauum_base(__VA_ARGS__, 1) +#else + #define LAPACK_zlauum(...) LAPACK_zlauum_base(__VA_ARGS__) +#endif #define LAPACK_ilaver LAPACK_GLOBAL(ilaver,ILAVER) void LAPACK_ilaver( lapack_int* vers_major, lapack_int* vers_minor, lapack_int* vers_patch ); -#define LAPACK_dopgtr LAPACK_GLOBAL(dopgtr,DOPGTR) -void LAPACK_dopgtr( +#define LAPACK_dopgtr_base LAPACK_GLOBAL(dopgtr,DOPGTR) +void LAPACK_dopgtr_base( char const* uplo, lapack_int const* n, double const* AP, double const* tau, double* Q, lapack_int const* ldq, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dopgtr(...) LAPACK_dopgtr_base(__VA_ARGS__, 1) +#else + #define LAPACK_dopgtr(...) LAPACK_dopgtr_base(__VA_ARGS__) +#endif -#define LAPACK_sopgtr LAPACK_GLOBAL(sopgtr,SOPGTR) -void LAPACK_sopgtr( +#define LAPACK_sopgtr_base LAPACK_GLOBAL(sopgtr,SOPGTR) +void LAPACK_sopgtr_base( char const* uplo, lapack_int const* n, float const* AP, float const* tau, float* Q, lapack_int const* ldq, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sopgtr(...) LAPACK_sopgtr_base(__VA_ARGS__, 1) +#else + #define LAPACK_sopgtr(...) LAPACK_sopgtr_base(__VA_ARGS__) +#endif -#define LAPACK_dopmtr LAPACK_GLOBAL(dopmtr,DOPMTR) -void LAPACK_dopmtr( +#define LAPACK_dopmtr_base LAPACK_GLOBAL(dopmtr,DOPMTR) +void LAPACK_dopmtr_base( char const* side, char const* uplo, char const* trans, lapack_int const* m, lapack_int const* n, double const* AP, double const* tau, double* C, lapack_int const* ldc, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dopmtr(...) LAPACK_dopmtr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dopmtr(...) LAPACK_dopmtr_base(__VA_ARGS__) +#endif -#define LAPACK_sopmtr LAPACK_GLOBAL(sopmtr,SOPMTR) -void LAPACK_sopmtr( +#define LAPACK_sopmtr_base LAPACK_GLOBAL(sopmtr,SOPMTR) +void LAPACK_sopmtr_base( char const* side, char const* uplo, char const* trans, lapack_int const* m, lapack_int const* n, float const* AP, float const* tau, float* C, lapack_int const* ldc, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sopmtr(...) LAPACK_sopmtr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sopmtr(...) LAPACK_sopmtr_base(__VA_ARGS__) +#endif -#define LAPACK_dorbdb LAPACK_GLOBAL(dorbdb,DORBDB) -void LAPACK_dorbdb( +#define LAPACK_dorbdb_base LAPACK_GLOBAL(dorbdb,DORBDB) +void LAPACK_dorbdb_base( char const* trans, char const* signs, lapack_int const* m, lapack_int const* p, lapack_int const* q, double* X11, lapack_int const* ldx11, @@ -7090,10 +11192,19 @@ void LAPACK_dorbdb( double* TAUQ1, double* TAUQ2, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dorbdb(...) LAPACK_dorbdb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dorbdb(...) LAPACK_dorbdb_base(__VA_ARGS__) +#endif -#define LAPACK_sorbdb LAPACK_GLOBAL(sorbdb,SORBDB) -void LAPACK_sorbdb( +#define LAPACK_sorbdb_base LAPACK_GLOBAL(sorbdb,SORBDB) +void LAPACK_sorbdb_base( char const* trans, char const* signs, lapack_int const* m, lapack_int const* p, lapack_int const* q, float* X11, lapack_int const* ldx11, @@ -7107,10 +11218,19 @@ void LAPACK_sorbdb( float* TAUQ1, float* TAUQ2, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sorbdb(...) LAPACK_sorbdb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sorbdb(...) LAPACK_sorbdb_base(__VA_ARGS__) +#endif -#define LAPACK_dorcsd LAPACK_GLOBAL(dorcsd,DORCSD) -void LAPACK_dorcsd( +#define LAPACK_dorcsd_base LAPACK_GLOBAL(dorcsd,DORCSD) +void LAPACK_dorcsd_base( char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs, lapack_int const* m, lapack_int const* p, lapack_int const* q, double* X11, lapack_int const* ldx11, @@ -7124,10 +11244,19 @@ void LAPACK_dorcsd( double* V2T, lapack_int const* ldv2t, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dorcsd(...) LAPACK_dorcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) +#else + #define LAPACK_dorcsd(...) LAPACK_dorcsd_base(__VA_ARGS__) +#endif -#define LAPACK_sorcsd LAPACK_GLOBAL(sorcsd,SORCSD) -void LAPACK_sorcsd( +#define LAPACK_sorcsd_base LAPACK_GLOBAL(sorcsd,SORCSD) +void LAPACK_sorcsd_base( char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs, lapack_int const* m, lapack_int const* p, lapack_int const* q, float* X11, lapack_int const* ldx11, @@ -7141,10 +11270,19 @@ void LAPACK_sorcsd( float* V2T, lapack_int const* ldv2t, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sorcsd(...) LAPACK_sorcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) +#else + #define LAPACK_sorcsd(...) LAPACK_sorcsd_base(__VA_ARGS__) +#endif -#define LAPACK_dorcsd2by1 LAPACK_GLOBAL(dorcsd2by1,DORCSD2BY1) -void LAPACK_dorcsd2by1( +#define LAPACK_dorcsd2by1_base LAPACK_GLOBAL(dorcsd2by1,DORCSD2BY1) +void LAPACK_dorcsd2by1_base( char const* jobu1, char const* jobu2, char const* jobv1t, lapack_int const* m, lapack_int const* p, lapack_int const* q, double* X11, lapack_int const* ldx11, @@ -7155,10 +11293,19 @@ void LAPACK_dorcsd2by1( double* V1T, lapack_int const* ldv1t, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dorcsd2by1(...) LAPACK_dorcsd2by1_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dorcsd2by1(...) LAPACK_dorcsd2by1_base(__VA_ARGS__) +#endif -#define LAPACK_sorcsd2by1 LAPACK_GLOBAL(sorcsd2by1,SORCSD2BY1) -void LAPACK_sorcsd2by1( +#define LAPACK_sorcsd2by1_base LAPACK_GLOBAL(sorcsd2by1,SORCSD2BY1) +void LAPACK_sorcsd2by1_base( char const* jobu1, char const* jobu2, char const* jobv1t, lapack_int const* m, lapack_int const* p, lapack_int const* q, float* X11, lapack_int const* ldx11, @@ -7169,25 +11316,52 @@ void LAPACK_sorcsd2by1( float* V1T, lapack_int const* ldv1t, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sorcsd2by1(...) LAPACK_sorcsd2by1_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sorcsd2by1(...) LAPACK_sorcsd2by1_base(__VA_ARGS__) +#endif -#define LAPACK_dorgbr LAPACK_GLOBAL(dorgbr,DORGBR) -void LAPACK_dorgbr( +#define LAPACK_dorgbr_base LAPACK_GLOBAL(dorgbr,DORGBR) +void LAPACK_dorgbr_base( char const* vect, lapack_int const* m, lapack_int const* n, lapack_int const* k, double* A, lapack_int const* lda, double const* tau, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dorgbr(...) LAPACK_dorgbr_base(__VA_ARGS__, 1) +#else + #define LAPACK_dorgbr(...) LAPACK_dorgbr_base(__VA_ARGS__) +#endif -#define LAPACK_sorgbr LAPACK_GLOBAL(sorgbr,SORGBR) -void LAPACK_sorgbr( +#define LAPACK_sorgbr_base LAPACK_GLOBAL(sorgbr,SORGBR) +void LAPACK_sorgbr_base( char const* vect, lapack_int const* m, lapack_int const* n, lapack_int const* k, float* A, lapack_int const* lda, float const* tau, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sorgbr(...) LAPACK_sorgbr_base(__VA_ARGS__, 1) +#else + #define LAPACK_sorgbr(...) LAPACK_sorgbr_base(__VA_ARGS__) +#endif #define LAPACK_dorghr LAPACK_GLOBAL(dorghr,DORGHR) void LAPACK_dorghr( @@ -7269,23 +11443,41 @@ void LAPACK_sorgrq( float* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_dorgtr LAPACK_GLOBAL(dorgtr,DORGTR) -void LAPACK_dorgtr( +#define LAPACK_dorgtr_base LAPACK_GLOBAL(dorgtr,DORGTR) +void LAPACK_dorgtr_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double const* tau, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dorgtr(...) LAPACK_dorgtr_base(__VA_ARGS__, 1) +#else + #define LAPACK_dorgtr(...) LAPACK_dorgtr_base(__VA_ARGS__) +#endif -#define LAPACK_sorgtr LAPACK_GLOBAL(sorgtr,SORGTR) -void LAPACK_sorgtr( +#define LAPACK_sorgtr_base LAPACK_GLOBAL(sorgtr,SORGTR) +void LAPACK_sorgtr_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float const* tau, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sorgtr(...) LAPACK_sorgtr_base(__VA_ARGS__, 1) +#else + #define LAPACK_sorgtr(...) LAPACK_sorgtr_base(__VA_ARGS__) +#endif #define LAPACK_dorgtsqr_row LAPACK_GLOBAL(dorgtsqr_row,DORGTSQR_ROW) void LAPACK_dorgtsqr_row( @@ -7305,168 +11497,312 @@ void LAPACK_sorgtsqr_row( float* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_dormbr LAPACK_GLOBAL(dormbr,DORMBR) -void LAPACK_dormbr( +#define LAPACK_dormbr_base LAPACK_GLOBAL(dormbr,DORMBR) +void LAPACK_dormbr_base( char const* vect, char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, double const* A, lapack_int const* lda, double const* tau, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dormbr(...) LAPACK_dormbr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dormbr(...) LAPACK_dormbr_base(__VA_ARGS__) +#endif -#define LAPACK_sormbr LAPACK_GLOBAL(sormbr,SORMBR) -void LAPACK_sormbr( +#define LAPACK_sormbr_base LAPACK_GLOBAL(sormbr,SORMBR) +void LAPACK_sormbr_base( char const* vect, char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, float const* A, lapack_int const* lda, float const* tau, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sormbr(...) LAPACK_sormbr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sormbr(...) LAPACK_sormbr_base(__VA_ARGS__) +#endif -#define LAPACK_dormhr LAPACK_GLOBAL(dormhr,DORMHR) -void LAPACK_dormhr( +#define LAPACK_dormhr_base LAPACK_GLOBAL(dormhr,DORMHR) +void LAPACK_dormhr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, double const* A, lapack_int const* lda, double const* tau, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dormhr(...) LAPACK_dormhr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dormhr(...) LAPACK_dormhr_base(__VA_ARGS__) +#endif -#define LAPACK_sormhr LAPACK_GLOBAL(sormhr,SORMHR) -void LAPACK_sormhr( +#define LAPACK_sormhr_base LAPACK_GLOBAL(sormhr,SORMHR) +void LAPACK_sormhr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, float const* A, lapack_int const* lda, float const* tau, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sormhr(...) LAPACK_sormhr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sormhr(...) LAPACK_sormhr_base(__VA_ARGS__) +#endif -#define LAPACK_dormlq LAPACK_GLOBAL(dormlq,DORMLQ) -void LAPACK_dormlq( +#define LAPACK_dormlq_base LAPACK_GLOBAL(dormlq,DORMLQ) +void LAPACK_dormlq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, double const* A, lapack_int const* lda, double const* tau, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dormlq(...) LAPACK_dormlq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dormlq(...) LAPACK_dormlq_base(__VA_ARGS__) +#endif -#define LAPACK_sormlq LAPACK_GLOBAL(sormlq,SORMLQ) -void LAPACK_sormlq( +#define LAPACK_sormlq_base LAPACK_GLOBAL(sormlq,SORMLQ) +void LAPACK_sormlq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, float const* A, lapack_int const* lda, float const* tau, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sormlq(...) LAPACK_sormlq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sormlq(...) LAPACK_sormlq_base(__VA_ARGS__) +#endif -#define LAPACK_dormql LAPACK_GLOBAL(dormql,DORMQL) -void LAPACK_dormql( +#define LAPACK_dormql_base LAPACK_GLOBAL(dormql,DORMQL) +void LAPACK_dormql_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, double const* A, lapack_int const* lda, double const* tau, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dormql(...) LAPACK_dormql_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dormql(...) LAPACK_dormql_base(__VA_ARGS__) +#endif -#define LAPACK_sormql LAPACK_GLOBAL(sormql,SORMQL) -void LAPACK_sormql( +#define LAPACK_sormql_base LAPACK_GLOBAL(sormql,SORMQL) +void LAPACK_sormql_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, float const* A, lapack_int const* lda, float const* tau, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sormql(...) LAPACK_sormql_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sormql(...) LAPACK_sormql_base(__VA_ARGS__) +#endif -#define LAPACK_dormqr LAPACK_GLOBAL(dormqr,DORMQR) -void LAPACK_dormqr( +#define LAPACK_dormqr_base LAPACK_GLOBAL(dormqr,DORMQR) +void LAPACK_dormqr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, double const* A, lapack_int const* lda, double const* tau, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dormqr(...) LAPACK_dormqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dormqr(...) LAPACK_dormqr_base(__VA_ARGS__) +#endif -#define LAPACK_sormqr LAPACK_GLOBAL(sormqr,SORMQR) -void LAPACK_sormqr( +#define LAPACK_sormqr_base LAPACK_GLOBAL(sormqr,SORMQR) +void LAPACK_sormqr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, float const* A, lapack_int const* lda, float const* tau, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sormqr(...) LAPACK_sormqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sormqr(...) LAPACK_sormqr_base(__VA_ARGS__) +#endif -#define LAPACK_dormrq LAPACK_GLOBAL(dormrq,DORMRQ) -void LAPACK_dormrq( +#define LAPACK_dormrq_base LAPACK_GLOBAL(dormrq,DORMRQ) +void LAPACK_dormrq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, double const* A, lapack_int const* lda, double const* tau, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dormrq(...) LAPACK_dormrq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dormrq(...) LAPACK_dormrq_base(__VA_ARGS__) +#endif -#define LAPACK_sormrq LAPACK_GLOBAL(sormrq,SORMRQ) -void LAPACK_sormrq( +#define LAPACK_sormrq_base LAPACK_GLOBAL(sormrq,SORMRQ) +void LAPACK_sormrq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, float const* A, lapack_int const* lda, float const* tau, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sormrq(...) LAPACK_sormrq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sormrq(...) LAPACK_sormrq_base(__VA_ARGS__) +#endif -#define LAPACK_dormrz LAPACK_GLOBAL(dormrz,DORMRZ) -void LAPACK_dormrz( +#define LAPACK_dormrz_base LAPACK_GLOBAL(dormrz,DORMRZ) +void LAPACK_dormrz_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, double const* A, lapack_int const* lda, double const* tau, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dormrz(...) LAPACK_dormrz_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dormrz(...) LAPACK_dormrz_base(__VA_ARGS__) +#endif -#define LAPACK_sormrz LAPACK_GLOBAL(sormrz,SORMRZ) -void LAPACK_sormrz( +#define LAPACK_sormrz_base LAPACK_GLOBAL(sormrz,SORMRZ) +void LAPACK_sormrz_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, float const* A, lapack_int const* lda, float const* tau, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sormrz(...) LAPACK_sormrz_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sormrz(...) LAPACK_sormrz_base(__VA_ARGS__) +#endif -#define LAPACK_dormtr LAPACK_GLOBAL(dormtr,DORMTR) -void LAPACK_dormtr( +#define LAPACK_dormtr_base LAPACK_GLOBAL(dormtr,DORMTR) +void LAPACK_dormtr_base( char const* side, char const* uplo, char const* trans, lapack_int const* m, lapack_int const* n, double const* A, lapack_int const* lda, double const* tau, double* C, lapack_int const* ldc, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dormtr(...) LAPACK_dormtr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dormtr(...) LAPACK_dormtr_base(__VA_ARGS__) +#endif -#define LAPACK_sormtr LAPACK_GLOBAL(sormtr,SORMTR) -void LAPACK_sormtr( +#define LAPACK_sormtr_base LAPACK_GLOBAL(sormtr,SORMTR) +void LAPACK_sormtr_base( char const* side, char const* uplo, char const* trans, lapack_int const* m, lapack_int const* n, float const* A, lapack_int const* lda, float const* tau, float* C, lapack_int const* ldc, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sormtr(...) LAPACK_sormtr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sormtr(...) LAPACK_sormtr_base(__VA_ARGS__) +#endif -#define LAPACK_cpbcon LAPACK_GLOBAL(cpbcon,CPBCON) -void LAPACK_cpbcon( +#define LAPACK_cpbcon_base LAPACK_GLOBAL(cpbcon,CPBCON) +void LAPACK_cpbcon_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float const* AB, lapack_int const* ldab, @@ -7474,10 +11810,19 @@ void LAPACK_cpbcon( float* rcond, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpbcon(...) LAPACK_cpbcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpbcon(...) LAPACK_cpbcon_base(__VA_ARGS__) +#endif -#define LAPACK_dpbcon LAPACK_GLOBAL(dpbcon,DPBCON) -void LAPACK_dpbcon( +#define LAPACK_dpbcon_base LAPACK_GLOBAL(dpbcon,DPBCON) +void LAPACK_dpbcon_base( char const* uplo, lapack_int const* n, lapack_int const* kd, double const* AB, lapack_int const* ldab, @@ -7485,10 +11830,19 @@ void LAPACK_dpbcon( double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpbcon(...) LAPACK_dpbcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpbcon(...) LAPACK_dpbcon_base(__VA_ARGS__) +#endif -#define LAPACK_spbcon LAPACK_GLOBAL(spbcon,SPBCON) -void LAPACK_spbcon( +#define LAPACK_spbcon_base LAPACK_GLOBAL(spbcon,SPBCON) +void LAPACK_spbcon_base( char const* uplo, lapack_int const* n, lapack_int const* kd, float const* AB, lapack_int const* ldab, @@ -7496,10 +11850,19 @@ void LAPACK_spbcon( float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spbcon(...) LAPACK_spbcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_spbcon(...) LAPACK_spbcon_base(__VA_ARGS__) +#endif -#define LAPACK_zpbcon LAPACK_GLOBAL(zpbcon,ZPBCON) -void LAPACK_zpbcon( +#define LAPACK_zpbcon_base LAPACK_GLOBAL(zpbcon,ZPBCON) +void LAPACK_zpbcon_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double const* AB, lapack_int const* ldab, @@ -7507,50 +11870,95 @@ void LAPACK_zpbcon( double* rcond, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpbcon(...) LAPACK_zpbcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpbcon(...) LAPACK_zpbcon_base(__VA_ARGS__) +#endif -#define LAPACK_cpbequ LAPACK_GLOBAL(cpbequ,CPBEQU) -void LAPACK_cpbequ( +#define LAPACK_cpbequ_base LAPACK_GLOBAL(cpbequ,CPBEQU) +void LAPACK_cpbequ_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float const* AB, lapack_int const* ldab, float* S, float* scond, float* amax, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpbequ(...) LAPACK_cpbequ_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpbequ(...) LAPACK_cpbequ_base(__VA_ARGS__) +#endif -#define LAPACK_dpbequ LAPACK_GLOBAL(dpbequ,DPBEQU) -void LAPACK_dpbequ( +#define LAPACK_dpbequ_base LAPACK_GLOBAL(dpbequ,DPBEQU) +void LAPACK_dpbequ_base( char const* uplo, lapack_int const* n, lapack_int const* kd, double const* AB, lapack_int const* ldab, double* S, double* scond, double* amax, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpbequ(...) LAPACK_dpbequ_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpbequ(...) LAPACK_dpbequ_base(__VA_ARGS__) +#endif -#define LAPACK_spbequ LAPACK_GLOBAL(spbequ,SPBEQU) -void LAPACK_spbequ( +#define LAPACK_spbequ_base LAPACK_GLOBAL(spbequ,SPBEQU) +void LAPACK_spbequ_base( char const* uplo, lapack_int const* n, lapack_int const* kd, float const* AB, lapack_int const* ldab, float* S, float* scond, float* amax, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spbequ(...) LAPACK_spbequ_base(__VA_ARGS__, 1) +#else + #define LAPACK_spbequ(...) LAPACK_spbequ_base(__VA_ARGS__) +#endif -#define LAPACK_zpbequ LAPACK_GLOBAL(zpbequ,ZPBEQU) -void LAPACK_zpbequ( +#define LAPACK_zpbequ_base LAPACK_GLOBAL(zpbequ,ZPBEQU) +void LAPACK_zpbequ_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double const* AB, lapack_int const* ldab, double* S, double* scond, double* amax, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpbequ(...) LAPACK_zpbequ_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpbequ(...) LAPACK_zpbequ_base(__VA_ARGS__) +#endif -#define LAPACK_cpbrfs LAPACK_GLOBAL(cpbrfs,CPBRFS) -void LAPACK_cpbrfs( +#define LAPACK_cpbrfs_base LAPACK_GLOBAL(cpbrfs,CPBRFS) +void LAPACK_cpbrfs_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_float const* AB, lapack_int const* ldab, @@ -7561,10 +11969,19 @@ void LAPACK_cpbrfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpbrfs(...) LAPACK_cpbrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpbrfs(...) LAPACK_cpbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_dpbrfs LAPACK_GLOBAL(dpbrfs,DPBRFS) -void LAPACK_dpbrfs( +#define LAPACK_dpbrfs_base LAPACK_GLOBAL(dpbrfs,DPBRFS) +void LAPACK_dpbrfs_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, double const* AB, lapack_int const* ldab, @@ -7575,10 +11992,19 @@ void LAPACK_dpbrfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpbrfs(...) LAPACK_dpbrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpbrfs(...) LAPACK_dpbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_spbrfs LAPACK_GLOBAL(spbrfs,SPBRFS) -void LAPACK_spbrfs( +#define LAPACK_spbrfs_base LAPACK_GLOBAL(spbrfs,SPBRFS) +void LAPACK_spbrfs_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, float const* AB, lapack_int const* ldab, @@ -7589,10 +12015,19 @@ void LAPACK_spbrfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spbrfs(...) LAPACK_spbrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_spbrfs(...) LAPACK_spbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_zpbrfs LAPACK_GLOBAL(zpbrfs,ZPBRFS) -void LAPACK_zpbrfs( +#define LAPACK_zpbrfs_base LAPACK_GLOBAL(zpbrfs,ZPBRFS) +void LAPACK_zpbrfs_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_double const* AB, lapack_int const* ldab, @@ -7603,70 +12038,151 @@ void LAPACK_zpbrfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpbrfs(...) LAPACK_zpbrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpbrfs(...) LAPACK_zpbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_cpbstf LAPACK_GLOBAL(cpbstf,CPBSTF) -void LAPACK_cpbstf( +#define LAPACK_cpbstf_base LAPACK_GLOBAL(cpbstf,CPBSTF) +void LAPACK_cpbstf_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float* AB, lapack_int const* ldab, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpbstf(...) LAPACK_cpbstf_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpbstf(...) LAPACK_cpbstf_base(__VA_ARGS__) +#endif -#define LAPACK_dpbstf LAPACK_GLOBAL(dpbstf,DPBSTF) -void LAPACK_dpbstf( +#define LAPACK_dpbstf_base LAPACK_GLOBAL(dpbstf,DPBSTF) +void LAPACK_dpbstf_base( char const* uplo, lapack_int const* n, lapack_int const* kd, double* AB, lapack_int const* ldab, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpbstf(...) LAPACK_dpbstf_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpbstf(...) LAPACK_dpbstf_base(__VA_ARGS__) +#endif -#define LAPACK_spbstf LAPACK_GLOBAL(spbstf,SPBSTF) -void LAPACK_spbstf( +#define LAPACK_spbstf_base LAPACK_GLOBAL(spbstf,SPBSTF) +void LAPACK_spbstf_base( char const* uplo, lapack_int const* n, lapack_int const* kd, float* AB, lapack_int const* ldab, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spbstf(...) LAPACK_spbstf_base(__VA_ARGS__, 1) +#else + #define LAPACK_spbstf(...) LAPACK_spbstf_base(__VA_ARGS__) +#endif -#define LAPACK_zpbstf LAPACK_GLOBAL(zpbstf,ZPBSTF) -void LAPACK_zpbstf( +#define LAPACK_zpbstf_base LAPACK_GLOBAL(zpbstf,ZPBSTF) +void LAPACK_zpbstf_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double* AB, lapack_int const* ldab, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpbstf(...) LAPACK_zpbstf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpbstf(...) LAPACK_zpbstf_base(__VA_ARGS__) +#endif -#define LAPACK_cpbsv LAPACK_GLOBAL(cpbsv,CPBSV) -void LAPACK_cpbsv( +#define LAPACK_cpbsv_base LAPACK_GLOBAL(cpbsv,CPBSV) +void LAPACK_cpbsv_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_float* AB, lapack_int const* ldab, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpbsv(...) LAPACK_cpbsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpbsv(...) LAPACK_cpbsv_base(__VA_ARGS__) +#endif -#define LAPACK_dpbsv LAPACK_GLOBAL(dpbsv,DPBSV) -void LAPACK_dpbsv( +#define LAPACK_dpbsv_base LAPACK_GLOBAL(dpbsv,DPBSV) +void LAPACK_dpbsv_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, double* AB, lapack_int const* ldab, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpbsv(...) LAPACK_dpbsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpbsv(...) LAPACK_dpbsv_base(__VA_ARGS__) +#endif -#define LAPACK_spbsv LAPACK_GLOBAL(spbsv,SPBSV) -void LAPACK_spbsv( +#define LAPACK_spbsv_base LAPACK_GLOBAL(spbsv,SPBSV) +void LAPACK_spbsv_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, float* AB, lapack_int const* ldab, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spbsv(...) LAPACK_spbsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_spbsv(...) LAPACK_spbsv_base(__VA_ARGS__) +#endif -#define LAPACK_zpbsv LAPACK_GLOBAL(zpbsv,ZPBSV) -void LAPACK_zpbsv( +#define LAPACK_zpbsv_base LAPACK_GLOBAL(zpbsv,ZPBSV) +void LAPACK_zpbsv_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_double* AB, lapack_int const* ldab, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpbsv(...) LAPACK_zpbsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpbsv(...) LAPACK_zpbsv_base(__VA_ARGS__) +#endif -#define LAPACK_cpbsvx LAPACK_GLOBAL(cpbsvx,CPBSVX) -void LAPACK_cpbsvx( +#define LAPACK_cpbsvx_base LAPACK_GLOBAL(cpbsvx,CPBSVX) +void LAPACK_cpbsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_float* AB, lapack_int const* ldab, @@ -7680,10 +12196,19 @@ void LAPACK_cpbsvx( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpbsvx(...) LAPACK_cpbsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cpbsvx(...) LAPACK_cpbsvx_base(__VA_ARGS__) +#endif -#define LAPACK_dpbsvx LAPACK_GLOBAL(dpbsvx,DPBSVX) -void LAPACK_dpbsvx( +#define LAPACK_dpbsvx_base LAPACK_GLOBAL(dpbsvx,DPBSVX) +void LAPACK_dpbsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, double* AB, lapack_int const* ldab, @@ -7697,10 +12222,19 @@ void LAPACK_dpbsvx( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpbsvx(...) LAPACK_dpbsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dpbsvx(...) LAPACK_dpbsvx_base(__VA_ARGS__) +#endif -#define LAPACK_spbsvx LAPACK_GLOBAL(spbsvx,SPBSVX) -void LAPACK_spbsvx( +#define LAPACK_spbsvx_base LAPACK_GLOBAL(spbsvx,SPBSVX) +void LAPACK_spbsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, float* AB, lapack_int const* ldab, @@ -7714,10 +12248,19 @@ void LAPACK_spbsvx( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spbsvx(...) LAPACK_spbsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_spbsvx(...) LAPACK_spbsvx_base(__VA_ARGS__) +#endif -#define LAPACK_zpbsvx LAPACK_GLOBAL(zpbsvx,ZPBSVX) -void LAPACK_zpbsvx( +#define LAPACK_zpbsvx_base LAPACK_GLOBAL(zpbsvx,ZPBSVX) +void LAPACK_zpbsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_double* AB, lapack_int const* ldab, @@ -7731,158 +12274,347 @@ void LAPACK_zpbsvx( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpbsvx(...) LAPACK_zpbsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zpbsvx(...) LAPACK_zpbsvx_base(__VA_ARGS__) +#endif -#define LAPACK_cpbtrf LAPACK_GLOBAL(cpbtrf,CPBTRF) -void LAPACK_cpbtrf( +#define LAPACK_cpbtrf_base LAPACK_GLOBAL(cpbtrf,CPBTRF) +void LAPACK_cpbtrf_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_float* AB, lapack_int const* ldab, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpbtrf(...) LAPACK_cpbtrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpbtrf(...) LAPACK_cpbtrf_base(__VA_ARGS__) +#endif -#define LAPACK_dpbtrf LAPACK_GLOBAL(dpbtrf,DPBTRF) -void LAPACK_dpbtrf( +#define LAPACK_dpbtrf_base LAPACK_GLOBAL(dpbtrf,DPBTRF) +void LAPACK_dpbtrf_base( char const* uplo, lapack_int const* n, lapack_int const* kd, double* AB, lapack_int const* ldab, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpbtrf(...) LAPACK_dpbtrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpbtrf(...) LAPACK_dpbtrf_base(__VA_ARGS__) +#endif -#define LAPACK_spbtrf LAPACK_GLOBAL(spbtrf,SPBTRF) -void LAPACK_spbtrf( +#define LAPACK_spbtrf_base LAPACK_GLOBAL(spbtrf,SPBTRF) +void LAPACK_spbtrf_base( char const* uplo, lapack_int const* n, lapack_int const* kd, float* AB, lapack_int const* ldab, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spbtrf(...) LAPACK_spbtrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_spbtrf(...) LAPACK_spbtrf_base(__VA_ARGS__) +#endif -#define LAPACK_zpbtrf LAPACK_GLOBAL(zpbtrf,ZPBTRF) -void LAPACK_zpbtrf( +#define LAPACK_zpbtrf_base LAPACK_GLOBAL(zpbtrf,ZPBTRF) +void LAPACK_zpbtrf_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_complex_double* AB, lapack_int const* ldab, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpbtrf(...) LAPACK_zpbtrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpbtrf(...) LAPACK_zpbtrf_base(__VA_ARGS__) +#endif -#define LAPACK_cpbtrs LAPACK_GLOBAL(cpbtrs,CPBTRS) -void LAPACK_cpbtrs( +#define LAPACK_cpbtrs_base LAPACK_GLOBAL(cpbtrs,CPBTRS) +void LAPACK_cpbtrs_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_float const* AB, lapack_int const* ldab, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpbtrs(...) LAPACK_cpbtrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpbtrs(...) LAPACK_cpbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_dpbtrs LAPACK_GLOBAL(dpbtrs,DPBTRS) -void LAPACK_dpbtrs( +#define LAPACK_dpbtrs_base LAPACK_GLOBAL(dpbtrs,DPBTRS) +void LAPACK_dpbtrs_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, double const* AB, lapack_int const* ldab, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpbtrs(...) LAPACK_dpbtrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpbtrs(...) LAPACK_dpbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_spbtrs LAPACK_GLOBAL(spbtrs,SPBTRS) -void LAPACK_spbtrs( +#define LAPACK_spbtrs_base LAPACK_GLOBAL(spbtrs,SPBTRS) +void LAPACK_spbtrs_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, float const* AB, lapack_int const* ldab, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spbtrs(...) LAPACK_spbtrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_spbtrs(...) LAPACK_spbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_zpbtrs LAPACK_GLOBAL(zpbtrs,ZPBTRS) -void LAPACK_zpbtrs( +#define LAPACK_zpbtrs_base LAPACK_GLOBAL(zpbtrs,ZPBTRS) +void LAPACK_zpbtrs_base( char const* uplo, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_double const* AB, lapack_int const* ldab, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpbtrs(...) LAPACK_zpbtrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpbtrs(...) LAPACK_zpbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_cpftrf LAPACK_GLOBAL(cpftrf,CPFTRF) -void LAPACK_cpftrf( +#define LAPACK_cpftrf_base LAPACK_GLOBAL(cpftrf,CPFTRF) +void LAPACK_cpftrf_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_float* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpftrf(...) LAPACK_cpftrf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cpftrf(...) LAPACK_cpftrf_base(__VA_ARGS__) +#endif -#define LAPACK_dpftrf LAPACK_GLOBAL(dpftrf,DPFTRF) -void LAPACK_dpftrf( +#define LAPACK_dpftrf_base LAPACK_GLOBAL(dpftrf,DPFTRF) +void LAPACK_dpftrf_base( char const* transr, char const* uplo, lapack_int const* n, double* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpftrf(...) LAPACK_dpftrf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dpftrf(...) LAPACK_dpftrf_base(__VA_ARGS__) +#endif -#define LAPACK_spftrf LAPACK_GLOBAL(spftrf,SPFTRF) -void LAPACK_spftrf( +#define LAPACK_spftrf_base LAPACK_GLOBAL(spftrf,SPFTRF) +void LAPACK_spftrf_base( char const* transr, char const* uplo, lapack_int const* n, float* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spftrf(...) LAPACK_spftrf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_spftrf(...) LAPACK_spftrf_base(__VA_ARGS__) +#endif -#define LAPACK_zpftrf LAPACK_GLOBAL(zpftrf,ZPFTRF) -void LAPACK_zpftrf( +#define LAPACK_zpftrf_base LAPACK_GLOBAL(zpftrf,ZPFTRF) +void LAPACK_zpftrf_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_double* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpftrf(...) LAPACK_zpftrf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zpftrf(...) LAPACK_zpftrf_base(__VA_ARGS__) +#endif -#define LAPACK_cpftri LAPACK_GLOBAL(cpftri,CPFTRI) -void LAPACK_cpftri( +#define LAPACK_cpftri_base LAPACK_GLOBAL(cpftri,CPFTRI) +void LAPACK_cpftri_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_float* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpftri(...) LAPACK_cpftri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cpftri(...) LAPACK_cpftri_base(__VA_ARGS__) +#endif -#define LAPACK_dpftri LAPACK_GLOBAL(dpftri,DPFTRI) -void LAPACK_dpftri( +#define LAPACK_dpftri_base LAPACK_GLOBAL(dpftri,DPFTRI) +void LAPACK_dpftri_base( char const* transr, char const* uplo, lapack_int const* n, double* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpftri(...) LAPACK_dpftri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dpftri(...) LAPACK_dpftri_base(__VA_ARGS__) +#endif -#define LAPACK_spftri LAPACK_GLOBAL(spftri,SPFTRI) -void LAPACK_spftri( +#define LAPACK_spftri_base LAPACK_GLOBAL(spftri,SPFTRI) +void LAPACK_spftri_base( char const* transr, char const* uplo, lapack_int const* n, float* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spftri(...) LAPACK_spftri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_spftri(...) LAPACK_spftri_base(__VA_ARGS__) +#endif -#define LAPACK_zpftri LAPACK_GLOBAL(zpftri,ZPFTRI) -void LAPACK_zpftri( +#define LAPACK_zpftri_base LAPACK_GLOBAL(zpftri,ZPFTRI) +void LAPACK_zpftri_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_double* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpftri(...) LAPACK_zpftri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zpftri(...) LAPACK_zpftri_base(__VA_ARGS__) +#endif -#define LAPACK_cpftrs LAPACK_GLOBAL(cpftrs,CPFTRS) -void LAPACK_cpftrs( +#define LAPACK_cpftrs_base LAPACK_GLOBAL(cpftrs,CPFTRS) +void LAPACK_cpftrs_base( char const* transr, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpftrs(...) LAPACK_cpftrs_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cpftrs(...) LAPACK_cpftrs_base(__VA_ARGS__) +#endif -#define LAPACK_dpftrs LAPACK_GLOBAL(dpftrs,DPFTRS) -void LAPACK_dpftrs( +#define LAPACK_dpftrs_base LAPACK_GLOBAL(dpftrs,DPFTRS) +void LAPACK_dpftrs_base( char const* transr, char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpftrs(...) LAPACK_dpftrs_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dpftrs(...) LAPACK_dpftrs_base(__VA_ARGS__) +#endif -#define LAPACK_spftrs LAPACK_GLOBAL(spftrs,SPFTRS) -void LAPACK_spftrs( +#define LAPACK_spftrs_base LAPACK_GLOBAL(spftrs,SPFTRS) +void LAPACK_spftrs_base( char const* transr, char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spftrs(...) LAPACK_spftrs_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_spftrs(...) LAPACK_spftrs_base(__VA_ARGS__) +#endif -#define LAPACK_zpftrs LAPACK_GLOBAL(zpftrs,ZPFTRS) -void LAPACK_zpftrs( +#define LAPACK_zpftrs_base LAPACK_GLOBAL(zpftrs,ZPFTRS) +void LAPACK_zpftrs_base( char const* transr, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpftrs(...) LAPACK_zpftrs_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zpftrs(...) LAPACK_zpftrs_base(__VA_ARGS__) +#endif -#define LAPACK_cpocon LAPACK_GLOBAL(cpocon,CPOCON) -void LAPACK_cpocon( +#define LAPACK_cpocon_base LAPACK_GLOBAL(cpocon,CPOCON) +void LAPACK_cpocon_base( char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, @@ -7890,10 +12622,19 @@ void LAPACK_cpocon( float* rcond, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpocon(...) LAPACK_cpocon_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpocon(...) LAPACK_cpocon_base(__VA_ARGS__) +#endif -#define LAPACK_dpocon LAPACK_GLOBAL(dpocon,DPOCON) -void LAPACK_dpocon( +#define LAPACK_dpocon_base LAPACK_GLOBAL(dpocon,DPOCON) +void LAPACK_dpocon_base( char const* uplo, lapack_int const* n, double const* A, lapack_int const* lda, @@ -7901,10 +12642,19 @@ void LAPACK_dpocon( double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpocon(...) LAPACK_dpocon_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpocon(...) LAPACK_dpocon_base(__VA_ARGS__) +#endif -#define LAPACK_spocon LAPACK_GLOBAL(spocon,SPOCON) -void LAPACK_spocon( +#define LAPACK_spocon_base LAPACK_GLOBAL(spocon,SPOCON) +void LAPACK_spocon_base( char const* uplo, lapack_int const* n, float const* A, lapack_int const* lda, @@ -7912,10 +12662,19 @@ void LAPACK_spocon( float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spocon(...) LAPACK_spocon_base(__VA_ARGS__, 1) +#else + #define LAPACK_spocon(...) LAPACK_spocon_base(__VA_ARGS__) +#endif -#define LAPACK_zpocon LAPACK_GLOBAL(zpocon,ZPOCON) -void LAPACK_zpocon( +#define LAPACK_zpocon_base LAPACK_GLOBAL(zpocon,ZPOCON) +void LAPACK_zpocon_base( char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, @@ -7923,7 +12682,16 @@ void LAPACK_zpocon( double* rcond, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpocon(...) LAPACK_zpocon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpocon(...) LAPACK_zpocon_base(__VA_ARGS__) +#endif #define LAPACK_cpoequ LAPACK_GLOBAL(cpoequ,CPOEQU) void LAPACK_cpoequ( @@ -7997,8 +12765,8 @@ void LAPACK_zpoequb( double* amax, lapack_int* info ); -#define LAPACK_cporfs LAPACK_GLOBAL(cporfs,CPORFS) -void LAPACK_cporfs( +#define LAPACK_cporfs_base LAPACK_GLOBAL(cporfs,CPORFS) +void LAPACK_cporfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -8009,10 +12777,19 @@ void LAPACK_cporfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cporfs(...) LAPACK_cporfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cporfs(...) LAPACK_cporfs_base(__VA_ARGS__) +#endif -#define LAPACK_dporfs LAPACK_GLOBAL(dporfs,DPORFS) -void LAPACK_dporfs( +#define LAPACK_dporfs_base LAPACK_GLOBAL(dporfs,DPORFS) +void LAPACK_dporfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, @@ -8023,10 +12800,19 @@ void LAPACK_dporfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dporfs(...) LAPACK_dporfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dporfs(...) LAPACK_dporfs_base(__VA_ARGS__) +#endif -#define LAPACK_sporfs LAPACK_GLOBAL(sporfs,SPORFS) -void LAPACK_sporfs( +#define LAPACK_sporfs_base LAPACK_GLOBAL(sporfs,SPORFS) +void LAPACK_sporfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, @@ -8037,10 +12823,19 @@ void LAPACK_sporfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sporfs(...) LAPACK_sporfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_sporfs(...) LAPACK_sporfs_base(__VA_ARGS__) +#endif -#define LAPACK_zporfs LAPACK_GLOBAL(zporfs,ZPORFS) -void LAPACK_zporfs( +#define LAPACK_zporfs_base LAPACK_GLOBAL(zporfs,ZPORFS) +void LAPACK_zporfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -8051,10 +12846,19 @@ void LAPACK_zporfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zporfs(...) LAPACK_zporfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zporfs(...) LAPACK_zporfs_base(__VA_ARGS__) +#endif -#define LAPACK_cporfsx LAPACK_GLOBAL(cporfsx,CPORFSX) -void LAPACK_cporfsx( +#define LAPACK_cporfsx_base LAPACK_GLOBAL(cporfsx,CPORFSX) +void LAPACK_cporfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -8069,10 +12873,19 @@ void LAPACK_cporfsx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cporfsx(...) LAPACK_cporfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cporfsx(...) LAPACK_cporfsx_base(__VA_ARGS__) +#endif -#define LAPACK_dporfsx LAPACK_GLOBAL(dporfsx,DPORFSX) -void LAPACK_dporfsx( +#define LAPACK_dporfsx_base LAPACK_GLOBAL(dporfsx,DPORFSX) +void LAPACK_dporfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, @@ -8087,10 +12900,19 @@ void LAPACK_dporfsx( double* params, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dporfsx(...) LAPACK_dporfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dporfsx(...) LAPACK_dporfsx_base(__VA_ARGS__) +#endif -#define LAPACK_sporfsx LAPACK_GLOBAL(sporfsx,SPORFSX) -void LAPACK_sporfsx( +#define LAPACK_sporfsx_base LAPACK_GLOBAL(sporfsx,SPORFSX) +void LAPACK_sporfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, @@ -8105,10 +12927,19 @@ void LAPACK_sporfsx( float* params, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sporfsx(...) LAPACK_sporfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sporfsx(...) LAPACK_sporfsx_base(__VA_ARGS__) +#endif -#define LAPACK_zporfsx LAPACK_GLOBAL(zporfsx,ZPORFSX) -void LAPACK_zporfsx( +#define LAPACK_zporfsx_base LAPACK_GLOBAL(zporfsx,ZPORFSX) +void LAPACK_zporfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -8123,42 +12954,87 @@ void LAPACK_zporfsx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zporfsx(...) LAPACK_zporfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zporfsx(...) LAPACK_zporfsx_base(__VA_ARGS__) +#endif -#define LAPACK_cposv LAPACK_GLOBAL(cposv,CPOSV) -void LAPACK_cposv( +#define LAPACK_cposv_base LAPACK_GLOBAL(cposv,CPOSV) +void LAPACK_cposv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cposv(...) LAPACK_cposv_base(__VA_ARGS__, 1) +#else + #define LAPACK_cposv(...) LAPACK_cposv_base(__VA_ARGS__) +#endif -#define LAPACK_dposv LAPACK_GLOBAL(dposv,DPOSV) -void LAPACK_dposv( +#define LAPACK_dposv_base LAPACK_GLOBAL(dposv,DPOSV) +void LAPACK_dposv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dposv(...) LAPACK_dposv_base(__VA_ARGS__, 1) +#else + #define LAPACK_dposv(...) LAPACK_dposv_base(__VA_ARGS__) +#endif -#define LAPACK_sposv LAPACK_GLOBAL(sposv,SPOSV) -void LAPACK_sposv( +#define LAPACK_sposv_base LAPACK_GLOBAL(sposv,SPOSV) +void LAPACK_sposv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sposv(...) LAPACK_sposv_base(__VA_ARGS__, 1) +#else + #define LAPACK_sposv(...) LAPACK_sposv_base(__VA_ARGS__) +#endif -#define LAPACK_zposv LAPACK_GLOBAL(zposv,ZPOSV) -void LAPACK_zposv( +#define LAPACK_zposv_base LAPACK_GLOBAL(zposv,ZPOSV) +void LAPACK_zposv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zposv(...) LAPACK_zposv_base(__VA_ARGS__, 1) +#else + #define LAPACK_zposv(...) LAPACK_zposv_base(__VA_ARGS__) +#endif -#define LAPACK_dsposv LAPACK_GLOBAL(dsposv,DSPOSV) -void LAPACK_dsposv( +#define LAPACK_dsposv_base LAPACK_GLOBAL(dsposv,DSPOSV) +void LAPACK_dsposv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, @@ -8166,10 +13042,19 @@ void LAPACK_dsposv( double* X, lapack_int const* ldx, double* work, float* swork, lapack_int* iter, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsposv(...) LAPACK_dsposv_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsposv(...) LAPACK_dsposv_base(__VA_ARGS__) +#endif -#define LAPACK_zcposv LAPACK_GLOBAL(zcposv,ZCPOSV) -void LAPACK_zcposv( +#define LAPACK_zcposv_base LAPACK_GLOBAL(zcposv,ZCPOSV) +void LAPACK_zcposv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, @@ -8178,10 +13063,19 @@ void LAPACK_zcposv( lapack_complex_double* work, lapack_complex_float* swork, double* rwork, lapack_int* iter, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zcposv(...) LAPACK_zcposv_base(__VA_ARGS__, 1) +#else + #define LAPACK_zcposv(...) LAPACK_zcposv_base(__VA_ARGS__) +#endif -#define LAPACK_cposvx LAPACK_GLOBAL(cposvx,CPOSVX) -void LAPACK_cposvx( +#define LAPACK_cposvx_base LAPACK_GLOBAL(cposvx,CPOSVX) +void LAPACK_cposvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, @@ -8195,10 +13089,19 @@ void LAPACK_cposvx( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cposvx(...) LAPACK_cposvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cposvx(...) LAPACK_cposvx_base(__VA_ARGS__) +#endif -#define LAPACK_dposvx LAPACK_GLOBAL(dposvx,DPOSVX) -void LAPACK_dposvx( +#define LAPACK_dposvx_base LAPACK_GLOBAL(dposvx,DPOSVX) +void LAPACK_dposvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, @@ -8212,10 +13115,19 @@ void LAPACK_dposvx( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dposvx(...) LAPACK_dposvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dposvx(...) LAPACK_dposvx_base(__VA_ARGS__) +#endif -#define LAPACK_sposvx LAPACK_GLOBAL(sposvx,SPOSVX) -void LAPACK_sposvx( +#define LAPACK_sposvx_base LAPACK_GLOBAL(sposvx,SPOSVX) +void LAPACK_sposvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, @@ -8229,10 +13141,19 @@ void LAPACK_sposvx( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sposvx(...) LAPACK_sposvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sposvx(...) LAPACK_sposvx_base(__VA_ARGS__) +#endif -#define LAPACK_zposvx LAPACK_GLOBAL(zposvx,ZPOSVX) -void LAPACK_zposvx( +#define LAPACK_zposvx_base LAPACK_GLOBAL(zposvx,ZPOSVX) +void LAPACK_zposvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, @@ -8246,10 +13167,19 @@ void LAPACK_zposvx( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zposvx(...) LAPACK_zposvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zposvx(...) LAPACK_zposvx_base(__VA_ARGS__) +#endif -#define LAPACK_cposvxx LAPACK_GLOBAL(cposvxx,CPOSVXX) -void LAPACK_cposvxx( +#define LAPACK_cposvxx_base LAPACK_GLOBAL(cposvxx,CPOSVXX) +void LAPACK_cposvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, @@ -8266,10 +13196,19 @@ void LAPACK_cposvxx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cposvxx(...) LAPACK_cposvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cposvxx(...) LAPACK_cposvxx_base(__VA_ARGS__) +#endif -#define LAPACK_dposvxx LAPACK_GLOBAL(dposvxx,DPOSVXX) -void LAPACK_dposvxx( +#define LAPACK_dposvxx_base LAPACK_GLOBAL(dposvxx,DPOSVXX) +void LAPACK_dposvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, @@ -8286,10 +13225,19 @@ void LAPACK_dposvxx( double* params, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dposvxx(...) LAPACK_dposvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dposvxx(...) LAPACK_dposvxx_base(__VA_ARGS__) +#endif -#define LAPACK_sposvxx LAPACK_GLOBAL(sposvxx,SPOSVXX) -void LAPACK_sposvxx( +#define LAPACK_sposvxx_base LAPACK_GLOBAL(sposvxx,SPOSVXX) +void LAPACK_sposvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, @@ -8306,10 +13254,19 @@ void LAPACK_sposvxx( float* params, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sposvxx(...) LAPACK_sposvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sposvxx(...) LAPACK_sposvxx_base(__VA_ARGS__) +#endif -#define LAPACK_zposvxx LAPACK_GLOBAL(zposvxx,ZPOSVXX) -void LAPACK_zposvxx( +#define LAPACK_zposvxx_base LAPACK_GLOBAL(zposvxx,ZPOSVXX) +void LAPACK_zposvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, @@ -8326,154 +13283,343 @@ void LAPACK_zposvxx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zposvxx(...) LAPACK_zposvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zposvxx(...) LAPACK_zposvxx_base(__VA_ARGS__) +#endif -#define LAPACK_cpotf2 LAPACK_GLOBAL(cpotf2,CPOTF2) -void LAPACK_cpotf2( +#define LAPACK_cpotf2_base LAPACK_GLOBAL(cpotf2,CPOTF2) +void LAPACK_cpotf2_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpotf2(...) LAPACK_cpotf2_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpotf2(...) LAPACK_cpotf2_base(__VA_ARGS__) +#endif -#define LAPACK_dpotf2 LAPACK_GLOBAL(dpotf2,DPOTF2) -void LAPACK_dpotf2( +#define LAPACK_dpotf2_base LAPACK_GLOBAL(dpotf2,DPOTF2) +void LAPACK_dpotf2_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpotf2(...) LAPACK_dpotf2_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpotf2(...) LAPACK_dpotf2_base(__VA_ARGS__) +#endif -#define LAPACK_spotf2 LAPACK_GLOBAL(spotf2,SPOTF2) -void LAPACK_spotf2( +#define LAPACK_spotf2_base LAPACK_GLOBAL(spotf2,SPOTF2) +void LAPACK_spotf2_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spotf2(...) LAPACK_spotf2_base(__VA_ARGS__, 1) +#else + #define LAPACK_spotf2(...) LAPACK_spotf2_base(__VA_ARGS__) +#endif -#define LAPACK_zpotf2 LAPACK_GLOBAL(zpotf2,ZPOTF2) -void LAPACK_zpotf2( +#define LAPACK_zpotf2_base LAPACK_GLOBAL(zpotf2,ZPOTF2) +void LAPACK_zpotf2_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpotf2(...) LAPACK_zpotf2_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpotf2(...) LAPACK_zpotf2_base(__VA_ARGS__) +#endif -#define LAPACK_cpotrf LAPACK_GLOBAL(cpotrf,CPOTRF) -void LAPACK_cpotrf( +#define LAPACK_cpotrf_base LAPACK_GLOBAL(cpotrf,CPOTRF) +void LAPACK_cpotrf_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpotrf(...) LAPACK_cpotrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpotrf(...) LAPACK_cpotrf_base(__VA_ARGS__) +#endif -#define LAPACK_dpotrf LAPACK_GLOBAL(dpotrf,DPOTRF) -void LAPACK_dpotrf( +#define LAPACK_dpotrf_base LAPACK_GLOBAL(dpotrf,DPOTRF) +void LAPACK_dpotrf_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpotrf(...) LAPACK_dpotrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpotrf(...) LAPACK_dpotrf_base(__VA_ARGS__) +#endif -#define LAPACK_spotrf LAPACK_GLOBAL(spotrf,SPOTRF) -void LAPACK_spotrf( +#define LAPACK_spotrf_base LAPACK_GLOBAL(spotrf,SPOTRF) +void LAPACK_spotrf_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spotrf(...) LAPACK_spotrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_spotrf(...) LAPACK_spotrf_base(__VA_ARGS__) +#endif -#define LAPACK_zpotrf LAPACK_GLOBAL(zpotrf,ZPOTRF) -void LAPACK_zpotrf( +#define LAPACK_zpotrf_base LAPACK_GLOBAL(zpotrf,ZPOTRF) +void LAPACK_zpotrf_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpotrf(...) LAPACK_zpotrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpotrf(...) LAPACK_zpotrf_base(__VA_ARGS__) +#endif -#define LAPACK_cpotrf2 LAPACK_GLOBAL(cpotrf2,CPOTRF2) -void LAPACK_cpotrf2( +#define LAPACK_cpotrf2_base LAPACK_GLOBAL(cpotrf2,CPOTRF2) +void LAPACK_cpotrf2_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpotrf2(...) LAPACK_cpotrf2_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpotrf2(...) LAPACK_cpotrf2_base(__VA_ARGS__) +#endif -#define LAPACK_dpotrf2 LAPACK_GLOBAL(dpotrf2,DPOTRF2) -void LAPACK_dpotrf2( +#define LAPACK_dpotrf2_base LAPACK_GLOBAL(dpotrf2,DPOTRF2) +void LAPACK_dpotrf2_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpotrf2(...) LAPACK_dpotrf2_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpotrf2(...) LAPACK_dpotrf2_base(__VA_ARGS__) +#endif -#define LAPACK_spotrf2 LAPACK_GLOBAL(spotrf2,SPOTRF2) -void LAPACK_spotrf2( +#define LAPACK_spotrf2_base LAPACK_GLOBAL(spotrf2,SPOTRF2) +void LAPACK_spotrf2_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spotrf2(...) LAPACK_spotrf2_base(__VA_ARGS__, 1) +#else + #define LAPACK_spotrf2(...) LAPACK_spotrf2_base(__VA_ARGS__) +#endif -#define LAPACK_zpotrf2 LAPACK_GLOBAL(zpotrf2,ZPOTRF2) -void LAPACK_zpotrf2( +#define LAPACK_zpotrf2_base LAPACK_GLOBAL(zpotrf2,ZPOTRF2) +void LAPACK_zpotrf2_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpotrf2(...) LAPACK_zpotrf2_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpotrf2(...) LAPACK_zpotrf2_base(__VA_ARGS__) +#endif -#define LAPACK_cpotri LAPACK_GLOBAL(cpotri,CPOTRI) -void LAPACK_cpotri( +#define LAPACK_cpotri_base LAPACK_GLOBAL(cpotri,CPOTRI) +void LAPACK_cpotri_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpotri(...) LAPACK_cpotri_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpotri(...) LAPACK_cpotri_base(__VA_ARGS__) +#endif -#define LAPACK_dpotri LAPACK_GLOBAL(dpotri,DPOTRI) -void LAPACK_dpotri( +#define LAPACK_dpotri_base LAPACK_GLOBAL(dpotri,DPOTRI) +void LAPACK_dpotri_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpotri(...) LAPACK_dpotri_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpotri(...) LAPACK_dpotri_base(__VA_ARGS__) +#endif -#define LAPACK_spotri LAPACK_GLOBAL(spotri,SPOTRI) -void LAPACK_spotri( +#define LAPACK_spotri_base LAPACK_GLOBAL(spotri,SPOTRI) +void LAPACK_spotri_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spotri(...) LAPACK_spotri_base(__VA_ARGS__, 1) +#else + #define LAPACK_spotri(...) LAPACK_spotri_base(__VA_ARGS__) +#endif -#define LAPACK_zpotri LAPACK_GLOBAL(zpotri,ZPOTRI) -void LAPACK_zpotri( +#define LAPACK_zpotri_base LAPACK_GLOBAL(zpotri,ZPOTRI) +void LAPACK_zpotri_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpotri(...) LAPACK_zpotri_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpotri(...) LAPACK_zpotri_base(__VA_ARGS__) +#endif -#define LAPACK_cpotrs LAPACK_GLOBAL(cpotrs,CPOTRS) -void LAPACK_cpotrs( +#define LAPACK_cpotrs_base LAPACK_GLOBAL(cpotrs,CPOTRS) +void LAPACK_cpotrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpotrs(...) LAPACK_cpotrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpotrs(...) LAPACK_cpotrs_base(__VA_ARGS__) +#endif -#define LAPACK_dpotrs LAPACK_GLOBAL(dpotrs,DPOTRS) -void LAPACK_dpotrs( +#define LAPACK_dpotrs_base LAPACK_GLOBAL(dpotrs,DPOTRS) +void LAPACK_dpotrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpotrs(...) LAPACK_dpotrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpotrs(...) LAPACK_dpotrs_base(__VA_ARGS__) +#endif -#define LAPACK_spotrs LAPACK_GLOBAL(spotrs,SPOTRS) -void LAPACK_spotrs( +#define LAPACK_spotrs_base LAPACK_GLOBAL(spotrs,SPOTRS) +void LAPACK_spotrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spotrs(...) LAPACK_spotrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_spotrs(...) LAPACK_spotrs_base(__VA_ARGS__) +#endif -#define LAPACK_zpotrs LAPACK_GLOBAL(zpotrs,ZPOTRS) -void LAPACK_zpotrs( +#define LAPACK_zpotrs_base LAPACK_GLOBAL(zpotrs,ZPOTRS) +void LAPACK_zpotrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpotrs(...) LAPACK_zpotrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpotrs(...) LAPACK_zpotrs_base(__VA_ARGS__) +#endif -#define LAPACK_cppcon LAPACK_GLOBAL(cppcon,CPPCON) -void LAPACK_cppcon( +#define LAPACK_cppcon_base LAPACK_GLOBAL(cppcon,CPPCON) +void LAPACK_cppcon_base( char const* uplo, lapack_int const* n, lapack_complex_float const* AP, @@ -8481,10 +13627,19 @@ void LAPACK_cppcon( float* rcond, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cppcon(...) LAPACK_cppcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_cppcon(...) LAPACK_cppcon_base(__VA_ARGS__) +#endif -#define LAPACK_dppcon LAPACK_GLOBAL(dppcon,DPPCON) -void LAPACK_dppcon( +#define LAPACK_dppcon_base LAPACK_GLOBAL(dppcon,DPPCON) +void LAPACK_dppcon_base( char const* uplo, lapack_int const* n, double const* AP, @@ -8492,10 +13647,19 @@ void LAPACK_dppcon( double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dppcon(...) LAPACK_dppcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_dppcon(...) LAPACK_dppcon_base(__VA_ARGS__) +#endif -#define LAPACK_sppcon LAPACK_GLOBAL(sppcon,SPPCON) -void LAPACK_sppcon( +#define LAPACK_sppcon_base LAPACK_GLOBAL(sppcon,SPPCON) +void LAPACK_sppcon_base( char const* uplo, lapack_int const* n, float const* AP, @@ -8503,10 +13667,19 @@ void LAPACK_sppcon( float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sppcon(...) LAPACK_sppcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_sppcon(...) LAPACK_sppcon_base(__VA_ARGS__) +#endif -#define LAPACK_zppcon LAPACK_GLOBAL(zppcon,ZPPCON) -void LAPACK_zppcon( +#define LAPACK_zppcon_base LAPACK_GLOBAL(zppcon,ZPPCON) +void LAPACK_zppcon_base( char const* uplo, lapack_int const* n, lapack_complex_double const* AP, @@ -8514,50 +13687,95 @@ void LAPACK_zppcon( double* rcond, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zppcon(...) LAPACK_zppcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zppcon(...) LAPACK_zppcon_base(__VA_ARGS__) +#endif -#define LAPACK_cppequ LAPACK_GLOBAL(cppequ,CPPEQU) -void LAPACK_cppequ( +#define LAPACK_cppequ_base LAPACK_GLOBAL(cppequ,CPPEQU) +void LAPACK_cppequ_base( char const* uplo, lapack_int const* n, lapack_complex_float const* AP, float* S, float* scond, float* amax, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cppequ(...) LAPACK_cppequ_base(__VA_ARGS__, 1) +#else + #define LAPACK_cppequ(...) LAPACK_cppequ_base(__VA_ARGS__) +#endif -#define LAPACK_dppequ LAPACK_GLOBAL(dppequ,DPPEQU) -void LAPACK_dppequ( +#define LAPACK_dppequ_base LAPACK_GLOBAL(dppequ,DPPEQU) +void LAPACK_dppequ_base( char const* uplo, lapack_int const* n, double const* AP, double* S, double* scond, double* amax, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dppequ(...) LAPACK_dppequ_base(__VA_ARGS__, 1) +#else + #define LAPACK_dppequ(...) LAPACK_dppequ_base(__VA_ARGS__) +#endif -#define LAPACK_sppequ LAPACK_GLOBAL(sppequ,SPPEQU) -void LAPACK_sppequ( +#define LAPACK_sppequ_base LAPACK_GLOBAL(sppequ,SPPEQU) +void LAPACK_sppequ_base( char const* uplo, lapack_int const* n, float const* AP, float* S, float* scond, float* amax, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sppequ(...) LAPACK_sppequ_base(__VA_ARGS__, 1) +#else + #define LAPACK_sppequ(...) LAPACK_sppequ_base(__VA_ARGS__) +#endif -#define LAPACK_zppequ LAPACK_GLOBAL(zppequ,ZPPEQU) -void LAPACK_zppequ( +#define LAPACK_zppequ_base LAPACK_GLOBAL(zppequ,ZPPEQU) +void LAPACK_zppequ_base( char const* uplo, lapack_int const* n, lapack_complex_double const* AP, double* S, double* scond, double* amax, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zppequ(...) LAPACK_zppequ_base(__VA_ARGS__, 1) +#else + #define LAPACK_zppequ(...) LAPACK_zppequ_base(__VA_ARGS__) +#endif -#define LAPACK_cpprfs LAPACK_GLOBAL(cpprfs,CPPRFS) -void LAPACK_cpprfs( +#define LAPACK_cpprfs_base LAPACK_GLOBAL(cpprfs,CPPRFS) +void LAPACK_cpprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, @@ -8568,10 +13786,19 @@ void LAPACK_cpprfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpprfs(...) LAPACK_cpprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpprfs(...) LAPACK_cpprfs_base(__VA_ARGS__) +#endif -#define LAPACK_dpprfs LAPACK_GLOBAL(dpprfs,DPPRFS) -void LAPACK_dpprfs( +#define LAPACK_dpprfs_base LAPACK_GLOBAL(dpprfs,DPPRFS) +void LAPACK_dpprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* AP, @@ -8582,10 +13809,19 @@ void LAPACK_dpprfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpprfs(...) LAPACK_dpprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpprfs(...) LAPACK_dpprfs_base(__VA_ARGS__) +#endif -#define LAPACK_spprfs LAPACK_GLOBAL(spprfs,SPPRFS) -void LAPACK_spprfs( +#define LAPACK_spprfs_base LAPACK_GLOBAL(spprfs,SPPRFS) +void LAPACK_spprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* AP, @@ -8596,10 +13832,19 @@ void LAPACK_spprfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spprfs(...) LAPACK_spprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_spprfs(...) LAPACK_spprfs_base(__VA_ARGS__) +#endif -#define LAPACK_zpprfs LAPACK_GLOBAL(zpprfs,ZPPRFS) -void LAPACK_zpprfs( +#define LAPACK_zpprfs_base LAPACK_GLOBAL(zpprfs,ZPPRFS) +void LAPACK_zpprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, @@ -8610,42 +13855,87 @@ void LAPACK_zpprfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpprfs(...) LAPACK_zpprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpprfs(...) LAPACK_zpprfs_base(__VA_ARGS__) +#endif -#define LAPACK_cppsv LAPACK_GLOBAL(cppsv,CPPSV) -void LAPACK_cppsv( +#define LAPACK_cppsv_base LAPACK_GLOBAL(cppsv,CPPSV) +void LAPACK_cppsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* AP, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cppsv(...) LAPACK_cppsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_cppsv(...) LAPACK_cppsv_base(__VA_ARGS__) +#endif -#define LAPACK_dppsv LAPACK_GLOBAL(dppsv,DPPSV) -void LAPACK_dppsv( +#define LAPACK_dppsv_base LAPACK_GLOBAL(dppsv,DPPSV) +void LAPACK_dppsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* AP, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dppsv(...) LAPACK_dppsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_dppsv(...) LAPACK_dppsv_base(__VA_ARGS__) +#endif -#define LAPACK_sppsv LAPACK_GLOBAL(sppsv,SPPSV) -void LAPACK_sppsv( +#define LAPACK_sppsv_base LAPACK_GLOBAL(sppsv,SPPSV) +void LAPACK_sppsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* AP, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sppsv(...) LAPACK_sppsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_sppsv(...) LAPACK_sppsv_base(__VA_ARGS__) +#endif -#define LAPACK_zppsv LAPACK_GLOBAL(zppsv,ZPPSV) -void LAPACK_zppsv( +#define LAPACK_zppsv_base LAPACK_GLOBAL(zppsv,ZPPSV) +void LAPACK_zppsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* AP, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zppsv(...) LAPACK_zppsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_zppsv(...) LAPACK_zppsv_base(__VA_ARGS__) +#endif -#define LAPACK_cppsvx LAPACK_GLOBAL(cppsvx,CPPSVX) -void LAPACK_cppsvx( +#define LAPACK_cppsvx_base LAPACK_GLOBAL(cppsvx,CPPSVX) +void LAPACK_cppsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* AP, @@ -8659,10 +13949,19 @@ void LAPACK_cppsvx( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cppsvx(...) LAPACK_cppsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cppsvx(...) LAPACK_cppsvx_base(__VA_ARGS__) +#endif -#define LAPACK_dppsvx LAPACK_GLOBAL(dppsvx,DPPSVX) -void LAPACK_dppsvx( +#define LAPACK_dppsvx_base LAPACK_GLOBAL(dppsvx,DPPSVX) +void LAPACK_dppsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* AP, @@ -8676,10 +13975,19 @@ void LAPACK_dppsvx( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dppsvx(...) LAPACK_dppsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dppsvx(...) LAPACK_dppsvx_base(__VA_ARGS__) +#endif -#define LAPACK_sppsvx LAPACK_GLOBAL(sppsvx,SPPSVX) -void LAPACK_sppsvx( +#define LAPACK_sppsvx_base LAPACK_GLOBAL(sppsvx,SPPSVX) +void LAPACK_sppsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* AP, @@ -8693,10 +14001,19 @@ void LAPACK_sppsvx( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sppsvx(...) LAPACK_sppsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sppsvx(...) LAPACK_sppsvx_base(__VA_ARGS__) +#endif -#define LAPACK_zppsvx LAPACK_GLOBAL(zppsvx,ZPPSVX) -void LAPACK_zppsvx( +#define LAPACK_zppsvx_base LAPACK_GLOBAL(zppsvx,ZPPSVX) +void LAPACK_zppsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* AP, @@ -8710,131 +14027,284 @@ void LAPACK_zppsvx( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zppsvx(...) LAPACK_zppsvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zppsvx(...) LAPACK_zppsvx_base(__VA_ARGS__) +#endif -#define LAPACK_cpptrf LAPACK_GLOBAL(cpptrf,CPPTRF) -void LAPACK_cpptrf( +#define LAPACK_cpptrf_base LAPACK_GLOBAL(cpptrf,CPPTRF) +void LAPACK_cpptrf_base( char const* uplo, lapack_int const* n, lapack_complex_float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpptrf(...) LAPACK_cpptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpptrf(...) LAPACK_cpptrf_base(__VA_ARGS__) +#endif -#define LAPACK_dpptrf LAPACK_GLOBAL(dpptrf,DPPTRF) -void LAPACK_dpptrf( +#define LAPACK_dpptrf_base LAPACK_GLOBAL(dpptrf,DPPTRF) +void LAPACK_dpptrf_base( char const* uplo, lapack_int const* n, double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpptrf(...) LAPACK_dpptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpptrf(...) LAPACK_dpptrf_base(__VA_ARGS__) +#endif -#define LAPACK_spptrf LAPACK_GLOBAL(spptrf,SPPTRF) -void LAPACK_spptrf( +#define LAPACK_spptrf_base LAPACK_GLOBAL(spptrf,SPPTRF) +void LAPACK_spptrf_base( char const* uplo, lapack_int const* n, float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spptrf(...) LAPACK_spptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_spptrf(...) LAPACK_spptrf_base(__VA_ARGS__) +#endif -#define LAPACK_zpptrf LAPACK_GLOBAL(zpptrf,ZPPTRF) -void LAPACK_zpptrf( +#define LAPACK_zpptrf_base LAPACK_GLOBAL(zpptrf,ZPPTRF) +void LAPACK_zpptrf_base( char const* uplo, lapack_int const* n, lapack_complex_double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpptrf(...) LAPACK_zpptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpptrf(...) LAPACK_zpptrf_base(__VA_ARGS__) +#endif -#define LAPACK_cpptri LAPACK_GLOBAL(cpptri,CPPTRI) -void LAPACK_cpptri( +#define LAPACK_cpptri_base LAPACK_GLOBAL(cpptri,CPPTRI) +void LAPACK_cpptri_base( char const* uplo, lapack_int const* n, lapack_complex_float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpptri(...) LAPACK_cpptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpptri(...) LAPACK_cpptri_base(__VA_ARGS__) +#endif -#define LAPACK_dpptri LAPACK_GLOBAL(dpptri,DPPTRI) -void LAPACK_dpptri( +#define LAPACK_dpptri_base LAPACK_GLOBAL(dpptri,DPPTRI) +void LAPACK_dpptri_base( char const* uplo, lapack_int const* n, double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpptri(...) LAPACK_dpptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpptri(...) LAPACK_dpptri_base(__VA_ARGS__) +#endif -#define LAPACK_spptri LAPACK_GLOBAL(spptri,SPPTRI) -void LAPACK_spptri( +#define LAPACK_spptri_base LAPACK_GLOBAL(spptri,SPPTRI) +void LAPACK_spptri_base( char const* uplo, lapack_int const* n, float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spptri(...) LAPACK_spptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_spptri(...) LAPACK_spptri_base(__VA_ARGS__) +#endif -#define LAPACK_zpptri LAPACK_GLOBAL(zpptri,ZPPTRI) -void LAPACK_zpptri( +#define LAPACK_zpptri_base LAPACK_GLOBAL(zpptri,ZPPTRI) +void LAPACK_zpptri_base( char const* uplo, lapack_int const* n, lapack_complex_double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpptri(...) LAPACK_zpptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpptri(...) LAPACK_zpptri_base(__VA_ARGS__) +#endif -#define LAPACK_cpptrs LAPACK_GLOBAL(cpptrs,CPPTRS) -void LAPACK_cpptrs( +#define LAPACK_cpptrs_base LAPACK_GLOBAL(cpptrs,CPPTRS) +void LAPACK_cpptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpptrs(...) LAPACK_cpptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpptrs(...) LAPACK_cpptrs_base(__VA_ARGS__) +#endif -#define LAPACK_dpptrs LAPACK_GLOBAL(dpptrs,DPPTRS) -void LAPACK_dpptrs( +#define LAPACK_dpptrs_base LAPACK_GLOBAL(dpptrs,DPPTRS) +void LAPACK_dpptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* AP, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpptrs(...) LAPACK_dpptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpptrs(...) LAPACK_dpptrs_base(__VA_ARGS__) +#endif -#define LAPACK_spptrs LAPACK_GLOBAL(spptrs,SPPTRS) -void LAPACK_spptrs( +#define LAPACK_spptrs_base LAPACK_GLOBAL(spptrs,SPPTRS) +void LAPACK_spptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* AP, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spptrs(...) LAPACK_spptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_spptrs(...) LAPACK_spptrs_base(__VA_ARGS__) +#endif -#define LAPACK_zpptrs LAPACK_GLOBAL(zpptrs,ZPPTRS) -void LAPACK_zpptrs( +#define LAPACK_zpptrs_base LAPACK_GLOBAL(zpptrs,ZPPTRS) +void LAPACK_zpptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpptrs(...) LAPACK_zpptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpptrs(...) LAPACK_zpptrs_base(__VA_ARGS__) +#endif -#define LAPACK_cpstrf LAPACK_GLOBAL(cpstrf,CPSTRF) -void LAPACK_cpstrf( +#define LAPACK_cpstrf_base LAPACK_GLOBAL(cpstrf,CPSTRF) +void LAPACK_cpstrf_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank, float const* tol, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpstrf(...) LAPACK_cpstrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpstrf(...) LAPACK_cpstrf_base(__VA_ARGS__) +#endif -#define LAPACK_dpstrf LAPACK_GLOBAL(dpstrf,DPSTRF) -void LAPACK_dpstrf( +#define LAPACK_dpstrf_base LAPACK_GLOBAL(dpstrf,DPSTRF) +void LAPACK_dpstrf_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank, double const* tol, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpstrf(...) LAPACK_dpstrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpstrf(...) LAPACK_dpstrf_base(__VA_ARGS__) +#endif -#define LAPACK_spstrf LAPACK_GLOBAL(spstrf,SPSTRF) -void LAPACK_spstrf( +#define LAPACK_spstrf_base LAPACK_GLOBAL(spstrf,SPSTRF) +void LAPACK_spstrf_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank, float const* tol, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spstrf(...) LAPACK_spstrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_spstrf(...) LAPACK_spstrf_base(__VA_ARGS__) +#endif -#define LAPACK_zpstrf LAPACK_GLOBAL(zpstrf,ZPSTRF) -void LAPACK_zpstrf( +#define LAPACK_zpstrf_base LAPACK_GLOBAL(zpstrf,ZPSTRF) +void LAPACK_zpstrf_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank, double const* tol, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpstrf(...) LAPACK_zpstrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpstrf(...) LAPACK_zpstrf_base(__VA_ARGS__) +#endif #define LAPACK_cptcon LAPACK_GLOBAL(cptcon,CPTCON) void LAPACK_cptcon( @@ -8876,48 +14346,84 @@ void LAPACK_zptcon( double* rwork, lapack_int* info ); -#define LAPACK_cpteqr LAPACK_GLOBAL(cpteqr,CPTEQR) -void LAPACK_cpteqr( +#define LAPACK_cpteqr_base LAPACK_GLOBAL(cpteqr,CPTEQR) +void LAPACK_cpteqr_base( char const* compz, lapack_int const* n, float* D, float* E, lapack_complex_float* Z, lapack_int const* ldz, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpteqr(...) LAPACK_cpteqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpteqr(...) LAPACK_cpteqr_base(__VA_ARGS__) +#endif -#define LAPACK_dpteqr LAPACK_GLOBAL(dpteqr,DPTEQR) -void LAPACK_dpteqr( +#define LAPACK_dpteqr_base LAPACK_GLOBAL(dpteqr,DPTEQR) +void LAPACK_dpteqr_base( char const* compz, lapack_int const* n, double* D, double* E, double* Z, lapack_int const* ldz, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dpteqr(...) LAPACK_dpteqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_dpteqr(...) LAPACK_dpteqr_base(__VA_ARGS__) +#endif -#define LAPACK_spteqr LAPACK_GLOBAL(spteqr,SPTEQR) -void LAPACK_spteqr( +#define LAPACK_spteqr_base LAPACK_GLOBAL(spteqr,SPTEQR) +void LAPACK_spteqr_base( char const* compz, lapack_int const* n, float* D, float* E, float* Z, lapack_int const* ldz, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_spteqr(...) LAPACK_spteqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_spteqr(...) LAPACK_spteqr_base(__VA_ARGS__) +#endif -#define LAPACK_zpteqr LAPACK_GLOBAL(zpteqr,ZPTEQR) -void LAPACK_zpteqr( +#define LAPACK_zpteqr_base LAPACK_GLOBAL(zpteqr,ZPTEQR) +void LAPACK_zpteqr_base( char const* compz, lapack_int const* n, double* D, double* E, lapack_complex_double* Z, lapack_int const* ldz, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpteqr(...) LAPACK_zpteqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpteqr(...) LAPACK_zpteqr_base(__VA_ARGS__) +#endif -#define LAPACK_cptrfs LAPACK_GLOBAL(cptrfs,CPTRFS) -void LAPACK_cptrfs( +#define LAPACK_cptrfs_base LAPACK_GLOBAL(cptrfs,CPTRFS) +void LAPACK_cptrfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* D, @@ -8930,7 +14436,16 @@ void LAPACK_cptrfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cptrfs(...) LAPACK_cptrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cptrfs(...) LAPACK_cptrfs_base(__VA_ARGS__) +#endif #define LAPACK_dptrfs LAPACK_GLOBAL(dptrfs,DPTRFS) void LAPACK_dptrfs( @@ -8960,8 +14475,8 @@ void LAPACK_sptrfs( float* work, lapack_int* info ); -#define LAPACK_zptrfs LAPACK_GLOBAL(zptrfs,ZPTRFS) -void LAPACK_zptrfs( +#define LAPACK_zptrfs_base LAPACK_GLOBAL(zptrfs,ZPTRFS) +void LAPACK_zptrfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* D, @@ -8974,7 +14489,16 @@ void LAPACK_zptrfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zptrfs(...) LAPACK_zptrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zptrfs(...) LAPACK_zptrfs_base(__VA_ARGS__) +#endif #define LAPACK_cptsv LAPACK_GLOBAL(cptsv,CPTSV) void LAPACK_cptsv( @@ -9008,8 +14532,8 @@ void LAPACK_zptsv( lapack_complex_double* B, lapack_int const* ldb, lapack_int* info ); -#define LAPACK_cptsvx LAPACK_GLOBAL(cptsvx,CPTSVX) -void LAPACK_cptsvx( +#define LAPACK_cptsvx_base LAPACK_GLOBAL(cptsvx,CPTSVX) +void LAPACK_cptsvx_base( char const* fact, lapack_int const* n, lapack_int const* nrhs, float const* D, @@ -9023,10 +14547,19 @@ void LAPACK_cptsvx( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cptsvx(...) LAPACK_cptsvx_base(__VA_ARGS__, 1) +#else + #define LAPACK_cptsvx(...) LAPACK_cptsvx_base(__VA_ARGS__) +#endif -#define LAPACK_dptsvx LAPACK_GLOBAL(dptsvx,DPTSVX) -void LAPACK_dptsvx( +#define LAPACK_dptsvx_base LAPACK_GLOBAL(dptsvx,DPTSVX) +void LAPACK_dptsvx_base( char const* fact, lapack_int const* n, lapack_int const* nrhs, double const* D, @@ -9039,10 +14572,19 @@ void LAPACK_dptsvx( double* ferr, double* berr, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dptsvx(...) LAPACK_dptsvx_base(__VA_ARGS__, 1) +#else + #define LAPACK_dptsvx(...) LAPACK_dptsvx_base(__VA_ARGS__) +#endif -#define LAPACK_sptsvx LAPACK_GLOBAL(sptsvx,SPTSVX) -void LAPACK_sptsvx( +#define LAPACK_sptsvx_base LAPACK_GLOBAL(sptsvx,SPTSVX) +void LAPACK_sptsvx_base( char const* fact, lapack_int const* n, lapack_int const* nrhs, float const* D, @@ -9055,10 +14597,19 @@ void LAPACK_sptsvx( float* ferr, float* berr, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sptsvx(...) LAPACK_sptsvx_base(__VA_ARGS__, 1) +#else + #define LAPACK_sptsvx(...) LAPACK_sptsvx_base(__VA_ARGS__) +#endif -#define LAPACK_zptsvx LAPACK_GLOBAL(zptsvx,ZPTSVX) -void LAPACK_zptsvx( +#define LAPACK_zptsvx_base LAPACK_GLOBAL(zptsvx,ZPTSVX) +void LAPACK_zptsvx_base( char const* fact, lapack_int const* n, lapack_int const* nrhs, double const* D, @@ -9072,7 +14623,16 @@ void LAPACK_zptsvx( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zptsvx(...) LAPACK_zptsvx_base(__VA_ARGS__, 1) +#else + #define LAPACK_zptsvx(...) LAPACK_zptsvx_base(__VA_ARGS__) +#endif #define LAPACK_cpttrf LAPACK_GLOBAL(cpttrf,CPTTRF) void LAPACK_cpttrf( @@ -9102,14 +14662,23 @@ void LAPACK_zpttrf( lapack_complex_double* E, lapack_int* info ); -#define LAPACK_cpttrs LAPACK_GLOBAL(cpttrs,CPTTRS) -void LAPACK_cpttrs( +#define LAPACK_cpttrs_base LAPACK_GLOBAL(cpttrs,CPTTRS) +void LAPACK_cpttrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* D, lapack_complex_float const* E, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cpttrs(...) LAPACK_cpttrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_cpttrs(...) LAPACK_cpttrs_base(__VA_ARGS__) +#endif #define LAPACK_dpttrs LAPACK_GLOBAL(dpttrs,DPTTRS) void LAPACK_dpttrs( @@ -9127,57 +14696,102 @@ void LAPACK_spttrs( float* B, lapack_int const* ldb, lapack_int* info ); -#define LAPACK_zpttrs LAPACK_GLOBAL(zpttrs,ZPTTRS) -void LAPACK_zpttrs( +#define LAPACK_zpttrs_base LAPACK_GLOBAL(zpttrs,ZPTTRS) +void LAPACK_zpttrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* D, lapack_complex_double const* E, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zpttrs(...) LAPACK_zpttrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zpttrs(...) LAPACK_zpttrs_base(__VA_ARGS__) +#endif -#define LAPACK_dsbev LAPACK_GLOBAL(dsbev,DSBEV) -void LAPACK_dsbev( +#define LAPACK_dsbev_base LAPACK_GLOBAL(dsbev,DSBEV) +void LAPACK_dsbev_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, double* AB, lapack_int const* ldab, double* W, double* Z, lapack_int const* ldz, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbev(...) LAPACK_dsbev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsbev(...) LAPACK_dsbev_base(__VA_ARGS__) +#endif -#define LAPACK_ssbev LAPACK_GLOBAL(ssbev,SSBEV) -void LAPACK_ssbev( +#define LAPACK_ssbev_base LAPACK_GLOBAL(ssbev,SSBEV) +void LAPACK_ssbev_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, float* AB, lapack_int const* ldab, float* W, float* Z, lapack_int const* ldz, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbev(...) LAPACK_ssbev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssbev(...) LAPACK_ssbev_base(__VA_ARGS__) +#endif -#define LAPACK_dsbev_2stage LAPACK_GLOBAL(dsbev_2stage,DSBEV_2STAGE) -void LAPACK_dsbev_2stage( +#define LAPACK_dsbev_2stage_base LAPACK_GLOBAL(dsbev_2stage,DSBEV_2STAGE) +void LAPACK_dsbev_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, double* AB, lapack_int const* ldab, double* W, double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbev_2stage(...) LAPACK_dsbev_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsbev_2stage(...) LAPACK_dsbev_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssbev_2stage LAPACK_GLOBAL(ssbev_2stage,SSBEV_2STAGE) -void LAPACK_ssbev_2stage( +#define LAPACK_ssbev_2stage_base LAPACK_GLOBAL(ssbev_2stage,SSBEV_2STAGE) +void LAPACK_ssbev_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, float* AB, lapack_int const* ldab, float* W, float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbev_2stage(...) LAPACK_ssbev_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssbev_2stage(...) LAPACK_ssbev_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsbevd LAPACK_GLOBAL(dsbevd,DSBEVD) -void LAPACK_dsbevd( +#define LAPACK_dsbevd_base LAPACK_GLOBAL(dsbevd,DSBEVD) +void LAPACK_dsbevd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, double* AB, lapack_int const* ldab, @@ -9185,10 +14799,19 @@ void LAPACK_dsbevd( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbevd(...) LAPACK_dsbevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsbevd(...) LAPACK_dsbevd_base(__VA_ARGS__) +#endif -#define LAPACK_ssbevd LAPACK_GLOBAL(ssbevd,SSBEVD) -void LAPACK_ssbevd( +#define LAPACK_ssbevd_base LAPACK_GLOBAL(ssbevd,SSBEVD) +void LAPACK_ssbevd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, float* AB, lapack_int const* ldab, @@ -9196,10 +14819,19 @@ void LAPACK_ssbevd( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbevd(...) LAPACK_ssbevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssbevd(...) LAPACK_ssbevd_base(__VA_ARGS__) +#endif -#define LAPACK_dsbevd_2stage LAPACK_GLOBAL(dsbevd_2stage,DSBEVD_2STAGE) -void LAPACK_dsbevd_2stage( +#define LAPACK_dsbevd_2stage_base LAPACK_GLOBAL(dsbevd_2stage,DSBEVD_2STAGE) +void LAPACK_dsbevd_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, double* AB, lapack_int const* ldab, @@ -9207,10 +14839,19 @@ void LAPACK_dsbevd_2stage( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbevd_2stage(...) LAPACK_dsbevd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsbevd_2stage(...) LAPACK_dsbevd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssbevd_2stage LAPACK_GLOBAL(ssbevd_2stage,SSBEVD_2STAGE) -void LAPACK_ssbevd_2stage( +#define LAPACK_ssbevd_2stage_base LAPACK_GLOBAL(ssbevd_2stage,SSBEVD_2STAGE) +void LAPACK_ssbevd_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* kd, float* AB, lapack_int const* ldab, @@ -9218,10 +14859,19 @@ void LAPACK_ssbevd_2stage( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbevd_2stage(...) LAPACK_ssbevd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssbevd_2stage(...) LAPACK_ssbevd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsbevx LAPACK_GLOBAL(dsbevx,DSBEVX) -void LAPACK_dsbevx( +#define LAPACK_dsbevx_base LAPACK_GLOBAL(dsbevx,DSBEVX) +void LAPACK_dsbevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* kd, double* AB, lapack_int const* ldab, @@ -9233,10 +14883,19 @@ void LAPACK_dsbevx( double* Z, lapack_int const* ldz, double* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbevx(...) LAPACK_dsbevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsbevx(...) LAPACK_dsbevx_base(__VA_ARGS__) +#endif -#define LAPACK_ssbevx LAPACK_GLOBAL(ssbevx,SSBEVX) -void LAPACK_ssbevx( +#define LAPACK_ssbevx_base LAPACK_GLOBAL(ssbevx,SSBEVX) +void LAPACK_ssbevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* kd, float* AB, lapack_int const* ldab, @@ -9248,10 +14907,19 @@ void LAPACK_ssbevx( float* Z, lapack_int const* ldz, float* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbevx(...) LAPACK_ssbevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssbevx(...) LAPACK_ssbevx_base(__VA_ARGS__) +#endif -#define LAPACK_dsbevx_2stage LAPACK_GLOBAL(dsbevx_2stage,DSBEVX_2STAGE) -void LAPACK_dsbevx_2stage( +#define LAPACK_dsbevx_2stage_base LAPACK_GLOBAL(dsbevx_2stage,DSBEVX_2STAGE) +void LAPACK_dsbevx_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* kd, double* AB, lapack_int const* ldab, @@ -9263,10 +14931,19 @@ void LAPACK_dsbevx_2stage( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbevx_2stage(...) LAPACK_dsbevx_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsbevx_2stage(...) LAPACK_dsbevx_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssbevx_2stage LAPACK_GLOBAL(ssbevx_2stage,SSBEVX_2STAGE) -void LAPACK_ssbevx_2stage( +#define LAPACK_ssbevx_2stage_base LAPACK_GLOBAL(ssbevx_2stage,SSBEVX_2STAGE) +void LAPACK_ssbevx_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* kd, float* AB, lapack_int const* ldab, @@ -9278,30 +14955,57 @@ void LAPACK_ssbevx_2stage( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbevx_2stage(...) LAPACK_ssbevx_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssbevx_2stage(...) LAPACK_ssbevx_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsbgst LAPACK_GLOBAL(dsbgst,DSBGST) -void LAPACK_dsbgst( +#define LAPACK_dsbgst_base LAPACK_GLOBAL(dsbgst,DSBGST) +void LAPACK_dsbgst_base( char const* vect, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, double* AB, lapack_int const* ldab, double const* BB, lapack_int const* ldbb, double* X, lapack_int const* ldx, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbgst(...) LAPACK_dsbgst_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsbgst(...) LAPACK_dsbgst_base(__VA_ARGS__) +#endif -#define LAPACK_ssbgst LAPACK_GLOBAL(ssbgst,SSBGST) -void LAPACK_ssbgst( +#define LAPACK_ssbgst_base LAPACK_GLOBAL(ssbgst,SSBGST) +void LAPACK_ssbgst_base( char const* vect, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, float* AB, lapack_int const* ldab, float const* BB, lapack_int const* ldbb, float* X, lapack_int const* ldx, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbgst(...) LAPACK_ssbgst_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssbgst(...) LAPACK_ssbgst_base(__VA_ARGS__) +#endif -#define LAPACK_dsbgv LAPACK_GLOBAL(dsbgv,DSBGV) -void LAPACK_dsbgv( +#define LAPACK_dsbgv_base LAPACK_GLOBAL(dsbgv,DSBGV) +void LAPACK_dsbgv_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, double* AB, lapack_int const* ldab, @@ -9309,10 +15013,19 @@ void LAPACK_dsbgv( double* W, double* Z, lapack_int const* ldz, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbgv(...) LAPACK_dsbgv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsbgv(...) LAPACK_dsbgv_base(__VA_ARGS__) +#endif -#define LAPACK_ssbgv LAPACK_GLOBAL(ssbgv,SSBGV) -void LAPACK_ssbgv( +#define LAPACK_ssbgv_base LAPACK_GLOBAL(ssbgv,SSBGV) +void LAPACK_ssbgv_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, float* AB, lapack_int const* ldab, @@ -9320,10 +15033,19 @@ void LAPACK_ssbgv( float* W, float* Z, lapack_int const* ldz, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbgv(...) LAPACK_ssbgv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssbgv(...) LAPACK_ssbgv_base(__VA_ARGS__) +#endif -#define LAPACK_dsbgvd LAPACK_GLOBAL(dsbgvd,DSBGVD) -void LAPACK_dsbgvd( +#define LAPACK_dsbgvd_base LAPACK_GLOBAL(dsbgvd,DSBGVD) +void LAPACK_dsbgvd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, double* AB, lapack_int const* ldab, @@ -9332,10 +15054,19 @@ void LAPACK_dsbgvd( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbgvd(...) LAPACK_dsbgvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsbgvd(...) LAPACK_dsbgvd_base(__VA_ARGS__) +#endif -#define LAPACK_ssbgvd LAPACK_GLOBAL(ssbgvd,SSBGVD) -void LAPACK_ssbgvd( +#define LAPACK_ssbgvd_base LAPACK_GLOBAL(ssbgvd,SSBGVD) +void LAPACK_ssbgvd_base( char const* jobz, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, float* AB, lapack_int const* ldab, @@ -9344,10 +15075,19 @@ void LAPACK_ssbgvd( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbgvd(...) LAPACK_ssbgvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssbgvd(...) LAPACK_ssbgvd_base(__VA_ARGS__) +#endif -#define LAPACK_dsbgvx LAPACK_GLOBAL(dsbgvx,DSBGVX) -void LAPACK_dsbgvx( +#define LAPACK_dsbgvx_base LAPACK_GLOBAL(dsbgvx,DSBGVX) +void LAPACK_dsbgvx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, double* AB, lapack_int const* ldab, @@ -9360,10 +15100,19 @@ void LAPACK_dsbgvx( double* Z, lapack_int const* ldz, double* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbgvx(...) LAPACK_dsbgvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsbgvx(...) LAPACK_dsbgvx_base(__VA_ARGS__) +#endif -#define LAPACK_ssbgvx LAPACK_GLOBAL(ssbgvx,SSBGVX) -void LAPACK_ssbgvx( +#define LAPACK_ssbgvx_base LAPACK_GLOBAL(ssbgvx,SSBGVX) +void LAPACK_ssbgvx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, lapack_int const* ka, lapack_int const* kb, float* AB, lapack_int const* ldab, @@ -9376,10 +15125,19 @@ void LAPACK_ssbgvx( float* Z, lapack_int const* ldz, float* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbgvx(...) LAPACK_ssbgvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssbgvx(...) LAPACK_ssbgvx_base(__VA_ARGS__) +#endif -#define LAPACK_dsbtrd LAPACK_GLOBAL(dsbtrd,DSBTRD) -void LAPACK_dsbtrd( +#define LAPACK_dsbtrd_base LAPACK_GLOBAL(dsbtrd,DSBTRD) +void LAPACK_dsbtrd_base( char const* vect, char const* uplo, lapack_int const* n, lapack_int const* kd, double* AB, lapack_int const* ldab, @@ -9387,10 +15145,19 @@ void LAPACK_dsbtrd( double* E, double* Q, lapack_int const* ldq, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsbtrd(...) LAPACK_dsbtrd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsbtrd(...) LAPACK_dsbtrd_base(__VA_ARGS__) +#endif -#define LAPACK_ssbtrd LAPACK_GLOBAL(ssbtrd,SSBTRD) -void LAPACK_ssbtrd( +#define LAPACK_ssbtrd_base LAPACK_GLOBAL(ssbtrd,SSBTRD) +void LAPACK_ssbtrd_base( char const* vect, char const* uplo, lapack_int const* n, lapack_int const* kd, float* AB, lapack_int const* ldab, @@ -9398,38 +15165,74 @@ void LAPACK_ssbtrd( float* E, float* Q, lapack_int const* ldq, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssbtrd(...) LAPACK_ssbtrd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssbtrd(...) LAPACK_ssbtrd_base(__VA_ARGS__) +#endif -#define LAPACK_dsfrk LAPACK_GLOBAL(dsfrk,DSFRK) -void LAPACK_dsfrk( +#define LAPACK_dsfrk_base LAPACK_GLOBAL(dsfrk,DSFRK) +void LAPACK_dsfrk_base( char const* transr, char const* uplo, char const* trans, lapack_int const* n, lapack_int const* k, double const* alpha, double const* A, lapack_int const* lda, double const* beta, - double* C ); + double* C +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsfrk(...) LAPACK_dsfrk_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsfrk(...) LAPACK_dsfrk_base(__VA_ARGS__) +#endif -#define LAPACK_ssfrk LAPACK_GLOBAL(ssfrk,SSFRK) -void LAPACK_ssfrk( +#define LAPACK_ssfrk_base LAPACK_GLOBAL(ssfrk,SSFRK) +void LAPACK_ssfrk_base( char const* transr, char const* uplo, char const* trans, lapack_int const* n, lapack_int const* k, float const* alpha, float const* A, lapack_int const* lda, float const* beta, - float* C ); + float* C +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssfrk(...) LAPACK_ssfrk_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssfrk(...) LAPACK_ssfrk_base(__VA_ARGS__) +#endif -#define LAPACK_cspcon LAPACK_GLOBAL(cspcon,CSPCON) -void LAPACK_cspcon( +#define LAPACK_cspcon_base LAPACK_GLOBAL(cspcon,CSPCON) +void LAPACK_cspcon_base( char const* uplo, lapack_int const* n, lapack_complex_float const* AP, lapack_int const* ipiv, float const* anorm, float* rcond, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cspcon(...) LAPACK_cspcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_cspcon(...) LAPACK_cspcon_base(__VA_ARGS__) +#endif -#define LAPACK_dspcon LAPACK_GLOBAL(dspcon,DSPCON) -void LAPACK_dspcon( +#define LAPACK_dspcon_base LAPACK_GLOBAL(dspcon,DSPCON) +void LAPACK_dspcon_base( char const* uplo, lapack_int const* n, double const* AP, lapack_int const* ipiv, @@ -9437,10 +15240,19 @@ void LAPACK_dspcon( double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspcon(...) LAPACK_dspcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_dspcon(...) LAPACK_dspcon_base(__VA_ARGS__) +#endif -#define LAPACK_sspcon LAPACK_GLOBAL(sspcon,SSPCON) -void LAPACK_sspcon( +#define LAPACK_sspcon_base LAPACK_GLOBAL(sspcon,SSPCON) +void LAPACK_sspcon_base( char const* uplo, lapack_int const* n, float const* AP, lapack_int const* ipiv, @@ -9448,40 +15260,76 @@ void LAPACK_sspcon( float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspcon(...) LAPACK_sspcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_sspcon(...) LAPACK_sspcon_base(__VA_ARGS__) +#endif -#define LAPACK_zspcon LAPACK_GLOBAL(zspcon,ZSPCON) -void LAPACK_zspcon( +#define LAPACK_zspcon_base LAPACK_GLOBAL(zspcon,ZSPCON) +void LAPACK_zspcon_base( char const* uplo, lapack_int const* n, lapack_complex_double const* AP, lapack_int const* ipiv, double const* anorm, double* rcond, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zspcon(...) LAPACK_zspcon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zspcon(...) LAPACK_zspcon_base(__VA_ARGS__) +#endif -#define LAPACK_dspev LAPACK_GLOBAL(dspev,DSPEV) -void LAPACK_dspev( +#define LAPACK_dspev_base LAPACK_GLOBAL(dspev,DSPEV) +void LAPACK_dspev_base( char const* jobz, char const* uplo, lapack_int const* n, double* AP, double* W, double* Z, lapack_int const* ldz, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspev(...) LAPACK_dspev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dspev(...) LAPACK_dspev_base(__VA_ARGS__) +#endif -#define LAPACK_sspev LAPACK_GLOBAL(sspev,SSPEV) -void LAPACK_sspev( +#define LAPACK_sspev_base LAPACK_GLOBAL(sspev,SSPEV) +void LAPACK_sspev_base( char const* jobz, char const* uplo, lapack_int const* n, float* AP, float* W, float* Z, lapack_int const* ldz, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspev(...) LAPACK_sspev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sspev(...) LAPACK_sspev_base(__VA_ARGS__) +#endif -#define LAPACK_dspevd LAPACK_GLOBAL(dspevd,DSPEVD) -void LAPACK_dspevd( +#define LAPACK_dspevd_base LAPACK_GLOBAL(dspevd,DSPEVD) +void LAPACK_dspevd_base( char const* jobz, char const* uplo, lapack_int const* n, double* AP, @@ -9489,10 +15337,19 @@ void LAPACK_dspevd( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspevd(...) LAPACK_dspevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dspevd(...) LAPACK_dspevd_base(__VA_ARGS__) +#endif -#define LAPACK_sspevd LAPACK_GLOBAL(sspevd,SSPEVD) -void LAPACK_sspevd( +#define LAPACK_sspevd_base LAPACK_GLOBAL(sspevd,SSPEVD) +void LAPACK_sspevd_base( char const* jobz, char const* uplo, lapack_int const* n, float* AP, @@ -9500,10 +15357,19 @@ void LAPACK_sspevd( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspevd(...) LAPACK_sspevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sspevd(...) LAPACK_sspevd_base(__VA_ARGS__) +#endif -#define LAPACK_dspevx LAPACK_GLOBAL(dspevx,DSPEVX) -void LAPACK_dspevx( +#define LAPACK_dspevx_base LAPACK_GLOBAL(dspevx,DSPEVX) +void LAPACK_dspevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, double* AP, @@ -9514,10 +15380,19 @@ void LAPACK_dspevx( double* Z, lapack_int const* ldz, double* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspevx(...) LAPACK_dspevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dspevx(...) LAPACK_dspevx_base(__VA_ARGS__) +#endif -#define LAPACK_sspevx LAPACK_GLOBAL(sspevx,SSPEVX) -void LAPACK_sspevx( +#define LAPACK_sspevx_base LAPACK_GLOBAL(sspevx,SSPEVX) +void LAPACK_sspevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, float* AP, @@ -9528,26 +15403,53 @@ void LAPACK_sspevx( float* Z, lapack_int const* ldz, float* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspevx(...) LAPACK_sspevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sspevx(...) LAPACK_sspevx_base(__VA_ARGS__) +#endif -#define LAPACK_dspgst LAPACK_GLOBAL(dspgst,DSPGST) -void LAPACK_dspgst( +#define LAPACK_dspgst_base LAPACK_GLOBAL(dspgst,DSPGST) +void LAPACK_dspgst_base( lapack_int const* itype, char const* uplo, lapack_int const* n, double* AP, double const* BP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspgst(...) LAPACK_dspgst_base(__VA_ARGS__, 1) +#else + #define LAPACK_dspgst(...) LAPACK_dspgst_base(__VA_ARGS__) +#endif -#define LAPACK_sspgst LAPACK_GLOBAL(sspgst,SSPGST) -void LAPACK_sspgst( +#define LAPACK_sspgst_base LAPACK_GLOBAL(sspgst,SSPGST) +void LAPACK_sspgst_base( lapack_int const* itype, char const* uplo, lapack_int const* n, float* AP, float const* BP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspgst(...) LAPACK_sspgst_base(__VA_ARGS__, 1) +#else + #define LAPACK_sspgst(...) LAPACK_sspgst_base(__VA_ARGS__) +#endif -#define LAPACK_dspgv LAPACK_GLOBAL(dspgv,DSPGV) -void LAPACK_dspgv( +#define LAPACK_dspgv_base LAPACK_GLOBAL(dspgv,DSPGV) +void LAPACK_dspgv_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, double* AP, @@ -9555,21 +15457,39 @@ void LAPACK_dspgv( double* W, double* Z, lapack_int const* ldz, double* work, - lapack_int* info ); - -#define LAPACK_sspgv LAPACK_GLOBAL(sspgv,SSPGV) -void LAPACK_sspgv( - lapack_int const* itype, char const* jobz, char const* uplo, + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspgv(...) LAPACK_dspgv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dspgv(...) LAPACK_dspgv_base(__VA_ARGS__) +#endif + +#define LAPACK_sspgv_base LAPACK_GLOBAL(sspgv,SSPGV) +void LAPACK_sspgv_base( + lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, float* AP, float* BP, float* W, float* Z, lapack_int const* ldz, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspgv(...) LAPACK_sspgv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sspgv(...) LAPACK_sspgv_base(__VA_ARGS__) +#endif -#define LAPACK_dspgvd LAPACK_GLOBAL(dspgvd,DSPGVD) -void LAPACK_dspgvd( +#define LAPACK_dspgvd_base LAPACK_GLOBAL(dspgvd,DSPGVD) +void LAPACK_dspgvd_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, double* AP, @@ -9578,10 +15498,19 @@ void LAPACK_dspgvd( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspgvd(...) LAPACK_dspgvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dspgvd(...) LAPACK_dspgvd_base(__VA_ARGS__) +#endif -#define LAPACK_sspgvd LAPACK_GLOBAL(sspgvd,SSPGVD) -void LAPACK_sspgvd( +#define LAPACK_sspgvd_base LAPACK_GLOBAL(sspgvd,SSPGVD) +void LAPACK_sspgvd_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, float* AP, @@ -9590,10 +15519,19 @@ void LAPACK_sspgvd( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspgvd(...) LAPACK_sspgvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sspgvd(...) LAPACK_sspgvd_base(__VA_ARGS__) +#endif -#define LAPACK_dspgvx LAPACK_GLOBAL(dspgvx,DSPGVX) -void LAPACK_dspgvx( +#define LAPACK_dspgvx_base LAPACK_GLOBAL(dspgvx,DSPGVX) +void LAPACK_dspgvx_base( lapack_int const* itype, char const* jobz, char const* range, char const* uplo, lapack_int const* n, double* AP, @@ -9605,10 +15543,19 @@ void LAPACK_dspgvx( double* Z, lapack_int const* ldz, double* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspgvx(...) LAPACK_dspgvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dspgvx(...) LAPACK_dspgvx_base(__VA_ARGS__) +#endif -#define LAPACK_sspgvx LAPACK_GLOBAL(sspgvx,SSPGVX) -void LAPACK_sspgvx( +#define LAPACK_sspgvx_base LAPACK_GLOBAL(sspgvx,SSPGVX) +void LAPACK_sspgvx_base( lapack_int const* itype, char const* jobz, char const* range, char const* uplo, lapack_int const* n, float* AP, @@ -9620,10 +15567,19 @@ void LAPACK_sspgvx( float* Z, lapack_int const* ldz, float* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspgvx(...) LAPACK_sspgvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_sspgvx(...) LAPACK_sspgvx_base(__VA_ARGS__) +#endif -#define LAPACK_csprfs LAPACK_GLOBAL(csprfs,CSPRFS) -void LAPACK_csprfs( +#define LAPACK_csprfs_base LAPACK_GLOBAL(csprfs,CSPRFS) +void LAPACK_csprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, @@ -9634,10 +15590,19 @@ void LAPACK_csprfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csprfs(...) LAPACK_csprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_csprfs(...) LAPACK_csprfs_base(__VA_ARGS__) +#endif -#define LAPACK_dsprfs LAPACK_GLOBAL(dsprfs,DSPRFS) -void LAPACK_dsprfs( +#define LAPACK_dsprfs_base LAPACK_GLOBAL(dsprfs,DSPRFS) +void LAPACK_dsprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* AP, @@ -9648,10 +15613,19 @@ void LAPACK_dsprfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsprfs(...) LAPACK_dsprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsprfs(...) LAPACK_dsprfs_base(__VA_ARGS__) +#endif -#define LAPACK_ssprfs LAPACK_GLOBAL(ssprfs,SSPRFS) -void LAPACK_ssprfs( +#define LAPACK_ssprfs_base LAPACK_GLOBAL(ssprfs,SSPRFS) +void LAPACK_ssprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* AP, @@ -9662,10 +15636,19 @@ void LAPACK_ssprfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssprfs(...) LAPACK_ssprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssprfs(...) LAPACK_ssprfs_base(__VA_ARGS__) +#endif -#define LAPACK_zsprfs LAPACK_GLOBAL(zsprfs,ZSPRFS) -void LAPACK_zsprfs( +#define LAPACK_zsprfs_base LAPACK_GLOBAL(zsprfs,ZSPRFS) +void LAPACK_zsprfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, @@ -9676,42 +15659,87 @@ void LAPACK_zsprfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsprfs(...) LAPACK_zsprfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsprfs(...) LAPACK_zsprfs_base(__VA_ARGS__) +#endif -#define LAPACK_cspsv LAPACK_GLOBAL(cspsv,CSPSV) -void LAPACK_cspsv( +#define LAPACK_cspsv_base LAPACK_GLOBAL(cspsv,CSPSV) +void LAPACK_cspsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* AP, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cspsv(...) LAPACK_cspsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_cspsv(...) LAPACK_cspsv_base(__VA_ARGS__) +#endif -#define LAPACK_dspsv LAPACK_GLOBAL(dspsv,DSPSV) -void LAPACK_dspsv( +#define LAPACK_dspsv_base LAPACK_GLOBAL(dspsv,DSPSV) +void LAPACK_dspsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* AP, lapack_int* ipiv, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspsv(...) LAPACK_dspsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_dspsv(...) LAPACK_dspsv_base(__VA_ARGS__) +#endif -#define LAPACK_sspsv LAPACK_GLOBAL(sspsv,SSPSV) -void LAPACK_sspsv( +#define LAPACK_sspsv_base LAPACK_GLOBAL(sspsv,SSPSV) +void LAPACK_sspsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* AP, lapack_int* ipiv, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspsv(...) LAPACK_sspsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_sspsv(...) LAPACK_sspsv_base(__VA_ARGS__) +#endif -#define LAPACK_zspsv LAPACK_GLOBAL(zspsv,ZSPSV) -void LAPACK_zspsv( +#define LAPACK_zspsv_base LAPACK_GLOBAL(zspsv,ZSPSV) +void LAPACK_zspsv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* AP, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zspsv(...) LAPACK_zspsv_base(__VA_ARGS__, 1) +#else + #define LAPACK_zspsv(...) LAPACK_zspsv_base(__VA_ARGS__) +#endif -#define LAPACK_cspsvx LAPACK_GLOBAL(cspsvx,CSPSVX) -void LAPACK_cspsvx( +#define LAPACK_cspsvx_base LAPACK_GLOBAL(cspsvx,CSPSVX) +void LAPACK_cspsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, @@ -9723,10 +15751,19 @@ void LAPACK_cspsvx( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cspsvx(...) LAPACK_cspsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cspsvx(...) LAPACK_cspsvx_base(__VA_ARGS__) +#endif -#define LAPACK_dspsvx LAPACK_GLOBAL(dspsvx,DSPSVX) -void LAPACK_dspsvx( +#define LAPACK_dspsvx_base LAPACK_GLOBAL(dspsvx,DSPSVX) +void LAPACK_dspsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* AP, @@ -9738,10 +15775,19 @@ void LAPACK_dspsvx( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dspsvx(...) LAPACK_dspsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dspsvx(...) LAPACK_dspsvx_base(__VA_ARGS__) +#endif -#define LAPACK_sspsvx LAPACK_GLOBAL(sspsvx,SSPSVX) -void LAPACK_sspsvx( +#define LAPACK_sspsvx_base LAPACK_GLOBAL(sspsvx,SSPSVX) +void LAPACK_sspsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* AP, @@ -9753,10 +15799,19 @@ void LAPACK_sspsvx( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sspsvx(...) LAPACK_sspsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sspsvx(...) LAPACK_sspsvx_base(__VA_ARGS__) +#endif -#define LAPACK_zspsvx LAPACK_GLOBAL(zspsvx,ZSPSVX) -void LAPACK_zspsvx( +#define LAPACK_zspsvx_base LAPACK_GLOBAL(zspsvx,ZSPSVX) +void LAPACK_zspsvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, @@ -9768,122 +15823,257 @@ void LAPACK_zspsvx( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zspsvx(...) LAPACK_zspsvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zspsvx(...) LAPACK_zspsvx_base(__VA_ARGS__) +#endif -#define LAPACK_dsptrd LAPACK_GLOBAL(dsptrd,DSPTRD) -void LAPACK_dsptrd( +#define LAPACK_dsptrd_base LAPACK_GLOBAL(dsptrd,DSPTRD) +void LAPACK_dsptrd_base( char const* uplo, lapack_int const* n, double* AP, double* D, double* E, double* tau, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsptrd(...) LAPACK_dsptrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsptrd(...) LAPACK_dsptrd_base(__VA_ARGS__) +#endif -#define LAPACK_ssptrd LAPACK_GLOBAL(ssptrd,SSPTRD) -void LAPACK_ssptrd( +#define LAPACK_ssptrd_base LAPACK_GLOBAL(ssptrd,SSPTRD) +void LAPACK_ssptrd_base( char const* uplo, lapack_int const* n, float* AP, float* D, float* E, float* tau, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssptrd(...) LAPACK_ssptrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssptrd(...) LAPACK_ssptrd_base(__VA_ARGS__) +#endif -#define LAPACK_csptrf LAPACK_GLOBAL(csptrf,CSPTRF) -void LAPACK_csptrf( +#define LAPACK_csptrf_base LAPACK_GLOBAL(csptrf,CSPTRF) +void LAPACK_csptrf_base( char const* uplo, lapack_int const* n, lapack_complex_float* AP, lapack_int* ipiv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csptrf(...) LAPACK_csptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_csptrf(...) LAPACK_csptrf_base(__VA_ARGS__) +#endif -#define LAPACK_dsptrf LAPACK_GLOBAL(dsptrf,DSPTRF) -void LAPACK_dsptrf( +#define LAPACK_dsptrf_base LAPACK_GLOBAL(dsptrf,DSPTRF) +void LAPACK_dsptrf_base( char const* uplo, lapack_int const* n, double* AP, lapack_int* ipiv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsptrf(...) LAPACK_dsptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsptrf(...) LAPACK_dsptrf_base(__VA_ARGS__) +#endif -#define LAPACK_ssptrf LAPACK_GLOBAL(ssptrf,SSPTRF) -void LAPACK_ssptrf( +#define LAPACK_ssptrf_base LAPACK_GLOBAL(ssptrf,SSPTRF) +void LAPACK_ssptrf_base( char const* uplo, lapack_int const* n, float* AP, lapack_int* ipiv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssptrf(...) LAPACK_ssptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssptrf(...) LAPACK_ssptrf_base(__VA_ARGS__) +#endif -#define LAPACK_zsptrf LAPACK_GLOBAL(zsptrf,ZSPTRF) -void LAPACK_zsptrf( +#define LAPACK_zsptrf_base LAPACK_GLOBAL(zsptrf,ZSPTRF) +void LAPACK_zsptrf_base( char const* uplo, lapack_int const* n, lapack_complex_double* AP, lapack_int* ipiv, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsptrf(...) LAPACK_zsptrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsptrf(...) LAPACK_zsptrf_base(__VA_ARGS__) +#endif -#define LAPACK_csptri LAPACK_GLOBAL(csptri,CSPTRI) -void LAPACK_csptri( +#define LAPACK_csptri_base LAPACK_GLOBAL(csptri,CSPTRI) +void LAPACK_csptri_base( char const* uplo, lapack_int const* n, lapack_complex_float* AP, lapack_int const* ipiv, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csptri(...) LAPACK_csptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_csptri(...) LAPACK_csptri_base(__VA_ARGS__) +#endif -#define LAPACK_dsptri LAPACK_GLOBAL(dsptri,DSPTRI) -void LAPACK_dsptri( +#define LAPACK_dsptri_base LAPACK_GLOBAL(dsptri,DSPTRI) +void LAPACK_dsptri_base( char const* uplo, lapack_int const* n, double* AP, lapack_int const* ipiv, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsptri(...) LAPACK_dsptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsptri(...) LAPACK_dsptri_base(__VA_ARGS__) +#endif -#define LAPACK_ssptri LAPACK_GLOBAL(ssptri,SSPTRI) -void LAPACK_ssptri( +#define LAPACK_ssptri_base LAPACK_GLOBAL(ssptri,SSPTRI) +void LAPACK_ssptri_base( char const* uplo, lapack_int const* n, float* AP, lapack_int const* ipiv, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssptri(...) LAPACK_ssptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssptri(...) LAPACK_ssptri_base(__VA_ARGS__) +#endif -#define LAPACK_zsptri LAPACK_GLOBAL(zsptri,ZSPTRI) -void LAPACK_zsptri( +#define LAPACK_zsptri_base LAPACK_GLOBAL(zsptri,ZSPTRI) +void LAPACK_zsptri_base( char const* uplo, lapack_int const* n, lapack_complex_double* AP, lapack_int const* ipiv, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsptri(...) LAPACK_zsptri_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsptri(...) LAPACK_zsptri_base(__VA_ARGS__) +#endif -#define LAPACK_csptrs LAPACK_GLOBAL(csptrs,CSPTRS) -void LAPACK_csptrs( +#define LAPACK_csptrs_base LAPACK_GLOBAL(csptrs,CSPTRS) +void LAPACK_csptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csptrs(...) LAPACK_csptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_csptrs(...) LAPACK_csptrs_base(__VA_ARGS__) +#endif -#define LAPACK_dsptrs LAPACK_GLOBAL(dsptrs,DSPTRS) -void LAPACK_dsptrs( +#define LAPACK_dsptrs_base LAPACK_GLOBAL(dsptrs,DSPTRS) +void LAPACK_dsptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* AP, lapack_int const* ipiv, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsptrs(...) LAPACK_dsptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsptrs(...) LAPACK_dsptrs_base(__VA_ARGS__) +#endif -#define LAPACK_ssptrs LAPACK_GLOBAL(ssptrs,SSPTRS) -void LAPACK_ssptrs( +#define LAPACK_ssptrs_base LAPACK_GLOBAL(ssptrs,SSPTRS) +void LAPACK_ssptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* AP, lapack_int const* ipiv, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssptrs(...) LAPACK_ssptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssptrs(...) LAPACK_ssptrs_base(__VA_ARGS__) +#endif -#define LAPACK_zsptrs LAPACK_GLOBAL(zsptrs,ZSPTRS) -void LAPACK_zsptrs( +#define LAPACK_zsptrs_base LAPACK_GLOBAL(zsptrs,ZSPTRS) +void LAPACK_zsptrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsptrs(...) LAPACK_zsptrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsptrs(...) LAPACK_zsptrs_base(__VA_ARGS__) +#endif -#define LAPACK_dstebz LAPACK_GLOBAL(dstebz,DSTEBZ) -void LAPACK_dstebz( +#define LAPACK_dstebz_base LAPACK_GLOBAL(dstebz,DSTEBZ) +void LAPACK_dstebz_base( char const* range, char const* order, lapack_int const* n, double const* vl, @@ -9894,10 +16084,19 @@ void LAPACK_dstebz( double* W, lapack_int* IBLOCK, lapack_int* ISPLIT, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dstebz(...) LAPACK_dstebz_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dstebz(...) LAPACK_dstebz_base(__VA_ARGS__) +#endif -#define LAPACK_sstebz LAPACK_GLOBAL(sstebz,SSTEBZ) -void LAPACK_sstebz( +#define LAPACK_sstebz_base LAPACK_GLOBAL(sstebz,SSTEBZ) +void LAPACK_sstebz_base( char const* range, char const* order, lapack_int const* n, float const* vl, @@ -9908,10 +16107,19 @@ void LAPACK_sstebz( float* W, lapack_int* IBLOCK, lapack_int* ISPLIT, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sstebz(...) LAPACK_sstebz_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sstebz(...) LAPACK_sstebz_base(__VA_ARGS__) +#endif -#define LAPACK_cstedc LAPACK_GLOBAL(cstedc,CSTEDC) -void LAPACK_cstedc( +#define LAPACK_cstedc_base LAPACK_GLOBAL(cstedc,CSTEDC) +void LAPACK_cstedc_base( char const* compz, lapack_int const* n, float* D, @@ -9920,10 +16128,19 @@ void LAPACK_cstedc( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cstedc(...) LAPACK_cstedc_base(__VA_ARGS__, 1) +#else + #define LAPACK_cstedc(...) LAPACK_cstedc_base(__VA_ARGS__) +#endif -#define LAPACK_dstedc LAPACK_GLOBAL(dstedc,DSTEDC) -void LAPACK_dstedc( +#define LAPACK_dstedc_base LAPACK_GLOBAL(dstedc,DSTEDC) +void LAPACK_dstedc_base( char const* compz, lapack_int const* n, double* D, @@ -9931,10 +16148,19 @@ void LAPACK_dstedc( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dstedc(...) LAPACK_dstedc_base(__VA_ARGS__, 1) +#else + #define LAPACK_dstedc(...) LAPACK_dstedc_base(__VA_ARGS__) +#endif -#define LAPACK_sstedc LAPACK_GLOBAL(sstedc,SSTEDC) -void LAPACK_sstedc( +#define LAPACK_sstedc_base LAPACK_GLOBAL(sstedc,SSTEDC) +void LAPACK_sstedc_base( char const* compz, lapack_int const* n, float* D, @@ -9942,10 +16168,19 @@ void LAPACK_sstedc( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sstedc(...) LAPACK_sstedc_base(__VA_ARGS__, 1) +#else + #define LAPACK_sstedc(...) LAPACK_sstedc_base(__VA_ARGS__) +#endif -#define LAPACK_zstedc LAPACK_GLOBAL(zstedc,ZSTEDC) -void LAPACK_zstedc( +#define LAPACK_zstedc_base LAPACK_GLOBAL(zstedc,ZSTEDC) +void LAPACK_zstedc_base( char const* compz, lapack_int const* n, double* D, @@ -9954,10 +16189,19 @@ void LAPACK_zstedc( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zstedc(...) LAPACK_zstedc_base(__VA_ARGS__, 1) +#else + #define LAPACK_zstedc(...) LAPACK_zstedc_base(__VA_ARGS__) +#endif -#define LAPACK_cstegr LAPACK_GLOBAL(cstegr,CSTEGR) -void LAPACK_cstegr( +#define LAPACK_cstegr_base LAPACK_GLOBAL(cstegr,CSTEGR) +void LAPACK_cstegr_base( char const* jobz, char const* range, lapack_int const* n, float* D, @@ -9969,10 +16213,19 @@ void LAPACK_cstegr( lapack_complex_float* Z, lapack_int const* ldz, lapack_int* ISUPPZ, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cstegr(...) LAPACK_cstegr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cstegr(...) LAPACK_cstegr_base(__VA_ARGS__) +#endif -#define LAPACK_dstegr LAPACK_GLOBAL(dstegr,DSTEGR) -void LAPACK_dstegr( +#define LAPACK_dstegr_base LAPACK_GLOBAL(dstegr,DSTEGR) +void LAPACK_dstegr_base( char const* jobz, char const* range, lapack_int const* n, double* D, @@ -9984,10 +16237,19 @@ void LAPACK_dstegr( double* Z, lapack_int const* ldz, lapack_int* ISUPPZ, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dstegr(...) LAPACK_dstegr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dstegr(...) LAPACK_dstegr_base(__VA_ARGS__) +#endif -#define LAPACK_sstegr LAPACK_GLOBAL(sstegr,SSTEGR) -void LAPACK_sstegr( +#define LAPACK_sstegr_base LAPACK_GLOBAL(sstegr,SSTEGR) +void LAPACK_sstegr_base( char const* jobz, char const* range, lapack_int const* n, float* D, @@ -9999,10 +16261,19 @@ void LAPACK_sstegr( float* Z, lapack_int const* ldz, lapack_int* ISUPPZ, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sstegr(...) LAPACK_sstegr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sstegr(...) LAPACK_sstegr_base(__VA_ARGS__) +#endif -#define LAPACK_zstegr LAPACK_GLOBAL(zstegr,ZSTEGR) -void LAPACK_zstegr( +#define LAPACK_zstegr_base LAPACK_GLOBAL(zstegr,ZSTEGR) +void LAPACK_zstegr_base( char const* jobz, char const* range, lapack_int const* n, double* D, @@ -10014,7 +16285,16 @@ void LAPACK_zstegr( lapack_complex_double* Z, lapack_int const* ldz, lapack_int* ISUPPZ, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zstegr(...) LAPACK_zstegr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zstegr(...) LAPACK_zstegr_base(__VA_ARGS__) +#endif #define LAPACK_cstein LAPACK_GLOBAL(cstein,CSTEIN) void LAPACK_cstein( @@ -10060,8 +16340,8 @@ void LAPACK_zstein( lapack_int* iwork, lapack_int* IFAIL, lapack_int* info ); -#define LAPACK_cstemr LAPACK_GLOBAL(cstemr,CSTEMR) -void LAPACK_cstemr( +#define LAPACK_cstemr_base LAPACK_GLOBAL(cstemr,CSTEMR) +void LAPACK_cstemr_base( char const* jobz, char const* range, lapack_int const* n, float* D, @@ -10072,10 +16352,19 @@ void LAPACK_cstemr( lapack_complex_float* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cstemr(...) LAPACK_cstemr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cstemr(...) LAPACK_cstemr_base(__VA_ARGS__) +#endif -#define LAPACK_dstemr LAPACK_GLOBAL(dstemr,DSTEMR) -void LAPACK_dstemr( +#define LAPACK_dstemr_base LAPACK_GLOBAL(dstemr,DSTEMR) +void LAPACK_dstemr_base( char const* jobz, char const* range, lapack_int const* n, double* D, @@ -10086,10 +16375,19 @@ void LAPACK_dstemr( double* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dstemr(...) LAPACK_dstemr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dstemr(...) LAPACK_dstemr_base(__VA_ARGS__) +#endif -#define LAPACK_sstemr LAPACK_GLOBAL(sstemr,SSTEMR) -void LAPACK_sstemr( +#define LAPACK_sstemr_base LAPACK_GLOBAL(sstemr,SSTEMR) +void LAPACK_sstemr_base( char const* jobz, char const* range, lapack_int const* n, float* D, @@ -10100,10 +16398,19 @@ void LAPACK_sstemr( float* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sstemr(...) LAPACK_sstemr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sstemr(...) LAPACK_sstemr_base(__VA_ARGS__) +#endif -#define LAPACK_zstemr LAPACK_GLOBAL(zstemr,ZSTEMR) -void LAPACK_zstemr( +#define LAPACK_zstemr_base LAPACK_GLOBAL(zstemr,ZSTEMR) +void LAPACK_zstemr_base( char const* jobz, char const* range, lapack_int const* n, double* D, @@ -10114,47 +16421,92 @@ void LAPACK_zstemr( lapack_complex_double* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zstemr(...) LAPACK_zstemr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zstemr(...) LAPACK_zstemr_base(__VA_ARGS__) +#endif -#define LAPACK_csteqr LAPACK_GLOBAL(csteqr,CSTEQR) -void LAPACK_csteqr( +#define LAPACK_csteqr_base LAPACK_GLOBAL(csteqr,CSTEQR) +void LAPACK_csteqr_base( char const* compz, lapack_int const* n, float* D, float* E, lapack_complex_float* Z, lapack_int const* ldz, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csteqr(...) LAPACK_csteqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_csteqr(...) LAPACK_csteqr_base(__VA_ARGS__) +#endif -#define LAPACK_dsteqr LAPACK_GLOBAL(dsteqr,DSTEQR) -void LAPACK_dsteqr( +#define LAPACK_dsteqr_base LAPACK_GLOBAL(dsteqr,DSTEQR) +void LAPACK_dsteqr_base( char const* compz, lapack_int const* n, double* D, double* E, double* Z, lapack_int const* ldz, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsteqr(...) LAPACK_dsteqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsteqr(...) LAPACK_dsteqr_base(__VA_ARGS__) +#endif -#define LAPACK_ssteqr LAPACK_GLOBAL(ssteqr,SSTEQR) -void LAPACK_ssteqr( +#define LAPACK_ssteqr_base LAPACK_GLOBAL(ssteqr,SSTEQR) +void LAPACK_ssteqr_base( char const* compz, lapack_int const* n, float* D, float* E, float* Z, lapack_int const* ldz, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssteqr(...) LAPACK_ssteqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssteqr(...) LAPACK_ssteqr_base(__VA_ARGS__) +#endif -#define LAPACK_zsteqr LAPACK_GLOBAL(zsteqr,ZSTEQR) -void LAPACK_zsteqr( +#define LAPACK_zsteqr_base LAPACK_GLOBAL(zsteqr,ZSTEQR) +void LAPACK_zsteqr_base( char const* compz, lapack_int const* n, double* D, double* E, lapack_complex_double* Z, lapack_int const* ldz, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsteqr(...) LAPACK_zsteqr_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsteqr(...) LAPACK_zsteqr_base(__VA_ARGS__) +#endif #define LAPACK_dsterf LAPACK_GLOBAL(dsterf,DSTERF) void LAPACK_dsterf( @@ -10170,28 +16522,46 @@ void LAPACK_ssterf( float* E, lapack_int* info ); -#define LAPACK_dstev LAPACK_GLOBAL(dstev,DSTEV) -void LAPACK_dstev( +#define LAPACK_dstev_base LAPACK_GLOBAL(dstev,DSTEV) +void LAPACK_dstev_base( char const* jobz, lapack_int const* n, double* D, double* E, double* Z, lapack_int const* ldz, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dstev(...) LAPACK_dstev_base(__VA_ARGS__, 1) +#else + #define LAPACK_dstev(...) LAPACK_dstev_base(__VA_ARGS__) +#endif -#define LAPACK_sstev LAPACK_GLOBAL(sstev,SSTEV) -void LAPACK_sstev( +#define LAPACK_sstev_base LAPACK_GLOBAL(sstev,SSTEV) +void LAPACK_sstev_base( char const* jobz, lapack_int const* n, float* D, float* E, float* Z, lapack_int const* ldz, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sstev(...) LAPACK_sstev_base(__VA_ARGS__, 1) +#else + #define LAPACK_sstev(...) LAPACK_sstev_base(__VA_ARGS__) +#endif -#define LAPACK_dstevd LAPACK_GLOBAL(dstevd,DSTEVD) -void LAPACK_dstevd( +#define LAPACK_dstevd_base LAPACK_GLOBAL(dstevd,DSTEVD) +void LAPACK_dstevd_base( char const* jobz, lapack_int const* n, double* D, @@ -10199,10 +16569,19 @@ void LAPACK_dstevd( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dstevd(...) LAPACK_dstevd_base(__VA_ARGS__, 1) +#else + #define LAPACK_dstevd(...) LAPACK_dstevd_base(__VA_ARGS__) +#endif -#define LAPACK_sstevd LAPACK_GLOBAL(sstevd,SSTEVD) -void LAPACK_sstevd( +#define LAPACK_sstevd_base LAPACK_GLOBAL(sstevd,SSTEVD) +void LAPACK_sstevd_base( char const* jobz, lapack_int const* n, float* D, @@ -10210,10 +16589,19 @@ void LAPACK_sstevd( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sstevd(...) LAPACK_sstevd_base(__VA_ARGS__, 1) +#else + #define LAPACK_sstevd(...) LAPACK_sstevd_base(__VA_ARGS__) +#endif -#define LAPACK_dstevr LAPACK_GLOBAL(dstevr,DSTEVR) -void LAPACK_dstevr( +#define LAPACK_dstevr_base LAPACK_GLOBAL(dstevr,DSTEVR) +void LAPACK_dstevr_base( char const* jobz, char const* range, lapack_int const* n, double* D, @@ -10225,10 +16613,19 @@ void LAPACK_dstevr( double* Z, lapack_int const* ldz, lapack_int* ISUPPZ, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dstevr(...) LAPACK_dstevr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dstevr(...) LAPACK_dstevr_base(__VA_ARGS__) +#endif -#define LAPACK_sstevr LAPACK_GLOBAL(sstevr,SSTEVR) -void LAPACK_sstevr( +#define LAPACK_sstevr_base LAPACK_GLOBAL(sstevr,SSTEVR) +void LAPACK_sstevr_base( char const* jobz, char const* range, lapack_int const* n, float* D, @@ -10240,10 +16637,19 @@ void LAPACK_sstevr( float* Z, lapack_int const* ldz, lapack_int* ISUPPZ, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sstevr(...) LAPACK_sstevr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sstevr(...) LAPACK_sstevr_base(__VA_ARGS__) +#endif -#define LAPACK_dstevx LAPACK_GLOBAL(dstevx,DSTEVX) -void LAPACK_dstevx( +#define LAPACK_dstevx_base LAPACK_GLOBAL(dstevx,DSTEVX) +void LAPACK_dstevx_base( char const* jobz, char const* range, lapack_int const* n, double* D, @@ -10255,10 +16661,19 @@ void LAPACK_dstevx( double* Z, lapack_int const* ldz, double* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dstevx(...) LAPACK_dstevx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dstevx(...) LAPACK_dstevx_base(__VA_ARGS__) +#endif -#define LAPACK_sstevx LAPACK_GLOBAL(sstevx,SSTEVX) -void LAPACK_sstevx( +#define LAPACK_sstevx_base LAPACK_GLOBAL(sstevx,SSTEVX) +void LAPACK_sstevx_base( char const* jobz, char const* range, lapack_int const* n, float* D, @@ -10270,20 +16685,38 @@ void LAPACK_sstevx( float* Z, lapack_int const* ldz, float* work, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_sstevx(...) LAPACK_sstevx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_sstevx(...) LAPACK_sstevx_base(__VA_ARGS__) +#endif -#define LAPACK_csycon LAPACK_GLOBAL(csycon,CSYCON) -void LAPACK_csycon( +#define LAPACK_csycon_base LAPACK_GLOBAL(csycon,CSYCON) +void LAPACK_csycon_base( char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, float const* anorm, float* rcond, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csycon(...) LAPACK_csycon_base(__VA_ARGS__, 1) +#else + #define LAPACK_csycon(...) LAPACK_csycon_base(__VA_ARGS__) +#endif -#define LAPACK_dsycon LAPACK_GLOBAL(dsycon,DSYCON) -void LAPACK_dsycon( +#define LAPACK_dsycon_base LAPACK_GLOBAL(dsycon,DSYCON) +void LAPACK_dsycon_base( char const* uplo, lapack_int const* n, double const* A, lapack_int const* lda, lapack_int const* ipiv, @@ -10291,10 +16724,19 @@ void LAPACK_dsycon( double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsycon(...) LAPACK_dsycon_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsycon(...) LAPACK_dsycon_base(__VA_ARGS__) +#endif -#define LAPACK_ssycon LAPACK_GLOBAL(ssycon,SSYCON) -void LAPACK_ssycon( +#define LAPACK_ssycon_base LAPACK_GLOBAL(ssycon,SSYCON) +void LAPACK_ssycon_base( char const* uplo, lapack_int const* n, float const* A, lapack_int const* lda, lapack_int const* ipiv, @@ -10302,20 +16744,38 @@ void LAPACK_ssycon( float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssycon(...) LAPACK_ssycon_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssycon(...) LAPACK_ssycon_base(__VA_ARGS__) +#endif -#define LAPACK_zsycon LAPACK_GLOBAL(zsycon,ZSYCON) -void LAPACK_zsycon( +#define LAPACK_zsycon_base LAPACK_GLOBAL(zsycon,ZSYCON) +void LAPACK_zsycon_base( char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, double const* anorm, double* rcond, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsycon(...) LAPACK_zsycon_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsycon(...) LAPACK_zsycon_base(__VA_ARGS__) +#endif -#define LAPACK_csycon_3 LAPACK_GLOBAL(csycon_3,CSYCON_3) -void LAPACK_csycon_3( +#define LAPACK_csycon_3_base LAPACK_GLOBAL(csycon_3,CSYCON_3) +void LAPACK_csycon_3_base( char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, @@ -10323,10 +16783,19 @@ void LAPACK_csycon_3( float const* anorm, float* rcond, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csycon_3(...) LAPACK_csycon_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_csycon_3(...) LAPACK_csycon_3_base(__VA_ARGS__) +#endif -#define LAPACK_dsycon_3 LAPACK_GLOBAL(dsycon_3,DSYCON_3) -void LAPACK_dsycon_3( +#define LAPACK_dsycon_3_base LAPACK_GLOBAL(dsycon_3,DSYCON_3) +void LAPACK_dsycon_3_base( char const* uplo, lapack_int const* n, double const* A, lapack_int const* lda, @@ -10335,11 +16804,20 @@ void LAPACK_dsycon_3( double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); - -#define LAPACK_ssycon_3 LAPACK_GLOBAL(ssycon_3,SSYCON_3) -void LAPACK_ssycon_3( - char const* uplo, + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsycon_3(...) LAPACK_dsycon_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsycon_3(...) LAPACK_dsycon_3_base(__VA_ARGS__) +#endif + +#define LAPACK_ssycon_3_base LAPACK_GLOBAL(ssycon_3,SSYCON_3) +void LAPACK_ssycon_3_base( + char const* uplo, lapack_int const* n, float const* A, lapack_int const* lda, float const* E, lapack_int const* ipiv, @@ -10347,10 +16825,19 @@ void LAPACK_ssycon_3( float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssycon_3(...) LAPACK_ssycon_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssycon_3(...) LAPACK_ssycon_3_base(__VA_ARGS__) +#endif -#define LAPACK_zsycon_3 LAPACK_GLOBAL(zsycon_3,ZSYCON_3) -void LAPACK_zsycon_3( +#define LAPACK_zsycon_3_base LAPACK_GLOBAL(zsycon_3,ZSYCON_3) +void LAPACK_zsycon_3_base( char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, @@ -10358,42 +16845,87 @@ void LAPACK_zsycon_3( double const* anorm, double* rcond, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsycon_3(...) LAPACK_zsycon_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsycon_3(...) LAPACK_zsycon_3_base(__VA_ARGS__) +#endif -#define LAPACK_csyconv LAPACK_GLOBAL(csyconv,CSYCONV) -void LAPACK_csyconv( +#define LAPACK_csyconv_base LAPACK_GLOBAL(csyconv,CSYCONV) +void LAPACK_csyconv_base( char const* uplo, char const* way, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* E, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csyconv(...) LAPACK_csyconv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_csyconv(...) LAPACK_csyconv_base(__VA_ARGS__) +#endif -#define LAPACK_dsyconv LAPACK_GLOBAL(dsyconv,DSYCONV) -void LAPACK_dsyconv( +#define LAPACK_dsyconv_base LAPACK_GLOBAL(dsyconv,DSYCONV) +void LAPACK_dsyconv_base( char const* uplo, char const* way, lapack_int const* n, double* A, lapack_int const* lda, lapack_int const* ipiv, double* E, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyconv(...) LAPACK_dsyconv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsyconv(...) LAPACK_dsyconv_base(__VA_ARGS__) +#endif -#define LAPACK_ssyconv LAPACK_GLOBAL(ssyconv,SSYCONV) -void LAPACK_ssyconv( +#define LAPACK_ssyconv_base LAPACK_GLOBAL(ssyconv,SSYCONV) +void LAPACK_ssyconv_base( char const* uplo, char const* way, lapack_int const* n, float* A, lapack_int const* lda, lapack_int const* ipiv, float* E, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyconv(...) LAPACK_ssyconv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssyconv(...) LAPACK_ssyconv_base(__VA_ARGS__) +#endif -#define LAPACK_zsyconv LAPACK_GLOBAL(zsyconv,ZSYCONV) -void LAPACK_zsyconv( +#define LAPACK_zsyconv_base LAPACK_GLOBAL(zsyconv,ZSYCONV) +void LAPACK_zsyconv_base( char const* uplo, char const* way, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* E, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsyconv(...) LAPACK_zsyconv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zsyconv(...) LAPACK_zsyconv_base(__VA_ARGS__) +#endif -#define LAPACK_csyequb LAPACK_GLOBAL(csyequb,CSYEQUB) -void LAPACK_csyequb( +#define LAPACK_csyequb_base LAPACK_GLOBAL(csyequb,CSYEQUB) +void LAPACK_csyequb_base( char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, @@ -10401,10 +16933,19 @@ void LAPACK_csyequb( float* scond, float* amax, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csyequb(...) LAPACK_csyequb_base(__VA_ARGS__, 1) +#else + #define LAPACK_csyequb(...) LAPACK_csyequb_base(__VA_ARGS__) +#endif -#define LAPACK_dsyequb LAPACK_GLOBAL(dsyequb,DSYEQUB) -void LAPACK_dsyequb( +#define LAPACK_dsyequb_base LAPACK_GLOBAL(dsyequb,DSYEQUB) +void LAPACK_dsyequb_base( char const* uplo, lapack_int const* n, double const* A, lapack_int const* lda, @@ -10412,10 +16953,19 @@ void LAPACK_dsyequb( double* scond, double* amax, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyequb(...) LAPACK_dsyequb_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsyequb(...) LAPACK_dsyequb_base(__VA_ARGS__) +#endif -#define LAPACK_ssyequb LAPACK_GLOBAL(ssyequb,SSYEQUB) -void LAPACK_ssyequb( +#define LAPACK_ssyequb_base LAPACK_GLOBAL(ssyequb,SSYEQUB) +void LAPACK_ssyequb_base( char const* uplo, lapack_int const* n, float const* A, lapack_int const* lda, @@ -10423,10 +16973,19 @@ void LAPACK_ssyequb( float* scond, float* amax, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyequb(...) LAPACK_ssyequb_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssyequb(...) LAPACK_ssyequb_base(__VA_ARGS__) +#endif -#define LAPACK_zsyequb LAPACK_GLOBAL(zsyequb,ZSYEQUB) -void LAPACK_zsyequb( +#define LAPACK_zsyequb_base LAPACK_GLOBAL(zsyequb,ZSYEQUB) +void LAPACK_zsyequb_base( char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, @@ -10434,86 +16993,167 @@ void LAPACK_zsyequb( double* scond, double* amax, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsyequb(...) LAPACK_zsyequb_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsyequb(...) LAPACK_zsyequb_base(__VA_ARGS__) +#endif -#define LAPACK_dsyev LAPACK_GLOBAL(dsyev,DSYEV) -void LAPACK_dsyev( +#define LAPACK_dsyev_base LAPACK_GLOBAL(dsyev,DSYEV) +void LAPACK_dsyev_base( char const* jobz, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double* W, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyev(...) LAPACK_dsyev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsyev(...) LAPACK_dsyev_base(__VA_ARGS__) +#endif -#define LAPACK_ssyev LAPACK_GLOBAL(ssyev,SSYEV) -void LAPACK_ssyev( +#define LAPACK_ssyev_base LAPACK_GLOBAL(ssyev,SSYEV) +void LAPACK_ssyev_base( char const* jobz, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float* W, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyev(...) LAPACK_ssyev_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssyev(...) LAPACK_ssyev_base(__VA_ARGS__) +#endif -#define LAPACK_dsyev_2stage LAPACK_GLOBAL(dsyev_2stage,DSYEV_2STAGE) -void LAPACK_dsyev_2stage( +#define LAPACK_dsyev_2stage_base LAPACK_GLOBAL(dsyev_2stage,DSYEV_2STAGE) +void LAPACK_dsyev_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double* W, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyev_2stage(...) LAPACK_dsyev_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsyev_2stage(...) LAPACK_dsyev_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssyev_2stage LAPACK_GLOBAL(ssyev_2stage,SSYEV_2STAGE) -void LAPACK_ssyev_2stage( +#define LAPACK_ssyev_2stage_base LAPACK_GLOBAL(ssyev_2stage,SSYEV_2STAGE) +void LAPACK_ssyev_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float* W, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyev_2stage(...) LAPACK_ssyev_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssyev_2stage(...) LAPACK_ssyev_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsyevd LAPACK_GLOBAL(dsyevd,DSYEVD) -void LAPACK_dsyevd( +#define LAPACK_dsyevd_base LAPACK_GLOBAL(dsyevd,DSYEVD) +void LAPACK_dsyevd_base( char const* jobz, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double* W, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyevd(...) LAPACK_dsyevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsyevd(...) LAPACK_dsyevd_base(__VA_ARGS__) +#endif -#define LAPACK_ssyevd LAPACK_GLOBAL(ssyevd,SSYEVD) -void LAPACK_ssyevd( +#define LAPACK_ssyevd_base LAPACK_GLOBAL(ssyevd,SSYEVD) +void LAPACK_ssyevd_base( char const* jobz, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float* W, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyevd(...) LAPACK_ssyevd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssyevd(...) LAPACK_ssyevd_base(__VA_ARGS__) +#endif -#define LAPACK_dsyevd_2stage LAPACK_GLOBAL(dsyevd_2stage,DSYEVD_2STAGE) -void LAPACK_dsyevd_2stage( +#define LAPACK_dsyevd_2stage_base LAPACK_GLOBAL(dsyevd_2stage,DSYEVD_2STAGE) +void LAPACK_dsyevd_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double* W, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyevd_2stage(...) LAPACK_dsyevd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsyevd_2stage(...) LAPACK_dsyevd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssyevd_2stage LAPACK_GLOBAL(ssyevd_2stage,SSYEVD_2STAGE) -void LAPACK_ssyevd_2stage( +#define LAPACK_ssyevd_2stage_base LAPACK_GLOBAL(ssyevd_2stage,SSYEVD_2STAGE) +void LAPACK_ssyevd_2stage_base( char const* jobz, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float* W, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyevd_2stage(...) LAPACK_ssyevd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssyevd_2stage(...) LAPACK_ssyevd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsyevr LAPACK_GLOBAL(dsyevr,DSYEVR) -void LAPACK_dsyevr( +#define LAPACK_dsyevr_base LAPACK_GLOBAL(dsyevr,DSYEVR) +void LAPACK_dsyevr_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, @@ -10524,10 +17164,19 @@ void LAPACK_dsyevr( double* Z, lapack_int const* ldz, lapack_int* ISUPPZ, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyevr(...) LAPACK_dsyevr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsyevr(...) LAPACK_dsyevr_base(__VA_ARGS__) +#endif -#define LAPACK_ssyevr LAPACK_GLOBAL(ssyevr,SSYEVR) -void LAPACK_ssyevr( +#define LAPACK_ssyevr_base LAPACK_GLOBAL(ssyevr,SSYEVR) +void LAPACK_ssyevr_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, @@ -10538,10 +17187,19 @@ void LAPACK_ssyevr( float* Z, lapack_int const* ldz, lapack_int* ISUPPZ, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyevr(...) LAPACK_ssyevr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssyevr(...) LAPACK_ssyevr_base(__VA_ARGS__) +#endif -#define LAPACK_dsyevr_2stage LAPACK_GLOBAL(dsyevr_2stage,DSYEVR_2STAGE) -void LAPACK_dsyevr_2stage( +#define LAPACK_dsyevr_2stage_base LAPACK_GLOBAL(dsyevr_2stage,DSYEVR_2STAGE) +void LAPACK_dsyevr_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, @@ -10552,10 +17210,19 @@ void LAPACK_dsyevr_2stage( double* Z, lapack_int const* ldz, lapack_int* ISUPPZ, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyevr_2stage(...) LAPACK_dsyevr_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsyevr_2stage(...) LAPACK_dsyevr_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssyevr_2stage LAPACK_GLOBAL(ssyevr_2stage,SSYEVR_2STAGE) -void LAPACK_ssyevr_2stage( +#define LAPACK_ssyevr_2stage_base LAPACK_GLOBAL(ssyevr_2stage,SSYEVR_2STAGE) +void LAPACK_ssyevr_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, @@ -10566,10 +17233,19 @@ void LAPACK_ssyevr_2stage( float* Z, lapack_int const* ldz, lapack_int* ISUPPZ, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyevr_2stage(...) LAPACK_ssyevr_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssyevr_2stage(...) LAPACK_ssyevr_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsyevx LAPACK_GLOBAL(dsyevx,DSYEVX) -void LAPACK_dsyevx( +#define LAPACK_dsyevx_base LAPACK_GLOBAL(dsyevx,DSYEVX) +void LAPACK_dsyevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, @@ -10580,10 +17256,19 @@ void LAPACK_dsyevx( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyevx(...) LAPACK_dsyevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsyevx(...) LAPACK_dsyevx_base(__VA_ARGS__) +#endif -#define LAPACK_ssyevx LAPACK_GLOBAL(ssyevx,SSYEVX) -void LAPACK_ssyevx( +#define LAPACK_ssyevx_base LAPACK_GLOBAL(ssyevx,SSYEVX) +void LAPACK_ssyevx_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, @@ -10594,10 +17279,19 @@ void LAPACK_ssyevx( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyevx(...) LAPACK_ssyevx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssyevx(...) LAPACK_ssyevx_base(__VA_ARGS__) +#endif -#define LAPACK_dsyevx_2stage LAPACK_GLOBAL(dsyevx_2stage,DSYEVX_2STAGE) -void LAPACK_dsyevx_2stage( +#define LAPACK_dsyevx_2stage_base LAPACK_GLOBAL(dsyevx_2stage,DSYEVX_2STAGE) +void LAPACK_dsyevx_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, @@ -10608,10 +17302,19 @@ void LAPACK_dsyevx_2stage( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyevx_2stage(...) LAPACK_dsyevx_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsyevx_2stage(...) LAPACK_dsyevx_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssyevx_2stage LAPACK_GLOBAL(ssyevx_2stage,SSYEVX_2STAGE) -void LAPACK_ssyevx_2stage( +#define LAPACK_ssyevx_2stage_base LAPACK_GLOBAL(ssyevx_2stage,SSYEVX_2STAGE) +void LAPACK_ssyevx_2stage_base( char const* jobz, char const* range, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, @@ -10622,66 +17325,129 @@ void LAPACK_ssyevx_2stage( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyevx_2stage(...) LAPACK_ssyevx_2stage_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssyevx_2stage(...) LAPACK_ssyevx_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsygst LAPACK_GLOBAL(dsygst,DSYGST) -void LAPACK_dsygst( +#define LAPACK_dsygst_base LAPACK_GLOBAL(dsygst,DSYGST) +void LAPACK_dsygst_base( lapack_int const* itype, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double const* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsygst(...) LAPACK_dsygst_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsygst(...) LAPACK_dsygst_base(__VA_ARGS__) +#endif -#define LAPACK_ssygst LAPACK_GLOBAL(ssygst,SSYGST) -void LAPACK_ssygst( +#define LAPACK_ssygst_base LAPACK_GLOBAL(ssygst,SSYGST) +void LAPACK_ssygst_base( lapack_int const* itype, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float const* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssygst(...) LAPACK_ssygst_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssygst(...) LAPACK_ssygst_base(__VA_ARGS__) +#endif -#define LAPACK_dsygv LAPACK_GLOBAL(dsygv,DSYGV) -void LAPACK_dsygv( +#define LAPACK_dsygv_base LAPACK_GLOBAL(dsygv,DSYGV) +void LAPACK_dsygv_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double* B, lapack_int const* ldb, double* W, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsygv(...) LAPACK_dsygv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsygv(...) LAPACK_dsygv_base(__VA_ARGS__) +#endif -#define LAPACK_ssygv LAPACK_GLOBAL(ssygv,SSYGV) -void LAPACK_ssygv( +#define LAPACK_ssygv_base LAPACK_GLOBAL(ssygv,SSYGV) +void LAPACK_ssygv_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float* B, lapack_int const* ldb, float* W, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssygv(...) LAPACK_ssygv_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssygv(...) LAPACK_ssygv_base(__VA_ARGS__) +#endif -#define LAPACK_dsygv_2stage LAPACK_GLOBAL(dsygv_2stage,DSYGV_2STAGE) -void LAPACK_dsygv_2stage( +#define LAPACK_dsygv_2stage_base LAPACK_GLOBAL(dsygv_2stage,DSYGV_2STAGE) +void LAPACK_dsygv_2stage_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double* B, lapack_int const* ldb, double* W, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsygv_2stage(...) LAPACK_dsygv_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsygv_2stage(...) LAPACK_dsygv_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssygv_2stage LAPACK_GLOBAL(ssygv_2stage,SSYGV_2STAGE) -void LAPACK_ssygv_2stage( +#define LAPACK_ssygv_2stage_base LAPACK_GLOBAL(ssygv_2stage,SSYGV_2STAGE) +void LAPACK_ssygv_2stage_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float* B, lapack_int const* ldb, float* W, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssygv_2stage(...) LAPACK_ssygv_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssygv_2stage(...) LAPACK_ssygv_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsygvd LAPACK_GLOBAL(dsygvd,DSYGVD) -void LAPACK_dsygvd( +#define LAPACK_dsygvd_base LAPACK_GLOBAL(dsygvd,DSYGVD) +void LAPACK_dsygvd_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, @@ -10689,10 +17455,19 @@ void LAPACK_dsygvd( double* W, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsygvd(...) LAPACK_dsygvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsygvd(...) LAPACK_dsygvd_base(__VA_ARGS__) +#endif -#define LAPACK_ssygvd LAPACK_GLOBAL(ssygvd,SSYGVD) -void LAPACK_ssygvd( +#define LAPACK_ssygvd_base LAPACK_GLOBAL(ssygvd,SSYGVD) +void LAPACK_ssygvd_base( lapack_int const* itype, char const* jobz, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, @@ -10700,10 +17475,19 @@ void LAPACK_ssygvd( float* W, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssygvd(...) LAPACK_ssygvd_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssygvd(...) LAPACK_ssygvd_base(__VA_ARGS__) +#endif -#define LAPACK_dsygvx LAPACK_GLOBAL(dsygvx,DSYGVX) -void LAPACK_dsygvx( +#define LAPACK_dsygvx_base LAPACK_GLOBAL(dsygvx,DSYGVX) +void LAPACK_dsygvx_base( lapack_int const* itype, char const* jobz, char const* range, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, @@ -10715,10 +17499,19 @@ void LAPACK_dsygvx( double* Z, lapack_int const* ldz, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsygvx(...) LAPACK_dsygvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsygvx(...) LAPACK_dsygvx_base(__VA_ARGS__) +#endif -#define LAPACK_ssygvx LAPACK_GLOBAL(ssygvx,SSYGVX) -void LAPACK_ssygvx( +#define LAPACK_ssygvx_base LAPACK_GLOBAL(ssygvx,SSYGVX) +void LAPACK_ssygvx_base( lapack_int const* itype, char const* jobz, char const* range, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, @@ -10730,26 +17523,53 @@ void LAPACK_ssygvx( float* Z, lapack_int const* ldz, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssygvx(...) LAPACK_ssygvx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssygvx(...) LAPACK_ssygvx_base(__VA_ARGS__) +#endif -#define LAPACK_csyr LAPACK_GLOBAL(csyr,CSYR) -void LAPACK_csyr( +#define LAPACK_csyr_base LAPACK_GLOBAL(csyr,CSYR) +void LAPACK_csyr_base( char const* uplo, lapack_int const* n, lapack_complex_float const* alpha, lapack_complex_float const* X, lapack_int const* incx, - lapack_complex_float* A, lapack_int const* lda ); + lapack_complex_float* A, lapack_int const* lda +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csyr(...) LAPACK_csyr_base(__VA_ARGS__, 1) +#else + #define LAPACK_csyr(...) LAPACK_csyr_base(__VA_ARGS__) +#endif -#define LAPACK_zsyr LAPACK_GLOBAL(zsyr,ZSYR) -void LAPACK_zsyr( +#define LAPACK_zsyr_base LAPACK_GLOBAL(zsyr,ZSYR) +void LAPACK_zsyr_base( char const* uplo, lapack_int const* n, lapack_complex_double const* alpha, lapack_complex_double const* X, lapack_int const* incx, - lapack_complex_double* A, lapack_int const* lda ); + lapack_complex_double* A, lapack_int const* lda +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsyr(...) LAPACK_zsyr_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsyr(...) LAPACK_zsyr_base(__VA_ARGS__) +#endif -#define LAPACK_csyrfs LAPACK_GLOBAL(csyrfs,CSYRFS) -void LAPACK_csyrfs( +#define LAPACK_csyrfs_base LAPACK_GLOBAL(csyrfs,CSYRFS) +void LAPACK_csyrfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -10760,10 +17580,19 @@ void LAPACK_csyrfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csyrfs(...) LAPACK_csyrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_csyrfs(...) LAPACK_csyrfs_base(__VA_ARGS__) +#endif -#define LAPACK_dsyrfs LAPACK_GLOBAL(dsyrfs,DSYRFS) -void LAPACK_dsyrfs( +#define LAPACK_dsyrfs_base LAPACK_GLOBAL(dsyrfs,DSYRFS) +void LAPACK_dsyrfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, @@ -10774,10 +17603,19 @@ void LAPACK_dsyrfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyrfs(...) LAPACK_dsyrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsyrfs(...) LAPACK_dsyrfs_base(__VA_ARGS__) +#endif -#define LAPACK_ssyrfs LAPACK_GLOBAL(ssyrfs,SSYRFS) -void LAPACK_ssyrfs( +#define LAPACK_ssyrfs_base LAPACK_GLOBAL(ssyrfs,SSYRFS) +void LAPACK_ssyrfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, @@ -10788,10 +17626,19 @@ void LAPACK_ssyrfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyrfs(...) LAPACK_ssyrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssyrfs(...) LAPACK_ssyrfs_base(__VA_ARGS__) +#endif -#define LAPACK_zsyrfs LAPACK_GLOBAL(zsyrfs,ZSYRFS) -void LAPACK_zsyrfs( +#define LAPACK_zsyrfs_base LAPACK_GLOBAL(zsyrfs,ZSYRFS) +void LAPACK_zsyrfs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -10802,10 +17649,19 @@ void LAPACK_zsyrfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsyrfs(...) LAPACK_zsyrfs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsyrfs(...) LAPACK_zsyrfs_base(__VA_ARGS__) +#endif -#define LAPACK_csyrfsx LAPACK_GLOBAL(csyrfsx,CSYRFSX) -void LAPACK_csyrfsx( +#define LAPACK_csyrfsx_base LAPACK_GLOBAL(csyrfsx,CSYRFSX) +void LAPACK_csyrfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -10820,10 +17676,19 @@ void LAPACK_csyrfsx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csyrfsx(...) LAPACK_csyrfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_csyrfsx(...) LAPACK_csyrfsx_base(__VA_ARGS__) +#endif -#define LAPACK_dsyrfsx LAPACK_GLOBAL(dsyrfsx,DSYRFSX) -void LAPACK_dsyrfsx( +#define LAPACK_dsyrfsx_base LAPACK_GLOBAL(dsyrfsx,DSYRFSX) +void LAPACK_dsyrfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, @@ -10838,10 +17703,19 @@ void LAPACK_dsyrfsx( double* params, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyrfsx(...) LAPACK_dsyrfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsyrfsx(...) LAPACK_dsyrfsx_base(__VA_ARGS__) +#endif -#define LAPACK_ssyrfsx LAPACK_GLOBAL(ssyrfsx,SSYRFSX) -void LAPACK_ssyrfsx( +#define LAPACK_ssyrfsx_base LAPACK_GLOBAL(ssyrfsx,SSYRFSX) +void LAPACK_ssyrfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, @@ -10856,10 +17730,19 @@ void LAPACK_ssyrfsx( float* params, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyrfsx(...) LAPACK_ssyrfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssyrfsx(...) LAPACK_ssyrfsx_base(__VA_ARGS__) +#endif -#define LAPACK_zsyrfsx LAPACK_GLOBAL(zsyrfsx,ZSYRFSX) -void LAPACK_zsyrfsx( +#define LAPACK_zsyrfsx_base LAPACK_GLOBAL(zsyrfsx,ZSYRFSX) +void LAPACK_zsyrfsx_base( char const* uplo, char const* equed, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -10874,198 +17757,387 @@ void LAPACK_zsyrfsx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsyrfsx(...) LAPACK_zsyrfsx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zsyrfsx(...) LAPACK_zsyrfsx_base(__VA_ARGS__) +#endif -#define LAPACK_csysv LAPACK_GLOBAL(csysv,CSYSV) -void LAPACK_csysv( +#define LAPACK_csysv_base LAPACK_GLOBAL(csysv,CSYSV) +void LAPACK_csysv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csysv(...) LAPACK_csysv_base(__VA_ARGS__, 1) +#else + #define LAPACK_csysv(...) LAPACK_csysv_base(__VA_ARGS__) +#endif -#define LAPACK_dsysv LAPACK_GLOBAL(dsysv,DSYSV) -void LAPACK_dsysv( +#define LAPACK_dsysv_base LAPACK_GLOBAL(dsysv,DSYSV) +void LAPACK_dsysv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, lapack_int* ipiv, double* B, lapack_int const* ldb, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsysv(...) LAPACK_dsysv_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsysv(...) LAPACK_dsysv_base(__VA_ARGS__) +#endif -#define LAPACK_ssysv LAPACK_GLOBAL(ssysv,SSYSV) -void LAPACK_ssysv( +#define LAPACK_ssysv_base LAPACK_GLOBAL(ssysv,SSYSV) +void LAPACK_ssysv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, lapack_int* ipiv, float* B, lapack_int const* ldb, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssysv(...) LAPACK_ssysv_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssysv(...) LAPACK_ssysv_base(__VA_ARGS__) +#endif -#define LAPACK_zsysv LAPACK_GLOBAL(zsysv,ZSYSV) -void LAPACK_zsysv( +#define LAPACK_zsysv_base LAPACK_GLOBAL(zsysv,ZSYSV) +void LAPACK_zsysv_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsysv(...) LAPACK_zsysv_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsysv(...) LAPACK_zsysv_base(__VA_ARGS__) +#endif -#define LAPACK_csysv_aa LAPACK_GLOBAL(csysv_aa,CSYSV_AA) -void LAPACK_csysv_aa( +#define LAPACK_csysv_aa_base LAPACK_GLOBAL(csysv_aa,CSYSV_AA) +void LAPACK_csysv_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csysv_aa(...) LAPACK_csysv_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_csysv_aa(...) LAPACK_csysv_aa_base(__VA_ARGS__) +#endif -#define LAPACK_dsysv_aa LAPACK_GLOBAL(dsysv_aa,DSYSV_AA) -void LAPACK_dsysv_aa( +#define LAPACK_dsysv_aa_base LAPACK_GLOBAL(dsysv_aa,DSYSV_AA) +void LAPACK_dsysv_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, lapack_int* ipiv, double* B, lapack_int const* ldb, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsysv_aa(...) LAPACK_dsysv_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsysv_aa(...) LAPACK_dsysv_aa_base(__VA_ARGS__) +#endif -#define LAPACK_ssysv_aa LAPACK_GLOBAL(ssysv_aa,SSYSV_AA) -void LAPACK_ssysv_aa( +#define LAPACK_ssysv_aa_base LAPACK_GLOBAL(ssysv_aa,SSYSV_AA) +void LAPACK_ssysv_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, lapack_int* ipiv, float* B, lapack_int const* ldb, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssysv_aa(...) LAPACK_ssysv_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssysv_aa(...) LAPACK_ssysv_aa_base(__VA_ARGS__) +#endif -#define LAPACK_zsysv_aa LAPACK_GLOBAL(zsysv_aa,ZSYSV_AA) -void LAPACK_zsysv_aa( +#define LAPACK_zsysv_aa_base LAPACK_GLOBAL(zsysv_aa,ZSYSV_AA) +void LAPACK_zsysv_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsysv_aa(...) LAPACK_zsysv_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsysv_aa(...) LAPACK_zsysv_aa_base(__VA_ARGS__) +#endif -#define LAPACK_csysv_aa_2stage LAPACK_GLOBAL(csysv_aa_2stage,CSYSV_AA_2STAGE) -void LAPACK_csysv_aa_2stage( +#define LAPACK_csysv_aa_2stage_base LAPACK_GLOBAL(csysv_aa_2stage,CSYSV_AA_2STAGE) +void LAPACK_csysv_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csysv_aa_2stage(...) LAPACK_csysv_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_csysv_aa_2stage(...) LAPACK_csysv_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsysv_aa_2stage LAPACK_GLOBAL(dsysv_aa_2stage,DSYSV_AA_2STAGE) -void LAPACK_dsysv_aa_2stage( +#define LAPACK_dsysv_aa_2stage_base LAPACK_GLOBAL(dsysv_aa_2stage,DSYSV_AA_2STAGE) +void LAPACK_dsysv_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, double* B, lapack_int const* ldb, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsysv_aa_2stage(...) LAPACK_dsysv_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsysv_aa_2stage(...) LAPACK_dsysv_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssysv_aa_2stage LAPACK_GLOBAL(ssysv_aa_2stage,SSYSV_AA_2STAGE) -void LAPACK_ssysv_aa_2stage( +#define LAPACK_ssysv_aa_2stage_base LAPACK_GLOBAL(ssysv_aa_2stage,SSYSV_AA_2STAGE) +void LAPACK_ssysv_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, float* B, lapack_int const* ldb, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssysv_aa_2stage(...) LAPACK_ssysv_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssysv_aa_2stage(...) LAPACK_ssysv_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zsysv_aa_2stage LAPACK_GLOBAL(zsysv_aa_2stage,ZSYSV_AA_2STAGE) -void LAPACK_zsysv_aa_2stage( +#define LAPACK_zsysv_aa_2stage_base LAPACK_GLOBAL(zsysv_aa_2stage,ZSYSV_AA_2STAGE) +void LAPACK_zsysv_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsysv_aa_2stage(...) LAPACK_zsysv_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsysv_aa_2stage(...) LAPACK_zsysv_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_csysv_rk LAPACK_GLOBAL(csysv_rk,CSYSV_RK) -void LAPACK_csysv_rk( +#define LAPACK_csysv_rk_base LAPACK_GLOBAL(csysv_rk,CSYSV_RK) +void LAPACK_csysv_rk_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* E, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csysv_rk(...) LAPACK_csysv_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_csysv_rk(...) LAPACK_csysv_rk_base(__VA_ARGS__) +#endif -#define LAPACK_dsysv_rk LAPACK_GLOBAL(dsysv_rk,DSYSV_RK) -void LAPACK_dsysv_rk( +#define LAPACK_dsysv_rk_base LAPACK_GLOBAL(dsysv_rk,DSYSV_RK) +void LAPACK_dsysv_rk_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, double* E, lapack_int* ipiv, double* B, lapack_int const* ldb, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsysv_rk(...) LAPACK_dsysv_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsysv_rk(...) LAPACK_dsysv_rk_base(__VA_ARGS__) +#endif -#define LAPACK_ssysv_rk LAPACK_GLOBAL(ssysv_rk,SSYSV_RK) -void LAPACK_ssysv_rk( +#define LAPACK_ssysv_rk_base LAPACK_GLOBAL(ssysv_rk,SSYSV_RK) +void LAPACK_ssysv_rk_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, float* E, lapack_int* ipiv, float* B, lapack_int const* ldb, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssysv_rk(...) LAPACK_ssysv_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssysv_rk(...) LAPACK_ssysv_rk_base(__VA_ARGS__) +#endif -#define LAPACK_zsysv_rk LAPACK_GLOBAL(zsysv_rk,ZSYSV_RK) -void LAPACK_zsysv_rk( +#define LAPACK_zsysv_rk_base LAPACK_GLOBAL(zsysv_rk,ZSYSV_RK) +void LAPACK_zsysv_rk_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* E, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsysv_rk(...) LAPACK_zsysv_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsysv_rk(...) LAPACK_zsysv_rk_base(__VA_ARGS__) +#endif -#define LAPACK_csysv_rook LAPACK_GLOBAL(csysv_rook,CSYSV_ROOK) -void LAPACK_csysv_rook( +#define LAPACK_csysv_rook_base LAPACK_GLOBAL(csysv_rook,CSYSV_ROOK) +void LAPACK_csysv_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csysv_rook(...) LAPACK_csysv_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_csysv_rook(...) LAPACK_csysv_rook_base(__VA_ARGS__) +#endif -#define LAPACK_dsysv_rook LAPACK_GLOBAL(dsysv_rook,DSYSV_ROOK) -void LAPACK_dsysv_rook( +#define LAPACK_dsysv_rook_base LAPACK_GLOBAL(dsysv_rook,DSYSV_ROOK) +void LAPACK_dsysv_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, lapack_int* ipiv, double* B, lapack_int const* ldb, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsysv_rook(...) LAPACK_dsysv_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsysv_rook(...) LAPACK_dsysv_rook_base(__VA_ARGS__) +#endif -#define LAPACK_ssysv_rook LAPACK_GLOBAL(ssysv_rook,SSYSV_ROOK) -void LAPACK_ssysv_rook( +#define LAPACK_ssysv_rook_base LAPACK_GLOBAL(ssysv_rook,SSYSV_ROOK) +void LAPACK_ssysv_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, lapack_int* ipiv, float* B, lapack_int const* ldb, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssysv_rook(...) LAPACK_ssysv_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssysv_rook(...) LAPACK_ssysv_rook_base(__VA_ARGS__) +#endif -#define LAPACK_zsysv_rook LAPACK_GLOBAL(zsysv_rook,ZSYSV_ROOK) -void LAPACK_zsysv_rook( +#define LAPACK_zsysv_rook_base LAPACK_GLOBAL(zsysv_rook,ZSYSV_ROOK) +void LAPACK_zsysv_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsysv_rook(...) LAPACK_zsysv_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsysv_rook(...) LAPACK_zsysv_rook_base(__VA_ARGS__) +#endif -#define LAPACK_csysvx LAPACK_GLOBAL(csysvx,CSYSVX) -void LAPACK_csysvx( +#define LAPACK_csysvx_base LAPACK_GLOBAL(csysvx,CSYSVX) +void LAPACK_csysvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -11077,10 +18149,19 @@ void LAPACK_csysvx( float* berr, lapack_complex_float* work, lapack_int const* lwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csysvx(...) LAPACK_csysvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_csysvx(...) LAPACK_csysvx_base(__VA_ARGS__) +#endif -#define LAPACK_dsysvx LAPACK_GLOBAL(dsysvx,DSYSVX) -void LAPACK_dsysvx( +#define LAPACK_dsysvx_base LAPACK_GLOBAL(dsysvx,DSYSVX) +void LAPACK_dsysvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, @@ -11092,10 +18173,19 @@ void LAPACK_dsysvx( double* berr, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsysvx(...) LAPACK_dsysvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsysvx(...) LAPACK_dsysvx_base(__VA_ARGS__) +#endif -#define LAPACK_ssysvx LAPACK_GLOBAL(ssysvx,SSYSVX) -void LAPACK_ssysvx( +#define LAPACK_ssysvx_base LAPACK_GLOBAL(ssysvx,SSYSVX) +void LAPACK_ssysvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, @@ -11107,10 +18197,19 @@ void LAPACK_ssysvx( float* berr, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssysvx(...) LAPACK_ssysvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssysvx(...) LAPACK_ssysvx_base(__VA_ARGS__) +#endif -#define LAPACK_zsysvx LAPACK_GLOBAL(zsysvx,ZSYSVX) -void LAPACK_zsysvx( +#define LAPACK_zsysvx_base LAPACK_GLOBAL(zsysvx,ZSYSVX) +void LAPACK_zsysvx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -11122,10 +18221,19 @@ void LAPACK_zsysvx( double* berr, lapack_complex_double* work, lapack_int const* lwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsysvx(...) LAPACK_zsysvx_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zsysvx(...) LAPACK_zsysvx_base(__VA_ARGS__) +#endif -#define LAPACK_csysvxx LAPACK_GLOBAL(csysvxx,CSYSVXX) -void LAPACK_csysvxx( +#define LAPACK_csysvxx_base LAPACK_GLOBAL(csysvxx,CSYSVXX) +void LAPACK_csysvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float* A, lapack_int const* lda, @@ -11142,10 +18250,19 @@ void LAPACK_csysvxx( float* params, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csysvxx(...) LAPACK_csysvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_csysvxx(...) LAPACK_csysvxx_base(__VA_ARGS__) +#endif -#define LAPACK_dsysvxx LAPACK_GLOBAL(dsysvxx,DSYSVXX) -void LAPACK_dsysvxx( +#define LAPACK_dsysvxx_base LAPACK_GLOBAL(dsysvxx,DSYSVXX) +void LAPACK_dsysvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, double* A, lapack_int const* lda, @@ -11162,10 +18279,19 @@ void LAPACK_dsysvxx( double* params, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsysvxx(...) LAPACK_dsysvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dsysvxx(...) LAPACK_dsysvxx_base(__VA_ARGS__) +#endif -#define LAPACK_ssysvxx LAPACK_GLOBAL(ssysvxx,SSYSVXX) -void LAPACK_ssysvxx( +#define LAPACK_ssysvxx_base LAPACK_GLOBAL(ssysvxx,SSYSVXX) +void LAPACK_ssysvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, float* A, lapack_int const* lda, @@ -11182,10 +18308,19 @@ void LAPACK_ssysvxx( float* params, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssysvxx(...) LAPACK_ssysvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ssysvxx(...) LAPACK_ssysvxx_base(__VA_ARGS__) +#endif -#define LAPACK_zsysvxx LAPACK_GLOBAL(zsysvxx,ZSYSVXX) -void LAPACK_zsysvxx( +#define LAPACK_zsysvxx_base LAPACK_GLOBAL(zsysvxx,ZSYSVXX) +void LAPACK_zsysvxx_base( char const* fact, char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double* A, lapack_int const* lda, @@ -11202,34 +18337,79 @@ void LAPACK_zsysvxx( double* params, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsysvxx(...) LAPACK_zsysvxx_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zsysvxx(...) LAPACK_zsysvxx_base(__VA_ARGS__) +#endif -#define LAPACK_csyswapr LAPACK_GLOBAL(csyswapr,CSYSWAPR) -void LAPACK_csyswapr( +#define LAPACK_csyswapr_base LAPACK_GLOBAL(csyswapr,CSYSWAPR) +void LAPACK_csyswapr_base( char const* uplo, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 ); + lapack_complex_float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csyswapr(...) LAPACK_csyswapr_base(__VA_ARGS__, 1) +#else + #define LAPACK_csyswapr(...) LAPACK_csyswapr_base(__VA_ARGS__) +#endif -#define LAPACK_dsyswapr LAPACK_GLOBAL(dsyswapr,DSYSWAPR) -void LAPACK_dsyswapr( +#define LAPACK_dsyswapr_base LAPACK_GLOBAL(dsyswapr,DSYSWAPR) +void LAPACK_dsyswapr_base( char const* uplo, lapack_int const* n, - double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 ); + double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsyswapr(...) LAPACK_dsyswapr_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsyswapr(...) LAPACK_dsyswapr_base(__VA_ARGS__) +#endif -#define LAPACK_ssyswapr LAPACK_GLOBAL(ssyswapr,SSYSWAPR) -void LAPACK_ssyswapr( +#define LAPACK_ssyswapr_base LAPACK_GLOBAL(ssyswapr,SSYSWAPR) +void LAPACK_ssyswapr_base( char const* uplo, lapack_int const* n, - float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 ); + float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssyswapr(...) LAPACK_ssyswapr_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssyswapr(...) LAPACK_ssyswapr_base(__VA_ARGS__) +#endif -#define LAPACK_zsyswapr LAPACK_GLOBAL(zsyswapr,ZSYSWAPR) -void LAPACK_zsyswapr( +#define LAPACK_zsyswapr_base LAPACK_GLOBAL(zsyswapr,ZSYSWAPR) +void LAPACK_zsyswapr_base( char const* uplo, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 ); + lapack_complex_double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsyswapr(...) LAPACK_zsyswapr_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsyswapr(...) LAPACK_zsyswapr_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrd LAPACK_GLOBAL(dsytrd,DSYTRD) -void LAPACK_dsytrd( +#define LAPACK_dsytrd_base LAPACK_GLOBAL(dsytrd,DSYTRD) +void LAPACK_dsytrd_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, @@ -11237,10 +18417,19 @@ void LAPACK_dsytrd( double* E, double* tau, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrd(...) LAPACK_dsytrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrd(...) LAPACK_dsytrd_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrd LAPACK_GLOBAL(ssytrd,SSYTRD) -void LAPACK_ssytrd( +#define LAPACK_ssytrd_base LAPACK_GLOBAL(ssytrd,SSYTRD) +void LAPACK_ssytrd_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, @@ -11248,10 +18437,19 @@ void LAPACK_ssytrd( float* E, float* tau, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrd(...) LAPACK_ssytrd_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrd(...) LAPACK_ssytrd_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrd_2stage LAPACK_GLOBAL(dsytrd_2stage,DSYTRD_2STAGE) -void LAPACK_dsytrd_2stage( +#define LAPACK_dsytrd_2stage_base LAPACK_GLOBAL(dsytrd_2stage,DSYTRD_2STAGE) +void LAPACK_dsytrd_2stage_base( char const* vect, char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, @@ -11260,10 +18458,19 @@ void LAPACK_dsytrd_2stage( double* tau, double* HOUS2, lapack_int const* lhous2, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrd_2stage(...) LAPACK_dsytrd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dsytrd_2stage(...) LAPACK_dsytrd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrd_2stage LAPACK_GLOBAL(ssytrd_2stage,SSYTRD_2STAGE) -void LAPACK_ssytrd_2stage( +#define LAPACK_ssytrd_2stage_base LAPACK_GLOBAL(ssytrd_2stage,SSYTRD_2STAGE) +void LAPACK_ssytrd_2stage_base( char const* vect, char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, @@ -11272,558 +18479,1143 @@ void LAPACK_ssytrd_2stage( float* tau, float* HOUS2, lapack_int const* lhous2, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrd_2stage(...) LAPACK_ssytrd_2stage_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ssytrd_2stage(...) LAPACK_ssytrd_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_csytrf LAPACK_GLOBAL(csytrf,CSYTRF) -void LAPACK_csytrf( +#define LAPACK_csytrf_base LAPACK_GLOBAL(csytrf,CSYTRF) +void LAPACK_csytrf_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrf(...) LAPACK_csytrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrf(...) LAPACK_csytrf_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrf LAPACK_GLOBAL(dsytrf,DSYTRF) -void LAPACK_dsytrf( +#define LAPACK_dsytrf_base LAPACK_GLOBAL(dsytrf,DSYTRF) +void LAPACK_dsytrf_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, lapack_int* ipiv, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrf(...) LAPACK_dsytrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrf(...) LAPACK_dsytrf_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrf LAPACK_GLOBAL(ssytrf,SSYTRF) -void LAPACK_ssytrf( +#define LAPACK_ssytrf_base LAPACK_GLOBAL(ssytrf,SSYTRF) +void LAPACK_ssytrf_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, lapack_int* ipiv, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrf(...) LAPACK_ssytrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrf(...) LAPACK_ssytrf_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrf LAPACK_GLOBAL(zsytrf,ZSYTRF) -void LAPACK_zsytrf( +#define LAPACK_zsytrf_base LAPACK_GLOBAL(zsytrf,ZSYTRF) +void LAPACK_zsytrf_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrf(...) LAPACK_zsytrf_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrf(...) LAPACK_zsytrf_base(__VA_ARGS__) +#endif -#define LAPACK_csytrf_aa LAPACK_GLOBAL(csytrf_aa,CSYTRF_AA) -void LAPACK_csytrf_aa( +#define LAPACK_csytrf_aa_base LAPACK_GLOBAL(csytrf_aa,CSYTRF_AA) +void LAPACK_csytrf_aa_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrf_aa(...) LAPACK_csytrf_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrf_aa(...) LAPACK_csytrf_aa_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrf_aa LAPACK_GLOBAL(dsytrf_aa,DSYTRF_AA) -void LAPACK_dsytrf_aa( +#define LAPACK_dsytrf_aa_base LAPACK_GLOBAL(dsytrf_aa,DSYTRF_AA) +void LAPACK_dsytrf_aa_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, lapack_int* ipiv, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrf_aa(...) LAPACK_dsytrf_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrf_aa(...) LAPACK_dsytrf_aa_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrf_aa LAPACK_GLOBAL(ssytrf_aa,SSYTRF_AA) -void LAPACK_ssytrf_aa( +#define LAPACK_ssytrf_aa_base LAPACK_GLOBAL(ssytrf_aa,SSYTRF_AA) +void LAPACK_ssytrf_aa_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, lapack_int* ipiv, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrf_aa(...) LAPACK_ssytrf_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrf_aa(...) LAPACK_ssytrf_aa_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrf_aa LAPACK_GLOBAL(zsytrf_aa,ZSYTRF_AA) -void LAPACK_zsytrf_aa( +#define LAPACK_zsytrf_aa_base LAPACK_GLOBAL(zsytrf_aa,ZSYTRF_AA) +void LAPACK_zsytrf_aa_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrf_aa(...) LAPACK_zsytrf_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrf_aa(...) LAPACK_zsytrf_aa_base(__VA_ARGS__) +#endif -#define LAPACK_csytrf_aa_2stage LAPACK_GLOBAL(csytrf_aa_2stage,CSYTRF_AA_2STAGE) -void LAPACK_csytrf_aa_2stage( +#define LAPACK_csytrf_aa_2stage_base LAPACK_GLOBAL(csytrf_aa_2stage,CSYTRF_AA_2STAGE) +void LAPACK_csytrf_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrf_aa_2stage(...) LAPACK_csytrf_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrf_aa_2stage(...) LAPACK_csytrf_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrf_aa_2stage LAPACK_GLOBAL(dsytrf_aa_2stage,DSYTRF_AA_2STAGE) -void LAPACK_dsytrf_aa_2stage( +#define LAPACK_dsytrf_aa_2stage_base LAPACK_GLOBAL(dsytrf_aa_2stage,DSYTRF_AA_2STAGE) +void LAPACK_dsytrf_aa_2stage_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrf_aa_2stage(...) LAPACK_dsytrf_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrf_aa_2stage(...) LAPACK_dsytrf_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrf_aa_2stage LAPACK_GLOBAL(ssytrf_aa_2stage,SSYTRF_AA_2STAGE) -void LAPACK_ssytrf_aa_2stage( +#define LAPACK_ssytrf_aa_2stage_base LAPACK_GLOBAL(ssytrf_aa_2stage,SSYTRF_AA_2STAGE) +void LAPACK_ssytrf_aa_2stage_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrf_aa_2stage(...) LAPACK_ssytrf_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrf_aa_2stage(...) LAPACK_ssytrf_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrf_aa_2stage LAPACK_GLOBAL(zsytrf_aa_2stage,ZSYTRF_AA_2STAGE) -void LAPACK_zsytrf_aa_2stage( +#define LAPACK_zsytrf_aa_2stage_base LAPACK_GLOBAL(zsytrf_aa_2stage,ZSYTRF_AA_2STAGE) +void LAPACK_zsytrf_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrf_aa_2stage(...) LAPACK_zsytrf_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrf_aa_2stage(...) LAPACK_zsytrf_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_csytrf_rk LAPACK_GLOBAL(csytrf_rk,CSYTRF_RK) -void LAPACK_csytrf_rk( +#define LAPACK_csytrf_rk_base LAPACK_GLOBAL(csytrf_rk,CSYTRF_RK) +void LAPACK_csytrf_rk_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* E, lapack_int* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrf_rk(...) LAPACK_csytrf_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrf_rk(...) LAPACK_csytrf_rk_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrf_rk LAPACK_GLOBAL(dsytrf_rk,DSYTRF_RK) -void LAPACK_dsytrf_rk( +#define LAPACK_dsytrf_rk_base LAPACK_GLOBAL(dsytrf_rk,DSYTRF_RK) +void LAPACK_dsytrf_rk_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double* E, lapack_int* ipiv, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrf_rk(...) LAPACK_dsytrf_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrf_rk(...) LAPACK_dsytrf_rk_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrf_rk LAPACK_GLOBAL(ssytrf_rk,SSYTRF_RK) -void LAPACK_ssytrf_rk( +#define LAPACK_ssytrf_rk_base LAPACK_GLOBAL(ssytrf_rk,SSYTRF_RK) +void LAPACK_ssytrf_rk_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float* E, lapack_int* ipiv, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrf_rk(...) LAPACK_ssytrf_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrf_rk(...) LAPACK_ssytrf_rk_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrf_rk LAPACK_GLOBAL(zsytrf_rk,ZSYTRF_RK) -void LAPACK_zsytrf_rk( +#define LAPACK_zsytrf_rk_base LAPACK_GLOBAL(zsytrf_rk,ZSYTRF_RK) +void LAPACK_zsytrf_rk_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* E, lapack_int* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrf_rk(...) LAPACK_zsytrf_rk_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrf_rk(...) LAPACK_zsytrf_rk_base(__VA_ARGS__) +#endif -#define LAPACK_csytrf_rook LAPACK_GLOBAL(csytrf_rook,CSYTRF_ROOK) -void LAPACK_csytrf_rook( +#define LAPACK_csytrf_rook_base LAPACK_GLOBAL(csytrf_rook,CSYTRF_ROOK) +void LAPACK_csytrf_rook_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrf_rook(...) LAPACK_csytrf_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrf_rook(...) LAPACK_csytrf_rook_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrf_rook LAPACK_GLOBAL(dsytrf_rook,DSYTRF_ROOK) -void LAPACK_dsytrf_rook( +#define LAPACK_dsytrf_rook_base LAPACK_GLOBAL(dsytrf_rook,DSYTRF_ROOK) +void LAPACK_dsytrf_rook_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, lapack_int* ipiv, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrf_rook(...) LAPACK_dsytrf_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrf_rook(...) LAPACK_dsytrf_rook_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrf_rook LAPACK_GLOBAL(ssytrf_rook,SSYTRF_ROOK) -void LAPACK_ssytrf_rook( +#define LAPACK_ssytrf_rook_base LAPACK_GLOBAL(ssytrf_rook,SSYTRF_ROOK) +void LAPACK_ssytrf_rook_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, lapack_int* ipiv, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrf_rook(...) LAPACK_ssytrf_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrf_rook(...) LAPACK_ssytrf_rook_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrf_rook LAPACK_GLOBAL(zsytrf_rook,ZSYTRF_ROOK) -void LAPACK_zsytrf_rook( +#define LAPACK_zsytrf_rook_base LAPACK_GLOBAL(zsytrf_rook,ZSYTRF_ROOK) +void LAPACK_zsytrf_rook_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrf_rook(...) LAPACK_zsytrf_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrf_rook(...) LAPACK_zsytrf_rook_base(__VA_ARGS__) +#endif -#define LAPACK_csytri LAPACK_GLOBAL(csytri,CSYTRI) -void LAPACK_csytri( +#define LAPACK_csytri_base LAPACK_GLOBAL(csytri,CSYTRI) +void LAPACK_csytri_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytri(...) LAPACK_csytri_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytri(...) LAPACK_csytri_base(__VA_ARGS__) +#endif -#define LAPACK_dsytri LAPACK_GLOBAL(dsytri,DSYTRI) -void LAPACK_dsytri( +#define LAPACK_dsytri_base LAPACK_GLOBAL(dsytri,DSYTRI) +void LAPACK_dsytri_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, lapack_int const* ipiv, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytri(...) LAPACK_dsytri_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytri(...) LAPACK_dsytri_base(__VA_ARGS__) +#endif -#define LAPACK_ssytri LAPACK_GLOBAL(ssytri,SSYTRI) -void LAPACK_ssytri( +#define LAPACK_ssytri_base LAPACK_GLOBAL(ssytri,SSYTRI) +void LAPACK_ssytri_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, lapack_int const* ipiv, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytri(...) LAPACK_ssytri_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytri(...) LAPACK_ssytri_base(__VA_ARGS__) +#endif -#define LAPACK_zsytri LAPACK_GLOBAL(zsytri,ZSYTRI) -void LAPACK_zsytri( +#define LAPACK_zsytri_base LAPACK_GLOBAL(zsytri,ZSYTRI) +void LAPACK_zsytri_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytri(...) LAPACK_zsytri_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytri(...) LAPACK_zsytri_base(__VA_ARGS__) +#endif -#define LAPACK_csytri2 LAPACK_GLOBAL(csytri2,CSYTRI2) -void LAPACK_csytri2( +#define LAPACK_csytri2_base LAPACK_GLOBAL(csytri2,CSYTRI2) +void LAPACK_csytri2_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytri2(...) LAPACK_csytri2_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytri2(...) LAPACK_csytri2_base(__VA_ARGS__) +#endif -#define LAPACK_dsytri2 LAPACK_GLOBAL(dsytri2,DSYTRI2) -void LAPACK_dsytri2( +#define LAPACK_dsytri2_base LAPACK_GLOBAL(dsytri2,DSYTRI2) +void LAPACK_dsytri2_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, lapack_int const* ipiv, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytri2(...) LAPACK_dsytri2_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytri2(...) LAPACK_dsytri2_base(__VA_ARGS__) +#endif -#define LAPACK_ssytri2 LAPACK_GLOBAL(ssytri2,SSYTRI2) -void LAPACK_ssytri2( +#define LAPACK_ssytri2_base LAPACK_GLOBAL(ssytri2,SSYTRI2) +void LAPACK_ssytri2_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, lapack_int const* ipiv, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytri2(...) LAPACK_ssytri2_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytri2(...) LAPACK_ssytri2_base(__VA_ARGS__) +#endif -#define LAPACK_zsytri2 LAPACK_GLOBAL(zsytri2,ZSYTRI2) -void LAPACK_zsytri2( +#define LAPACK_zsytri2_base LAPACK_GLOBAL(zsytri2,ZSYTRI2) +void LAPACK_zsytri2_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytri2(...) LAPACK_zsytri2_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytri2(...) LAPACK_zsytri2_base(__VA_ARGS__) +#endif -#define LAPACK_csytri2x LAPACK_GLOBAL(csytri2x,CSYTRI2X) -void LAPACK_csytri2x( +#define LAPACK_csytri2x_base LAPACK_GLOBAL(csytri2x,CSYTRI2X) +void LAPACK_csytri2x_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* work, lapack_int const* nb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytri2x(...) LAPACK_csytri2x_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytri2x(...) LAPACK_csytri2x_base(__VA_ARGS__) +#endif -#define LAPACK_dsytri2x LAPACK_GLOBAL(dsytri2x,DSYTRI2X) -void LAPACK_dsytri2x( +#define LAPACK_dsytri2x_base LAPACK_GLOBAL(dsytri2x,DSYTRI2X) +void LAPACK_dsytri2x_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, lapack_int const* ipiv, double* work, lapack_int const* nb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytri2x(...) LAPACK_dsytri2x_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytri2x(...) LAPACK_dsytri2x_base(__VA_ARGS__) +#endif -#define LAPACK_ssytri2x LAPACK_GLOBAL(ssytri2x,SSYTRI2X) -void LAPACK_ssytri2x( +#define LAPACK_ssytri2x_base LAPACK_GLOBAL(ssytri2x,SSYTRI2X) +void LAPACK_ssytri2x_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, lapack_int const* ipiv, float* work, lapack_int const* nb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytri2x(...) LAPACK_ssytri2x_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytri2x(...) LAPACK_ssytri2x_base(__VA_ARGS__) +#endif -#define LAPACK_zsytri2x LAPACK_GLOBAL(zsytri2x,ZSYTRI2X) -void LAPACK_zsytri2x( +#define LAPACK_zsytri2x_base LAPACK_GLOBAL(zsytri2x,ZSYTRI2X) +void LAPACK_zsytri2x_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* work, lapack_int const* nb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytri2x(...) LAPACK_zsytri2x_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytri2x(...) LAPACK_zsytri2x_base(__VA_ARGS__) +#endif -#define LAPACK_csytri_3 LAPACK_GLOBAL(csytri_3,CSYTRI_3) -void LAPACK_csytri_3( +#define LAPACK_csytri_3_base LAPACK_GLOBAL(csytri_3,CSYTRI_3) +void LAPACK_csytri_3_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float const* E, lapack_int const* ipiv, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytri_3(...) LAPACK_csytri_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytri_3(...) LAPACK_csytri_3_base(__VA_ARGS__) +#endif -#define LAPACK_dsytri_3 LAPACK_GLOBAL(dsytri_3,DSYTRI_3) -void LAPACK_dsytri_3( +#define LAPACK_dsytri_3_base LAPACK_GLOBAL(dsytri_3,DSYTRI_3) +void LAPACK_dsytri_3_base( char const* uplo, lapack_int const* n, double* A, lapack_int const* lda, double const* E, lapack_int const* ipiv, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytri_3(...) LAPACK_dsytri_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytri_3(...) LAPACK_dsytri_3_base(__VA_ARGS__) +#endif -#define LAPACK_ssytri_3 LAPACK_GLOBAL(ssytri_3,SSYTRI_3) -void LAPACK_ssytri_3( +#define LAPACK_ssytri_3_base LAPACK_GLOBAL(ssytri_3,SSYTRI_3) +void LAPACK_ssytri_3_base( char const* uplo, lapack_int const* n, float* A, lapack_int const* lda, float const* E, lapack_int const* ipiv, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytri_3(...) LAPACK_ssytri_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytri_3(...) LAPACK_ssytri_3_base(__VA_ARGS__) +#endif -#define LAPACK_zsytri_3 LAPACK_GLOBAL(zsytri_3,ZSYTRI_3) -void LAPACK_zsytri_3( +#define LAPACK_zsytri_3_base LAPACK_GLOBAL(zsytri_3,ZSYTRI_3) +void LAPACK_zsytri_3_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double const* E, lapack_int const* ipiv, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytri_3(...) LAPACK_zsytri_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytri_3(...) LAPACK_zsytri_3_base(__VA_ARGS__) +#endif -#define LAPACK_csytrs LAPACK_GLOBAL(csytrs,CSYTRS) -void LAPACK_csytrs( +#define LAPACK_csytrs_base LAPACK_GLOBAL(csytrs,CSYTRS) +void LAPACK_csytrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrs(...) LAPACK_csytrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrs(...) LAPACK_csytrs_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrs LAPACK_GLOBAL(dsytrs,DSYTRS) -void LAPACK_dsytrs( +#define LAPACK_dsytrs_base LAPACK_GLOBAL(dsytrs,DSYTRS) +void LAPACK_dsytrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, lapack_int const* ipiv, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrs(...) LAPACK_dsytrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrs(...) LAPACK_dsytrs_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrs LAPACK_GLOBAL(ssytrs,SSYTRS) -void LAPACK_ssytrs( +#define LAPACK_ssytrs_base LAPACK_GLOBAL(ssytrs,SSYTRS) +void LAPACK_ssytrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, lapack_int const* ipiv, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrs(...) LAPACK_ssytrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrs(...) LAPACK_ssytrs_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrs LAPACK_GLOBAL(zsytrs,ZSYTRS) -void LAPACK_zsytrs( +#define LAPACK_zsytrs_base LAPACK_GLOBAL(zsytrs,ZSYTRS) +void LAPACK_zsytrs_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrs(...) LAPACK_zsytrs_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrs(...) LAPACK_zsytrs_base(__VA_ARGS__) +#endif -#define LAPACK_csytrs2 LAPACK_GLOBAL(csytrs2,CSYTRS2) -void LAPACK_csytrs2( +#define LAPACK_csytrs2_base LAPACK_GLOBAL(csytrs2,CSYTRS2) +void LAPACK_csytrs2_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, const lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrs2(...) LAPACK_csytrs2_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrs2(...) LAPACK_csytrs2_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrs2 LAPACK_GLOBAL(dsytrs2,DSYTRS2) -void LAPACK_dsytrs2( +#define LAPACK_dsytrs2_base LAPACK_GLOBAL(dsytrs2,DSYTRS2) +void LAPACK_dsytrs2_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, const double* A, lapack_int const* lda, lapack_int const* ipiv, double* B, lapack_int const* ldb, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrs2(...) LAPACK_dsytrs2_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrs2(...) LAPACK_dsytrs2_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrs2 LAPACK_GLOBAL(ssytrs2,SSYTRS2) -void LAPACK_ssytrs2( +#define LAPACK_ssytrs2_base LAPACK_GLOBAL(ssytrs2,SSYTRS2) +void LAPACK_ssytrs2_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, const float* A, lapack_int const* lda, lapack_int const* ipiv, float* B, lapack_int const* ldb, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrs2(...) LAPACK_ssytrs2_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrs2(...) LAPACK_ssytrs2_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrs2 LAPACK_GLOBAL(zsytrs2,ZSYTRS2) -void LAPACK_zsytrs2( +#define LAPACK_zsytrs2_base LAPACK_GLOBAL(zsytrs2,ZSYTRS2) +void LAPACK_zsytrs2_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, const lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrs2(...) LAPACK_zsytrs2_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrs2(...) LAPACK_zsytrs2_base(__VA_ARGS__) +#endif -#define LAPACK_csytrs_3 LAPACK_GLOBAL(csytrs_3,CSYTRS_3) -void LAPACK_csytrs_3( +#define LAPACK_csytrs_3_base LAPACK_GLOBAL(csytrs_3,CSYTRS_3) +void LAPACK_csytrs_3_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* E, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrs_3(...) LAPACK_csytrs_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrs_3(...) LAPACK_csytrs_3_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrs_3 LAPACK_GLOBAL(dsytrs_3,DSYTRS_3) -void LAPACK_dsytrs_3( +#define LAPACK_dsytrs_3_base LAPACK_GLOBAL(dsytrs_3,DSYTRS_3) +void LAPACK_dsytrs_3_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, double const* E, lapack_int const* ipiv, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrs_3(...) LAPACK_dsytrs_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrs_3(...) LAPACK_dsytrs_3_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrs_3 LAPACK_GLOBAL(ssytrs_3,SSYTRS_3) -void LAPACK_ssytrs_3( +#define LAPACK_ssytrs_3_base LAPACK_GLOBAL(ssytrs_3,SSYTRS_3) +void LAPACK_ssytrs_3_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, float const* E, lapack_int const* ipiv, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrs_3(...) LAPACK_ssytrs_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrs_3(...) LAPACK_ssytrs_3_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrs_3 LAPACK_GLOBAL(zsytrs_3,ZSYTRS_3) -void LAPACK_zsytrs_3( +#define LAPACK_zsytrs_3_base LAPACK_GLOBAL(zsytrs_3,ZSYTRS_3) +void LAPACK_zsytrs_3_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* E, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrs_3(...) LAPACK_zsytrs_3_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrs_3(...) LAPACK_zsytrs_3_base(__VA_ARGS__) +#endif -#define LAPACK_csytrs_aa LAPACK_GLOBAL(csytrs_aa,CSYTRS_AA) -void LAPACK_csytrs_aa( +#define LAPACK_csytrs_aa_base LAPACK_GLOBAL(csytrs_aa,CSYTRS_AA) +void LAPACK_csytrs_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrs_aa(...) LAPACK_csytrs_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrs_aa(...) LAPACK_csytrs_aa_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrs_aa LAPACK_GLOBAL(dsytrs_aa,DSYTRS_AA) -void LAPACK_dsytrs_aa( +#define LAPACK_dsytrs_aa_base LAPACK_GLOBAL(dsytrs_aa,DSYTRS_AA) +void LAPACK_dsytrs_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, lapack_int const* ipiv, double* B, lapack_int const* ldb, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrs_aa(...) LAPACK_dsytrs_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrs_aa(...) LAPACK_dsytrs_aa_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrs_aa LAPACK_GLOBAL(ssytrs_aa,SSYTRS_AA) -void LAPACK_ssytrs_aa( +#define LAPACK_ssytrs_aa_base LAPACK_GLOBAL(ssytrs_aa,SSYTRS_AA) +void LAPACK_ssytrs_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, lapack_int const* ipiv, float* B, lapack_int const* ldb, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrs_aa(...) LAPACK_ssytrs_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrs_aa(...) LAPACK_ssytrs_aa_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrs_aa LAPACK_GLOBAL(zsytrs_aa,ZSYTRS_AA) -void LAPACK_zsytrs_aa( +#define LAPACK_zsytrs_aa_base LAPACK_GLOBAL(zsytrs_aa,ZSYTRS_AA) +void LAPACK_zsytrs_aa_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrs_aa(...) LAPACK_zsytrs_aa_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrs_aa(...) LAPACK_zsytrs_aa_base(__VA_ARGS__) +#endif -#define LAPACK_csytrs_aa_2stage LAPACK_GLOBAL(csytrs_aa_2stage,CSYTRS_AA_2STAGE) -void LAPACK_csytrs_aa_2stage( +#define LAPACK_csytrs_aa_2stage_base LAPACK_GLOBAL(csytrs_aa_2stage,CSYTRS_AA_2STAGE) +void LAPACK_csytrs_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrs_aa_2stage(...) LAPACK_csytrs_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrs_aa_2stage(...) LAPACK_csytrs_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrs_aa_2stage LAPACK_GLOBAL(dsytrs_aa_2stage,DSYTRS_AA_2STAGE) -void LAPACK_dsytrs_aa_2stage( +#define LAPACK_dsytrs_aa_2stage_base LAPACK_GLOBAL(dsytrs_aa_2stage,DSYTRS_AA_2STAGE) +void LAPACK_dsytrs_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrs_aa_2stage(...) LAPACK_dsytrs_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrs_aa_2stage(...) LAPACK_dsytrs_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrs_aa_2stage LAPACK_GLOBAL(ssytrs_aa_2stage,SSYTRS_AA_2STAGE) -void LAPACK_ssytrs_aa_2stage( +#define LAPACK_ssytrs_aa_2stage_base LAPACK_GLOBAL(ssytrs_aa_2stage,SSYTRS_AA_2STAGE) +void LAPACK_ssytrs_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrs_aa_2stage(...) LAPACK_ssytrs_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrs_aa_2stage(...) LAPACK_ssytrs_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrs_aa_2stage LAPACK_GLOBAL(zsytrs_aa_2stage,ZSYTRS_AA_2STAGE) -void LAPACK_zsytrs_aa_2stage( +#define LAPACK_zsytrs_aa_2stage_base LAPACK_GLOBAL(zsytrs_aa_2stage,ZSYTRS_AA_2STAGE) +void LAPACK_zsytrs_aa_2stage_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrs_aa_2stage(...) LAPACK_zsytrs_aa_2stage_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrs_aa_2stage(...) LAPACK_zsytrs_aa_2stage_base(__VA_ARGS__) +#endif -#define LAPACK_csytrs_rook LAPACK_GLOBAL(csytrs_rook,CSYTRS_ROOK) -void LAPACK_csytrs_rook( +#define LAPACK_csytrs_rook_base LAPACK_GLOBAL(csytrs_rook,CSYTRS_ROOK) +void LAPACK_csytrs_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_csytrs_rook(...) LAPACK_csytrs_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_csytrs_rook(...) LAPACK_csytrs_rook_base(__VA_ARGS__) +#endif -#define LAPACK_dsytrs_rook LAPACK_GLOBAL(dsytrs_rook,DSYTRS_ROOK) -void LAPACK_dsytrs_rook( +#define LAPACK_dsytrs_rook_base LAPACK_GLOBAL(dsytrs_rook,DSYTRS_ROOK) +void LAPACK_dsytrs_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, lapack_int const* ipiv, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dsytrs_rook(...) LAPACK_dsytrs_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_dsytrs_rook(...) LAPACK_dsytrs_rook_base(__VA_ARGS__) +#endif -#define LAPACK_ssytrs_rook LAPACK_GLOBAL(ssytrs_rook,SSYTRS_ROOK) -void LAPACK_ssytrs_rook( +#define LAPACK_ssytrs_rook_base LAPACK_GLOBAL(ssytrs_rook,SSYTRS_ROOK) +void LAPACK_ssytrs_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, lapack_int const* ipiv, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ssytrs_rook(...) LAPACK_ssytrs_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_ssytrs_rook(...) LAPACK_ssytrs_rook_base(__VA_ARGS__) +#endif -#define LAPACK_zsytrs_rook LAPACK_GLOBAL(zsytrs_rook,ZSYTRS_ROOK) -void LAPACK_zsytrs_rook( +#define LAPACK_zsytrs_rook_base LAPACK_GLOBAL(zsytrs_rook,ZSYTRS_ROOK) +void LAPACK_zsytrs_rook_base( char const* uplo, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zsytrs_rook(...) LAPACK_zsytrs_rook_base(__VA_ARGS__, 1) +#else + #define LAPACK_zsytrs_rook(...) LAPACK_zsytrs_rook_base(__VA_ARGS__) +#endif -#define LAPACK_ctbcon LAPACK_GLOBAL(ctbcon,CTBCON) -void LAPACK_ctbcon( +#define LAPACK_ctbcon_base LAPACK_GLOBAL(ctbcon,CTBCON) +void LAPACK_ctbcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_complex_float const* AB, lapack_int const* ldab, float* rcond, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctbcon(...) LAPACK_ctbcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctbcon(...) LAPACK_ctbcon_base(__VA_ARGS__) +#endif -#define LAPACK_dtbcon LAPACK_GLOBAL(dtbcon,DTBCON) -void LAPACK_dtbcon( +#define LAPACK_dtbcon_base LAPACK_GLOBAL(dtbcon,DTBCON) +void LAPACK_dtbcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_int const* kd, double const* AB, lapack_int const* ldab, double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtbcon(...) LAPACK_dtbcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtbcon(...) LAPACK_dtbcon_base(__VA_ARGS__) +#endif -#define LAPACK_stbcon LAPACK_GLOBAL(stbcon,STBCON) -void LAPACK_stbcon( +#define LAPACK_stbcon_base LAPACK_GLOBAL(stbcon,STBCON) +void LAPACK_stbcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_int const* kd, float const* AB, lapack_int const* ldab, float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stbcon(...) LAPACK_stbcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_stbcon(...) LAPACK_stbcon_base(__VA_ARGS__) +#endif -#define LAPACK_ztbcon LAPACK_GLOBAL(ztbcon,ZTBCON) -void LAPACK_ztbcon( +#define LAPACK_ztbcon_base LAPACK_GLOBAL(ztbcon,ZTBCON) +void LAPACK_ztbcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_complex_double const* AB, lapack_int const* ldab, double* rcond, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztbcon(...) LAPACK_ztbcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztbcon(...) LAPACK_ztbcon_base(__VA_ARGS__) +#endif -#define LAPACK_ctbrfs LAPACK_GLOBAL(ctbrfs,CTBRFS) -void LAPACK_ctbrfs( +#define LAPACK_ctbrfs_base LAPACK_GLOBAL(ctbrfs,CTBRFS) +void LAPACK_ctbrfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_float const* AB, lapack_int const* ldab, @@ -11833,10 +19625,19 @@ void LAPACK_ctbrfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctbrfs(...) LAPACK_ctbrfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctbrfs(...) LAPACK_ctbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_dtbrfs LAPACK_GLOBAL(dtbrfs,DTBRFS) -void LAPACK_dtbrfs( +#define LAPACK_dtbrfs_base LAPACK_GLOBAL(dtbrfs,DTBRFS) +void LAPACK_dtbrfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, double const* AB, lapack_int const* ldab, @@ -11846,10 +19647,19 @@ void LAPACK_dtbrfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtbrfs(...) LAPACK_dtbrfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtbrfs(...) LAPACK_dtbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_stbrfs LAPACK_GLOBAL(stbrfs,STBRFS) -void LAPACK_stbrfs( +#define LAPACK_stbrfs_base LAPACK_GLOBAL(stbrfs,STBRFS) +void LAPACK_stbrfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, float const* AB, lapack_int const* ldab, @@ -11859,10 +19669,19 @@ void LAPACK_stbrfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stbrfs(...) LAPACK_stbrfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_stbrfs(...) LAPACK_stbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_ztbrfs LAPACK_GLOBAL(ztbrfs,ZTBRFS) -void LAPACK_ztbrfs( +#define LAPACK_ztbrfs_base LAPACK_GLOBAL(ztbrfs,ZTBRFS) +void LAPACK_ztbrfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_double const* AB, lapack_int const* ldab, @@ -11872,166 +19691,355 @@ void LAPACK_ztbrfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztbrfs(...) LAPACK_ztbrfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztbrfs(...) LAPACK_ztbrfs_base(__VA_ARGS__) +#endif -#define LAPACK_ctbtrs LAPACK_GLOBAL(ctbtrs,CTBTRS) -void LAPACK_ctbtrs( +#define LAPACK_ctbtrs_base LAPACK_GLOBAL(ctbtrs,CTBTRS) +void LAPACK_ctbtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_float const* AB, lapack_int const* ldab, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctbtrs(...) LAPACK_ctbtrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctbtrs(...) LAPACK_ctbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_dtbtrs LAPACK_GLOBAL(dtbtrs,DTBTRS) -void LAPACK_dtbtrs( +#define LAPACK_dtbtrs_base LAPACK_GLOBAL(dtbtrs,DTBTRS) +void LAPACK_dtbtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, double const* AB, lapack_int const* ldab, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtbtrs(...) LAPACK_dtbtrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtbtrs(...) LAPACK_dtbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_stbtrs LAPACK_GLOBAL(stbtrs,STBTRS) -void LAPACK_stbtrs( +#define LAPACK_stbtrs_base LAPACK_GLOBAL(stbtrs,STBTRS) +void LAPACK_stbtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, float const* AB, lapack_int const* ldab, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stbtrs(...) LAPACK_stbtrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_stbtrs(...) LAPACK_stbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_ztbtrs LAPACK_GLOBAL(ztbtrs,ZTBTRS) -void LAPACK_ztbtrs( +#define LAPACK_ztbtrs_base LAPACK_GLOBAL(ztbtrs,ZTBTRS) +void LAPACK_ztbtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, lapack_complex_double const* AB, lapack_int const* ldab, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztbtrs(...) LAPACK_ztbtrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztbtrs(...) LAPACK_ztbtrs_base(__VA_ARGS__) +#endif -#define LAPACK_ctfsm LAPACK_GLOBAL(ctfsm,CTFSM) -void LAPACK_ctfsm( +#define LAPACK_ctfsm_base LAPACK_GLOBAL(ctfsm,CTFSM) +void LAPACK_ctfsm_base( char const* transr, char const* side, char const* uplo, char const* trans, char const* diag, lapack_int const* m, lapack_int const* n, lapack_complex_float const* alpha, lapack_complex_float const* A, - lapack_complex_float* B, lapack_int const* ldb ); + lapack_complex_float* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctfsm(...) LAPACK_ctfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_ctfsm(...) LAPACK_ctfsm_base(__VA_ARGS__) +#endif -#define LAPACK_dtfsm LAPACK_GLOBAL(dtfsm,DTFSM) -void LAPACK_dtfsm( +#define LAPACK_dtfsm_base LAPACK_GLOBAL(dtfsm,DTFSM) +void LAPACK_dtfsm_base( char const* transr, char const* side, char const* uplo, char const* trans, char const* diag, lapack_int const* m, lapack_int const* n, double const* alpha, double const* A, - double* B, lapack_int const* ldb ); + double* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtfsm(...) LAPACK_dtfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_dtfsm(...) LAPACK_dtfsm_base(__VA_ARGS__) +#endif -#define LAPACK_stfsm LAPACK_GLOBAL(stfsm,STFSM) -void LAPACK_stfsm( +#define LAPACK_stfsm_base LAPACK_GLOBAL(stfsm,STFSM) +void LAPACK_stfsm_base( char const* transr, char const* side, char const* uplo, char const* trans, char const* diag, lapack_int const* m, lapack_int const* n, float const* alpha, float const* A, - float* B, lapack_int const* ldb ); + float* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stfsm(...) LAPACK_stfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_stfsm(...) LAPACK_stfsm_base(__VA_ARGS__) +#endif -#define LAPACK_ztfsm LAPACK_GLOBAL(ztfsm,ZTFSM) -void LAPACK_ztfsm( +#define LAPACK_ztfsm_base LAPACK_GLOBAL(ztfsm,ZTFSM) +void LAPACK_ztfsm_base( char const* transr, char const* side, char const* uplo, char const* trans, char const* diag, lapack_int const* m, lapack_int const* n, lapack_complex_double const* alpha, lapack_complex_double const* A, - lapack_complex_double* B, lapack_int const* ldb ); + lapack_complex_double* B, lapack_int const* ldb +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztfsm(...) LAPACK_ztfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1) +#else + #define LAPACK_ztfsm(...) LAPACK_ztfsm_base(__VA_ARGS__) +#endif -#define LAPACK_ctftri LAPACK_GLOBAL(ctftri,CTFTRI) -void LAPACK_ctftri( +#define LAPACK_ctftri_base LAPACK_GLOBAL(ctftri,CTFTRI) +void LAPACK_ctftri_base( char const* transr, char const* uplo, char const* diag, lapack_int const* n, lapack_complex_float* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctftri(...) LAPACK_ctftri_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctftri(...) LAPACK_ctftri_base(__VA_ARGS__) +#endif -#define LAPACK_dtftri LAPACK_GLOBAL(dtftri,DTFTRI) -void LAPACK_dtftri( +#define LAPACK_dtftri_base LAPACK_GLOBAL(dtftri,DTFTRI) +void LAPACK_dtftri_base( char const* transr, char const* uplo, char const* diag, lapack_int const* n, double* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtftri(...) LAPACK_dtftri_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtftri(...) LAPACK_dtftri_base(__VA_ARGS__) +#endif -#define LAPACK_stftri LAPACK_GLOBAL(stftri,STFTRI) -void LAPACK_stftri( +#define LAPACK_stftri_base LAPACK_GLOBAL(stftri,STFTRI) +void LAPACK_stftri_base( char const* transr, char const* uplo, char const* diag, lapack_int const* n, float* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stftri(...) LAPACK_stftri_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_stftri(...) LAPACK_stftri_base(__VA_ARGS__) +#endif -#define LAPACK_ztftri LAPACK_GLOBAL(ztftri,ZTFTRI) -void LAPACK_ztftri( +#define LAPACK_ztftri_base LAPACK_GLOBAL(ztftri,ZTFTRI) +void LAPACK_ztftri_base( char const* transr, char const* uplo, char const* diag, lapack_int const* n, lapack_complex_double* A, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztftri(...) LAPACK_ztftri_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztftri(...) LAPACK_ztftri_base(__VA_ARGS__) +#endif -#define LAPACK_ctfttp LAPACK_GLOBAL(ctfttp,CTFTTP) -void LAPACK_ctfttp( +#define LAPACK_ctfttp_base LAPACK_GLOBAL(ctfttp,CTFTTP) +void LAPACK_ctfttp_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_float const* ARF, lapack_complex_float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctfttp(...) LAPACK_ctfttp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctfttp(...) LAPACK_ctfttp_base(__VA_ARGS__) +#endif -#define LAPACK_dtfttp LAPACK_GLOBAL(dtfttp,DTFTTP) -void LAPACK_dtfttp( +#define LAPACK_dtfttp_base LAPACK_GLOBAL(dtfttp,DTFTTP) +void LAPACK_dtfttp_base( char const* transr, char const* uplo, lapack_int const* n, double const* ARF, double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtfttp(...) LAPACK_dtfttp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtfttp(...) LAPACK_dtfttp_base(__VA_ARGS__) +#endif -#define LAPACK_stfttp LAPACK_GLOBAL(stfttp,STFTTP) -void LAPACK_stfttp( +#define LAPACK_stfttp_base LAPACK_GLOBAL(stfttp,STFTTP) +void LAPACK_stfttp_base( char const* transr, char const* uplo, lapack_int const* n, float const* ARF, float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stfttp(...) LAPACK_stfttp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_stfttp(...) LAPACK_stfttp_base(__VA_ARGS__) +#endif -#define LAPACK_ztfttp LAPACK_GLOBAL(ztfttp,ZTFTTP) -void LAPACK_ztfttp( +#define LAPACK_ztfttp_base LAPACK_GLOBAL(ztfttp,ZTFTTP) +void LAPACK_ztfttp_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_double const* ARF, lapack_complex_double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztfttp(...) LAPACK_ztfttp_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztfttp(...) LAPACK_ztfttp_base(__VA_ARGS__) +#endif -#define LAPACK_ctfttr LAPACK_GLOBAL(ctfttr,CTFTTR) -void LAPACK_ctfttr( +#define LAPACK_ctfttr_base LAPACK_GLOBAL(ctfttr,CTFTTR) +void LAPACK_ctfttr_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_float const* ARF, lapack_complex_float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctfttr(...) LAPACK_ctfttr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctfttr(...) LAPACK_ctfttr_base(__VA_ARGS__) +#endif -#define LAPACK_dtfttr LAPACK_GLOBAL(dtfttr,DTFTTR) -void LAPACK_dtfttr( +#define LAPACK_dtfttr_base LAPACK_GLOBAL(dtfttr,DTFTTR) +void LAPACK_dtfttr_base( char const* transr, char const* uplo, lapack_int const* n, double const* ARF, double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtfttr(...) LAPACK_dtfttr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtfttr(...) LAPACK_dtfttr_base(__VA_ARGS__) +#endif -#define LAPACK_stfttr LAPACK_GLOBAL(stfttr,STFTTR) -void LAPACK_stfttr( +#define LAPACK_stfttr_base LAPACK_GLOBAL(stfttr,STFTTR) +void LAPACK_stfttr_base( char const* transr, char const* uplo, lapack_int const* n, float const* ARF, float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stfttr(...) LAPACK_stfttr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_stfttr(...) LAPACK_stfttr_base(__VA_ARGS__) +#endif -#define LAPACK_ztfttr LAPACK_GLOBAL(ztfttr,ZTFTTR) -void LAPACK_ztfttr( +#define LAPACK_ztfttr_base LAPACK_GLOBAL(ztfttr,ZTFTTR) +void LAPACK_ztfttr_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_double const* ARF, lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztfttr(...) LAPACK_ztfttr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztfttr(...) LAPACK_ztfttr_base(__VA_ARGS__) +#endif -#define LAPACK_ctgevc LAPACK_GLOBAL(ctgevc,CTGEVC) -void LAPACK_ctgevc( +#define LAPACK_ctgevc_base LAPACK_GLOBAL(ctgevc,CTGEVC) +void LAPACK_ctgevc_base( char const* side, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12041,10 +20049,19 @@ void LAPACK_ctgevc( lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctgevc(...) LAPACK_ctgevc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctgevc(...) LAPACK_ctgevc_base(__VA_ARGS__) +#endif -#define LAPACK_dtgevc LAPACK_GLOBAL(dtgevc,DTGEVC) -void LAPACK_dtgevc( +#define LAPACK_dtgevc_base LAPACK_GLOBAL(dtgevc,DTGEVC) +void LAPACK_dtgevc_base( char const* side, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12053,10 +20070,19 @@ void LAPACK_dtgevc( double* VL, lapack_int const* ldvl, double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtgevc(...) LAPACK_dtgevc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtgevc(...) LAPACK_dtgevc_base(__VA_ARGS__) +#endif -#define LAPACK_stgevc LAPACK_GLOBAL(stgevc,STGEVC) -void LAPACK_stgevc( +#define LAPACK_stgevc_base LAPACK_GLOBAL(stgevc,STGEVC) +void LAPACK_stgevc_base( char const* side, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12065,10 +20091,19 @@ void LAPACK_stgevc( float* VL, lapack_int const* ldvl, float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stgevc(...) LAPACK_stgevc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_stgevc(...) LAPACK_stgevc_base(__VA_ARGS__) +#endif -#define LAPACK_ztgevc LAPACK_GLOBAL(ztgevc,ZTGEVC) -void LAPACK_ztgevc( +#define LAPACK_ztgevc_base LAPACK_GLOBAL(ztgevc,ZTGEVC) +void LAPACK_ztgevc_base( char const* side, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12078,7 +20113,16 @@ void LAPACK_ztgevc( lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztgevc(...) LAPACK_ztgevc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztgevc(...) LAPACK_ztgevc_base(__VA_ARGS__) +#endif #define LAPACK_ctgexc LAPACK_GLOBAL(ctgexc,CTGEXC) void LAPACK_ctgexc( @@ -12184,8 +20228,8 @@ void LAPACK_ztgsen( lapack_int* iwork, lapack_int const* liwork, lapack_int* info ); -#define LAPACK_ctgsja LAPACK_GLOBAL(ctgsja,CTGSJA) -void LAPACK_ctgsja( +#define LAPACK_ctgsja_base LAPACK_GLOBAL(ctgsja,CTGSJA) +void LAPACK_ctgsja_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_complex_float* A, lapack_int const* lda, @@ -12198,10 +20242,19 @@ void LAPACK_ctgsja( lapack_complex_float* V, lapack_int const* ldv, lapack_complex_float* Q, lapack_int const* ldq, lapack_complex_float* work, lapack_int* ncycle, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctgsja(...) LAPACK_ctgsja_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctgsja(...) LAPACK_ctgsja_base(__VA_ARGS__) +#endif -#define LAPACK_dtgsja LAPACK_GLOBAL(dtgsja,DTGSJA) -void LAPACK_dtgsja( +#define LAPACK_dtgsja_base LAPACK_GLOBAL(dtgsja,DTGSJA) +void LAPACK_dtgsja_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l, double* A, lapack_int const* lda, @@ -12214,10 +20267,19 @@ void LAPACK_dtgsja( double* V, lapack_int const* ldv, double* Q, lapack_int const* ldq, double* work, lapack_int* ncycle, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtgsja(...) LAPACK_dtgsja_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtgsja(...) LAPACK_dtgsja_base(__VA_ARGS__) +#endif -#define LAPACK_stgsja LAPACK_GLOBAL(stgsja,STGSJA) -void LAPACK_stgsja( +#define LAPACK_stgsja_base LAPACK_GLOBAL(stgsja,STGSJA) +void LAPACK_stgsja_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l, float* A, lapack_int const* lda, @@ -12230,10 +20292,19 @@ void LAPACK_stgsja( float* V, lapack_int const* ldv, float* Q, lapack_int const* ldq, float* work, lapack_int* ncycle, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stgsja(...) LAPACK_stgsja_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_stgsja(...) LAPACK_stgsja_base(__VA_ARGS__) +#endif -#define LAPACK_ztgsja LAPACK_GLOBAL(ztgsja,ZTGSJA) -void LAPACK_ztgsja( +#define LAPACK_ztgsja_base LAPACK_GLOBAL(ztgsja,ZTGSJA) +void LAPACK_ztgsja_base( char const* jobu, char const* jobv, char const* jobq, lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_complex_double* A, lapack_int const* lda, @@ -12246,10 +20317,19 @@ void LAPACK_ztgsja( lapack_complex_double* V, lapack_int const* ldv, lapack_complex_double* Q, lapack_int const* ldq, lapack_complex_double* work, lapack_int* ncycle, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztgsja(...) LAPACK_ztgsja_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztgsja(...) LAPACK_ztgsja_base(__VA_ARGS__) +#endif -#define LAPACK_ctgsna LAPACK_GLOBAL(ctgsna,CTGSNA) -void LAPACK_ctgsna( +#define LAPACK_ctgsna_base LAPACK_GLOBAL(ctgsna,CTGSNA) +void LAPACK_ctgsna_base( char const* job, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12261,10 +20341,19 @@ void LAPACK_ctgsna( float* DIF, lapack_int const* mm, lapack_int* m, lapack_complex_float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctgsna(...) LAPACK_ctgsna_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctgsna(...) LAPACK_ctgsna_base(__VA_ARGS__) +#endif -#define LAPACK_dtgsna LAPACK_GLOBAL(dtgsna,DTGSNA) -void LAPACK_dtgsna( +#define LAPACK_dtgsna_base LAPACK_GLOBAL(dtgsna,DTGSNA) +void LAPACK_dtgsna_base( char const* job, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12276,10 +20365,19 @@ void LAPACK_dtgsna( double* DIF, lapack_int const* mm, lapack_int* m, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtgsna(...) LAPACK_dtgsna_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtgsna(...) LAPACK_dtgsna_base(__VA_ARGS__) +#endif -#define LAPACK_stgsna LAPACK_GLOBAL(stgsna,STGSNA) -void LAPACK_stgsna( +#define LAPACK_stgsna_base LAPACK_GLOBAL(stgsna,STGSNA) +void LAPACK_stgsna_base( char const* job, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12291,10 +20389,19 @@ void LAPACK_stgsna( float* DIF, lapack_int const* mm, lapack_int* m, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stgsna(...) LAPACK_stgsna_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_stgsna(...) LAPACK_stgsna_base(__VA_ARGS__) +#endif -#define LAPACK_ztgsna LAPACK_GLOBAL(ztgsna,ZTGSNA) -void LAPACK_ztgsna( +#define LAPACK_ztgsna_base LAPACK_GLOBAL(ztgsna,ZTGSNA) +void LAPACK_ztgsna_base( char const* job, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12306,10 +20413,19 @@ void LAPACK_ztgsna( double* DIF, lapack_int const* mm, lapack_int* m, lapack_complex_double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztgsna(...) LAPACK_ztgsna_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztgsna(...) LAPACK_ztgsna_base(__VA_ARGS__) +#endif -#define LAPACK_ctgsyl LAPACK_GLOBAL(ctgsyl,CTGSYL) -void LAPACK_ctgsyl( +#define LAPACK_ctgsyl_base LAPACK_GLOBAL(ctgsyl,CTGSYL) +void LAPACK_ctgsyl_base( char const* trans, lapack_int const* ijob, lapack_int const* m, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, @@ -12322,10 +20438,19 @@ void LAPACK_ctgsyl( float* scale, lapack_complex_float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctgsyl(...) LAPACK_ctgsyl_base(__VA_ARGS__, 1) +#else + #define LAPACK_ctgsyl(...) LAPACK_ctgsyl_base(__VA_ARGS__) +#endif -#define LAPACK_dtgsyl LAPACK_GLOBAL(dtgsyl,DTGSYL) -void LAPACK_dtgsyl( +#define LAPACK_dtgsyl_base LAPACK_GLOBAL(dtgsyl,DTGSYL) +void LAPACK_dtgsyl_base( char const* trans, lapack_int const* ijob, lapack_int const* m, lapack_int const* n, double const* A, lapack_int const* lda, @@ -12338,10 +20463,19 @@ void LAPACK_dtgsyl( double* scale, double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtgsyl(...) LAPACK_dtgsyl_base(__VA_ARGS__, 1) +#else + #define LAPACK_dtgsyl(...) LAPACK_dtgsyl_base(__VA_ARGS__) +#endif -#define LAPACK_stgsyl LAPACK_GLOBAL(stgsyl,STGSYL) -void LAPACK_stgsyl( +#define LAPACK_stgsyl_base LAPACK_GLOBAL(stgsyl,STGSYL) +void LAPACK_stgsyl_base( char const* trans, lapack_int const* ijob, lapack_int const* m, lapack_int const* n, float const* A, lapack_int const* lda, @@ -12354,10 +20488,19 @@ void LAPACK_stgsyl( float* scale, float* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stgsyl(...) LAPACK_stgsyl_base(__VA_ARGS__, 1) +#else + #define LAPACK_stgsyl(...) LAPACK_stgsyl_base(__VA_ARGS__) +#endif -#define LAPACK_ztgsyl LAPACK_GLOBAL(ztgsyl,ZTGSYL) -void LAPACK_ztgsyl( +#define LAPACK_ztgsyl_base LAPACK_GLOBAL(ztgsyl,ZTGSYL) +void LAPACK_ztgsyl_base( char const* trans, lapack_int const* ijob, lapack_int const* m, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, @@ -12370,47 +20513,92 @@ void LAPACK_ztgsyl( double* scale, lapack_complex_double* work, lapack_int const* lwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztgsyl(...) LAPACK_ztgsyl_base(__VA_ARGS__, 1) +#else + #define LAPACK_ztgsyl(...) LAPACK_ztgsyl_base(__VA_ARGS__) +#endif -#define LAPACK_ctpcon LAPACK_GLOBAL(ctpcon,CTPCON) -void LAPACK_ctpcon( +#define LAPACK_ctpcon_base LAPACK_GLOBAL(ctpcon,CTPCON) +void LAPACK_ctpcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_complex_float const* AP, float* rcond, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctpcon(...) LAPACK_ctpcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctpcon(...) LAPACK_ctpcon_base(__VA_ARGS__) +#endif -#define LAPACK_dtpcon LAPACK_GLOBAL(dtpcon,DTPCON) -void LAPACK_dtpcon( +#define LAPACK_dtpcon_base LAPACK_GLOBAL(dtpcon,DTPCON) +void LAPACK_dtpcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, double const* AP, double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtpcon(...) LAPACK_dtpcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtpcon(...) LAPACK_dtpcon_base(__VA_ARGS__) +#endif -#define LAPACK_stpcon LAPACK_GLOBAL(stpcon,STPCON) -void LAPACK_stpcon( +#define LAPACK_stpcon_base LAPACK_GLOBAL(stpcon,STPCON) +void LAPACK_stpcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, float const* AP, float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stpcon(...) LAPACK_stpcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_stpcon(...) LAPACK_stpcon_base(__VA_ARGS__) +#endif -#define LAPACK_ztpcon LAPACK_GLOBAL(ztpcon,ZTPCON) -void LAPACK_ztpcon( +#define LAPACK_ztpcon_base LAPACK_GLOBAL(ztpcon,ZTPCON) +void LAPACK_ztpcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_complex_double const* AP, double* rcond, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztpcon(...) LAPACK_ztpcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztpcon(...) LAPACK_ztpcon_base(__VA_ARGS__) +#endif #define LAPACK_ctplqt LAPACK_GLOBAL(ctplqt,CTPLQT) void LAPACK_ctplqt( @@ -12480,8 +20668,8 @@ void LAPACK_ztplqt2( lapack_complex_double* T, lapack_int const* ldt, lapack_int* info ); -#define LAPACK_ctpmlqt LAPACK_GLOBAL(ctpmlqt,CTPMLQT) -void LAPACK_ctpmlqt( +#define LAPACK_ctpmlqt_base LAPACK_GLOBAL(ctpmlqt,CTPMLQT) +void LAPACK_ctpmlqt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb, lapack_complex_float const* V, lapack_int const* ldv, @@ -12489,10 +20677,19 @@ void LAPACK_ctpmlqt( lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctpmlqt(...) LAPACK_ctpmlqt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctpmlqt(...) LAPACK_ctpmlqt_base(__VA_ARGS__) +#endif -#define LAPACK_dtpmlqt LAPACK_GLOBAL(dtpmlqt,DTPMLQT) -void LAPACK_dtpmlqt( +#define LAPACK_dtpmlqt_base LAPACK_GLOBAL(dtpmlqt,DTPMLQT) +void LAPACK_dtpmlqt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb, double const* V, lapack_int const* ldv, @@ -12500,10 +20697,19 @@ void LAPACK_dtpmlqt( double* A, lapack_int const* lda, double* B, lapack_int const* ldb, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtpmlqt(...) LAPACK_dtpmlqt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtpmlqt(...) LAPACK_dtpmlqt_base(__VA_ARGS__) +#endif -#define LAPACK_stpmlqt LAPACK_GLOBAL(stpmlqt,STPMLQT) -void LAPACK_stpmlqt( +#define LAPACK_stpmlqt_base LAPACK_GLOBAL(stpmlqt,STPMLQT) +void LAPACK_stpmlqt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb, float const* V, lapack_int const* ldv, @@ -12511,10 +20717,19 @@ void LAPACK_stpmlqt( float* A, lapack_int const* lda, float* B, lapack_int const* ldb, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stpmlqt(...) LAPACK_stpmlqt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_stpmlqt(...) LAPACK_stpmlqt_base(__VA_ARGS__) +#endif -#define LAPACK_ztpmlqt LAPACK_GLOBAL(ztpmlqt,ZTPMLQT) -void LAPACK_ztpmlqt( +#define LAPACK_ztpmlqt_base LAPACK_GLOBAL(ztpmlqt,ZTPMLQT) +void LAPACK_ztpmlqt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb, lapack_complex_double const* V, lapack_int const* ldv, @@ -12522,10 +20737,19 @@ void LAPACK_ztpmlqt( lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztpmlqt(...) LAPACK_ztpmlqt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztpmlqt(...) LAPACK_ztpmlqt_base(__VA_ARGS__) +#endif -#define LAPACK_ctpmqrt LAPACK_GLOBAL(ctpmqrt,CTPMQRT) -void LAPACK_ctpmqrt( +#define LAPACK_ctpmqrt_base LAPACK_GLOBAL(ctpmqrt,CTPMQRT) +void LAPACK_ctpmqrt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb, lapack_complex_float const* V, lapack_int const* ldv, @@ -12533,10 +20757,19 @@ void LAPACK_ctpmqrt( lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* B, lapack_int const* ldb, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctpmqrt(...) LAPACK_ctpmqrt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctpmqrt(...) LAPACK_ctpmqrt_base(__VA_ARGS__) +#endif -#define LAPACK_dtpmqrt LAPACK_GLOBAL(dtpmqrt,DTPMQRT) -void LAPACK_dtpmqrt( +#define LAPACK_dtpmqrt_base LAPACK_GLOBAL(dtpmqrt,DTPMQRT) +void LAPACK_dtpmqrt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb, double const* V, lapack_int const* ldv, @@ -12544,10 +20777,19 @@ void LAPACK_dtpmqrt( double* A, lapack_int const* lda, double* B, lapack_int const* ldb, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtpmqrt(...) LAPACK_dtpmqrt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtpmqrt(...) LAPACK_dtpmqrt_base(__VA_ARGS__) +#endif -#define LAPACK_stpmqrt LAPACK_GLOBAL(stpmqrt,STPMQRT) -void LAPACK_stpmqrt( +#define LAPACK_stpmqrt_base LAPACK_GLOBAL(stpmqrt,STPMQRT) +void LAPACK_stpmqrt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb, float const* V, lapack_int const* ldv, @@ -12555,10 +20797,19 @@ void LAPACK_stpmqrt( float* A, lapack_int const* lda, float* B, lapack_int const* ldb, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stpmqrt(...) LAPACK_stpmqrt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_stpmqrt(...) LAPACK_stpmqrt_base(__VA_ARGS__) +#endif -#define LAPACK_ztpmqrt LAPACK_GLOBAL(ztpmqrt,ZTPMQRT) -void LAPACK_ztpmqrt( +#define LAPACK_ztpmqrt_base LAPACK_GLOBAL(ztpmqrt,ZTPMQRT) +void LAPACK_ztpmqrt_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb, lapack_complex_double const* V, lapack_int const* ldv, @@ -12566,7 +20817,16 @@ void LAPACK_ztpmqrt( lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* B, lapack_int const* ldb, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztpmqrt(...) LAPACK_ztpmqrt_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztpmqrt(...) LAPACK_ztpmqrt_base(__VA_ARGS__) +#endif #define LAPACK_ctpqrt LAPACK_GLOBAL(ctpqrt,CTPQRT) void LAPACK_ctpqrt( @@ -12636,48 +20896,84 @@ void LAPACK_ztpqrt2( lapack_complex_double* T, lapack_int const* ldt, lapack_int* info ); -#define LAPACK_ctprfb LAPACK_GLOBAL(ctprfb,CTPRFB) -void LAPACK_ctprfb( +#define LAPACK_ctprfb_base LAPACK_GLOBAL(ctprfb,CTPRFB) +void LAPACK_ctprfb_base( char const* side, char const* trans, char const* direct, char const* storev, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_complex_float const* V, lapack_int const* ldv, lapack_complex_float const* T, lapack_int const* ldt, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, lapack_int const* ldwork ); + lapack_complex_float* work, lapack_int const* ldwork +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctprfb(...) LAPACK_ctprfb_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_ctprfb(...) LAPACK_ctprfb_base(__VA_ARGS__) +#endif -#define LAPACK_dtprfb LAPACK_GLOBAL(dtprfb,DTPRFB) -void LAPACK_dtprfb( +#define LAPACK_dtprfb_base LAPACK_GLOBAL(dtprfb,DTPRFB) +void LAPACK_dtprfb_base( char const* side, char const* trans, char const* direct, char const* storev, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, double const* V, lapack_int const* ldv, double const* T, lapack_int const* ldt, double* A, lapack_int const* lda, double* B, lapack_int const* ldb, - double* work, lapack_int const* ldwork ); + double* work, lapack_int const* ldwork +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtprfb(...) LAPACK_dtprfb_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_dtprfb(...) LAPACK_dtprfb_base(__VA_ARGS__) +#endif -#define LAPACK_stprfb LAPACK_GLOBAL(stprfb,STPRFB) -void LAPACK_stprfb( +#define LAPACK_stprfb_base LAPACK_GLOBAL(stprfb,STPRFB) +void LAPACK_stprfb_base( char const* side, char const* trans, char const* direct, char const* storev, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, float const* V, lapack_int const* ldv, float const* T, lapack_int const* ldt, float* A, lapack_int const* lda, float* B, lapack_int const* ldb, - float* work, lapack_int const* ldwork ); + float* work, lapack_int const* ldwork +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stprfb(...) LAPACK_stprfb_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_stprfb(...) LAPACK_stprfb_base(__VA_ARGS__) +#endif -#define LAPACK_ztprfb LAPACK_GLOBAL(ztprfb,ZTPRFB) -void LAPACK_ztprfb( +#define LAPACK_ztprfb_base LAPACK_GLOBAL(ztprfb,ZTPRFB) +void LAPACK_ztprfb_base( char const* side, char const* trans, char const* direct, char const* storev, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_complex_double const* V, lapack_int const* ldv, lapack_complex_double const* T, lapack_int const* ldt, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, lapack_int const* ldwork ); + lapack_complex_double* work, lapack_int const* ldwork +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztprfb(...) LAPACK_ztprfb_base(__VA_ARGS__, 1, 1, 1, 1) +#else + #define LAPACK_ztprfb(...) LAPACK_ztprfb_base(__VA_ARGS__) +#endif -#define LAPACK_ctprfs LAPACK_GLOBAL(ctprfs,CTPRFS) -void LAPACK_ctprfs( +#define LAPACK_ctprfs_base LAPACK_GLOBAL(ctprfs,CTPRFS) +void LAPACK_ctprfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, @@ -12687,10 +20983,19 @@ void LAPACK_ctprfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctprfs(...) LAPACK_ctprfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctprfs(...) LAPACK_ctprfs_base(__VA_ARGS__) +#endif -#define LAPACK_dtprfs LAPACK_GLOBAL(dtprfs,DTPRFS) -void LAPACK_dtprfs( +#define LAPACK_dtprfs_base LAPACK_GLOBAL(dtprfs,DTPRFS) +void LAPACK_dtprfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, double const* AP, @@ -12700,10 +21005,19 @@ void LAPACK_dtprfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtprfs(...) LAPACK_dtprfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtprfs(...) LAPACK_dtprfs_base(__VA_ARGS__) +#endif -#define LAPACK_stprfs LAPACK_GLOBAL(stprfs,STPRFS) -void LAPACK_stprfs( +#define LAPACK_stprfs_base LAPACK_GLOBAL(stprfs,STPRFS) +void LAPACK_stprfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, float const* AP, @@ -12713,10 +21027,19 @@ void LAPACK_stprfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stprfs(...) LAPACK_stprfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_stprfs(...) LAPACK_stprfs_base(__VA_ARGS__) +#endif -#define LAPACK_ztprfs LAPACK_GLOBAL(ztprfs,ZTPRFS) -void LAPACK_ztprfs( +#define LAPACK_ztprfs_base LAPACK_GLOBAL(ztprfs,ZTPRFS) +void LAPACK_ztprfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, @@ -12726,174 +21049,363 @@ void LAPACK_ztprfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztprfs(...) LAPACK_ztprfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztprfs(...) LAPACK_ztprfs_base(__VA_ARGS__) +#endif -#define LAPACK_ctptri LAPACK_GLOBAL(ctptri,CTPTRI) -void LAPACK_ctptri( +#define LAPACK_ctptri_base LAPACK_GLOBAL(ctptri,CTPTRI) +void LAPACK_ctptri_base( char const* uplo, char const* diag, lapack_int const* n, lapack_complex_float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctptri(...) LAPACK_ctptri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctptri(...) LAPACK_ctptri_base(__VA_ARGS__) +#endif -#define LAPACK_dtptri LAPACK_GLOBAL(dtptri,DTPTRI) -void LAPACK_dtptri( +#define LAPACK_dtptri_base LAPACK_GLOBAL(dtptri,DTPTRI) +void LAPACK_dtptri_base( char const* uplo, char const* diag, lapack_int const* n, double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtptri(...) LAPACK_dtptri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtptri(...) LAPACK_dtptri_base(__VA_ARGS__) +#endif -#define LAPACK_stptri LAPACK_GLOBAL(stptri,STPTRI) -void LAPACK_stptri( +#define LAPACK_stptri_base LAPACK_GLOBAL(stptri,STPTRI) +void LAPACK_stptri_base( char const* uplo, char const* diag, lapack_int const* n, float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stptri(...) LAPACK_stptri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_stptri(...) LAPACK_stptri_base(__VA_ARGS__) +#endif -#define LAPACK_ztptri LAPACK_GLOBAL(ztptri,ZTPTRI) -void LAPACK_ztptri( +#define LAPACK_ztptri_base LAPACK_GLOBAL(ztptri,ZTPTRI) +void LAPACK_ztptri_base( char const* uplo, char const* diag, lapack_int const* n, lapack_complex_double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztptri(...) LAPACK_ztptri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztptri(...) LAPACK_ztptri_base(__VA_ARGS__) +#endif -#define LAPACK_ctptrs LAPACK_GLOBAL(ctptrs,CTPTRS) -void LAPACK_ctptrs( +#define LAPACK_ctptrs_base LAPACK_GLOBAL(ctptrs,CTPTRS) +void LAPACK_ctptrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* AP, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctptrs(...) LAPACK_ctptrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctptrs(...) LAPACK_ctptrs_base(__VA_ARGS__) +#endif -#define LAPACK_dtptrs LAPACK_GLOBAL(dtptrs,DTPTRS) -void LAPACK_dtptrs( +#define LAPACK_dtptrs_base LAPACK_GLOBAL(dtptrs,DTPTRS) +void LAPACK_dtptrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, double const* AP, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtptrs(...) LAPACK_dtptrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtptrs(...) LAPACK_dtptrs_base(__VA_ARGS__) +#endif -#define LAPACK_stptrs LAPACK_GLOBAL(stptrs,STPTRS) -void LAPACK_stptrs( +#define LAPACK_stptrs_base LAPACK_GLOBAL(stptrs,STPTRS) +void LAPACK_stptrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, float const* AP, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stptrs(...) LAPACK_stptrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_stptrs(...) LAPACK_stptrs_base(__VA_ARGS__) +#endif -#define LAPACK_ztptrs LAPACK_GLOBAL(ztptrs,ZTPTRS) -void LAPACK_ztptrs( +#define LAPACK_ztptrs_base LAPACK_GLOBAL(ztptrs,ZTPTRS) +void LAPACK_ztptrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* AP, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztptrs(...) LAPACK_ztptrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztptrs(...) LAPACK_ztptrs_base(__VA_ARGS__) +#endif -#define LAPACK_ctpttf LAPACK_GLOBAL(ctpttf,CTPTTF) -void LAPACK_ctpttf( +#define LAPACK_ctpttf_base LAPACK_GLOBAL(ctpttf,CTPTTF) +void LAPACK_ctpttf_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_float const* AP, lapack_complex_float* ARF, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctpttf(...) LAPACK_ctpttf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctpttf(...) LAPACK_ctpttf_base(__VA_ARGS__) +#endif -#define LAPACK_dtpttf LAPACK_GLOBAL(dtpttf,DTPTTF) -void LAPACK_dtpttf( +#define LAPACK_dtpttf_base LAPACK_GLOBAL(dtpttf,DTPTTF) +void LAPACK_dtpttf_base( char const* transr, char const* uplo, lapack_int const* n, double const* AP, double* ARF, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtpttf(...) LAPACK_dtpttf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtpttf(...) LAPACK_dtpttf_base(__VA_ARGS__) +#endif -#define LAPACK_stpttf LAPACK_GLOBAL(stpttf,STPTTF) -void LAPACK_stpttf( +#define LAPACK_stpttf_base LAPACK_GLOBAL(stpttf,STPTTF) +void LAPACK_stpttf_base( char const* transr, char const* uplo, lapack_int const* n, float const* AP, float* ARF, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stpttf(...) LAPACK_stpttf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_stpttf(...) LAPACK_stpttf_base(__VA_ARGS__) +#endif -#define LAPACK_ztpttf LAPACK_GLOBAL(ztpttf,ZTPTTF) -void LAPACK_ztpttf( +#define LAPACK_ztpttf_base LAPACK_GLOBAL(ztpttf,ZTPTTF) +void LAPACK_ztpttf_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_double const* AP, lapack_complex_double* ARF, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztpttf(...) LAPACK_ztpttf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztpttf(...) LAPACK_ztpttf_base(__VA_ARGS__) +#endif -#define LAPACK_ctpttr LAPACK_GLOBAL(ctpttr,CTPTTR) -void LAPACK_ctpttr( +#define LAPACK_ctpttr_base LAPACK_GLOBAL(ctpttr,CTPTTR) +void LAPACK_ctpttr_base( char const* uplo, lapack_int const* n, lapack_complex_float const* AP, lapack_complex_float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctpttr(...) LAPACK_ctpttr_base(__VA_ARGS__, 1) +#else + #define LAPACK_ctpttr(...) LAPACK_ctpttr_base(__VA_ARGS__) +#endif -#define LAPACK_dtpttr LAPACK_GLOBAL(dtpttr,DTPTTR) -void LAPACK_dtpttr( +#define LAPACK_dtpttr_base LAPACK_GLOBAL(dtpttr,DTPTTR) +void LAPACK_dtpttr_base( char const* uplo, lapack_int const* n, double const* AP, double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtpttr(...) LAPACK_dtpttr_base(__VA_ARGS__, 1) +#else + #define LAPACK_dtpttr(...) LAPACK_dtpttr_base(__VA_ARGS__) +#endif -#define LAPACK_stpttr LAPACK_GLOBAL(stpttr,STPTTR) -void LAPACK_stpttr( +#define LAPACK_stpttr_base LAPACK_GLOBAL(stpttr,STPTTR) +void LAPACK_stpttr_base( char const* uplo, lapack_int const* n, float const* AP, float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_stpttr(...) LAPACK_stpttr_base(__VA_ARGS__, 1) +#else + #define LAPACK_stpttr(...) LAPACK_stpttr_base(__VA_ARGS__) +#endif -#define LAPACK_ztpttr LAPACK_GLOBAL(ztpttr,ZTPTTR) -void LAPACK_ztpttr( +#define LAPACK_ztpttr_base LAPACK_GLOBAL(ztpttr,ZTPTTR) +void LAPACK_ztpttr_base( char const* uplo, lapack_int const* n, lapack_complex_double const* AP, lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztpttr(...) LAPACK_ztpttr_base(__VA_ARGS__, 1) +#else + #define LAPACK_ztpttr(...) LAPACK_ztpttr_base(__VA_ARGS__) +#endif -#define LAPACK_ctrcon LAPACK_GLOBAL(ctrcon,CTRCON) -void LAPACK_ctrcon( +#define LAPACK_ctrcon_base LAPACK_GLOBAL(ctrcon,CTRCON) +void LAPACK_ctrcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, float* rcond, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrcon(...) LAPACK_ctrcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctrcon(...) LAPACK_ctrcon_base(__VA_ARGS__) +#endif -#define LAPACK_dtrcon LAPACK_GLOBAL(dtrcon,DTRCON) -void LAPACK_dtrcon( +#define LAPACK_dtrcon_base LAPACK_GLOBAL(dtrcon,DTRCON) +void LAPACK_dtrcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, double const* A, lapack_int const* lda, double* rcond, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrcon(...) LAPACK_dtrcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtrcon(...) LAPACK_dtrcon_base(__VA_ARGS__) +#endif -#define LAPACK_strcon LAPACK_GLOBAL(strcon,STRCON) -void LAPACK_strcon( +#define LAPACK_strcon_base LAPACK_GLOBAL(strcon,STRCON) +void LAPACK_strcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, float const* A, lapack_int const* lda, float* rcond, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strcon(...) LAPACK_strcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_strcon(...) LAPACK_strcon_base(__VA_ARGS__) +#endif -#define LAPACK_ztrcon LAPACK_GLOBAL(ztrcon,ZTRCON) -void LAPACK_ztrcon( +#define LAPACK_ztrcon_base LAPACK_GLOBAL(ztrcon,ZTRCON) +void LAPACK_ztrcon_base( char const* norm, char const* uplo, char const* diag, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, double* rcond, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrcon(...) LAPACK_ztrcon_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztrcon(...) LAPACK_ztrcon_base(__VA_ARGS__) +#endif -#define LAPACK_ctrevc LAPACK_GLOBAL(ctrevc,CTREVC) -void LAPACK_ctrevc( +#define LAPACK_ctrevc_base LAPACK_GLOBAL(ctrevc,CTREVC) +void LAPACK_ctrevc_base( char const* side, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12902,10 +21414,19 @@ void LAPACK_ctrevc( lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrevc(...) LAPACK_ctrevc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctrevc(...) LAPACK_ctrevc_base(__VA_ARGS__) +#endif -#define LAPACK_dtrevc LAPACK_GLOBAL(dtrevc,DTREVC) -void LAPACK_dtrevc( +#define LAPACK_dtrevc_base LAPACK_GLOBAL(dtrevc,DTREVC) +void LAPACK_dtrevc_base( char const* side, char const* howmny, lapack_logical* select, lapack_int const* n, @@ -12913,10 +21434,19 @@ void LAPACK_dtrevc( double* VL, lapack_int const* ldvl, double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrevc(...) LAPACK_dtrevc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtrevc(...) LAPACK_dtrevc_base(__VA_ARGS__) +#endif -#define LAPACK_strevc LAPACK_GLOBAL(strevc,STREVC) -void LAPACK_strevc( +#define LAPACK_strevc_base LAPACK_GLOBAL(strevc,STREVC) +void LAPACK_strevc_base( char const* side, char const* howmny, lapack_logical* select, lapack_int const* n, @@ -12924,10 +21454,19 @@ void LAPACK_strevc( float* VL, lapack_int const* ldvl, float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strevc(...) LAPACK_strevc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_strevc(...) LAPACK_strevc_base(__VA_ARGS__) +#endif -#define LAPACK_ztrevc LAPACK_GLOBAL(ztrevc,ZTREVC) -void LAPACK_ztrevc( +#define LAPACK_ztrevc_base LAPACK_GLOBAL(ztrevc,ZTREVC) +void LAPACK_ztrevc_base( char const* side, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12936,10 +21475,19 @@ void LAPACK_ztrevc( lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrevc(...) LAPACK_ztrevc_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztrevc(...) LAPACK_ztrevc_base(__VA_ARGS__) +#endif -#define LAPACK_ctrevc3 LAPACK_GLOBAL(ctrevc3,CTREVC3) -void LAPACK_ctrevc3( +#define LAPACK_ctrevc3_base LAPACK_GLOBAL(ctrevc3,CTREVC3) +void LAPACK_ctrevc3_base( char const* side, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12948,10 +21496,19 @@ void LAPACK_ctrevc3( lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrevc3(...) LAPACK_ctrevc3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctrevc3(...) LAPACK_ctrevc3_base(__VA_ARGS__) +#endif -#define LAPACK_dtrevc3 LAPACK_GLOBAL(dtrevc3,DTREVC3) -void LAPACK_dtrevc3( +#define LAPACK_dtrevc3_base LAPACK_GLOBAL(dtrevc3,DTREVC3) +void LAPACK_dtrevc3_base( char const* side, char const* howmny, lapack_logical* select, lapack_int const* n, @@ -12959,10 +21516,19 @@ void LAPACK_dtrevc3( double* VL, lapack_int const* ldvl, double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrevc3(...) LAPACK_dtrevc3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtrevc3(...) LAPACK_dtrevc3_base(__VA_ARGS__) +#endif -#define LAPACK_strevc3 LAPACK_GLOBAL(strevc3,STREVC3) -void LAPACK_strevc3( +#define LAPACK_strevc3_base LAPACK_GLOBAL(strevc3,STREVC3) +void LAPACK_strevc3_base( char const* side, char const* howmny, lapack_logical* select, lapack_int const* n, @@ -12970,10 +21536,19 @@ void LAPACK_strevc3( float* VL, lapack_int const* ldvl, float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strevc3(...) LAPACK_strevc3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_strevc3(...) LAPACK_strevc3_base(__VA_ARGS__) +#endif -#define LAPACK_ztrevc3 LAPACK_GLOBAL(ztrevc3,ZTREVC3) -void LAPACK_ztrevc3( +#define LAPACK_ztrevc3_base LAPACK_GLOBAL(ztrevc3,ZTREVC3) +void LAPACK_ztrevc3_base( char const* side, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -12982,44 +21557,89 @@ void LAPACK_ztrevc3( lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrevc3(...) LAPACK_ztrevc3_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztrevc3(...) LAPACK_ztrevc3_base(__VA_ARGS__) +#endif -#define LAPACK_ctrexc LAPACK_GLOBAL(ctrexc,CTREXC) -void LAPACK_ctrexc( +#define LAPACK_ctrexc_base LAPACK_GLOBAL(ctrexc,CTREXC) +void LAPACK_ctrexc_base( char const* compq, lapack_int const* n, lapack_complex_float* T, lapack_int const* ldt, lapack_complex_float* Q, lapack_int const* ldq, lapack_int const* ifst, lapack_int const* ilst, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrexc(...) LAPACK_ctrexc_base(__VA_ARGS__, 1) +#else + #define LAPACK_ctrexc(...) LAPACK_ctrexc_base(__VA_ARGS__) +#endif -#define LAPACK_dtrexc LAPACK_GLOBAL(dtrexc,DTREXC) -void LAPACK_dtrexc( +#define LAPACK_dtrexc_base LAPACK_GLOBAL(dtrexc,DTREXC) +void LAPACK_dtrexc_base( char const* compq, lapack_int const* n, double* T, lapack_int const* ldt, double* Q, lapack_int const* ldq, lapack_int* ifst, lapack_int* ilst, double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrexc(...) LAPACK_dtrexc_base(__VA_ARGS__, 1) +#else + #define LAPACK_dtrexc(...) LAPACK_dtrexc_base(__VA_ARGS__) +#endif -#define LAPACK_strexc LAPACK_GLOBAL(strexc,STREXC) -void LAPACK_strexc( +#define LAPACK_strexc_base LAPACK_GLOBAL(strexc,STREXC) +void LAPACK_strexc_base( char const* compq, lapack_int const* n, float* T, lapack_int const* ldt, float* Q, lapack_int const* ldq, lapack_int* ifst, lapack_int* ilst, float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strexc(...) LAPACK_strexc_base(__VA_ARGS__, 1) +#else + #define LAPACK_strexc(...) LAPACK_strexc_base(__VA_ARGS__) +#endif -#define LAPACK_ztrexc LAPACK_GLOBAL(ztrexc,ZTREXC) -void LAPACK_ztrexc( +#define LAPACK_ztrexc_base LAPACK_GLOBAL(ztrexc,ZTREXC) +void LAPACK_ztrexc_base( char const* compq, lapack_int const* n, lapack_complex_double* T, lapack_int const* ldt, lapack_complex_double* Q, lapack_int const* ldq, lapack_int const* ifst, lapack_int const* ilst, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrexc(...) LAPACK_ztrexc_base(__VA_ARGS__, 1) +#else + #define LAPACK_ztrexc(...) LAPACK_ztrexc_base(__VA_ARGS__) +#endif -#define LAPACK_ctrrfs LAPACK_GLOBAL(ctrrfs,CTRRFS) -void LAPACK_ctrrfs( +#define LAPACK_ctrrfs_base LAPACK_GLOBAL(ctrrfs,CTRRFS) +void LAPACK_ctrrfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, @@ -13029,10 +21649,19 @@ void LAPACK_ctrrfs( float* berr, lapack_complex_float* work, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrrfs(...) LAPACK_ctrrfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctrrfs(...) LAPACK_ctrrfs_base(__VA_ARGS__) +#endif -#define LAPACK_dtrrfs LAPACK_GLOBAL(dtrrfs,DTRRFS) -void LAPACK_dtrrfs( +#define LAPACK_dtrrfs_base LAPACK_GLOBAL(dtrrfs,DTRRFS) +void LAPACK_dtrrfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, @@ -13042,10 +21671,19 @@ void LAPACK_dtrrfs( double* berr, double* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrrfs(...) LAPACK_dtrrfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtrrfs(...) LAPACK_dtrrfs_base(__VA_ARGS__) +#endif -#define LAPACK_strrfs LAPACK_GLOBAL(strrfs,STRRFS) -void LAPACK_strrfs( +#define LAPACK_strrfs_base LAPACK_GLOBAL(strrfs,STRRFS) +void LAPACK_strrfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, @@ -13055,10 +21693,19 @@ void LAPACK_strrfs( float* berr, float* work, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strrfs(...) LAPACK_strrfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_strrfs(...) LAPACK_strrfs_base(__VA_ARGS__) +#endif -#define LAPACK_ztrrfs LAPACK_GLOBAL(ztrrfs,ZTRRFS) -void LAPACK_ztrrfs( +#define LAPACK_ztrrfs_base LAPACK_GLOBAL(ztrrfs,ZTRRFS) +void LAPACK_ztrrfs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, @@ -13068,10 +21715,19 @@ void LAPACK_ztrrfs( double* berr, lapack_complex_double* work, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrrfs(...) LAPACK_ztrrfs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztrrfs(...) LAPACK_ztrrfs_base(__VA_ARGS__) +#endif -#define LAPACK_ctrsen LAPACK_GLOBAL(ctrsen,CTRSEN) -void LAPACK_ctrsen( +#define LAPACK_ctrsen_base LAPACK_GLOBAL(ctrsen,CTRSEN) +void LAPACK_ctrsen_base( char const* job, char const* compq, lapack_logical const* select, lapack_int const* n, @@ -13081,10 +21737,19 @@ void LAPACK_ctrsen( float* s, float* sep, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrsen(...) LAPACK_ctrsen_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctrsen(...) LAPACK_ctrsen_base(__VA_ARGS__) +#endif -#define LAPACK_dtrsen LAPACK_GLOBAL(dtrsen,DTRSEN) -void LAPACK_dtrsen( +#define LAPACK_dtrsen_base LAPACK_GLOBAL(dtrsen,DTRSEN) +void LAPACK_dtrsen_base( char const* job, char const* compq, lapack_logical const* select, lapack_int const* n, @@ -13096,10 +21761,19 @@ void LAPACK_dtrsen( double* sep, double* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrsen(...) LAPACK_dtrsen_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtrsen(...) LAPACK_dtrsen_base(__VA_ARGS__) +#endif -#define LAPACK_strsen LAPACK_GLOBAL(strsen,STRSEN) -void LAPACK_strsen( +#define LAPACK_strsen_base LAPACK_GLOBAL(strsen,STRSEN) +void LAPACK_strsen_base( char const* job, char const* compq, lapack_logical const* select, lapack_int const* n, @@ -13111,10 +21785,19 @@ void LAPACK_strsen( float* sep, float* work, lapack_int const* lwork, lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strsen(...) LAPACK_strsen_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_strsen(...) LAPACK_strsen_base(__VA_ARGS__) +#endif -#define LAPACK_ztrsen LAPACK_GLOBAL(ztrsen,ZTRSEN) -void LAPACK_ztrsen( +#define LAPACK_ztrsen_base LAPACK_GLOBAL(ztrsen,ZTRSEN) +void LAPACK_ztrsen_base( char const* job, char const* compq, lapack_logical const* select, lapack_int const* n, @@ -13124,10 +21807,19 @@ void LAPACK_ztrsen( double* s, double* sep, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrsen(...) LAPACK_ztrsen_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztrsen(...) LAPACK_ztrsen_base(__VA_ARGS__) +#endif -#define LAPACK_ctrsna LAPACK_GLOBAL(ctrsna,CTRSNA) -void LAPACK_ctrsna( +#define LAPACK_ctrsna_base LAPACK_GLOBAL(ctrsna,CTRSNA) +void LAPACK_ctrsna_base( char const* job, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -13138,10 +21830,19 @@ void LAPACK_ctrsna( float* SEP, lapack_int const* mm, lapack_int* m, lapack_complex_float* work, lapack_int const* ldwork, float* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrsna(...) LAPACK_ctrsna_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctrsna(...) LAPACK_ctrsna_base(__VA_ARGS__) +#endif -#define LAPACK_dtrsna LAPACK_GLOBAL(dtrsna,DTRSNA) -void LAPACK_dtrsna( +#define LAPACK_dtrsna_base LAPACK_GLOBAL(dtrsna,DTRSNA) +void LAPACK_dtrsna_base( char const* job, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -13152,10 +21853,19 @@ void LAPACK_dtrsna( double* SEP, lapack_int const* mm, lapack_int* m, double* work, lapack_int const* ldwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrsna(...) LAPACK_dtrsna_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtrsna(...) LAPACK_dtrsna_base(__VA_ARGS__) +#endif -#define LAPACK_strsna LAPACK_GLOBAL(strsna,STRSNA) -void LAPACK_strsna( +#define LAPACK_strsna_base LAPACK_GLOBAL(strsna,STRSNA) +void LAPACK_strsna_base( char const* job, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -13166,10 +21876,19 @@ void LAPACK_strsna( float* SEP, lapack_int const* mm, lapack_int* m, float* work, lapack_int const* ldwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strsna(...) LAPACK_strsna_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_strsna(...) LAPACK_strsna_base(__VA_ARGS__) +#endif -#define LAPACK_ztrsna LAPACK_GLOBAL(ztrsna,ZTRSNA) -void LAPACK_ztrsna( +#define LAPACK_ztrsna_base LAPACK_GLOBAL(ztrsna,ZTRSNA) +void LAPACK_ztrsna_base( char const* job, char const* howmny, lapack_logical const* select, lapack_int const* n, @@ -13180,171 +21899,360 @@ void LAPACK_ztrsna( double* SEP, lapack_int const* mm, lapack_int* m, lapack_complex_double* work, lapack_int const* ldwork, double* rwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrsna(...) LAPACK_ztrsna_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztrsna(...) LAPACK_ztrsna_base(__VA_ARGS__) +#endif -#define LAPACK_ctrsyl LAPACK_GLOBAL(ctrsyl,CTRSYL) -void LAPACK_ctrsyl( +#define LAPACK_ctrsyl_base LAPACK_GLOBAL(ctrsyl,CTRSYL) +void LAPACK_ctrsyl_base( char const* trana, char const* tranb, lapack_int const* isgn, lapack_int const* m, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* B, lapack_int const* ldb, lapack_complex_float* C, lapack_int const* ldc, float* scale, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrsyl(...) LAPACK_ctrsyl_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctrsyl(...) LAPACK_ctrsyl_base(__VA_ARGS__) +#endif -#define LAPACK_dtrsyl LAPACK_GLOBAL(dtrsyl,DTRSYL) -void LAPACK_dtrsyl( +#define LAPACK_dtrsyl_base LAPACK_GLOBAL(dtrsyl,DTRSYL) +void LAPACK_dtrsyl_base( char const* trana, char const* tranb, lapack_int const* isgn, lapack_int const* m, lapack_int const* n, double const* A, lapack_int const* lda, double const* B, lapack_int const* ldb, double* C, lapack_int const* ldc, double* scale, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrsyl(...) LAPACK_dtrsyl_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtrsyl(...) LAPACK_dtrsyl_base(__VA_ARGS__) +#endif -#define LAPACK_strsyl LAPACK_GLOBAL(strsyl,STRSYL) -void LAPACK_strsyl( +#define LAPACK_strsyl_base LAPACK_GLOBAL(strsyl,STRSYL) +void LAPACK_strsyl_base( char const* trana, char const* tranb, lapack_int const* isgn, lapack_int const* m, lapack_int const* n, float const* A, lapack_int const* lda, float const* B, lapack_int const* ldb, float* C, lapack_int const* ldc, float* scale, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strsyl(...) LAPACK_strsyl_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_strsyl(...) LAPACK_strsyl_base(__VA_ARGS__) +#endif -#define LAPACK_ztrsyl LAPACK_GLOBAL(ztrsyl,ZTRSYL) -void LAPACK_ztrsyl( +#define LAPACK_ztrsyl_base LAPACK_GLOBAL(ztrsyl,ZTRSYL) +void LAPACK_ztrsyl_base( char const* trana, char const* tranb, lapack_int const* isgn, lapack_int const* m, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* B, lapack_int const* ldb, lapack_complex_double* C, lapack_int const* ldc, double* scale, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrsyl(...) LAPACK_ztrsyl_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztrsyl(...) LAPACK_ztrsyl_base(__VA_ARGS__) +#endif -#define LAPACK_ctrtri LAPACK_GLOBAL(ctrtri,CTRTRI) -void LAPACK_ctrtri( +#define LAPACK_ctrtri_base LAPACK_GLOBAL(ctrtri,CTRTRI) +void LAPACK_ctrtri_base( char const* uplo, char const* diag, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrtri(...) LAPACK_ctrtri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctrtri(...) LAPACK_ctrtri_base(__VA_ARGS__) +#endif -#define LAPACK_dtrtri LAPACK_GLOBAL(dtrtri,DTRTRI) -void LAPACK_dtrtri( +#define LAPACK_dtrtri_base LAPACK_GLOBAL(dtrtri,DTRTRI) +void LAPACK_dtrtri_base( char const* uplo, char const* diag, lapack_int const* n, double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrtri(...) LAPACK_dtrtri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtrtri(...) LAPACK_dtrtri_base(__VA_ARGS__) +#endif -#define LAPACK_strtri LAPACK_GLOBAL(strtri,STRTRI) -void LAPACK_strtri( +#define LAPACK_strtri_base LAPACK_GLOBAL(strtri,STRTRI) +void LAPACK_strtri_base( char const* uplo, char const* diag, lapack_int const* n, float* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strtri(...) LAPACK_strtri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_strtri(...) LAPACK_strtri_base(__VA_ARGS__) +#endif -#define LAPACK_ztrtri LAPACK_GLOBAL(ztrtri,ZTRTRI) -void LAPACK_ztrtri( +#define LAPACK_ztrtri_base LAPACK_GLOBAL(ztrtri,ZTRTRI) +void LAPACK_ztrtri_base( char const* uplo, char const* diag, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrtri(...) LAPACK_ztrtri_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztrtri(...) LAPACK_ztrtri_base(__VA_ARGS__) +#endif -#define LAPACK_ctrtrs LAPACK_GLOBAL(ctrtrs,CTRTRS) -void LAPACK_ctrtrs( +#define LAPACK_ctrtrs_base LAPACK_GLOBAL(ctrtrs,CTRTRS) +void LAPACK_ctrtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrtrs(...) LAPACK_ctrtrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ctrtrs(...) LAPACK_ctrtrs_base(__VA_ARGS__) +#endif -#define LAPACK_dtrtrs LAPACK_GLOBAL(dtrtrs,DTRTRS) -void LAPACK_dtrtrs( +#define LAPACK_dtrtrs_base LAPACK_GLOBAL(dtrtrs,DTRTRS) +void LAPACK_dtrtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, double const* A, lapack_int const* lda, double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrtrs(...) LAPACK_dtrtrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_dtrtrs(...) LAPACK_dtrtrs_base(__VA_ARGS__) +#endif -#define LAPACK_strtrs LAPACK_GLOBAL(strtrs,STRTRS) -void LAPACK_strtrs( +#define LAPACK_strtrs_base LAPACK_GLOBAL(strtrs,STRTRS) +void LAPACK_strtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, float const* A, lapack_int const* lda, float* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strtrs(...) LAPACK_strtrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_strtrs(...) LAPACK_strtrs_base(__VA_ARGS__) +#endif -#define LAPACK_ztrtrs LAPACK_GLOBAL(ztrtrs,ZTRTRS) -void LAPACK_ztrtrs( +#define LAPACK_ztrtrs_base LAPACK_GLOBAL(ztrtrs,ZTRTRS) +void LAPACK_ztrtrs_base( char const* uplo, char const* trans, char const* diag, lapack_int const* n, lapack_int const* nrhs, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrtrs(...) LAPACK_ztrtrs_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_ztrtrs(...) LAPACK_ztrtrs_base(__VA_ARGS__) +#endif -#define LAPACK_ctrttf LAPACK_GLOBAL(ctrttf,CTRTTF) -void LAPACK_ctrttf( +#define LAPACK_ctrttf_base LAPACK_GLOBAL(ctrttf,CTRTTF) +void LAPACK_ctrttf_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float* ARF, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrttf(...) LAPACK_ctrttf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ctrttf(...) LAPACK_ctrttf_base(__VA_ARGS__) +#endif -#define LAPACK_dtrttf LAPACK_GLOBAL(dtrttf,DTRTTF) -void LAPACK_dtrttf( +#define LAPACK_dtrttf_base LAPACK_GLOBAL(dtrttf,DTRTTF) +void LAPACK_dtrttf_base( char const* transr, char const* uplo, lapack_int const* n, double const* A, lapack_int const* lda, double* ARF, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrttf(...) LAPACK_dtrttf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_dtrttf(...) LAPACK_dtrttf_base(__VA_ARGS__) +#endif -#define LAPACK_strttf LAPACK_GLOBAL(strttf,STRTTF) -void LAPACK_strttf( +#define LAPACK_strttf_base LAPACK_GLOBAL(strttf,STRTTF) +void LAPACK_strttf_base( char const* transr, char const* uplo, lapack_int const* n, float const* A, lapack_int const* lda, float* ARF, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strttf(...) LAPACK_strttf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_strttf(...) LAPACK_strttf_base(__VA_ARGS__) +#endif -#define LAPACK_ztrttf LAPACK_GLOBAL(ztrttf,ZTRTTF) -void LAPACK_ztrttf( +#define LAPACK_ztrttf_base LAPACK_GLOBAL(ztrttf,ZTRTTF) +void LAPACK_ztrttf_base( char const* transr, char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double* ARF, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrttf(...) LAPACK_ztrttf_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_ztrttf(...) LAPACK_ztrttf_base(__VA_ARGS__) +#endif -#define LAPACK_ctrttp LAPACK_GLOBAL(ctrttp,CTRTTP) -void LAPACK_ctrttp( +#define LAPACK_ctrttp_base LAPACK_GLOBAL(ctrttp,CTRTTP) +void LAPACK_ctrttp_base( char const* uplo, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ctrttp(...) LAPACK_ctrttp_base(__VA_ARGS__, 1) +#else + #define LAPACK_ctrttp(...) LAPACK_ctrttp_base(__VA_ARGS__) +#endif -#define LAPACK_dtrttp LAPACK_GLOBAL(dtrttp,DTRTTP) -void LAPACK_dtrttp( +#define LAPACK_dtrttp_base LAPACK_GLOBAL(dtrttp,DTRTTP) +void LAPACK_dtrttp_base( char const* uplo, lapack_int const* n, double const* A, lapack_int const* lda, double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_dtrttp(...) LAPACK_dtrttp_base(__VA_ARGS__, 1) +#else + #define LAPACK_dtrttp(...) LAPACK_dtrttp_base(__VA_ARGS__) +#endif -#define LAPACK_strttp LAPACK_GLOBAL(strttp,STRTTP) -void LAPACK_strttp( +#define LAPACK_strttp_base LAPACK_GLOBAL(strttp,STRTTP) +void LAPACK_strttp_base( char const* uplo, lapack_int const* n, float const* A, lapack_int const* lda, float* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_strttp(...) LAPACK_strttp_base(__VA_ARGS__, 1) +#else + #define LAPACK_strttp(...) LAPACK_strttp_base(__VA_ARGS__) +#endif -#define LAPACK_ztrttp LAPACK_GLOBAL(ztrttp,ZTRTTP) -void LAPACK_ztrttp( +#define LAPACK_ztrttp_base LAPACK_GLOBAL(ztrttp,ZTRTTP) +void LAPACK_ztrttp_base( char const* uplo, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double* AP, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_ztrttp(...) LAPACK_ztrttp_base(__VA_ARGS__, 1) +#else + #define LAPACK_ztrttp(...) LAPACK_ztrttp_base(__VA_ARGS__) +#endif #define LAPACK_ctzrzf LAPACK_GLOBAL(ctzrzf,CTZRZF) void LAPACK_ctzrzf( @@ -13378,8 +22286,8 @@ void LAPACK_ztzrzf( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cunbdb LAPACK_GLOBAL(cunbdb,CUNBDB) -void LAPACK_cunbdb( +#define LAPACK_cunbdb_base LAPACK_GLOBAL(cunbdb,CUNBDB) +void LAPACK_cunbdb_base( char const* trans, char const* signs, lapack_int const* m, lapack_int const* p, lapack_int const* q, lapack_complex_float* X11, lapack_int const* ldx11, @@ -13393,10 +22301,19 @@ void LAPACK_cunbdb( lapack_complex_float* TAUQ1, lapack_complex_float* TAUQ2, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cunbdb(...) LAPACK_cunbdb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cunbdb(...) LAPACK_cunbdb_base(__VA_ARGS__) +#endif -#define LAPACK_zunbdb LAPACK_GLOBAL(zunbdb,ZUNBDB) -void LAPACK_zunbdb( +#define LAPACK_zunbdb_base LAPACK_GLOBAL(zunbdb,ZUNBDB) +void LAPACK_zunbdb_base( char const* trans, char const* signs, lapack_int const* m, lapack_int const* p, lapack_int const* q, lapack_complex_double* X11, lapack_int const* ldx11, @@ -13410,10 +22327,19 @@ void LAPACK_zunbdb( lapack_complex_double* TAUQ1, lapack_complex_double* TAUQ2, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zunbdb(...) LAPACK_zunbdb_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zunbdb(...) LAPACK_zunbdb_base(__VA_ARGS__) +#endif -#define LAPACK_cuncsd LAPACK_GLOBAL(cuncsd,CUNCSD) -void LAPACK_cuncsd( +#define LAPACK_cuncsd_base LAPACK_GLOBAL(cuncsd,CUNCSD) +void LAPACK_cuncsd_base( char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs, lapack_int const* m, lapack_int const* p, lapack_int const* q, lapack_complex_float* X11, lapack_int const* ldx11, @@ -13428,10 +22354,19 @@ void LAPACK_cuncsd( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cuncsd(...) LAPACK_cuncsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) +#else + #define LAPACK_cuncsd(...) LAPACK_cuncsd_base(__VA_ARGS__) +#endif -#define LAPACK_zuncsd LAPACK_GLOBAL(zuncsd,ZUNCSD) -void LAPACK_zuncsd( +#define LAPACK_zuncsd_base LAPACK_GLOBAL(zuncsd,ZUNCSD) +void LAPACK_zuncsd_base( char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs, lapack_int const* m, lapack_int const* p, lapack_int const* q, lapack_complex_double* X11, lapack_int const* ldx11, @@ -13446,10 +22381,19 @@ void LAPACK_zuncsd( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t, size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zuncsd(...) LAPACK_zuncsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) +#else + #define LAPACK_zuncsd(...) LAPACK_zuncsd_base(__VA_ARGS__) +#endif -#define LAPACK_cuncsd2by1 LAPACK_GLOBAL(cuncsd2by1,CUNCSD2BY1) -void LAPACK_cuncsd2by1( +#define LAPACK_cuncsd2by1_base LAPACK_GLOBAL(cuncsd2by1,CUNCSD2BY1) +void LAPACK_cuncsd2by1_base( char const* jobu1, char const* jobu2, char const* jobv1t, lapack_int const* m, lapack_int const* p, lapack_int const* q, lapack_complex_float* X11, lapack_int const* ldx11, @@ -13461,10 +22405,19 @@ void LAPACK_cuncsd2by1( lapack_complex_float* work, lapack_int const* lwork, float* rwork, lapack_int const* lrwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cuncsd2by1(...) LAPACK_cuncsd2by1_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cuncsd2by1(...) LAPACK_cuncsd2by1_base(__VA_ARGS__) +#endif -#define LAPACK_zuncsd2by1 LAPACK_GLOBAL(zuncsd2by1,ZUNCSD2BY1) -void LAPACK_zuncsd2by1( +#define LAPACK_zuncsd2by1_base LAPACK_GLOBAL(zuncsd2by1,ZUNCSD2BY1) +void LAPACK_zuncsd2by1_base( char const* jobu1, char const* jobu2, char const* jobv1t, lapack_int const* m, lapack_int const* p, lapack_int const* q, lapack_complex_double* X11, lapack_int const* ldx11, @@ -13476,25 +22429,52 @@ void LAPACK_zuncsd2by1( lapack_complex_double* work, lapack_int const* lwork, double* rwork, lapack_int const* lrwork, lapack_int* iwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zuncsd2by1(...) LAPACK_zuncsd2by1_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zuncsd2by1(...) LAPACK_zuncsd2by1_base(__VA_ARGS__) +#endif -#define LAPACK_cungbr LAPACK_GLOBAL(cungbr,CUNGBR) -void LAPACK_cungbr( +#define LAPACK_cungbr_base LAPACK_GLOBAL(cungbr,CUNGBR) +void LAPACK_cungbr_base( char const* vect, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cungbr(...) LAPACK_cungbr_base(__VA_ARGS__, 1) +#else + #define LAPACK_cungbr(...) LAPACK_cungbr_base(__VA_ARGS__) +#endif -#define LAPACK_zungbr LAPACK_GLOBAL(zungbr,ZUNGBR) -void LAPACK_zungbr( +#define LAPACK_zungbr_base LAPACK_GLOBAL(zungbr,ZUNGBR) +void LAPACK_zungbr_base( char const* vect, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zungbr(...) LAPACK_zungbr_base(__VA_ARGS__, 1) +#else + #define LAPACK_zungbr(...) LAPACK_zungbr_base(__VA_ARGS__) +#endif #define LAPACK_cunghr LAPACK_GLOBAL(cunghr,CUNGHR) void LAPACK_cunghr( @@ -13576,23 +22556,41 @@ void LAPACK_zungrq( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cungtr LAPACK_GLOBAL(cungtr,CUNGTR) -void LAPACK_cungtr( +#define LAPACK_cungtr_base LAPACK_GLOBAL(cungtr,CUNGTR) +void LAPACK_cungtr_base( char const* uplo, lapack_int const* n, lapack_complex_float* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cungtr(...) LAPACK_cungtr_base(__VA_ARGS__, 1) +#else + #define LAPACK_cungtr(...) LAPACK_cungtr_base(__VA_ARGS__) +#endif -#define LAPACK_zungtr LAPACK_GLOBAL(zungtr,ZUNGTR) -void LAPACK_zungtr( +#define LAPACK_zungtr_base LAPACK_GLOBAL(zungtr,ZUNGTR) +void LAPACK_zungtr_base( char const* uplo, lapack_int const* n, lapack_complex_double* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zungtr(...) LAPACK_zungtr_base(__VA_ARGS__, 1) +#else + #define LAPACK_zungtr(...) LAPACK_zungtr_base(__VA_ARGS__) +#endif #define LAPACK_cungtsqr_row LAPACK_GLOBAL(cungtsqr_row,CUNGTSQR_ROW) void LAPACK_cungtsqr_row( @@ -13612,205 +22610,385 @@ void LAPACK_zungtsqr_row( lapack_complex_double* work, lapack_int const* lwork, lapack_int* info ); -#define LAPACK_cunmbr LAPACK_GLOBAL(cunmbr,CUNMBR) -void LAPACK_cunmbr( +#define LAPACK_cunmbr_base LAPACK_GLOBAL(cunmbr,CUNMBR) +void LAPACK_cunmbr_base( char const* vect, char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cunmbr(...) LAPACK_cunmbr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cunmbr(...) LAPACK_cunmbr_base(__VA_ARGS__) +#endif -#define LAPACK_zunmbr LAPACK_GLOBAL(zunmbr,ZUNMBR) -void LAPACK_zunmbr( +#define LAPACK_zunmbr_base LAPACK_GLOBAL(zunmbr,ZUNMBR) +void LAPACK_zunmbr_base( char const* vect, char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zunmbr(...) LAPACK_zunmbr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zunmbr(...) LAPACK_zunmbr_base(__VA_ARGS__) +#endif -#define LAPACK_cunmhr LAPACK_GLOBAL(cunmhr,CUNMHR) -void LAPACK_cunmhr( +#define LAPACK_cunmhr_base LAPACK_GLOBAL(cunmhr,CUNMHR) +void LAPACK_cunmhr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cunmhr(...) LAPACK_cunmhr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cunmhr(...) LAPACK_cunmhr_base(__VA_ARGS__) +#endif -#define LAPACK_zunmhr LAPACK_GLOBAL(zunmhr,ZUNMHR) -void LAPACK_zunmhr( +#define LAPACK_zunmhr_base LAPACK_GLOBAL(zunmhr,ZUNMHR) +void LAPACK_zunmhr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zunmhr(...) LAPACK_zunmhr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zunmhr(...) LAPACK_zunmhr_base(__VA_ARGS__) +#endif -#define LAPACK_cunmlq LAPACK_GLOBAL(cunmlq,CUNMLQ) -void LAPACK_cunmlq( +#define LAPACK_cunmlq_base LAPACK_GLOBAL(cunmlq,CUNMLQ) +void LAPACK_cunmlq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cunmlq(...) LAPACK_cunmlq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cunmlq(...) LAPACK_cunmlq_base(__VA_ARGS__) +#endif -#define LAPACK_zunmlq LAPACK_GLOBAL(zunmlq,ZUNMLQ) -void LAPACK_zunmlq( +#define LAPACK_zunmlq_base LAPACK_GLOBAL(zunmlq,ZUNMLQ) +void LAPACK_zunmlq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zunmlq(...) LAPACK_zunmlq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zunmlq(...) LAPACK_zunmlq_base(__VA_ARGS__) +#endif -#define LAPACK_cunmql LAPACK_GLOBAL(cunmql,CUNMQL) -void LAPACK_cunmql( +#define LAPACK_cunmql_base LAPACK_GLOBAL(cunmql,CUNMQL) +void LAPACK_cunmql_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cunmql(...) LAPACK_cunmql_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cunmql(...) LAPACK_cunmql_base(__VA_ARGS__) +#endif -#define LAPACK_zunmql LAPACK_GLOBAL(zunmql,ZUNMQL) -void LAPACK_zunmql( +#define LAPACK_zunmql_base LAPACK_GLOBAL(zunmql,ZUNMQL) +void LAPACK_zunmql_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zunmql(...) LAPACK_zunmql_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zunmql(...) LAPACK_zunmql_base(__VA_ARGS__) +#endif -#define LAPACK_cunmqr LAPACK_GLOBAL(cunmqr,CUNMQR) -void LAPACK_cunmqr( +#define LAPACK_cunmqr_base LAPACK_GLOBAL(cunmqr,CUNMQR) +void LAPACK_cunmqr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cunmqr(...) LAPACK_cunmqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cunmqr(...) LAPACK_cunmqr_base(__VA_ARGS__) +#endif -#define LAPACK_zunmqr LAPACK_GLOBAL(zunmqr,ZUNMQR) -void LAPACK_zunmqr( +#define LAPACK_zunmqr_base LAPACK_GLOBAL(zunmqr,ZUNMQR) +void LAPACK_zunmqr_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zunmqr(...) LAPACK_zunmqr_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zunmqr(...) LAPACK_zunmqr_base(__VA_ARGS__) +#endif -#define LAPACK_cunmrq LAPACK_GLOBAL(cunmrq,CUNMRQ) -void LAPACK_cunmrq( +#define LAPACK_cunmrq_base LAPACK_GLOBAL(cunmrq,CUNMRQ) +void LAPACK_cunmrq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cunmrq(...) LAPACK_cunmrq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cunmrq(...) LAPACK_cunmrq_base(__VA_ARGS__) +#endif -#define LAPACK_zunmrq LAPACK_GLOBAL(zunmrq,ZUNMRQ) -void LAPACK_zunmrq( +#define LAPACK_zunmrq_base LAPACK_GLOBAL(zunmrq,ZUNMRQ) +void LAPACK_zunmrq_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zunmrq(...) LAPACK_zunmrq_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zunmrq(...) LAPACK_zunmrq_base(__VA_ARGS__) +#endif -#define LAPACK_cunmrz LAPACK_GLOBAL(cunmrz,CUNMRZ) -void LAPACK_cunmrz( +#define LAPACK_cunmrz_base LAPACK_GLOBAL(cunmrz,CUNMRZ) +void LAPACK_cunmrz_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cunmrz(...) LAPACK_cunmrz_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_cunmrz(...) LAPACK_cunmrz_base(__VA_ARGS__) +#endif -#define LAPACK_zunmrz LAPACK_GLOBAL(zunmrz,ZUNMRZ) -void LAPACK_zunmrz( +#define LAPACK_zunmrz_base LAPACK_GLOBAL(zunmrz,ZUNMRZ) +void LAPACK_zunmrz_base( char const* side, char const* trans, lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zunmrz(...) LAPACK_zunmrz_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_zunmrz(...) LAPACK_zunmrz_base(__VA_ARGS__) +#endif -#define LAPACK_cunmtr LAPACK_GLOBAL(cunmtr,CUNMTR) -void LAPACK_cunmtr( +#define LAPACK_cunmtr_base LAPACK_GLOBAL(cunmtr,CUNMTR) +void LAPACK_cunmtr_base( char const* side, char const* uplo, char const* trans, lapack_int const* m, lapack_int const* n, lapack_complex_float const* A, lapack_int const* lda, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cunmtr(...) LAPACK_cunmtr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cunmtr(...) LAPACK_cunmtr_base(__VA_ARGS__) +#endif -#define LAPACK_zunmtr LAPACK_GLOBAL(zunmtr,ZUNMTR) -void LAPACK_zunmtr( +#define LAPACK_zunmtr_base LAPACK_GLOBAL(zunmtr,ZUNMTR) +void LAPACK_zunmtr_base( char const* side, char const* uplo, char const* trans, lapack_int const* m, lapack_int const* n, lapack_complex_double const* A, lapack_int const* lda, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zunmtr(...) LAPACK_zunmtr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zunmtr(...) LAPACK_zunmtr_base(__VA_ARGS__) +#endif -#define LAPACK_cupgtr LAPACK_GLOBAL(cupgtr,CUPGTR) -void LAPACK_cupgtr( +#define LAPACK_cupgtr_base LAPACK_GLOBAL(cupgtr,CUPGTR) +void LAPACK_cupgtr_base( char const* uplo, lapack_int const* n, lapack_complex_float const* AP, lapack_complex_float const* tau, lapack_complex_float* Q, lapack_int const* ldq, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cupgtr(...) LAPACK_cupgtr_base(__VA_ARGS__, 1) +#else + #define LAPACK_cupgtr(...) LAPACK_cupgtr_base(__VA_ARGS__) +#endif -#define LAPACK_zupgtr LAPACK_GLOBAL(zupgtr,ZUPGTR) -void LAPACK_zupgtr( +#define LAPACK_zupgtr_base LAPACK_GLOBAL(zupgtr,ZUPGTR) +void LAPACK_zupgtr_base( char const* uplo, lapack_int const* n, lapack_complex_double const* AP, lapack_complex_double const* tau, lapack_complex_double* Q, lapack_int const* ldq, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zupgtr(...) LAPACK_zupgtr_base(__VA_ARGS__, 1) +#else + #define LAPACK_zupgtr(...) LAPACK_zupgtr_base(__VA_ARGS__) +#endif -#define LAPACK_cupmtr LAPACK_GLOBAL(cupmtr,CUPMTR) -void LAPACK_cupmtr( +#define LAPACK_cupmtr_base LAPACK_GLOBAL(cupmtr,CUPMTR) +void LAPACK_cupmtr_base( char const* side, char const* uplo, char const* trans, lapack_int const* m, lapack_int const* n, lapack_complex_float const* AP, lapack_complex_float const* tau, lapack_complex_float* C, lapack_int const* ldc, lapack_complex_float* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_cupmtr(...) LAPACK_cupmtr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_cupmtr(...) LAPACK_cupmtr_base(__VA_ARGS__) +#endif -#define LAPACK_zupmtr LAPACK_GLOBAL(zupmtr,ZUPMTR) -void LAPACK_zupmtr( +#define LAPACK_zupmtr_base LAPACK_GLOBAL(zupmtr,ZUPMTR) +void LAPACK_zupmtr_base( char const* side, char const* uplo, char const* trans, lapack_int const* m, lapack_int const* n, lapack_complex_double const* AP, lapack_complex_double const* tau, lapack_complex_double* C, lapack_int const* ldc, lapack_complex_double* work, - lapack_int* info ); + lapack_int* info +#ifdef LAPACK_FORTRAN_STRLEN_END + , size_t, size_t, size_t +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_zupmtr(...) LAPACK_zupmtr_base(__VA_ARGS__, 1, 1, 1) +#else + #define LAPACK_zupmtr(...) LAPACK_zupmtr_base(__VA_ARGS__) +#endif #ifdef __cplusplus } /* extern "C" */ diff --git a/lapack-netlib/LAPACKE/include/lapacke.h b/lapack-netlib/LAPACKE/include/lapacke.h index 5c129db91..f6fbfcc33 100644 --- a/lapack-netlib/LAPACKE/include/lapacke.h +++ b/lapack-netlib/LAPACKE/include/lapacke.h @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #ifndef _LAPACKE_H_ diff --git a/lapack-netlib/LAPACKE/include/lapacke_config.h b/lapack-netlib/LAPACKE/include/lapacke_config.h index c6542955e..4a7d15760 100644 --- a/lapack-netlib/LAPACKE/include/lapacke_config.h +++ b/lapack-netlib/LAPACKE/include/lapacke_config.h @@ -28,19 +28,11 @@ ****************************************************************************** * Contents: Native C interface to LAPACK * Author: Intel Corporation -* Generated May, 2011 *****************************************************************************/ #ifndef _LAPACKE_CONFIG_H_ #define _LAPACKE_CONFIG_H_ -// For Android prior to API 21 (no include) -#if defined(__ANDROID__) -#if __ANDROID_API__ < 21 -#define LAPACK_COMPLEX_STRUCTURE -#endif -#endif - #ifdef __cplusplus #if defined(LAPACK_COMPLEX_CPP) #include diff --git a/lapack-netlib/LAPACKE/include/lapacke_utils.h b/lapack-netlib/LAPACKE/include/lapacke_utils.h index ec29f24fc..f84604e8a 100644 --- a/lapack-netlib/LAPACKE/include/lapacke_utils.h +++ b/lapack-netlib/LAPACKE/include/lapacke_utils.h @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility functions * Author: Intel Corporation -* Created in January, 2010 *****************************************************************************/ #ifndef _LAPACKE_UTILS_H_ diff --git a/lapack-netlib/LAPACKE/src/CMakeLists.txt b/lapack-netlib/LAPACKE/src/CMakeLists.txt index 4c13dce0b..4171a3bd4 100644 --- a/lapack-netlib/LAPACKE/src/CMakeLists.txt +++ b/lapack-netlib/LAPACKE/src/CMakeLists.txt @@ -113,6 +113,8 @@ lapacke_cgetrs.c lapacke_cgetrs_work.c lapacke_cgetsls.c lapacke_cgetsls_work.c +lapacke_cgetsqrhrt.c +lapacke_cgetsqrhrt_work.c lapacke_cggbak.c lapacke_cggbak_work.c lapacke_cggbal.c @@ -585,6 +587,8 @@ lapacke_cungrq.c lapacke_cungrq_work.c lapacke_cungtr.c lapacke_cungtr_work.c +lapacke_cungtsqr_row.c +lapacke_cungtsqr_row_work.c lapacke_cunmbr.c lapacke_cunmbr_work.c lapacke_cunmhr.c @@ -727,6 +731,8 @@ lapacke_dgetrs.c lapacke_dgetrs_work.c lapacke_dgetsls.c lapacke_dgetsls_work.c +lapacke_dgetsqrhrt.c +lapacke_dgetsqrhrt_work.c lapacke_dggbak.c lapacke_dggbak_work.c lapacke_dggbal.c @@ -849,6 +855,8 @@ lapacke_dorgrq.c lapacke_dorgrq_work.c lapacke_dorgtr.c lapacke_dorgtr_work.c +lapacke_dorgtsqr_row.c +lapacke_dorgtsqr_row_work.c lapacke_dormbr.c lapacke_dormbr_work.c lapacke_dormhr.c @@ -1298,6 +1306,8 @@ lapacke_sgetrs.c lapacke_sgetrs_work.c lapacke_sgetsls.c lapacke_sgetsls_work.c +lapacke_sgetsqrhrt.c +lapacke_sgetsqrhrt_work.c lapacke_sggbak.c lapacke_sggbak_work.c lapacke_sggbal.c @@ -1420,6 +1430,8 @@ lapacke_sorgrq.c lapacke_sorgrq_work.c lapacke_sorgtr.c lapacke_sorgtr_work.c +lapacke_sorgtsqr_row.c +lapacke_sorgtsqr_row_work.c lapacke_sormbr.c lapacke_sormbr_work.c lapacke_sormhr.c @@ -1858,6 +1870,8 @@ lapacke_zgetrs.c lapacke_zgetrs_work.c lapacke_zgetsls.c lapacke_zgetsls_work.c +lapacke_zgetsqrhrt.c +lapacke_zgetsqrhrt_work.c lapacke_zggbak.c lapacke_zggbak_work.c lapacke_zggbal.c @@ -2330,6 +2344,8 @@ lapacke_zungrq.c lapacke_zungrq_work.c lapacke_zungtr.c lapacke_zungtr_work.c +lapacke_zungtsqr_row.c +lapacke_zungtsqr_row_work.c lapacke_zunmbr.c lapacke_zunmbr_work.c lapacke_zunmhr.c diff --git a/lapack-netlib/LAPACKE/src/lapacke_cbbcsd.c b/lapack-netlib/LAPACKE/src/lapacke_cbbcsd.c index 32dd5cc7a..cfcac5e64 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cbbcsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cbbcsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cbbcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cbbcsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cbbcsd_work.c index 054747248..b7eca0976 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cbbcsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cbbcsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cbbcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cbdsqr.c b/lapack-netlib/LAPACKE/src/lapacke_cbdsqr.c index dac495f61..fa41ebcc1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cbdsqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cbdsqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cbdsqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cbdsqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cbdsqr_work.c index eb9f7c444..2175d38c7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cbdsqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cbdsqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cbdsqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbbrd.c b/lapack-netlib/LAPACKE/src/lapacke_cgbbrd.c index ef5997b93..09947879e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbbrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbbrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbbrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbbrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbbrd_work.c index 97417d4f3..1565e565e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbbrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbbrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbbrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbcon.c b/lapack-netlib/LAPACKE/src/lapacke_cgbcon.c index 3ec851769..ffa953a79 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbcon_work.c index 3533ef812..d0ba5131b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbequ.c b/lapack-netlib/LAPACKE/src/lapacke_cgbequ.c index 05b1f2b4d..293ee1719 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbequ_work.c index e8b8afda0..cfa1cf1d2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbequb.c b/lapack-netlib/LAPACKE/src/lapacke_cgbequb.c index 142886314..5b5d39900 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbequb_work.c index 2a7cce077..49f456c4f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_cgbrfs.c index 84924afa1..1717cb840 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbrfs_work.c index 7a763783f..5c48a7ff5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbrfsx.c b/lapack-netlib/LAPACKE/src/lapacke_cgbrfsx.c index fb70b3a18..79b202f39 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbrfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbrfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbrfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbrfsx_work.c index 7b824c7ae..1a9cef050 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbrfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbrfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbsv.c b/lapack-netlib/LAPACKE/src/lapacke_cgbsv.c index 1b48c3d65..226d71e0f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbsv_work.c index 9232451f1..e569c1089 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbsvx.c b/lapack-netlib/LAPACKE/src/lapacke_cgbsvx.c index 95855a486..0e8686803 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbsvx_work.c index 0cd96f325..5ff0ee995 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbsvxx.c b/lapack-netlib/LAPACKE/src/lapacke_cgbsvxx.c index 332cdf92b..22a4dd8ed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbsvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbsvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbsvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbsvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbsvxx_work.c index b6e188428..84c489198 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbsvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbsvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbsvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbtrf.c b/lapack-netlib/LAPACKE/src/lapacke_cgbtrf.c index 0cc2b38a1..137ff8edd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbtrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbtrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbtrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbtrf_work.c index 70409ddc1..f8f350c6f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbtrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbtrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_cgbtrs.c index 3e009f9be..724c7db5c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgbtrs_work.c index 519c4dd2d..ceff5fe82 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgebak.c b/lapack-netlib/LAPACKE/src/lapacke_cgebak.c index 28f5e938b..33d18b12f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgebak.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgebak.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgebak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgebak_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgebak_work.c index f9f1b0588..521b7c06a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgebak_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgebak_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgebak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgebal.c b/lapack-netlib/LAPACKE/src/lapacke_cgebal.c index 9cfa2a756..7645e6bf8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgebal.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgebal.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgebal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgebal_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgebal_work.c index 0204cad85..75f5a21ad 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgebal_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgebal_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgebal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgebrd.c b/lapack-netlib/LAPACKE/src/lapacke_cgebrd.c index 9c112797b..77fe29bdc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgebrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgebrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgebrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgebrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgebrd_work.c index 44a79a47a..1bb45d3e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgebrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgebrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgebrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgecon.c b/lapack-netlib/LAPACKE/src/lapacke_cgecon.c index 5029ee978..c1360cc34 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgecon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgecon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgecon_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgecon_work.c index 3d3e0e2e1..fb1806f74 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgecon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgecon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeequ.c b/lapack-netlib/LAPACKE/src/lapacke_cgeequ.c index f2095cafa..fd97acfb5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeequ_work.c index a19de2314..abcaec976 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeequb.c b/lapack-netlib/LAPACKE/src/lapacke_cgeequb.c index 728686d70..13b69902c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeequb_work.c index d4fbadf16..a4de1edd0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgees.c b/lapack-netlib/LAPACKE/src/lapacke_cgees.c index 6efd6776f..2d04730cc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgees.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgees.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgees * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgees_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgees_work.c index 0a6779ed2..0416d70fc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgees_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgees_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgees * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeesx.c b/lapack-netlib/LAPACKE/src/lapacke_cgeesx.c index efff6edd2..d172f8bf5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeesx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeesx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeesx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeesx_work.c index 255565b25..4be2ceeb6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeesx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeesx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeev.c b/lapack-netlib/LAPACKE/src/lapacke_cgeev.c index 2c0c2a1da..5770f2011 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeev_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeev_work.c index 798f9a053..081f5b129 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeevx.c b/lapack-netlib/LAPACKE/src/lapacke_cgeevx.c index c3d99b244..f9eb943c5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeevx_work.c index 66cae990c..2257c64df 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgehrd.c b/lapack-netlib/LAPACKE/src/lapacke_cgehrd.c index 23600c29e..31fd49d46 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgehrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgehrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgehrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgehrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgehrd_work.c index 35cda0479..e5c0295aa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgehrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgehrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgehrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgejsv.c b/lapack-netlib/LAPACKE/src/lapacke_cgejsv.c index 41278428b..f5604495c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgejsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgejsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgejsv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgejsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgejsv_work.c index 1311ab93e..19ae194ad 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgejsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgejsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgejsv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelq.c b/lapack-netlib/LAPACKE/src/lapacke_cgelq.c index 2dda8465a..48487f1d8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgelq * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelq2.c b/lapack-netlib/LAPACKE/src/lapacke_cgelq2.c index 6b14b85ec..a73205a26 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelq2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelq2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgelq2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelq2_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgelq2_work.c index 2c6473846..66ff1eed6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelq2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelq2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgelq2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelq_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgelq_work.c index 6f6e425b6..3e246d3fc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgelq * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelqf.c b/lapack-netlib/LAPACKE/src/lapacke_cgelqf.c index 18bc040be..a900631c8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgelqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgelqf_work.c index 84178f058..8bbb4a820 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgelqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgels.c b/lapack-netlib/LAPACKE/src/lapacke_cgels.c index f53bb3b63..14daaef18 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgels.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgels.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgels * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgels_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgels_work.c index 5afef301b..7c7012f6e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgels_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgels_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgels * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelsd.c b/lapack-netlib/LAPACKE/src/lapacke_cgelsd.c index 9d022dae6..74197666d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgelsd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgelsd_work.c index 801f4d3f5..2fc647be0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgelsd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelss.c b/lapack-netlib/LAPACKE/src/lapacke_cgelss.c index 94efbddb6..10fcde2ef 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelss.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelss.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgelss * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelss_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgelss_work.c index b87eb9ce4..ae5773c86 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelss_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelss_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgelss * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelsy.c b/lapack-netlib/LAPACKE/src/lapacke_cgelsy.c index 2fea9670e..8a46e2185 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelsy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelsy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgelsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgelsy_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgelsy_work.c index c3387a576..c2ac42315 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgelsy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgelsy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgelsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgemlq.c b/lapack-netlib/LAPACKE/src/lapacke_cgemlq.c index ef0aec1b5..8661b12e9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgemlq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgemlq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgemlq * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgemlq_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgemlq_work.c index e2f7fc918..071032033 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgemlq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgemlq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgemlq * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgemqr.c b/lapack-netlib/LAPACKE/src/lapacke_cgemqr.c index 8ad40e6c6..440804c09 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgemqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgemqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgemqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgemqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgemqr_work.c index 9b9e5a442..1e421864d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgemqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgemqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgemqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgemqrt.c b/lapack-netlib/LAPACKE/src/lapacke_cgemqrt.c index c29f260e2..fdb5a71cc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgemqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgemqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function cgemqrt * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgemqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgemqrt_work.c index c185ea836..e2772fd78 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgemqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgemqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgemqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqlf.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqlf.c index 53ee3d483..a8bcd39d6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqlf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqlf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqlf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqlf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqlf_work.c index 95025e1e9..7b70fb34d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqlf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqlf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqlf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqp3.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqp3.c index 28c5ace15..d4b0c94cf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqp3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqp3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqp3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqp3_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqp3_work.c index 78fc73371..638935b2a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqp3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqp3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqp3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqpf.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqpf.c index 6467994c1..2f161493d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqpf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqpf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqpf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqpf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqpf_work.c index 1cc87a819..da779ac3a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqpf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqpf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqpf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqr.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqr.c index b97414a6b..be3e66504 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqr2.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqr2.c index a55a4a972..14f8e9be9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqr2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqr2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqr2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqr2_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqr2_work.c index df6ff5567..8fa36b85a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqr2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqr2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqr2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqr_work.c index ff5cc9bcb..46ece5ffd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrf.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrf.c index 1f1f8d957..4a80430b3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrf_work.c index 2293c3c66..473327555 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrfp.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrfp.c index 1f6d3ccaa..a8596a4d5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrfp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrfp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqrfp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrfp_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrfp_work.c index 12b4ca767..4d63fc2f1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrfp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrfp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqrfp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt.c index be4056031..6e3cb656e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt2.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt2.c index 4ffe1112a..dc03b2d02 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt2_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt2_work.c index 1e28a0342..bfaecd7ce 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt3.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt3.c index c51a8d876..8cdf3d5b7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt3.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function cgeqrt3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt3_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt3_work.c index 97faff450..de5894e62 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt3_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqrt3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt_work.c index f15ec885d..962624d21 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgeqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgeqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgeqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgerfs.c b/lapack-netlib/LAPACKE/src/lapacke_cgerfs.c index d16dee407..fe4cfaee3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgerfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgerfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgerfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgerfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgerfs_work.c index 1b53a47cf..a16907e27 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgerfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgerfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgerfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgerfsx.c b/lapack-netlib/LAPACKE/src/lapacke_cgerfsx.c index d892dd1d3..3bb767044 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgerfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgerfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgerfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgerfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgerfsx_work.c index 57d8e556d..0277d77ed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgerfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgerfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgerfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgerqf.c b/lapack-netlib/LAPACKE/src/lapacke_cgerqf.c index 37a382783..03492c96d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgerqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgerqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgerqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgerqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgerqf_work.c index eafa97459..1f00b43a5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgerqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgerqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgerqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesdd.c b/lapack-netlib/LAPACKE/src/lapacke_cgesdd.c index e96957ceb..d28139aab 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesdd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesdd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgesdd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesdd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgesdd_work.c index 8c4557a19..70198ccdc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesdd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesdd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgesdd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesv.c b/lapack-netlib/LAPACKE/src/lapacke_cgesv.c index ce91af9a1..1e9871ccb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesv_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgesv_work.c index 9e04e1d13..53b6d2cc5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvd.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvd.c index 9bc7dca31..85a15fd4c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgesvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvd_work.c index 4256c0f04..6bc69d48f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgesvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvdq.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvdq.c index c5eca535e..8406635e9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvdq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvdq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgesvdq * Author: Intel Corporation -* Generated November 2018 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvdq_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvdq_work.c index e86f76e4b..e73e524bd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvdq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvdq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgesvdq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvdx.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvdx.c index 0acddf50f..de47ad4ce 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvdx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvdx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgesvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvdx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvdx_work.c index ddbc0a5b8..950c6f327 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvdx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvdx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgesvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvj.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvj.c index 253cbf00b..9ce9e8405 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvj.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvj.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgesvj * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvj_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvj_work.c index 138e229b0..34ee42bfb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvj_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvj_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgesvj * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvx.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvx.c index 5958316d2..70fc1a183 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvx_work.c index a7eaa7920..8136e2c3a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvxx.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvxx.c index 1c3111016..809846217 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgesvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgesvxx_work.c index 6d11b0c83..f192d2a52 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgesvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgesvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetf2.c b/lapack-netlib/LAPACKE/src/lapacke_cgetf2.c index 343e36603..eba00c30d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgetf2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgetf2_work.c index 7f7006f96..1eb26d1fa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgetf2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetrf.c b/lapack-netlib/LAPACKE/src/lapacke_cgetrf.c index 18d4221d9..90b17b24d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetrf2.c b/lapack-netlib/LAPACKE/src/lapacke_cgetrf2.c index fb2ec9e8e..7d335fac1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetrf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetrf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgetrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetrf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgetrf2_work.c index 35a9e6583..b93a4056c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetrf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetrf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgetrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgetrf_work.c index a3a619b70..cc4d90096 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetri.c b/lapack-netlib/LAPACKE/src/lapacke_cgetri.c index 243e9842d..2e25e863e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetri_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgetri_work.c index ef176a4a9..1a1d7b23b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetrs.c b/lapack-netlib/LAPACKE/src/lapacke_cgetrs.c index cf10e6385..192e1497a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgetrs_work.c index d1d3e5b1a..47783ed62 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetsls.c b/lapack-netlib/LAPACKE/src/lapacke_cgetsls.c index c9ff16725..ed6c5ad51 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetsls.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetsls.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgetsls * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgetsls_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgetsls_work.c index 8f2ed4d0e..0e6833944 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgetsls_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgetsls_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgetsls * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggbak.c b/lapack-netlib/LAPACKE/src/lapacke_cggbak.c index 58298ed40..3dafa4242 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggbak.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggbak.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggbak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggbak_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggbak_work.c index ba4052d9f..58fc3ca2d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggbak_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggbak_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggbak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggbal.c b/lapack-netlib/LAPACKE/src/lapacke_cggbal.c index 6903c07bb..101d1a147 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggbal.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggbal.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggbal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggbal_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggbal_work.c index 6c75a5ad3..765b290c5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggbal_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggbal_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggbal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgges.c b/lapack-netlib/LAPACKE/src/lapacke_cgges.c index 680929729..f52132371 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgges.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgges.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgges * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgges3.c b/lapack-netlib/LAPACKE/src/lapacke_cgges3.c index f288dd238..b1dcad8cc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgges3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgges3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgges3 * Author: Intel Corporation -* Generated March, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgges3_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgges3_work.c index 2f0aaada8..a8f06f5a1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgges3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgges3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgges3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgges_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgges_work.c index 4bbb78cea..ff74939a3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgges_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgges_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgges * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggesx.c b/lapack-netlib/LAPACKE/src/lapacke_cggesx.c index 9581691c6..5962dadb1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggesx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggesx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggesx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggesx_work.c index 327459c77..7edb1fa9b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggesx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggesx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggev.c b/lapack-netlib/LAPACKE/src/lapacke_cggev.c index 8a0323c1a..629a53bc9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggev3.c b/lapack-netlib/LAPACKE/src/lapacke_cggev3.c index e44e1e5a3..b14ec96aa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggev3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggev3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggev3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggev3_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggev3_work.c index ae43cf507..6443a8482 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggev3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggev3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggev3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggev_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggev_work.c index 188b70bc4..ff129a8b8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggevx.c b/lapack-netlib/LAPACKE/src/lapacke_cggevx.c index 94c081a51..89785ed8c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggevx_work.c index 702400b19..9c3adb6b4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggglm.c b/lapack-netlib/LAPACKE/src/lapacke_cggglm.c index 5b84dee8c..62740bbf6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggglm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggglm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggglm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggglm_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggglm_work.c index 61dfb50d3..0b3da2d7a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggglm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggglm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggglm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgghd3.c b/lapack-netlib/LAPACKE/src/lapacke_cgghd3.c index fcc1a9ba3..dce0b2ab7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgghd3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgghd3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgghd3 * Author: Intel Corporation -* Generated January, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgghd3_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgghd3_work.c index a35ad627e..e91ee810e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgghd3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgghd3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgghd3 * Author: Intel Corporation -* Generated January, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgghrd.c b/lapack-netlib/LAPACKE/src/lapacke_cgghrd.c index 99cc29a63..a3e41570c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgghrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgghrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgghrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgghrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgghrd_work.c index 789741b93..31cb55503 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgghrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgghrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgghrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgglse.c b/lapack-netlib/LAPACKE/src/lapacke_cgglse.c index aa1086af6..17bcc981d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgglse.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgglse.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgglse * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgglse_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgglse_work.c index be11a4d5b..d352dfa09 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgglse_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgglse_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgglse * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggqrf.c b/lapack-netlib/LAPACKE/src/lapacke_cggqrf.c index a8851348c..247fcd06d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggqrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggqrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggqrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggqrf_work.c index 520bde7d9..4e70f2b5a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggqrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggqrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggrqf.c b/lapack-netlib/LAPACKE/src/lapacke_cggrqf.c index ce25c3483..660ce4626 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggrqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggrqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggrqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggrqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggrqf_work.c index 74b6f2e33..9462e88fe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggrqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggrqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggrqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggsvd.c b/lapack-netlib/LAPACKE/src/lapacke_cggsvd.c index 6656db201..16d622a76 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggsvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggsvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggsvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggsvd3.c b/lapack-netlib/LAPACKE/src/lapacke_cggsvd3.c index 34cb131f5..e0a00c616 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggsvd3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggsvd3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggsvd3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggsvd3_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggsvd3_work.c index 8144b8712..17b6b54b0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggsvd3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggsvd3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggsvd3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggsvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggsvd_work.c index 0d48b5fc7..ce6d50cbe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggsvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggsvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggsvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggsvp.c b/lapack-netlib/LAPACKE/src/lapacke_cggsvp.c index a5bf20d92..324b23197 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggsvp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggsvp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggsvp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggsvp3.c b/lapack-netlib/LAPACKE/src/lapacke_cggsvp3.c index d3f1e2a71..b82b5a004 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggsvp3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggsvp3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cggsvp3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggsvp3_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggsvp3_work.c index 23fb4b3cf..28ca7d9a9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggsvp3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggsvp3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggsvp3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cggsvp_work.c b/lapack-netlib/LAPACKE/src/lapacke_cggsvp_work.c index 65f731596..fc04a92fd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cggsvp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cggsvp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cggsvp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgtcon.c b/lapack-netlib/LAPACKE/src/lapacke_cgtcon.c index 279b07996..d79f95cf7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgtcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgtcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgtcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgtcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgtcon_work.c index d9a44d271..b3f729b0d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgtcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgtcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgtcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgtrfs.c b/lapack-netlib/LAPACKE/src/lapacke_cgtrfs.c index a7f253e98..80094adcf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgtrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgtrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgtrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgtrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgtrfs_work.c index 0dbf280e7..83330ce12 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgtrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgtrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgtrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgtsv.c b/lapack-netlib/LAPACKE/src/lapacke_cgtsv.c index 16e86338b..1002f6f74 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgtsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgtsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgtsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgtsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgtsv_work.c index e7b23f35e..926b109f3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgtsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgtsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgtsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgtsvx.c b/lapack-netlib/LAPACKE/src/lapacke_cgtsvx.c index 170e59e75..1cfe55857 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgtsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgtsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgtsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgtsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgtsvx_work.c index 25a3ff780..2873010ed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgtsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgtsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgtsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgttrf.c b/lapack-netlib/LAPACKE/src/lapacke_cgttrf.c index 4b0500d8b..f63ec8e8b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgttrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgttrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgttrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgttrf_work.c index 502e1c6ac..d55ebb3f7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgttrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgttrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgttrs.c b/lapack-netlib/LAPACKE/src/lapacke_cgttrs.c index 4f5c916c5..696f66649 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgttrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgttrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cgttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgttrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cgttrs_work.c index 8d243ef18..4d17200b4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgttrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgttrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cgttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbev.c b/lapack-netlib/LAPACKE/src/lapacke_chbev.c index d79802aed..9f0da84a8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbev_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_chbev_2stage.c index d62e9a9c0..aeba6302c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbev_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbev_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbev_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbev_2stage_work.c index f5736c1d0..809ebea5f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbev_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbev_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbev_2stage * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbev_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbev_work.c index 675886a39..933c5afd9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbevd.c b/lapack-netlib/LAPACKE/src/lapacke_chbevd.c index b4af255a9..0321d7baf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbevd_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_chbevd_2stage.c index e8e9a6830..839e74b3c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbevd_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbevd_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbevd_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbevd_2stage_work.c index e0f0d92ba..83cdd05ee 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbevd_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbevd_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbevd_work.c index fd29cb8b4..ce554ad78 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbevx.c b/lapack-netlib/LAPACKE/src/lapacke_chbevx.c index 1f30a8335..fba050c36 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbevx_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_chbevx_2stage.c index 401f47cc3..ea94132b6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbevx_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbevx_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbevx_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbevx_2stage_work.c index ac962eb13..9e8a26842 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbevx_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbevx_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbevx_work.c index 9c179c2c3..ddebb9e73 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbgst.c b/lapack-netlib/LAPACKE/src/lapacke_chbgst.c index da972842b..13d427259 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbgst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbgst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbgst_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbgst_work.c index 7b52c7bd3..a04b04a26 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbgst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbgst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbgv.c b/lapack-netlib/LAPACKE/src/lapacke_chbgv.c index 31f453168..d28f0f1f3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbgv_work.c index 3850cb2c6..b977a94fa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbgvd.c b/lapack-netlib/LAPACKE/src/lapacke_chbgvd.c index 5a7331d87..f1b037a11 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbgvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbgvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbgvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbgvd_work.c index ea5734bf9..f6e2ac84a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbgvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbgvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbgvx.c b/lapack-netlib/LAPACKE/src/lapacke_chbgvx.c index 5acacca03..736c33e88 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbgvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbgvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbgvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbgvx_work.c index 0a30050c9..1fe2c9e69 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbgvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbgvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbtrd.c b/lapack-netlib/LAPACKE/src/lapacke_chbtrd.c index 634d8032f..c54dc555f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbtrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbtrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chbtrd * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chbtrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_chbtrd_work.c index 31ca9954c..3b58b0e2b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chbtrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chbtrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chbtrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_checon.c b/lapack-netlib/LAPACKE/src/lapacke_checon.c index 54866ea41..af00a5366 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_checon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_checon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function checon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_checon_3.c b/lapack-netlib/LAPACKE/src/lapacke_checon_3.c index 1481359d7..08a2f0e13 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_checon_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_checon_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function checon_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_checon_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_checon_3_work.c index ac4e8e959..30294c58b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_checon_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_checon_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function checon_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_checon_work.c b/lapack-netlib/LAPACKE/src/lapacke_checon_work.c index de2d7a940..e0977e0b0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_checon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_checon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function checon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheequb.c b/lapack-netlib/LAPACKE/src/lapacke_cheequb.c index f11eb1d17..795d074f5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheequb_work.c index dd2f78cb8..730bcb759 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheev.c b/lapack-netlib/LAPACKE/src/lapacke_cheev.c index 7118f4d2a..02e5df29d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheev_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_cheev_2stage.c index bf231c39d..4e18f9b38 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheev_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheev_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheev_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheev_2stage_work.c index c27f29221..4efb6c03d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheev_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheev_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheev_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheev_work.c index dbb2753d1..3cf5a963f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevd.c b/lapack-netlib/LAPACKE/src/lapacke_cheevd.c index 75fa47915..56bfc411c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevd_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_cheevd_2stage.c index cb4d34a09..4fa71d252 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevd_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevd_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevd_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheevd_2stage_work.c index 2f25c187a..b2c861206 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevd_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevd_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheevd_work.c index 9e8a1c4db..942c8b3eb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevr.c b/lapack-netlib/LAPACKE/src/lapacke_cheevr.c index f277e7f70..bfa2468d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheevr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevr_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_cheevr_2stage.c index a09eac1bd..788d28769 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevr_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevr_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheevr_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevr_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheevr_2stage_work.c index 44ff104c3..29525cbeb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevr_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevr_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheevr_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheevr_work.c index e3d1d89fb..3e4f75ef4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheevr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevx.c b/lapack-netlib/LAPACKE/src/lapacke_cheevx.c index f7a41d6ea..44cae07d2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevx_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_cheevx_2stage.c index 93add3f5f..22b6594ed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevx_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevx_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevx_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheevx_2stage_work.c index f9947b307..4d90468ce 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevx_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevx_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheevx_work.c index c1bd5a1c3..ca0ed9ec7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheevx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegst.c b/lapack-netlib/LAPACKE/src/lapacke_chegst.c index c628017c2..d4961620d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chegst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -48,7 +47,7 @@ lapack_int LAPACKE_chegst( int matrix_layout, lapack_int itype, char uplo, if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_cge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_che_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -7; } } diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegst_work.c b/lapack-netlib/LAPACKE/src/lapacke_chegst_work.c index 001863819..9318e02dd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chegst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegv.c b/lapack-netlib/LAPACKE/src/lapacke_chegv.c index c01525662..4b676e625 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chegv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegv_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_chegv_2stage.c index fc3395833..0ebcb74dc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegv_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegv_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chegv_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegv_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_chegv_2stage_work.c index 910f96b3a..52a7356a5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegv_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegv_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chegv_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegv_work.c b/lapack-netlib/LAPACKE/src/lapacke_chegv_work.c index 39c10ad0e..35d69120d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chegv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegvd.c b/lapack-netlib/LAPACKE/src/lapacke_chegvd.c index fe7b39cee..21a33fadf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chegvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_chegvd_work.c index b55e8191c..b9749d935 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chegvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegvx.c b/lapack-netlib/LAPACKE/src/lapacke_chegvx.c index d56e3ee46..688ea34ff 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chegvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chegvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_chegvx_work.c index 3551d39fc..132d0c0e1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chegvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chegvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chegvx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cherfs.c b/lapack-netlib/LAPACKE/src/lapacke_cherfs.c index ecf13792c..dfcda32e1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cherfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cherfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cherfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cherfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cherfs_work.c index 48fddbaa7..88a000be0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cherfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cherfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cherfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cherfsx.c b/lapack-netlib/LAPACKE/src/lapacke_cherfsx.c index 4a897986d..c2da39339 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cherfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cherfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cherfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cherfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cherfsx_work.c index c69a85a57..438803de0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cherfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cherfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cherfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesv.c b/lapack-netlib/LAPACKE/src/lapacke_chesv.c index 9a0a81f90..2fc9c9dae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesv_aa.c b/lapack-netlib/LAPACKE/src/lapacke_chesv_aa.c index af13d5318..4a7277897 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesv_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesv_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chesv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_2stage.c index cd8a0cf5d..4ba72aeca 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chesv_aa_2stage * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_2stage_work.c index d9a44d315..711505232 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chesv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_work.c index 88513b1a1..62ee5bc96 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesv_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chesv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesv_rk.c b/lapack-netlib/LAPACKE/src/lapacke_chesv_rk.c index 4741d45c8..c5a5caa44 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesv_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesv_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chesv_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesv_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_chesv_rk_work.c index 10e0d1d51..83a5bcd42 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesv_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesv_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chesv_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesv_work.c b/lapack-netlib/LAPACKE/src/lapacke_chesv_work.c index 57a4b68ce..864739662 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesvx.c b/lapack-netlib/LAPACKE/src/lapacke_chesvx.c index 4c7b29d42..9cf0c0460 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_chesvx_work.c index b73812376..3e1aa9607 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesvxx.c b/lapack-netlib/LAPACKE/src/lapacke_chesvxx.c index 097646170..9ef874929 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chesvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_chesvxx_work.c index 69293aa06..700ecf7a0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chesvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chesvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheswapr.c b/lapack-netlib/LAPACKE/src/lapacke_cheswapr.c index 5265dd4f8..8acee8228 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheswapr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheswapr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cheswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cheswapr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cheswapr_work.c index fe14cac5d..378cd7586 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cheswapr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cheswapr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cheswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrd.c b/lapack-netlib/LAPACKE/src/lapacke_chetrd.c index 06b55da98..bdfb2493f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrd_work.c index 69015fd93..6c950ee7a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf.c index 87539d6fa..323805918 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa.c index 72373c1e6..be3a442c1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_2stage.c index bd352c54b..2ecf93478 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrf_aa_2stage * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_2stage_work.c index bb2bb8dc5..ccb41ee62 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrf_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_work.c index e4d538779..dcebaf2f2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf_rk.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf_rk.c index 15085b8ce..7caf6f2bb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrf_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf_rk_work.c index 01034cf35..b43d92bb9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrf_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf_rook.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf_rook.c index 56cd7a1df..73ce55ac6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf_rook_work.c index 7ac80fdb7..a2afa602e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrf_work.c index 0f9042eac..b043364a3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetri.c b/lapack-netlib/LAPACKE/src/lapacke_chetri.c index 239caaa2d..5d68dd005 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetri2.c b/lapack-netlib/LAPACKE/src/lapacke_chetri2.c index 18ef7e5ad..3822bbae5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetri2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetri2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetri2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetri2_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetri2_work.c index a0d432c05..c87c032d2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetri2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetri2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetri2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetri2x.c b/lapack-netlib/LAPACKE/src/lapacke_chetri2x.c index fc0d4e3d2..7260d9bb9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetri2x.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetri2x.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetri2x * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetri2x_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetri2x_work.c index 56ee846eb..ea36e0c70 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetri2x_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetri2x_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetri_3.c b/lapack-netlib/LAPACKE/src/lapacke_chetri_3.c index d9692e062..2e0031a04 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetri_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetri_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetri_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetri_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetri_3_work.c index 59ee0aa1f..5650df6e8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetri_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetri_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetri_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetri_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetri_work.c index 66f718f3a..a47da6028 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs.c index 2f06593ca..f00609f79 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs2.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs2.c index 8a12e5eef..60ab9044f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs2_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs2_work.c index 5711d8bc8..b564a84d2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs_3.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs_3.c index 3c0623224..ab5610a05 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrs_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs_3_work.c index 18e855f61..1d521d720 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrs_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa.c index 4cad1f863..aa85d5df5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_2stage.c index 455622bed..ca57ca9d9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrs_aa_2stage * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_2stage_work.c index 41d293d3c..6c781d6b8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrs_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_work.c index ffd31ddf8..b09bea793 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs_rook.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs_rook.c index e032ae7c5..fda67007c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chetrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs_rook_work.c index e6fe50a0e..b3b5fd433 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chetrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_chetrs_work.c index c16d3e353..ec1a7d09e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chetrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chetrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chfrk.c b/lapack-netlib/LAPACKE/src/lapacke_chfrk.c index 6b2e321b0..9a51bbecc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chfrk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chfrk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chfrk * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chfrk_work.c b/lapack-netlib/LAPACKE/src/lapacke_chfrk_work.c index c2e157bb3..068691622 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chfrk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chfrk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chfrk * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chgeqz.c b/lapack-netlib/LAPACKE/src/lapacke_chgeqz.c index ccaf5a624..b26479185 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chgeqz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chgeqz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chgeqz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chgeqz_work.c b/lapack-netlib/LAPACKE/src/lapacke_chgeqz_work.c index a355aa831..eefec0b07 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chgeqz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chgeqz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chgeqz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpcon.c b/lapack-netlib/LAPACKE/src/lapacke_chpcon.c index 52638b70a..ce312e6e1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpcon_work.c index dd10e50fc..327aa03dc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpev.c b/lapack-netlib/LAPACKE/src/lapacke_chpev.c index 65989287c..36fff84e2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpev_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpev_work.c index fac263caf..deaa8dd03 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpevd.c b/lapack-netlib/LAPACKE/src/lapacke_chpevd.c index fbdb73802..7fb13d0d1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpevd_work.c index 29a3cdca4..90b89ce8a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpevx.c b/lapack-netlib/LAPACKE/src/lapacke_chpevx.c index 6b6bc0a84..eb383edbb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpevx_work.c index 2f1750d25..2aac2227f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpgst.c b/lapack-netlib/LAPACKE/src/lapacke_chpgst.c index 088be1224..0672f9ba9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpgst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpgst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpgst_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpgst_work.c index 8b2a500dd..7e4509e25 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpgst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpgst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpgv.c b/lapack-netlib/LAPACKE/src/lapacke_chpgv.c index 4640125b9..71499d275 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpgv_work.c index b93ffcc58..8bbf650f6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpgvd.c b/lapack-netlib/LAPACKE/src/lapacke_chpgvd.c index 587d1509a..df8989f54 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpgvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpgvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpgvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpgvd_work.c index 8aec3c197..98b28a074 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpgvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpgvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpgvx.c b/lapack-netlib/LAPACKE/src/lapacke_chpgvx.c index 2e11c1037..0e3876d22 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpgvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpgvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpgvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpgvx_work.c index 7d001695c..7ff379d9e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpgvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpgvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chprfs.c b/lapack-netlib/LAPACKE/src/lapacke_chprfs.c index 3412dbe5c..0eacaf382 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_chprfs_work.c index 099d884eb..d51f00c80 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpsv.c b/lapack-netlib/LAPACKE/src/lapacke_chpsv.c index 7be90ee32..c82716af2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpsv_work.c index 12f8e5bf0..7260defb8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpsvx.c b/lapack-netlib/LAPACKE/src/lapacke_chpsvx.c index 37ec61905..21dec80cb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chpsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chpsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_chpsvx_work.c index 2c21f2404..6084db192 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chpsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chpsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chpsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chptrd.c b/lapack-netlib/LAPACKE/src/lapacke_chptrd.c index 88df3abca..7a2c7923c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chptrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chptrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chptrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chptrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_chptrd_work.c index bc7d229ad..dc3313f68 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chptrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chptrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chptrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chptrf.c b/lapack-netlib/LAPACKE/src/lapacke_chptrf.c index 2e1afd4a6..957f16d77 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_chptrf_work.c index 8b75c64c0..43d9c8992 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chptri.c b/lapack-netlib/LAPACKE/src/lapacke_chptri.c index a88a35b53..1d159b7e7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_chptri_work.c index 40b221032..51a10195d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chptrs.c b/lapack-netlib/LAPACKE/src/lapacke_chptrs.c index 210d5ccdb..ba3590d92 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_chptrs_work.c index 49f9fc500..139de1dcf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chsein.c b/lapack-netlib/LAPACKE/src/lapacke_chsein.c index a3b1a9d40..4e606b948 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chsein.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chsein.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chsein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chsein_work.c b/lapack-netlib/LAPACKE/src/lapacke_chsein_work.c index 5b9088cfa..8c58add54 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chsein_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chsein_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chsein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chseqr.c b/lapack-netlib/LAPACKE/src/lapacke_chseqr.c index 76578a57f..ad364f84e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chseqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chseqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function chseqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_chseqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_chseqr_work.c index 1d5692827..11bac7ccb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_chseqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_chseqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function chseqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacgv.c b/lapack-netlib/LAPACKE/src/lapacke_clacgv.c index 9a77c8ec0..1e6ed883e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clacgv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_clacgv_work.c index eb61e840d..11f41bed3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clacgv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacn2.c b/lapack-netlib/LAPACKE/src/lapacke_clacn2.c index 0d374d139..8cb37df7f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacn2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacn2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function clacn2 * Author: Intel Corporation -* Generated October, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacn2_work.c b/lapack-netlib/LAPACKE/src/lapacke_clacn2_work.c index 970b7d7dd..390e42068 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacn2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacn2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function clacn2 * Author: Intel Corporation -* Generated October, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacp2.c b/lapack-netlib/LAPACKE/src/lapacke_clacp2.c index 0c415c4d1..fc9b9f8d9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacp2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacp2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function clacp2 * Author: Intel Corporation -* Generated January, 2013 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacp2_work.c b/lapack-netlib/LAPACKE/src/lapacke_clacp2_work.c index 8f1d6b4c0..d565e4669 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacp2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacp2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function clacp2 * Author: Intel Corporation -* Generated January, 2013 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacpy.c b/lapack-netlib/LAPACKE/src/lapacke_clacpy.c index 3e0433b44..f5f6216fa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacpy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacpy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clacpy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacpy_work.c b/lapack-netlib/LAPACKE/src/lapacke_clacpy_work.c index eba359312..59cab5aa3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacpy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacpy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clacpy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacrm.c b/lapack-netlib/LAPACKE/src/lapacke_clacrm.c index 2c2c2b0b5..c14540589 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacrm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacrm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clacrm * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clacrm_work.c b/lapack-netlib/LAPACKE/src/lapacke_clacrm_work.c index 5bfab7f95..a9befaf08 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clacrm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clacrm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clacrm * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clag2z.c b/lapack-netlib/LAPACKE/src/lapacke_clag2z.c index cd989ff95..77af6c4da 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clag2z.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clag2z.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clag2z * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clag2z_work.c b/lapack-netlib/LAPACKE/src/lapacke_clag2z_work.c index 48388e615..727bd5438 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clag2z_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clag2z_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clag2z * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clagge.c b/lapack-netlib/LAPACKE/src/lapacke_clagge.c index 0b6c4c23e..abe1a9655 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clagge.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clagge.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clagge * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clagge_work.c b/lapack-netlib/LAPACKE/src/lapacke_clagge_work.c index 104c4c4fe..99f14e882 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clagge_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clagge_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clagge * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_claghe.c b/lapack-netlib/LAPACKE/src/lapacke_claghe.c index d1539224a..281a12f72 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_claghe.c +++ b/lapack-netlib/LAPACKE/src/lapacke_claghe.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function claghe * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_claghe_work.c b/lapack-netlib/LAPACKE/src/lapacke_claghe_work.c index 63fb640c9..a72cb152e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_claghe_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_claghe_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function claghe * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clagsy.c b/lapack-netlib/LAPACKE/src/lapacke_clagsy.c index f4f98fe15..841d41c44 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clagsy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clagsy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clagsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clagsy_work.c b/lapack-netlib/LAPACKE/src/lapacke_clagsy_work.c index 128fab4ad..6b1c25f66 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clagsy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clagsy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clagsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clange.c b/lapack-netlib/LAPACKE/src/lapacke_clange.c index 472a6c5c1..7bd436d4d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clange.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clange.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clange * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clange_work.c b/lapack-netlib/LAPACKE/src/lapacke_clange_work.c index ce5ee25ca..4875031dc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clange_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clange_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clange * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clanhe.c b/lapack-netlib/LAPACKE/src/lapacke_clanhe.c index 5c40c29ac..b515348ea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clanhe.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clanhe.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clanhe * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clanhe_work.c b/lapack-netlib/LAPACKE/src/lapacke_clanhe_work.c index 17915bccc..561b8fad3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clanhe_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clanhe_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clanhe * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clansy.c b/lapack-netlib/LAPACKE/src/lapacke_clansy.c index a02264eb4..018f87373 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clansy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clansy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clansy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clansy_work.c b/lapack-netlib/LAPACKE/src/lapacke_clansy_work.c index 099f1104c..6c30105f9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clansy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clansy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clansy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clantr.c b/lapack-netlib/LAPACKE/src/lapacke_clantr.c index 2ddd2e211..88e765f2b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clantr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clantr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clantr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clantr_work.c b/lapack-netlib/LAPACKE/src/lapacke_clantr_work.c index 4779f10d2..2c64600f8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clantr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clantr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clantr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clapmr.c b/lapack-netlib/LAPACKE/src/lapacke_clapmr.c index e8f9ced1e..8b2a4da34 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clapmr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clapmr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clapmr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clapmr_work.c b/lapack-netlib/LAPACKE/src/lapacke_clapmr_work.c index 8830e219c..2496296db 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clapmr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clapmr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clapmr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clapmt.c b/lapack-netlib/LAPACKE/src/lapacke_clapmt.c index e0bb39589..95ba11b05 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clapmt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clapmt.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clapmt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clapmt_work.c b/lapack-netlib/LAPACKE/src/lapacke_clapmt_work.c index 3f57c96b8..9cbdcc335 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clapmt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clapmt_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clapmt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarcm.c b/lapack-netlib/LAPACKE/src/lapacke_clarcm.c index 7f80b7830..9fb300d60 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarcm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarcm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clarcm * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarcm_work.c b/lapack-netlib/LAPACKE/src/lapacke_clarcm_work.c index cd12ee39c..a2c048cf4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarcm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarcm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clarcm * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarfb.c b/lapack-netlib/LAPACKE/src/lapacke_clarfb.c index 3aeb0d7e4..ccd34cecd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarfb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarfb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clarfb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_clarfb_work.c index b1af49477..3ad97c22d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarfb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarfb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clarfb * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarfg.c b/lapack-netlib/LAPACKE/src/lapacke_clarfg.c index 9e852a406..238b81f27 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarfg.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarfg.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clarfg * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarfg_work.c b/lapack-netlib/LAPACKE/src/lapacke_clarfg_work.c index aa8546d9c..06a6a93ff 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarfg_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarfg_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clarfg * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarft.c b/lapack-netlib/LAPACKE/src/lapacke_clarft.c index 961d7cbab..9691afb85 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarft.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarft.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clarft * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarft_work.c b/lapack-netlib/LAPACKE/src/lapacke_clarft_work.c index dfbcaeed8..f540bd1fb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarft_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarft_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clarft * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarfx.c b/lapack-netlib/LAPACKE/src/lapacke_clarfx.c index 786c21412..6ee8d09ff 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarfx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarfx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clarfx * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarfx_work.c b/lapack-netlib/LAPACKE/src/lapacke_clarfx_work.c index 3bf743462..f8d6f2dd5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarfx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarfx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clarfx * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarnv.c b/lapack-netlib/LAPACKE/src/lapacke_clarnv.c index 7a995005a..9cb36c304 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarnv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarnv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clarnv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clarnv_work.c b/lapack-netlib/LAPACKE/src/lapacke_clarnv_work.c index 324d5e10b..ef5061a62 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clarnv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clarnv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clarnv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clascl.c b/lapack-netlib/LAPACKE/src/lapacke_clascl.c index 4f4e0bf35..7a10c130e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clascl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clascl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slaswp * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clascl_work.c b/lapack-netlib/LAPACKE/src/lapacke_clascl_work.c index 70a75f733..2f4a781ef 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clascl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clascl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slaswp * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_claset.c b/lapack-netlib/LAPACKE/src/lapacke_claset.c index 3884e6a30..3e320f556 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_claset.c +++ b/lapack-netlib/LAPACKE/src/lapacke_claset.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function claset * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_claset_work.c b/lapack-netlib/LAPACKE/src/lapacke_claset_work.c index 1b4fed17a..af1fe23aa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_claset_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_claset_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function claset * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_classq.c b/lapack-netlib/LAPACKE/src/lapacke_classq.c index e4d746c5a..f2fa6a7d4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_classq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_classq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function classq * Author: Julien Langou -* Generated February, 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_classq_work.c b/lapack-netlib/LAPACKE/src/lapacke_classq_work.c index 9e9c3a36e..79ed26a19 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_classq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_classq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function classq * Author: Julien Langou -* Generated February, 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_claswp.c b/lapack-netlib/LAPACKE/src/lapacke_claswp.c index cba497a28..62d0e8918 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_claswp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_claswp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function claswp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_claswp_work.c b/lapack-netlib/LAPACKE/src/lapacke_claswp_work.c index 1867987e3..0b7d2cde0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_claswp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_claswp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function claswp * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clatms.c b/lapack-netlib/LAPACKE/src/lapacke_clatms.c index 19a084350..04847345c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clatms.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clatms.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clatms * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clatms_work.c b/lapack-netlib/LAPACKE/src/lapacke_clatms_work.c index 1ee0c1307..b96cf936a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clatms_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clatms_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clatms * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clauum.c b/lapack-netlib/LAPACKE/src/lapacke_clauum.c index 1ce7078b0..071a95613 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clauum.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clauum.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function clauum * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_clauum_work.c b/lapack-netlib/LAPACKE/src/lapacke_clauum_work.c index 0b9f91539..8d71c3768 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_clauum_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_clauum_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function clauum * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbcon.c b/lapack-netlib/LAPACKE/src/lapacke_cpbcon.c index 3bf733ffd..e5f81169b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpbcon_work.c index a8db32a78..340fcd61e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbequ.c b/lapack-netlib/LAPACKE/src/lapacke_cpbequ.c index 4468f57f2..ee0bba51b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpbequ_work.c index 3b05b59fa..f139ecaf6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_cpbrfs.c index 64ef7bd13..4c8faaf62 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpbrfs_work.c index fa2c49104..3bcc7ca4f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbstf.c b/lapack-netlib/LAPACKE/src/lapacke_cpbstf.c index bb52e9da1..d88642191 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbstf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbstf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpbstf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbstf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpbstf_work.c index 8aebca0eb..1e583fb3b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbstf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbstf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpbstf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbsv.c b/lapack-netlib/LAPACKE/src/lapacke_cpbsv.c index 6528cec0c..4c0b27d21 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpbsv_work.c index 4e74b455a..f6f356e4f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbsvx.c b/lapack-netlib/LAPACKE/src/lapacke_cpbsvx.c index a14d5e150..47a12dd3e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpbsvx_work.c index a31bd2917..a63c8fddd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbtrf.c b/lapack-netlib/LAPACKE/src/lapacke_cpbtrf.c index 975c08158..9b2f160eb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbtrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbtrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbtrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpbtrf_work.c index 1349bab8a..a0c1d4c0d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbtrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbtrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_cpbtrs.c index 9ff63c177..144c2af89 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpbtrs_work.c index 59d2cef3c..af8078b84 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpftrf.c b/lapack-netlib/LAPACKE/src/lapacke_cpftrf.c index 382dd63d4..afc8343c9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpftrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpftrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpftrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpftrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpftrf_work.c index 5aa71b2e7..29f939246 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpftrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpftrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpftrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpftri.c b/lapack-netlib/LAPACKE/src/lapacke_cpftri.c index 57b73d007..0637acb96 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpftri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpftri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpftri_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpftri_work.c index 5621b2834..1120cc25f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpftri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpftri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpftrs.c b/lapack-netlib/LAPACKE/src/lapacke_cpftrs.c index 410ab4d9d..81ecd03fd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpftrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpftrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpftrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpftrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpftrs_work.c index 3d66c6ee2..819bbdcbb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpftrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpftrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpftrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpocon.c b/lapack-netlib/LAPACKE/src/lapacke_cpocon.c index b2ba482a4..bd8fd6b97 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpocon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpocon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpocon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpocon_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpocon_work.c index ca5c4baf8..25024a6ad 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpocon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpocon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpocon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpoequ.c b/lapack-netlib/LAPACKE/src/lapacke_cpoequ.c index 9ee976448..1945af0c7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpoequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpoequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpoequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpoequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpoequ_work.c index 72f2748a8..39e45ea82 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpoequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpoequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpoequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpoequb.c b/lapack-netlib/LAPACKE/src/lapacke_cpoequb.c index 3b5b4cfbf..50bb97998 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpoequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpoequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpoequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpoequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpoequb_work.c index 8662ceb25..2df58a166 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpoequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpoequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpoequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cporfs.c b/lapack-netlib/LAPACKE/src/lapacke_cporfs.c index e8867eb4e..3063f9716 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cporfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cporfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cporfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cporfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cporfs_work.c index d8ef90a17..aa9421b7f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cporfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cporfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cporfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cporfsx.c b/lapack-netlib/LAPACKE/src/lapacke_cporfsx.c index 80c2877bb..530d96775 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cporfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cporfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cporfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cporfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cporfsx_work.c index d742fc1db..4e4342eb5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cporfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cporfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cporfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cposv.c b/lapack-netlib/LAPACKE/src/lapacke_cposv.c index bb9a670eb..94296c7d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cposv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cposv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cposv_work.c b/lapack-netlib/LAPACKE/src/lapacke_cposv_work.c index 1f6810ae3..f5903a8b4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cposv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cposv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cposvx.c b/lapack-netlib/LAPACKE/src/lapacke_cposvx.c index df0d5b8c3..fa401cde1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cposvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cposvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cposvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cposvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cposvx_work.c index 86c4354ac..d732801d0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cposvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cposvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cposvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cposvxx.c b/lapack-netlib/LAPACKE/src/lapacke_cposvxx.c index 2dbb650f8..d420171ab 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cposvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cposvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cposvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cposvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cposvxx_work.c index 7970ffd2d..a329787df 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cposvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cposvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cposvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpotrf.c b/lapack-netlib/LAPACKE/src/lapacke_cpotrf.c index ac1805d4c..d8c7a2479 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpotrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpotrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpotrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpotrf2.c b/lapack-netlib/LAPACKE/src/lapacke_cpotrf2.c index b1bf4ba3b..7fd0560a7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpotrf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpotrf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpotrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpotrf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpotrf2_work.c index 4d9b20ae2..9d29d5842 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpotrf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpotrf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpotrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpotrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpotrf_work.c index 635d1d305..128a1638e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpotrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpotrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpotrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpotri.c b/lapack-netlib/LAPACKE/src/lapacke_cpotri.c index bf80ec5ed..3b006e6a8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpotri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpotri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpotri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpotri_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpotri_work.c index 8623d63a7..d4f987819 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpotri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpotri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpotri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpotrs.c b/lapack-netlib/LAPACKE/src/lapacke_cpotrs.c index a5f056698..638b7595e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpotrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpotrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpotrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpotrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpotrs_work.c index a73f7d43e..dee555b63 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpotrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpotrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpotrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cppcon.c b/lapack-netlib/LAPACKE/src/lapacke_cppcon.c index d0ec180c7..0f4cb52a1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cppcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cppcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cppcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cppcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_cppcon_work.c index 42fd7e83b..aea7edd3c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cppcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cppcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cppcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cppequ.c b/lapack-netlib/LAPACKE/src/lapacke_cppequ.c index f0e546523..1cb51bfdf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cppequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cppequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cppequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cppequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_cppequ_work.c index 610bbb8aa..111f50c77 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cppequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cppequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cppequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpprfs.c b/lapack-netlib/LAPACKE/src/lapacke_cpprfs.c index f62c61f6b..7fc34be98 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpprfs_work.c index fa775aef7..312280a58 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cppsv.c b/lapack-netlib/LAPACKE/src/lapacke_cppsv.c index 6a182fae9..6d6ddcc02 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cppsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cppsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cppsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cppsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_cppsv_work.c index acbc1a8f0..ad9516912 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cppsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cppsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cppsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cppsvx.c b/lapack-netlib/LAPACKE/src/lapacke_cppsvx.c index bf428fb17..fbf68f977 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cppsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cppsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cppsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cppsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cppsvx_work.c index 68dda8162..d4a3135e6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cppsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cppsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cppsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpptrf.c b/lapack-netlib/LAPACKE/src/lapacke_cpptrf.c index dad29b6d0..38247619b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpptrf_work.c index fa7bda525..b786bd4c2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpptri.c b/lapack-netlib/LAPACKE/src/lapacke_cpptri.c index 5a80ef347..89fba4257 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpptri_work.c index ee536decb..91a54af81 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpptrs.c b/lapack-netlib/LAPACKE/src/lapacke_cpptrs.c index 6eab29d05..091c6dceb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpptrs_work.c index ddd4e098b..b59a21fc7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpstrf.c b/lapack-netlib/LAPACKE/src/lapacke_cpstrf.c index f4111a287..630e154c5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpstrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpstrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpstrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpstrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpstrf_work.c index 892d1eb4b..d4f5e53d0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpstrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpstrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpstrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cptcon.c b/lapack-netlib/LAPACKE/src/lapacke_cptcon.c index ebaab3b6b..eb861647f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cptcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cptcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cptcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cptcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_cptcon_work.c index d7cc964b6..1298bda8e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cptcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cptcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cptcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpteqr.c b/lapack-netlib/LAPACKE/src/lapacke_cpteqr.c index 3bc194f7b..1205a5813 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpteqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpteqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpteqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpteqr_work.c index 298d8f734..501e85b45 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpteqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpteqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cptrfs.c b/lapack-netlib/LAPACKE/src/lapacke_cptrfs.c index 8e69403d4..b7c7b236b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cptrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cptrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cptrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cptrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cptrfs_work.c index 307dc0acc..f2128fa3e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cptrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cptrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cptrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cptsv.c b/lapack-netlib/LAPACKE/src/lapacke_cptsv.c index 7de0ea3d2..c617fb344 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cptsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cptsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cptsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cptsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_cptsv_work.c index 9fc111c9d..262ea9470 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cptsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cptsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cptsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cptsvx.c b/lapack-netlib/LAPACKE/src/lapacke_cptsvx.c index 2e5185032..ce4a51292 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cptsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cptsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cptsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cptsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cptsvx_work.c index fc6ab6dae..5a16eb7e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cptsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cptsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cptsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpttrf.c b/lapack-netlib/LAPACKE/src/lapacke_cpttrf.c index ad51c857c..6dd5476aa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpttrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpttrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpttrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpttrf_work.c index 18ea7115f..b49017814 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpttrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpttrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpttrs.c b/lapack-netlib/LAPACKE/src/lapacke_cpttrs.c index bc8abf39d..61d22b496 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpttrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpttrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cpttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cpttrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_cpttrs_work.c index 27d709e8a..fe9150bed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cpttrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cpttrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cpttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cspcon.c b/lapack-netlib/LAPACKE/src/lapacke_cspcon.c index 19c011e7f..d17277b65 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cspcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cspcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cspcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cspcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_cspcon_work.c index d24b38314..90fffaed2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cspcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cspcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cspcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csprfs.c b/lapack-netlib/LAPACKE/src/lapacke_csprfs.c index 1c9b801e2..6d4a52dc4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_csprfs_work.c index e2e378bc5..b245cd06d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cspsv.c b/lapack-netlib/LAPACKE/src/lapacke_cspsv.c index c5b1f91d2..078356f57 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cspsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cspsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cspsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cspsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_cspsv_work.c index dba376679..794e99e12 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cspsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cspsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cspsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cspsvx.c b/lapack-netlib/LAPACKE/src/lapacke_cspsvx.c index 18d6163b1..f75ac35b7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cspsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cspsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cspsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cspsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_cspsvx_work.c index 38da17b9c..b3ba12b5d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cspsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cspsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cspsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csptrf.c b/lapack-netlib/LAPACKE/src/lapacke_csptrf.c index d74415ea7..6ba643e25 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_csptrf_work.c index d84f4cd5c..6b640445d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csptri.c b/lapack-netlib/LAPACKE/src/lapacke_csptri.c index 3103d5286..5897d74bb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_csptri_work.c index a51fe264b..185c164a5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csptrs.c b/lapack-netlib/LAPACKE/src/lapacke_csptrs.c index bf433b716..ca97e4d79 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_csptrs_work.c index 09dd1c622..58f3dfae9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cstedc.c b/lapack-netlib/LAPACKE/src/lapacke_cstedc.c index 3c0be27d5..61cacfb14 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cstedc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cstedc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cstedc * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cstedc_work.c b/lapack-netlib/LAPACKE/src/lapacke_cstedc_work.c index 365fcda0a..5574ea58d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cstedc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cstedc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cstedc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cstegr.c b/lapack-netlib/LAPACKE/src/lapacke_cstegr.c index 86a0cd72d..8d81dc163 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cstegr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cstegr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cstegr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cstegr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cstegr_work.c index 2fafd58d2..49f1b394d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cstegr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cstegr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cstegr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cstein.c b/lapack-netlib/LAPACKE/src/lapacke_cstein.c index 9f7516c5e..693e84aa7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cstein.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cstein.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cstein * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cstein_work.c b/lapack-netlib/LAPACKE/src/lapacke_cstein_work.c index 48b742454..53e686b47 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cstein_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cstein_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cstein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cstemr.c b/lapack-netlib/LAPACKE/src/lapacke_cstemr.c index 51e63c675..304914526 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cstemr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cstemr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cstemr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cstemr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cstemr_work.c index 1afb12b3e..7327bfb15 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cstemr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cstemr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cstemr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csteqr.c b/lapack-netlib/LAPACKE/src/lapacke_csteqr.c index 7877925d2..457d70bf0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csteqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csteqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csteqr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csteqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_csteqr_work.c index 0f6943139..7ccbfd7bb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csteqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csteqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csycon.c b/lapack-netlib/LAPACKE/src/lapacke_csycon.c index e6b02d4d4..1472442ad 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csycon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csycon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csycon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csycon_3.c b/lapack-netlib/LAPACKE/src/lapacke_csycon_3.c index 6d5dcd646..bb1ad9d10 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csycon_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csycon_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csycon_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csycon_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_csycon_3_work.c index 47323dc4a..b00e8fd96 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csycon_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csycon_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csycon_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csycon_work.c b/lapack-netlib/LAPACKE/src/lapacke_csycon_work.c index e16d8aecb..3fa8a6939 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csycon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csycon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csycon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyconv.c b/lapack-netlib/LAPACKE/src/lapacke_csyconv.c index 771395e97..b9df46e9e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyconv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyconv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csyconv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyconv_work.c b/lapack-netlib/LAPACKE/src/lapacke_csyconv_work.c index 80a85179b..be6da3339 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyconv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyconv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csyconv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyequb.c b/lapack-netlib/LAPACKE/src/lapacke_csyequb.c index 79921b333..e1bb1621f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csyequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_csyequb_work.c index fe9ea16c8..3469e11e0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csyequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyr.c b/lapack-netlib/LAPACKE/src/lapacke_csyr.c index 54cebff1d..ea5da573f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyr.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function csyr * Author: Intel Corporation -* Generated March, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyr_work.c b/lapack-netlib/LAPACKE/src/lapacke_csyr_work.c index c988efb08..2769eaa3e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyr_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function csyr * Author: Intel Corporation -* Generated March, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyrfs.c b/lapack-netlib/LAPACKE/src/lapacke_csyrfs.c index 501ba2bb0..b8d8b8bdc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csyrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_csyrfs_work.c index c461bfb1c..e22ce1c40 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csyrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyrfsx.c b/lapack-netlib/LAPACKE/src/lapacke_csyrfsx.c index ceaf43776..6ea79675a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyrfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyrfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csyrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyrfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_csyrfsx_work.c index 72ebbe279..fa422849b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyrfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyrfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csyrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv.c b/lapack-netlib/LAPACKE/src/lapacke_csysv.c index 11baa9bb6..022271052 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csysv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv_aa.c b/lapack-netlib/LAPACKE/src/lapacke_csysv_aa.c index 9e012b9a3..53f0f9032 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csysv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_2stage.c index c93bb9c8a..db154bd91 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csysv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_2stage_work.c index dabe31512..6180de776 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csysv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_work.c index e2f74464e..8abf0e070 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csysv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv_rk.c b/lapack-netlib/LAPACKE/src/lapacke_csysv_rk.c index b2950c1e3..9721074a1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csysv_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_csysv_rk_work.c index f87f05175..71facf581 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csysv_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv_rook.c b/lapack-netlib/LAPACKE/src/lapacke_csysv_rook.c index a9edbe706..95dbd0d8c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv_rook.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function csysv_rook * Author: Intel Corporation -* Generated January, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_csysv_rook_work.c index 39034a158..b3feff5b5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv_rook_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function csysv_rook * Author: Intel Corporation -* Generated January, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysv_work.c b/lapack-netlib/LAPACKE/src/lapacke_csysv_work.c index 80b10bb82..291da4e71 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csysv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysvx.c b/lapack-netlib/LAPACKE/src/lapacke_csysvx.c index b64aab954..a9e4f784d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csysvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_csysvx_work.c index f9ec15138..dfd4a1639 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csysvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysvxx.c b/lapack-netlib/LAPACKE/src/lapacke_csysvxx.c index fffac2b41..ae60885a4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csysvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csysvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_csysvxx_work.c index 6357c37bc..d2bcd301a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csysvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csysvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csysvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyswapr.c b/lapack-netlib/LAPACKE/src/lapacke_csyswapr.c index 690ed4718..be412876b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyswapr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyswapr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csyswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csyswapr_work.c b/lapack-netlib/LAPACKE/src/lapacke_csyswapr_work.c index ed215531b..def8e235a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csyswapr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csyswapr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csyswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf.c index ccde4f48f..9b1f6b545 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa.c index 0448a1f2e..7dafe090f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_2stage.c index 1ccad12f9..8cad47aa9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrf_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_2stage_work.c index 665291c1d..7139a2d15 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrf_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_work.c index f6661c85c..1a25fcc48 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf_rk.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf_rk.c index 52b7d2483..5b21a0ad7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrf_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf_rk_work.c index f98e8259b..740d917dc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrf_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf_rook.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf_rook.c index a010800db..0f76a80e9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf_rook_work.c index 33479fb95..0e927ae26 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrf_work.c index 43eedb4a9..5ed9fae6c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytri.c b/lapack-netlib/LAPACKE/src/lapacke_csytri.c index 309af8596..14d37f621 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytri2.c b/lapack-netlib/LAPACKE/src/lapacke_csytri2.c index cacd6db92..c9fe76d5f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytri2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytri2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytri2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytri2_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytri2_work.c index 6ab637c4f..a1660758f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytri2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytri2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytri2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytri2x.c b/lapack-netlib/LAPACKE/src/lapacke_csytri2x.c index 5c7e0be13..f47f6ca55 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytri2x.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytri2x.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytri2x_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytri2x_work.c index 45468188a..56b5e7202 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytri2x_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytri2x_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytri_3.c b/lapack-netlib/LAPACKE/src/lapacke_csytri_3.c index 75ec8f024..a08dbda64 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytri_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytri_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytri_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytri_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytri_3_work.c index b91d8a855..5cf644839 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytri_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytri_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytri_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytri_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytri_work.c index 944033446..3fad4a565 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs.c index 5b9282fe5..12356251d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs2.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs2.c index f4a0a4334..b7312d0d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs2_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs2_work.c index d914c1d69..e2c56fbec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs_3.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs_3.c index 962416c00..628eb2617 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrs_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs_3_work.c index ef89b839d..5183ea637 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrs_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa.c index ff9ba03b4..fc71b4a3b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_2stage.c index 2edab2f9f..1396d0b50 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrs_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_2stage_work.c index 7ef73971b..f144e470c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrs_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_work.c index ad576b236..1be7791b2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs_rook.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs_rook.c index 1970bc91a..a22bc29ea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function csytrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs_rook_work.c index 3e4b737dd..9683fd46d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_csytrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_csytrs_work.c index 047a25980..c7403bb5e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_csytrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_csytrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function csytrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctbcon.c b/lapack-netlib/LAPACKE/src/lapacke_ctbcon.c index 21b86a0da..35fc065d6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctbcon_work.c index f5e330b12..0ffc705a3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_ctbrfs.c index e17e623b1..62228ace9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctbrfs_work.c index 14d572188..18ac02dc2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_ctbtrs.c index b97f12029..0b617f293 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctbtrs_work.c index a236b332c..a4ab5cab7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctfsm.c b/lapack-netlib/LAPACKE/src/lapacke_ctfsm.c index 1c97c7b06..40330fb33 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctfsm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctfsm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctfsm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctfsm_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctfsm_work.c index d1e78f381..7ea6ec8cc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctfsm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctfsm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctfsm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctftri.c b/lapack-netlib/LAPACKE/src/lapacke_ctftri.c index 2c2043314..5916f9e05 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctftri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctftri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctftri_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctftri_work.c index 06c99b0b8..fe135147f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctftri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctftri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctfttp.c b/lapack-netlib/LAPACKE/src/lapacke_ctfttp.c index 66c69c795..6648c407c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctfttp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctfttp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctfttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctfttp_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctfttp_work.c index f7192f11f..df022e409 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctfttp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctfttp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctfttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctfttr.c b/lapack-netlib/LAPACKE/src/lapacke_ctfttr.c index 0f7b3d7f9..c230cf3da 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctfttr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctfttr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctfttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctfttr_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctfttr_work.c index 34b7a6294..d0ac11a67 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctfttr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctfttr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctfttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgevc.c b/lapack-netlib/LAPACKE/src/lapacke_ctgevc.c index 647e23884..33ea8b469 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgevc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgevc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctgevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgevc_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctgevc_work.c index 9f4236e9e..3e3de5df0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgevc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgevc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctgevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgexc.c b/lapack-netlib/LAPACKE/src/lapacke_ctgexc.c index 0b88ed9f4..f6f56e457 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgexc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgexc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctgexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgexc_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctgexc_work.c index 1c34d2d78..1b7e5ed11 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgexc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgexc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctgexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgsen.c b/lapack-netlib/LAPACKE/src/lapacke_ctgsen.c index 6bfcdc996..c543cd44f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgsen.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgsen.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctgsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgsen_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctgsen_work.c index dad45119f..2bf21a8f0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgsen_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgsen_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctgsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgsja.c b/lapack-netlib/LAPACKE/src/lapacke_ctgsja.c index b14f3b4c8..f864b37bf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgsja.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgsja.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctgsja * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgsja_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctgsja_work.c index 9ea4e3648..3cfa3ec52 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgsja_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgsja_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctgsja * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgsna.c b/lapack-netlib/LAPACKE/src/lapacke_ctgsna.c index fab7b9f69..358836a8a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgsna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgsna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctgsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgsna_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctgsna_work.c index 171b7bc31..7728527f9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgsna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgsna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctgsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgsyl.c b/lapack-netlib/LAPACKE/src/lapacke_ctgsyl.c index d34080c90..3ead5ed91 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgsyl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgsyl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctgsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctgsyl_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctgsyl_work.c index 2c7619a5d..1d0b0126a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctgsyl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctgsyl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctgsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpcon.c b/lapack-netlib/LAPACKE/src/lapacke_ctpcon.c index 15826ece3..9a688e2ea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctpcon_work.c index c776402ef..e57bcc198 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpmqrt.c b/lapack-netlib/LAPACKE/src/lapacke_ctpmqrt.c index ee153e25a..78ccd8570 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpmqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpmqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function ctpmqrt * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpmqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctpmqrt_work.c index d460cfbaf..5ec948e7b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpmqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpmqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctpmqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpqrt.c b/lapack-netlib/LAPACKE/src/lapacke_ctpqrt.c index 24097024b..3c2291018 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function ctpqrt * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpqrt2.c b/lapack-netlib/LAPACKE/src/lapacke_ctpqrt2.c index 9ca49a5e9..c1ce56e6e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpqrt2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpqrt2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function ctpqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpqrt2_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctpqrt2_work.c index afca000a1..cb5c7831d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpqrt2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpqrt2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctpqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctpqrt_work.c index 1ce0e5bfb..4ac84f3d5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctpqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctprfb.c b/lapack-netlib/LAPACKE/src/lapacke_ctprfb.c index fd49d6a7f..d82d269a4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctprfb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctprfb.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function ctprfb * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctprfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctprfb_work.c index dac499583..8406c1a87 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctprfb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctprfb_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctprfb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctprfs.c b/lapack-netlib/LAPACKE/src/lapacke_ctprfs.c index b869c2020..4d7093eae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctprfs_work.c index ed09390dd..8ee69bee0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctptri.c b/lapack-netlib/LAPACKE/src/lapacke_ctptri.c index 720c5dadb..ae6b31919 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctptri_work.c index 3aefe6c3f..583550ceb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctptrs.c b/lapack-netlib/LAPACKE/src/lapacke_ctptrs.c index 5b6a9141c..b9cc0ff36 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctptrs_work.c index 4a32aac07..2b6de3221 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpttf.c b/lapack-netlib/LAPACKE/src/lapacke_ctpttf.c index 793e9ba11..5683ca498 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpttf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpttf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctpttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpttf_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctpttf_work.c index fafe1f068..e34eb0240 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpttf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpttf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctpttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpttr.c b/lapack-netlib/LAPACKE/src/lapacke_ctpttr.c index 679c661b8..8c0445b01 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpttr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpttr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctpttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctpttr_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctpttr_work.c index 7a136c439..49c6863d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctpttr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctpttr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctpttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrcon.c b/lapack-netlib/LAPACKE/src/lapacke_ctrcon.c index 159fb43a5..e9ace2844 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrcon_work.c index 03186561b..8e03dfc4a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrevc.c b/lapack-netlib/LAPACKE/src/lapacke_ctrevc.c index 8c0b3d13b..af53062ea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrevc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrevc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrevc_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrevc_work.c index f2ebe0af3..af4b366d9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrevc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrevc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrexc.c b/lapack-netlib/LAPACKE/src/lapacke_ctrexc.c index 426e8486b..dc003c843 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrexc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrexc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrexc_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrexc_work.c index 1d12d18ec..9f301b52a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrexc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrexc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrexc * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrrfs.c b/lapack-netlib/LAPACKE/src/lapacke_ctrrfs.c index 164845356..20019fd51 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrrfs_work.c index 0556d932c..d1babfeee 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrsen.c b/lapack-netlib/LAPACKE/src/lapacke_ctrsen.c index 0ea1feb46..f7a57c670 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrsen.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrsen.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrsen_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrsen_work.c index b8c63d1e6..8959d5ce8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrsen_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrsen_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrsna.c b/lapack-netlib/LAPACKE/src/lapacke_ctrsna.c index 3e3b8d894..667d40aba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrsna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrsna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrsna_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrsna_work.c index 2045c9fa6..865b5769a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrsna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrsna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrsyl.c b/lapack-netlib/LAPACKE/src/lapacke_ctrsyl.c index d17d1eda6..1952e024b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrsyl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrsyl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrsyl_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrsyl_work.c index 0120f0251..1c345f121 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrsyl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrsyl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrtri.c b/lapack-netlib/LAPACKE/src/lapacke_ctrtri.c index 4fc39cae7..6dd50ba90 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrtri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrtri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrtri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrtri_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrtri_work.c index 68951183a..d21c99bce 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrtri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrtri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrtri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrtrs.c b/lapack-netlib/LAPACKE/src/lapacke_ctrtrs.c index 6669f3f7a..061ae686d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrtrs_work.c index 53138d2f5..228fd38ba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrttf.c b/lapack-netlib/LAPACKE/src/lapacke_ctrttf.c index 8ca652456..e5a3c0e4a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrttf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrttf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrttf_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrttf_work.c index fd788b200..8589a6589 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrttf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrttf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrttp.c b/lapack-netlib/LAPACKE/src/lapacke_ctrttp.c index 7b2e3a169..624cd2d2f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrttp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrttp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctrttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctrttp_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctrttp_work.c index 8ac03cf81..9a557b602 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctrttp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctrttp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctrttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctzrzf.c b/lapack-netlib/LAPACKE/src/lapacke_ctzrzf.c index 7ec2778ab..c33b868ba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctzrzf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctzrzf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ctzrzf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ctzrzf_work.c b/lapack-netlib/LAPACKE/src/lapacke_ctzrzf_work.c index 3d0e6bddf..c5178ce3f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ctzrzf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ctzrzf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ctzrzf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunbdb.c b/lapack-netlib/LAPACKE/src/lapacke_cunbdb.c index 562f253d9..779e461f3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunbdb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunbdb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunbdb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunbdb_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunbdb_work.c index 8ae40e6d4..fa05aafb2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunbdb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunbdb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunbdb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cuncsd.c b/lapack-netlib/LAPACKE/src/lapacke_cuncsd.c index 4dc5b97f9..91a4ca9f1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cuncsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cuncsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cuncsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cuncsd2by1.c b/lapack-netlib/LAPACKE/src/lapacke_cuncsd2by1.c index 339ed8d19..8a1fc02f3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cuncsd2by1.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cuncsd2by1.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cuncsd2by1 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cuncsd2by1_work.c b/lapack-netlib/LAPACKE/src/lapacke_cuncsd2by1_work.c index fb0a0f7ee..4e7e2cc16 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cuncsd2by1_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cuncsd2by1_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cuncsd2by1 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cuncsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_cuncsd_work.c index 0ab02e046..a5c24a301 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cuncsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cuncsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cuncsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungbr.c b/lapack-netlib/LAPACKE/src/lapacke_cungbr.c index 5bef3cb65..d71462d91 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungbr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungbr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cungbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungbr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cungbr_work.c index e2a8b794b..88429715c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungbr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungbr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cungbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunghr.c b/lapack-netlib/LAPACKE/src/lapacke_cunghr.c index 4159e86b6..45fc0556f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunghr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunghr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunghr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunghr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunghr_work.c index 747962b41..14b888ed2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunghr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunghr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunghr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunglq.c b/lapack-netlib/LAPACKE/src/lapacke_cunglq.c index a614694c1..a3bf9abbd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunglq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunglq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunglq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunglq_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunglq_work.c index 70c7690f1..3c9d9f806 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunglq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunglq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunglq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungql.c b/lapack-netlib/LAPACKE/src/lapacke_cungql.c index c80f92a8e..668c39c0f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungql.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungql.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cungql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungql_work.c b/lapack-netlib/LAPACKE/src/lapacke_cungql_work.c index 23db9b7d3..8920917be 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungql_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungql_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cungql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungqr.c b/lapack-netlib/LAPACKE/src/lapacke_cungqr.c index 9247dad20..bad2c322c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cungqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cungqr_work.c index c30dc646a..0f8426e23 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cungqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungrq.c b/lapack-netlib/LAPACKE/src/lapacke_cungrq.c index 82fea68ad..65154554b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungrq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungrq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cungrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungrq_work.c b/lapack-netlib/LAPACKE/src/lapacke_cungrq_work.c index 1ba081d1c..76a0f9da3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungrq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungrq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cungrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungtr.c b/lapack-netlib/LAPACKE/src/lapacke_cungtr.c index faa3ef6d3..c0da66df8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cungtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cungtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cungtr_work.c index e2b9d8e5a..b892740de 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cungtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cungtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cungtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmbr.c b/lapack-netlib/LAPACKE/src/lapacke_cunmbr.c index d80bc526e..3273b4297 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmbr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmbr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunmbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmbr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunmbr_work.c index 0da3b2a82..75be3d9e4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmbr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmbr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunmbr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmhr.c b/lapack-netlib/LAPACKE/src/lapacke_cunmhr.c index 127dd8c57..003939ebf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmhr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmhr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunmhr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmhr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunmhr_work.c index fcecb5889..d73a76f90 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmhr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmhr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunmhr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmlq.c b/lapack-netlib/LAPACKE/src/lapacke_cunmlq.c index f340c8c93..224fa7866 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmlq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmlq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunmlq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmlq_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunmlq_work.c index a7cc3ede6..204dc72a7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmlq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmlq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunmlq * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmql.c b/lapack-netlib/LAPACKE/src/lapacke_cunmql.c index 92c988131..1256dd547 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmql.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmql.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunmql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmql_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunmql_work.c index 9fb1c98f5..ccfda0ea6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmql_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmql_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunmql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmqr.c b/lapack-netlib/LAPACKE/src/lapacke_cunmqr.c index 1ad2afa3b..a49796773 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunmqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunmqr_work.c index a187db5d1..ce5a37cbc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunmqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmrq.c b/lapack-netlib/LAPACKE/src/lapacke_cunmrq.c index ec96052b9..e410b95c8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmrq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmrq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunmrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmrq_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunmrq_work.c index 7e3b2994e..cc9942940 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmrq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmrq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunmrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmrz.c b/lapack-netlib/LAPACKE/src/lapacke_cunmrz.c index 81d788d71..c2e235ae8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmrz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmrz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunmrz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmrz_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunmrz_work.c index 872bfba89..5dd15775a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmrz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmrz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunmrz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmtr.c b/lapack-netlib/LAPACKE/src/lapacke_cunmtr.c index 71ad23f2f..f98a20576 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cunmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cunmtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cunmtr_work.c index 1c426dbd5..8a22f3c7e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cunmtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cunmtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cunmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cupgtr.c b/lapack-netlib/LAPACKE/src/lapacke_cupgtr.c index 6c96735ae..662cce33e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cupgtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cupgtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cupgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cupgtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cupgtr_work.c index bf78dba19..b37afb1c6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cupgtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cupgtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cupgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cupmtr.c b/lapack-netlib/LAPACKE/src/lapacke_cupmtr.c index ba026ae68..1ea17ca56 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cupmtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cupmtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function cupmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_cupmtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_cupmtr_work.c index d051838df..cb273ac44 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cupmtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cupmtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function cupmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dbbcsd.c b/lapack-netlib/LAPACKE/src/lapacke_dbbcsd.c index 960d62dd6..afa01f3cb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dbbcsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dbbcsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dbbcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dbbcsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dbbcsd_work.c index 6d3b12bfa..888fa6c2b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dbbcsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dbbcsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dbbcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dbdsdc.c b/lapack-netlib/LAPACKE/src/lapacke_dbdsdc.c index 849b06ce7..aaa706099 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dbdsdc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dbdsdc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dbdsdc * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dbdsdc_work.c b/lapack-netlib/LAPACKE/src/lapacke_dbdsdc_work.c index 8fb36266c..7e498a225 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dbdsdc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dbdsdc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dbdsdc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dbdsqr.c b/lapack-netlib/LAPACKE/src/lapacke_dbdsqr.c index 3b27f86cf..2f0ba2430 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dbdsqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dbdsqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dbdsqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dbdsqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dbdsqr_work.c index 4eca3bbbf..d3330cf9b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dbdsqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dbdsqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dbdsqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dbdsvdx.c b/lapack-netlib/LAPACKE/src/lapacke_dbdsvdx.c index b32e79b93..88d0e8765 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dbdsvdx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dbdsvdx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dbdsvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dbdsvdx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dbdsvdx_work.c index fdee5cbbe..f5506ac1d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dbdsvdx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dbdsvdx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dbdsvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ddisna.c b/lapack-netlib/LAPACKE/src/lapacke_ddisna.c index e5a8b8240..a73a6e947 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ddisna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ddisna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ddisna * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ddisna_work.c b/lapack-netlib/LAPACKE/src/lapacke_ddisna_work.c index f3ec282f4..b8e03c683 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ddisna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ddisna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ddisna * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbbrd.c b/lapack-netlib/LAPACKE/src/lapacke_dgbbrd.c index 89be123f5..ff655d969 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbbrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbbrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbbrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbbrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbbrd_work.c index c2b3aa1ef..79c7a9ec1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbbrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbbrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbbrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbcon.c b/lapack-netlib/LAPACKE/src/lapacke_dgbcon.c index 40e694e7e..c1d0f430e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbcon_work.c index 5b191589e..1e7904e6e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbequ.c b/lapack-netlib/LAPACKE/src/lapacke_dgbequ.c index 171177843..465e599e8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbequ_work.c index 5803e4542..fcba3475b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbequb.c b/lapack-netlib/LAPACKE/src/lapacke_dgbequb.c index da6bf077b..6fbbdb2b5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbequb_work.c index 326c2db2d..3eaafa13c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_dgbrfs.c index 29612815a..7877ab94d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbrfs_work.c index c9b4679be..9c095e283 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbrfsx.c b/lapack-netlib/LAPACKE/src/lapacke_dgbrfsx.c index 7fceeb6bc..3f54f67e8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbrfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbrfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbrfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbrfsx_work.c index b86be71a0..484d10d96 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbrfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbrfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbsv.c b/lapack-netlib/LAPACKE/src/lapacke_dgbsv.c index f2e868c5f..305ad68c8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbsv_work.c index e019b942d..cb29d3d95 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbsvx.c b/lapack-netlib/LAPACKE/src/lapacke_dgbsvx.c index 7cae13022..0176dc952 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbsvx_work.c index c2d2f5c33..6b4882065 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbsvxx.c b/lapack-netlib/LAPACKE/src/lapacke_dgbsvxx.c index a991bef46..9178bc3b7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbsvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbsvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbsvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbsvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbsvxx_work.c index 2c9111b05..a52d72187 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbsvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbsvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbsvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbtrf.c b/lapack-netlib/LAPACKE/src/lapacke_dgbtrf.c index a08116fea..baac4b61c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbtrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbtrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbtrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbtrf_work.c index 799a8551d..ff5096f96 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbtrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbtrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_dgbtrs.c index 27e5c18cf..cb86478d1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgbtrs_work.c index 93fa3782f..bdc2d129e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgebak.c b/lapack-netlib/LAPACKE/src/lapacke_dgebak.c index 9363602f8..744ca54f3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgebak.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgebak.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgebak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgebak_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgebak_work.c index 909c9e6b6..afa8b1e52 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgebak_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgebak_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgebak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgebal.c b/lapack-netlib/LAPACKE/src/lapacke_dgebal.c index 35eae3eb6..e9a63fbad 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgebal.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgebal.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgebal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgebal_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgebal_work.c index 50ee401a4..c0d113e19 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgebal_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgebal_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgebal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgebrd.c b/lapack-netlib/LAPACKE/src/lapacke_dgebrd.c index 5ef6c62fb..9ffc4374b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgebrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgebrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgebrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgebrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgebrd_work.c index deae15768..267d773b5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgebrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgebrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgebrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgecon.c b/lapack-netlib/LAPACKE/src/lapacke_dgecon.c index 4cc6cbcab..9ca44f8a7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgecon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgecon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgecon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgecon_work.c index ed00ae407..9b475df5b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgecon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgecon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeequ.c b/lapack-netlib/LAPACKE/src/lapacke_dgeequ.c index e96de3742..b6c1c23b4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeequ_work.c index e8fae93a1..09290ed47 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeequb.c b/lapack-netlib/LAPACKE/src/lapacke_dgeequb.c index a80e2bd7f..0011c7650 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeequb_work.c index 03ebb54c8..36336d1b6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgees.c b/lapack-netlib/LAPACKE/src/lapacke_dgees.c index f80c41f44..875972d29 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgees.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgees.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgees * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgees_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgees_work.c index 77390f619..6a18199fa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgees_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgees_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgees * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeesx.c b/lapack-netlib/LAPACKE/src/lapacke_dgeesx.c index 193d65737..7796edffc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeesx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeesx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeesx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeesx_work.c index 4452e9a01..dcdd64621 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeesx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeesx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeev.c b/lapack-netlib/LAPACKE/src/lapacke_dgeev.c index 460155d34..a2a351d1b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeev_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeev_work.c index 074309e78..c4de72394 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeevx.c b/lapack-netlib/LAPACKE/src/lapacke_dgeevx.c index 97612c1cd..dd14b990e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeevx_work.c index 533e81af4..9efb49ed3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgehrd.c b/lapack-netlib/LAPACKE/src/lapacke_dgehrd.c index a3de86a97..f5b8c2871 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgehrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgehrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgehrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgehrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgehrd_work.c index ed6ce1074..019bc822b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgehrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgehrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgehrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgejsv.c b/lapack-netlib/LAPACKE/src/lapacke_dgejsv.c index d9709bf89..b8952e21b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgejsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgejsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgejsv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgejsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgejsv_work.c index fba9a374d..b13a24076 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgejsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgejsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgejsv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelq.c b/lapack-netlib/LAPACKE/src/lapacke_dgelq.c index 016a45f6a..35d9d826d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgelq * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelq2.c b/lapack-netlib/LAPACKE/src/lapacke_dgelq2.c index ce1690ee2..3bf06cee7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelq2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelq2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgelq2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelq2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgelq2_work.c index acce76881..cf838d01d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelq2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelq2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgelq2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelq_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgelq_work.c index 1bd50678b..7d367b19e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgelq * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelqf.c b/lapack-netlib/LAPACKE/src/lapacke_dgelqf.c index e5ce2e699..8880e3ca2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgelqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgelqf_work.c index 979f0804b..7a64cded6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgelqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgels.c b/lapack-netlib/LAPACKE/src/lapacke_dgels.c index 186273351..1852cfb22 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgels.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgels.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgels * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgels_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgels_work.c index 554da9f47..853c5614f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgels_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgels_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgels * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelsd.c b/lapack-netlib/LAPACKE/src/lapacke_dgelsd.c index 790119596..d096313d5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgelsd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgelsd_work.c index 80cad2ac5..242082216 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgelsd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelss.c b/lapack-netlib/LAPACKE/src/lapacke_dgelss.c index ca888f1ea..e1692dc30 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelss.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelss.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgelss * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelss_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgelss_work.c index b82784171..a3d595acb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelss_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelss_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgelss * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelsy.c b/lapack-netlib/LAPACKE/src/lapacke_dgelsy.c index 6d318236e..97a1c90ac 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelsy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelsy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgelsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgelsy_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgelsy_work.c index 31f4bde7f..2ba4f07ca 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgelsy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgelsy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgelsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgemlq.c b/lapack-netlib/LAPACKE/src/lapacke_dgemlq.c index 02b08df35..a5fc7b885 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgemlq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgemlq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgemlq * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgemlq_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgemlq_work.c index e85252a14..80072ffdf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgemlq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgemlq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgemlq * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgemqr.c b/lapack-netlib/LAPACKE/src/lapacke_dgemqr.c index b4be9ea9c..6fbcc2047 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgemqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgemqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgemqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgemqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgemqr_work.c index a1179a466..b254538a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgemqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgemqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgemqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgemqrt.c b/lapack-netlib/LAPACKE/src/lapacke_dgemqrt.c index 4b8c661d5..7b9e8c350 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgemqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgemqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dgemqrt * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgemqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgemqrt_work.c index ade8448ba..2ecca4537 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgemqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgemqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgemqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqlf.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqlf.c index cb2854c79..c8891f6f2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqlf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqlf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqlf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqlf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqlf_work.c index 7a8bffae5..c5274633f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqlf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqlf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqlf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqp3.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqp3.c index 52f7d07c6..b9bde96f2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqp3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqp3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqp3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqp3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqp3_work.c index 0dfc25f4e..130490ab1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqp3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqp3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqp3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqpf.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqpf.c index 63098b232..74256a0fd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqpf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqpf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqpf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqpf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqpf_work.c index b9eec50bb..8d53351d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqpf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqpf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqpf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqr.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqr.c index 4c26cb7b5..20a1700fd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqr2.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqr2.c index ac4b85847..a340e3a9a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqr2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqr2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqr2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqr2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqr2_work.c index 403060643..6e461c643 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqr2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqr2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqr2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqr_work.c index 8bc3b1cb4..112e3fcbc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrf.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrf.c index 1fbccd88a..81a2d4d6b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrf_work.c index f24febf7e..abd8f1726 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrfp.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrfp.c index 856b6d1fd..fcac66762 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrfp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrfp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqrfp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrfp_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrfp_work.c index e622f3ce6..433e34bfc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrfp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrfp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqrfp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt.c index 4d45fd929..3967b5c19 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt2.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt2.c index 894f47025..f52269454 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt2_work.c index 8a75c08c3..04a798509 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt3.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt3.c index 01a90771c..513cf6815 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt3.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dgeqrt3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt3_work.c index 510cacc9f..e2c8706aa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt3_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqrt3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt_work.c index 0cafdb0a8..8a4c7cead 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgeqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgeqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgeqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgerfs.c b/lapack-netlib/LAPACKE/src/lapacke_dgerfs.c index 8034676c3..b447e258a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgerfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgerfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgerfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgerfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgerfs_work.c index ab1189db0..85e53a74f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgerfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgerfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgerfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgerfsx.c b/lapack-netlib/LAPACKE/src/lapacke_dgerfsx.c index 57e8bfd4a..ce069abf8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgerfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgerfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgerfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgerfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgerfsx_work.c index 306fe68d2..d6606e3f3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgerfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgerfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgerfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgerqf.c b/lapack-netlib/LAPACKE/src/lapacke_dgerqf.c index c2a6e79f3..6cea16ba9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgerqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgerqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgerqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgerqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgerqf_work.c index 9bf5bb563..cd571fb09 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgerqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgerqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgerqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesdd.c b/lapack-netlib/LAPACKE/src/lapacke_dgesdd.c index 61bd91c6d..6b261e953 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesdd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesdd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgesdd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesdd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgesdd_work.c index 2a7c0b1b6..7bef2230c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesdd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesdd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgesdd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesv.c b/lapack-netlib/LAPACKE/src/lapacke_dgesv.c index 57f9208f6..52a069580 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgesv_work.c index 66674336b..c6c65d2ec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvd.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvd.c index 1801e86a5..cc7717752 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgesvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvd_work.c index 671def1df..6668dd748 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgesvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvdq.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvdq.c index 7bf831f8b..4e1b87681 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvdq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvdq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgesvdq * Author: Intel Corporation -* Generated November 2018 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvdq_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvdq_work.c index 0de92a254..0d65f0529 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvdq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvdq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgesvdq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvdx.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvdx.c index b17c03776..ff78c13d2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvdx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvdx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgesvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvdx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvdx_work.c index b326cca9d..a2faa39bc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvdx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvdx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgesvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvj.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvj.c index c375d2503..c2cfab8be 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvj.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvj.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgesvj * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvj_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvj_work.c index 200b346cf..3ed28908c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvj_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvj_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgesvj * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvx.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvx.c index 95554b732..1a22d312d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvx_work.c index 12d834b0f..0de5f5888 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvxx.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvxx.c index 716ba1fa4..946401337 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgesvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgesvxx_work.c index 47879727f..7fce9ac20 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgesvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgesvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetf2.c b/lapack-netlib/LAPACKE/src/lapacke_dgetf2.c index b4e2b1668..2e34caba4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgetf2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgetf2_work.c index 555d07b90..5835fc51d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgetf2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetrf.c b/lapack-netlib/LAPACKE/src/lapacke_dgetrf.c index ef2c0e256..819196bc4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetrf2.c b/lapack-netlib/LAPACKE/src/lapacke_dgetrf2.c index 4c808be22..ed34dde9a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetrf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetrf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgetrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetrf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgetrf2_work.c index 3fe8c2b32..4ef372005 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetrf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetrf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgetrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgetrf_work.c index 2b05285bc..6f79ae737 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetri.c b/lapack-netlib/LAPACKE/src/lapacke_dgetri.c index c8b427e2c..9f889e464 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetri_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgetri_work.c index afae5bd7c..dbc9e10a7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetrs.c b/lapack-netlib/LAPACKE/src/lapacke_dgetrs.c index 8af10825d..1dfc507ee 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgetrs_work.c index aaac57c45..b2de85a6c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetsls.c b/lapack-netlib/LAPACKE/src/lapacke_dgetsls.c index 9adc61d0d..2098e9424 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetsls.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetsls.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgetsls * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgetsls_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgetsls_work.c index 6f84d6748..c551b6266 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgetsls_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgetsls_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgetsls * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggbak.c b/lapack-netlib/LAPACKE/src/lapacke_dggbak.c index af890562d..8dfb851ef 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggbak.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggbak.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggbak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggbak_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggbak_work.c index 09bd5203a..c49152aa7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggbak_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggbak_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggbak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggbal.c b/lapack-netlib/LAPACKE/src/lapacke_dggbal.c index 00e2397c5..42f58afc4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggbal.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggbal.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggbal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggbal_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggbal_work.c index d9cfd7aa0..f512d6afe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggbal_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggbal_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggbal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgges.c b/lapack-netlib/LAPACKE/src/lapacke_dgges.c index 5c4a12f79..b2c3fa3c7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgges.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgges.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgges * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgges3.c b/lapack-netlib/LAPACKE/src/lapacke_dgges3.c index 1d87cac20..079ead78c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgges3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgges3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgges3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgges3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgges3_work.c index 7a05a4647..43771ef17 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgges3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgges3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgges3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgges_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgges_work.c index 57c1bb0a0..effa1b3f5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgges_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgges_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgges * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggesx.c b/lapack-netlib/LAPACKE/src/lapacke_dggesx.c index 91eb7bf8c..605b637c8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggesx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggesx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggesx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggesx_work.c index 12e884cd4..ace40a32a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggesx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggesx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggev.c b/lapack-netlib/LAPACKE/src/lapacke_dggev.c index 4aa2e679c..002f4ac98 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggev3.c b/lapack-netlib/LAPACKE/src/lapacke_dggev3.c index 80a115eaa..2323ec8f8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggev3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggev3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggev3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggev3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggev3_work.c index 8e8d0e6fc..2f9f5c34d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggev3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggev3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggev3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggev_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggev_work.c index 0af48ee8c..0a6ff6ab0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggevx.c b/lapack-netlib/LAPACKE/src/lapacke_dggevx.c index ee9e0f5d3..723b6c340 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggevx_work.c index dac357663..458832e1e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggglm.c b/lapack-netlib/LAPACKE/src/lapacke_dggglm.c index 9f2c223fa..c896ee185 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggglm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggglm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggglm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggglm_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggglm_work.c index edfaa1afc..72b11309c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggglm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggglm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggglm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgghd3.c b/lapack-netlib/LAPACKE/src/lapacke_dgghd3.c index 478a41d8e..900bb4dd1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgghd3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgghd3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgghd3 * Author: Intel Corporation -* Generated January, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgghd3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgghd3_work.c index c7080c608..a115b2bd6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgghd3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgghd3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgghd3 * Author: Intel Corporation -* Generated January, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgghrd.c b/lapack-netlib/LAPACKE/src/lapacke_dgghrd.c index 5092ba3b5..fd6083a73 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgghrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgghrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgghrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgghrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgghrd_work.c index ac0f3c11d..58110b553 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgghrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgghrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgghrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgglse.c b/lapack-netlib/LAPACKE/src/lapacke_dgglse.c index 27e0281d9..e666c40a3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgglse.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgglse.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgglse * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgglse_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgglse_work.c index 35e5b9cbc..3f1e8e941 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgglse_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgglse_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgglse * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggqrf.c b/lapack-netlib/LAPACKE/src/lapacke_dggqrf.c index 292548d9f..fd16eacaf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggqrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggqrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggqrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggqrf_work.c index a23dc813e..01b8770b3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggqrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggqrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggrqf.c b/lapack-netlib/LAPACKE/src/lapacke_dggrqf.c index 42f8133b0..5bbb7046c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggrqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggrqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggrqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggrqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggrqf_work.c index 958d8703f..e6dc6f64a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggrqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggrqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggrqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggsvd.c b/lapack-netlib/LAPACKE/src/lapacke_dggsvd.c index e7e06c6c6..2eb8b271b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggsvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggsvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggsvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggsvd3.c b/lapack-netlib/LAPACKE/src/lapacke_dggsvd3.c index 69dce19f1..586254997 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggsvd3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggsvd3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggsvd3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggsvd3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggsvd3_work.c index 228a5b72f..1a5cc2e81 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggsvd3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggsvd3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggsvd3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggsvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggsvd_work.c index f533e0b62..eda8e4a22 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggsvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggsvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggsvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggsvp.c b/lapack-netlib/LAPACKE/src/lapacke_dggsvp.c index 86e4b9cce..1ddd7cc63 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggsvp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggsvp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggsvp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggsvp3.c b/lapack-netlib/LAPACKE/src/lapacke_dggsvp3.c index 60a679f5a..3e5ad77af 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggsvp3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggsvp3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dggsvp3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggsvp3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggsvp3_work.c index d044df1e1..d5b119d0f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggsvp3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggsvp3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggsvp3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dggsvp_work.c b/lapack-netlib/LAPACKE/src/lapacke_dggsvp_work.c index 055fb19da..5e919c501 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dggsvp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dggsvp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dggsvp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgtcon.c b/lapack-netlib/LAPACKE/src/lapacke_dgtcon.c index ff61d9ea7..378693ea5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgtcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgtcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgtcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgtcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgtcon_work.c index d977d642e..56d9c45cb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgtcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgtcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgtcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgtrfs.c b/lapack-netlib/LAPACKE/src/lapacke_dgtrfs.c index b7ff5b3ac..98f3e38e1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgtrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgtrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgtrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgtrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgtrfs_work.c index 7d58714e9..557e9a853 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgtrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgtrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgtrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgtsv.c b/lapack-netlib/LAPACKE/src/lapacke_dgtsv.c index b89be4668..9efdd73aa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgtsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgtsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgtsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgtsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgtsv_work.c index f9891241b..a230e204e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgtsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgtsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgtsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgtsvx.c b/lapack-netlib/LAPACKE/src/lapacke_dgtsvx.c index add4d8a61..9ad89a712 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgtsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgtsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgtsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgtsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgtsvx_work.c index c9ca734b2..3cbc8f31a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgtsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgtsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgtsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgttrf.c b/lapack-netlib/LAPACKE/src/lapacke_dgttrf.c index 64a71521e..bed952541 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgttrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgttrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgttrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgttrf_work.c index 5daa1cfe9..04b9fe325 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgttrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgttrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgttrs.c b/lapack-netlib/LAPACKE/src/lapacke_dgttrs.c index 1dd61dcea..1e14efca3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgttrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgttrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dgttrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dgttrs_work.c index 174e3f2f5..ca581622e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dgttrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dgttrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dgttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dhgeqz.c b/lapack-netlib/LAPACKE/src/lapacke_dhgeqz.c index d1f355b01..d33359470 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dhgeqz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dhgeqz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dhgeqz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dhgeqz_work.c b/lapack-netlib/LAPACKE/src/lapacke_dhgeqz_work.c index 818f1bde0..dd08080b7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dhgeqz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dhgeqz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dhgeqz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dhsein.c b/lapack-netlib/LAPACKE/src/lapacke_dhsein.c index 182348689..3843701cc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dhsein.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dhsein.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dhsein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dhsein_work.c b/lapack-netlib/LAPACKE/src/lapacke_dhsein_work.c index eb966e422..b234c9740 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dhsein_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dhsein_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dhsein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dhseqr.c b/lapack-netlib/LAPACKE/src/lapacke_dhseqr.c index 9672dc641..736bf3ea0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dhseqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dhseqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dhseqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dhseqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dhseqr_work.c index 540e9a9e2..5bd6de7aa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dhseqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dhseqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dhseqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlacn2.c b/lapack-netlib/LAPACKE/src/lapacke_dlacn2.c index 7f58b237e..6658b5bf1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlacn2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlacn2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dlacn2 * Author: Intel Corporation -* Generated October, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlacn2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlacn2_work.c index 3b015d4e1..0e4cb07b5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlacn2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlacn2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlacn2 * Author: Intel Corporation -* Generated October, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlacpy.c b/lapack-netlib/LAPACKE/src/lapacke_dlacpy.c index 32b5e4bec..8c59e75e0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlacpy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlacpy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlacpy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlacpy_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlacpy_work.c index 88f4489a3..82a76dca3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlacpy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlacpy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlacpy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlag2s.c b/lapack-netlib/LAPACKE/src/lapacke_dlag2s.c index e9f9aef74..e5421b34e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlag2s.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlag2s.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlag2s * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlag2s_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlag2s_work.c index 2cbb580cd..a5ec0383e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlag2s_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlag2s_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlag2s * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlagge.c b/lapack-netlib/LAPACKE/src/lapacke_dlagge.c index 6ca8739ec..5fe0bb578 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlagge.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlagge.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlagge * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlagge_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlagge_work.c index fb98cfc98..ccf3ae9b0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlagge_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlagge_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlagge * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlagsy.c b/lapack-netlib/LAPACKE/src/lapacke_dlagsy.c index 1293fc7d4..b081fd500 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlagsy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlagsy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlagsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlagsy_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlagsy_work.c index df92e291e..d160fcbde 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlagsy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlagsy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlagsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlamch.c b/lapack-netlib/LAPACKE/src/lapacke_dlamch.c index 500e624d1..082886787 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlamch.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlamch.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlamch * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlamch_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlamch_work.c index e5be20b0a..cc57f6e0b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlamch_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlamch_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlamch * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlange.c b/lapack-netlib/LAPACKE/src/lapacke_dlange.c index 0186768e1..30094bd9e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlange.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlange.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlange * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlange_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlange_work.c index 43d48c816..56750bb76 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlange_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlange_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlange * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlansy.c b/lapack-netlib/LAPACKE/src/lapacke_dlansy.c index 931e83f43..4007cc912 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlansy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlansy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlansy * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlansy_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlansy_work.c index b3a6872b8..a370261c3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlansy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlansy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlansy * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlantr.c b/lapack-netlib/LAPACKE/src/lapacke_dlantr.c index ce625c7aa..4d1be93d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlantr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlantr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlantr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlantr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlantr_work.c index 9c9b0ea8b..34fa94c43 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlantr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlantr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlantr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlapmr.c b/lapack-netlib/LAPACKE/src/lapacke_dlapmr.c index 97068bb34..3ccddda2f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlapmr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlapmr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlapmr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlapmr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlapmr_work.c index b287d9813..888649e0b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlapmr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlapmr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlapmr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlapmt.c b/lapack-netlib/LAPACKE/src/lapacke_dlapmt.c index 6c381bc7e..23f3932ff 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlapmt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlapmt.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlapmt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlapmt_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlapmt_work.c index 9cfc79ff4..1eb755785 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlapmt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlapmt_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlapmt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlapy2.c b/lapack-netlib/LAPACKE/src/lapacke_dlapy2.c index 7e9fe72d1..fd8a14593 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlapy2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlapy2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlapy2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlapy2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlapy2_work.c index 61ba740b1..45377c523 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlapy2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlapy2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlapy2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlapy3.c b/lapack-netlib/LAPACKE/src/lapacke_dlapy3.c index 005e59ea4..f1ef9420b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlapy3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlapy3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlapy3 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlapy3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlapy3_work.c index 1bd6dd31d..98a17d366 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlapy3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlapy3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlapy3 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarfb.c b/lapack-netlib/LAPACKE/src/lapacke_dlarfb.c index a1f49dde1..3c3c24c54 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarfb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarfb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlarfb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlarfb_work.c index ef9c70df4..57c53bae3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarfb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarfb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlarfb * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarfg.c b/lapack-netlib/LAPACKE/src/lapacke_dlarfg.c index df401c41d..95cd4d7d3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarfg.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarfg.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlarfg * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarfg_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlarfg_work.c index cd23c0914..eaa49449d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarfg_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarfg_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlarfg * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarft.c b/lapack-netlib/LAPACKE/src/lapacke_dlarft.c index 82cc7272b..a8d8fa6d3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarft.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarft.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlarft * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarft_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlarft_work.c index b8621297f..c430f1bb5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarft_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarft_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlarft * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarfx.c b/lapack-netlib/LAPACKE/src/lapacke_dlarfx.c index 7b7b7201e..18676b4cc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarfx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarfx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlarfx * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarfx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlarfx_work.c index c94c9254e..7345976b8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarfx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarfx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlarfx * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarnv.c b/lapack-netlib/LAPACKE/src/lapacke_dlarnv.c index 8d8254634..004fee2ae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarnv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarnv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlarnv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlarnv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlarnv_work.c index fcb649cb4..e430e52ac 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlarnv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlarnv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlarnv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlartgp.c b/lapack-netlib/LAPACKE/src/lapacke_dlartgp.c index 63913ba75..1ec778e09 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlartgp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlartgp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlartgp * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlartgp_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlartgp_work.c index d66913a9a..ee71072a5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlartgp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlartgp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlartgp * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlartgs.c b/lapack-netlib/LAPACKE/src/lapacke_dlartgs.c index de106cb8d..795164466 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlartgs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlartgs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlartgs * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlartgs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlartgs_work.c index 16ded77eb..1e3f80527 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlartgs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlartgs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlartgs * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlascl.c b/lapack-netlib/LAPACKE/src/lapacke_dlascl.c index 058105127..71a7ef4e4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlascl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlascl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlaswp * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlascl_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlascl_work.c index a20bf09e6..0ab8570b7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlascl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlascl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlaswp * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlaset.c b/lapack-netlib/LAPACKE/src/lapacke_dlaset.c index c286c18be..7de7dac21 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlaset.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlaset.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlaset * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlaset_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlaset_work.c index f1444b5e2..b18cc331c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlaset_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlaset_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlaset * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlasrt.c b/lapack-netlib/LAPACKE/src/lapacke_dlasrt.c index 844343afe..101917a23 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlasrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlasrt.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlasrt * Author: Intel Corporation -* Generated May, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlasrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlasrt_work.c index 715506de5..cce879149 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlasrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlasrt_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlasrt * Author: Intel Corporation -* Generated May, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlassq.c b/lapack-netlib/LAPACKE/src/lapacke_dlassq.c index 0e096b6d4..6bd255804 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlassq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlassq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlassq * Author: Julien langou -* Generated February 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlassq_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlassq_work.c index 9d04bfc86..56a29bcdd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlassq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlassq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlassq * Author: Julien Langou -* Generated February, 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlaswp.c b/lapack-netlib/LAPACKE/src/lapacke_dlaswp.c index bd07b3568..de4e540b5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlaswp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlaswp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlaswp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlaswp_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlaswp_work.c index b2b9c07f5..ac61ce4e8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlaswp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlaswp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlaswp * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlatms.c b/lapack-netlib/LAPACKE/src/lapacke_dlatms.c index a762bd215..a20fedb57 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlatms.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlatms.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlatms * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlatms_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlatms_work.c index 25d874e6d..3f9872246 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlatms_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlatms_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlatms * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlauum.c b/lapack-netlib/LAPACKE/src/lapacke_dlauum.c index d873f046c..8c9c54599 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlauum.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlauum.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlauum * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dlauum_work.c b/lapack-netlib/LAPACKE/src/lapacke_dlauum_work.c index 4b78b50ed..b28543f9c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dlauum_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dlauum_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlauum * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dopgtr.c b/lapack-netlib/LAPACKE/src/lapacke_dopgtr.c index 8d5a32986..74d4b62ff 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dopgtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dopgtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dopgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dopgtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dopgtr_work.c index 18edf9a6e..d5b704447 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dopgtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dopgtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dopgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dopmtr.c b/lapack-netlib/LAPACKE/src/lapacke_dopmtr.c index 7fbfb11fd..9ec15270c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dopmtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dopmtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dopmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dopmtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dopmtr_work.c index 973260dd0..2fa65f2f6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dopmtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dopmtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dopmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorbdb.c b/lapack-netlib/LAPACKE/src/lapacke_dorbdb.c index 82dbdebc8..bd7eaf5d1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorbdb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorbdb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorbdb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorbdb_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorbdb_work.c index febe9d918..6286c3cec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorbdb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorbdb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorbdb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorcsd.c b/lapack-netlib/LAPACKE/src/lapacke_dorcsd.c index a103bf052..26756ff52 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorcsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorcsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorcsd2by1.c b/lapack-netlib/LAPACKE/src/lapacke_dorcsd2by1.c index ec298cee4..213af715b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorcsd2by1.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorcsd2by1.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorcsd2by1 * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorcsd2by1_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorcsd2by1_work.c index 5cc39b1b0..3e8802bcf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorcsd2by1_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorcsd2by1_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorcsd2by1 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorcsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorcsd_work.c index d8f9e1a46..d121f7cd6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorcsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorcsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgbr.c b/lapack-netlib/LAPACKE/src/lapacke_dorgbr.c index 5547c4707..9f001a8cd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgbr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgbr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorgbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgbr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorgbr_work.c index 460cfb9e4..8e5bc130d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgbr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgbr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorgbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorghr.c b/lapack-netlib/LAPACKE/src/lapacke_dorghr.c index 5faaeb194..982f906e8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorghr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorghr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorghr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorghr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorghr_work.c index 8fb110e1e..cca0413d8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorghr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorghr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorghr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorglq.c b/lapack-netlib/LAPACKE/src/lapacke_dorglq.c index 702f0636c..d984ace1a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorglq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorglq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorglq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorglq_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorglq_work.c index a54362035..b69ceddad 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorglq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorglq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorglq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgql.c b/lapack-netlib/LAPACKE/src/lapacke_dorgql.c index 05d4e7fe0..ce8e1177a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgql.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgql.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorgql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgql_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorgql_work.c index d2e093dc6..636d1f682 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgql_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgql_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorgql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgqr.c b/lapack-netlib/LAPACKE/src/lapacke_dorgqr.c index 078062b20..6cbd69901 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorgqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorgqr_work.c index 0d0f8add7..44f6b7ea1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorgqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgrq.c b/lapack-netlib/LAPACKE/src/lapacke_dorgrq.c index 5387672c2..bea1bd6e2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgrq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgrq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorgrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgrq_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorgrq_work.c index 4eb7a8e81..784915f0b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgrq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgrq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorgrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgtr.c b/lapack-netlib/LAPACKE/src/lapacke_dorgtr.c index 587805de6..14e9b5f36 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dorgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dorgtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dorgtr_work.c index d88e0a9e4..709d13125 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dorgtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dorgtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dorgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormbr.c b/lapack-netlib/LAPACKE/src/lapacke_dormbr.c index 9904ec53f..298fce81c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormbr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormbr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dormbr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormbr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dormbr_work.c index d6adc83fe..d7cf78a2d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormbr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormbr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dormbr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormhr.c b/lapack-netlib/LAPACKE/src/lapacke_dormhr.c index 4b9526f14..627b92aa4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormhr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormhr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dormhr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormhr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dormhr_work.c index f16a828db..f158f7161 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormhr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormhr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dormhr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormlq.c b/lapack-netlib/LAPACKE/src/lapacke_dormlq.c index 1e50d18c1..06880747a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormlq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormlq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dormlq * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormlq_work.c b/lapack-netlib/LAPACKE/src/lapacke_dormlq_work.c index a326feffd..6bd12624f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormlq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormlq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dormlq * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormql.c b/lapack-netlib/LAPACKE/src/lapacke_dormql.c index 11e9f07d1..1e4d7efd3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormql.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormql.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dormql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormql_work.c b/lapack-netlib/LAPACKE/src/lapacke_dormql_work.c index 9b535109b..c7336e816 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormql_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormql_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dormql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormqr.c b/lapack-netlib/LAPACKE/src/lapacke_dormqr.c index 99d5a85db..820805ba0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dormqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dormqr_work.c index 540331daf..245577442 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dormqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormrq.c b/lapack-netlib/LAPACKE/src/lapacke_dormrq.c index a1d659860..cfa1deef2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormrq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormrq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dormrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormrq_work.c b/lapack-netlib/LAPACKE/src/lapacke_dormrq_work.c index 51dd662ee..f4372a186 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormrq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormrq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dormrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormrz.c b/lapack-netlib/LAPACKE/src/lapacke_dormrz.c index d1be94461..091248c1c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormrz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormrz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dormrz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormrz_work.c b/lapack-netlib/LAPACKE/src/lapacke_dormrz_work.c index bea1ce43f..c77cb505c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormrz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormrz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dormrz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormtr.c b/lapack-netlib/LAPACKE/src/lapacke_dormtr.c index 0b1c54b9b..56add4b3f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dormtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dormtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dormtr_work.c index 50f8b4979..cb53363d4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dormtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dormtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dormtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbcon.c b/lapack-netlib/LAPACKE/src/lapacke_dpbcon.c index 382f19493..a5ef670e8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpbcon_work.c index 0716d2280..a75a9152d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbequ.c b/lapack-netlib/LAPACKE/src/lapacke_dpbequ.c index 8bc8a9f33..c938b2293 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpbequ_work.c index 126fb7670..9c00aebb0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_dpbrfs.c index 71b1655ed..3c88bfdcf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpbrfs_work.c index 8e9498ec6..df4ec65a1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbstf.c b/lapack-netlib/LAPACKE/src/lapacke_dpbstf.c index b0342cb42..5404aba9e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbstf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbstf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpbstf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbstf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpbstf_work.c index 33014ec4a..d1521a6f5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbstf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbstf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpbstf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbsv.c b/lapack-netlib/LAPACKE/src/lapacke_dpbsv.c index e77bba883..f5daeaefc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpbsv_work.c index 83dbf218c..0d4ba28de 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbsvx.c b/lapack-netlib/LAPACKE/src/lapacke_dpbsvx.c index 0baf50368..60f260597 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpbsvx_work.c index 51731281a..be99b7ad7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbtrf.c b/lapack-netlib/LAPACKE/src/lapacke_dpbtrf.c index 256557fb9..c18992fd8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbtrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbtrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbtrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpbtrf_work.c index 66acad6cf..d1e1bbcb0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbtrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbtrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_dpbtrs.c index f624d2927..de35260c5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpbtrs_work.c index 5da81ae57..a87645a03 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpftrf.c b/lapack-netlib/LAPACKE/src/lapacke_dpftrf.c index 85148ba04..444f4b945 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpftrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpftrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpftrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpftrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpftrf_work.c index 665a5c5e6..289b5ab26 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpftrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpftrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpftrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpftri.c b/lapack-netlib/LAPACKE/src/lapacke_dpftri.c index 5bcdac65f..367b670a6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpftri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpftri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpftri_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpftri_work.c index 3e7e1d3a0..7845489d2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpftri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpftri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpftrs.c b/lapack-netlib/LAPACKE/src/lapacke_dpftrs.c index fef567fa4..3ed945038 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpftrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpftrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpftrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpftrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpftrs_work.c index 0b9e8f469..c5a826d16 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpftrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpftrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpftrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpocon.c b/lapack-netlib/LAPACKE/src/lapacke_dpocon.c index 34ac297bb..faca6f32b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpocon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpocon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpocon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpocon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpocon_work.c index f5b965d06..12537eb06 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpocon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpocon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpocon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpoequ.c b/lapack-netlib/LAPACKE/src/lapacke_dpoequ.c index ba7ad1da3..c31be2139 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpoequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpoequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpoequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpoequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpoequ_work.c index 27b36eda6..f1d1fb743 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpoequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpoequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpoequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpoequb.c b/lapack-netlib/LAPACKE/src/lapacke_dpoequb.c index ce6378b84..661008de7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpoequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpoequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpoequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpoequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpoequb_work.c index 73682b084..c59c251d9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpoequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpoequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpoequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dporfs.c b/lapack-netlib/LAPACKE/src/lapacke_dporfs.c index a2cf8f0b9..b55e84ce6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dporfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dporfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dporfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dporfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dporfs_work.c index ff241c4c6..79e04ce3f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dporfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dporfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dporfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dporfsx.c b/lapack-netlib/LAPACKE/src/lapacke_dporfsx.c index d9674d2ee..2cb74dad1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dporfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dporfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dporfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dporfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dporfsx_work.c index 3d5dd3283..c43dff18a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dporfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dporfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dporfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dposv.c b/lapack-netlib/LAPACKE/src/lapacke_dposv.c index a8602a450..1ca4b4d38 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dposv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dposv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dposv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dposv_work.c index d230ffe7f..afdb6d6ee 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dposv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dposv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dposvx.c b/lapack-netlib/LAPACKE/src/lapacke_dposvx.c index 25ddb42fd..cc2fbc8a8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dposvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dposvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dposvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dposvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dposvx_work.c index 20f9f4209..f5967c5eb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dposvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dposvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dposvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dposvxx.c b/lapack-netlib/LAPACKE/src/lapacke_dposvxx.c index 27fc3ba95..aca5eb1b5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dposvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dposvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dposvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dposvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dposvxx_work.c index 1505b48f9..a14cf72b2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dposvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dposvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dposvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpotrf.c b/lapack-netlib/LAPACKE/src/lapacke_dpotrf.c index e69d39986..6915b607d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpotrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpotrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpotrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpotrf2.c b/lapack-netlib/LAPACKE/src/lapacke_dpotrf2.c index 06390dcad..f3498f987 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpotrf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpotrf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpotrf2 * Author: Intel Corporation -* Generated November, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpotrf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpotrf2_work.c index d8748c762..de5720b6a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpotrf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpotrf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpotrf2 * Author: Intel Corporation -* Generated November, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpotrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpotrf_work.c index 760edb4e6..6bb5cb3a6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpotrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpotrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpotrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpotri.c b/lapack-netlib/LAPACKE/src/lapacke_dpotri.c index 1bacec9a2..41084ab96 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpotri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpotri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpotri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpotri_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpotri_work.c index b02773945..6e84a886a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpotri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpotri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpotri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpotrs.c b/lapack-netlib/LAPACKE/src/lapacke_dpotrs.c index 17fa8c82f..eeb355bd7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpotrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpotrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpotrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpotrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpotrs_work.c index 138e25576..11307f5ed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpotrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpotrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpotrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dppcon.c b/lapack-netlib/LAPACKE/src/lapacke_dppcon.c index 985a705c1..ffe002fa8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dppcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dppcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dppcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dppcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dppcon_work.c index 78abb1a19..09a8e2838 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dppcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dppcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dppcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dppequ.c b/lapack-netlib/LAPACKE/src/lapacke_dppequ.c index f444e7c4c..d9de7cf76 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dppequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dppequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dppequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dppequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_dppequ_work.c index 1e02826df..8b7513c23 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dppequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dppequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dppequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpprfs.c b/lapack-netlib/LAPACKE/src/lapacke_dpprfs.c index 36f1c0c88..e16f25e7a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpprfs_work.c index c7b359dd2..f88877800 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dppsv.c b/lapack-netlib/LAPACKE/src/lapacke_dppsv.c index 90d12728d..ef3dc82a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dppsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dppsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dppsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dppsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dppsv_work.c index 949bcd1a9..4e1ff98b2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dppsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dppsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dppsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dppsvx.c b/lapack-netlib/LAPACKE/src/lapacke_dppsvx.c index c427840aa..a8bf71523 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dppsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dppsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dppsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dppsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dppsvx_work.c index c230e8f28..5eafa8681 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dppsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dppsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dppsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpptrf.c b/lapack-netlib/LAPACKE/src/lapacke_dpptrf.c index 2b5c7a746..777345a8b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpptrf_work.c index 76fcba6f9..ff66fde21 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpptri.c b/lapack-netlib/LAPACKE/src/lapacke_dpptri.c index 06d25947c..e798ae11f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpptri_work.c index ae44af7b6..ca8828188 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpptrs.c b/lapack-netlib/LAPACKE/src/lapacke_dpptrs.c index 9336f39ff..ff6198cd2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpptrs_work.c index 325cd34de..25312dbca 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpstrf.c b/lapack-netlib/LAPACKE/src/lapacke_dpstrf.c index 4c2f6ca56..c153d665a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpstrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpstrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpstrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpstrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpstrf_work.c index 762f0ae1f..fa9a729cd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpstrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpstrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpstrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dptcon.c b/lapack-netlib/LAPACKE/src/lapacke_dptcon.c index 48b49c24a..7279485e9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dptcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dptcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dptcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dptcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dptcon_work.c index 29cf9a2a6..d48767a6d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dptcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dptcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dptcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpteqr.c b/lapack-netlib/LAPACKE/src/lapacke_dpteqr.c index 9f6972486..4ee19366e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpteqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpteqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpteqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpteqr_work.c index 3ee3aab02..902b06baf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpteqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpteqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dptrfs.c b/lapack-netlib/LAPACKE/src/lapacke_dptrfs.c index 3c0c967db..f235dc3d0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dptrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dptrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dptrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dptrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dptrfs_work.c index fca3b0f96..7139876f6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dptrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dptrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dptrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dptsv.c b/lapack-netlib/LAPACKE/src/lapacke_dptsv.c index df309dab2..be1c16cb1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dptsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dptsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dptsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dptsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dptsv_work.c index 43e17e094..92631b3af 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dptsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dptsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dptsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dptsvx.c b/lapack-netlib/LAPACKE/src/lapacke_dptsvx.c index 6d9c030f4..6ce2b5e0f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dptsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dptsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dptsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dptsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dptsvx_work.c index 90f4c19df..1040df224 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dptsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dptsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dptsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpttrf.c b/lapack-netlib/LAPACKE/src/lapacke_dpttrf.c index c48755377..525dff8b3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpttrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpttrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpttrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpttrf_work.c index 1d4120951..e63634206 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpttrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpttrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpttrs.c b/lapack-netlib/LAPACKE/src/lapacke_dpttrs.c index 88a962a0f..375cb0831 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpttrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpttrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dpttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dpttrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dpttrs_work.c index 3d2bcb2c6..c21df1db7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dpttrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dpttrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dpttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbev.c b/lapack-netlib/LAPACKE/src/lapacke_dsbev.c index ac2b05391..2e326c69c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbev_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsbev_2stage.c index 79cd25386..6027a602d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbev_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbev_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbev_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbev_2stage_work.c index a0bfbdd87..e8bf948d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbev_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbev_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbev_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbev_work.c index c37a6daa6..74321ecbb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbevd.c b/lapack-netlib/LAPACKE/src/lapacke_dsbevd.c index 3a9abbbe1..27dd8100a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbevd_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsbevd_2stage.c index 4d42b6208..41e3f3a3a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbevd_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbevd_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbevd_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbevd_2stage_work.c index 915674409..c2c21fb3c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbevd_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbevd_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbevd_work.c index 294180a92..8b96b1ecf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbevx.c b/lapack-netlib/LAPACKE/src/lapacke_dsbevx.c index cd84a0869..b27ba2114 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbevx_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsbevx_2stage.c index 256bf729e..74d88b99d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbevx_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbevx_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbevx_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbevx_2stage_work.c index 49c992213..6750e2acb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbevx_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbevx_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbevx_work.c index c7cda69a7..40457ee4a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbgst.c b/lapack-netlib/LAPACKE/src/lapacke_dsbgst.c index 81002930d..46706d844 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbgst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbgst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbgst_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbgst_work.c index 7a25a8931..0f2efb15e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbgst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbgst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbgv.c b/lapack-netlib/LAPACKE/src/lapacke_dsbgv.c index c313031ab..869697305 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbgv_work.c index 25034368c..c50562dcc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbgvd.c b/lapack-netlib/LAPACKE/src/lapacke_dsbgvd.c index cab2a64bb..05555c89d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbgvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbgvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbgvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbgvd_work.c index 1b3b6fb7c..196027130 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbgvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbgvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbgvx.c b/lapack-netlib/LAPACKE/src/lapacke_dsbgvx.c index 3a28a794c..3217d402c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbgvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbgvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbgvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbgvx_work.c index b2f4d706c..b38143929 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbgvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbgvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbtrd.c b/lapack-netlib/LAPACKE/src/lapacke_dsbtrd.c index c7ad8ce7b..84e84e836 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbtrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbtrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsbtrd * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsbtrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsbtrd_work.c index c9120d113..0d9ed3cfd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsbtrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsbtrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsbtrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsfrk.c b/lapack-netlib/LAPACKE/src/lapacke_dsfrk.c index 603e0931e..4af9a7922 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsfrk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsfrk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsfrk * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsfrk_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsfrk_work.c index 0038f5337..6072648eb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsfrk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsfrk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsfrk * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsgesv.c b/lapack-netlib/LAPACKE/src/lapacke_dsgesv.c index 9d6c39d64..b8e8930ea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsgesv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsgesv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsgesv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsgesv_work.c index 03cc828e2..5eeaffd0f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsgesv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsgesv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspcon.c b/lapack-netlib/LAPACKE/src/lapacke_dspcon.c index 217e5bde7..3b16c513e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspcon_work.c index ab92b9086..be0fc30f2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspev.c b/lapack-netlib/LAPACKE/src/lapacke_dspev.c index c662cfed1..90c165964 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspev_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspev_work.c index afa3bfd4f..f74284bcc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspevd.c b/lapack-netlib/LAPACKE/src/lapacke_dspevd.c index c7d93b6b3..20a0cc813 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspevd_work.c index c544d366c..af34d8b0a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspevx.c b/lapack-netlib/LAPACKE/src/lapacke_dspevx.c index 172976357..05d3cad17 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspevx_work.c index c184e284e..ea902587d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspgst.c b/lapack-netlib/LAPACKE/src/lapacke_dspgst.c index 20ea58a05..9d0e1873b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspgst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspgst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspgst_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspgst_work.c index 281cc7a9b..a58614f83 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspgst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspgst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspgv.c b/lapack-netlib/LAPACKE/src/lapacke_dspgv.c index 818f131ce..df42ce91b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspgv_work.c index c8120a291..689517e70 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspgvd.c b/lapack-netlib/LAPACKE/src/lapacke_dspgvd.c index b49ce95ec..ab6910d1d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspgvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspgvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspgvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspgvd_work.c index 623c5f95f..7a075de3d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspgvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspgvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspgvx.c b/lapack-netlib/LAPACKE/src/lapacke_dspgvx.c index 82a6217e2..eb09e490b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspgvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspgvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspgvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspgvx_work.c index 6e8dbac71..1a6036b1b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspgvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspgvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsposv.c b/lapack-netlib/LAPACKE/src/lapacke_dsposv.c index 68ad48b6e..f58944436 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsposv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsposv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsposv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsposv_work.c index e7d5dbcdc..66bbb1052 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsposv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsposv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsprfs.c b/lapack-netlib/LAPACKE/src/lapacke_dsprfs.c index ef0feee6a..14a2acf07 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsprfs_work.c index df1d13b37..ce6e9c557 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspsv.c b/lapack-netlib/LAPACKE/src/lapacke_dspsv.c index 48d94c44b..73606a602 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspsv_work.c index ef0b787b8..3878c651e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspsvx.c b/lapack-netlib/LAPACKE/src/lapacke_dspsvx.c index 6e2d9a481..6c0fef775 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dspsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dspsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dspsvx_work.c index fad5003d8..dfd1dde26 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dspsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dspsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dspsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsptrd.c b/lapack-netlib/LAPACKE/src/lapacke_dsptrd.c index 232f33f65..56941f116 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsptrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsptrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsptrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsptrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsptrd_work.c index e8846c042..28b9fc032 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsptrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsptrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsptrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsptrf.c b/lapack-netlib/LAPACKE/src/lapacke_dsptrf.c index 9c3a89813..01b9c5a6d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsptrf_work.c index f8b04f74b..c4446492f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsptri.c b/lapack-netlib/LAPACKE/src/lapacke_dsptri.c index 728e0b854..7817a0d9e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsptri_work.c index 2f8923e4a..5fcef36e7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsptrs.c b/lapack-netlib/LAPACKE/src/lapacke_dsptrs.c index 1d7f313ca..d8f2db1c4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsptrs_work.c index e33802061..4d21200d5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstebz.c b/lapack-netlib/LAPACKE/src/lapacke_dstebz.c index 011770be7..6616c5b2e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstebz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstebz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dstebz * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstebz_work.c b/lapack-netlib/LAPACKE/src/lapacke_dstebz_work.c index 12e16c635..0861b9d84 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstebz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstebz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dstebz * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstedc.c b/lapack-netlib/LAPACKE/src/lapacke_dstedc.c index 16e308450..29ef80656 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstedc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstedc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dstedc * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstedc_work.c b/lapack-netlib/LAPACKE/src/lapacke_dstedc_work.c index 6788375b4..e197899c1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstedc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstedc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dstedc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstegr.c b/lapack-netlib/LAPACKE/src/lapacke_dstegr.c index 7e4f9d694..50871aaff 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstegr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstegr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dstegr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstegr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dstegr_work.c index 4e7f317d3..320f162e1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstegr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstegr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dstegr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstein.c b/lapack-netlib/LAPACKE/src/lapacke_dstein.c index 44479939b..bddfa2ae4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstein.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstein.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dstein * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstein_work.c b/lapack-netlib/LAPACKE/src/lapacke_dstein_work.c index ab8964432..a1e2779fc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstein_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstein_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dstein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstemr.c b/lapack-netlib/LAPACKE/src/lapacke_dstemr.c index 1a3b0ac7b..a56a36f7b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstemr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstemr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dstemr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstemr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dstemr_work.c index 6a25fefc6..560721b7d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstemr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstemr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dstemr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsteqr.c b/lapack-netlib/LAPACKE/src/lapacke_dsteqr.c index 8984fdf90..fb2c4e846 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsteqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsteqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsteqr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsteqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsteqr_work.c index c98ba0fbb..ae61a378e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsteqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsteqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsterf.c b/lapack-netlib/LAPACKE/src/lapacke_dsterf.c index 35537278d..1dd5a3c8f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsterf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsterf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsterf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsterf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsterf_work.c index b405fbb71..390f5a579 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsterf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsterf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsterf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstev.c b/lapack-netlib/LAPACKE/src/lapacke_dstev.c index 6811d578f..90c111be5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dstev * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstev_work.c b/lapack-netlib/LAPACKE/src/lapacke_dstev_work.c index 7047361ae..a71a0ea7e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dstev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstevd.c b/lapack-netlib/LAPACKE/src/lapacke_dstevd.c index 251a2ae2e..bb5435fa0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dstevd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dstevd_work.c index c09440608..da9577abe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dstevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstevr.c b/lapack-netlib/LAPACKE/src/lapacke_dstevr.c index d49e0ff1c..b745ce75d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstevr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstevr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dstevr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstevr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dstevr_work.c index dc81c37d0..150522620 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstevr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstevr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dstevr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstevx.c b/lapack-netlib/LAPACKE/src/lapacke_dstevx.c index 9c89f9467..1b0219dab 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dstevx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dstevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dstevx_work.c index dff7f6b8c..6e8391758 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dstevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dstevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dstevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsycon.c b/lapack-netlib/LAPACKE/src/lapacke_dsycon.c index ba68bf796..6ffc01b2c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsycon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsycon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsycon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsycon_3.c b/lapack-netlib/LAPACKE/src/lapacke_dsycon_3.c index f846bb408..0ffd22680 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsycon_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsycon_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsycon_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsycon_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsycon_3_work.c index e4e2d29f7..fedc94cec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsycon_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsycon_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsycon_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsycon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsycon_work.c index fa4e85dc5..11400648c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsycon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsycon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsycon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyconv.c b/lapack-netlib/LAPACKE/src/lapacke_dsyconv.c index 36ff7c40c..a1b63f1f0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyconv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyconv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyconv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyconv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyconv_work.c index 05e812462..4c3e094dd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyconv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyconv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyconv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyequb.c b/lapack-netlib/LAPACKE/src/lapacke_dsyequb.c index cfa045285..80fcad473 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyequb_work.c index b4a6f7d52..18dcf9c4c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyev.c b/lapack-netlib/LAPACKE/src/lapacke_dsyev.c index baac99481..33c9710f4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyev_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsyev_2stage.c index 8d168990e..ce8b7bbcc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyev_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyev_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyev_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyev_2stage_work.c index f103de915..a50254d4a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyev_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyev_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyev_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyev_work.c index 78f9e80ed..343135eea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevd.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevd.c index d6772ea01..1c128f8c7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevd_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevd_2stage.c index e866451a5..c720f197a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevd_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevd_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevd_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevd_2stage_work.c index d68989aa6..4fce77a66 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevd_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevd_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevd_work.c index 25d075d46..c3cc755b1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevr.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevr.c index 290ae0bd4..8fba691d6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyevr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevr_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevr_2stage.c index 7ee7dbc0b..abd85b8cc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevr_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevr_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyevr_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevr_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevr_2stage_work.c index 3ba0f3df2..0e055c1c8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevr_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevr_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyevr_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevr_work.c index f3e3ea675..12c356f28 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyevr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevx.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevx.c index 13980e109..39e2b921f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevx_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevx_2stage.c index caaff5a98..904089295 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevx_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevx_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevx_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevx_2stage_work.c index 76b3a85e5..ea00282c1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevx_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevx_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyevx_work.c index f4ded1df1..7d94a0895 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyevx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygst.c b/lapack-netlib/LAPACKE/src/lapacke_dsygst.c index 69b90e758..128a9a2ac 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsygst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygst_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsygst_work.c index 434e8a8cc..e85b641f0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsygst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygv.c b/lapack-netlib/LAPACKE/src/lapacke_dsygv.c index 4ece69794..c989bdac2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsygv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygv_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsygv_2stage.c index 0016a7d06..4bcacd306 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygv_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygv_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsygv_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygv_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsygv_2stage_work.c index cc2225524..5f6b62023 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygv_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygv_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsygv_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsygv_work.c index ee4efce60..7ccefa451 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsygv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygvd.c b/lapack-netlib/LAPACKE/src/lapacke_dsygvd.c index 0db0cfa67..d40c4a1c4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsygvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsygvd_work.c index 9d551f87c..d49ed790b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsygvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygvx.c b/lapack-netlib/LAPACKE/src/lapacke_dsygvx.c index 54fa6ff36..9396d5a09 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsygvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsygvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsygvx_work.c index b0829c975..91a8d9822 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsygvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsygvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsygvx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyrfs.c b/lapack-netlib/LAPACKE/src/lapacke_dsyrfs.c index 78fce7766..c63c9c5ce 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyrfs_work.c index a5a7f1cfb..573087b36 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyrfsx.c b/lapack-netlib/LAPACKE/src/lapacke_dsyrfsx.c index 63d4c68fa..b0590d60c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyrfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyrfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyrfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyrfsx_work.c index 6d4a3f92d..1e2ba0e57 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyrfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyrfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv.c index ca8347f0b..0ef7fbc6c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsysv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa.c index 114794b78..1197d03fb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsysv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_2stage.c index 54a3788d7..95222b0e7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsysv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_2stage_work.c index d74e1ce42..9e421361a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsysv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_work.c index 6509a8100..8054b0128 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsysv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv_rk.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv_rk.c index df34aba62..2a6303049 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsysv_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv_rk_work.c index e712f5863..f8e41d6dd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsysv_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv_rook.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv_rook.c index 266cc53a8..843d10b9f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv_rook.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dsysv_rook * Author: Intel Corporation -* Generated January, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv_rook_work.c index 4553e9dc6..9d6d10f02 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv_rook_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsysv_rook * Author: Intel Corporation -* Generated January, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysv_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsysv_work.c index a06186b66..2b1f42f51 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsysv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysvx.c b/lapack-netlib/LAPACKE/src/lapacke_dsysvx.c index e2853508f..8695bd677 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsysvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsysvx_work.c index ef8d27eaf..625f7f31a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsysvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysvxx.c b/lapack-netlib/LAPACKE/src/lapacke_dsysvxx.c index d4edaf4b4..81124a54c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsysvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsysvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsysvxx_work.c index b852f558a..722d9dea1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsysvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsysvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsysvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyswapr.c b/lapack-netlib/LAPACKE/src/lapacke_dsyswapr.c index 02fa6befe..5da8ac7ff 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyswapr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyswapr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsyswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsyswapr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsyswapr_work.c index 150480325..32d5c8682 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsyswapr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsyswapr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsyswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrd.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrd.c index 40a704c88..b4f09ea46 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrd_work.c index 88c581619..a501ec7fd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf.c index d6bcaa693..1c452236f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa.c index 046621dab..17eb31b80 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_2stage.c index 82e733562..ec153d176 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrf_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_2stage_work.c index dbd6e9049..77a594073 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrf_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_work.c index e72bfa6de..f479afc7e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rk.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rk.c index a2d433c62..30639d47f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrf_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rk_work.c index 0dc62630c..74eeabbc3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrf_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rook.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rook.c index 197141741..5ef77738f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rook_work.c index 6d853a60a..53536523a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_work.c index 6ba90fb9d..b6788f76b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytri.c b/lapack-netlib/LAPACKE/src/lapacke_dsytri.c index fcda55d03..2175cfaf5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytri2.c b/lapack-netlib/LAPACKE/src/lapacke_dsytri2.c index 1c5662cda..3ac3f73ad 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytri2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytri2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytri2 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytri2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytri2_work.c index 1f7f9088f..29881c0c2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytri2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytri2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytri2 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytri2x.c b/lapack-netlib/LAPACKE/src/lapacke_dsytri2x.c index bdf639576..d32282388 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytri2x.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytri2x.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytri2x_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytri2x_work.c index 2d24b8270..ae6e70fda 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytri2x_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytri2x_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytri_3.c b/lapack-netlib/LAPACKE/src/lapacke_dsytri_3.c index acf2c5542..d71e920c1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytri_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytri_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytri_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytri_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytri_3_work.c index 4d2c78b0c..7c2e83163 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytri_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytri_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytri_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytri_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytri_work.c index 6d2fda7f3..c8749f9cc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs.c index b2a0149cd..34df6d777 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs2.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs2.c index 46c90190f..7b653b2ed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs2_work.c index c937c39c5..b1af18ea3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_3.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_3.c index a701b9536..34d32831d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrs_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_3_work.c index ba92e4522..cd8b79b94 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrs_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa.c index 2d3c5a371..545d9efcd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrs_aa * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_2stage.c index 49411d0fa..95e4f04ec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrs_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_2stage_work.c index 9d76d0a7c..294e3f36d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrs_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_work.c index 6b266e084..d259690fc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_rook.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_rook.c index 42002a5f6..e086a46cd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dsytrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_rook_work.c index 8270b74cf..b3ffd24bd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_work.c index 28682aa59..fe0125dcc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dsytrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dsytrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dsytrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtbcon.c b/lapack-netlib/LAPACKE/src/lapacke_dtbcon.c index fbcf42bd8..e7effad59 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtbcon_work.c index 9d5cedc81..03043580f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_dtbrfs.c index 719e2385b..69f074b2a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtbrfs_work.c index 84cb2be9e..6eef42d0d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_dtbtrs.c index f868e18d9..87b8d2d91 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtbtrs_work.c index 5d00dc636..f5e5e313a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtfsm.c b/lapack-netlib/LAPACKE/src/lapacke_dtfsm.c index 4c9896beb..7b655e6cb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtfsm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtfsm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtfsm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtfsm_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtfsm_work.c index eaa4cd892..7d12cf890 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtfsm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtfsm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtfsm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtftri.c b/lapack-netlib/LAPACKE/src/lapacke_dtftri.c index fbe7a9eec..1db80b6e7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtftri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtftri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtftri_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtftri_work.c index 580144808..66150897c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtftri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtftri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtfttp.c b/lapack-netlib/LAPACKE/src/lapacke_dtfttp.c index 2b8822960..fafc376f3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtfttp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtfttp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtfttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtfttp_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtfttp_work.c index 382f1129d..a8cf680e8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtfttp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtfttp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtfttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtfttr.c b/lapack-netlib/LAPACKE/src/lapacke_dtfttr.c index 748b31f5d..39333cceb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtfttr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtfttr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtfttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtfttr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtfttr_work.c index c36701cc3..b12aae0b0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtfttr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtfttr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtfttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgevc.c b/lapack-netlib/LAPACKE/src/lapacke_dtgevc.c index c59583100..f70abfb4b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgevc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgevc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtgevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgevc_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtgevc_work.c index ea2acc8f1..ef4a53845 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgevc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgevc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtgevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgexc.c b/lapack-netlib/LAPACKE/src/lapacke_dtgexc.c index b5ceb6d6e..6f09f9eb7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgexc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgexc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtgexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgexc_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtgexc_work.c index d6719ee4f..6756d5e60 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgexc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgexc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtgexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgsen.c b/lapack-netlib/LAPACKE/src/lapacke_dtgsen.c index baa63abe7..11496c1c0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgsen.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgsen.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtgsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgsen_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtgsen_work.c index c19f30c40..a8b68763e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgsen_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgsen_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtgsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgsja.c b/lapack-netlib/LAPACKE/src/lapacke_dtgsja.c index 7cc8cf950..7709fb954 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgsja.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgsja.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtgsja * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgsja_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtgsja_work.c index 5f407f318..3a4bda657 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgsja_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgsja_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtgsja * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgsna.c b/lapack-netlib/LAPACKE/src/lapacke_dtgsna.c index 1dda79c76..e47100422 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgsna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgsna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtgsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgsna_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtgsna_work.c index f8f1aa951..6b549d00e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgsna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgsna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtgsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgsyl.c b/lapack-netlib/LAPACKE/src/lapacke_dtgsyl.c index feacd3b44..42ad6991c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgsyl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgsyl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtgsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtgsyl_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtgsyl_work.c index 2cfd60be7..1f7b07e8d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtgsyl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtgsyl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtgsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpcon.c b/lapack-netlib/LAPACKE/src/lapacke_dtpcon.c index 67cedacde..28884fe76 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtpcon_work.c index 3693061b4..6c8754794 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpmqrt.c b/lapack-netlib/LAPACKE/src/lapacke_dtpmqrt.c index 0b00dccf4..b78da024b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpmqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpmqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dtpmqrt * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpmqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtpmqrt_work.c index 91826ea9c..d9ee6226b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpmqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpmqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtpmqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpqrt.c b/lapack-netlib/LAPACKE/src/lapacke_dtpqrt.c index 99b764c65..992e17993 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dtpqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpqrt2.c b/lapack-netlib/LAPACKE/src/lapacke_dtpqrt2.c index 299089e62..d68e1102c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpqrt2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpqrt2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dtpqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpqrt2_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtpqrt2_work.c index a696487f6..5a36c475b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpqrt2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpqrt2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtpqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtpqrt_work.c index c578fa516..c522f3aa7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtpqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtprfb.c b/lapack-netlib/LAPACKE/src/lapacke_dtprfb.c index 11031b9bb..b854d5b88 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtprfb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtprfb.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function dtprfb * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtprfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtprfb_work.c index 2c3d64af1..e4be90204 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtprfb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtprfb_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtprfb * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtprfs.c b/lapack-netlib/LAPACKE/src/lapacke_dtprfs.c index 43a13215e..d44d9d8d1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtprfs_work.c index 028bf5f34..26b001117 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtptri.c b/lapack-netlib/LAPACKE/src/lapacke_dtptri.c index 4e84c5712..1a0732551 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtptri_work.c index 207a76b64..ef158b453 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtptrs.c b/lapack-netlib/LAPACKE/src/lapacke_dtptrs.c index 2b804b89e..4187f2fa8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtptrs_work.c index b20c039c5..f458e9244 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpttf.c b/lapack-netlib/LAPACKE/src/lapacke_dtpttf.c index df2ae2c5d..f9484ef30 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpttf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpttf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtpttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpttf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtpttf_work.c index 9251593c7..9ad0c4c76 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpttf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpttf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtpttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpttr.c b/lapack-netlib/LAPACKE/src/lapacke_dtpttr.c index 11194dfb6..1359dee06 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpttr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpttr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtpttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtpttr_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtpttr_work.c index 0adf200ec..610cc58d6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtpttr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtpttr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtpttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrcon.c b/lapack-netlib/LAPACKE/src/lapacke_dtrcon.c index 421d17d26..b24705f36 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrcon_work.c index 9dde7de16..b77869b0d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrevc.c b/lapack-netlib/LAPACKE/src/lapacke_dtrevc.c index a76e3b4af..5e7e6c130 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrevc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrevc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrevc_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrevc_work.c index dfafeea8c..924e4382a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrevc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrevc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrexc.c b/lapack-netlib/LAPACKE/src/lapacke_dtrexc.c index 4808a7577..33c163202 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrexc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrexc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrexc_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrexc_work.c index 9b68fb5f6..2b2dc2586 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrexc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrexc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrexc * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrrfs.c b/lapack-netlib/LAPACKE/src/lapacke_dtrrfs.c index 9c651fe45..ce32f82d9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrrfs_work.c index 1e696cf1d..9cbfe342e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrsen.c b/lapack-netlib/LAPACKE/src/lapacke_dtrsen.c index 67932fd98..255ea34ea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrsen.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrsen.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrsen_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrsen_work.c index b506d35ad..98ac743b9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrsen_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrsen_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrsna.c b/lapack-netlib/LAPACKE/src/lapacke_dtrsna.c index b7e710e9b..98ef3279d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrsna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrsna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrsna_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrsna_work.c index 9b8511f10..bb7723fa7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrsna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrsna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrsyl.c b/lapack-netlib/LAPACKE/src/lapacke_dtrsyl.c index 3fe0813bf..5652f2846 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrsyl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrsyl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrsyl_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrsyl_work.c index caa804a06..f61331245 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrsyl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrsyl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrtri.c b/lapack-netlib/LAPACKE/src/lapacke_dtrtri.c index cdb92a638..a4cc52162 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrtri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrtri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrtri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrtri_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrtri_work.c index 338dc1e18..520b68c86 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrtri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrtri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrtri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrtrs.c b/lapack-netlib/LAPACKE/src/lapacke_dtrtrs.c index ae75b0209..f035927b8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrtrs_work.c index 3e4399ab8..41675e505 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrttf.c b/lapack-netlib/LAPACKE/src/lapacke_dtrttf.c index de379a970..79deb0277 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrttf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrttf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrttf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrttf_work.c index ec0dea328..7404ebe17 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrttf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrttf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrttp.c b/lapack-netlib/LAPACKE/src/lapacke_dtrttp.c index d17593471..5f6ddbcdc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrttp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrttp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtrttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtrttp_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtrttp_work.c index 41c678801..6a1fe6fae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtrttp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtrttp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtrttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtzrzf.c b/lapack-netlib/LAPACKE/src/lapacke_dtzrzf.c index 60ed28e08..769c57139 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtzrzf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtzrzf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dtzrzf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_dtzrzf_work.c b/lapack-netlib/LAPACKE/src/lapacke_dtzrzf_work.c index 2c99ce730..e59826ec2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_dtzrzf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_dtzrzf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dtzrzf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ilaver.c b/lapack-netlib/LAPACKE/src/lapacke_ilaver.c index 86e6e490f..b37c5c8a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ilaver.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ilaver.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dgesv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_nancheck.c b/lapack-netlib/LAPACKE/src/lapacke_nancheck.c index c63e8e84b..c7d5c33f1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_nancheck.c +++ b/lapack-netlib/LAPACKE/src/lapacke_nancheck.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native C interface to control NaN checking * Author: Intel Corporation -* Generated July, 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sbbcsd.c b/lapack-netlib/LAPACKE/src/lapacke_sbbcsd.c index 54bc045be..cee19a917 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sbbcsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sbbcsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sbbcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sbbcsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sbbcsd_work.c index 41312b9d9..9ffc3a0dd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sbbcsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sbbcsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sbbcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sbdsdc.c b/lapack-netlib/LAPACKE/src/lapacke_sbdsdc.c index cd0318206..3f475b6d3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sbdsdc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sbdsdc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sbdsdc * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sbdsdc_work.c b/lapack-netlib/LAPACKE/src/lapacke_sbdsdc_work.c index 95c9e8449..b05587f2b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sbdsdc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sbdsdc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sbdsdc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sbdsqr.c b/lapack-netlib/LAPACKE/src/lapacke_sbdsqr.c index 8ff181ca3..060da1744 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sbdsqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sbdsqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sbdsqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sbdsqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sbdsqr_work.c index 9113d4a10..9d3dfdb06 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sbdsqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sbdsqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sbdsqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sbdsvdx.c b/lapack-netlib/LAPACKE/src/lapacke_sbdsvdx.c index 575c2b159..c46fa3d55 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sbdsvdx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sbdsvdx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sbdsvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sbdsvdx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sbdsvdx_work.c index 69d970b7b..bb7096788 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sbdsvdx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sbdsvdx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sbdsvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sdisna.c b/lapack-netlib/LAPACKE/src/lapacke_sdisna.c index 84b4914b2..10552fd53 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sdisna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sdisna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sdisna * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sdisna_work.c b/lapack-netlib/LAPACKE/src/lapacke_sdisna_work.c index 48a83930e..e6bd6cb6c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sdisna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sdisna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sdisna * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbbrd.c b/lapack-netlib/LAPACKE/src/lapacke_sgbbrd.c index 0963c774f..97907b114 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbbrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbbrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbbrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbbrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbbrd_work.c index 0af6e7276..9b6640b35 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbbrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbbrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbbrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbcon.c b/lapack-netlib/LAPACKE/src/lapacke_sgbcon.c index f5e251027..e3038ccf8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbcon_work.c index fd657eb01..6d42685b2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbequ.c b/lapack-netlib/LAPACKE/src/lapacke_sgbequ.c index 4c02db84d..74ee036a1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbequ_work.c index 209ba44e9..674a803ee 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbequb.c b/lapack-netlib/LAPACKE/src/lapacke_sgbequb.c index 2210e5138..e2d8eb803 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbequb_work.c index 0d15cd25a..1fa181b44 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_sgbrfs.c index ce35b1318..238fed38c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbrfs_work.c index f96205355..1a386693d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbrfsx.c b/lapack-netlib/LAPACKE/src/lapacke_sgbrfsx.c index 02f786bbf..d2177f766 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbrfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbrfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbrfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbrfsx_work.c index 82150afde..a7db63e4b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbrfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbrfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbsv.c b/lapack-netlib/LAPACKE/src/lapacke_sgbsv.c index c7375ec39..d8df16eb1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbsv_work.c index 891427e46..2d41abf21 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbsvx.c b/lapack-netlib/LAPACKE/src/lapacke_sgbsvx.c index 6b667d240..95b3694a9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbsvx_work.c index e985a5592..261311790 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbsvxx.c b/lapack-netlib/LAPACKE/src/lapacke_sgbsvxx.c index 3264a1d12..e9d8a6251 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbsvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbsvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbsvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbsvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbsvxx_work.c index 7c95640f5..9b62a2136 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbsvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbsvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbsvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbtrf.c b/lapack-netlib/LAPACKE/src/lapacke_sgbtrf.c index 8752144a0..d6e341521 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbtrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbtrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbtrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbtrf_work.c index 06499ff94..da489148c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbtrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbtrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_sgbtrs.c index ecaa459ea..4e4bb284f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgbtrs_work.c index cde79430a..d60177a17 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgebak.c b/lapack-netlib/LAPACKE/src/lapacke_sgebak.c index d4c507ea0..14973b7a8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgebak.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgebak.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgebak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgebak_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgebak_work.c index 1357dd3b9..7bf021513 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgebak_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgebak_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgebak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgebal.c b/lapack-netlib/LAPACKE/src/lapacke_sgebal.c index 10e3ff16b..be92e0e2b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgebal.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgebal.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgebal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgebal_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgebal_work.c index 4e0c578cf..ddb430948 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgebal_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgebal_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgebal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgebrd.c b/lapack-netlib/LAPACKE/src/lapacke_sgebrd.c index 422bb5e9a..9f3152241 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgebrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgebrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgebrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgebrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgebrd_work.c index d4f179879..323acc713 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgebrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgebrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgebrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgecon.c b/lapack-netlib/LAPACKE/src/lapacke_sgecon.c index 78426f9d0..81bada83e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgecon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgecon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgecon_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgecon_work.c index 1894a195e..77d3c0491 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgecon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgecon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeequ.c b/lapack-netlib/LAPACKE/src/lapacke_sgeequ.c index 75095e9ad..9395639c1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeequ_work.c index c0658f7cc..b501d6e73 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeequb.c b/lapack-netlib/LAPACKE/src/lapacke_sgeequb.c index d98cce32d..10fbf2a1c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeequb_work.c index 233d00755..118848ad8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgees.c b/lapack-netlib/LAPACKE/src/lapacke_sgees.c index f87005afc..28bdcb1ff 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgees.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgees.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgees * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgees_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgees_work.c index 46fd60d23..afcd5c67e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgees_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgees_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgees * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeesx.c b/lapack-netlib/LAPACKE/src/lapacke_sgeesx.c index 0bc14b33e..f7be44297 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeesx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeesx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeesx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeesx_work.c index 03b2cbbd3..589a8a5b3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeesx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeesx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeev.c b/lapack-netlib/LAPACKE/src/lapacke_sgeev.c index fe79121f5..d8fb0bb52 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeev_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeev_work.c index 80bc9da37..0f5a8e004 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeevx.c b/lapack-netlib/LAPACKE/src/lapacke_sgeevx.c index 732328fc0..89f955bf3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeevx_work.c index e549d8eea..d05ea16e9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgehrd.c b/lapack-netlib/LAPACKE/src/lapacke_sgehrd.c index b073abbd7..838c7a587 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgehrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgehrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgehrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgehrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgehrd_work.c index 9502f4d1f..127307da8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgehrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgehrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgehrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgejsv.c b/lapack-netlib/LAPACKE/src/lapacke_sgejsv.c index 0703e902f..2138751b9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgejsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgejsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgejsv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgejsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgejsv_work.c index 559256276..1c5ed064e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgejsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgejsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgejsv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelq.c b/lapack-netlib/LAPACKE/src/lapacke_sgelq.c index d0c14d494..5228a8072 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgelq * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelq2.c b/lapack-netlib/LAPACKE/src/lapacke_sgelq2.c index 90da3a6c3..9b4d8dafd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelq2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelq2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgelq2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelq2_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgelq2_work.c index e50a3553b..8f7d4fb4f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelq2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelq2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgelq2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelq_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgelq_work.c index 5770acd47..0cd356f4a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgelq * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelqf.c b/lapack-netlib/LAPACKE/src/lapacke_sgelqf.c index a017001ba..cdbb47a98 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgelqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgelqf_work.c index ea49714c2..f93abf355 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgelqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgels.c b/lapack-netlib/LAPACKE/src/lapacke_sgels.c index f9cac6c5b..9002b9551 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgels.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgels.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgels * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgels_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgels_work.c index 876875340..7ae2caa05 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgels_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgels_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgels * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelsd.c b/lapack-netlib/LAPACKE/src/lapacke_sgelsd.c index 9d00ded10..7023c3467 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgelsd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgelsd_work.c index 276e07b0c..edc7562d0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgelsd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelss.c b/lapack-netlib/LAPACKE/src/lapacke_sgelss.c index 8b9eff322..73f5809c1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelss.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelss.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgelss * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelss_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgelss_work.c index ef66cbec3..e747d5896 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelss_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelss_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgelss * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelsy.c b/lapack-netlib/LAPACKE/src/lapacke_sgelsy.c index 435b76ecb..8785996ae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelsy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelsy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgelsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgelsy_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgelsy_work.c index 1d0fe7085..a6c207398 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgelsy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgelsy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgelsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgemlq.c b/lapack-netlib/LAPACKE/src/lapacke_sgemlq.c index 708b04fde..6677ae970 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgemlq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgemlq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgemlq * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgemlq_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgemlq_work.c index 9931ec133..d63d4efe8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgemlq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgemlq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgemlq * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgemqr.c b/lapack-netlib/LAPACKE/src/lapacke_sgemqr.c index 1eb7b75be..ceeac349a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgemqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgemqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgemqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgemqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgemqr_work.c index d41b500c0..d05c42976 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgemqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgemqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgemqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgemqrt.c b/lapack-netlib/LAPACKE/src/lapacke_sgemqrt.c index 0745bbfba..79685c8cc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgemqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgemqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function sgemqrt * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgemqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgemqrt_work.c index 07be64a1e..a1aac6a5a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgemqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgemqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgemqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqlf.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqlf.c index 2881981c3..3418461fe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqlf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqlf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqlf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqlf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqlf_work.c index e300a1a62..7892dd23b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqlf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqlf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqlf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqp3.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqp3.c index c35c4b898..e9a238239 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqp3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqp3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqp3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqp3_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqp3_work.c index 4038a2cfc..65281a3b1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqp3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqp3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqp3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqpf.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqpf.c index 65a06a809..4a70cee5c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqpf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqpf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqpf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqpf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqpf_work.c index 6ff9bc0a8..3d5219019 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqpf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqpf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqpf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqr.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqr.c index 5606f3ed7..d3876420b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqr2.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqr2.c index 5c044f56f..5f125b170 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqr2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqr2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqr2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqr2_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqr2_work.c index ee2d51387..3ac4d12b3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqr2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqr2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqr2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqr_work.c index 21c222a95..4951b90f4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrf.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrf.c index 17929fc28..9f295d9bb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrf_work.c index 5a1e592be..5df36005b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrfp.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrfp.c index 39901fdbe..25a05f70b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrfp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrfp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqrfp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrfp_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrfp_work.c index 186062168..ae8fe0586 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrfp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrfp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqrfp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt.c index 04997cda5..d8f0c1d65 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt2.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt2.c index a46d0d07f..9f4910695 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt2_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt2_work.c index 57c426050..3c204620f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt3.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt3.c index 7722d6283..32cce825b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt3.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function sgeqrt3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt3_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt3_work.c index c9b009aaa..7950df25e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt3_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqrt3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt_work.c index 0656c9e6a..00ca6e501 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgeqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgeqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgeqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgerfs.c b/lapack-netlib/LAPACKE/src/lapacke_sgerfs.c index 73c7a023e..8cd3aaa83 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgerfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgerfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgerfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgerfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgerfs_work.c index 6442f3f9d..a9a462f76 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgerfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgerfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgerfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgerfsx.c b/lapack-netlib/LAPACKE/src/lapacke_sgerfsx.c index bf0bd74b1..e6203ed51 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgerfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgerfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgerfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgerfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgerfsx_work.c index e42cc4c5d..7e2148606 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgerfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgerfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgerfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgerqf.c b/lapack-netlib/LAPACKE/src/lapacke_sgerqf.c index c6de00616..b82649a0a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgerqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgerqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgerqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgerqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgerqf_work.c index f8fdf0560..a5cd48707 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgerqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgerqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgerqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesdd.c b/lapack-netlib/LAPACKE/src/lapacke_sgesdd.c index 1c555411e..bbefdad38 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesdd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesdd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgesdd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesdd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgesdd_work.c index 9286abb7a..b6619e38b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesdd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesdd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgesdd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesv.c b/lapack-netlib/LAPACKE/src/lapacke_sgesv.c index 0ef406ea8..1a905db17 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesv_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgesv_work.c index 3fb1a6137..62a395334 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvd.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvd.c index bf401ddb2..ffe88ff2a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgesvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvd_work.c index 941d83cad..c764333ed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgesvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvdq.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvdq.c index 5ff543d10..0b6406dec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvdq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvdq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgesvdq * Author: Intel Corporation -* Generated November 2018 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvdq_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvdq_work.c index 9eab982c2..b65bd9abf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvdq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvdq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgesvdq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvdx.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvdx.c index e6d2a7dda..432f56944 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvdx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvdx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgesvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvdx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvdx_work.c index 8f4739d56..feed435e0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvdx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvdx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgesvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvj.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvj.c index f1b48a02d..ba61c166b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvj.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvj.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgesvj * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvj_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvj_work.c index add5e60da..50a03839d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvj_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvj_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgesvj * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvx.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvx.c index 34203df72..0792ba73b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvx_work.c index e5e9fdf84..74fa4a2f6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvxx.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvxx.c index a064dd9d0..418f450d3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgesvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgesvxx_work.c index 6ffa35e90..66ea83345 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgesvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgesvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetf2.c b/lapack-netlib/LAPACKE/src/lapacke_sgetf2.c index dbfeb9fe9..249aad026 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgetf2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgetf2_work.c index fd5a704f9..90e1a398c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgetf2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetrf.c b/lapack-netlib/LAPACKE/src/lapacke_sgetrf.c index 4b97ea1f7..992d0d44d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetrf2.c b/lapack-netlib/LAPACKE/src/lapacke_sgetrf2.c index 81d487b32..f320b22db 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetrf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetrf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgetrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetrf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgetrf2_work.c index 8b557f18e..502ab6676 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetrf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetrf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgetrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgetrf_work.c index 51a4865f2..6d2424439 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetri.c b/lapack-netlib/LAPACKE/src/lapacke_sgetri.c index d62221d54..128bf92a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetri_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgetri_work.c index 7466525ca..b1f1d18cb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetrs.c b/lapack-netlib/LAPACKE/src/lapacke_sgetrs.c index bedd4653a..20595db6d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgetrs_work.c index 68d274788..0917f344d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetsls.c b/lapack-netlib/LAPACKE/src/lapacke_sgetsls.c index 4ee7eeed5..72be1c7ee 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetsls.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetsls.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgetsls * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgetsls_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgetsls_work.c index 6f36379ca..49a79fd75 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgetsls_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgetsls_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgetsls * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggbak.c b/lapack-netlib/LAPACKE/src/lapacke_sggbak.c index b58171289..ecc079c60 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggbak.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggbak.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggbak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggbak_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggbak_work.c index d510abbe4..9b5385104 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggbak_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggbak_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggbak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggbal.c b/lapack-netlib/LAPACKE/src/lapacke_sggbal.c index 74cd85cf5..6f82a9415 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggbal.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggbal.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggbal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggbal_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggbal_work.c index a33622a7b..e425e95b2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggbal_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggbal_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggbal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgges.c b/lapack-netlib/LAPACKE/src/lapacke_sgges.c index d2e32408b..478df5000 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgges.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgges.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgges * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgges3.c b/lapack-netlib/LAPACKE/src/lapacke_sgges3.c index e02a302dc..24450034c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgges3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgges3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgges3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgges3_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgges3_work.c index deb6de7e6..a06adc087 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgges3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgges3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgges3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgges_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgges_work.c index 232cdf00d..a3b09de30 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgges_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgges_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgges * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggesx.c b/lapack-netlib/LAPACKE/src/lapacke_sggesx.c index d552a2010..4caf461e9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggesx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggesx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggesx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggesx_work.c index dd1988b5f..d3927e525 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggesx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggesx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggev.c b/lapack-netlib/LAPACKE/src/lapacke_sggev.c index aaec6c512..c7ed5d569 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggev3.c b/lapack-netlib/LAPACKE/src/lapacke_sggev3.c index b6a16d913..1ac2a364b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggev3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggev3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggev3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggev3_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggev3_work.c index 08ce681b3..aa61dabd9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggev3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggev3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggev3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggev_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggev_work.c index eb424ccc9..641769440 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggevx.c b/lapack-netlib/LAPACKE/src/lapacke_sggevx.c index 0e028547d..f40f7e340 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggevx_work.c index bcbc3e584..054509abe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggglm.c b/lapack-netlib/LAPACKE/src/lapacke_sggglm.c index 418dae1bf..073ed25d1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggglm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggglm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggglm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggglm_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggglm_work.c index 97223e9cd..17342e32c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggglm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggglm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggglm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgghd3.c b/lapack-netlib/LAPACKE/src/lapacke_sgghd3.c index ffc7d9cae..96e8252f0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgghd3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgghd3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgghd3 * Author: Intel Corporation -* Generated January, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgghd3_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgghd3_work.c index 46de09639..7edaa7f22 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgghd3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgghd3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgghd3 * Author: Intel Corporation -* Generated January, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgghrd.c b/lapack-netlib/LAPACKE/src/lapacke_sgghrd.c index e438c01a2..7f09e4e6e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgghrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgghrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgghrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgghrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgghrd_work.c index 4179b168d..d770b5d6f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgghrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgghrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgghrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgglse.c b/lapack-netlib/LAPACKE/src/lapacke_sgglse.c index 8c10eda9c..df2641253 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgglse.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgglse.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgglse * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgglse_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgglse_work.c index c11f16ba9..ed7322af9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgglse_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgglse_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgglse * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggqrf.c b/lapack-netlib/LAPACKE/src/lapacke_sggqrf.c index 6f1c73f60..1a0136379 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggqrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggqrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggqrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggqrf_work.c index 151fc9eeb..d15cee195 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggqrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggqrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggrqf.c b/lapack-netlib/LAPACKE/src/lapacke_sggrqf.c index 9d5799df1..b3a20202f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggrqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggrqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggrqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggrqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggrqf_work.c index ec89b29e8..d151c93db 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggrqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggrqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggrqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggsvd.c b/lapack-netlib/LAPACKE/src/lapacke_sggsvd.c index fed6d3d04..e416c8539 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggsvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggsvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggsvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggsvd3.c b/lapack-netlib/LAPACKE/src/lapacke_sggsvd3.c index 7b209e497..e602ed1b9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggsvd3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggsvd3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggsvd3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggsvd3_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggsvd3_work.c index 8964773d4..aec1f1eac 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggsvd3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggsvd3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggsvd3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggsvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggsvd_work.c index 4dc19f1d7..b5805bb4d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggsvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggsvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggsvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggsvp.c b/lapack-netlib/LAPACKE/src/lapacke_sggsvp.c index ad656a063..a5607a139 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggsvp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggsvp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggsvp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggsvp3.c b/lapack-netlib/LAPACKE/src/lapacke_sggsvp3.c index 16417fbf7..475b57dd6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggsvp3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggsvp3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sggsvp3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggsvp3_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggsvp3_work.c index 905b82447..97707ede1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggsvp3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggsvp3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggsvp3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sggsvp_work.c b/lapack-netlib/LAPACKE/src/lapacke_sggsvp_work.c index 262cabd6a..1fcde307b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sggsvp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sggsvp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sggsvp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgtcon.c b/lapack-netlib/LAPACKE/src/lapacke_sgtcon.c index 013f8a66c..d851cc857 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgtcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgtcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgtcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgtcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgtcon_work.c index 97fab5a84..157aec3db 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgtcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgtcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgtcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgtrfs.c b/lapack-netlib/LAPACKE/src/lapacke_sgtrfs.c index 9d27c8f07..13bcc61e8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgtrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgtrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgtrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgtrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgtrfs_work.c index 40b3d8267..ced9f2c67 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgtrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgtrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgtrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgtsv.c b/lapack-netlib/LAPACKE/src/lapacke_sgtsv.c index af692c52f..41a440889 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgtsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgtsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgtsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgtsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgtsv_work.c index 24026cc44..b2f8473e7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgtsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgtsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgtsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgtsvx.c b/lapack-netlib/LAPACKE/src/lapacke_sgtsvx.c index 76239c211..2050b6292 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgtsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgtsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgtsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgtsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgtsvx_work.c index 4a1d0e3d1..acc72ef82 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgtsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgtsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgtsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgttrf.c b/lapack-netlib/LAPACKE/src/lapacke_sgttrf.c index 5814d9dc2..17aa36e9e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgttrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgttrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgttrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgttrf_work.c index 4e70f3fdf..0e9e573f5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgttrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgttrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgttrs.c b/lapack-netlib/LAPACKE/src/lapacke_sgttrs.c index de60a20ee..1f7eff257 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgttrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgttrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sgttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sgttrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_sgttrs_work.c index a85a704a9..4a77cf59f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sgttrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sgttrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sgttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_shgeqz.c b/lapack-netlib/LAPACKE/src/lapacke_shgeqz.c index 164af10be..4dbc1034e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_shgeqz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_shgeqz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function shgeqz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_shgeqz_work.c b/lapack-netlib/LAPACKE/src/lapacke_shgeqz_work.c index 6f00690c6..a0f67bc24 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_shgeqz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_shgeqz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function shgeqz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_shsein.c b/lapack-netlib/LAPACKE/src/lapacke_shsein.c index f5ea56d47..6b4fd2571 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_shsein.c +++ b/lapack-netlib/LAPACKE/src/lapacke_shsein.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function shsein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_shsein_work.c b/lapack-netlib/LAPACKE/src/lapacke_shsein_work.c index 59e96962c..80db160df 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_shsein_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_shsein_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function shsein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_shseqr.c b/lapack-netlib/LAPACKE/src/lapacke_shseqr.c index a6ab57881..45c1b1907 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_shseqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_shseqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function shseqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_shseqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_shseqr_work.c index 74b6f8dc0..8e964b273 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_shseqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_shseqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function shseqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slacn2.c b/lapack-netlib/LAPACKE/src/lapacke_slacn2.c index 4d1df9e4c..3eb1db5b1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slacn2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slacn2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function slacn2 * Author: Intel Corporation -* Generated October, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slacn2_work.c b/lapack-netlib/LAPACKE/src/lapacke_slacn2_work.c index 7908d41c6..aa341d799 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slacn2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slacn2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function slacn2 * Author: Intel Corporation -* Generated October, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slacpy.c b/lapack-netlib/LAPACKE/src/lapacke_slacpy.c index 83ba93be5..7f6b2e843 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slacpy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slacpy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slacpy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slacpy_work.c b/lapack-netlib/LAPACKE/src/lapacke_slacpy_work.c index cdec2c967..5f960a292 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slacpy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slacpy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slacpy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slag2d.c b/lapack-netlib/LAPACKE/src/lapacke_slag2d.c index 76485c106..28f7ae7e0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slag2d.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slag2d.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slag2d * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slag2d_work.c b/lapack-netlib/LAPACKE/src/lapacke_slag2d_work.c index d71c1bd8a..374df20ed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slag2d_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slag2d_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slag2d * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slagge.c b/lapack-netlib/LAPACKE/src/lapacke_slagge.c index 050f6cbe9..315b4a4ec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slagge.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slagge.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slagge * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slagge_work.c b/lapack-netlib/LAPACKE/src/lapacke_slagge_work.c index aa055e4f2..45c432453 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slagge_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slagge_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slagge * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slagsy.c b/lapack-netlib/LAPACKE/src/lapacke_slagsy.c index d21051038..d2487a7da 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slagsy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slagsy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slagsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slagsy_work.c b/lapack-netlib/LAPACKE/src/lapacke_slagsy_work.c index 3bcf659ae..6b2c588b3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slagsy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slagsy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slagsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slamch.c b/lapack-netlib/LAPACKE/src/lapacke_slamch.c index 0f25b2a41..893525538 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slamch.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slamch.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slamch * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slamch_work.c b/lapack-netlib/LAPACKE/src/lapacke_slamch_work.c index 3ba6bc21a..fd115842a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slamch_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slamch_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slamch * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slange.c b/lapack-netlib/LAPACKE/src/lapacke_slange.c index f5f8272f3..2c4f2dbb8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slange.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slange.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slange * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slange_work.c b/lapack-netlib/LAPACKE/src/lapacke_slange_work.c index 6a5dfacfe..6be0468e8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slange_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slange_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slange * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slansy.c b/lapack-netlib/LAPACKE/src/lapacke_slansy.c index bbe3688a4..4e5047cef 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slansy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slansy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slansy * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slansy_work.c b/lapack-netlib/LAPACKE/src/lapacke_slansy_work.c index 3c0909ab9..f74856dcb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slansy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slansy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slansy * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slantr.c b/lapack-netlib/LAPACKE/src/lapacke_slantr.c index 9e67fcc40..2f4c65889 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slantr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slantr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slantr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slantr_work.c b/lapack-netlib/LAPACKE/src/lapacke_slantr_work.c index f77abef2c..de8247961 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slantr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slantr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slantr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slapmr.c b/lapack-netlib/LAPACKE/src/lapacke_slapmr.c index 139703cb6..6fbbae3c9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slapmr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slapmr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slapmr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slapmr_work.c b/lapack-netlib/LAPACKE/src/lapacke_slapmr_work.c index 46a413674..0b0cc7995 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slapmr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slapmr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slapmr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slapmt.c b/lapack-netlib/LAPACKE/src/lapacke_slapmt.c index 55d2f4730..99358f0b2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slapmt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slapmt.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slapmt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slapmt_work.c b/lapack-netlib/LAPACKE/src/lapacke_slapmt_work.c index 34a081671..c812b7b52 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slapmt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slapmt_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slapmt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slapy2.c b/lapack-netlib/LAPACKE/src/lapacke_slapy2.c index 54e3d3ed8..2c041def9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slapy2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slapy2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slapy2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slapy2_work.c b/lapack-netlib/LAPACKE/src/lapacke_slapy2_work.c index 00507b39c..2f206958a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slapy2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slapy2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slapy2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slapy3.c b/lapack-netlib/LAPACKE/src/lapacke_slapy3.c index 4fb4d097d..3aaadc89c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slapy3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slapy3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slapy3 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slapy3_work.c b/lapack-netlib/LAPACKE/src/lapacke_slapy3_work.c index 381c579bd..c0351a051 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slapy3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slapy3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slapy3 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarfb.c b/lapack-netlib/LAPACKE/src/lapacke_slarfb.c index 0ebdc931a..37d51dee5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarfb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarfb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slarfb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_slarfb_work.c index 104bbd5aa..2f5d61676 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarfb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarfb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slarfb * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarfg.c b/lapack-netlib/LAPACKE/src/lapacke_slarfg.c index ea9a83575..56ed416ab 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarfg.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarfg.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slarfg * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarfg_work.c b/lapack-netlib/LAPACKE/src/lapacke_slarfg_work.c index 2fd23bf60..f824c29e7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarfg_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarfg_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slarfg * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarft.c b/lapack-netlib/LAPACKE/src/lapacke_slarft.c index ae8b3a966..d9d1df336 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarft.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarft.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slarft * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarft_work.c b/lapack-netlib/LAPACKE/src/lapacke_slarft_work.c index 46b405eef..1efb6afd9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarft_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarft_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slarft * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarfx.c b/lapack-netlib/LAPACKE/src/lapacke_slarfx.c index c2b797a98..d5d61fda5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarfx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarfx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slarfx * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarfx_work.c b/lapack-netlib/LAPACKE/src/lapacke_slarfx_work.c index 830ae42b5..cc566a3ae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarfx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarfx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slarfx * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarnv.c b/lapack-netlib/LAPACKE/src/lapacke_slarnv.c index aff176dc8..f86bd220c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarnv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarnv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slarnv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slarnv_work.c b/lapack-netlib/LAPACKE/src/lapacke_slarnv_work.c index 38362b024..0024f7ddd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slarnv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slarnv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slarnv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slartgp.c b/lapack-netlib/LAPACKE/src/lapacke_slartgp.c index 88cda1372..5e12e3f20 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slartgp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slartgp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slartgp * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slartgp_work.c b/lapack-netlib/LAPACKE/src/lapacke_slartgp_work.c index 26f05aad8..64d2be328 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slartgp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slartgp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slartgp * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slartgs.c b/lapack-netlib/LAPACKE/src/lapacke_slartgs.c index 566f474b2..fc56cc442 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slartgs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slartgs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slartgs * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slartgs_work.c b/lapack-netlib/LAPACKE/src/lapacke_slartgs_work.c index a7ac3cfcf..4dc3142c8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slartgs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slartgs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slartgs * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slascl.c b/lapack-netlib/LAPACKE/src/lapacke_slascl.c index 62f7390ed..969ba1dd7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slascl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slascl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slaswp * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slascl_work.c b/lapack-netlib/LAPACKE/src/lapacke_slascl_work.c index dac2a03f2..ee373c683 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slascl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slascl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slaswp * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slaset.c b/lapack-netlib/LAPACKE/src/lapacke_slaset.c index 793cb5171..031565bf5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slaset.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slaset.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slaset * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slaset_work.c b/lapack-netlib/LAPACKE/src/lapacke_slaset_work.c index 4f2fa7b67..38a66a14d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slaset_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slaset_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slaset * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slasrt.c b/lapack-netlib/LAPACKE/src/lapacke_slasrt.c index 5a950d361..78a7509a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slasrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slasrt.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slasrt * Author: Intel Corporation -* Generated May, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slasrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_slasrt_work.c index e9384c055..eff9b6a51 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slasrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slasrt_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slasrt * Author: Intel Corporation -* Generated May, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slassq.c b/lapack-netlib/LAPACKE/src/lapacke_slassq.c index 3e265e359..81330d63e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slassq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slassq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slassq * Author: Julien Langou -* Generated February, 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slassq_work.c b/lapack-netlib/LAPACKE/src/lapacke_slassq_work.c index 00688c9e4..f206ef4a0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slassq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slassq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slassq * Author: Julien Langou -* Generated February, 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slaswp.c b/lapack-netlib/LAPACKE/src/lapacke_slaswp.c index a46e7ba9b..d71a2dfbf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slaswp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slaswp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slaswp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slaswp_work.c b/lapack-netlib/LAPACKE/src/lapacke_slaswp_work.c index fa920df5e..32f5c8a4f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slaswp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slaswp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slaswp * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slatms.c b/lapack-netlib/LAPACKE/src/lapacke_slatms.c index ac01ebc1d..75a919816 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slatms.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slatms.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slatms * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slatms_work.c b/lapack-netlib/LAPACKE/src/lapacke_slatms_work.c index e66ac8329..8a66b8525 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slatms_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slatms_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slatms * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slauum.c b/lapack-netlib/LAPACKE/src/lapacke_slauum.c index d31a9b974..841e6c05f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slauum.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slauum.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function slauum * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_slauum_work.c b/lapack-netlib/LAPACKE/src/lapacke_slauum_work.c index 0dc66de2d..54dae6492 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_slauum_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_slauum_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function slauum * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sopgtr.c b/lapack-netlib/LAPACKE/src/lapacke_sopgtr.c index cf3ae2093..28a2d1958 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sopgtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sopgtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sopgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sopgtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sopgtr_work.c index 7f1b01482..c85d8827f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sopgtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sopgtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sopgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sopmtr.c b/lapack-netlib/LAPACKE/src/lapacke_sopmtr.c index bf8eed4f9..b7a551757 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sopmtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sopmtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sopmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sopmtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sopmtr_work.c index 318037ce6..5b7db0c71 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sopmtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sopmtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sopmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorbdb.c b/lapack-netlib/LAPACKE/src/lapacke_sorbdb.c index d1fdab004..7f652c2c2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorbdb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorbdb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorbdb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorbdb_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorbdb_work.c index 603905706..9ca4e0b59 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorbdb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorbdb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorbdb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorcsd.c b/lapack-netlib/LAPACKE/src/lapacke_sorcsd.c index 06fa61ae1..90e94ba94 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorcsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorcsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorcsd2by1.c b/lapack-netlib/LAPACKE/src/lapacke_sorcsd2by1.c index 1b79ba109..c1af8e874 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorcsd2by1.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorcsd2by1.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorcsd2by1 * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorcsd2by1_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorcsd2by1_work.c index d361594c1..d9d70ec43 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorcsd2by1_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorcsd2by1_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorcsd2by1 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorcsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorcsd_work.c index b83bb5378..31c957e84 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorcsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorcsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgbr.c b/lapack-netlib/LAPACKE/src/lapacke_sorgbr.c index eb90d5e9e..8cb51dbe1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgbr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgbr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorgbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgbr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorgbr_work.c index 8aa85e1a7..2788efe69 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgbr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgbr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorgbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorghr.c b/lapack-netlib/LAPACKE/src/lapacke_sorghr.c index b34a14c55..c1a267ee3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorghr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorghr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorghr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorghr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorghr_work.c index 753a7b77f..949f28bb2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorghr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorghr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorghr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorglq.c b/lapack-netlib/LAPACKE/src/lapacke_sorglq.c index eaa1ca800..e902c2b74 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorglq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorglq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorglq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorglq_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorglq_work.c index c4dbc2ea2..bb8045093 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorglq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorglq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorglq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgql.c b/lapack-netlib/LAPACKE/src/lapacke_sorgql.c index 7791f107f..f8855ed90 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgql.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgql.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorgql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgql_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorgql_work.c index f1577385f..7f7fddcdb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgql_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgql_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorgql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgqr.c b/lapack-netlib/LAPACKE/src/lapacke_sorgqr.c index 99468f317..1e6688c34 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorgqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorgqr_work.c index 910361caf..4407ec887 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorgqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgrq.c b/lapack-netlib/LAPACKE/src/lapacke_sorgrq.c index 7a81cd9c5..51cabe03a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgrq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgrq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorgrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgrq_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorgrq_work.c index bc53342b9..290a50f84 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgrq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgrq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorgrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgtr.c b/lapack-netlib/LAPACKE/src/lapacke_sorgtr.c index 804b7f8ef..c79b66fe4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sorgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sorgtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sorgtr_work.c index 7f32816b0..0a93eefa9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sorgtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sorgtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sorgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormbr.c b/lapack-netlib/LAPACKE/src/lapacke_sormbr.c index 2efbbce44..cac61a6d5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormbr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormbr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sormbr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormbr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sormbr_work.c index 5d0f871b4..9d78a4580 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormbr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormbr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sormbr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormhr.c b/lapack-netlib/LAPACKE/src/lapacke_sormhr.c index fba215a19..99c635dc2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormhr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormhr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sormhr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormhr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sormhr_work.c index bc2439488..754aa7bb8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormhr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormhr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sormhr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormlq.c b/lapack-netlib/LAPACKE/src/lapacke_sormlq.c index 4f8947af7..1eac482a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormlq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormlq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sormlq * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormlq_work.c b/lapack-netlib/LAPACKE/src/lapacke_sormlq_work.c index 089733298..9058f5bb6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormlq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormlq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sormlq * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormql.c b/lapack-netlib/LAPACKE/src/lapacke_sormql.c index e074cf819..bbc7634eb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormql.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormql.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sormql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormql_work.c b/lapack-netlib/LAPACKE/src/lapacke_sormql_work.c index 938c89887..1f399c755 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormql_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormql_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sormql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormqr.c b/lapack-netlib/LAPACKE/src/lapacke_sormqr.c index 92714ea21..9fd7b2a14 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sormqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sormqr_work.c index 8298b5df7..1cb787581 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sormqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormrq.c b/lapack-netlib/LAPACKE/src/lapacke_sormrq.c index c884d8112..5570c0bb0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormrq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormrq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sormrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormrq_work.c b/lapack-netlib/LAPACKE/src/lapacke_sormrq_work.c index 414c62fa4..d773f32b0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormrq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormrq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sormrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormrz.c b/lapack-netlib/LAPACKE/src/lapacke_sormrz.c index 499bc0b1d..d6f7f0182 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormrz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormrz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sormrz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormrz_work.c b/lapack-netlib/LAPACKE/src/lapacke_sormrz_work.c index d3b67ecee..885138a44 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormrz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormrz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sormrz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormtr.c b/lapack-netlib/LAPACKE/src/lapacke_sormtr.c index 6ffe144cc..171cc4fc3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sormtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sormtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sormtr_work.c index 097518421..ba82ebdaf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sormtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sormtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sormtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbcon.c b/lapack-netlib/LAPACKE/src/lapacke_spbcon.c index 51610e67b..aff83c522 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_spbcon_work.c index 5ad05cd2d..7db74b476 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbequ.c b/lapack-netlib/LAPACKE/src/lapacke_spbequ.c index d07d1aece..bffea674d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_spbequ_work.c index 147e1c668..8e1e2baf2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_spbrfs.c index be7f3ba98..894b6be8a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_spbrfs_work.c index 345e631e5..7450f3f9a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbstf.c b/lapack-netlib/LAPACKE/src/lapacke_spbstf.c index 0d5a9b21e..46e795d5c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbstf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbstf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spbstf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbstf_work.c b/lapack-netlib/LAPACKE/src/lapacke_spbstf_work.c index 2e28083fb..10824426b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbstf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbstf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spbstf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbsv.c b/lapack-netlib/LAPACKE/src/lapacke_spbsv.c index ef810c632..4a340fc23 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_spbsv_work.c index 7dc810da3..458b8b690 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbsvx.c b/lapack-netlib/LAPACKE/src/lapacke_spbsvx.c index 1ffacd4f8..5e46948f3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_spbsvx_work.c index 2ae8c2a7b..0b55b47e8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbtrf.c b/lapack-netlib/LAPACKE/src/lapacke_spbtrf.c index 5612caee0..0131141de 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbtrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbtrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbtrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_spbtrf_work.c index 5a02bafcb..69262fd3d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbtrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbtrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_spbtrs.c index 8601cfdbf..e2c837409 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_spbtrs_work.c index acc83afab..89fd0244b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spftrf.c b/lapack-netlib/LAPACKE/src/lapacke_spftrf.c index ac85d6ca4..4c1a3ffcb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spftrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spftrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spftrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spftrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_spftrf_work.c index cbb556646..e2cf1fc74 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spftrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spftrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spftrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spftri.c b/lapack-netlib/LAPACKE/src/lapacke_spftri.c index 7a5d1ef69..83a3c7516 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spftri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spftri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spftri_work.c b/lapack-netlib/LAPACKE/src/lapacke_spftri_work.c index 62805b25e..887fccac4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spftri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spftri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spftrs.c b/lapack-netlib/LAPACKE/src/lapacke_spftrs.c index badacf649..c8b7d034e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spftrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spftrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spftrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spftrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_spftrs_work.c index e62467035..e2e7a9b80 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spftrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spftrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spftrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spocon.c b/lapack-netlib/LAPACKE/src/lapacke_spocon.c index fb7155558..1f2971ca4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spocon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spocon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spocon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spocon_work.c b/lapack-netlib/LAPACKE/src/lapacke_spocon_work.c index 147ff4471..d1292ee91 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spocon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spocon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spocon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spoequ.c b/lapack-netlib/LAPACKE/src/lapacke_spoequ.c index 320e208d3..cf8b078e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spoequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spoequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spoequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spoequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_spoequ_work.c index a303c43a9..774da39c4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spoequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spoequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spoequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spoequb.c b/lapack-netlib/LAPACKE/src/lapacke_spoequb.c index aecfceebf..973112f2c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spoequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spoequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spoequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spoequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_spoequb_work.c index 5f6e12119..5f5f97477 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spoequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spoequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spoequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sporfs.c b/lapack-netlib/LAPACKE/src/lapacke_sporfs.c index 01a4e951f..e21e075b9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sporfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sporfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sporfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sporfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_sporfs_work.c index 475a9606e..cd848e503 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sporfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sporfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sporfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sporfsx.c b/lapack-netlib/LAPACKE/src/lapacke_sporfsx.c index 918333b58..10f6c5869 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sporfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sporfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sporfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sporfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sporfsx_work.c index 00b157a69..3a31356b2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sporfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sporfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sporfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sposv.c b/lapack-netlib/LAPACKE/src/lapacke_sposv.c index a06c92f3e..6a3095d0c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sposv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sposv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sposv_work.c b/lapack-netlib/LAPACKE/src/lapacke_sposv_work.c index a3dd46a84..bba55897c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sposv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sposv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sposvx.c b/lapack-netlib/LAPACKE/src/lapacke_sposvx.c index a8fdab51b..f06b9dc11 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sposvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sposvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sposvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sposvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sposvx_work.c index 7146ae7a0..a8911e5c9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sposvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sposvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sposvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sposvxx.c b/lapack-netlib/LAPACKE/src/lapacke_sposvxx.c index 0e3160c15..d2d0f72f9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sposvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sposvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sposvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sposvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sposvxx_work.c index f2fff6e54..cb31c80a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sposvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sposvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sposvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spotrf.c b/lapack-netlib/LAPACKE/src/lapacke_spotrf.c index 2da01cc80..7f3f330e4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spotrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spotrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spotrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spotrf2.c b/lapack-netlib/LAPACKE/src/lapacke_spotrf2.c index 1a262a34d..b3de0d934 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spotrf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spotrf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spotrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spotrf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_spotrf2_work.c index 07cbf31ca..12ed95650 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spotrf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spotrf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spotrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spotrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_spotrf_work.c index f28dfd1f5..82c8431ad 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spotrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spotrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spotrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spotri.c b/lapack-netlib/LAPACKE/src/lapacke_spotri.c index 8eddb7d12..5f4779d97 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spotri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spotri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spotri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spotri_work.c b/lapack-netlib/LAPACKE/src/lapacke_spotri_work.c index b1bd3d242..a8d98c2d9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spotri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spotri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spotri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spotrs.c b/lapack-netlib/LAPACKE/src/lapacke_spotrs.c index 7cabc16c1..739a125ea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spotrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spotrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spotrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spotrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_spotrs_work.c index 977e1d46e..e5cd7c59d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spotrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spotrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spotrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sppcon.c b/lapack-netlib/LAPACKE/src/lapacke_sppcon.c index cf4dc26d1..0e1c9eb9d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sppcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sppcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sppcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sppcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_sppcon_work.c index b8ce696a2..1e4fee4f4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sppcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sppcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sppcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sppequ.c b/lapack-netlib/LAPACKE/src/lapacke_sppequ.c index 606072a24..de1d0d5ec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sppequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sppequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sppequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sppequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_sppequ_work.c index 2e2816603..e3e8fdb91 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sppequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sppequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sppequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spprfs.c b/lapack-netlib/LAPACKE/src/lapacke_spprfs.c index 792c0e47d..1d73b91f3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_spprfs_work.c index 02601e586..aae87cd52 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sppsv.c b/lapack-netlib/LAPACKE/src/lapacke_sppsv.c index cdfe486a8..b8c00b9a4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sppsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sppsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sppsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sppsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_sppsv_work.c index d8fc1833b..1a6946a34 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sppsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sppsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sppsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sppsvx.c b/lapack-netlib/LAPACKE/src/lapacke_sppsvx.c index 1e626e2b3..961ad403c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sppsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sppsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sppsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sppsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sppsvx_work.c index 755fb8bf4..f08b24c80 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sppsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sppsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sppsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spptrf.c b/lapack-netlib/LAPACKE/src/lapacke_spptrf.c index f3297c720..32ab5636f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_spptrf_work.c index 4ae841746..ca3ec43d9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spptri.c b/lapack-netlib/LAPACKE/src/lapacke_spptri.c index e1a6b4113..85c2643ae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_spptri_work.c index 216389234..f67d66f6b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spptrs.c b/lapack-netlib/LAPACKE/src/lapacke_spptrs.c index 9322f3cd6..73c0de30d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_spptrs_work.c index 73f48fc2c..edb150c0e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spstrf.c b/lapack-netlib/LAPACKE/src/lapacke_spstrf.c index 0c32e8c04..24b6805ea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spstrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spstrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spstrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spstrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_spstrf_work.c index 1971732cf..4a55dab52 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spstrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spstrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spstrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sptcon.c b/lapack-netlib/LAPACKE/src/lapacke_sptcon.c index 0eb14b3a6..03ab09a23 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sptcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sptcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sptcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sptcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_sptcon_work.c index c1da2df55..4e8397ea2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sptcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sptcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sptcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spteqr.c b/lapack-netlib/LAPACKE/src/lapacke_spteqr.c index c0ff15efe..74ac93135 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spteqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spteqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spteqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_spteqr_work.c index bf3bd763e..72e80fe0f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spteqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spteqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sptrfs.c b/lapack-netlib/LAPACKE/src/lapacke_sptrfs.c index 44d376301..d6c1b98f4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sptrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sptrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sptrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sptrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_sptrfs_work.c index dee242244..c19337289 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sptrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sptrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sptrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sptsv.c b/lapack-netlib/LAPACKE/src/lapacke_sptsv.c index 8955ede24..870ff602f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sptsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sptsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sptsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sptsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_sptsv_work.c index ddfd37156..ea9841ee4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sptsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sptsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sptsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sptsvx.c b/lapack-netlib/LAPACKE/src/lapacke_sptsvx.c index 467cc9b10..4462d525f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sptsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sptsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sptsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sptsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sptsvx_work.c index f8bb61b56..d9e12de17 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sptsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sptsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sptsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spttrf.c b/lapack-netlib/LAPACKE/src/lapacke_spttrf.c index 38c60362a..3d1e10a9e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spttrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spttrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spttrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_spttrf_work.c index 1f511da72..4f6ad2355 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spttrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spttrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spttrs.c b/lapack-netlib/LAPACKE/src/lapacke_spttrs.c index 25f4bca7c..20203589b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spttrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spttrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function spttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_spttrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_spttrs_work.c index fe3d4eedd..785a75746 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_spttrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_spttrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function spttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbev.c b/lapack-netlib/LAPACKE/src/lapacke_ssbev.c index be2021bf3..1d65b0c3c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbev_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssbev_2stage.c index 266e1bd41..91923a946 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbev_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbev_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbev_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbev_2stage_work.c index 620fa513f..3f5d5b952 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbev_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbev_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbev_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbev_work.c index b451c0d67..e0dfb2938 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbevd.c b/lapack-netlib/LAPACKE/src/lapacke_ssbevd.c index b41e5b156..6630b58c5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbevd_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssbevd_2stage.c index a76d92c71..a4770d479 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbevd_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbevd_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbevd_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbevd_2stage_work.c index d3f2f71b3..2087708e1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbevd_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbevd_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbevd_work.c index 1a73ce50b..e56be4b28 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbevx.c b/lapack-netlib/LAPACKE/src/lapacke_ssbevx.c index b891d580a..01f3f8f06 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbevx_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssbevx_2stage.c index 6f1e1c404..77ed44004 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbevx_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbevx_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbevx_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbevx_2stage_work.c index 2b470956f..36a33fda7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbevx_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbevx_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbevx_work.c index 9952b2fc1..564040062 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbgst.c b/lapack-netlib/LAPACKE/src/lapacke_ssbgst.c index 4066114af..42b89a3bf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbgst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbgst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbgst_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbgst_work.c index 7bec29bfc..5346796fb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbgst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbgst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbgv.c b/lapack-netlib/LAPACKE/src/lapacke_ssbgv.c index 6c8ca1b76..22572a28e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbgv_work.c index 662751066..60e3df810 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbgvd.c b/lapack-netlib/LAPACKE/src/lapacke_ssbgvd.c index b40ccb9e5..794e72b61 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbgvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbgvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbgvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbgvd_work.c index 21e9fab96..78b3d4921 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbgvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbgvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbgvx.c b/lapack-netlib/LAPACKE/src/lapacke_ssbgvx.c index 3d0a0a489..49d62d84f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbgvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbgvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbgvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbgvx_work.c index 065e1855f..36d08e6ed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbgvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbgvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbtrd.c b/lapack-netlib/LAPACKE/src/lapacke_ssbtrd.c index 453ccf559..0d34aee22 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbtrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbtrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssbtrd * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssbtrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssbtrd_work.c index 88f8b5569..f1d9fda1e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssbtrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssbtrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssbtrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssfrk.c b/lapack-netlib/LAPACKE/src/lapacke_ssfrk.c index 88aa956cb..d82bc3e22 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssfrk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssfrk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssfrk * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssfrk_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssfrk_work.c index 45731fa8d..bf156359e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssfrk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssfrk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssfrk * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspcon.c b/lapack-netlib/LAPACKE/src/lapacke_sspcon.c index d99ff688a..73bbdfb38 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspcon_work.c index 60586ab0d..d0010f059 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspev.c b/lapack-netlib/LAPACKE/src/lapacke_sspev.c index df867c2ab..5ef49226f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspev_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspev_work.c index f7c11f72b..ee8ab7898 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspevd.c b/lapack-netlib/LAPACKE/src/lapacke_sspevd.c index 9b518751b..8a7e62912 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspevd_work.c index 6376fb3f8..a49a339fe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspevx.c b/lapack-netlib/LAPACKE/src/lapacke_sspevx.c index d9ac9c3aa..ba16ed8eb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspevx_work.c index 716e9430d..2c02e8ebb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspgst.c b/lapack-netlib/LAPACKE/src/lapacke_sspgst.c index 45e4c2715..834abeb61 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspgst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspgst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspgst_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspgst_work.c index 70e6534c1..98d55b3a9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspgst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspgst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspgv.c b/lapack-netlib/LAPACKE/src/lapacke_sspgv.c index 6b60a8f34..2cbd2b421 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspgv_work.c index 5c8192fbe..ae9c2ff61 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspgvd.c b/lapack-netlib/LAPACKE/src/lapacke_sspgvd.c index e80e24647..df2ddfa5d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspgvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspgvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspgvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspgvd_work.c index b82a2a45b..572016567 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspgvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspgvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspgvx.c b/lapack-netlib/LAPACKE/src/lapacke_sspgvx.c index 4246e895d..44bcb2399 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspgvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspgvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspgvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspgvx_work.c index 1676eb15a..d53877948 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspgvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspgvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssprfs.c b/lapack-netlib/LAPACKE/src/lapacke_ssprfs.c index 4c652dab2..bb61bf77d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssprfs_work.c index 0808fa1cc..f07a0848d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspsv.c b/lapack-netlib/LAPACKE/src/lapacke_sspsv.c index e8272e3f4..667eadf93 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspsv_work.c index 564194d3d..acba6a539 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspsvx.c b/lapack-netlib/LAPACKE/src/lapacke_sspsvx.c index fa759e45d..e89032b29 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sspsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sspsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sspsvx_work.c index 83ebce8cc..f4c2f5f38 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sspsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sspsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sspsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssptrd.c b/lapack-netlib/LAPACKE/src/lapacke_ssptrd.c index ea35b76e0..e62b6aae9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssptrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssptrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssptrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssptrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssptrd_work.c index 6efa04ee5..a33db9917 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssptrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssptrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssptrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssptrf.c b/lapack-netlib/LAPACKE/src/lapacke_ssptrf.c index e50114d3c..7b5d655bc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssptrf_work.c index 4227af364..7d4135f6a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssptri.c b/lapack-netlib/LAPACKE/src/lapacke_ssptri.c index de9815fdf..7c1ead66a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssptri_work.c index 933e90df4..e8caef5f8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssptrs.c b/lapack-netlib/LAPACKE/src/lapacke_ssptrs.c index 53d855fa5..8a306e74e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssptrs_work.c index d762c539d..498710317 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstebz.c b/lapack-netlib/LAPACKE/src/lapacke_sstebz.c index 763a80395..ffd4216d2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstebz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstebz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sstebz * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstebz_work.c b/lapack-netlib/LAPACKE/src/lapacke_sstebz_work.c index c1aa94cee..e625b551b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstebz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstebz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sstebz * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstedc.c b/lapack-netlib/LAPACKE/src/lapacke_sstedc.c index f902e8c30..b30f85150 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstedc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstedc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sstedc * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstedc_work.c b/lapack-netlib/LAPACKE/src/lapacke_sstedc_work.c index 0f4945b92..775dd89c5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstedc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstedc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sstedc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstegr.c b/lapack-netlib/LAPACKE/src/lapacke_sstegr.c index c02372ba2..6711f9258 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstegr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstegr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sstegr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstegr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sstegr_work.c index 81ca1d045..99060cc9f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstegr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstegr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sstegr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstein.c b/lapack-netlib/LAPACKE/src/lapacke_sstein.c index 31a021374..cb6412a11 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstein.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstein.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sstein * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstein_work.c b/lapack-netlib/LAPACKE/src/lapacke_sstein_work.c index 096883509..29c227b5f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstein_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstein_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sstein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstemr.c b/lapack-netlib/LAPACKE/src/lapacke_sstemr.c index 65dcc9170..594d5944b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstemr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstemr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sstemr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstemr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sstemr_work.c index d0c8ce42e..09ed54b3e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstemr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstemr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sstemr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssteqr.c b/lapack-netlib/LAPACKE/src/lapacke_ssteqr.c index 714ff2075..1ce7476c1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssteqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssteqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssteqr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssteqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssteqr_work.c index 0296eb465..a76e30670 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssteqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssteqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssterf.c b/lapack-netlib/LAPACKE/src/lapacke_ssterf.c index 61754c800..a59d7fdb0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssterf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssterf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssterf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssterf_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssterf_work.c index 7e22c2fbc..f636a9c8e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssterf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssterf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssterf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstev.c b/lapack-netlib/LAPACKE/src/lapacke_sstev.c index 0227c09e4..743793c0d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sstev * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstev_work.c b/lapack-netlib/LAPACKE/src/lapacke_sstev_work.c index 61f3f3fcf..373d2b221 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sstev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstevd.c b/lapack-netlib/LAPACKE/src/lapacke_sstevd.c index c5db5d79d..8a47bb6b2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sstevd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_sstevd_work.c index aee15eda5..41900bad9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sstevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstevr.c b/lapack-netlib/LAPACKE/src/lapacke_sstevr.c index 4043e3090..9908a60b6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstevr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstevr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sstevr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstevr_work.c b/lapack-netlib/LAPACKE/src/lapacke_sstevr_work.c index 35c8a7c99..5ea804af0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstevr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstevr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sstevr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstevx.c b/lapack-netlib/LAPACKE/src/lapacke_sstevx.c index cb7fbec3a..8e27018c9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function sstevx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_sstevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_sstevx_work.c index f8712ba48..fa4515976 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_sstevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_sstevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function sstevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssycon.c b/lapack-netlib/LAPACKE/src/lapacke_ssycon.c index 2a2e7a923..0cb6e2ae7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssycon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssycon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssycon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssycon_3.c b/lapack-netlib/LAPACKE/src/lapacke_ssycon_3.c index b8775db66..7870924e7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssycon_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssycon_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssycon_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssycon_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssycon_3_work.c index 7f76acaec..db0a7df25 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssycon_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssycon_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssycon_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssycon_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssycon_work.c index fa23f2cb9..afe14b5f7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssycon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssycon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssycon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyconv.c b/lapack-netlib/LAPACKE/src/lapacke_ssyconv.c index ac41a354d..9b0ebbddc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyconv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyconv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyconv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyconv_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyconv_work.c index 2ffaf8dee..668775f74 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyconv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyconv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyconv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyequb.c b/lapack-netlib/LAPACKE/src/lapacke_ssyequb.c index b4dd5b0ab..7784923ad 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyequb_work.c index a52519ba7..3979d6f79 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyev.c b/lapack-netlib/LAPACKE/src/lapacke_ssyev.c index 81b65db02..0bf5cf831 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyev_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssyev_2stage.c index d57a7c2eb..cc4ecc04e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyev_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyev_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyev_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyev_2stage_work.c index 277e66669..7c46efc8f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyev_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyev_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyev_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyev_work.c index 1889a337c..259fd90d2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevd.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevd.c index f5924bd94..317cd0cd0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevd_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevd_2stage.c index 40ef1bcc2..c723dd126 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevd_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevd_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevd_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevd_2stage_work.c index faadc92f1..6604d2a5f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevd_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevd_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevd_work.c index 434b52c01..85679e6e4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevr.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevr.c index 3274f6bab..efbbaa73a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyevr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevr_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevr_2stage.c index 8958be31d..c7f17378d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevr_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevr_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyevr_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevr_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevr_2stage_work.c index ec6b5ca7a..cbb62d195 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevr_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevr_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyevr_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevr_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevr_work.c index 26e8cd48d..c6e0e3a2e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyevr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevx.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevx.c index 43be722b4..5b949d2c5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevx_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevx_2stage.c index 42559e35f..2c5f4c7f3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevx_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevx_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevx_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevx_2stage_work.c index 8529a83a2..3b8b08f43 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevx_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevx_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyevx_work.c index d4d0b8001..45beee937 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyevx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygst.c b/lapack-netlib/LAPACKE/src/lapacke_ssygst.c index 4fb55960c..267ca34b0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssygst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygst_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssygst_work.c index 268da2c53..356079da4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssygst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygv.c b/lapack-netlib/LAPACKE/src/lapacke_ssygv.c index f139de1ab..367c50c94 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssygv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygv_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssygv_2stage.c index 195fb1e54..257aa83b6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygv_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygv_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssygv_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygv_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssygv_2stage_work.c index 802cd4d20..d2bd07ac7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygv_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygv_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssygv_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygv_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssygv_work.c index 6f9f4bbf4..d5873d5bc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssygv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygvd.c b/lapack-netlib/LAPACKE/src/lapacke_ssygvd.c index e33ce2a7b..4fd120abd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssygvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssygvd_work.c index 2d23eef2b..1cd9a3aa4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssygvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygvx.c b/lapack-netlib/LAPACKE/src/lapacke_ssygvx.c index 8ffd9dc40..9e8b63355 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssygvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssygvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssygvx_work.c index 6306bd2cd..d17dd8da2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssygvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssygvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssygvx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyrfs.c b/lapack-netlib/LAPACKE/src/lapacke_ssyrfs.c index f65daa951..0fab0a734 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyrfs_work.c index 39343499f..247b717a6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyrfsx.c b/lapack-netlib/LAPACKE/src/lapacke_ssyrfsx.c index cccc99639..10b855e5e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyrfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyrfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyrfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyrfsx_work.c index e50a578e6..17dda3f41 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyrfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyrfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv.c index 579d98d62..44c714e63 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssysv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa.c index 2777e1838..ab03c3bc6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssysv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_2stage.c index ce50a89f4..3f9d8963b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssysv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_2stage_work.c index d21dbb048..661bc80e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssysv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_work.c index c4db610bb..63aba3a6e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssysv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv_rk.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv_rk.c index afb9869fc..2e8669c4a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssysv_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv_rk_work.c index a6180501d..a38699a40 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssysv_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv_rook.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv_rook.c index 2c6fee6b9..361643d17 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv_rook.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function ssysv_rook * Author: Intel Corporation -* Generated January, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv_rook_work.c index 4a9c1ead9..c4b398479 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv_rook_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssysv_rook * Author: Intel Corporation -* Generated January, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysv_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssysv_work.c index e787a1d68..28e164f5b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssysv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysvx.c b/lapack-netlib/LAPACKE/src/lapacke_ssysvx.c index 97410885c..3ffc65b36 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssysvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssysvx_work.c index 42796a5e1..b35ce341f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssysvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysvxx.c b/lapack-netlib/LAPACKE/src/lapacke_ssysvxx.c index 860773db3..3553e6073 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssysvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssysvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssysvxx_work.c index b4b928a8b..94a032d59 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssysvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssysvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssysvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyswapr.c b/lapack-netlib/LAPACKE/src/lapacke_ssyswapr.c index 733db5a2d..151f10ffb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyswapr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyswapr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssyswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssyswapr_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssyswapr_work.c index b376abd65..d12ca5fc1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssyswapr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssyswapr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssyswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrd.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrd.c index 4dee60728..fa14112b7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrd_work.c index f2e0b51b7..19bfb2a68 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf.c index cf25c57c3..d5664ae12 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa.c index 6689e7e85..3f5cf78db 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_2stage.c index 6285f2d9d..8d3fba851 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrf_aa_2stage * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_2stage_work.c index 5ffe8154b..ba697fab5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrf_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_work.c index 182946a45..5931efb01 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rk.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rk.c index 993750fa4..060c68012 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrf_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rk_work.c index 930baa765..07531d6ba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrf_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rook.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rook.c index 468dc43b6..67ef60684 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rook_work.c index 2316eec8d..aaa0c6057 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_work.c index 4a5dbfabf..0b78eaab3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytri.c b/lapack-netlib/LAPACKE/src/lapacke_ssytri.c index eb68f72d7..ac8ad2252 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytri2.c b/lapack-netlib/LAPACKE/src/lapacke_ssytri2.c index 4159115c0..de321708c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytri2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytri2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytri2 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytri2_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytri2_work.c index 8a9c72951..0f9f73d52 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytri2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytri2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytri2 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytri2x.c b/lapack-netlib/LAPACKE/src/lapacke_ssytri2x.c index 34c989a4a..4702880f9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytri2x.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytri2x.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytri2x_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytri2x_work.c index 7e83e22b9..33174aaa0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytri2x_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytri2x_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytri_3.c b/lapack-netlib/LAPACKE/src/lapacke_ssytri_3.c index f2a183527..79dd0157d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytri_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytri_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytri_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytri_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytri_3_work.c index ee7cc4bce..c60c613e3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytri_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytri_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytri_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytri_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytri_work.c index 3f13041ee..5cee20b5e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs.c index 9919d6a4e..8b84eccf4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs2.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs2.c index a95a71469..97325966d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs2_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs2_work.c index cf98f443d..e8b50cf26 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_3.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_3.c index 44e713b72..d0fd17a3c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrs_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_3_work.c index db09e97f9..ad5dac9e6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrs_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa.c index 9eb20d2ea..665e9ed98 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrs_aa * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_2stage.c index c67ad2d50..d03def93e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrs_aa_2stage * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_2stage_work.c index 95def2929..a2644029c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrs_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_work.c index f47888032..7bfd6086a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_rook.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_rook.c index fa8238222..bba3d2352 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ssytrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_rook_work.c index 6b181a4d2..93d03e819 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_work.c index dae4dd66a..f98aa4ae6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ssytrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ssytrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ssytrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stbcon.c b/lapack-netlib/LAPACKE/src/lapacke_stbcon.c index 9230171f9..8c27b4b4a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_stbcon_work.c index 0b7040207..d3ac7c80b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_stbrfs.c index 6f4de2429..860e66c5d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_stbrfs_work.c index c1440d143..39d19f9e6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_stbtrs.c index a99c37ad3..3421eae3b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_stbtrs_work.c index 662421f15..46ac0b0fc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stfsm.c b/lapack-netlib/LAPACKE/src/lapacke_stfsm.c index bf04a277b..7f8a38da3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stfsm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stfsm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stfsm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stfsm_work.c b/lapack-netlib/LAPACKE/src/lapacke_stfsm_work.c index a928d2cb8..e6b14c960 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stfsm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stfsm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stfsm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stftri.c b/lapack-netlib/LAPACKE/src/lapacke_stftri.c index bd6256978..33538a93b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stftri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stftri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stftri_work.c b/lapack-netlib/LAPACKE/src/lapacke_stftri_work.c index 671ce91ff..5efc8b287 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stftri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stftri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stfttp.c b/lapack-netlib/LAPACKE/src/lapacke_stfttp.c index b5cf832a0..902b6dce0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stfttp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stfttp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stfttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stfttp_work.c b/lapack-netlib/LAPACKE/src/lapacke_stfttp_work.c index 10de22cfa..805fd07f1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stfttp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stfttp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stfttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stfttr.c b/lapack-netlib/LAPACKE/src/lapacke_stfttr.c index 5099e7e96..6a418f0fc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stfttr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stfttr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stfttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stfttr_work.c b/lapack-netlib/LAPACKE/src/lapacke_stfttr_work.c index 5f7f62ed9..a9fb09154 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stfttr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stfttr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stfttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgevc.c b/lapack-netlib/LAPACKE/src/lapacke_stgevc.c index e95a37e86..3e6fe851f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgevc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgevc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stgevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgevc_work.c b/lapack-netlib/LAPACKE/src/lapacke_stgevc_work.c index b8fc48822..fd9f6ca02 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgevc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgevc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stgevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgexc.c b/lapack-netlib/LAPACKE/src/lapacke_stgexc.c index 7d9e21e62..5b0fc4700 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgexc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgexc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stgexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgexc_work.c b/lapack-netlib/LAPACKE/src/lapacke_stgexc_work.c index 969fcd38a..aea9cbd29 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgexc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgexc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stgexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgsen.c b/lapack-netlib/LAPACKE/src/lapacke_stgsen.c index d0250eb63..c3b0c4bf8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgsen.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgsen.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stgsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgsen_work.c b/lapack-netlib/LAPACKE/src/lapacke_stgsen_work.c index 92ea00c81..0d7eacb31 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgsen_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgsen_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stgsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgsja.c b/lapack-netlib/LAPACKE/src/lapacke_stgsja.c index 2b239c758..24e5bcefa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgsja.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgsja.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stgsja * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgsja_work.c b/lapack-netlib/LAPACKE/src/lapacke_stgsja_work.c index 7e1c92050..1cc98ce68 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgsja_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgsja_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stgsja * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgsna.c b/lapack-netlib/LAPACKE/src/lapacke_stgsna.c index 074424732..e8c611318 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgsna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgsna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stgsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgsna_work.c b/lapack-netlib/LAPACKE/src/lapacke_stgsna_work.c index 7a6b9bb35..d10868305 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgsna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgsna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stgsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgsyl.c b/lapack-netlib/LAPACKE/src/lapacke_stgsyl.c index 3c6b859cc..b7efeafb8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgsyl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgsyl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stgsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stgsyl_work.c b/lapack-netlib/LAPACKE/src/lapacke_stgsyl_work.c index 97d7a1943..8b7ab8ae0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stgsyl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stgsyl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stgsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpcon.c b/lapack-netlib/LAPACKE/src/lapacke_stpcon.c index 661269de5..04583cd18 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_stpcon_work.c index 1cf281508..ef5c3fa84 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpmqrt.c b/lapack-netlib/LAPACKE/src/lapacke_stpmqrt.c index b863b79a9..be7c117b0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpmqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpmqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function stpmqrt * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpmqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_stpmqrt_work.c index 6a68b82d9..095fbdcd9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpmqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpmqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function stpmqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpqrt.c b/lapack-netlib/LAPACKE/src/lapacke_stpqrt.c index 1438ea29d..9df06332c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqrt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpqrt2.c b/lapack-netlib/LAPACKE/src/lapacke_stpqrt2.c index 923258621..fc539ab4a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpqrt2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpqrt2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function stpqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpqrt2_work.c b/lapack-netlib/LAPACKE/src/lapacke_stpqrt2_work.c index d62b19c47..7e8200e0d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpqrt2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpqrt2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function stpqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_stpqrt_work.c index 643531914..9477607e3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqrt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stprfb.c b/lapack-netlib/LAPACKE/src/lapacke_stprfb.c index 2ea20f08d..1146e40dc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stprfb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stprfb.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function stprfb * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stprfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_stprfb_work.c index dd1d9c2ba..06f9faa7c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stprfb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stprfb_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function stprfb * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stprfs.c b/lapack-netlib/LAPACKE/src/lapacke_stprfs.c index 299e05120..10f80b08b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_stprfs_work.c index 2b8333a36..fa8bb72b7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stptri.c b/lapack-netlib/LAPACKE/src/lapacke_stptri.c index edd25bd74..052da0ec8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_stptri_work.c index 85df20717..6d2e43d00 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stptrs.c b/lapack-netlib/LAPACKE/src/lapacke_stptrs.c index fc24e5f16..98a7e825b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_stptrs_work.c index c1dcf4abf..46d74aa84 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpttf.c b/lapack-netlib/LAPACKE/src/lapacke_stpttf.c index 5c7746e61..dd3ecc882 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpttf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpttf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stpttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpttf_work.c b/lapack-netlib/LAPACKE/src/lapacke_stpttf_work.c index 0f1823f0b..d534e65e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpttf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpttf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stpttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpttr.c b/lapack-netlib/LAPACKE/src/lapacke_stpttr.c index 9e1340c16..f65504442 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpttr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpttr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stpttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stpttr_work.c b/lapack-netlib/LAPACKE/src/lapacke_stpttr_work.c index 5bb73bde9..0604a21bd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stpttr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stpttr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stpttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strcon.c b/lapack-netlib/LAPACKE/src/lapacke_strcon.c index 39efd559c..a64ae6761 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_strcon_work.c index c65b10d48..6b0c779b2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strevc.c b/lapack-netlib/LAPACKE/src/lapacke_strevc.c index 2c983f6c3..4e9db8540 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strevc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strevc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strevc_work.c b/lapack-netlib/LAPACKE/src/lapacke_strevc_work.c index 94b5e312f..e98496f87 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strevc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strevc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strexc.c b/lapack-netlib/LAPACKE/src/lapacke_strexc.c index b7976b66e..62e285e26 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strexc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strexc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strexc_work.c b/lapack-netlib/LAPACKE/src/lapacke_strexc_work.c index 40a6c5d05..cbbed9d8b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strexc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strexc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strexc * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strrfs.c b/lapack-netlib/LAPACKE/src/lapacke_strrfs.c index 9a1156c6f..3370c20b3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_strrfs_work.c index 9b0b0d21b..59305a96d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strsen.c b/lapack-netlib/LAPACKE/src/lapacke_strsen.c index 0ec3ee907..c9a5b845c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strsen.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strsen.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strsen_work.c b/lapack-netlib/LAPACKE/src/lapacke_strsen_work.c index aa02adb44..6e0a48346 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strsen_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strsen_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strsna.c b/lapack-netlib/LAPACKE/src/lapacke_strsna.c index 9d130efca..463a598d4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strsna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strsna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strsna_work.c b/lapack-netlib/LAPACKE/src/lapacke_strsna_work.c index 8c09b2cf1..02c439405 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strsna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strsna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strsyl.c b/lapack-netlib/LAPACKE/src/lapacke_strsyl.c index df618cd73..8bc1ea44f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strsyl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strsyl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strsyl_work.c b/lapack-netlib/LAPACKE/src/lapacke_strsyl_work.c index 3fdec2e85..5f545df37 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strsyl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strsyl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strtri.c b/lapack-netlib/LAPACKE/src/lapacke_strtri.c index 2888624aa..4502bb515 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strtri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strtri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strtri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strtri_work.c b/lapack-netlib/LAPACKE/src/lapacke_strtri_work.c index f8cb2499c..237bf2101 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strtri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strtri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strtri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strtrs.c b/lapack-netlib/LAPACKE/src/lapacke_strtrs.c index b4c0aaeae..eeb1e3fb1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_strtrs_work.c index e814653af..fc02026c0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strttf.c b/lapack-netlib/LAPACKE/src/lapacke_strttf.c index e3304fbe7..96b2d3385 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strttf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strttf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strttf_work.c b/lapack-netlib/LAPACKE/src/lapacke_strttf_work.c index 235fa53be..cc00af6fa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strttf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strttf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strttp.c b/lapack-netlib/LAPACKE/src/lapacke_strttp.c index 2df79eb05..6b5e5f00c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strttp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strttp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function strttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_strttp_work.c b/lapack-netlib/LAPACKE/src/lapacke_strttp_work.c index 4f33dc5f5..ca62cbf80 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_strttp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_strttp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function strttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stzrzf.c b/lapack-netlib/LAPACKE/src/lapacke_stzrzf.c index 0243179e6..b7fe7ce85 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stzrzf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stzrzf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function stzrzf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_stzrzf_work.c b/lapack-netlib/LAPACKE/src/lapacke_stzrzf_work.c index 9b4a5a485..bbe3cb6e8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_stzrzf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_stzrzf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function stzrzf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zbbcsd.c b/lapack-netlib/LAPACKE/src/lapacke_zbbcsd.c index e0d0e224a..6eda685f0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zbbcsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zbbcsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zbbcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zbbcsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zbbcsd_work.c index 96b8b97e3..05d405ed4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zbbcsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zbbcsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zbbcsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zbdsqr.c b/lapack-netlib/LAPACKE/src/lapacke_zbdsqr.c index c12ef3eae..cc71ad977 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zbdsqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zbdsqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zbdsqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zbdsqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zbdsqr_work.c index 874fca317..b54ccff92 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zbdsqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zbdsqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zbdsqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zcgesv.c b/lapack-netlib/LAPACKE/src/lapacke_zcgesv.c index f161b185c..600f1d617 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zcgesv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zcgesv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zcgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zcgesv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zcgesv_work.c index 207f7c68c..88ea127e6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zcgesv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zcgesv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zcgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zcposv.c b/lapack-netlib/LAPACKE/src/lapacke_zcposv.c index 1c54c391f..c5638dbc2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zcposv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zcposv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zcposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zcposv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zcposv_work.c index 2c75bb4ee..d6258ea5d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zcposv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zcposv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zcposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbbrd.c b/lapack-netlib/LAPACKE/src/lapacke_zgbbrd.c index 63c9a756f..08ac86243 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbbrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbbrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbbrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbbrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbbrd_work.c index deac29856..693cad63c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbbrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbbrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbbrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbcon.c b/lapack-netlib/LAPACKE/src/lapacke_zgbcon.c index 6ce309d7d..a3c1b267d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbcon_work.c index d7a44540b..bcac6fed9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbequ.c b/lapack-netlib/LAPACKE/src/lapacke_zgbequ.c index 33781a10a..805ced166 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbequ_work.c index 08dcd685b..2e61d352d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbequb.c b/lapack-netlib/LAPACKE/src/lapacke_zgbequb.c index 96038277e..3bf1be924 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbequb_work.c index cc6e21b15..e1a37683e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_zgbrfs.c index 2bf3fa377..a4a4f33f2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbrfs_work.c index 6f27258a3..28300861c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbrfsx.c b/lapack-netlib/LAPACKE/src/lapacke_zgbrfsx.c index 6d269de43..d08ec77a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbrfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbrfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbrfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbrfsx_work.c index f367007c5..285f4a9b3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbrfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbrfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbsv.c b/lapack-netlib/LAPACKE/src/lapacke_zgbsv.c index 17aa1d37f..118473fd0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbsv_work.c index 50fd11669..56bc1bb4b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbsvx.c b/lapack-netlib/LAPACKE/src/lapacke_zgbsvx.c index 954245ecd..3b593d479 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbsvx_work.c index bb0654dd7..fe7183c96 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbsvxx.c b/lapack-netlib/LAPACKE/src/lapacke_zgbsvxx.c index 4d5f86b9e..de4a260e6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbsvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbsvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbsvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbsvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbsvxx_work.c index b240b2abd..8fec5ecb8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbsvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbsvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbsvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbtrf.c b/lapack-netlib/LAPACKE/src/lapacke_zgbtrf.c index 34e84f25a..c325dad97 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbtrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbtrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbtrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbtrf_work.c index 0eccd0c0d..b0afaf92e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbtrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbtrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_zgbtrs.c index 7192fd234..cac06b206 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgbtrs_work.c index cc9cfd248..e4e9faf1f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgebak.c b/lapack-netlib/LAPACKE/src/lapacke_zgebak.c index 69e5c5085..cd71fb090 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgebak.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgebak.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgebak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgebak_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgebak_work.c index a5e8a9cf8..724ae20f2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgebak_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgebak_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgebak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgebal.c b/lapack-netlib/LAPACKE/src/lapacke_zgebal.c index 25e0c01cc..5ccb858bc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgebal.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgebal.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgebal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgebal_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgebal_work.c index c3e0f83ae..0cdc764be 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgebal_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgebal_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgebal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgebrd.c b/lapack-netlib/LAPACKE/src/lapacke_zgebrd.c index cb3409aca..30fc46a43 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgebrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgebrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgebrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgebrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgebrd_work.c index df06e43e2..8f30dcba7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgebrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgebrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgebrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgecon.c b/lapack-netlib/LAPACKE/src/lapacke_zgecon.c index ee0f9c9fb..ca59138aa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgecon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgecon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgecon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgecon_work.c index d0bb07fc7..b18dbf184 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgecon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgecon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeequ.c b/lapack-netlib/LAPACKE/src/lapacke_zgeequ.c index 43b5c2f9f..297a76e1d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeequ_work.c index 7633b8bda..019fcac8f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeequb.c b/lapack-netlib/LAPACKE/src/lapacke_zgeequb.c index a97aa2d16..c565da024 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeequb_work.c index a9299f1eb..c28a31f92 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgees.c b/lapack-netlib/LAPACKE/src/lapacke_zgees.c index 66ba8e35d..b3ccd2ede 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgees.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgees.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgees * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgees_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgees_work.c index 41db66fdc..05685823d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgees_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgees_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgees * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeesx.c b/lapack-netlib/LAPACKE/src/lapacke_zgeesx.c index f1792a6ab..c3756d90e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeesx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeesx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeesx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeesx_work.c index 5ad7779cf..b338f0f29 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeesx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeesx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeev.c b/lapack-netlib/LAPACKE/src/lapacke_zgeev.c index 6d4fe9396..4ab99c3b7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeev_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeev_work.c index 546f9790d..9393f825a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeevx.c b/lapack-netlib/LAPACKE/src/lapacke_zgeevx.c index e10df52a9..25d2e735d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeevx_work.c index e8dd9c26a..e34112c09 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgehrd.c b/lapack-netlib/LAPACKE/src/lapacke_zgehrd.c index 92263cfde..82399abed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgehrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgehrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgehrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgehrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgehrd_work.c index 6c7fb5f3d..c79ce4dba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgehrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgehrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgehrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgejsv.c b/lapack-netlib/LAPACKE/src/lapacke_zgejsv.c index 153efb371..ccada9404 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgejsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgejsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgejsv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgejsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgejsv_work.c index 83e0d647d..51d51023b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgejsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgejsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgejsv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelq.c b/lapack-netlib/LAPACKE/src/lapacke_zgelq.c index e0206b23d..c5c2fa719 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgelq * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelq2.c b/lapack-netlib/LAPACKE/src/lapacke_zgelq2.c index 772db3c7f..56cbec346 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelq2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelq2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgelq2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelq2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgelq2_work.c index 4bc97653c..3146803c9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelq2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelq2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgelq2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelq_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgelq_work.c index 9f503c0f4..c395bc413 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgelq * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelqf.c b/lapack-netlib/LAPACKE/src/lapacke_zgelqf.c index 664cb4894..d14cb5f3e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgelqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgelqf_work.c index f81c33d8b..ba4ccc273 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgelqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgels.c b/lapack-netlib/LAPACKE/src/lapacke_zgels.c index 79e275a37..8b7231541 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgels.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgels.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgels * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgels_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgels_work.c index 1e8fd5d6b..b7b434d7e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgels_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgels_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgels * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelsd.c b/lapack-netlib/LAPACKE/src/lapacke_zgelsd.c index eca145090..5635f8e6b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgelsd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgelsd_work.c index ee8d12924..09004cc72 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgelsd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelss.c b/lapack-netlib/LAPACKE/src/lapacke_zgelss.c index 4ef86b39f..c3a70e664 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelss.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelss.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgelss * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelss_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgelss_work.c index 65cc434fc..92c5b8ccc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelss_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelss_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgelss * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelsy.c b/lapack-netlib/LAPACKE/src/lapacke_zgelsy.c index bac6ab6f5..e340d6d16 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelsy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelsy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgelsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgelsy_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgelsy_work.c index 8c249b0a5..03ee8d0d5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgelsy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgelsy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgelsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgemlq.c b/lapack-netlib/LAPACKE/src/lapacke_zgemlq.c index 946e2b5f3..8825594a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgemlq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgemlq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgemlq * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgemlq_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgemlq_work.c index d10e73060..50261f10a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgemlq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgemlq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgemlq * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgemqr.c b/lapack-netlib/LAPACKE/src/lapacke_zgemqr.c index f5daf4afe..c793ef34b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgemqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgemqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgemqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgemqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgemqr_work.c index f17fa84eb..88d06c284 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgemqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgemqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgemqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgemqrt.c b/lapack-netlib/LAPACKE/src/lapacke_zgemqrt.c index 222422f18..65b468405 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgemqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgemqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function zgemqrt * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgemqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgemqrt_work.c index 535b07788..734889efb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgemqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgemqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgemqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqlf.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqlf.c index b887f1d3a..499270f62 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqlf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqlf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqlf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqlf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqlf_work.c index 54966b47f..fe10813a3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqlf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqlf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqlf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqp3.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqp3.c index bd20b8b08..2aafafc86 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqp3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqp3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqp3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqp3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqp3_work.c index 765668648..76d437f87 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqp3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqp3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqp3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqpf.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqpf.c index 2b9cecf7f..c5be1df52 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqpf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqpf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqpf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqpf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqpf_work.c index 1e95b67ef..489805d38 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqpf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqpf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqpf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqr.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqr.c index 3e567f553..78eca38e3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqr2.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqr2.c index 8c33e0cc3..eaa6adb09 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqr2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqr2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqr2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqr2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqr2_work.c index 17d6a45d4..7a428b49f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqr2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqr2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqr2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqr_work.c index 304738b48..9a2ff6d4b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqr * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrf.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrf.c index 10db33ab6..71b634119 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrf_work.c index 936fb6fb6..a13b9ecd6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrfp.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrfp.c index 62e578715..d1e64a3df 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrfp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrfp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqrfp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrfp_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrfp_work.c index d7c1de398..919e3a0cb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrfp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrfp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqrfp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt.c index 5774d4b19..0612daee5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt2.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt2.c index b31237c6a..5209a4100 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt2_work.c index b733ee71b..90f17f276 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt3.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt3.c index 51f0558bf..97a6ae71c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt3.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function zgeqrt3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt3_work.c index 0c33a24f6..048ec92d2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt3_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqrt3 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt_work.c index 43b05073d..8f6f1ed0b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgeqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgeqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgeqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgerfs.c b/lapack-netlib/LAPACKE/src/lapacke_zgerfs.c index 2ee8f70e6..47e38aeee 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgerfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgerfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgerfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgerfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgerfs_work.c index e0ddb5b01..b1804ddbf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgerfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgerfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgerfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgerfsx.c b/lapack-netlib/LAPACKE/src/lapacke_zgerfsx.c index a993ab83d..de15f8d2b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgerfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgerfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgerfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgerfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgerfsx_work.c index f981b050e..a56a5ae62 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgerfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgerfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgerfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgerqf.c b/lapack-netlib/LAPACKE/src/lapacke_zgerqf.c index f77de8b16..e9629bb95 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgerqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgerqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgerqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgerqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgerqf_work.c index e17118b8e..8a375832b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgerqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgerqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgerqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesdd.c b/lapack-netlib/LAPACKE/src/lapacke_zgesdd.c index 016ec4f68..1f465001b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesdd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesdd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgesdd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesdd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgesdd_work.c index 00cbe65f1..fc07fe9cb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesdd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesdd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgesdd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesv.c b/lapack-netlib/LAPACKE/src/lapacke_zgesv.c index 23015ccc6..abb288143 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgesv_work.c index 04d97f90d..1a8fe5952 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvd.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvd.c index 3a96c010d..ec7f6e19b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgesvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvd_work.c index da73cd479..ba48bb052 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgesvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvdq.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvdq.c index 4928b1bc0..528b94a47 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvdq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvdq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgesvdq * Author: Intel Corporation -* Generated November 2018 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvdq_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvdq_work.c index 5824de4e0..1a6437555 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvdq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvdq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgesvdq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvdx.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvdx.c index 2efe981f0..90a3f449a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvdx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvdx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgesvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvdx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvdx_work.c index d9e9cb65c..b6f32b8b5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvdx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvdx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgesvdx * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvj.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvj.c index 77805dbd5..0619afa8d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvj.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvj.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgesvj * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvj_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvj_work.c index 1a46cfaef..4d59821ac 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvj_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvj_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgesvj * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvx.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvx.c index 344b5778f..226f09d92 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvx_work.c index 2b194620c..be7e9c543 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvxx.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvxx.c index cf0822b15..04bd68ea8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgesvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgesvxx_work.c index 347cbfe4d..bb0317691 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgesvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgesvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetf2.c b/lapack-netlib/LAPACKE/src/lapacke_zgetf2.c index 9e05cfed9..967ffc7e3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgetf2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgetf2_work.c index e9ae035d7..20358b9d0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgetf2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetrf.c b/lapack-netlib/LAPACKE/src/lapacke_zgetrf.c index f074b9edb..a0233c9a1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetrf2.c b/lapack-netlib/LAPACKE/src/lapacke_zgetrf2.c index 44793c9f8..cb4824ce0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetrf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetrf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgetrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetrf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgetrf2_work.c index e438b842a..259775328 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetrf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetrf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgetrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgetrf_work.c index b4010b8a8..847cdaae7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetri.c b/lapack-netlib/LAPACKE/src/lapacke_zgetri.c index f624deaeb..294e21fba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetri_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgetri_work.c index 82986b71e..bdad9cf47 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetrs.c b/lapack-netlib/LAPACKE/src/lapacke_zgetrs.c index 3ce08b778..ad0799cdc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgetrs_work.c index fd3fb65c5..ca0cb4ffb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetsls.c b/lapack-netlib/LAPACKE/src/lapacke_zgetsls.c index 62fe80b1e..0657bd951 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetsls.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetsls.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgetsls * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgetsls_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgetsls_work.c index dca7d49af..465dcc237 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgetsls_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgetsls_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgetsls * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggbak.c b/lapack-netlib/LAPACKE/src/lapacke_zggbak.c index 9acddb97c..b87c13263 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggbak.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggbak.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggbak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggbak_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggbak_work.c index d7b65b5ce..128099db4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggbak_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggbak_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggbak * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggbal.c b/lapack-netlib/LAPACKE/src/lapacke_zggbal.c index 8bbfd2893..0a180ecf0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggbal.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggbal.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggbal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggbal_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggbal_work.c index 33f095f0b..2f4481c30 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggbal_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggbal_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggbal * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgges.c b/lapack-netlib/LAPACKE/src/lapacke_zgges.c index 68478fe51..fbc1c5a87 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgges.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgges.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgges * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgges3.c b/lapack-netlib/LAPACKE/src/lapacke_zgges3.c index 7d61245e1..7f322c38f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgges3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgges3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgges3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgges3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgges3_work.c index 5a8e024b6..00677931d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgges3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgges3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgges3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgges_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgges_work.c index ea6dedff1..2694c6530 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgges_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgges_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgges * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggesx.c b/lapack-netlib/LAPACKE/src/lapacke_zggesx.c index 53e086753..05e7f902b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggesx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggesx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggesx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggesx_work.c index 0ee198b4a..f9f1ccee1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggesx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggesx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggesx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggev.c b/lapack-netlib/LAPACKE/src/lapacke_zggev.c index 953b3c0e3..a92571b14 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggev3.c b/lapack-netlib/LAPACKE/src/lapacke_zggev3.c index 626fe3da9..fa5fbe0fe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggev3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggev3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggev3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggev3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggev3_work.c index e2ac2f0a0..21bcd6187 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggev3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggev3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggev3 * Author: Intel Corporation -* Generated February, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggev_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggev_work.c index 4505a5089..2c55e4f29 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggevx.c b/lapack-netlib/LAPACKE/src/lapacke_zggevx.c index ca39e9919..451cd2790 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggevx_work.c index 0fa1ad9b4..56a258b9d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggglm.c b/lapack-netlib/LAPACKE/src/lapacke_zggglm.c index 0c9912ca9..323d2ee30 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggglm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggglm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggglm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggglm_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggglm_work.c index c5e3f349f..bc96333f1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggglm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggglm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggglm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgghd3.c b/lapack-netlib/LAPACKE/src/lapacke_zgghd3.c index 97d1e6116..3450167d1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgghd3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgghd3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgghd3 * Author: Intel Corporation -* Generated January, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgghd3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgghd3_work.c index ec649dca4..d8d361a76 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgghd3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgghd3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgghd3 * Author: Intel Corporation -* Generated January, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgghrd.c b/lapack-netlib/LAPACKE/src/lapacke_zgghrd.c index e6b2ddca3..27ab1f3d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgghrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgghrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgghrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgghrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgghrd_work.c index bae715cba..29f81b2fc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgghrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgghrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgghrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgglse.c b/lapack-netlib/LAPACKE/src/lapacke_zgglse.c index 40faf672f..4477a874a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgglse.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgglse.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgglse * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgglse_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgglse_work.c index 538579e39..b8b41b1a1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgglse_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgglse_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgglse * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggqrf.c b/lapack-netlib/LAPACKE/src/lapacke_zggqrf.c index 35c908f0a..88b5e2a57 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggqrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggqrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggqrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggqrf_work.c index 044681f01..27430b2f8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggqrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggqrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggqrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggrqf.c b/lapack-netlib/LAPACKE/src/lapacke_zggrqf.c index 328f8b0a6..0a3dad2e0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggrqf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggrqf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggrqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggrqf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggrqf_work.c index fe65d4cff..12f03139e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggrqf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggrqf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggrqf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggsvd.c b/lapack-netlib/LAPACKE/src/lapacke_zggsvd.c index e6425f485..2e0238399 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggsvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggsvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggsvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggsvd3.c b/lapack-netlib/LAPACKE/src/lapacke_zggsvd3.c index 62dce8038..a342fd779 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggsvd3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggsvd3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggsvd3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggsvd3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggsvd3_work.c index 1c6515325..59401be96 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggsvd3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggsvd3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggsvd3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggsvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggsvd_work.c index a1c920bcf..88ed68a15 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggsvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggsvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggsvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggsvp.c b/lapack-netlib/LAPACKE/src/lapacke_zggsvp.c index 537bf6c03..5b983dcf8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggsvp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggsvp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggsvp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggsvp3.c b/lapack-netlib/LAPACKE/src/lapacke_zggsvp3.c index d549305cc..94f97216e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggsvp3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggsvp3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zggsvp3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggsvp3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggsvp3_work.c index 6ea0c8d52..a2c023d9f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggsvp3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggsvp3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggsvp3 * Author: Intel Corporation -* Generated August, 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zggsvp_work.c b/lapack-netlib/LAPACKE/src/lapacke_zggsvp_work.c index 641bc3b9e..94287ede8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zggsvp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zggsvp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zggsvp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgtcon.c b/lapack-netlib/LAPACKE/src/lapacke_zgtcon.c index 50f334ff5..e6a216a2c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgtcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgtcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgtcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgtcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgtcon_work.c index 39bc40e41..8b73db9c3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgtcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgtcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgtcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgtrfs.c b/lapack-netlib/LAPACKE/src/lapacke_zgtrfs.c index 9df5ce920..3e82b8eae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgtrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgtrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgtrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgtrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgtrfs_work.c index 8db27f92b..e45fac169 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgtrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgtrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgtrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgtsv.c b/lapack-netlib/LAPACKE/src/lapacke_zgtsv.c index 28c3fb3ef..7f4afdba2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgtsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgtsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgtsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgtsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgtsv_work.c index 99cea0cf9..ef49ec225 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgtsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgtsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgtsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgtsvx.c b/lapack-netlib/LAPACKE/src/lapacke_zgtsvx.c index c20a85025..80ab003f4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgtsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgtsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgtsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgtsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgtsvx_work.c index e4b908b76..b3f929e21 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgtsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgtsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgtsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgttrf.c b/lapack-netlib/LAPACKE/src/lapacke_zgttrf.c index 8445ea672..7033b76db 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgttrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgttrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgttrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgttrf_work.c index 9034e5378..1b6dc5d72 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgttrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgttrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgttrs.c b/lapack-netlib/LAPACKE/src/lapacke_zgttrs.c index bc8599fab..379b8e0f6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgttrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgttrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zgttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgttrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zgttrs_work.c index e7c2a4f1f..d3d43cc08 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgttrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zgttrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zgttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbev.c b/lapack-netlib/LAPACKE/src/lapacke_zhbev.c index 30ac7fc79..23e9167a9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbev_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zhbev_2stage.c index dad35b84e..993dcc17e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbev_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbev_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbev_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbev_2stage_work.c index 5671c111e..931fe0529 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbev_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbev_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbev_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbev_work.c index f52211fe4..aa6a8ec54 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbevd.c b/lapack-netlib/LAPACKE/src/lapacke_zhbevd.c index ac9467496..ea92e2a6d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbevd_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zhbevd_2stage.c index 9b6005b2d..ba14fe290 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbevd_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbevd_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbevd_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbevd_2stage_work.c index e7604e870..18485312b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbevd_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbevd_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbevd_work.c index 5912812f9..7e1d07ac2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbevx.c b/lapack-netlib/LAPACKE/src/lapacke_zhbevx.c index 6d069179e..3f2853ed5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbevx_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zhbevx_2stage.c index 126182cb8..37a9c21b7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbevx_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbevx_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbevx_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbevx_2stage_work.c index ffd5527fb..1801a6da6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbevx_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbevx_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbevx_work.c index 5eb09a67a..75ab85295 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbgst.c b/lapack-netlib/LAPACKE/src/lapacke_zhbgst.c index 54deacf5a..607d7b065 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbgst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbgst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbgst_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbgst_work.c index 3c9b19946..926ecd9a2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbgst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbgst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbgv.c b/lapack-netlib/LAPACKE/src/lapacke_zhbgv.c index 7f1e6796a..7fb988abf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbgv_work.c index 563ca963b..eb35499d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbgvd.c b/lapack-netlib/LAPACKE/src/lapacke_zhbgvd.c index 76c3bac3a..3fba8cd66 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbgvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbgvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbgvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbgvd_work.c index 8ddfcbe63..6588e7368 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbgvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbgvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbgvx.c b/lapack-netlib/LAPACKE/src/lapacke_zhbgvx.c index d61439a0c..03f154180 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbgvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbgvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbgvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbgvx_work.c index d2914e1cb..566ebe6be 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbgvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbgvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbtrd.c b/lapack-netlib/LAPACKE/src/lapacke_zhbtrd.c index 0682d0a57..6205ee9ed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbtrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbtrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhbtrd * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhbtrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhbtrd_work.c index 0b2ef22c1..71dbb8e1a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhbtrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhbtrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhbtrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhecon.c b/lapack-netlib/LAPACKE/src/lapacke_zhecon.c index f6b9d8c39..40b595074 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhecon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhecon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhecon_3.c b/lapack-netlib/LAPACKE/src/lapacke_zhecon_3.c index 94dd047de..f696ae370 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhecon_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhecon_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhecon_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhecon_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhecon_3_work.c index 47d26f54f..2064e4fb4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhecon_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhecon_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhecon_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhecon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhecon_work.c index 2944a25cb..e7209e47d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhecon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhecon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhecon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheequb.c b/lapack-netlib/LAPACKE/src/lapacke_zheequb.c index cbb346e48..a9d03590d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheequb_work.c index bf91fc060..62d971250 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheev.c b/lapack-netlib/LAPACKE/src/lapacke_zheev.c index 2c40428da..0126e3d14 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheev_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zheev_2stage.c index 4369de26a..889ff0e15 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheev_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheev_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheev_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheev_2stage_work.c index 213ea04af..11246e196 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheev_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheev_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheev_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheev_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheev_work.c index 8b7aa3518..43d33eb2e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevd.c b/lapack-netlib/LAPACKE/src/lapacke_zheevd.c index 1305ebfb3..da5df1de4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevd_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zheevd_2stage.c index 63f139435..2d747f8d0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevd_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevd_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevd_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheevd_2stage_work.c index 840c53876..0538eefbb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevd_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevd_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheevd_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheevd_work.c index b8509e04f..086df88e7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevr.c b/lapack-netlib/LAPACKE/src/lapacke_zheevr.c index 0d26dc2f9..a8f6078de 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheevr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevr_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zheevr_2stage.c index 6fa69c44b..793182262 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevr_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevr_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheevr_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevr_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheevr_2stage_work.c index 643d0e216..73b2edbd5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevr_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevr_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheevr_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheevr_work.c index 0b8bd5a3e..ef405f1b5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheevr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevx.c b/lapack-netlib/LAPACKE/src/lapacke_zheevx.c index f93e98743..731dbab29 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevx_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zheevx_2stage.c index 78403631c..cb95285ac 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevx_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevx_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevx_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheevx_2stage_work.c index 846ec1445..c9bdd8806 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevx_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevx_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheevx_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheevx_work.c index b77200aca..1a61928cf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheevx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegst.c b/lapack-netlib/LAPACKE/src/lapacke_zhegst.c index aa2d84d84..7ca618ba2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhegst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" @@ -48,7 +47,7 @@ lapack_int LAPACKE_zhegst( int matrix_layout, lapack_int itype, char uplo, if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, a, lda ) ) { return -5; } - if( LAPACKE_zge_nancheck( matrix_layout, n, n, b, ldb ) ) { + if( LAPACKE_zhe_nancheck( matrix_layout, uplo, n, b, ldb ) ) { return -7; } } diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegst_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhegst_work.c index f77894204..a87d663a4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhegst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegv.c b/lapack-netlib/LAPACKE/src/lapacke_zhegv.c index 587e2d4be..2f8964783 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhegv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegv_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zhegv_2stage.c index 43569d99e..1d540a56d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegv_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegv_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhegv_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegv_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhegv_2stage_work.c index 596c8fdb2..6a808e2a0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegv_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegv_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhegv_2stage * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhegv_work.c index cb50d52cb..ca4ebf70c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhegv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegvd.c b/lapack-netlib/LAPACKE/src/lapacke_zhegvd.c index c287595ad..33bffeca8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhegvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhegvd_work.c index 4885bbbcb..6e0ea7c48 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhegvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegvx.c b/lapack-netlib/LAPACKE/src/lapacke_zhegvx.c index 83f2bda2e..8227832e1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhegvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhegvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhegvx_work.c index bee995ff5..eb29c34d4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhegvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhegvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhegvx * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zherfs.c b/lapack-netlib/LAPACKE/src/lapacke_zherfs.c index 1507ae58e..1d9c9dac2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zherfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zherfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zherfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zherfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zherfs_work.c index e908c0e6e..d14783756 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zherfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zherfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zherfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zherfsx.c b/lapack-netlib/LAPACKE/src/lapacke_zherfsx.c index c50e0b355..9da13b03f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zherfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zherfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zherfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zherfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zherfsx_work.c index 7d86e6d2a..125092eb5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zherfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zherfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zherfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesv.c b/lapack-netlib/LAPACKE/src/lapacke_zhesv.c index 93baf17e1..10239198b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa.c b/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa.c index d8be88322..2fdd82c2f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhesv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_2stage.c index c09423d93..e0a00d7ea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhesv_aa_2stage * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_2stage_work.c index 9906210ef..16b79add4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhesv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_work.c index 85efc4bae..cd3e1de09 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesv_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhesv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesv_rk.c b/lapack-netlib/LAPACKE/src/lapacke_zhesv_rk.c index 469579d89..00ab10202 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesv_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesv_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhesv_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesv_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhesv_rk_work.c index 892843a66..790e75ad9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesv_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesv_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhesv_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhesv_work.c index 60da6a696..e0d488254 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhesv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesvx.c b/lapack-netlib/LAPACKE/src/lapacke_zhesvx.c index 71d22a317..a1cf5be4e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhesvx_work.c index 2237a0f0d..e372cd3ab 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhesvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesvxx.c b/lapack-netlib/LAPACKE/src/lapacke_zhesvxx.c index 8571ca7da..0b14784e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhesvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhesvxx_work.c index 18a3843be..052e2c687 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhesvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhesvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhesvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheswapr.c b/lapack-netlib/LAPACKE/src/lapacke_zheswapr.c index 070ec0992..17ca30fab 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheswapr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheswapr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zheswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zheswapr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zheswapr_work.c index 73853a8a8..a89e12d48 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zheswapr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zheswapr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zheswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrd.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrd.c index 35adae4ff..af7338d28 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrd_work.c index ffa4d4602..782201990 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf.c index a160840b7..543b8bffd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa.c index a2a20f2eb..d9df39f7c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_2stage.c index d009d8e9e..b93a365bb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrf_aa_2stage * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_2stage_work.c index b9ba0fb56..10d7a5c39 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrf_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_work.c index dbad2d81e..93fd5e704 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rk.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rk.c index 187de8a4d..9212a0840 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrf_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rk_work.c index b5c39c9ac..3a8750966 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrf_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rook.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rook.c index 16e8f4799..f6680928b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rook_work.c index 22bf880a2..5baa68b3b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_work.c index 2635c634e..bef9a1ef5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetri.c b/lapack-netlib/LAPACKE/src/lapacke_zhetri.c index 892da6e21..aa56a4bd8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetri2.c b/lapack-netlib/LAPACKE/src/lapacke_zhetri2.c index 54f7b9b9a..9109f0542 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetri2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetri2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetri2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetri2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetri2_work.c index 94d2dbb5b..262c1cea6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetri2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetri2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetri2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetri2x.c b/lapack-netlib/LAPACKE/src/lapacke_zhetri2x.c index 15a8cc576..d8b56f5dd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetri2x.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetri2x.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetri2x * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetri2x_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetri2x_work.c index 24f041d2a..297a299be 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetri2x_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetri2x_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetri_3.c b/lapack-netlib/LAPACKE/src/lapacke_zhetri_3.c index 32692e0ca..69b0f4e52 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetri_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetri_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetri_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetri_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetri_3_work.c index c85bc575f..6acfad8e1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetri_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetri_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetri_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetri_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetri_work.c index 22081f3c1..1ebb544c6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs.c index 530e3fd2e..87a1207fd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs2.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs2.c index be8c2418d..fefb1de10 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs2_work.c index 52c8aff54..8b1afe196 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_3.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_3.c index fb74e9bf9..59fdcd9c8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrs_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_3_work.c index da60c355c..fe8ca713e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrs_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa.c index ddcd65941..f39b99ecd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_2stage.c index b083d6f38..f071cb21c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrs_aa_2stage * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_2stage_work.c index 611123367..8286569d2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrs_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_work.c index d1d64a79b..c8a9ed160 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_rook.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_rook.c index befeafda3..3ce8160d5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhetrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_rook_work.c index 7dd6fa8b5..7ffe68bf1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_work.c index 9e0d68f22..07dddf07c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhetrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhetrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhetrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhfrk.c b/lapack-netlib/LAPACKE/src/lapacke_zhfrk.c index 3824692c2..6db0dbc29 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhfrk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhfrk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhfrk * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhfrk_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhfrk_work.c index 96b061011..e308eba1e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhfrk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhfrk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhfrk * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhgeqz.c b/lapack-netlib/LAPACKE/src/lapacke_zhgeqz.c index fc912428b..7737253f4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhgeqz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhgeqz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhgeqz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhgeqz_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhgeqz_work.c index 34f3ac055..867e458a7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhgeqz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhgeqz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhgeqz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpcon.c b/lapack-netlib/LAPACKE/src/lapacke_zhpcon.c index b458f63a1..636509f4a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpcon_work.c index fbdb8e0f8..5578f9019 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpev.c b/lapack-netlib/LAPACKE/src/lapacke_zhpev.c index 72f5850f2..003071d66 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpev.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpev.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpev_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpev_work.c index 450baabea..9cca2e602 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpev_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpev_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpev * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpevd.c b/lapack-netlib/LAPACKE/src/lapacke_zhpevd.c index a470ca3bb..742ca5f28 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpevd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpevd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpevd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpevd_work.c index d6438c07b..9facb86ce 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpevd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpevd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpevd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpevx.c b/lapack-netlib/LAPACKE/src/lapacke_zhpevx.c index 86293e91e..2ab91431b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpevx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpevx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpevx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpevx_work.c index a4d26c0c6..c5890175c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpevx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpevx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpevx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpgst.c b/lapack-netlib/LAPACKE/src/lapacke_zhpgst.c index 6099fda94..b5b80d869 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpgst.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpgst.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpgst_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpgst_work.c index 1f85c39dd..d2d52a0b2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpgst_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpgst_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpgst * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpgv.c b/lapack-netlib/LAPACKE/src/lapacke_zhpgv.c index 765bbd4d9..128b7b28e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpgv_work.c index ace5787e3..e97bdadb0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpgv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpgvd.c b/lapack-netlib/LAPACKE/src/lapacke_zhpgvd.c index 91fa26443..cb90e86cf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpgvd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpgvd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpgvd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpgvd_work.c index e859bf1a3..df0fdcc93 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpgvd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpgvd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpgvd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpgvx.c b/lapack-netlib/LAPACKE/src/lapacke_zhpgvx.c index 3f572238f..fd2b6b69c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpgvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpgvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpgvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpgvx_work.c index 416c7992e..2888b4723 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpgvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpgvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpgvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhprfs.c b/lapack-netlib/LAPACKE/src/lapacke_zhprfs.c index 4a8c71593..412dd2f9c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhprfs_work.c index 4c55571cd..bb527472a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpsv.c b/lapack-netlib/LAPACKE/src/lapacke_zhpsv.c index e0be842f3..131821209 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpsv_work.c index c3cff2c3e..3b4a880ec 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpsvx.c b/lapack-netlib/LAPACKE/src/lapacke_zhpsvx.c index b3035291a..aa4bd89d8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhpsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhpsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhpsvx_work.c index 15c60ff39..77afd7ea1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhpsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhpsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhpsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhptrd.c b/lapack-netlib/LAPACKE/src/lapacke_zhptrd.c index 8af15b65b..a31a3b74c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhptrd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhptrd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhptrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhptrd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhptrd_work.c index 8c1cda30b..05fd25699 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhptrd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhptrd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhptrd * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhptrf.c b/lapack-netlib/LAPACKE/src/lapacke_zhptrf.c index f22a708bf..071685212 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhptrf_work.c index 9355d7823..c48c34ab8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhptri.c b/lapack-netlib/LAPACKE/src/lapacke_zhptri.c index c20c3a577..1acd04c64 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhptri_work.c index 394db9fbb..394ad141b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhptrs.c b/lapack-netlib/LAPACKE/src/lapacke_zhptrs.c index 5a62629d4..b75e45e3b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhptrs_work.c index 1b5a97f13..eb085ba7e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhsein.c b/lapack-netlib/LAPACKE/src/lapacke_zhsein.c index 481485cde..f64e0ea67 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhsein.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhsein.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhsein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhsein_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhsein_work.c index 2e26a7f09..37258d351 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhsein_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhsein_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhsein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhseqr.c b/lapack-netlib/LAPACKE/src/lapacke_zhseqr.c index 6d1f71a99..64dbbb5e6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhseqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhseqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zhseqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zhseqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zhseqr_work.c index 544cdc68f..05c33615e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zhseqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zhseqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zhseqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacgv.c b/lapack-netlib/LAPACKE/src/lapacke_zlacgv.c index cd412dc24..cbfa99f51 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacgv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacgv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlacgv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacgv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlacgv_work.c index 00bb7cff2..c4dbd02b6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacgv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacgv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlacgv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacn2.c b/lapack-netlib/LAPACKE/src/lapacke_zlacn2.c index 76c6fd9e2..38a5bb4a4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacn2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacn2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function zlacn2 * Author: Intel Corporation -* Generated October, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacn2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlacn2_work.c index 6babae5a2..820e88a15 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacn2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacn2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlacn2 * Author: Intel Corporation -* Generated October, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacp2.c b/lapack-netlib/LAPACKE/src/lapacke_zlacp2.c index da5a178f5..1c76b70f6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacp2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacp2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function zlacp2 * Author: Intel Corporation -* Generated January, 2013 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacp2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlacp2_work.c index 87dbc369e..f5b3a229a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacp2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacp2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlacp2 * Author: Intel Corporation -* Generated January, 2013 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacpy.c b/lapack-netlib/LAPACKE/src/lapacke_zlacpy.c index 2b9b582f5..4e77c110c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacpy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacpy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlacpy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacpy_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlacpy_work.c index fe36ed811..e61bed6da 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacpy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacpy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlacpy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacrm.c b/lapack-netlib/LAPACKE/src/lapacke_zlacrm.c index a6a295d95..974fc07cd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacrm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacrm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlacrm * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlacrm_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlacrm_work.c index a2fd362cc..ed110cd72 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlacrm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlacrm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlacrm * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlag2c.c b/lapack-netlib/LAPACKE/src/lapacke_zlag2c.c index d1b330efb..56220d44f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlag2c.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlag2c.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlag2c * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlag2c_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlag2c_work.c index e2af86bc9..da5dd512c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlag2c_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlag2c_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlag2c * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlagge.c b/lapack-netlib/LAPACKE/src/lapacke_zlagge.c index 5710ddd14..b7c5554f2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlagge.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlagge.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlagge * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlagge_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlagge_work.c index 8bd8df002..92583bb63 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlagge_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlagge_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlagge * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlaghe.c b/lapack-netlib/LAPACKE/src/lapacke_zlaghe.c index 923b0fa7d..74b5925d9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlaghe.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlaghe.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlaghe * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlaghe_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlaghe_work.c index 792cda91f..0bc1ac22e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlaghe_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlaghe_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlaghe * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlagsy.c b/lapack-netlib/LAPACKE/src/lapacke_zlagsy.c index d2214970e..0f6f70064 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlagsy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlagsy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlagsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlagsy_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlagsy_work.c index 4875554c1..9fbe94f7f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlagsy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlagsy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlagsy * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlange.c b/lapack-netlib/LAPACKE/src/lapacke_zlange.c index a87b87225..75b76b00e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlange.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlange.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlange * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlange_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlange_work.c index 83cbbc327..217ae074c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlange_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlange_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlange * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlanhe.c b/lapack-netlib/LAPACKE/src/lapacke_zlanhe.c index 9b99b29c8..78468e5e1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlanhe.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlanhe.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlanhe * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlanhe_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlanhe_work.c index 22127dfee..899f3b13a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlanhe_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlanhe_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlanhe * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlansy.c b/lapack-netlib/LAPACKE/src/lapacke_zlansy.c index d1e9e0d8e..c7f878a90 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlansy.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlansy.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlansy * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlansy_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlansy_work.c index a88390f76..4e05b0fae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlansy_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlansy_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlansy * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlantr.c b/lapack-netlib/LAPACKE/src/lapacke_zlantr.c index e2e0bec24..f6656d84d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlantr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlantr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlantr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlantr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlantr_work.c index cccc4053e..f57911967 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlantr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlantr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlantr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlapmr.c b/lapack-netlib/LAPACKE/src/lapacke_zlapmr.c index b81976ca6..35086aa92 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlapmr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlapmr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlapmr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlapmr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlapmr_work.c index f9ed4ec8a..909065eb3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlapmr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlapmr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlapmr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlapmt.c b/lapack-netlib/LAPACKE/src/lapacke_zlapmt.c index c83583f2f..95e3b42f4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlapmt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlapmt.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlapmt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlapmt_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlapmt_work.c index 35e3798a9..70f604741 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlapmt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlapmt_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlapmt * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarcm.c b/lapack-netlib/LAPACKE/src/lapacke_zlarcm.c index 642192262..c8ca16059 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarcm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarcm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlarcm * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarcm_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlarcm_work.c index 183d958db..d4e31299e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarcm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarcm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlarcm * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarfb.c b/lapack-netlib/LAPACKE/src/lapacke_zlarfb.c index 4fc2eb0ab..7cd23dde8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarfb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarfb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlarfb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlarfb_work.c index 8289db78d..1b4f892a1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarfb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarfb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlarfb * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarfg.c b/lapack-netlib/LAPACKE/src/lapacke_zlarfg.c index a566a08cb..4b96733df 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarfg.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarfg.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlarfg * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarfg_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlarfg_work.c index ee0e13768..2d1e7ae27 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarfg_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarfg_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlarfg * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarft.c b/lapack-netlib/LAPACKE/src/lapacke_zlarft.c index be218df3b..d99a8c8f8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarft.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarft.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlarft * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarft_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlarft_work.c index 60e697097..b352b6aaf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarft_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarft_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlarft * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarfx.c b/lapack-netlib/LAPACKE/src/lapacke_zlarfx.c index b4ebf727e..489eb623b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarfx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarfx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlarfx * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarfx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlarfx_work.c index a6ad300d4..18f2a0646 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarfx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarfx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlarfx * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarnv.c b/lapack-netlib/LAPACKE/src/lapacke_zlarnv.c index 515e09b38..377e83f97 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarnv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarnv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlarnv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlarnv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlarnv_work.c index 0e86fa147..6912d591f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlarnv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlarnv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlarnv * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlascl.c b/lapack-netlib/LAPACKE/src/lapacke_zlascl.c index 8bf1ee767..9f18448c0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlascl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlascl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function dlaswp * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlascl_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlascl_work.c index 7adfbc9e5..631c0df46 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlascl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlascl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function dlaswp * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlaset.c b/lapack-netlib/LAPACKE/src/lapacke_zlaset.c index d43a424ea..e0973be12 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlaset.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlaset.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlaset * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlaset_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlaset_work.c index ecb6cba25..62b6b59a1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlaset_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlaset_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlaset * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlassq.c b/lapack-netlib/LAPACKE/src/lapacke_zlassq.c index b8972b974..3b68d12cc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlassq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlassq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlassq * Author: Julien langou -* Generated February 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlassq_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlassq_work.c index a4920b06a..625844de7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlassq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlassq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlassq * Author: Julien Langou -* Generated February, 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlaswp.c b/lapack-netlib/LAPACKE/src/lapacke_zlaswp.c index c18a3d7df..e166400b0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlaswp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlaswp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlaswp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlaswp_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlaswp_work.c index eafb9a59a..573fe9e9b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlaswp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlaswp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlaswp * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlatms.c b/lapack-netlib/LAPACKE/src/lapacke_zlatms.c index 4f131d8ca..c5fc346b6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlatms.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlatms.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlatms * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlatms_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlatms_work.c index a8869287d..1677896be 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlatms_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlatms_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlatms * Author: Intel Corporation -* Generated April, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlauum.c b/lapack-netlib/LAPACKE/src/lapacke_zlauum.c index fbda5b0bc..3f081f3c7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlauum.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlauum.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zlauum * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zlauum_work.c b/lapack-netlib/LAPACKE/src/lapacke_zlauum_work.c index 836c72132..c4e64dfaa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zlauum_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zlauum_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zlauum * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbcon.c b/lapack-netlib/LAPACKE/src/lapacke_zpbcon.c index f1091a264..fe6f218fd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpbcon_work.c index 1fa5a0656..8d05985a5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbequ.c b/lapack-netlib/LAPACKE/src/lapacke_zpbequ.c index caedf208b..eceb7071d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpbequ_work.c index a491f4380..59d9449fe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpbequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_zpbrfs.c index dd6d62435..d6702ab23 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpbrfs_work.c index fa9c4964b..f5539608e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbstf.c b/lapack-netlib/LAPACKE/src/lapacke_zpbstf.c index 0f717bfdd..32d199b8f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbstf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbstf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpbstf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbstf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpbstf_work.c index 6745c9bdc..50a951a5f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbstf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbstf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpbstf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbsv.c b/lapack-netlib/LAPACKE/src/lapacke_zpbsv.c index 8ec762aa4..681f01cdf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpbsv_work.c index 9d324fad2..4625c0e88 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpbsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbsvx.c b/lapack-netlib/LAPACKE/src/lapacke_zpbsvx.c index ef0fe4669..ee5549f65 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpbsvx_work.c index 70278a0d7..946f914b4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpbsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbtrf.c b/lapack-netlib/LAPACKE/src/lapacke_zpbtrf.c index f0cd1fac4..964968e52 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbtrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbtrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbtrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpbtrf_work.c index d02f8685c..8d47cdb9d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbtrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbtrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpbtrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_zpbtrs.c index 1302831f2..8c9cda089 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpbtrs_work.c index 773879ac6..ebd9943a1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpftrf.c b/lapack-netlib/LAPACKE/src/lapacke_zpftrf.c index cc18a12ed..4fd8523d7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpftrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpftrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpftrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpftrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpftrf_work.c index cd09a07bf..489da172c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpftrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpftrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpftrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpftri.c b/lapack-netlib/LAPACKE/src/lapacke_zpftri.c index 6ca58ed2b..6e814d7d3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpftri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpftri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpftri_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpftri_work.c index eff7b4b25..c4bc00b8d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpftri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpftri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpftrs.c b/lapack-netlib/LAPACKE/src/lapacke_zpftrs.c index db355583e..824aab248 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpftrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpftrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpftrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpftrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpftrs_work.c index 3983d2621..5aaf0f5c1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpftrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpftrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpftrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpocon.c b/lapack-netlib/LAPACKE/src/lapacke_zpocon.c index 3d943825b..fb676a767 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpocon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpocon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpocon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpocon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpocon_work.c index 8b3664417..558b99d03 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpocon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpocon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpocon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpoequ.c b/lapack-netlib/LAPACKE/src/lapacke_zpoequ.c index 7bb4fbb44..4fc645abe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpoequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpoequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpoequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpoequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpoequ_work.c index 3d3fb023c..b1daf1921 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpoequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpoequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpoequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpoequb.c b/lapack-netlib/LAPACKE/src/lapacke_zpoequb.c index 3c188c6d4..bacffa4bc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpoequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpoequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpoequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpoequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpoequb_work.c index a3c905945..a7c68feff 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpoequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpoequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpoequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zporfs.c b/lapack-netlib/LAPACKE/src/lapacke_zporfs.c index a3e958a0c..abcb405db 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zporfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zporfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zporfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zporfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zporfs_work.c index 268c0eef0..4717b5ba3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zporfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zporfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zporfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zporfsx.c b/lapack-netlib/LAPACKE/src/lapacke_zporfsx.c index e8ea525fa..d27145f37 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zporfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zporfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zporfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zporfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zporfsx_work.c index 697291a9f..f6f4a606c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zporfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zporfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zporfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zposv.c b/lapack-netlib/LAPACKE/src/lapacke_zposv.c index a2bf87418..5f52c3fff 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zposv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zposv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zposv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zposv_work.c index 1b2070331..350cf575c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zposv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zposv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zposv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zposvx.c b/lapack-netlib/LAPACKE/src/lapacke_zposvx.c index c5f1b3866..256b11632 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zposvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zposvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zposvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zposvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zposvx_work.c index 0d86b9386..227109c10 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zposvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zposvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zposvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zposvxx.c b/lapack-netlib/LAPACKE/src/lapacke_zposvxx.c index c507aab6f..842dbf4ba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zposvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zposvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zposvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zposvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zposvxx_work.c index a9715237a..1b2d3df52 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zposvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zposvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zposvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpotrf.c b/lapack-netlib/LAPACKE/src/lapacke_zpotrf.c index 07ef2572f..eef672e91 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpotrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpotrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpotrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpotrf2.c b/lapack-netlib/LAPACKE/src/lapacke_zpotrf2.c index 9628425a1..0aee85338 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpotrf2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpotrf2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpotrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpotrf2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpotrf2_work.c index daaca792f..e0cf84abe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpotrf2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpotrf2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpotrf2 * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpotrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpotrf_work.c index fdd366491..1d4c6990c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpotrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpotrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpotrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpotri.c b/lapack-netlib/LAPACKE/src/lapacke_zpotri.c index 68252cd2d..05ff05eeb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpotri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpotri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpotri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpotri_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpotri_work.c index 990aba1af..fe30a7d3c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpotri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpotri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpotri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpotrs.c b/lapack-netlib/LAPACKE/src/lapacke_zpotrs.c index bd8ca4b77..797153256 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpotrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpotrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpotrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpotrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpotrs_work.c index 02acc49c7..abfbf98ea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpotrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpotrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpotrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zppcon.c b/lapack-netlib/LAPACKE/src/lapacke_zppcon.c index d2611beb0..285be70c3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zppcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zppcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zppcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zppcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zppcon_work.c index 5f7a241ac..eb4d7856b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zppcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zppcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zppcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zppequ.c b/lapack-netlib/LAPACKE/src/lapacke_zppequ.c index 136b00b51..1e333d5d5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zppequ.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zppequ.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zppequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zppequ_work.c b/lapack-netlib/LAPACKE/src/lapacke_zppequ_work.c index 66035fd15..bf14edd17 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zppequ_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zppequ_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zppequ * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpprfs.c b/lapack-netlib/LAPACKE/src/lapacke_zpprfs.c index b898a1dfc..11f501b04 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpprfs_work.c index cd2ad18b3..1393d5d0e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zppsv.c b/lapack-netlib/LAPACKE/src/lapacke_zppsv.c index 9cb839e0f..c4073fe79 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zppsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zppsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zppsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zppsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zppsv_work.c index 9a75171c5..93e740ae3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zppsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zppsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zppsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zppsvx.c b/lapack-netlib/LAPACKE/src/lapacke_zppsvx.c index 4adcc02df..0bf829752 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zppsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zppsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zppsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zppsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zppsvx_work.c index 2ddeb198d..2ef652358 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zppsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zppsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zppsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpptrf.c b/lapack-netlib/LAPACKE/src/lapacke_zpptrf.c index 749b82256..abe8ae40b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpptrf_work.c index d9e445aca..1d6ae2bb1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpptri.c b/lapack-netlib/LAPACKE/src/lapacke_zpptri.c index e5f9be90d..6e992e521 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpptri_work.c index 7577cbddd..991d6357b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpptrs.c b/lapack-netlib/LAPACKE/src/lapacke_zpptrs.c index 25dd5f196..c379b51ef 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpptrs_work.c index ff9feb89f..867417cd4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpstrf.c b/lapack-netlib/LAPACKE/src/lapacke_zpstrf.c index ffe4bf625..dac94f5e5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpstrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpstrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpstrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpstrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpstrf_work.c index 3312f3189..a79a19d4f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpstrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpstrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpstrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zptcon.c b/lapack-netlib/LAPACKE/src/lapacke_zptcon.c index ecc705342..f3b72dea0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zptcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zptcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zptcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zptcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zptcon_work.c index 0162c8ca3..6638cdc44 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zptcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zptcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zptcon * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpteqr.c b/lapack-netlib/LAPACKE/src/lapacke_zpteqr.c index 522cb6a08..ac55c1309 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpteqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpteqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpteqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpteqr_work.c index 602295a64..47bae4e79 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpteqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpteqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zptrfs.c b/lapack-netlib/LAPACKE/src/lapacke_zptrfs.c index 4232f79ee..5e05c1b58 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zptrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zptrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zptrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zptrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zptrfs_work.c index 243d6da28..29a561f87 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zptrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zptrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zptrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zptsv.c b/lapack-netlib/LAPACKE/src/lapacke_zptsv.c index d6b0f8b07..4de2c9624 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zptsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zptsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zptsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zptsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zptsv_work.c index fc3f9e391..d530af267 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zptsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zptsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zptsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zptsvx.c b/lapack-netlib/LAPACKE/src/lapacke_zptsvx.c index 6987f850b..cbdf9ac76 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zptsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zptsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zptsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zptsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zptsvx_work.c index 60aa93824..ac1354097 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zptsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zptsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zptsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpttrf.c b/lapack-netlib/LAPACKE/src/lapacke_zpttrf.c index b0d8a4aa4..7b9d45494 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpttrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpttrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpttrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpttrf_work.c index 2c8556728..faf867a4e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpttrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpttrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpttrf * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpttrs.c b/lapack-netlib/LAPACKE/src/lapacke_zpttrs.c index 416269db3..14a42672b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpttrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpttrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zpttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zpttrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zpttrs_work.c index 7c6cb492a..5a7c2650f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zpttrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zpttrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zpttrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zspcon.c b/lapack-netlib/LAPACKE/src/lapacke_zspcon.c index dae745b48..25c2a1f58 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zspcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zspcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zspcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zspcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zspcon_work.c index 97864c302..8cb520cf3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zspcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zspcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zspcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsprfs.c b/lapack-netlib/LAPACKE/src/lapacke_zsprfs.c index c6b2a4e2e..0f55ffa57 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsprfs_work.c index e1c54955d..633aed68f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zspsv.c b/lapack-netlib/LAPACKE/src/lapacke_zspsv.c index 35288dbf9..89cf95ccf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zspsv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zspsv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zspsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zspsv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zspsv_work.c index 84112eb42..819f2b665 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zspsv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zspsv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zspsv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zspsvx.c b/lapack-netlib/LAPACKE/src/lapacke_zspsvx.c index f57193301..025a12196 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zspsvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zspsvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zspsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zspsvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zspsvx_work.c index 6f947d7df..4f986f58f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zspsvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zspsvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zspsvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsptrf.c b/lapack-netlib/LAPACKE/src/lapacke_zsptrf.c index 08a4e317f..70356d341 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsptrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsptrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsptrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsptrf_work.c index 7fd2f7718..3823e8942 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsptrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsptrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsptrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsptri.c b/lapack-netlib/LAPACKE/src/lapacke_zsptri.c index 4e0481e4a..7bb473453 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsptri_work.c index 5d932aa92..231026ad7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsptrs.c b/lapack-netlib/LAPACKE/src/lapacke_zsptrs.c index 7a0f8d054..5e99f48d9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsptrs_work.c index 2deb68766..9bea788d3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zstedc.c b/lapack-netlib/LAPACKE/src/lapacke_zstedc.c index 665c4414f..29f2ca56c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zstedc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zstedc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zstedc * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zstedc_work.c b/lapack-netlib/LAPACKE/src/lapacke_zstedc_work.c index d2e67dbb3..3c6a07f19 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zstedc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zstedc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zstedc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zstegr.c b/lapack-netlib/LAPACKE/src/lapacke_zstegr.c index 07b5ce81d..d74404044 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zstegr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zstegr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zstegr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zstegr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zstegr_work.c index 3b527e88a..a2de0f62b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zstegr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zstegr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zstegr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zstein.c b/lapack-netlib/LAPACKE/src/lapacke_zstein.c index d54f3bb67..ccad9fc38 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zstein.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zstein.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zstein * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zstein_work.c b/lapack-netlib/LAPACKE/src/lapacke_zstein_work.c index 9e6a9acbd..c65121576 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zstein_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zstein_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zstein * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zstemr.c b/lapack-netlib/LAPACKE/src/lapacke_zstemr.c index d1d1d5692..d64fb290c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zstemr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zstemr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zstemr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zstemr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zstemr_work.c index 02d459a48..b87018178 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zstemr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zstemr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zstemr * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsteqr.c b/lapack-netlib/LAPACKE/src/lapacke_zsteqr.c index 3b27f53b9..0337fe5ab 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsteqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsteqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsteqr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsteqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsteqr_work.c index acfd3baa0..b4db37210 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsteqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsteqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsteqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsycon.c b/lapack-netlib/LAPACKE/src/lapacke_zsycon.c index b4f726bdb..22c07e9de 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsycon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsycon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsycon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsycon_3.c b/lapack-netlib/LAPACKE/src/lapacke_zsycon_3.c index 1a3b3ddf7..c7d22234d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsycon_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsycon_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsycon_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsycon_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsycon_3_work.c index b59d02340..7dbf7f9a9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsycon_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsycon_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsycon_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsycon_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsycon_work.c index b38579200..1a2c7b4c2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsycon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsycon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsycon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyconv.c b/lapack-netlib/LAPACKE/src/lapacke_zsyconv.c index 074b15303..58856b958 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyconv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyconv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsyconv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyconv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsyconv_work.c index 259f4d74c..776e83487 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyconv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyconv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsyconv * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyequb.c b/lapack-netlib/LAPACKE/src/lapacke_zsyequb.c index 669c3dd9e..5d8d10965 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyequb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyequb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsyequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyequb_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsyequb_work.c index 8e625bdac..c30673528 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyequb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyequb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsyequb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyr.c b/lapack-netlib/LAPACKE/src/lapacke_zsyr.c index 097f0799b..c4bbe51c9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyr.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function zsyr * Author: Intel Corporation -* Generated March, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsyr_work.c index 6d8e9f778..743db8fb8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyr_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsyr * Author: Intel Corporation -* Generated March, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyrfs.c b/lapack-netlib/LAPACKE/src/lapacke_zsyrfs.c index a0246ba03..60cb9176a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsyrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsyrfs_work.c index 5897068d1..daf6cca02 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsyrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyrfsx.c b/lapack-netlib/LAPACKE/src/lapacke_zsyrfsx.c index a7401acca..13479d732 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyrfsx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyrfsx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsyrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyrfsx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsyrfsx_work.c index 1e96a756c..8d47f5cef 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyrfsx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyrfsx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsyrfsx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv.c index 1cb7d4673..71ef168a8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsysv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa.c index c2bf5c340..ac9a75c2a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsysv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_2stage.c index c30a381cd..05ee3f018 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsysv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_2stage_work.c index 8b46257d0..37e8d6c25 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsysv_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_work.c index 80ba5c746..637f6033e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsysv_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv_rk.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv_rk.c index 4dc56151e..137a3d26a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsysv_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv_rk_work.c index bb07da25e..349388a59 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsysv_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv_rook.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv_rook.c index 1e81b5689..e24d53395 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv_rook.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function zsysv_rook * Author: Intel Corporation -* Generated January, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv_rook_work.c index c002f2544..b383ec467 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv_rook_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsysv_rook * Author: Intel Corporation -* Generated January, 2012 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysv_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsysv_work.c index 46dda4698..eece455ce 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysv_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysv_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsysv * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysvx.c b/lapack-netlib/LAPACKE/src/lapacke_zsysvx.c index d35835559..abff21f16 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysvx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysvx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsysvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysvx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsysvx_work.c index 8a90f1516..44e88b13b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysvx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysvx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsysvx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysvxx.c b/lapack-netlib/LAPACKE/src/lapacke_zsysvxx.c index d7539404a..a39552e66 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysvxx.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysvxx.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsysvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsysvxx_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsysvxx_work.c index b65db3196..31730a343 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsysvxx_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsysvxx_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsysvxx * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyswapr.c b/lapack-netlib/LAPACKE/src/lapacke_zsyswapr.c index 17d580e42..1af377bca 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyswapr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyswapr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsyswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsyswapr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsyswapr_work.c index 44a297de5..22a5984bb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsyswapr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsyswapr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsyswapr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf.c index 56868b99e..daf980366 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa.c index 74a81f483..aab51a50f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_2stage.c index e629c8571..4e61bdee6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrf_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_2stage_work.c index db27e2873..386a50ac1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrf_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_work.c index 03726c63e..7f09d29da 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrf * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rk.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rk.c index f1722f434..f7a2afca8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rk.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rk.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrf_rk * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rk_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rk_work.c index 20270b7d1..f9ce39206 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rk_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rk_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrf_rk * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rook.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rook.c index 58411d0c9..7af47a0be 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rook_work.c index 9e7cc55d2..f9af65ca6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrf_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_work.c index 7fa47049c..273adbd57 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytri.c b/lapack-netlib/LAPACKE/src/lapacke_zsytri.c index a1c6db170..c9f634193 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytri2.c b/lapack-netlib/LAPACKE/src/lapacke_zsytri2.c index 434fbe191..467215199 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytri2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytri2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytri2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytri2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytri2_work.c index 1cd02bc2d..b22d41edb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytri2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytri2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytri2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytri2x.c b/lapack-netlib/LAPACKE/src/lapacke_zsytri2x.c index 770e8a481..e510790b0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytri2x.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytri2x.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytri2x_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytri2x_work.c index cd1fab17f..c7b672709 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytri2x_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytri2x_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytri2x * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytri_3.c b/lapack-netlib/LAPACKE/src/lapacke_zsytri_3.c index bd5677554..2a9f1bb79 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytri_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytri_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytri_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytri_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytri_3_work.c index 55e6c3463..02caa21bd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytri_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytri_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytri_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytri_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytri_work.c index d8852b2c4..2f869b942 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs.c index 9b8e064ca..d6fff75da 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs2.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs2.c index 3c85f9796..f1999d368 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs2.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs2_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs2_work.c index cdc97fa02..c12c50fd8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs2_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrs2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_3.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_3.c index fdfe059a9..cce73232a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_3.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_3.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrs_3 * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_3_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_3_work.c index c510a1f74..60c639083 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_3_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_3_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrs_3 * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa.c index a01567765..617dcc1f7 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_2stage.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_2stage.c index 8713aba49..c62e2893b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_2stage.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_2stage.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrs_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_2stage_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_2stage_work.c index 76c513980..a46fd59e8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_2stage_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_2stage_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrs_aa * Author: Intel Corporation -* Generated November 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_work.c index 8c54aa9b5..48b2f45ac 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_aa_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrs_aa * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_rook.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_rook.c index 052c17120..bb7671477 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_rook.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_rook.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zsytrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_rook_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_rook_work.c index 32a2f7adc..871b7df02 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_rook_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_rook_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrs_rook * Author: Intel Corporation -* Generated November, 2011 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_work.c index 2e501d6f5..8500ab13f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zsytrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zsytrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zsytrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztbcon.c b/lapack-netlib/LAPACKE/src/lapacke_ztbcon.c index 0bbe1e970..28a25e1a8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztbcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztbcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztbcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztbcon_work.c index deef7ba83..e2225fa3e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztbcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztbcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztbcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztbrfs.c b/lapack-netlib/LAPACKE/src/lapacke_ztbrfs.c index aa2a93660..a42bd1c08 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztbrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztbrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztbrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztbrfs_work.c index f6c5baf07..2eb7d602b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztbrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztbrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztbrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztbtrs.c b/lapack-netlib/LAPACKE/src/lapacke_ztbtrs.c index 4c4e1885e..6d587c996 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztbtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztbtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztbtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztbtrs_work.c index 4c6de59b8..fd157c813 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztbtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztbtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztbtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztfsm.c b/lapack-netlib/LAPACKE/src/lapacke_ztfsm.c index 79ca29a6d..e05579d22 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztfsm.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztfsm.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztfsm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztfsm_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztfsm_work.c index b703a1062..d8962f8f4 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztfsm_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztfsm_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztfsm * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztftri.c b/lapack-netlib/LAPACKE/src/lapacke_ztftri.c index 484279632..69f1d5eea 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztftri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztftri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztftri_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztftri_work.c index 8bd6116b1..314717c50 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztftri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztftri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztftri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztfttp.c b/lapack-netlib/LAPACKE/src/lapacke_ztfttp.c index 8b9853854..06142e1f8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztfttp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztfttp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztfttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztfttp_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztfttp_work.c index 43f5b7209..935b0e1d8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztfttp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztfttp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztfttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztfttr.c b/lapack-netlib/LAPACKE/src/lapacke_ztfttr.c index f367a5960..e896dd0fa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztfttr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztfttr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztfttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztfttr_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztfttr_work.c index 22892f4a0..631453853 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztfttr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztfttr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztfttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgevc.c b/lapack-netlib/LAPACKE/src/lapacke_ztgevc.c index a195c8cc6..574b8b461 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgevc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgevc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztgevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgevc_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztgevc_work.c index f8ce43c87..b06671429 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgevc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgevc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztgevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgexc.c b/lapack-netlib/LAPACKE/src/lapacke_ztgexc.c index b01c10014..56d7d861e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgexc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgexc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztgexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgexc_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztgexc_work.c index 91f2243ba..333e1d3f8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgexc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgexc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztgexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgsen.c b/lapack-netlib/LAPACKE/src/lapacke_ztgsen.c index f6f58becd..8c86d5e00 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgsen.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgsen.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztgsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgsen_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztgsen_work.c index 4ba48ea7b..ffdcb1d11 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgsen_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgsen_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztgsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgsja.c b/lapack-netlib/LAPACKE/src/lapacke_ztgsja.c index 485a62a26..61f83e283 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgsja.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgsja.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztgsja * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgsja_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztgsja_work.c index 3ae7e3734..6ae35663a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgsja_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgsja_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztgsja * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgsna.c b/lapack-netlib/LAPACKE/src/lapacke_ztgsna.c index 0e2599e03..d1c01a068 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgsna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgsna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztgsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgsna_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztgsna_work.c index de7d03273..4ef9e3f6b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgsna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgsna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztgsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgsyl.c b/lapack-netlib/LAPACKE/src/lapacke_ztgsyl.c index a0b303b46..944a0228d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgsyl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgsyl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztgsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztgsyl_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztgsyl_work.c index 0768d426e..5cf44e41e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztgsyl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztgsyl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztgsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpcon.c b/lapack-netlib/LAPACKE/src/lapacke_ztpcon.c index dd556af63..54b4cdecc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztpcon_work.c index 319dbe14e..6c1baefbe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztpcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpmqrt.c b/lapack-netlib/LAPACKE/src/lapacke_ztpmqrt.c index bae34b1ef..e39995e75 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpmqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpmqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function ztpmqrt * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpmqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztpmqrt_work.c index 7f1711805..643ae1d9d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpmqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpmqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztpmqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpqrt.c b/lapack-netlib/LAPACKE/src/lapacke_ztpqrt.c index f9eb95db5..f13112b2c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpqrt.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpqrt.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function ztpqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpqrt2.c b/lapack-netlib/LAPACKE/src/lapacke_ztpqrt2.c index a6707ed70..82208f0fb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpqrt2.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpqrt2.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function ztpqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpqrt2_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztpqrt2_work.c index 49fe89f4a..7a7db867f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpqrt2_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpqrt2_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztpqrt2 * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpqrt_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztpqrt_work.c index af0a19bbf..0ae35cd58 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpqrt_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpqrt_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztpqrt * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztprfb.c b/lapack-netlib/LAPACKE/src/lapacke_ztprfb.c index 7a791c0d4..a1ddaa401 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztprfb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztprfb.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native high-level C interface to LAPACK function ztprfb * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztprfb_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztprfb_work.c index 5507d5bb9..36944bbed 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztprfb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztprfb_work.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztprfb * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztprfs.c b/lapack-netlib/LAPACKE/src/lapacke_ztprfs.c index 51b8cbf19..bf299ee94 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztprfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztprfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztprfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztprfs_work.c index cdfff6d9f..c650c3c47 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztprfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztprfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztprfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztptri.c b/lapack-netlib/LAPACKE/src/lapacke_ztptri.c index 15c8b423e..fefcb2caf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztptri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztptri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztptri_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztptri_work.c index eeaadd202..e72d847d2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztptri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztptri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztptri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztptrs.c b/lapack-netlib/LAPACKE/src/lapacke_ztptrs.c index 6f7bb4056..bd69e98aa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztptrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztptrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztptrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztptrs_work.c index 1aa1a2df5..8dc225832 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztptrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztptrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztptrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpttf.c b/lapack-netlib/LAPACKE/src/lapacke_ztpttf.c index 44ad3c791..248985d0d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpttf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpttf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztpttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpttf_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztpttf_work.c index 42a6e9086..4df8d567a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpttf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpttf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztpttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpttr.c b/lapack-netlib/LAPACKE/src/lapacke_ztpttr.c index 30274aaa9..bd3a3235a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpttr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpttr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztpttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztpttr_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztpttr_work.c index 9599011ec..66ecd0b52 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztpttr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztpttr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztpttr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrcon.c b/lapack-netlib/LAPACKE/src/lapacke_ztrcon.c index ef921a461..39f8d2312 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrcon.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrcon.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrcon_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrcon_work.c index 29d05b1a8..08188d879 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrcon_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrcon_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrcon * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrevc.c b/lapack-netlib/LAPACKE/src/lapacke_ztrevc.c index ff7c105b8..185ed8854 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrevc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrevc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrevc_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrevc_work.c index c2989edde..818658fe0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrevc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrevc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrevc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrexc.c b/lapack-netlib/LAPACKE/src/lapacke_ztrexc.c index 28a1a72af..29b786a6b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrexc.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrexc.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrexc * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrexc_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrexc_work.c index d19746ac5..86647ede2 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrexc_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrexc_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrexc * Author: Intel Corporation -* Generated December 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrrfs.c b/lapack-netlib/LAPACKE/src/lapacke_ztrrfs.c index 1e89e3221..e1da3828a 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrrfs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrrfs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrrfs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrrfs_work.c index d3c2cc0de..f84a27be6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrrfs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrrfs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrrfs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrsen.c b/lapack-netlib/LAPACKE/src/lapacke_ztrsen.c index f65d914aa..0846ef694 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrsen.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrsen.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrsen_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrsen_work.c index 05b57962d..55dcee487 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrsen_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrsen_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrsen * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrsna.c b/lapack-netlib/LAPACKE/src/lapacke_ztrsna.c index 0fd9ae189..cf08c44d0 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrsna.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrsna.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrsna_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrsna_work.c index 8a2f19dde..1f0717df8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrsna_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrsna_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrsna * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrsyl.c b/lapack-netlib/LAPACKE/src/lapacke_ztrsyl.c index 98f9cda56..fe882e756 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrsyl.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrsyl.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrsyl_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrsyl_work.c index 46f79a179..4b0813aae 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrsyl_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrsyl_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrsyl * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrtri.c b/lapack-netlib/LAPACKE/src/lapacke_ztrtri.c index 2f1c639f5..94f8ef728 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrtri.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrtri.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrtri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrtri_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrtri_work.c index e4d2b18e1..d3963e6c1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrtri_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrtri_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrtri * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrtrs.c b/lapack-netlib/LAPACKE/src/lapacke_ztrtrs.c index 3482fcdd9..0a8477f27 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrtrs.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrtrs.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrtrs_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrtrs_work.c index 330f335c5..7a5ec17f3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrtrs_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrtrs_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrtrs * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrttf.c b/lapack-netlib/LAPACKE/src/lapacke_ztrttf.c index 8e8789ec6..22bb9b0f6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrttf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrttf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrttf_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrttf_work.c index 1e678a27a..5512a3d9c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrttf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrttf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrttf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrttp.c b/lapack-netlib/LAPACKE/src/lapacke_ztrttp.c index bd8485108..6c1239e94 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrttp.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrttp.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztrttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztrttp_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztrttp_work.c index f1c2edf28..b8488217d 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztrttp_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztrttp_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztrttp * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztzrzf.c b/lapack-netlib/LAPACKE/src/lapacke_ztzrzf.c index e4e7d44e7..a5ea5a27c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztzrzf.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztzrzf.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function ztzrzf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_ztzrzf_work.c b/lapack-netlib/LAPACKE/src/lapacke_ztzrzf_work.c index 6ab9ebb4b..5a76dfc1f 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_ztzrzf_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_ztzrzf_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function ztzrzf * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunbdb.c b/lapack-netlib/LAPACKE/src/lapacke_zunbdb.c index 91ab2c4de..4d6cb8faf 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunbdb.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunbdb.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunbdb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunbdb_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunbdb_work.c index 7a4cb97e2..94fc92d38 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunbdb_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunbdb_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunbdb * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zuncsd.c b/lapack-netlib/LAPACKE/src/lapacke_zuncsd.c index 196089812..a423e9135 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zuncsd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zuncsd.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zuncsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zuncsd2by1.c b/lapack-netlib/LAPACKE/src/lapacke_zuncsd2by1.c index 61ac9c089..321b5af49 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zuncsd2by1.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zuncsd2by1.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zuncsd2by1 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zuncsd2by1_work.c b/lapack-netlib/LAPACKE/src/lapacke_zuncsd2by1_work.c index 6d3296100..72f1454ff 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zuncsd2by1_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zuncsd2by1_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zuncsd2by1 * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zuncsd_work.c b/lapack-netlib/LAPACKE/src/lapacke_zuncsd_work.c index 4d474a715..aa74cd5d8 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zuncsd_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zuncsd_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zuncsd * Author: Intel Corporation -* Generated June 2017 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungbr.c b/lapack-netlib/LAPACKE/src/lapacke_zungbr.c index 9a91fc44a..a06b89267 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungbr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungbr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zungbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungbr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zungbr_work.c index fc5540700..e7b1a18fe 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungbr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungbr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zungbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunghr.c b/lapack-netlib/LAPACKE/src/lapacke_zunghr.c index 9d681ded5..276b263aa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunghr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunghr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunghr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunghr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunghr_work.c index 739efb37d..6f91e4ee6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunghr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunghr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunghr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunglq.c b/lapack-netlib/LAPACKE/src/lapacke_zunglq.c index 21af17dfd..d42d1a278 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunglq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunglq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunglq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunglq_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunglq_work.c index 9463038e5..5e57d6acc 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunglq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunglq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunglq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungql.c b/lapack-netlib/LAPACKE/src/lapacke_zungql.c index a4204b6ef..516d2b221 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungql.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungql.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zungql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungql_work.c b/lapack-netlib/LAPACKE/src/lapacke_zungql_work.c index 048df0f1d..61ab14ce5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungql_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungql_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zungql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungqr.c b/lapack-netlib/LAPACKE/src/lapacke_zungqr.c index b15d0c923..8aeedc402 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zungqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zungqr_work.c index 753769200..f50c0b15b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zungqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungrq.c b/lapack-netlib/LAPACKE/src/lapacke_zungrq.c index 6c6378bfa..7b8a3eca5 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungrq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungrq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zungrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungrq_work.c b/lapack-netlib/LAPACKE/src/lapacke_zungrq_work.c index 5380c5fbe..6c5856d73 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungrq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungrq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zungrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungtr.c b/lapack-netlib/LAPACKE/src/lapacke_zungtr.c index adfaa7db9..9b5769225 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zungtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zungtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zungtr_work.c index 57db8b5c3..0ddb09fba 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zungtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zungtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zungtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmbr.c b/lapack-netlib/LAPACKE/src/lapacke_zunmbr.c index 2449d8511..64c68b29c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmbr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmbr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunmbr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmbr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunmbr_work.c index 13191a90c..b11d67ffb 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmbr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmbr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunmbr * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmhr.c b/lapack-netlib/LAPACKE/src/lapacke_zunmhr.c index 61ed6f6f2..f928b6c2e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmhr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmhr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunmhr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmhr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunmhr_work.c index e70642f4c..098473d12 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmhr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmhr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunmhr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmlq.c b/lapack-netlib/LAPACKE/src/lapacke_zunmlq.c index c306bbc84..06b10389c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmlq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmlq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunmlq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmlq_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunmlq_work.c index f51fbc844..e82e7e3c6 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmlq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmlq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunmlq * Author: Intel Corporation -* Generated June 2016 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmql.c b/lapack-netlib/LAPACKE/src/lapacke_zunmql.c index 3c06a1a1e..3cf4ace23 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmql.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmql.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunmql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmql_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunmql_work.c index f59151556..d0f155d94 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmql_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmql_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunmql * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmqr.c b/lapack-netlib/LAPACKE/src/lapacke_zunmqr.c index 7a43ebc50..7ba58eb14 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmqr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmqr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunmqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmqr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunmqr_work.c index b6d9a5045..4a8fbbae3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmqr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmqr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunmqr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmrq.c b/lapack-netlib/LAPACKE/src/lapacke_zunmrq.c index d3ffb39b7..8426d3b4e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmrq.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmrq.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunmrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmrq_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunmrq_work.c index bd3f4e4c1..f3ae97560 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmrq_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmrq_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunmrq * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmrz.c b/lapack-netlib/LAPACKE/src/lapacke_zunmrz.c index a8f1ce079..f95f27e2c 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmrz.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmrz.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunmrz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmrz_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunmrz_work.c index 17a9eb5a2..be1cc73e1 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmrz_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmrz_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunmrz * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmtr.c b/lapack-netlib/LAPACKE/src/lapacke_zunmtr.c index 433385440..90afb42dd 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zunmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zunmtr_work.c index bcf34bbdb..41e1f26ce 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zunmtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zunmtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zunmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zupgtr.c b/lapack-netlib/LAPACKE/src/lapacke_zupgtr.c index 8b4b7ec93..5c698bfd9 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zupgtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zupgtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zupgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zupgtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zupgtr_work.c index 123b2a668..52f169df3 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zupgtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zupgtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zupgtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zupmtr.c b/lapack-netlib/LAPACKE/src/lapacke_zupmtr.c index 80bbd9529..2f4cceeaa 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zupmtr.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zupmtr.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native high-level C interface to LAPACK function zupmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/src/lapacke_zupmtr_work.c b/lapack-netlib/LAPACKE/src/lapacke_zupmtr_work.c index f57daacbe..6b623889b 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zupmtr_work.c +++ b/lapack-netlib/LAPACKE/src/lapacke_zupmtr_work.c @@ -28,7 +28,6 @@ ***************************************************************************** * Contents: Native middle-level C interface to LAPACK function zupmtr * Author: Intel Corporation -* Generated November 2015 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/Makefile b/lapack-netlib/LAPACKE/utils/Makefile index 648a8c141..adc573650 100644 --- a/lapack-netlib/LAPACKE/utils/Makefile +++ b/lapack-netlib/LAPACKE/utils/Makefile @@ -28,7 +28,6 @@ ############################################################################## # Contents: Native C interface to LAPACK # Author: Intel Corporation -# September, 2010 ############################################################################## # makefile for LAPACKE, used to build lapacke binary. # diff --git a/lapack-netlib/LAPACKE/utils/lapacke_c_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_c_nancheck.c index fd0a7bad1..82a424239 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_c_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_c_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cgb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cgb_nancheck.c index 400e806f2..0c35bd67b 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cgb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cgb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cgb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_cgb_trans.c index 43f576670..2adf71493 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cgb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cgb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cge_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cge_nancheck.c index 67eb3d5c4..18e194d3a 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cge_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cge_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cge_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_cge_trans.c index d110a4171..0d44ad59d 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cge_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cge_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cgg_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cgg_nancheck.c index d480ce54c..371135ac7 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cgg_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cgg_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cgg_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_cgg_trans.c index 89022593e..678a482df 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cgg_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cgg_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cgt_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cgt_nancheck.c index eed95f894..ea73848f3 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cgt_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cgt_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_chb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_chb_nancheck.c index 5b63d3b39..2c6211147 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_chb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_chb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_chb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_chb_trans.c index a5bb186d6..00175027d 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_chb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_chb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_che_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_che_nancheck.c index c071ac8a6..6e652b71d 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_che_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_che_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_che_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_che_trans.c index 831988a8c..a6a96f7ef 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_che_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_che_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_chp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_chp_nancheck.c index 0a7e6a2e2..0d74cbf08 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_chp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_chp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_chp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_chp_trans.c index 9d8a3c03c..2ab59b112 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_chp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_chp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_chs_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_chs_nancheck.c index ffe179dd8..f0756bfb9 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_chs_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_chs_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_chs_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_chs_trans.c index aa10f8130..eff8c8c4e 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_chs_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_chs_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cpb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cpb_nancheck.c index b557c4b04..5fea7377a 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cpb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cpb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cpb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_cpb_trans.c index 93d540269..99e3960fa 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cpb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cpb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cpf_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cpf_nancheck.c index 5e058418e..551b96966 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cpf_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cpf_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cpf_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_cpf_trans.c index 961f937a3..df397c0f6 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cpf_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cpf_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cpo_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cpo_nancheck.c index 9cf668eab..62091f36b 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cpo_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cpo_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cpo_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_cpo_trans.c index ca36c3c5d..7b4f2a23f 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cpo_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cpo_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cpp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cpp_nancheck.c index 23174d68b..bc6d10442 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cpp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cpp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cpp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_cpp_trans.c index 80ecb7fb9..6408b93a8 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cpp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cpp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cpt_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cpt_nancheck.c index d45c2774e..f0c445c9e 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cpt_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cpt_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_csp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_csp_nancheck.c index d1a8aa290..8664be84b 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_csp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_csp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_csp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_csp_trans.c index 4b329b520..db1ff915d 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_csp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_csp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_cst_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_cst_nancheck.c index 76db32ee8..831421dbc 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_cst_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_cst_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_csy_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_csy_nancheck.c index 001718d71..aedb04734 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_csy_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_csy_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_csy_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_csy_trans.c index 2d43d1458..48ee3187c 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_csy_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_csy_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ctb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ctb_nancheck.c index a46f67f81..9647d3b65 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ctb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ctb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ctb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ctb_trans.c index 23149cc36..c266e3ea6 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ctb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ctb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ctf_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ctf_nancheck.c index 084bbf1f5..e08f51175 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ctf_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ctf_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ctf_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ctf_trans.c index 5de54dc72..e0c88dde0 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ctf_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ctf_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ctp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ctp_nancheck.c index 35c48a409..30c8a9398 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ctp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ctp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ctp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ctp_trans.c index 6678e1a5b..2141a6c61 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ctp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ctp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ctr_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ctr_nancheck.c index 1ce2c747c..4bc96ed4c 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ctr_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ctr_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ctr_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ctr_trans.c index f4fa41e03..a57c0562f 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ctr_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ctr_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_d_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_d_nancheck.c index 1771cede0..328939b44 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_d_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_d_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dgb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dgb_nancheck.c index e94d488d7..4f3e039c1 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dgb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dgb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dgb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dgb_trans.c index 8930a6e5f..6624936a6 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dgb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dgb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dge_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dge_nancheck.c index fcb85ea1b..47d7d5db8 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dge_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dge_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dge_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dge_trans.c index 4dd71f33f..ac9d5e47e 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dge_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dge_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dgg_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dgg_nancheck.c index 573e7e4eb..f70fae585 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dgg_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dgg_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dgg_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dgg_trans.c index 09526c32c..117ffa416 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dgg_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dgg_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dgt_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dgt_nancheck.c index feeaebaea..8d42c5738 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dgt_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dgt_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dhs_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dhs_nancheck.c index b0ded003e..6dc087cbe 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dhs_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dhs_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dhs_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dhs_trans.c index 0a5635a4f..6d6fbeb9d 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dhs_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dhs_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dpb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dpb_nancheck.c index af21e725e..0ea19feeb 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dpb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dpb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dpb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dpb_trans.c index 8ce4de731..88b9bebfa 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dpb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dpb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dpf_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dpf_nancheck.c index df95f1318..cb36afc17 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dpf_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dpf_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dpf_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dpf_trans.c index 8e2365d72..4ba320ecd 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dpf_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dpf_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dpo_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dpo_nancheck.c index 2b9ded763..2faacbb70 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dpo_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dpo_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dpo_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dpo_trans.c index 49cbe44ea..f2de7eaa1 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dpo_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dpo_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dpp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dpp_nancheck.c index 0ba66f96c..6e2182e1f 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dpp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dpp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dpp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dpp_trans.c index 031d3f9d8..43de0bd46 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dpp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dpp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dpt_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dpt_nancheck.c index aa46c0749..887db5cf8 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dpt_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dpt_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dsb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dsb_nancheck.c index 4bd62ab2d..8de1aa088 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dsb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dsb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dsb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dsb_trans.c index 1ebbebbae..db2994e0c 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dsb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dsb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dsp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dsp_nancheck.c index 69d24611c..ba9e6a0ac 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dsp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dsp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dsp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dsp_trans.c index c95bc32cb..3a73a691c 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dsp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dsp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dst_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dst_nancheck.c index 7a6a33fee..f306606fa 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dst_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dst_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dsy_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dsy_nancheck.c index 3492cb42c..c9d78b921 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dsy_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dsy_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dsy_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dsy_trans.c index 262ec7fdb..697e2048f 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dsy_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dsy_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dtb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dtb_nancheck.c index 58e4a3b0b..57912510c 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dtb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dtb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dtb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dtb_trans.c index 168c0e864..54199debc 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dtb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dtb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dtf_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dtf_nancheck.c index 450d1224d..0aae44837 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dtf_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dtf_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dtf_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dtf_trans.c index 0a5d6fa32..24ef7f5ab 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dtf_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dtf_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dtp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dtp_nancheck.c index 43f33bdd2..d8b5eabbb 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dtp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dtp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dtp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dtp_trans.c index 7d7455de7..dc8e03242 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dtp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dtp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dtr_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_dtr_nancheck.c index 3033dd10f..93fe775d3 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dtr_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dtr_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_dtr_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_dtr_trans.c index e011d3705..f378b8503 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_dtr_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_dtr_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_lsame.c b/lapack-netlib/LAPACKE/utils/lapacke_lsame.c index 641e9db85..e4592ce11 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_lsame.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_lsame.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK lsame * Author: Intel Corporation -* Created in January, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_s_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_s_nancheck.c index 194f68762..6abc907e2 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_s_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_s_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_sgb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_sgb_nancheck.c index e20cb2421..a1f3aa97b 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_sgb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_sgb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_sgb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_sgb_trans.c index cfdce0e30..046fdb9ca 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_sgb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_sgb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_sge_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_sge_nancheck.c index a47e7e2b8..e15d087db 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_sge_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_sge_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_sge_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_sge_trans.c index 0e128e179..21199e4d5 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_sge_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_sge_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_sgg_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_sgg_nancheck.c index cb0c114f2..382c448c9 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_sgg_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_sgg_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_sgg_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_sgg_trans.c index a077ae12c..3d9d0d22f 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_sgg_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_sgg_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_sgt_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_sgt_nancheck.c index ea4f76306..71ebfd7aa 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_sgt_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_sgt_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_shs_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_shs_nancheck.c index 5a54a2f59..400c3f2ef 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_shs_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_shs_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_shs_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_shs_trans.c index fc97bfafe..00e7fa80d 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_shs_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_shs_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_spb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_spb_nancheck.c index b04b88923..0ea931cf8 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_spb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_spb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_spb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_spb_trans.c index 5e27e79c7..7b329cd0f 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_spb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_spb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_spf_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_spf_nancheck.c index 20666c4d6..5499e150c 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_spf_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_spf_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_spf_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_spf_trans.c index 10800da45..13458cb42 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_spf_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_spf_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_spo_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_spo_nancheck.c index fff2e4d08..5b0734e73 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_spo_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_spo_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_spo_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_spo_trans.c index 409e062aa..f99e661af 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_spo_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_spo_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_spp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_spp_nancheck.c index c1098de70..ff83c2275 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_spp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_spp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_spp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_spp_trans.c index 658041d6e..a382fe6e8 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_spp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_spp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_spt_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_spt_nancheck.c index 67cdaf39a..aa4d0b8c5 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_spt_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_spt_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ssb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ssb_nancheck.c index 0874e766e..4a8edf156 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ssb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ssb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ssb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ssb_trans.c index 698250773..b11b513ce 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ssb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ssb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ssp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ssp_nancheck.c index 35ffe6522..94e533877 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ssp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ssp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ssp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ssp_trans.c index 9583368ea..1737f3338 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ssp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ssp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_sst_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_sst_nancheck.c index e82a26a6b..3372a3609 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_sst_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_sst_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ssy_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ssy_nancheck.c index 89e962e8f..ed6ac60ea 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ssy_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ssy_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ssy_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ssy_trans.c index 8f95c786d..a9122b685 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ssy_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ssy_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_stb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_stb_nancheck.c index 5a8705618..e1910162a 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_stb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_stb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_stb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_stb_trans.c index 2a2159dbc..f915cc752 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_stb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_stb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_stf_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_stf_nancheck.c index 96861c22e..95128c0e7 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_stf_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_stf_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_stf_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_stf_trans.c index 065329fa9..6d737e2c9 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_stf_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_stf_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_stp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_stp_nancheck.c index 4dfef0200..6c16368d5 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_stp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_stp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_stp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_stp_trans.c index 7e676004f..5c74724e8 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_stp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_stp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_str_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_str_nancheck.c index c149b7d32..df5c7dd5a 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_str_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_str_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_str_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_str_trans.c index 3a7ec33d9..4416572e6 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_str_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_str_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_xerbla.c b/lapack-netlib/LAPACKE/utils/lapacke_xerbla.c index de4761faa..8ce4b8e08 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_xerbla.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_xerbla.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK lsame * Author: Intel Corporation -* Created in January, 2010 *****************************************************************************/ #include diff --git a/lapack-netlib/LAPACKE/utils/lapacke_z_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_z_nancheck.c index 539ab9a8d..ce6b18e63 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_z_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_z_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zgb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zgb_nancheck.c index 8f0ffc1d6..5d98cd588 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zgb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zgb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zgb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zgb_trans.c index c0b122aa8..32a9de379 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zgb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zgb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zge_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zge_nancheck.c index 0aa9ae36e..9fa7fc61c 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zge_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zge_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zge_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zge_trans.c index 79090ecb7..bc4d96255 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zge_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zge_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zgg_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zgg_nancheck.c index 9a97a757b..2ecf90613 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zgg_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zgg_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zgg_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zgg_trans.c index c114c7a62..3596f3b16 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zgg_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zgg_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zgt_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zgt_nancheck.c index 4bda8b4e4..6a434bd59 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zgt_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zgt_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zhb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zhb_nancheck.c index 9b8d71805..23e097179 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zhb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zhb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zhb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zhb_trans.c index 7b84afadd..6bab305b9 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zhb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zhb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zhe_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zhe_nancheck.c index ab63037e9..d0fe8e168 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zhe_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zhe_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zhe_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zhe_trans.c index 4c18c07a5..d7fd00f6f 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zhe_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zhe_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zhp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zhp_nancheck.c index bcf331fe1..1cfbd7e54 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zhp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zhp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zhp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zhp_trans.c index 2501c7fd9..b61b1b3ba 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zhp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zhp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zhs_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zhs_nancheck.c index af73e7d4f..7283af031 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zhs_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zhs_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zhs_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zhs_trans.c index 95ab6a363..44a2d976a 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zhs_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zhs_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zpb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zpb_nancheck.c index 4c9d221cb..521eed959 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zpb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zpb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zpb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zpb_trans.c index f175ebcc0..5afb4071e 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zpb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zpb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zpf_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zpf_nancheck.c index c510b1d1a..6ec322af0 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zpf_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zpf_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zpf_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zpf_trans.c index c9c43b38a..2cc41bff2 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zpf_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zpf_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zpo_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zpo_nancheck.c index b88c3c7d4..61eb46da5 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zpo_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zpo_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zpo_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zpo_trans.c index d58d37b04..70d7a845a 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zpo_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zpo_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zpp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zpp_nancheck.c index 450878bcf..f2982a855 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zpp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zpp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zpp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zpp_trans.c index 70a5d7b4c..1cae63637 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zpp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zpp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zpt_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zpt_nancheck.c index 8a6401cad..3e09ee0bd 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zpt_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zpt_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zsp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zsp_nancheck.c index 2d7795166..edc59029f 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zsp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zsp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zsp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zsp_trans.c index 76d504d43..a445a6016 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zsp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zsp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zst_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zst_nancheck.c index 3e9aa5b4c..7775a1a2d 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zst_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zst_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zsy_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_zsy_nancheck.c index e4456d9aa..57deee0d0 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zsy_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zsy_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_zsy_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_zsy_trans.c index ff4c65a29..341fda731 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_zsy_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_zsy_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ztb_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ztb_nancheck.c index 7c2297308..0c2c809b8 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ztb_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ztb_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ztb_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ztb_trans.c index 868629b99..063f14540 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ztb_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ztb_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ztf_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ztf_nancheck.c index 4c899d597..2cfa86bf1 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ztf_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ztf_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ztf_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ztf_trans.c index 566d95ae3..6bc6fcc48 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ztf_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ztf_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ztp_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ztp_nancheck.c index d3a06c381..dc347eaa5 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ztp_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ztp_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ztp_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ztp_trans.c index e7369baae..47b4851b6 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ztp_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ztp_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ztr_nancheck.c b/lapack-netlib/LAPACKE/utils/lapacke_ztr_nancheck.c index e8e792e8a..7058a33ed 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ztr_nancheck.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ztr_nancheck.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/LAPACKE/utils/lapacke_ztr_trans.c b/lapack-netlib/LAPACKE/utils/lapacke_ztr_trans.c index 23f17b9ec..e3042bfa5 100644 --- a/lapack-netlib/LAPACKE/utils/lapacke_ztr_trans.c +++ b/lapack-netlib/LAPACKE/utils/lapacke_ztr_trans.c @@ -28,7 +28,6 @@ ****************************************************************************** * Contents: Native C interface to LAPACK utility function * Author: Intel Corporation -* Created in February, 2010 *****************************************************************************/ #include "lapacke_utils.h" diff --git a/lapack-netlib/SRC/CMakeLists.txt b/lapack-netlib/SRC/CMakeLists.txt index bb1459165..90c5e61a9 100644 --- a/lapack-netlib/SRC/CMakeLists.txt +++ b/lapack-netlib/SRC/CMakeLists.txt @@ -36,12 +36,13 @@ ####################################################################### set(ALLAUX ilaenv.f ilaenv2stage.f ieeeck.f lsamen.f iparmq.f iparam2stage.F - ilaprec.f ilatrans.f ilauplo.f iladiag.f chla_transtype.f + ilaprec.f ilatrans.f ilauplo.f iladiag.f chla_transtype.f la_xisnan.F90 ../INSTALL/ilaver.f ../INSTALL/lsame.f xerbla.f xerbla_array.f ../INSTALL/slamch.f) set(SCLAUX - sbdsdc.f + la_constants.f90 + sbdsvdx.f 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 @@ -49,47 +50,52 @@ set(SCLAUX 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 + slartg.f90 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 + slasr.f slasrt.f slassq.f90 slasv2.f spttrf.f sstebz.f sstedc.f + sstein.f ssteqr.f ssterf.f sstevx.f + slartgp.f slartgs.f ../INSTALL/sroundup_lwork.f ${SECOND_SRC}) set(DZLAUX - dbdsdc.f - dbdsqr.f ddisna.f dlabad.f dlacpy.f dladiv.f dlae2.f dlaebz.f + la_constants.f90 + dbdsdc.f dbdsvdx.f + dbdsqr.f ddisna.f + disnan.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 + dlartg.f90 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 + dlasr.f dlasrt.f dlassq.f90 dlasv2.f dlaisnan.f + dpttrf.f + dstebz.f dstedc.f dstein.f dsteqr.f dsterf.f dstevx.f + dlartgp.f dlartgs.f ../INSTALL/droundup_lwork.f ../INSTALL/dlamch.f ${DSECOND_SRC}) set(SLASRC - sbdsvdx.f sgbbrd.f sgbcon.f sgbequ.f sgbrfs.f sgbsv.f + 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 sgehd2.f sgehrd.f sgelq2.f sgelqf.f sgels.f sgelsd.f sgelss.f sgelsy.f sgeql2.f sgeqlf.f sgeqp3.f sgeqr2.f sgeqr2p.f sgeqrf.f sgeqrfp.f sgerfs.f sgerq2.f sgerqf.f sgesc2.f sgesdd.f sgesv.f sgesvd.f sgesvdx.f sgesvx.f sgetc2.f sgetf2.f - sgetrf2.f sgetri.f + sgetri.f sggbak.f sggbal.f sgges.f sgges3.f sggesx.f sggev.f sggev3.f sggevx.f sggglm.f sgghrd.f sgghd3.f sgglse.f sggqrf.f sggrqf.f sggsvd3.f sggsvp3.f sgtcon.f sgtrfs.f sgtsv.f sgtsvx.f sgttrf.f sgttrs.f sgtts2.f shgeqz.f + slaqz0.f slaqz1.f slaqz2.f slaqz3.f slaqz4.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 slahr2.f slaic1.f slaln2.f slals0.f slalsa.f slalsd.f @@ -99,27 +105,27 @@ set(SLASRC 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 slarfy.f slargv.f + slarf.f slarfb.f slarfb_gett.f slarfg.f slarfgp.f slarft.f slarfx.f slarfy.f slargv.f slarrv.f slartv.f - slarz.f slarzb.f slarzt.f slaswp.f slasy2.f + slarz.f slarzb.f slarzt.f slasy2.f slasyf.f slasyf_rook.f slasyf_rk.f slasyf_aa.f slatbs.f slatdf.f slatps.f slatrd.f slatrs.f slatrz.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 sorgtsqr.f sorm2l.f sorm2r.f sorm22.f + sorgrq.f sorgtr.f sorgtsqr.f sorgtsqr_row.f sorm2l.f sorm2r.f sorm22.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 spotrf2.f spotri.f spstrf.f spstf2.f + sposvx.f spotf2.f spotri.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 + ssptrf.f ssptri.f ssptrs.f sstegr.f sstev.f sstevd.f sstevr.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 @@ -145,16 +151,18 @@ set(SLASRC sgeqrt.f sgeqrt2.f sgeqrt3.f sgemqrt.f stpqrt.f stpqrt2.f stpmqrt.f stprfb.f sgelqt.f sgelqt3.f sgemlqt.f - sgetsls.f sgeqr.f slatsqr.f slamtsqr.f sgemqr.f + sgetsls.f sgetsqrhrt.f sgeqr.f slatsqr.f slamtsqr.f sgemqr.f sgelq.f slaswlq.f slamswlq.f sgemlq.f stplqt.f stplqt2.f stpmlqt.f sorhr_col.f slaorhr_col_getrfnp.f slaorhr_col_getrfnp2.f ssytrd_2stage.f ssytrd_sy2sb.f ssytrd_sb2st.F ssb2st_kernels.f ssyevd_2stage.f ssyev_2stage.f ssyevx_2stage.f ssyevr_2stage.f ssbev_2stage.f ssbevx_2stage.f ssbevd_2stage.f ssygv_2stage.f - sgesvdq.f scombssq.f) + sgesvdq.f) -set(DSLASRC spotrs.f sgetrs.f spotrf.f sgetrf.f) +set(DSLASRC + sgetrf.f sgetrf2.f sgetrs.f sisnan.f slaisnan.f slaswp.f spotrf.f spotrf2.f + spotrs.f) set(SXLASRC sgesvxx.f sgerfsx.f sla_gerfsx_extended.f sla_geamv.f sla_gercond.f sla_gerpvgrw.f ssysvxx.f ssyrfsx.f @@ -193,6 +201,7 @@ set(CLASRC chesv_aa.f chetrf_aa.f chetrs_aa.f chesv_aa_2stage.f chetrf_aa_2stage.f chetrs_aa_2stage.f chgeqz.f chpcon.f chpev.f chpevd.f + claqz0.f claqz1.f claqz2.f claqz3.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 @@ -207,9 +216,9 @@ set(CLASRC 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 clarfy.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 + clarf.f clarfb.f clarfb_gett.f clarfg.f clarfgp.f clarft.f + clarfx.f clarfy.f clargv.f clarnv.f clarrv.f clartg.f90 clartv.f + clarz.f clarzb.f clarzt.f clascl.f claset.f clasr.f classq.f90 claswp.f clasyf.f clasyf_rook.f clasyf_rk.f clasyf_aa.f clatbs.f clatdf.f clatps.f clatrd.f clatrs.f clatrz.f clauu2.f clauum.f cpbcon.f cpbequ.f cpbrfs.f cpbstf.f cpbsv.f @@ -235,7 +244,7 @@ set(CLASRC ctptrs.f ctrcon.f ctrevc.f ctrevc3.f ctrexc.f ctrrfs.f ctrsen.f ctrsna.f ctrsyl.f ctrti2.f ctrtri.f ctrtrs.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 cungtsqr.f cunm2l.f cunm2r.f cunmbr.f cunmhr.f cunml2.f cunm22.f + cungrq.f cungtr.f cungtsqr.f cungtsqr_row.f cunm2l.f cunm2r.f cunmbr.f cunmhr.f cunml2.f cunm22.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 @@ -246,7 +255,7 @@ set(CLASRC cgeqrt.f cgeqrt2.f cgeqrt3.f cgemqrt.f ctpqrt.f ctpqrt2.f ctpmqrt.f ctprfb.f cgelqt.f cgelqt3.f cgemlqt.f - cgetsls.f cgeqr.f clatsqr.f clamtsqr.f cgemqr.f + cgetsls.f cgetsqrhrt.f cgeqr.f clatsqr.f clamtsqr.f cgemqr.f cgelq.f claswlq.f clamswlq.f cgemlq.f ctplqt.f ctplqt2.f ctpmlqt.f cunhr_col.f claunhr_col_getrfnp.f claunhr_col_getrfnp2.f @@ -267,7 +276,10 @@ set(CXLASRC cgesvxx.f cgerfsx.f cla_gerfsx_extended.f cla_geamv.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 + cgetrf.f cgetrf2.f cgetrs.f claswp.f cpotrf.f cpotrf2.f cpotrs.f cgetrs.f + cpotrf.f cgetrf.f + sisnan.f slaisnan.f) set(DLASRC dbdsvdx.f dgbbrd.f dgbcon.f dgbequ.f dgbrfs.f dgbsv.f @@ -283,6 +295,7 @@ set(DLASRC dggglm.f dgghrd.f dgghd3.f dgglse.f dggqrf.f dggrqf.f dggsvd3.f dggsvp3.f dgtcon.f dgtrfs.f dgtsv.f dgtsvx.f dgttrf.f dgttrs.f dgtts2.f dhgeqz.f + dlaqz0.f dlaqz1.f dlaqz2.f dlaqz3.f dlaqz4.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 dlahr2.f dlaic1.f dlaln2.f dlals0.f dlalsa.f dlalsd.f @@ -292,14 +305,14 @@ set(DLASRC 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 dlarfy.f + dlarf.f dlarfb.f dlarfb_gett.f dlarfg.f dlarfgp.f dlarft.f dlarfx.f dlarfy.f dlargv.f dlarrv.f dlartv.f dlarz.f dlarzb.f dlarzt.f dlaswp.f dlasy2.f dlasyf.f dlasyf_rook.f dlasyf_rk.f dlasyf_aa.f dlatbs.f dlatdf.f dlatps.f dlatrd.f dlatrs.f dlatrz.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 dorgtsqr.f dorm2l.f dorm2r.f dorm22.f + dorgrq.f dorgtr.f dorgtsqr.f dorgtsqr_row.f dorm2l.f dorm2r.f dorm22.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 @@ -311,8 +324,8 @@ set(DLASRC 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 + dsptrf.f dsptri.f dsptrs.f dstegr.f dstev.f dstevd.f dstevr.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 @@ -340,14 +353,14 @@ set(DLASRC dgeqrt.f dgeqrt2.f dgeqrt3.f dgemqrt.f dtpqrt.f dtpqrt2.f dtpmqrt.f dtprfb.f dgelqt.f dgelqt3.f dgemlqt.f - dgetsls.f dgeqr.f dlatsqr.f dlamtsqr.f dgemqr.f + dgetsls.f dgetsqrhrt.f dgeqr.f dlatsqr.f dlamtsqr.f dgemqr.f dgelq.f dlaswlq.f dlamswlq.f dgemlq.f dtplqt.f dtplqt2.f dtpmlqt.f dorhr_col.f dlaorhr_col_getrfnp.f dlaorhr_col_getrfnp2.f dsytrd_2stage.f dsytrd_sy2sb.f dsytrd_sb2st.F dsb2st_kernels.f dsyevd_2stage.f dsyev_2stage.f dsyevx_2stage.f dsyevr_2stage.f dsbev_2stage.f dsbevx_2stage.f dsbevd_2stage.f dsygv_2stage.f - dgesvdq.f dcombssq.f) + dgesvdq.f) set(DXLASRC dgesvxx.f dgerfsx.f dla_gerfsx_extended.f dla_geamv.f dla_gercond.f dla_gerpvgrw.f dsysvxx.f dsyrfsx.f @@ -386,6 +399,7 @@ set(ZLASRC zhesv_aa.f zhetrf_aa.f zhetrs_aa.f zhesv_aa_2stage.f zhetrf_aa_2stage.f zhetrs_aa_2stage.f zhgeqz.f zhpcon.f zhpev.f zhpevd.f + zlaqz0.f zlaqz1.f zlaqz2.f zlaqz3.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 @@ -401,11 +415,11 @@ set(ZLASRC 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 + zlarcm.f zlarf.f zlarfb.f zlarfb_gett.f zlarfg.f zlarfgp.f zlarft.f - zlarfx.f zlarfy.f zlargv.f zlarnv.f zlarrv.f zlartg.f zlartv.f + zlarfx.f zlarfy.f zlargv.f zlarnv.f zlarrv.f zlartg.f90 zlartv.f zlarz.f zlarzb.f zlarzt.f zlascl.f zlaset.f zlasr.f - zlassq.f zlaswp.f zlasyf.f zlasyf_rook.f zlasyf_rk.f zlasyf_aa.f + zlassq.f90 zlaswp.f zlasyf.f zlasyf_rook.f zlasyf_rk.f zlasyf_aa.f zlatbs.f zlatdf.f zlatps.f zlatrd.f zlatrs.f zlatrz.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 @@ -430,7 +444,7 @@ set(ZLASRC ztptrs.f ztrcon.f ztrevc.f ztrevc3.f ztrexc.f ztrrfs.f ztrsen.f ztrsna.f ztrsyl.f ztrti2.f ztrtri.f ztrtrs.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 zungtsqr.f zunm2l.f zunm2r.f zunmbr.f zunmhr.f zunml2.f zunm22.f + zungrq.f zungtr.f zungtsqr.f zungtsqr_row.f zunm2l.f zunm2r.f zunmbr.f zunmhr.f zunml2.f zunm22.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 @@ -444,7 +458,7 @@ set(ZLASRC ztpqrt.f ztpqrt2.f ztpmqrt.f ztprfb.f ztplqt.f ztplqt2.f ztpmlqt.f zgelqt.f zgelqt3.f zgemlqt.f - zgetsls.f zgeqr.f zlatsqr.f zlamtsqr.f zgemqr.f + zgetsls.f zgetsqrhrt.f zgeqr.f zlatsqr.f zlamtsqr.f zgemqr.f zgelq.f zlaswlq.f zlamswlq.f zgemlq.f zunhr_col.f zlaunhr_col_getrfnp.f zlaunhr_col_getrfnp2.f zhetrd_2stage.f zhetrd_he2hb.f zhetrd_hb2st.F zhb2st_kernels.f diff --git a/lapack-netlib/SRC/DEPRECATED/cgegs.f b/lapack-netlib/SRC/DEPRECATED/cgegs.f index 4e75e2025..1f0791a20 100644 --- a/lapack-netlib/SRC/DEPRECATED/cgegs.f +++ b/lapack-netlib/SRC/DEPRECATED/cgegs.f @@ -216,8 +216,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEeigen * * ===================================================================== @@ -225,10 +223,9 @@ $ VSL, LDVSL, VSR, LDVSR, WORK, LWORK, RWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR diff --git a/lapack-netlib/SRC/DEPRECATED/cgegv.f b/lapack-netlib/SRC/DEPRECATED/cgegv.f index 81def0db4..ba810ddef 100644 --- a/lapack-netlib/SRC/DEPRECATED/cgegv.f +++ b/lapack-netlib/SRC/DEPRECATED/cgegv.f @@ -242,8 +242,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEeigen * *> \par Further Details: @@ -282,10 +280,9 @@ SUBROUTINE CGEGV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, $ VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/DEPRECATED/cgelsx.f b/lapack-netlib/SRC/DEPRECATED/cgelsx.f index 22d2358ba..a5c7c9ed8 100644 --- a/lapack-netlib/SRC/DEPRECATED/cgelsx.f +++ b/lapack-netlib/SRC/DEPRECATED/cgelsx.f @@ -176,18 +176,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEsolve * * ===================================================================== SUBROUTINE CGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/DEPRECATED/cgeqpf.f b/lapack-netlib/SRC/DEPRECATED/cgeqpf.f index 2cbd1951e..8593ce33b 100644 --- a/lapack-netlib/SRC/DEPRECATED/cgeqpf.f +++ b/lapack-netlib/SRC/DEPRECATED/cgeqpf.f @@ -114,8 +114,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -148,10 +146,9 @@ * ===================================================================== SUBROUTINE CGEQPF( M, N, A, LDA, JPVT, TAU, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/DEPRECATED/cggsvd.f b/lapack-netlib/SRC/DEPRECATED/cggsvd.f index e7ece14c3..e6fdb47e5 100644 --- a/lapack-netlib/SRC/DEPRECATED/cggsvd.f +++ b/lapack-netlib/SRC/DEPRECATED/cggsvd.f @@ -323,8 +323,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERsing * *> \par Contributors: @@ -338,10 +336,9 @@ $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, $ RWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/DEPRECATED/cggsvp.f b/lapack-netlib/SRC/DEPRECATED/cggsvp.f index 24bb09a39..0c60077ff 100644 --- a/lapack-netlib/SRC/DEPRECATED/cggsvp.f +++ b/lapack-netlib/SRC/DEPRECATED/cggsvp.f @@ -246,8 +246,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -262,10 +260,9 @@ $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, RWORK, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/DEPRECATED/clahrd.f b/lapack-netlib/SRC/DEPRECATED/clahrd.f index 7be3f2a1d..b209929ab 100644 --- a/lapack-netlib/SRC/DEPRECATED/clahrd.f +++ b/lapack-netlib/SRC/DEPRECATED/clahrd.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -167,10 +165,9 @@ * ===================================================================== SUBROUTINE CLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/lapack-netlib/SRC/DEPRECATED/clatzm.f b/lapack-netlib/SRC/DEPRECATED/clatzm.f index 377eef725..8e333cc17 100644 --- a/lapack-netlib/SRC/DEPRECATED/clatzm.f +++ b/lapack-netlib/SRC/DEPRECATED/clatzm.f @@ -145,17 +145,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/DEPRECATED/ctzrqf.f b/lapack-netlib/SRC/DEPRECATED/ctzrqf.f index 5ed47d7e7..ed1f67d24 100644 --- a/lapack-netlib/SRC/DEPRECATED/ctzrqf.f +++ b/lapack-netlib/SRC/DEPRECATED/ctzrqf.f @@ -99,8 +99,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE CTZRQF( M, N, A, LDA, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/DEPRECATED/dgegs.f b/lapack-netlib/SRC/DEPRECATED/dgegs.f index eb404484d..0ac0112c2 100644 --- a/lapack-netlib/SRC/DEPRECATED/dgegs.f +++ b/lapack-netlib/SRC/DEPRECATED/dgegs.f @@ -218,8 +218,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEeigen * * ===================================================================== @@ -227,10 +225,9 @@ $ ALPHAI, BETA, VSL, LDVSL, VSR, LDVSR, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR diff --git a/lapack-netlib/SRC/DEPRECATED/dgegv.f b/lapack-netlib/SRC/DEPRECATED/dgegv.f index e4d469aa5..7e81c85a9 100644 --- a/lapack-netlib/SRC/DEPRECATED/dgegv.f +++ b/lapack-netlib/SRC/DEPRECATED/dgegv.f @@ -265,8 +265,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEeigen * *> \par Further Details: @@ -306,10 +304,9 @@ SUBROUTINE DGEGV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI, $ BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/DEPRECATED/dgelsx.f b/lapack-netlib/SRC/DEPRECATED/dgelsx.f index 70e5ce7f9..395fcb0d1 100644 --- a/lapack-netlib/SRC/DEPRECATED/dgelsx.f +++ b/lapack-netlib/SRC/DEPRECATED/dgelsx.f @@ -170,18 +170,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEsolve * * ===================================================================== SUBROUTINE DGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/DEPRECATED/dgeqpf.f b/lapack-netlib/SRC/DEPRECATED/dgeqpf.f index 58ef56035..69f9542ac 100644 --- a/lapack-netlib/SRC/DEPRECATED/dgeqpf.f +++ b/lapack-netlib/SRC/DEPRECATED/dgeqpf.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE DGEQPF( M, N, A, LDA, JPVT, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/DEPRECATED/dggsvd.f b/lapack-netlib/SRC/DEPRECATED/dggsvd.f index 32d232c08..4f439eb6a 100644 --- a/lapack-netlib/SRC/DEPRECATED/dggsvd.f +++ b/lapack-netlib/SRC/DEPRECATED/dggsvd.f @@ -319,8 +319,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERsing * *> \par Contributors: @@ -334,10 +332,9 @@ $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, $ IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/DEPRECATED/dggsvp.f b/lapack-netlib/SRC/DEPRECATED/dggsvp.f index 1cc52b719..87a2fd670 100644 --- a/lapack-netlib/SRC/DEPRECATED/dggsvp.f +++ b/lapack-netlib/SRC/DEPRECATED/dggsvp.f @@ -240,8 +240,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -256,10 +254,9 @@ $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/DEPRECATED/dlahrd.f b/lapack-netlib/SRC/DEPRECATED/dlahrd.f index 9aa04ee14..24ddf51cc 100644 --- a/lapack-netlib/SRC/DEPRECATED/dlahrd.f +++ b/lapack-netlib/SRC/DEPRECATED/dlahrd.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -167,10 +165,9 @@ * ===================================================================== SUBROUTINE DLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/lapack-netlib/SRC/DEPRECATED/dlatzm.f b/lapack-netlib/SRC/DEPRECATED/dlatzm.f index 73434a21a..1e8cc9f57 100644 --- a/lapack-netlib/SRC/DEPRECATED/dlatzm.f +++ b/lapack-netlib/SRC/DEPRECATED/dlatzm.f @@ -144,17 +144,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/DEPRECATED/dtzrqf.f b/lapack-netlib/SRC/DEPRECATED/dtzrqf.f index c1cbdc6ab..efd7c2497 100644 --- a/lapack-netlib/SRC/DEPRECATED/dtzrqf.f +++ b/lapack-netlib/SRC/DEPRECATED/dtzrqf.f @@ -99,8 +99,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE DTZRQF( M, N, A, LDA, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/DEPRECATED/sgegs.f b/lapack-netlib/SRC/DEPRECATED/sgegs.f index bf4fbc710..2ed9ad942 100644 --- a/lapack-netlib/SRC/DEPRECATED/sgegs.f +++ b/lapack-netlib/SRC/DEPRECATED/sgegs.f @@ -218,8 +218,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEeigen * * ===================================================================== @@ -227,10 +225,9 @@ $ ALPHAI, BETA, VSL, LDVSL, VSR, LDVSR, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR diff --git a/lapack-netlib/SRC/DEPRECATED/sgegv.f b/lapack-netlib/SRC/DEPRECATED/sgegv.f index 9ffda665d..7a179a499 100644 --- a/lapack-netlib/SRC/DEPRECATED/sgegv.f +++ b/lapack-netlib/SRC/DEPRECATED/sgegv.f @@ -265,8 +265,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEeigen * *> \par Further Details: @@ -306,10 +304,9 @@ SUBROUTINE SGEGV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI, $ BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/DEPRECATED/sgelsx.f b/lapack-netlib/SRC/DEPRECATED/sgelsx.f index f45ff0f66..8760a02a6 100644 --- a/lapack-netlib/SRC/DEPRECATED/sgelsx.f +++ b/lapack-netlib/SRC/DEPRECATED/sgelsx.f @@ -170,18 +170,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEsolve * * ===================================================================== SUBROUTINE SGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/DEPRECATED/sgeqpf.f b/lapack-netlib/SRC/DEPRECATED/sgeqpf.f index 45828d2fb..f5a249469 100644 --- a/lapack-netlib/SRC/DEPRECATED/sgeqpf.f +++ b/lapack-netlib/SRC/DEPRECATED/sgeqpf.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE SGEQPF( M, N, A, LDA, JPVT, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/DEPRECATED/sggsvd.f b/lapack-netlib/SRC/DEPRECATED/sggsvd.f index 9ab00119a..7bc1b929e 100644 --- a/lapack-netlib/SRC/DEPRECATED/sggsvd.f +++ b/lapack-netlib/SRC/DEPRECATED/sggsvd.f @@ -319,8 +319,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERsing * *> \par Contributors: @@ -334,10 +332,9 @@ $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, $ IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/DEPRECATED/sggsvp.f b/lapack-netlib/SRC/DEPRECATED/sggsvp.f index b2a71a82a..4ecebdf14 100644 --- a/lapack-netlib/SRC/DEPRECATED/sggsvp.f +++ b/lapack-netlib/SRC/DEPRECATED/sggsvp.f @@ -240,8 +240,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -256,10 +254,9 @@ $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/DEPRECATED/slahrd.f b/lapack-netlib/SRC/DEPRECATED/slahrd.f index 54503de04..9e001c740 100644 --- a/lapack-netlib/SRC/DEPRECATED/slahrd.f +++ b/lapack-netlib/SRC/DEPRECATED/slahrd.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -167,10 +165,9 @@ * ===================================================================== SUBROUTINE SLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/lapack-netlib/SRC/DEPRECATED/slatzm.f b/lapack-netlib/SRC/DEPRECATED/slatzm.f index d523f3a66..bb24c281b 100644 --- a/lapack-netlib/SRC/DEPRECATED/slatzm.f +++ b/lapack-netlib/SRC/DEPRECATED/slatzm.f @@ -144,17 +144,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/DEPRECATED/stzrqf.f b/lapack-netlib/SRC/DEPRECATED/stzrqf.f index 57c44198f..c2f55f367 100644 --- a/lapack-netlib/SRC/DEPRECATED/stzrqf.f +++ b/lapack-netlib/SRC/DEPRECATED/stzrqf.f @@ -99,8 +99,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE STZRQF( M, N, A, LDA, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/DEPRECATED/zgegs.f b/lapack-netlib/SRC/DEPRECATED/zgegs.f index 038e95236..c5cdd26e5 100644 --- a/lapack-netlib/SRC/DEPRECATED/zgegs.f +++ b/lapack-netlib/SRC/DEPRECATED/zgegs.f @@ -216,8 +216,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEeigen * * ===================================================================== @@ -225,10 +223,9 @@ $ VSL, LDVSL, VSR, LDVSR, WORK, LWORK, RWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR diff --git a/lapack-netlib/SRC/DEPRECATED/zgegv.f b/lapack-netlib/SRC/DEPRECATED/zgegv.f index 0f662955d..aa4ab3f71 100644 --- a/lapack-netlib/SRC/DEPRECATED/zgegv.f +++ b/lapack-netlib/SRC/DEPRECATED/zgegv.f @@ -242,8 +242,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEeigen * *> \par Further Details: @@ -282,10 +280,9 @@ SUBROUTINE ZGEGV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, $ VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/DEPRECATED/zgelsx.f b/lapack-netlib/SRC/DEPRECATED/zgelsx.f index fc8d28895..0482b401d 100644 --- a/lapack-netlib/SRC/DEPRECATED/zgelsx.f +++ b/lapack-netlib/SRC/DEPRECATED/zgelsx.f @@ -176,18 +176,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEsolve * * ===================================================================== SUBROUTINE ZGELSX( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/DEPRECATED/zgeqpf.f b/lapack-netlib/SRC/DEPRECATED/zgeqpf.f index 7dffc7a0c..3eba142c5 100644 --- a/lapack-netlib/SRC/DEPRECATED/zgeqpf.f +++ b/lapack-netlib/SRC/DEPRECATED/zgeqpf.f @@ -114,8 +114,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -148,10 +146,9 @@ * ===================================================================== SUBROUTINE ZGEQPF( M, N, A, LDA, JPVT, TAU, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/DEPRECATED/zggsvd.f b/lapack-netlib/SRC/DEPRECATED/zggsvd.f index dcbb892fd..c0b9247a6 100644 --- a/lapack-netlib/SRC/DEPRECATED/zggsvd.f +++ b/lapack-netlib/SRC/DEPRECATED/zggsvd.f @@ -322,8 +322,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERsing * *> \par Contributors: @@ -337,10 +335,9 @@ $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, WORK, $ RWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/DEPRECATED/zggsvp.f b/lapack-netlib/SRC/DEPRECATED/zggsvp.f index f65de9278..9468bea06 100644 --- a/lapack-netlib/SRC/DEPRECATED/zggsvp.f +++ b/lapack-netlib/SRC/DEPRECATED/zggsvp.f @@ -246,8 +246,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -265,10 +263,9 @@ $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, RWORK, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/DEPRECATED/zlahrd.f b/lapack-netlib/SRC/DEPRECATED/zlahrd.f index fb63e9607..1690bd5b5 100644 --- a/lapack-netlib/SRC/DEPRECATED/zlahrd.f +++ b/lapack-netlib/SRC/DEPRECATED/zlahrd.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -167,10 +165,9 @@ * ===================================================================== SUBROUTINE ZLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/lapack-netlib/SRC/DEPRECATED/zlatzm.f b/lapack-netlib/SRC/DEPRECATED/zlatzm.f index f53010a3d..8b93c5a7b 100644 --- a/lapack-netlib/SRC/DEPRECATED/zlatzm.f +++ b/lapack-netlib/SRC/DEPRECATED/zlatzm.f @@ -145,17 +145,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/DEPRECATED/ztzrqf.f b/lapack-netlib/SRC/DEPRECATED/ztzrqf.f index 7bfb2e0b5..d3c356dcb 100644 --- a/lapack-netlib/SRC/DEPRECATED/ztzrqf.f +++ b/lapack-netlib/SRC/DEPRECATED/ztzrqf.f @@ -99,8 +99,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE ZTZRQF( M, N, A, LDA, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/Makefile b/lapack-netlib/SRC/Makefile index 11f858c0c..1371be655 100644 --- a/lapack-netlib/SRC/Makefile +++ b/lapack-netlib/SRC/Makefile @@ -75,7 +75,7 @@ endif ALLAUX_O = ilaenv.o ilaenv2stage.o ieeeck.o lsamen.o xerbla.o xerbla_array.o \ iparmq.o iparam2stage.o \ - ilaprec.o ilatrans.o ilauplo.o iladiag.o chla_transtype.o \ + ilaprec.o ilatrans.o ilauplo.o iladiag.o chla_transtype.o la_xisnan.o \ ../INSTALL/ilaver.o ../INSTALL/lsame.o ../INSTALL/slamch.o ifneq "$(or $(BUILD_SINGLE),$(BUILD_COMPLEX))" "" @@ -138,6 +138,7 @@ SLASRC_O = \ sggglm.o sgghrd.o sgghd3.o sgglse.o sggqrf.o \ sggrqf.o sggsvd3.o sggsvp3.o sgtcon.o sgtrfs.o sgtsv.o \ sgtsvx.o sgttrf.o sgttrs.o sgtts2.o shgeqz.o \ + slaqz0.o slaqz1.o slaqz2.o slaqz3.o slaqz4.o \ shsein.o shseqr.o slabrd.o slacon.o slacn2.o \ slaein.o slaexc.o slag2.o slags2.o slagtm.o slagv2.o slahqr.o \ slahr2.o slaic1.o slaln2.o slals0.o slalsa.o slalsd.o \ @@ -262,6 +263,7 @@ CLASRC_O = \ claqhb.o claqhe.o claqhp.o claqp2.o claqps.o claqsb.o \ claqr0.o claqr1.o claqr2.o claqr3.o claqr4.o claqr5.o \ claqsp.o claqsy.o clar1v.o clar2v.o ilaclr.o ilaclc.o \ + claqz0.o claqz1.o claqz2.o claqz3.o \ clarf.o clarfb.o clarfb_gett.o clarfg.o clarft.o clarfgp.o \ clarfx.o clarfy.o clargv.o clarnv.o clarrv.o clartg.o clartv.o \ clarz.o clarzb.o clarzt.o clascl.o claset.o clasr.o classq.o \ @@ -345,6 +347,7 @@ DLASRC_O = \ dggglm.o dgghrd.o dgghd3.o dgglse.o dggqrf.o \ dggrqf.o dggsvd3.o dggsvp3.o dgtcon.o dgtrfs.o dgtsv.o \ dgtsvx.o dgttrf.o dgttrs.o dgtts2.o dhgeqz.o \ + dlaqz0.o dlaqz1.o dlaqz2.o dlaqz3.o dlaqz4.o \ dhsein.o dhseqr.o dlabrd.o dlacon.o dlacn2.o \ dlaein.o dlaexc.o dlag2.o dlags2.o dlagtm.o dlagv2.o dlahqr.o \ dlahr2.o dlaic1.o dlaln2.o dlals0.o dlalsa.o dlalsd.o \ @@ -467,6 +470,7 @@ ZLASRC_O = \ zlaqhb.o zlaqhe.o zlaqhp.o zlaqp2.o zlaqps.o zlaqsb.o \ zlaqr0.o zlaqr1.o zlaqr2.o zlaqr3.o zlaqr4.o zlaqr5.o \ zlaqsp.o zlaqsy.o zlar1v.o zlar2v.o ilazlr.o ilazlc.o \ + zlaqz0.o zlaqz1.o zlaqz2.o zlaqz3.o \ zlarcm.o zlarf.o zlarfb.o zlarfb_gett.o \ zlarfg.o zlarft.o zlarfgp.o \ zlarfx.o zlarfy.o zlargv.o zlarnv.o zlarrv.o zlartg.o zlartv.o \ diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/RL/cpotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/RL/cpotrf.f index 8cec8809f..16d250c3f 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/RL/cpotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/RL/cpotrf.f @@ -100,10 +100,9 @@ C> \ingroup variantsPOcomputational * ===================================================================== SUBROUTINE CPOTRF ( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/RL/dpotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/RL/dpotrf.f index 400fbf7e5..1575bd95c 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/RL/dpotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/RL/dpotrf.f @@ -100,10 +100,9 @@ C> \ingroup variantsPOcomputational * ===================================================================== SUBROUTINE DPOTRF ( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/RL/spotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/RL/spotrf.f index 090e528ae..67ebae335 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/RL/spotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/RL/spotrf.f @@ -100,10 +100,9 @@ C> \ingroup variantsPOcomputational * ===================================================================== SUBROUTINE SPOTRF ( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/RL/zpotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/RL/zpotrf.f index 149eaacc2..76d8bab61 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/RL/zpotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/RL/zpotrf.f @@ -100,10 +100,9 @@ C> \ingroup variantsPOcomputational * ===================================================================== SUBROUTINE ZPOTRF ( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/cpotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/cpotrf.f index fd2b13e61..d6149c08f 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/cpotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/cpotrf.f @@ -100,10 +100,9 @@ C> \ingroup variantsPOcomputational * ===================================================================== SUBROUTINE CPOTRF ( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/dpotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/dpotrf.f index dbb51c415..e49200ea5 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/dpotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/dpotrf.f @@ -100,10 +100,9 @@ C> \ingroup variantsPOcomputational * ===================================================================== SUBROUTINE DPOTRF ( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/spotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/spotrf.f index 81034df37..65895502b 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/spotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/spotrf.f @@ -100,10 +100,9 @@ C> \ingroup variantsPOcomputational * ===================================================================== SUBROUTINE SPOTRF ( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/zpotrf.f b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/zpotrf.f index 009667090..f8b9e253c 100644 --- a/lapack-netlib/SRC/VARIANTS/cholesky/TOP/zpotrf.f +++ b/lapack-netlib/SRC/VARIANTS/cholesky/TOP/zpotrf.f @@ -100,10 +100,9 @@ C> \ingroup variantsPOcomputational * ===================================================================== SUBROUTINE ZPOTRF ( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/VARIANTS/lu/CR/cgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/CR/cgetrf.f index 2bddb4452..e78442914 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/CR/cgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/CR/cgetrf.f @@ -100,10 +100,9 @@ C> \ingroup variantsGEcomputational * ===================================================================== SUBROUTINE CGETRF ( M, N, A, LDA, IPIV, INFO) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/CR/dgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/CR/dgetrf.f index ce0ab2243..9bccb19bc 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/CR/dgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/CR/dgetrf.f @@ -100,10 +100,9 @@ C> \ingroup variantsGEcomputational * ===================================================================== SUBROUTINE DGETRF ( M, N, A, LDA, IPIV, INFO) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/CR/sgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/CR/sgetrf.f index bb6543139..c12dd38f9 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/CR/sgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/CR/sgetrf.f @@ -100,10 +100,9 @@ C> \ingroup variantsGEcomputational * ===================================================================== SUBROUTINE SGETRF ( M, N, A, LDA, IPIV, INFO) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/CR/zgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/CR/zgetrf.f index 39090e6f3..75b26586d 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/CR/zgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/CR/zgetrf.f @@ -100,10 +100,9 @@ C> \ingroup variantsGEcomputational * ===================================================================== SUBROUTINE ZGETRF ( M, N, A, LDA, IPIV, INFO) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/LL/cgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/LL/cgetrf.f index 77c747246..67902e568 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/LL/cgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/LL/cgetrf.f @@ -100,10 +100,9 @@ C> \ingroup variantsGEcomputational * ===================================================================== SUBROUTINE CGETRF ( M, N, A, LDA, IPIV, INFO) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/LL/dgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/LL/dgetrf.f index 9f25abd92..5f77b919e 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/LL/dgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/LL/dgetrf.f @@ -100,10 +100,9 @@ C> \ingroup variantsGEcomputational * ===================================================================== SUBROUTINE DGETRF ( M, N, A, LDA, IPIV, INFO) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/LL/sgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/LL/sgetrf.f index 765caccb0..2d4796903 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/LL/sgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/LL/sgetrf.f @@ -100,10 +100,9 @@ C> \ingroup variantsGEcomputational * ===================================================================== SUBROUTINE SGETRF ( M, N, A, LDA, IPIV, INFO) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/LL/zgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/LL/zgetrf.f index ef3fbf418..85db51b84 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/LL/zgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/LL/zgetrf.f @@ -100,10 +100,9 @@ C> \ingroup variantsGEcomputational * ===================================================================== SUBROUTINE ZGETRF ( M, N, A, LDA, IPIV, INFO) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/REC/cgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/REC/cgetrf.f index 9daab3872..a8fe3fb28 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/REC/cgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/REC/cgetrf.f @@ -137,7 +137,6 @@ C> \ingroup variantsGEcomputational * -- LAPACK computational routine (version 3.X) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/REC/dgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/REC/dgetrf.f index db6cece24..5c79747d2 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/REC/dgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/REC/dgetrf.f @@ -137,7 +137,6 @@ C> \ingroup variantsGEcomputational * -- LAPACK computational routine (version 3.X) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/REC/sgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/REC/sgetrf.f index 379ad1c9a..3c045e576 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/REC/sgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/REC/sgetrf.f @@ -137,7 +137,6 @@ C> \ingroup variantsGEcomputational * -- LAPACK computational routine (version 3.X) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/lu/REC/zgetrf.f b/lapack-netlib/SRC/VARIANTS/lu/REC/zgetrf.f index dc42c83f4..0484eb89a 100644 --- a/lapack-netlib/SRC/VARIANTS/lu/REC/zgetrf.f +++ b/lapack-netlib/SRC/VARIANTS/lu/REC/zgetrf.f @@ -137,7 +137,6 @@ C> \ingroup variantsGEcomputational * -- LAPACK computational routine (version 3.X) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/VARIANTS/qr/LL/cgeqrf.f b/lapack-netlib/SRC/VARIANTS/qr/LL/cgeqrf.f index 3cbec13c7..369ed1983 100644 --- a/lapack-netlib/SRC/VARIANTS/qr/LL/cgeqrf.f +++ b/lapack-netlib/SRC/VARIANTS/qr/LL/cgeqrf.f @@ -149,10 +149,9 @@ C> * ===================================================================== SUBROUTINE CGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/VARIANTS/qr/LL/dgeqrf.f b/lapack-netlib/SRC/VARIANTS/qr/LL/dgeqrf.f index 8f1979da3..be5720f4f 100644 --- a/lapack-netlib/SRC/VARIANTS/qr/LL/dgeqrf.f +++ b/lapack-netlib/SRC/VARIANTS/qr/LL/dgeqrf.f @@ -149,10 +149,9 @@ C> * ===================================================================== SUBROUTINE DGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/VARIANTS/qr/LL/sceil.f b/lapack-netlib/SRC/VARIANTS/qr/LL/sceil.f index 86394cc98..a007360ba 100644 --- a/lapack-netlib/SRC/VARIANTS/qr/LL/sceil.f +++ b/lapack-netlib/SRC/VARIANTS/qr/LL/sceil.f @@ -58,10 +58,9 @@ C> \ingroup variantsOTHERcomputational * ===================================================================== REAL FUNCTION SCEIL( A ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments ..* REAL A diff --git a/lapack-netlib/SRC/VARIANTS/qr/LL/sgeqrf.f b/lapack-netlib/SRC/VARIANTS/qr/LL/sgeqrf.f index 7b0227193..bff973214 100644 --- a/lapack-netlib/SRC/VARIANTS/qr/LL/sgeqrf.f +++ b/lapack-netlib/SRC/VARIANTS/qr/LL/sgeqrf.f @@ -149,10 +149,9 @@ C> * ===================================================================== SUBROUTINE SGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/VARIANTS/qr/LL/zgeqrf.f b/lapack-netlib/SRC/VARIANTS/qr/LL/zgeqrf.f index 4ddad00d6..79e86b41b 100644 --- a/lapack-netlib/SRC/VARIANTS/qr/LL/zgeqrf.f +++ b/lapack-netlib/SRC/VARIANTS/qr/LL/zgeqrf.f @@ -149,10 +149,9 @@ C> * ===================================================================== SUBROUTINE ZGEQRF ( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cbbcsd.f b/lapack-netlib/SRC/cbbcsd.f index b5a18d5b8..1cd1ffbf1 100644 --- a/lapack-netlib/SRC/cbbcsd.f +++ b/lapack-netlib/SRC/cbbcsd.f @@ -322,8 +322,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== @@ -332,10 +330,9 @@ $ V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, $ B22D, B22E, RWORK, LRWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS @@ -354,12 +351,13 @@ * .. Parameters .. INTEGER MAXITR PARAMETER ( MAXITR = 6 ) - REAL HUNDRED, MEIGHTH, ONE, PIOVER2, TEN, ZERO + REAL HUNDRED, MEIGHTH, ONE, TEN, ZERO PARAMETER ( HUNDRED = 100.0E0, MEIGHTH = -0.125E0, - $ ONE = 1.0E0, PIOVER2 = 1.57079632679489662E0, - $ TEN = 10.0E0, ZERO = 0.0E0 ) + $ ONE = 1.0E0, TEN = 10.0E0, ZERO = 0.0E0 ) COMPLEX NEGONECOMPLEX PARAMETER ( NEGONECOMPLEX = (-1.0E0,0.0E0) ) + REAL PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210E0 ) * .. * .. Local Scalars .. LOGICAL COLMAJOR, LQUERY, RESTART11, RESTART12, diff --git a/lapack-netlib/SRC/cbdsqr.f b/lapack-netlib/SRC/cbdsqr.f index 0bda3a333..1d7c4e09d 100644 --- a/lapack-netlib/SRC/cbdsqr.f +++ b/lapack-netlib/SRC/cbdsqr.f @@ -214,18 +214,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, $ LDU, C, LDC, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cgbbrd.f b/lapack-netlib/SRC/cgbbrd.f index e4e820aa4..7bac090e9 100644 --- a/lapack-netlib/SRC/cgbbrd.f +++ b/lapack-netlib/SRC/cgbbrd.f @@ -185,18 +185,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== SUBROUTINE CGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, $ LDQ, PT, LDPT, C, LDC, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER VECT diff --git a/lapack-netlib/SRC/cgbcon.f b/lapack-netlib/SRC/cgbcon.f index 1d32a6899..457842458 100644 --- a/lapack-netlib/SRC/cgbcon.f +++ b/lapack-netlib/SRC/cgbcon.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== SUBROUTINE CGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/cgbequ.f b/lapack-netlib/SRC/cgbequ.f index 100f920e1..b52043dee 100644 --- a/lapack-netlib/SRC/cgbequ.f +++ b/lapack-netlib/SRC/cgbequ.f @@ -146,18 +146,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== SUBROUTINE CGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/cgbequb.f b/lapack-netlib/SRC/cgbequb.f index fd69a575b..788fb378f 100644 --- a/lapack-netlib/SRC/cgbequb.f +++ b/lapack-netlib/SRC/cgbequb.f @@ -153,18 +153,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== SUBROUTINE CGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/cgbrfs.f b/lapack-netlib/SRC/cgbrfs.f index 464128b84..72c70349f 100644 --- a/lapack-netlib/SRC/cgbrfs.f +++ b/lapack-netlib/SRC/cgbrfs.f @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== @@ -206,10 +204,9 @@ $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/cgbrfsx.f b/lapack-netlib/SRC/cgbrfsx.f index c23608afb..1587d21f6 100644 --- a/lapack-netlib/SRC/cgbrfsx.f +++ b/lapack-netlib/SRC/cgbrfsx.f @@ -138,7 +138,7 @@ *> \verbatim *> AFB is COMPLEX array, dimension (LDAFB,N) *> Details of the LU factorization of the band matrix A, as -*> computed by DGBTRF. U is stored as an upper triangular band +*> computed by CGBTRF. U is stored as an upper triangular band *> matrix with KL+KU superdiagonals in rows 1 to KL+KU+1, and *> the multipliers used during the factorization are stored in *> rows KL+KU+2 to 2*KL+KU+1. @@ -153,7 +153,7 @@ *> \param[in] IPIV *> \verbatim *> IPIV is INTEGER array, dimension (N) -*> The pivot indices from SGETRF; for 1<=i<=N, row i of the +*> The pivot indices from CGETRF; for 1<=i<=N, row i of the *> matrix was interchanged with row IPIV(i). *> \endverbatim *> @@ -208,7 +208,7 @@ *> \param[in,out] X *> \verbatim *> X is COMPLEX array, dimension (LDX,NRHS) -*> On entry, the solution matrix X, as computed by SGETRS. +*> On entry, the solution matrix X, as computed by CGETRS. *> On exit, the improved solution matrix X. *> \endverbatim *> @@ -429,8 +429,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGBcomputational * * ===================================================================== @@ -440,10 +438,9 @@ $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER TRANS, EQUED diff --git a/lapack-netlib/SRC/cgbsv.f b/lapack-netlib/SRC/cgbsv.f index 7368783ad..049d6eeab 100644 --- a/lapack-netlib/SRC/cgbsv.f +++ b/lapack-netlib/SRC/cgbsv.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE CGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS diff --git a/lapack-netlib/SRC/cgbsvx.f b/lapack-netlib/SRC/cgbsvx.f index 1c102cb6d..7b6770d20 100644 --- a/lapack-netlib/SRC/cgbsvx.f +++ b/lapack-netlib/SRC/cgbsvx.f @@ -361,8 +361,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGBsolve * * ===================================================================== @@ -370,10 +368,9 @@ $ LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/cgbsvxx.f b/lapack-netlib/SRC/cgbsvxx.f index 9f2bbbc1c..9396fa011 100644 --- a/lapack-netlib/SRC/cgbsvxx.f +++ b/lapack-netlib/SRC/cgbsvxx.f @@ -230,7 +230,7 @@ *> IPIV is INTEGER array, dimension (N) *> If FACT = 'F', then IPIV is an input argument and on entry *> contains the pivot indices from the factorization A = P*L*U -*> as computed by SGETRF; row i of the matrix was interchanged +*> as computed by CGETRF; row i of the matrix was interchanged *> with row IPIV(i). *> *> If FACT = 'N', then IPIV is an output argument and on exit @@ -349,8 +349,8 @@ *> This also means that the solution X, estimated condition numbers, *> and error bounds could be unreliable. If factorization fails with *> 0 for the leading INFO columns of A. In SGESVX, this quantity is -*> returned in WORK(1). +*> for the leading INFO columns of A. In CGESVX, this quantity is +*> returned in RWORK(1). *> \endverbatim *> *> \param[out] BERR @@ -552,8 +552,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGBsolve * * ===================================================================== @@ -563,10 +561,9 @@ $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS @@ -638,7 +635,7 @@ * RPVGRW = ZERO * -* Test the input parameters. PARAMS is not tested until SGERFSX. +* Test the input parameters. PARAMS is not tested until CGERFSX. * IF( .NOT.NOFACT .AND. .NOT.EQUIL .AND. .NOT. $ LSAME( FACT, 'F' ) ) THEN diff --git a/lapack-netlib/SRC/cgbtf2.f b/lapack-netlib/SRC/cgbtf2.f index cd34d284d..8c58d6e11 100644 --- a/lapack-netlib/SRC/cgbtf2.f +++ b/lapack-netlib/SRC/cgbtf2.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * *> \par Further Details: @@ -145,10 +143,9 @@ * ===================================================================== SUBROUTINE CGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/cgbtrf.f b/lapack-netlib/SRC/cgbtrf.f index 601d063f2..8533e0061 100644 --- a/lapack-netlib/SRC/cgbtrf.f +++ b/lapack-netlib/SRC/cgbtrf.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * *> \par Further Details: @@ -144,10 +142,9 @@ * ===================================================================== SUBROUTINE CGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/cgbtrs.f b/lapack-netlib/SRC/cgbtrs.f index 75d195316..362e0a4c9 100644 --- a/lapack-netlib/SRC/cgbtrs.f +++ b/lapack-netlib/SRC/cgbtrs.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== SUBROUTINE CGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/cgebak.f b/lapack-netlib/SRC/cgebak.f index 9b6402622..201dbfcec 100644 --- a/lapack-netlib/SRC/cgebak.f +++ b/lapack-netlib/SRC/cgebak.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB, SIDE diff --git a/lapack-netlib/SRC/cgebal.f b/lapack-netlib/SRC/cgebal.f index 9f3c25c05..5d1ebb026 100644 --- a/lapack-netlib/SRC/cgebal.f +++ b/lapack-netlib/SRC/cgebal.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -161,10 +159,9 @@ * ===================================================================== SUBROUTINE CGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/cgebd2.f b/lapack-netlib/SRC/cgebd2.f index a234f36ac..db949f90c 100644 --- a/lapack-netlib/SRC/cgebd2.f +++ b/lapack-netlib/SRC/cgebd2.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexGEcomputational * @precisions normal c -> s d z * @@ -190,10 +188,9 @@ * ===================================================================== SUBROUTINE CGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N @@ -248,7 +245,7 @@ ALPHA = A( I, I ) CALL CLARFG( M-I+1, ALPHA, A( MIN( I+1, M ), I ), 1, $ TAUQ( I ) ) - D( I ) = ALPHA + D( I ) = REAL( ALPHA ) A( I, I ) = ONE * * Apply H(i)**H to A(i:m,i+1:n) from the left @@ -267,7 +264,7 @@ ALPHA = A( I, I+1 ) CALL CLARFG( N-I, ALPHA, A( I, MIN( I+2, N ) ), $ LDA, TAUP( I ) ) - E( I ) = ALPHA + E( I ) = REAL( ALPHA ) A( I, I+1 ) = ONE * * Apply G(i) to A(i+1:m,i+1:n) from the right @@ -292,7 +289,7 @@ ALPHA = A( I, I ) CALL CLARFG( N-I+1, ALPHA, A( I, MIN( I+1, N ) ), LDA, $ TAUP( I ) ) - D( I ) = ALPHA + D( I ) = REAL( ALPHA ) A( I, I ) = ONE * * Apply G(i) to A(i+1:m,i:n) from the right @@ -311,7 +308,7 @@ ALPHA = A( I+1, I ) CALL CLARFG( M-I, ALPHA, A( MIN( I+2, M ), I ), 1, $ TAUQ( I ) ) - E( I ) = ALPHA + E( I ) = REAL( ALPHA ) A( I+1, I ) = ONE * * Apply H(i)**H to A(i+1:m,i+1:n) from the left diff --git a/lapack-netlib/SRC/cgebrd.f b/lapack-netlib/SRC/cgebrd.f index eebd26f12..5687161a5 100644 --- a/lapack-netlib/SRC/cgebrd.f +++ b/lapack-netlib/SRC/cgebrd.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -206,10 +204,9 @@ SUBROUTINE CGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cgecon.f b/lapack-netlib/SRC/cgecon.f index fb57da2e1..48f409b68 100644 --- a/lapack-netlib/SRC/cgecon.f +++ b/lapack-netlib/SRC/cgecon.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/cgeequ.f b/lapack-netlib/SRC/cgeequ.f index 75aa2d7db..40b022fab 100644 --- a/lapack-netlib/SRC/cgeequ.f +++ b/lapack-netlib/SRC/cgeequ.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgeequb.f b/lapack-netlib/SRC/cgeequb.f index 3f738b83d..4beffcc84 100644 --- a/lapack-netlib/SRC/cgeequb.f +++ b/lapack-netlib/SRC/cgeequb.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgees.f b/lapack-netlib/SRC/cgees.f index 4da2cdf3b..359fa2afe 100644 --- a/lapack-netlib/SRC/cgees.f +++ b/lapack-netlib/SRC/cgees.f @@ -189,18 +189,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEeigen * * ===================================================================== SUBROUTINE CGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, W, VS, $ LDVS, WORK, LWORK, RWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVS, SORT @@ -285,7 +282,7 @@ * CALL CHSEQR( 'S', JOBVS, N, 1, N, A, LDA, W, VS, LDVS, $ WORK, -1, IEVAL ) - HSWORK = WORK( 1 ) + HSWORK = REAL( WORK( 1 ) ) * IF( .NOT.WANTVS ) THEN MAXWRK = MAX( MAXWRK, HSWORK ) diff --git a/lapack-netlib/SRC/cgeesx.f b/lapack-netlib/SRC/cgeesx.f index dd833ae7e..1113563ba 100644 --- a/lapack-netlib/SRC/cgeesx.f +++ b/lapack-netlib/SRC/cgeesx.f @@ -230,8 +230,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGEeigen * * ===================================================================== @@ -239,10 +237,9 @@ $ VS, LDVS, RCONDE, RCONDV, WORK, LWORK, RWORK, $ BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBVS, SENSE, SORT @@ -340,7 +337,7 @@ * CALL CHSEQR( 'S', JOBVS, N, 1, N, A, LDA, W, VS, LDVS, $ WORK, -1, IEVAL ) - HSWORK = WORK( 1 ) + HSWORK = REAL( WORK( 1 ) ) * IF( .NOT.WANTVS ) THEN MAXWRK = MAX( MAXWRK, HSWORK ) diff --git a/lapack-netlib/SRC/cgeev.f b/lapack-netlib/SRC/cgeev.f index f07d9b755..a77525ef8 100644 --- a/lapack-netlib/SRC/cgeev.f +++ b/lapack-netlib/SRC/cgeev.f @@ -169,7 +169,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 * * @generated from zgeev.f, fortran z -> c, Tue Apr 19 01:47:44 2016 * @@ -180,10 +179,9 @@ $ WORK, LWORK, RWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/cgeevx.f b/lapack-netlib/SRC/cgeevx.f index b1ff3cc67..2388f5acc 100644 --- a/lapack-netlib/SRC/cgeevx.f +++ b/lapack-netlib/SRC/cgeevx.f @@ -276,7 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 * * @generated from zgeevx.f, fortran z -> c, Tue Apr 19 01:47:44 2016 * @@ -288,10 +287,9 @@ $ RCONDV, WORK, LWORK, RWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE diff --git a/lapack-netlib/SRC/cgehd2.f b/lapack-netlib/SRC/cgehd2.f index d4d78b4f2..d8b40b180 100644 --- a/lapack-netlib/SRC/cgehd2.f +++ b/lapack-netlib/SRC/cgehd2.f @@ -106,8 +106,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -149,10 +147,9 @@ * ===================================================================== SUBROUTINE CGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, N diff --git a/lapack-netlib/SRC/cgehrd.f b/lapack-netlib/SRC/cgehrd.f index ca0f2d54d..d9c050267 100644 --- a/lapack-netlib/SRC/cgehrd.f +++ b/lapack-netlib/SRC/cgehrd.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -159,18 +157,17 @@ *> modified element of the upper Hessenberg matrix H, and vi denotes an *> element of the vector defining H(i). *> -*> This file is a slight modification of LAPACK-3.0's DGEHRD +*> This file is a slight modification of LAPACK-3.0's CGEHRD *> subroutine incorporating improvements proposed by Quintana-Orti and -*> Van de Geijn (2006). (See DLAHR2.) +*> Van de Geijn (2006). (See CLAHR2.) *> \endverbatim *> * ===================================================================== SUBROUTINE CGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/cgejsv.f b/lapack-netlib/SRC/cgejsv.f index 350da4c40..25ab81302 100644 --- a/lapack-netlib/SRC/cgejsv.f +++ b/lapack-netlib/SRC/cgejsv.f @@ -359,7 +359,7 @@ *> RWORK(3) = SCONDA is an estimate for the condition number of *> column equilibrated A. (If JOBA = 'E' or 'G') *> SCONDA is an estimate of SQRT(||(R^* * R)^(-1)||_1). -*> It is computed using SPOCON. It holds +*> It is computed using CPOCON. It holds *> N^(-1/4) * SCONDA <= ||R^(-1)||_2 <= N^(1/4) * SCONDA *> where R is the triangular factor from the QRF of A. *> However, if R is truncated and the numerical rank is @@ -368,7 +368,7 @@ *> singular values might be lost. *> *> If full SVD is needed, the following two condition numbers are -*> useful for the analysis of the algorithm. They are provied for +*> useful for the analysis of the algorithm. They are provided for *> a developer/implementer who is familiar with the details of *> the method. *> @@ -484,8 +484,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGEsing * *> \par Further Details: @@ -568,10 +566,9 @@ $ M, N, A, LDA, SVA, U, LDU, V, LDV, $ CWORK, LWORK, RWORK, LRWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. IMPLICIT NONE @@ -707,11 +704,11 @@ IF ( LQUERY ) THEN CALL CGEQP3( M, N, A, LDA, IWORK, CDUMMY, CDUMMY, -1, $ RDUMMY, IERR ) - LWRK_CGEQP3 = CDUMMY(1) + LWRK_CGEQP3 = REAL( CDUMMY(1) ) CALL CGEQRF( N, N, A, LDA, CDUMMY, CDUMMY,-1, IERR ) - LWRK_CGEQRF = CDUMMY(1) + LWRK_CGEQRF = REAL( CDUMMY(1) ) CALL CGELQF( N, N, A, LDA, CDUMMY, CDUMMY,-1, IERR ) - LWRK_CGELQF = CDUMMY(1) + LWRK_CGELQF = REAL( CDUMMY(1) ) END IF MINWRK = 2 OPTWRK = 2 @@ -727,7 +724,7 @@ IF ( LQUERY ) THEN CALL CGESVJ( 'L', 'N', 'N', N, N, A, LDA, SVA, N, V, $ LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_CGESVJ = CDUMMY(1) + LWRK_CGESVJ = REAL( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = MAX( N+LWRK_CGEQP3, N**2+LWCON, $ N+LWRK_CGEQRF, LWRK_CGESVJ ) @@ -763,10 +760,10 @@ IF ( LQUERY ) THEN CALL CGESVJ( 'L', 'U', 'N', N,N, U, LDU, SVA, N, A, $ LDA, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_CGESVJ = CDUMMY(1) + LWRK_CGESVJ = REAL( CDUMMY(1) ) CALL CUNMLQ( 'L', 'C', N, N, N, A, LDA, CDUMMY, $ V, LDV, CDUMMY, -1, IERR ) - LWRK_CUNMLQ = CDUMMY(1) + LWRK_CUNMLQ = REAL( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = MAX( N+LWRK_CGEQP3, LWCON, LWRK_CGESVJ, $ N+LWRK_CGELQF, 2*N+LWRK_CGEQRF, @@ -802,10 +799,10 @@ IF ( LQUERY ) THEN CALL CGESVJ( 'L', 'U', 'N', N,N, U, LDU, SVA, N, A, $ LDA, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_CGESVJ = CDUMMY(1) + LWRK_CGESVJ = REAL( CDUMMY(1) ) CALL CUNMQR( 'L', 'N', M, N, N, A, LDA, CDUMMY, U, $ LDU, CDUMMY, -1, IERR ) - LWRK_CUNMQRM = CDUMMY(1) + LWRK_CUNMQRM = REAL( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = N + MAX( LWRK_CGEQP3, LWCON, N+LWRK_CGEQRF, $ LWRK_CGESVJ, LWRK_CUNMQRM ) @@ -864,26 +861,26 @@ IF ( LQUERY ) THEN CALL CUNMQR( 'L', 'N', M, N, N, A, LDA, CDUMMY, U, $ LDU, CDUMMY, -1, IERR ) - LWRK_CUNMQRM = CDUMMY(1) + LWRK_CUNMQRM = REAL( CDUMMY(1) ) CALL CUNMQR( 'L', 'N', N, N, N, A, LDA, CDUMMY, U, $ LDU, CDUMMY, -1, IERR ) - LWRK_CUNMQR = CDUMMY(1) + LWRK_CUNMQR = REAL( CDUMMY(1) ) IF ( .NOT. JRACC ) THEN CALL CGEQP3( N,N, A, LDA, IWORK, CDUMMY,CDUMMY, -1, $ RDUMMY, IERR ) - LWRK_CGEQP3N = CDUMMY(1) + LWRK_CGEQP3N = REAL( CDUMMY(1) ) CALL CGESVJ( 'L', 'U', 'N', N, N, U, LDU, SVA, $ N, V, LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_CGESVJ = CDUMMY(1) + LWRK_CGESVJ = REAL( CDUMMY(1) ) CALL CGESVJ( 'U', 'U', 'N', N, N, U, LDU, SVA, $ N, V, LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_CGESVJU = CDUMMY(1) + LWRK_CGESVJU = REAL( CDUMMY(1) ) CALL CGESVJ( 'L', 'U', 'V', N, N, U, LDU, SVA, $ N, V, LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_CGESVJV = CDUMMY(1) + LWRK_CGESVJV = REAL( CDUMMY(1) ) CALL CUNMLQ( 'L', 'C', N, N, N, A, LDA, CDUMMY, $ V, LDV, CDUMMY, -1, IERR ) - LWRK_CUNMLQ = CDUMMY(1) + LWRK_CUNMLQ = REAL( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = MAX( N+LWRK_CGEQP3, N+LWCON, $ 2*N+N**2+LWCON, 2*N+LWRK_CGEQRF, @@ -912,13 +909,13 @@ ELSE CALL CGESVJ( 'L', 'U', 'V', N, N, U, LDU, SVA, $ N, V, LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_CGESVJV = CDUMMY(1) + LWRK_CGESVJV = REAL( CDUMMY(1) ) CALL CUNMQR( 'L', 'N', N, N, N, CDUMMY, N, CDUMMY, $ V, LDV, CDUMMY, -1, IERR ) - LWRK_CUNMQR = CDUMMY(1) + LWRK_CUNMQR = REAL( CDUMMY(1) ) CALL CUNMQR( 'L', 'N', M, N, N, A, LDA, CDUMMY, U, $ LDU, CDUMMY, -1, IERR ) - LWRK_CUNMQRM = CDUMMY(1) + LWRK_CUNMQRM = REAL( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = MAX( N+LWRK_CGEQP3, N+LWCON, $ 2*N+LWRK_CGEQRF, 2*N+N**2, @@ -1314,7 +1311,7 @@ * (eg speed by replacing global with restricted window pivoting, such * as in xGEQPX from TOMS # 782). Good results will be obtained using * xGEQPX with properly (!) chosen numerical parameters. -* Any improvement of CGEQP3 improves overal performance of CGEJSV. +* Any improvement of CGEQP3 improves overall performance of CGEJSV. * * A * P1 = Q1 * [ R1^* 0]^*: DO 1963 p = 1, N diff --git a/lapack-netlib/SRC/cgelq.f b/lapack-netlib/SRC/cgelq.f index f0ff3a20d..d66033166 100644 --- a/lapack-netlib/SRC/cgelq.f +++ b/lapack-netlib/SRC/cgelq.f @@ -170,10 +170,9 @@ SUBROUTINE CGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, TSIZE, LWORK diff --git a/lapack-netlib/SRC/cgelq2.f b/lapack-netlib/SRC/cgelq2.f index 3fab2c396..0ea4a7200 100644 --- a/lapack-netlib/SRC/cgelq2.f +++ b/lapack-netlib/SRC/cgelq2.f @@ -40,7 +40,7 @@ *> where: *> *> Q is a n-by-n orthogonal matrix; -*> L is an lower-triangular m-by-m matrix; +*> L is a lower-triangular m-by-m matrix; *> 0 is a m-by-(n-m) zero matrix, if m < n. *> *> \endverbatim @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -129,10 +127,9 @@ * ===================================================================== SUBROUTINE CGELQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgelqf.f b/lapack-netlib/SRC/cgelqf.f index 030ac0b4d..37ef13a27 100644 --- a/lapack-netlib/SRC/cgelqf.f +++ b/lapack-netlib/SRC/cgelqf.f @@ -40,7 +40,7 @@ *> where: *> *> Q is a N-by-N orthogonal matrix; -*> L is an lower-triangular M-by-M matrix; +*> L is a lower-triangular M-by-M matrix; *> 0 is a M-by-(N-M) zero matrix, if M < N. *> *> \endverbatim @@ -118,8 +118,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -143,10 +141,9 @@ * ===================================================================== SUBROUTINE CGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cgelqt.f b/lapack-netlib/SRC/cgelqt.f index f40db0b02..3a66dc0ca 100644 --- a/lapack-netlib/SRC/cgelqt.f +++ b/lapack-netlib/SRC/cgelqt.f @@ -93,8 +93,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -124,10 +122,9 @@ * ===================================================================== SUBROUTINE CGELQT( M, N, MB, A, LDA, T, LDT, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, MB diff --git a/lapack-netlib/SRC/cgelqt3.f b/lapack-netlib/SRC/cgelqt3.f index 80a9a9fc7..1dfbd3f2b 100644 --- a/lapack-netlib/SRC/cgelqt3.f +++ b/lapack-netlib/SRC/cgelqt3.f @@ -43,7 +43,7 @@ *> \param[in,out] A *> \verbatim *> A is COMPLEX array, dimension (LDA,N) -*> On entry, the real M-by-N matrix A. On exit, the elements on and +*> On entry, the complex M-by-N matrix A. On exit, the elements on and *> below the diagonal contain the N-by-N lower triangular matrix L; the *> elements above the diagonal are the rows of V. See below for *> further details. @@ -85,8 +85,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -116,10 +114,9 @@ * ===================================================================== RECURSIVE SUBROUTINE CGELQT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT @@ -160,7 +157,7 @@ * IF( M.EQ.1 ) THEN * -* Compute Householder transform when N=1 +* Compute Householder transform when M=1 * CALL CLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T ) T(1,1)=CONJG(T(1,1)) diff --git a/lapack-netlib/SRC/cgels.f b/lapack-netlib/SRC/cgels.f index dbef9fa36..fd9887340 100644 --- a/lapack-netlib/SRC/cgels.f +++ b/lapack-netlib/SRC/cgels.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEsolve * * ===================================================================== SUBROUTINE CGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/cgelsd.f b/lapack-netlib/SRC/cgelsd.f index 2c29c3d59..fce4ca6e2 100644 --- a/lapack-netlib/SRC/cgelsd.f +++ b/lapack-netlib/SRC/cgelsd.f @@ -210,8 +210,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEsolve * *> \par Contributors: @@ -225,10 +223,9 @@ SUBROUTINE CGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, RWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/cgelss.f b/lapack-netlib/SRC/cgelss.f index 84faa29bc..04defbb2e 100644 --- a/lapack-netlib/SRC/cgelss.f +++ b/lapack-netlib/SRC/cgelss.f @@ -170,18 +170,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGEsolve * * ===================================================================== SUBROUTINE CGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK @@ -269,11 +266,11 @@ * * Compute space needed for CGEQRF CALL CGEQRF( M, N, A, LDA, DUM(1), DUM(1), -1, INFO ) - LWORK_CGEQRF=DUM(1) + LWORK_CGEQRF = REAL( DUM(1) ) * Compute space needed for CUNMQR CALL CUNMQR( 'L', 'C', M, NRHS, N, A, LDA, DUM(1), B, $ LDB, DUM(1), -1, INFO ) - LWORK_CUNMQR=DUM(1) + LWORK_CUNMQR = REAL( DUM(1) ) MM = N MAXWRK = MAX( MAXWRK, N + N*ILAENV( 1, 'CGEQRF', ' ', M, $ N, -1, -1 ) ) @@ -287,15 +284,15 @@ * Compute space needed for CGEBRD CALL CGEBRD( MM, N, A, LDA, S, S, DUM(1), DUM(1), DUM(1), $ -1, INFO ) - LWORK_CGEBRD=DUM(1) + LWORK_CGEBRD = REAL( DUM(1) ) * Compute space needed for CUNMBR CALL CUNMBR( 'Q', 'L', 'C', MM, NRHS, N, A, LDA, DUM(1), $ B, LDB, DUM(1), -1, INFO ) - LWORK_CUNMBR=DUM(1) + LWORK_CUNMBR = REAL( DUM(1) ) * Compute space needed for CUNGBR CALL CUNGBR( 'P', N, N, N, A, LDA, DUM(1), $ DUM(1), -1, INFO ) - LWORK_CUNGBR=DUM(1) + LWORK_CUNGBR = REAL( DUM(1) ) * Compute total workspace needed MAXWRK = MAX( MAXWRK, 2*N + LWORK_CGEBRD ) MAXWRK = MAX( MAXWRK, 2*N + LWORK_CUNMBR ) @@ -313,23 +310,23 @@ * Compute space needed for CGELQF CALL CGELQF( M, N, A, LDA, DUM(1), DUM(1), $ -1, INFO ) - LWORK_CGELQF=DUM(1) + LWORK_CGELQF = REAL( DUM(1) ) * Compute space needed for CGEBRD CALL CGEBRD( M, M, A, LDA, S, S, DUM(1), DUM(1), $ DUM(1), -1, INFO ) - LWORK_CGEBRD=DUM(1) + LWORK_CGEBRD = REAL( DUM(1) ) * Compute space needed for CUNMBR CALL CUNMBR( 'Q', 'L', 'C', M, NRHS, N, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) - LWORK_CUNMBR=DUM(1) + LWORK_CUNMBR = REAL( DUM(1) ) * Compute space needed for CUNGBR CALL CUNGBR( 'P', M, M, M, A, LDA, DUM(1), $ DUM(1), -1, INFO ) - LWORK_CUNGBR=DUM(1) + LWORK_CUNGBR = REAL( DUM(1) ) * Compute space needed for CUNMLQ CALL CUNMLQ( 'L', 'C', N, NRHS, M, A, LDA, DUM(1), $ B, LDB, DUM(1), -1, INFO ) - LWORK_CUNMLQ=DUM(1) + LWORK_CUNMLQ = REAL( DUM(1) ) * Compute total workspace needed MAXWRK = M + LWORK_CGELQF MAXWRK = MAX( MAXWRK, 3*M + M*M + LWORK_CGEBRD ) @@ -348,15 +345,15 @@ * Compute space needed for CGEBRD CALL CGEBRD( M, N, A, LDA, S, S, DUM(1), DUM(1), $ DUM(1), -1, INFO ) - LWORK_CGEBRD=DUM(1) + LWORK_CGEBRD = REAL( DUM(1) ) * Compute space needed for CUNMBR CALL CUNMBR( 'Q', 'L', 'C', M, NRHS, M, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) - LWORK_CUNMBR=DUM(1) + LWORK_CUNMBR = REAL( DUM(1) ) * Compute space needed for CUNGBR CALL CUNGBR( 'P', M, N, M, A, LDA, DUM(1), $ DUM(1), -1, INFO ) - LWORK_CUNGBR=DUM(1) + LWORK_CUNGBR = REAL( DUM(1) ) MAXWRK = 2*M + LWORK_CGEBRD MAXWRK = MAX( MAXWRK, 2*M + LWORK_CUNMBR ) MAXWRK = MAX( MAXWRK, 2*M + LWORK_CUNGBR ) diff --git a/lapack-netlib/SRC/cgelsy.f b/lapack-netlib/SRC/cgelsy.f index d235087d4..67140f191 100644 --- a/lapack-netlib/SRC/cgelsy.f +++ b/lapack-netlib/SRC/cgelsy.f @@ -195,8 +195,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEsolve * *> \par Contributors: @@ -210,10 +208,9 @@ SUBROUTINE CGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/cgemlq.f b/lapack-netlib/SRC/cgemlq.f index 4e374077e..e0cf78bc0 100644 --- a/lapack-netlib/SRC/cgemlq.f +++ b/lapack-netlib/SRC/cgemlq.f @@ -37,15 +37,15 @@ *> \param[in] SIDE *> \verbatim *> SIDE is CHARACTER*1 -*> = 'L': apply Q or Q**T from the Left; -*> = 'R': apply Q or Q**T from the Right. +*> = 'L': apply Q or Q**H from the Left; +*> = 'R': apply Q or Q**H from the Right. *> \endverbatim *> *> \param[in] TRANS *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'T': Transpose, apply Q**T. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -99,7 +99,7 @@ *> \verbatim *> C is COMPLEX array, dimension (LDC,N) *> On entry, the M-by-N matrix C. -*> On exit, C is overwritten by Q*C or Q**T*C or C*Q**T or C*Q. +*> On exit, C is overwritten by Q*C or Q**H*C or C*Q**H or C*Q. *> \endverbatim *> *> \param[in] LDC @@ -168,10 +168,9 @@ SUBROUTINE CGEMLQ( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/cgemlqt.f b/lapack-netlib/SRC/cgemlqt.f index 66b186bff..a4710f115 100644 --- a/lapack-netlib/SRC/cgemlqt.f +++ b/lapack-netlib/SRC/cgemlqt.f @@ -20,13 +20,13 @@ *> *> \verbatim *> -*> CGEMLQT overwrites the general real M-by-N matrix C with +*> CGEMLQT overwrites the general complex M-by-N matrix C with *> *> SIDE = 'L' SIDE = 'R' *> TRANS = 'N': Q C C Q *> TRANS = 'C': Q**H C C Q**H *> -*> where Q is a complex orthogonal matrix defined as the product of K +*> where Q is a complex unitary matrix defined as the product of K *> elementary reflectors: *> *> Q = H(1) H(2) . . . H(K) = I - V T V**H @@ -50,7 +50,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -79,7 +79,7 @@ *> MB is INTEGER *> The block size used for the storage of T. K >= MB >= 1. *> This must be the same value of MB used to generate T -*> in DGELQT. +*> in CGELQT. *> \endverbatim *> *> \param[in] V @@ -89,7 +89,7 @@ *> (LDV,N) if SIDE = 'R' *> The i-th row must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> DGELQT in the first K rows of its array argument A. +*> CGELQT in the first K rows of its array argument A. *> \endverbatim *> *> \param[in] LDV @@ -102,7 +102,7 @@ *> \verbatim *> T is COMPLEX array, dimension (LDT,K) *> The upper triangular factors of the block reflectors -*> as returned by DGELQT, stored as a MB-by-K matrix. +*> as returned by CGELQT, stored as a MB-by-K matrix. *> \endverbatim *> *> \param[in] LDT @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE CGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -171,7 +168,7 @@ * .. * .. Local Scalars .. LOGICAL LEFT, RIGHT, TRAN, NOTRAN - INTEGER I, IB, LDWORK, KF + INTEGER I, IB, LDWORK, KF, Q * .. * .. External Functions .. LOGICAL LSAME @@ -195,8 +192,10 @@ * IF( LEFT ) THEN LDWORK = MAX( 1, N ) + Q = M ELSE IF ( RIGHT ) THEN LDWORK = MAX( 1, M ) + Q = N END IF IF( .NOT.LEFT .AND. .NOT.RIGHT ) THEN INFO = -1 @@ -206,7 +205,7 @@ INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 - ELSE IF( K.LT.0) THEN + ELSE IF( K.LT.0 .OR. K.GT.Q ) THEN INFO = -5 ELSE IF( MB.LT.1 .OR. (MB.GT.K .AND. K.GT.0)) THEN INFO = -6 diff --git a/lapack-netlib/SRC/cgemqr.f b/lapack-netlib/SRC/cgemqr.f index 54ab7aa74..ea9de146e 100644 --- a/lapack-netlib/SRC/cgemqr.f +++ b/lapack-netlib/SRC/cgemqr.f @@ -38,15 +38,15 @@ *> \param[in] SIDE *> \verbatim *> SIDE is CHARACTER*1 -*> = 'L': apply Q or Q**T from the Left; -*> = 'R': apply Q or Q**T from the Right. +*> = 'L': apply Q or Q**H from the Left; +*> = 'R': apply Q or Q**H from the Right. *> \endverbatim *> *> \param[in] TRANS *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'T': Transpose, apply Q**T. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -100,7 +100,7 @@ *> \verbatim *> C is COMPLEX array, dimension (LDC,N) *> On entry, the M-by-N matrix C. -*> On exit, C is overwritten by Q*C or Q**T*C or C*Q**T or C*Q. +*> On exit, C is overwritten by Q*C or Q**H*C or C*Q**H or C*Q. *> \endverbatim *> *> \param[in] LDC @@ -170,10 +170,9 @@ SUBROUTINE CGEMQR( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/cgemqrt.f b/lapack-netlib/SRC/cgemqrt.f index 4926fb7f6..36fa333aa 100644 --- a/lapack-netlib/SRC/cgemqrt.f +++ b/lapack-netlib/SRC/cgemqrt.f @@ -65,7 +65,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/cgeql2.f b/lapack-netlib/SRC/cgeql2.f index b9521ba4a..41a5f9e04 100644 --- a/lapack-netlib/SRC/cgeql2.f +++ b/lapack-netlib/SRC/cgeql2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -123,10 +121,9 @@ * ===================================================================== SUBROUTINE CGEQL2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgeqlf.f b/lapack-netlib/SRC/cgeqlf.f index fdd03f9e1..d2c11c269 100644 --- a/lapack-netlib/SRC/cgeqlf.f +++ b/lapack-netlib/SRC/cgeqlf.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE CGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cgeqp3.f b/lapack-netlib/SRC/cgeqp3.f index e3d109de9..402cf21f2 100644 --- a/lapack-netlib/SRC/cgeqp3.f +++ b/lapack-netlib/SRC/cgeqp3.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -159,10 +157,9 @@ SUBROUTINE CGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cgeqr.f b/lapack-netlib/SRC/cgeqr.f index e0aea88b1..d10e3da65 100644 --- a/lapack-netlib/SRC/cgeqr.f +++ b/lapack-netlib/SRC/cgeqr.f @@ -172,10 +172,9 @@ SUBROUTINE CGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, TSIZE, LWORK diff --git a/lapack-netlib/SRC/cgeqr2.f b/lapack-netlib/SRC/cgeqr2.f index 8cb2fa119..b0b346b2d 100644 --- a/lapack-netlib/SRC/cgeqr2.f +++ b/lapack-netlib/SRC/cgeqr2.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -130,10 +128,9 @@ * ===================================================================== SUBROUTINE CGEQR2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgeqr2p.f b/lapack-netlib/SRC/cgeqr2p.f index 1e7b980df..7be7e7a1c 100644 --- a/lapack-netlib/SRC/cgeqr2p.f +++ b/lapack-netlib/SRC/cgeqr2p.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -134,10 +132,9 @@ * ===================================================================== SUBROUTINE CGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgeqrf.f b/lapack-netlib/SRC/cgeqrf.f index ff0c53f2f..d71bd5b33 100644 --- a/lapack-netlib/SRC/cgeqrf.f +++ b/lapack-netlib/SRC/cgeqrf.f @@ -95,7 +95,8 @@ *> \param[in] LWORK *> \verbatim *> LWORK is INTEGER -*> The dimension of the array WORK. LWORK >= max(1,N). +*> The dimension of the array WORK. +*> LWORK >= 1, if MIN(M,N) = 0, and LWORK >= N, otherwise. *> For optimum performance LWORK >= N*NB, where NB is *> the optimal blocksize. *> @@ -120,8 +121,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -145,10 +144,9 @@ * ===================================================================== SUBROUTINE CGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N @@ -178,10 +176,9 @@ * * Test the input arguments * + K = MIN( M, N ) INFO = 0 NB = ILAENV( 1, 'CGEQRF', ' ', M, N, -1, -1 ) - LWKOPT = N*NB - WORK( 1 ) = LWKOPT LQUERY = ( LWORK.EQ.-1 ) IF( M.LT.0 ) THEN INFO = -1 @@ -189,19 +186,25 @@ INFO = -2 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN INFO = -4 - ELSE IF( LWORK.LT.MAX( 1, N ) .AND. .NOT.LQUERY ) THEN - INFO = -7 + ELSE IF( .NOT.LQUERY ) THEN + IF( LWORK.LE.0 .OR. ( M.GT.0 .AND. LWORK.LT.MAX( 1, N ) ) ) + $ INFO = -7 END IF IF( INFO.NE.0 ) THEN CALL XERBLA( 'CGEQRF', -INFO ) RETURN ELSE IF( LQUERY ) THEN + IF( K.EQ.0 ) THEN + LWKOPT = 1 + ELSE + LWKOPT = N*NB + END IF + WORK( 1 ) = LWKOPT RETURN END IF * * Quick return if possible * - K = MIN( M, N ) IF( K.EQ.0 ) THEN WORK( 1 ) = 1 RETURN diff --git a/lapack-netlib/SRC/cgeqrfp.f b/lapack-netlib/SRC/cgeqrfp.f index 9c29ac90b..995404f43 100644 --- a/lapack-netlib/SRC/cgeqrfp.f +++ b/lapack-netlib/SRC/cgeqrfp.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -149,10 +147,9 @@ * ===================================================================== SUBROUTINE CGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cgeqrt.f b/lapack-netlib/SRC/cgeqrt.f index ef9c1c3c7..c5eeddf7d 100644 --- a/lapack-netlib/SRC/cgeqrt.f +++ b/lapack-netlib/SRC/cgeqrt.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -141,10 +139,9 @@ * ===================================================================== SUBROUTINE CGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, NB diff --git a/lapack-netlib/SRC/cgeqrt3.f b/lapack-netlib/SRC/cgeqrt3.f index e3cfeeaca..f62aee4b5 100644 --- a/lapack-netlib/SRC/cgeqrt3.f +++ b/lapack-netlib/SRC/cgeqrt3.f @@ -100,8 +100,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -132,10 +130,9 @@ * ===================================================================== RECURSIVE SUBROUTINE CGEQRT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT diff --git a/lapack-netlib/SRC/cgerfs.f b/lapack-netlib/SRC/cgerfs.f index 6178321da..6026c4bee 100644 --- a/lapack-netlib/SRC/cgerfs.f +++ b/lapack-netlib/SRC/cgerfs.f @@ -178,18 +178,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/cgerfsx.f b/lapack-netlib/SRC/cgerfsx.f index a6e24ae4f..d6682654f 100644 --- a/lapack-netlib/SRC/cgerfsx.f +++ b/lapack-netlib/SRC/cgerfsx.f @@ -404,8 +404,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== @@ -414,10 +412,9 @@ $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS, EQUED diff --git a/lapack-netlib/SRC/cgerq2.f b/lapack-netlib/SRC/cgerq2.f index b0844ea7b..a2cf5cf69 100644 --- a/lapack-netlib/SRC/cgerq2.f +++ b/lapack-netlib/SRC/cgerq2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -123,10 +121,9 @@ * ===================================================================== SUBROUTINE CGERQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgerqf.f b/lapack-netlib/SRC/cgerqf.f index 4ae26e817..d2247844c 100644 --- a/lapack-netlib/SRC/cgerqf.f +++ b/lapack-netlib/SRC/cgerqf.f @@ -88,7 +88,8 @@ *> \param[in] LWORK *> \verbatim *> LWORK is INTEGER -*> The dimension of the array WORK. LWORK >= max(1,M). +*> The dimension of the array WORK. +*> LWORK >= 1, if MIN(M,N) = 0, and LWORK >= M, otherwise. *> For optimum performance LWORK >= M*NB, where NB is *> the optimal blocksize. *> @@ -113,8 +114,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -138,10 +137,9 @@ * ===================================================================== SUBROUTINE CGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N @@ -191,8 +189,9 @@ END IF WORK( 1 ) = LWKOPT * - IF( LWORK.LT.MAX( 1, M ) .AND. .NOT.LQUERY ) THEN - INFO = -7 + IF ( .NOT.LQUERY ) THEN + IF( LWORK.LE.0 .OR. ( N.GT.0 .AND. LWORK.LT.MAX( 1, M ) ) ) + $ INFO = -7 END IF END IF * diff --git a/lapack-netlib/SRC/cgesc2.f b/lapack-netlib/SRC/cgesc2.f index 6f45a09a6..129e498d9 100644 --- a/lapack-netlib/SRC/cgesc2.f +++ b/lapack-netlib/SRC/cgesc2.f @@ -102,8 +102,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEauxiliary * *> \par Contributors: @@ -115,10 +113,9 @@ * ===================================================================== SUBROUTINE CGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, N diff --git a/lapack-netlib/SRC/cgesdd.f b/lapack-netlib/SRC/cgesdd.f index 34a80beea..b824374d3 100644 --- a/lapack-netlib/SRC/cgesdd.f +++ b/lapack-netlib/SRC/cgesdd.f @@ -199,9 +199,10 @@ *> \param[out] INFO *> \verbatim *> INFO is INTEGER -*> = 0: successful exit. *> < 0: if INFO = -i, the i-th argument had an illegal value. +*> = -4: if A had a NAN entry. *> > 0: The updating process of SBDSDC did not converge. +*> = 0: successful exit. *> \endverbatim * * Authors: @@ -212,8 +213,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGEsing * *> \par Contributors: @@ -227,10 +226,9 @@ $ WORK, LWORK, RWORK, IWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ @@ -282,8 +280,9 @@ * .. * .. External Functions .. LOGICAL LSAME, SISNAN - REAL SLAMCH, CLANGE - EXTERNAL LSAME, SLAMCH, CLANGE, SISNAN + REAL SLAMCH, CLANGE, SROUNDUP_LWORK + EXTERNAL LSAME, SLAMCH, CLANGE, SISNAN, + $ SROUNDUP_LWORK * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN, SQRT @@ -619,7 +618,7 @@ MAXWRK = MAX( MAXWRK, MINWRK ) END IF IF( INFO.EQ.0 ) THEN - WORK( 1 ) = MAXWRK + WORK( 1 ) = SROUNDUP_LWORK( MAXWRK ) IF( LWORK.LT.MINWRK .AND. .NOT. LQUERY ) THEN INFO = -12 END IF @@ -2215,7 +2214,7 @@ * * Return optimal workspace in WORK(1) * - WORK( 1 ) = MAXWRK + WORK( 1 ) = SROUNDUP_LWORK( MAXWRK ) * RETURN * diff --git a/lapack-netlib/SRC/cgesv.f b/lapack-netlib/SRC/cgesv.f index 2b0fb2153..d18ed0375 100644 --- a/lapack-netlib/SRC/cgesv.f +++ b/lapack-netlib/SRC/cgesv.f @@ -115,17 +115,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexGEsolve * * ===================================================================== SUBROUTINE CGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, N, NRHS diff --git a/lapack-netlib/SRC/cgesvd.f b/lapack-netlib/SRC/cgesvd.f index cdcf9db3c..239b13431 100644 --- a/lapack-netlib/SRC/cgesvd.f +++ b/lapack-netlib/SRC/cgesvd.f @@ -206,18 +206,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGEsing * * ===================================================================== SUBROUTINE CGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, $ WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER JOBU, JOBVT diff --git a/lapack-netlib/SRC/cgesvdq.f b/lapack-netlib/SRC/cgesvdq.f index 77c883dde..1a587eca3 100644 --- a/lapack-netlib/SRC/cgesvdq.f +++ b/lapack-netlib/SRC/cgesvdq.f @@ -220,7 +220,7 @@ *> left singular vectors in the case JOBU = 'F'. *> *> If LIWORK, LCWORK, or LRWORK = -1, then on exit, if INFO = 0, -*> LIWORK(1) returns the minimal LIWORK. +*> IWORK(1) returns the minimal LIWORK. *> \endverbatim *> *> \param[in] LIWORK @@ -315,7 +315,7 @@ *> N^(-1/4) * RWORK(1) <= ||pinv(C)||_2 <= N^(1/4) * RWORK(1). *> Otherwise, RWORK(1) = -1. *> 2. RWORK(2) contains the number of singular values computed as -*> exact zeros in CGESVD applied to the upper triangular or trapeziodal +*> exact zeros in CGESVD applied to the upper triangular or trapezoidal *> R (from the initial QR factorization). In case of early exit (no call to *> CGESVD, such as in the case of zero matrix) RWORK(2) = -1. *> @@ -404,8 +404,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2018 -* *> \ingroup complexGEsing * * ===================================================================== @@ -640,7 +638,7 @@ IF ( WNTVA ) THEN * .. minimal workspace length for N x N/2 CGEQRF LWQRF = MAX( N/2, 1 ) -* .. minimal workspace lengt for N/2 x N/2 CGESVD +* .. minimal workspace length for N/2 x N/2 CGESVD LWSVD2 = MAX( 3 * (N/2), 1 ) LWUNQ2 = MAX( N, 1 ) MINWRK2 = MAX( LWQP3, N/2+LWQRF, N/2+LWSVD2, diff --git a/lapack-netlib/SRC/cgesvdx.f b/lapack-netlib/SRC/cgesvdx.f index 5b08d5732..fbdb121ca 100644 --- a/lapack-netlib/SRC/cgesvdx.f +++ b/lapack-netlib/SRC/cgesvdx.f @@ -261,8 +261,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGEsing * * ===================================================================== @@ -270,10 +268,9 @@ $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, $ LWORK, RWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU, JOBVT, RANGE diff --git a/lapack-netlib/SRC/cgesvj.f b/lapack-netlib/SRC/cgesvj.f index 81e40efef..149cf5e48 100644 --- a/lapack-netlib/SRC/cgesvj.f +++ b/lapack-netlib/SRC/cgesvj.f @@ -276,8 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -296,7 +294,7 @@ *> spectral condition number. The best performance of this Jacobi SVD *> procedure is achieved if used in an accelerated version of Drmac and *> Veselic [4,5], and it is the kernel routine in the SIGMA library [6]. -*> Some tunning parameters (marked with [TP]) are available for the +*> Some tuning parameters (marked with [TP]) are available for the *> implementer. *> The computational range for the nonzero singular values is the machine *> number interval ( UNDERFLOW , OVERFLOW ). In extreme cases, even @@ -351,10 +349,9 @@ SUBROUTINE CGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, $ LDV, CWORK, LWORK, RWORK, LRWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * IMPLICIT NONE * .. Scalar Arguments .. diff --git a/lapack-netlib/SRC/cgesvx.f b/lapack-netlib/SRC/cgesvx.f index 321ace26b..66c714bb1 100644 --- a/lapack-netlib/SRC/cgesvx.f +++ b/lapack-netlib/SRC/cgesvx.f @@ -341,8 +341,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGEsolve * * ===================================================================== @@ -350,10 +348,9 @@ $ EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/cgesvxx.f b/lapack-netlib/SRC/cgesvxx.f index 383e4d011..e50f1b56f 100644 --- a/lapack-netlib/SRC/cgesvxx.f +++ b/lapack-netlib/SRC/cgesvxx.f @@ -532,8 +532,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGEsolve * * ===================================================================== @@ -543,10 +541,9 @@ $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/cgetc2.f b/lapack-netlib/SRC/cgetc2.f index e4a414fc2..94267d767 100644 --- a/lapack-netlib/SRC/cgetc2.f +++ b/lapack-netlib/SRC/cgetc2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGEauxiliary * *> \par Contributors: @@ -111,10 +109,9 @@ * ===================================================================== SUBROUTINE CGETC2( N, A, LDA, IPIV, JPIV, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/cgetf2.f b/lapack-netlib/SRC/cgetf2.f index 083e6cce1..aac989970 100644 --- a/lapack-netlib/SRC/cgetf2.f +++ b/lapack-netlib/SRC/cgetf2.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGETF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgetrf.f b/lapack-netlib/SRC/cgetrf.f index 4e72995f5..d08e0bb9a 100644 --- a/lapack-netlib/SRC/cgetrf.f +++ b/lapack-netlib/SRC/cgetrf.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGETRF( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgetrf2.f b/lapack-netlib/SRC/cgetrf2.f index eda77e227..796dd5005 100644 --- a/lapack-netlib/SRC/cgetrf2.f +++ b/lapack-netlib/SRC/cgetrf2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== RECURSIVE SUBROUTINE CGETRF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/cgetri.f b/lapack-netlib/SRC/cgetri.f index bc83f74c6..bd7fc286c 100644 --- a/lapack-netlib/SRC/cgetri.f +++ b/lapack-netlib/SRC/cgetri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/cgetrs.f b/lapack-netlib/SRC/cgetrs.f index 6dc63e70d..187b1a686 100644 --- a/lapack-netlib/SRC/cgetrs.f +++ b/lapack-netlib/SRC/cgetrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/cgetsls.f b/lapack-netlib/SRC/cgetsls.f index 01de3c984..8a4d02224 100644 --- a/lapack-netlib/SRC/cgetsls.f +++ b/lapack-netlib/SRC/cgetsls.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexGEsolve * * ===================================================================== SUBROUTINE CGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS @@ -186,17 +183,16 @@ * .. * .. Local Scalars .. LOGICAL LQUERY, TRAN - INTEGER I, IASCL, IBSCL, J, MINMN, MAXMN, BROW, - $ SCLLEN, MNK, TSZO, TSZM, LWO, LWM, LW1, LW2, + INTEGER I, IASCL, IBSCL, J, MAXMN, BROW, + $ SCLLEN, TSZO, TSZM, LWO, LWM, LW1, LW2, $ WSIZEO, WSIZEM, INFO2 REAL ANRM, BIGNUM, BNRM, SMLNUM, DUM( 1 ) COMPLEX TQ( 5 ), WORKQ( 1 ) * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV REAL SLAMCH, CLANGE - EXTERNAL LSAME, ILAENV, SLABAD, SLAMCH, CLANGE + EXTERNAL LSAME, SLABAD, SLAMCH, CLANGE * .. * .. External Subroutines .. EXTERNAL CGEQR, CGEMQR, CLASCL, CLASET, @@ -210,9 +206,7 @@ * Test the input arguments. * INFO = 0 - MINMN = MIN( M, N ) MAXMN = MAX( M, N ) - MNK = MAX( MINMN, NRHS ) TRAN = LSAME( TRANS, 'C' ) * LQUERY = ( LWORK.EQ.-1 .OR. LWORK.EQ.-2 ) @@ -233,7 +227,7 @@ * IF( INFO.EQ.0 ) THEN * -* Determine the block size and minimum LWORK +* Determine the optimum and minimum LWORK * IF( M.GE.N ) THEN CALL CGEQR( M, N, A, LDA, TQ, -1, WORKQ, -1, INFO2 ) @@ -270,16 +264,16 @@ IF( ( LWORK.LT.WSIZEM ).AND.( .NOT.LQUERY ) ) THEN INFO = -10 END IF +* + WORK( 1 ) = REAL( WSIZEO ) * END IF * IF( INFO.NE.0 ) THEN CALL XERBLA( 'CGETSLS', -INFO ) - WORK( 1 ) = REAL( WSIZEO ) RETURN END IF IF( LQUERY ) THEN - IF( LWORK.EQ.-1 ) WORK( 1 ) = REAL( WSIZEO ) IF( LWORK.EQ.-2 ) WORK( 1 ) = REAL( WSIZEM ) RETURN END IF @@ -494,6 +488,6 @@ WORK( 1 ) = REAL( TSZO + LWO ) RETURN * -* End of ZGETSLS +* End of CGETSLS * END diff --git a/lapack-netlib/SRC/cggbak.f b/lapack-netlib/SRC/cggbak.f index 3626ecbeb..e8ac34805 100644 --- a/lapack-netlib/SRC/cggbak.f +++ b/lapack-netlib/SRC/cggbak.f @@ -131,8 +131,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * *> \par Further Details: @@ -148,10 +146,9 @@ SUBROUTINE CGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, V, $ LDV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB, SIDE diff --git a/lapack-netlib/SRC/cggbal.f b/lapack-netlib/SRC/cggbal.f index 8c7324c70..c7a232415 100644 --- a/lapack-netlib/SRC/cggbal.f +++ b/lapack-netlib/SRC/cggbal.f @@ -160,8 +160,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ SUBROUTINE CGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, $ RSCALE, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/cgges.f b/lapack-netlib/SRC/cgges.f index 988b8a853..c54174da4 100644 --- a/lapack-netlib/SRC/cgges.f +++ b/lapack-netlib/SRC/cgges.f @@ -261,8 +261,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEeigen * * ===================================================================== @@ -270,10 +268,9 @@ $ SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK, $ LWORK, RWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SORT diff --git a/lapack-netlib/SRC/cgges3.f b/lapack-netlib/SRC/cgges3.f index 876a26df9..aac9f9510 100644 --- a/lapack-netlib/SRC/cgges3.f +++ b/lapack-netlib/SRC/cgges3.f @@ -243,7 +243,7 @@ *> The QZ iteration failed. (A,B) are not in Schur *> form, but ALPHA(j) and BETA(j) should be correct for *> j=INFO+1,...,N. -*> > N: =N+1: other than QZ iteration failed in CHGEQZ +*> > N: =N+1: other than QZ iteration failed in CLAQZ0 *> =N+2: after reordering, roundoff changed values of *> some complex eigenvalues so that leading *> eigenvalues in the Generalized Schur form no @@ -260,8 +260,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complexGEeigen * * ===================================================================== @@ -269,10 +267,9 @@ $ LDB, SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, $ WORK, LWORK, RWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.6.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SORT @@ -312,7 +309,7 @@ REAL DIF( 2 ) * .. * .. External Subroutines .. - EXTERNAL CGEQRF, CGGBAK, CGGBAL, CGGHD3, CHGEQZ, CLACPY, + EXTERNAL CGEQRF, CGGBAK, CGGBAL, CGGHD3, CLAQZ0, CLACPY, $ CLASCL, CLASET, CTGSEN, CUNGQR, CUNMQR, SLABAD, $ XERBLA * .. @@ -392,9 +389,9 @@ CALL CGGHD3( JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, VSL, $ LDVSL, VSR, LDVSR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, N + INT ( WORK( 1 ) ) ) - CALL CHGEQZ( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, + CALL CLAQZ0( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, $ ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK, -1, - $ RWORK, IERR ) + $ RWORK, 0, IERR ) LWKOPT = MAX( LWKOPT, INT ( WORK( 1 ) ) ) IF( WANTST ) THEN CALL CTGSEN( 0, ILVSL, ILVSR, BWORK, N, A, LDA, B, LDB, @@ -509,9 +506,9 @@ * Perform QZ algorithm, computing Schur vectors if desired * IWRK = ITAU - CALL CHGEQZ( 'S', JOBVSL, JOBVSR, N, ILO, IHI, A, LDA, B, LDB, + CALL CLAQZ0( 'S', JOBVSL, JOBVSR, N, ILO, IHI, A, LDA, B, LDB, $ ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK( IWRK ), - $ LWORK+1-IWRK, RWORK( IRWRK ), IERR ) + $ LWORK+1-IWRK, RWORK( IRWRK ), 0, IERR ) IF( IERR.NE.0 ) THEN IF( IERR.GT.0 .AND. IERR.LE.N ) THEN INFO = IERR diff --git a/lapack-netlib/SRC/cggesx.f b/lapack-netlib/SRC/cggesx.f index acc4eda36..6385a74c1 100644 --- a/lapack-netlib/SRC/cggesx.f +++ b/lapack-netlib/SRC/cggesx.f @@ -320,8 +320,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexGEeigen * * ===================================================================== @@ -330,10 +328,9 @@ $ LDVSR, RCONDE, RCONDV, WORK, LWORK, RWORK, $ IWORK, LIWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SENSE, SORT diff --git a/lapack-netlib/SRC/cggev.f b/lapack-netlib/SRC/cggev.f index 678a0e51d..c1c28a180 100644 --- a/lapack-netlib/SRC/cggev.f +++ b/lapack-netlib/SRC/cggev.f @@ -197,8 +197,8 @@ *> The QZ iteration failed. No eigenvectors have been *> calculated, but ALPHA(j) and BETA(j) should be *> correct for j=INFO+1,...,N. -*> > N: =N+1: other then QZ iteration failed in SHGEQZ, -*> =N+2: error return from STGEVC. +*> > N: =N+1: other then QZ iteration failed in CHGEQZ, +*> =N+2: error return from CTGEVC. *> \endverbatim * * Authors: @@ -209,18 +209,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGEeigen * * ===================================================================== SUBROUTINE CGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, $ VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/cggev3.f b/lapack-netlib/SRC/cggev3.f index f34b8f2c4..9483ecdeb 100644 --- a/lapack-netlib/SRC/cggev3.f +++ b/lapack-netlib/SRC/cggev3.f @@ -196,8 +196,8 @@ *> The QZ iteration failed. No eigenvectors have been *> calculated, but ALPHA(j) and BETA(j) should be *> correct for j=INFO+1,...,N. -*> > N: =N+1: other then QZ iteration failed in SHGEQZ, -*> =N+2: error return from STGEVC. +*> > N: =N+1: other then QZ iteration failed in CHGEQZ, +*> =N+2: error return from CTGEVC. *> \endverbatim * * Authors: @@ -208,18 +208,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complexGEeigen * * ===================================================================== SUBROUTINE CGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, $ VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.6.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR @@ -255,7 +252,7 @@ LOGICAL LDUMMA( 1 ) * .. * .. External Subroutines .. - EXTERNAL CGEQRF, CGGBAK, CGGBAL, CGGHD3, CHGEQZ, CLACPY, + EXTERNAL CGEQRF, CGGBAK, CGGBAL, CGGHD3, CLAQZ0, CLACPY, $ CLASCL, CLASET, CTGEVC, CUNGQR, CUNMQR, SLABAD, $ XERBLA * .. @@ -338,17 +335,17 @@ CALL CGGHD3( JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, VL, $ LDVL, VR, LDVR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, N+INT( WORK( 1 ) ) ) - CALL CHGEQZ( 'S', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, + CALL CLAQZ0( 'S', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, $ ALPHA, BETA, VL, LDVL, VR, LDVR, WORK, -1, - $ RWORK, IERR ) + $ RWORK, 0, IERR ) LWKOPT = MAX( LWKOPT, N+INT( WORK( 1 ) ) ) ELSE CALL CGGHD3( 'N', 'N', N, 1, N, A, LDA, B, LDB, VL, LDVL, $ VR, LDVR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, N+INT( WORK( 1 ) ) ) - CALL CHGEQZ( 'E', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, + CALL CLAQZ0( 'E', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, $ ALPHA, BETA, VL, LDVL, VR, LDVR, WORK, -1, - $ RWORK, IERR ) + $ RWORK, 0, IERR ) LWKOPT = MAX( LWKOPT, N+INT( WORK( 1 ) ) ) END IF WORK( 1 ) = CMPLX( LWKOPT ) @@ -471,9 +468,9 @@ ELSE CHTEMP = 'E' END IF - CALL CHGEQZ( CHTEMP, JOBVL, JOBVR, N, ILO, IHI, A, LDA, B, LDB, + CALL CLAQZ0( CHTEMP, JOBVL, JOBVR, N, ILO, IHI, A, LDA, B, LDB, $ ALPHA, BETA, VL, LDVL, VR, LDVR, WORK( IWRK ), - $ LWORK+1-IWRK, RWORK( IRWRK ), IERR ) + $ LWORK+1-IWRK, RWORK( IRWRK ), 0, IERR ) IF( IERR.NE.0 ) THEN IF( IERR.GT.0 .AND. IERR.LE.N ) THEN INFO = IERR diff --git a/lapack-netlib/SRC/cggevx.f b/lapack-netlib/SRC/cggevx.f index c5fb37e88..405c9c3b5 100644 --- a/lapack-netlib/SRC/cggevx.f +++ b/lapack-netlib/SRC/cggevx.f @@ -335,8 +335,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGEeigen * *> \par Further Details: @@ -374,10 +372,9 @@ $ LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV, $ WORK, LWORK, RWORK, IWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE @@ -710,8 +707,8 @@ * IF( .NOT.WANTSN ) THEN * -* compute eigenvectors (STGEVC) and estimate condition -* numbers (STGSNA). Note that the definition of the condition +* compute eigenvectors (CTGEVC) and estimate condition +* numbers (CTGSNA). Note that the definition of the condition * number is not invariant under transformation (u,v) to * (Q*u, Z*v), where (u,v) are eigenvectors of the generalized * Schur form (S,T), Q and Z are orthogonal matrices. In order diff --git a/lapack-netlib/SRC/cggglm.f b/lapack-netlib/SRC/cggglm.f index 9c8e0eec3..3efca1e71 100644 --- a/lapack-netlib/SRC/cggglm.f +++ b/lapack-netlib/SRC/cggglm.f @@ -177,18 +177,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHEReigen * * ===================================================================== SUBROUTINE CGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P @@ -292,7 +289,7 @@ * CALL CGGQRF( N, M, P, A, LDA, WORK, B, LDB, WORK( M+1 ), $ WORK( M+NP+1 ), LWORK-M-NP, INFO ) - LOPT = WORK( M+NP+1 ) + LOPT = REAL( WORK( M+NP+1 ) ) * * Update left-hand-side vector d = Q**H*d = ( d1 ) M * ( d2 ) N-M diff --git a/lapack-netlib/SRC/cgghd3.f b/lapack-netlib/SRC/cgghd3.f index b86c9dc71..76d7de4ce 100644 --- a/lapack-netlib/SRC/cgghd3.f +++ b/lapack-netlib/SRC/cgghd3.f @@ -212,8 +212,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -221,7 +219,7 @@ *> *> \verbatim *> -*> This routine reduces A to Hessenberg form and maintains B in +*> This routine reduces A to Hessenberg form and maintains B in triangular form *> using a blocked variant of Moler and Stewart's original algorithm, *> as described by Kagstrom, Kressner, Quintana-Orti, and Quintana-Orti *> (BIT 2008). @@ -231,10 +229,9 @@ SUBROUTINE CGGHD3( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, $ LDQ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * IMPLICIT NONE diff --git a/lapack-netlib/SRC/cgghrd.f b/lapack-netlib/SRC/cgghrd.f index e615e3fee..bf96a3138 100644 --- a/lapack-netlib/SRC/cgghrd.f +++ b/lapack-netlib/SRC/cgghrd.f @@ -186,8 +186,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -204,10 +202,9 @@ SUBROUTINE CGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, $ LDQ, Z, LDZ, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, COMPZ diff --git a/lapack-netlib/SRC/cgglse.f b/lapack-netlib/SRC/cgglse.f index b84dbeca8..4785941db 100644 --- a/lapack-netlib/SRC/cgglse.f +++ b/lapack-netlib/SRC/cgglse.f @@ -172,18 +172,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERsolve * * ===================================================================== SUBROUTINE CGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P @@ -279,7 +276,7 @@ * CALL CGGRQF( P, M, N, B, LDB, WORK, A, LDA, WORK( P+1 ), $ WORK( P+MN+1 ), LWORK-P-MN, INFO ) - LOPT = WORK( P+MN+1 ) + LOPT = REAL( WORK( P+MN+1 ) ) * * Update c = Z**H *c = ( c1 ) N-P * ( c2 ) M+P-N diff --git a/lapack-netlib/SRC/cggqrf.f b/lapack-netlib/SRC/cggqrf.f index 6d3496bef..febd9be8d 100644 --- a/lapack-netlib/SRC/cggqrf.f +++ b/lapack-netlib/SRC/cggqrf.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -215,10 +213,9 @@ SUBROUTINE CGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P @@ -279,7 +276,7 @@ * QR factorization of N-by-M matrix A: A = Q*R * CALL CGEQRF( N, M, A, LDA, TAUA, WORK, LWORK, INFO ) - LOPT = WORK( 1 ) + LOPT = REAL( WORK( 1 ) ) * * Update B := Q**H*B. * diff --git a/lapack-netlib/SRC/cggrqf.f b/lapack-netlib/SRC/cggrqf.f index cad1cc0a7..b43febc1f 100644 --- a/lapack-netlib/SRC/cggrqf.f +++ b/lapack-netlib/SRC/cggrqf.f @@ -172,8 +172,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -214,10 +212,9 @@ SUBROUTINE CGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P @@ -278,7 +275,7 @@ * RQ factorization of M-by-N matrix A: A = R*Q * CALL CGERQF( M, N, A, LDA, TAUA, WORK, LWORK, INFO ) - LOPT = WORK( 1 ) + LOPT = REAL( WORK( 1 ) ) * * Update B := B*Q**H * diff --git a/lapack-netlib/SRC/cggsvd3.f b/lapack-netlib/SRC/cggsvd3.f index c9b4262f6..f248aebd5 100644 --- a/lapack-netlib/SRC/cggsvd3.f +++ b/lapack-netlib/SRC/cggsvd3.f @@ -333,8 +333,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup complexGEsing * *> \par Contributors: @@ -354,10 +352,9 @@ $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, $ WORK, LWORK, RWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/cggsvp3.f b/lapack-netlib/SRC/cggsvp3.f index 8ea60367a..008a053a2 100644 --- a/lapack-netlib/SRC/cggsvp3.f +++ b/lapack-netlib/SRC/cggsvp3.f @@ -256,8 +256,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -278,10 +276,9 @@ $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, RWORK, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/cgsvj0.f b/lapack-netlib/SRC/cgsvj0.f index 810df3367..37853a10a 100644 --- a/lapack-netlib/SRC/cgsvj0.f +++ b/lapack-netlib/SRC/cgsvj0.f @@ -193,8 +193,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -218,10 +216,9 @@ SUBROUTINE CGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, $ SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * IMPLICIT NONE * .. Scalar Arguments .. diff --git a/lapack-netlib/SRC/cgsvj1.f b/lapack-netlib/SRC/cgsvj1.f index 06b417cf2..f1a5204e3 100644 --- a/lapack-netlib/SRC/cgsvj1.f +++ b/lapack-netlib/SRC/cgsvj1.f @@ -40,7 +40,7 @@ *> CGSVJ1 is called from CGESVJ as a pre-processor and that is its main *> purpose. It applies Jacobi rotations in the same way as CGESVJ does, but *> it targets only particular pivots and it does not check convergence -*> (stopping criterion). Few tunning parameters (marked by [TP]) are +*> (stopping criterion). Few tuning parameters (marked by [TP]) are *> available for the implementer. *> *> Further Details @@ -61,7 +61,7 @@ *> In terms of the columns of A, the first N1 columns are rotated 'against' *> the remaining N-N1 columns, trying to increase the angle between the *> corresponding subspaces. The off-diagonal block is N1-by(N-N1) and it is -*> tiled using quadratic tiles of side KBL. Here, KBL is a tunning parameter. +*> tiled using quadratic tiles of side KBL. Here, KBL is a tuning parameter. *> The number of sweeps is given in NSWEEP and the orthogonality threshold *> is given in TOL. *> \endverbatim @@ -223,8 +223,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributor: @@ -236,10 +234,9 @@ SUBROUTINE CGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, $ EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. REAL EPS, SFMIN, TOL diff --git a/lapack-netlib/SRC/cgtcon.f b/lapack-netlib/SRC/cgtcon.f index ed3260532..b21a19594 100644 --- a/lapack-netlib/SRC/cgtcon.f +++ b/lapack-netlib/SRC/cgtcon.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGTcomputational * * ===================================================================== SUBROUTINE CGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/cgtrfs.f b/lapack-netlib/SRC/cgtrfs.f index 22979a721..9b76220e8 100644 --- a/lapack-netlib/SRC/cgtrfs.f +++ b/lapack-netlib/SRC/cgtrfs.f @@ -201,8 +201,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGTcomputational * * ===================================================================== @@ -210,10 +208,9 @@ $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/cgtsv.f b/lapack-netlib/SRC/cgtsv.f index 6063db0cd..a9be1b70d 100644 --- a/lapack-netlib/SRC/cgtsv.f +++ b/lapack-netlib/SRC/cgtsv.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGTsolve * * ===================================================================== SUBROUTINE CGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/cgtsvx.f b/lapack-netlib/SRC/cgtsvx.f index 5ebb25dad..266e52b99 100644 --- a/lapack-netlib/SRC/cgtsvx.f +++ b/lapack-netlib/SRC/cgtsvx.f @@ -285,8 +285,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGTsolve * * ===================================================================== @@ -294,10 +292,9 @@ $ DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER FACT, TRANS diff --git a/lapack-netlib/SRC/cgttrf.f b/lapack-netlib/SRC/cgttrf.f index 04a7a3f86..35d0997da 100644 --- a/lapack-netlib/SRC/cgttrf.f +++ b/lapack-netlib/SRC/cgttrf.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGTcomputational * * ===================================================================== SUBROUTINE CGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/cgttrs.f b/lapack-netlib/SRC/cgttrs.f index 64d675c26..a37ad738e 100644 --- a/lapack-netlib/SRC/cgttrs.f +++ b/lapack-netlib/SRC/cgttrs.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGTcomputational * * ===================================================================== SUBROUTINE CGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/cgtts2.f b/lapack-netlib/SRC/cgtts2.f index 68d81cae8..60b5af098 100644 --- a/lapack-netlib/SRC/cgtts2.f +++ b/lapack-netlib/SRC/cgtts2.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGTcomputational * * ===================================================================== SUBROUTINE CGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ITRANS, LDB, N, NRHS diff --git a/lapack-netlib/SRC/chb2st_kernels.f b/lapack-netlib/SRC/chb2st_kernels.f index 01ea217bb..ea25b76e1 100644 --- a/lapack-netlib/SRC/chb2st_kernels.f +++ b/lapack-netlib/SRC/chb2st_kernels.f @@ -170,10 +170,9 @@ * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO @@ -372,6 +371,6 @@ * RETURN * -* END OF CHB2ST_KERNELS +* End of CHB2ST_KERNELS * END diff --git a/lapack-netlib/SRC/chbev.f b/lapack-netlib/SRC/chbev.f index 2e7022f1d..6f82cc46b 100644 --- a/lapack-netlib/SRC/chbev.f +++ b/lapack-netlib/SRC/chbev.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHEReigen * * ===================================================================== SUBROUTINE CHBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -223,9 +220,9 @@ * IF( N.EQ.1 ) THEN IF( LOWER ) THEN - W( 1 ) = AB( 1, 1 ) + W( 1 ) = REAL( AB( 1, 1 ) ) ELSE - W( 1 ) = AB( KD+1, 1 ) + W( 1 ) = REAL( AB( KD+1, 1 ) ) END IF IF( WANTZ ) $ Z( 1, 1 ) = ONE diff --git a/lapack-netlib/SRC/chbev_2stage.f b/lapack-netlib/SRC/chbev_2stage.f index 179fb5a28..123d84729 100644 --- a/lapack-netlib/SRC/chbev_2stage.f +++ b/lapack-netlib/SRC/chbev_2stage.f @@ -171,8 +171,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexOTHEReigen * *> \par Further Details: @@ -213,10 +211,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/chbevd.f b/lapack-netlib/SRC/chbevd.f index a54da4386..1598f4de5 100644 --- a/lapack-netlib/SRC/chbevd.f +++ b/lapack-netlib/SRC/chbevd.f @@ -207,18 +207,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHEReigen * * ===================================================================== SUBROUTINE CHBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -323,7 +320,7 @@ $ RETURN * IF( N.EQ.1 ) THEN - W( 1 ) = AB( 1, 1 ) + W( 1 ) = REAL( AB( 1, 1 ) ) IF( WANTZ ) $ Z( 1, 1 ) = CONE RETURN diff --git a/lapack-netlib/SRC/chbevd_2stage.f b/lapack-netlib/SRC/chbevd_2stage.f index 400233976..340c546e8 100644 --- a/lapack-netlib/SRC/chbevd_2stage.f +++ b/lapack-netlib/SRC/chbevd_2stage.f @@ -219,8 +219,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexOTHEReigen * *> \par Further Details: @@ -262,10 +260,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/chbevx.f b/lapack-netlib/SRC/chbevx.f index c7060bbd7..6b5f549a7 100644 --- a/lapack-netlib/SRC/chbevx.f +++ b/lapack-netlib/SRC/chbevx.f @@ -258,8 +258,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHEReigen * * ===================================================================== @@ -267,10 +265,9 @@ $ VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO @@ -382,7 +379,7 @@ $ M = 0 END IF IF( M.EQ.1 ) THEN - W( 1 ) = CTMP1 + W( 1 ) = REAL( CTMP1 ) IF( WANTZ ) $ Z( 1, 1 ) = CONE END IF diff --git a/lapack-netlib/SRC/chbevx_2stage.f b/lapack-netlib/SRC/chbevx_2stage.f index ddc95e188..22bced45f 100644 --- a/lapack-netlib/SRC/chbevx_2stage.f +++ b/lapack-netlib/SRC/chbevx_2stage.f @@ -285,8 +285,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHEReigen * *> \par Further Details: @@ -329,10 +327,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/chbgst.f b/lapack-netlib/SRC/chbgst.f index c84999834..53a25a27f 100644 --- a/lapack-netlib/SRC/chbgst.f +++ b/lapack-netlib/SRC/chbgst.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CHBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, $ LDX, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, VECT diff --git a/lapack-netlib/SRC/chbgv.f b/lapack-netlib/SRC/chbgv.f index d20372e97..130594a0f 100644 --- a/lapack-netlib/SRC/chbgv.f +++ b/lapack-netlib/SRC/chbgv.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHEReigen * * ===================================================================== SUBROUTINE CHBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, $ LDZ, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/chbgvd.f b/lapack-netlib/SRC/chbgvd.f index a6d38f0c0..c4ad20753 100644 --- a/lapack-netlib/SRC/chbgvd.f +++ b/lapack-netlib/SRC/chbgvd.f @@ -238,8 +238,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHEReigen * *> \par Contributors: @@ -252,10 +250,9 @@ $ Z, LDZ, WORK, LWORK, RWORK, LRWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/chbgvx.f b/lapack-netlib/SRC/chbgvx.f index db4632eb8..57cf51a55 100644 --- a/lapack-netlib/SRC/chbgvx.f +++ b/lapack-netlib/SRC/chbgvx.f @@ -286,8 +286,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHEReigen * *> \par Contributors: @@ -300,10 +298,9 @@ $ LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, $ LDZ, WORK, RWORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/chbtrd.f b/lapack-netlib/SRC/chbtrd.f index 126cc123b..d05ce42f7 100644 --- a/lapack-netlib/SRC/chbtrd.f +++ b/lapack-netlib/SRC/chbtrd.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -163,10 +161,9 @@ SUBROUTINE CHBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, VECT @@ -459,7 +456,7 @@ * copy diagonal elements to D * DO 120 I = 1, N - D( I ) = AB( KD1, I ) + D( I ) = REAL( AB( KD1, I ) ) 120 CONTINUE * ELSE @@ -666,7 +663,7 @@ * copy diagonal elements to D * DO 240 I = 1, N - D( I ) = AB( 1, I ) + D( I ) = REAL( AB( 1, I ) ) 240 CONTINUE END IF * diff --git a/lapack-netlib/SRC/checon.f b/lapack-netlib/SRC/checon.f index d30523272..94c81bd42 100644 --- a/lapack-netlib/SRC/checon.f +++ b/lapack-netlib/SRC/checon.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHECON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/checon_3.f b/lapack-netlib/SRC/checon_3.f index 5d9ed97e9..2bbf87934 100644 --- a/lapack-netlib/SRC/checon_3.f +++ b/lapack-netlib/SRC/checon_3.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -166,10 +164,9 @@ SUBROUTINE CHECON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/checon_rook.f b/lapack-netlib/SRC/checon_rook.f index 0fe4ffeba..5c203d8d8 100644 --- a/lapack-netlib/SRC/checon_rook.f +++ b/lapack-netlib/SRC/checon_rook.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -139,10 +137,9 @@ SUBROUTINE CHECON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cheequb.f b/lapack-netlib/SRC/cheequb.f index 3c6085ed2..3ea7a1627 100644 --- a/lapack-netlib/SRC/cheequb.f +++ b/lapack-netlib/SRC/cheequb.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexHEcomputational * *> \par References: @@ -132,10 +130,9 @@ * ===================================================================== SUBROUTINE CHEEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, N @@ -266,7 +263,7 @@ * avg = s^T beta / n AVG = 0.0E0 DO I = 1, N - AVG = AVG + S( I )*WORK( I ) + AVG = AVG + REAL( S( I )*WORK( I ) ) END DO AVG = AVG / N @@ -283,8 +280,8 @@ T = CABS1( A( I, I ) ) SI = S( I ) C2 = ( N-1 ) * T - C1 = ( N-2 ) * ( WORK( I ) - T*SI ) - C0 = -(T*SI)*SI + 2*WORK( I )*SI - N*AVG + C1 = REAL( ( N-2 ) * ( WORK( I ) - T*SI ) ) + C0 = REAL( -(T*SI)*SI + 2*WORK( I )*SI - N*AVG ) D = C1*C1 - 4*C0*C2 IF ( D .LE. 0 ) THEN @@ -319,7 +316,7 @@ END DO END IF - AVG = AVG + ( U + WORK( I ) ) * D / N + AVG = AVG + REAL( ( U + WORK( I ) ) * D / N ) S( I ) = SI END DO END DO diff --git a/lapack-netlib/SRC/cheev.f b/lapack-netlib/SRC/cheev.f index 913c032b7..fb8e451df 100644 --- a/lapack-netlib/SRC/cheev.f +++ b/lapack-netlib/SRC/cheev.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEeigen * * ===================================================================== SUBROUTINE CHEEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -224,7 +221,7 @@ END IF * IF( N.EQ.1 ) THEN - W( 1 ) = A( 1, 1 ) + W( 1 ) = REAL( A( 1, 1 ) ) WORK( 1 ) = 1 IF( WANTZ ) $ A( 1, 1 ) = CONE diff --git a/lapack-netlib/SRC/cheev_2stage.f b/lapack-netlib/SRC/cheev_2stage.f index a9d04ab81..fb7989d9f 100644 --- a/lapack-netlib/SRC/cheev_2stage.f +++ b/lapack-netlib/SRC/cheev_2stage.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEeigen * *> \par Further Details: @@ -191,10 +189,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/cheevd.f b/lapack-netlib/SRC/cheevd.f index ff89c2961..9a4a1efb7 100644 --- a/lapack-netlib/SRC/cheevd.f +++ b/lapack-netlib/SRC/cheevd.f @@ -186,8 +186,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEeigen * *> \par Further Details: @@ -205,10 +203,9 @@ SUBROUTINE CHEEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, $ LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -317,7 +314,7 @@ $ RETURN * IF( N.EQ.1 ) THEN - W( 1 ) = A( 1, 1 ) + W( 1 ) = REAL( A( 1, 1 ) ) IF( WANTZ ) $ A( 1, 1 ) = CONE RETURN diff --git a/lapack-netlib/SRC/cheevd_2stage.f b/lapack-netlib/SRC/cheevd_2stage.f index 6b31d4b73..830e13d30 100644 --- a/lapack-netlib/SRC/cheevd_2stage.f +++ b/lapack-netlib/SRC/cheevd_2stage.f @@ -202,8 +202,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEeigen * *> \par Further Details: @@ -255,10 +253,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/cheevr.f b/lapack-netlib/SRC/cheevr.f index c5deb1166..b8854b182 100644 --- a/lapack-netlib/SRC/cheevr.f +++ b/lapack-netlib/SRC/cheevr.f @@ -75,7 +75,7 @@ *> The desired accuracy of the output can be specified by the input *> parameter ABSTOL. *> -*> For more details, see DSTEMR's documentation and: +*> For more details, see CSTEMR's documentation and: *> - Inderjit S. Dhillon and Beresford N. Parlett: "Multiple representations *> to compute orthogonal eigenvectors of symmetric tridiagonal matrices," *> Linear Algebra and its Applications, 387(1), pp. 1-28, August 2004. @@ -338,8 +338,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexHEeigen * *> \par Contributors: @@ -357,10 +355,9 @@ $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, $ RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/cheevr_2stage.f b/lapack-netlib/SRC/cheevr_2stage.f index 1489a322e..0332a09bc 100644 --- a/lapack-netlib/SRC/cheevr_2stage.f +++ b/lapack-netlib/SRC/cheevr_2stage.f @@ -81,7 +81,7 @@ *> The desired accuracy of the output can be specified by the input *> parameter ABSTOL. *> -*> For more details, see DSTEMR's documentation and: +*> For more details, see CSTEMR's documentation and: *> - Inderjit S. Dhillon and Beresford N. Parlett: "Multiple representations *> to compute orthogonal eigenvectors of symmetric tridiagonal matrices," *> Linear Algebra and its Applications, 387(1), pp. 1-28, August 2004. @@ -354,8 +354,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexHEeigen * *> \par Contributors: @@ -408,10 +406,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/cheevx.f b/lapack-netlib/SRC/cheevx.f index e2a2c3d76..1cec902aa 100644 --- a/lapack-netlib/SRC/cheevx.f +++ b/lapack-netlib/SRC/cheevx.f @@ -250,8 +250,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexHEeigen * * ===================================================================== @@ -259,10 +257,9 @@ $ ABSTOL, M, W, Z, LDZ, WORK, LWORK, RWORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO @@ -381,12 +378,12 @@ IF( N.EQ.1 ) THEN IF( ALLEIG .OR. INDEIG ) THEN M = 1 - W( 1 ) = A( 1, 1 ) + W( 1 ) = REAL( A( 1, 1 ) ) ELSE IF( VALEIG ) THEN IF( VL.LT.REAL( A( 1, 1 ) ) .AND. VU.GE.REAL( A( 1, 1 ) ) ) $ THEN M = 1 - W( 1 ) = A( 1, 1 ) + W( 1 ) = REAL( A( 1, 1 ) ) END IF END IF IF( WANTZ ) diff --git a/lapack-netlib/SRC/cheevx_2stage.f b/lapack-netlib/SRC/cheevx_2stage.f index 59c2ae8dc..04f6e30e8 100644 --- a/lapack-netlib/SRC/cheevx_2stage.f +++ b/lapack-netlib/SRC/cheevx_2stage.f @@ -265,8 +265,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexHEeigen * *> \par Further Details: @@ -308,10 +306,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/chegs2.f b/lapack-netlib/SRC/chegs2.f index 55a895fc3..0a949b493 100644 --- a/lapack-netlib/SRC/chegs2.f +++ b/lapack-netlib/SRC/chegs2.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -197,8 +194,8 @@ * * Update the upper triangle of A(k:n,k:n) * - AKK = A( K, K ) - BKK = B( K, K ) + AKK = REAL( A( K, K ) ) + BKK = REAL( B( K, K ) ) AKK = AKK / BKK**2 A( K, K ) = AKK IF( K.LT.N ) THEN @@ -227,8 +224,8 @@ * * Update the lower triangle of A(k:n,k:n) * - AKK = A( K, K ) - BKK = B( K, K ) + AKK = REAL( A( K, K ) ) + BKK = REAL( B( K, K ) ) AKK = AKK / BKK**2 A( K, K ) = AKK IF( K.LT.N ) THEN @@ -252,8 +249,8 @@ * * Update the upper triangle of A(1:k,1:k) * - AKK = A( K, K ) - BKK = B( K, K ) + AKK = REAL( A( K, K ) ) + BKK = REAL( B( K, K ) ) CALL CTRMV( UPLO, 'No transpose', 'Non-unit', K-1, B, $ LDB, A( 1, K ), 1 ) CT = HALF*AKK @@ -272,8 +269,8 @@ * * Update the lower triangle of A(1:k,1:k) * - AKK = A( K, K ) - BKK = B( K, K ) + AKK = REAL( A( K, K ) ) + BKK = REAL( B( K, K ) ) CALL CLACGV( K-1, A( K, 1 ), LDA ) CALL CTRMV( UPLO, 'Conjugate transpose', 'Non-unit', K-1, $ B, LDB, A( K, 1 ), LDA ) diff --git a/lapack-netlib/SRC/chegst.f b/lapack-netlib/SRC/chegst.f index b3fdff2d5..129619fdb 100644 --- a/lapack-netlib/SRC/chegst.f +++ b/lapack-netlib/SRC/chegst.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHEGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chegv.f b/lapack-netlib/SRC/chegv.f index 16b3a434e..f7675a19f 100644 --- a/lapack-netlib/SRC/chegv.f +++ b/lapack-netlib/SRC/chegv.f @@ -173,18 +173,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEeigen * * ===================================================================== SUBROUTINE CHEGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/chegv_2stage.f b/lapack-netlib/SRC/chegv_2stage.f index 77bc7fc19..472581c4b 100644 --- a/lapack-netlib/SRC/chegv_2stage.f +++ b/lapack-netlib/SRC/chegv_2stage.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEeigen * *> \par Further Details: @@ -234,10 +232,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/chegvd.f b/lapack-netlib/SRC/chegvd.f index 38b234174..0c708190c 100644 --- a/lapack-netlib/SRC/chegvd.f +++ b/lapack-netlib/SRC/chegvd.f @@ -225,8 +225,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEeigen * *> \par Further Details: @@ -249,10 +247,9 @@ SUBROUTINE CHEGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/chegvx.f b/lapack-netlib/SRC/chegvx.f index bf153f50a..6e428242d 100644 --- a/lapack-netlib/SRC/chegvx.f +++ b/lapack-netlib/SRC/chegvx.f @@ -293,8 +293,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexHEeigen * *> \par Contributors: @@ -307,10 +305,9 @@ $ VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, $ LWORK, RWORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/cherfs.f b/lapack-netlib/SRC/cherfs.f index 14844825e..704431ab5 100644 --- a/lapack-netlib/SRC/cherfs.f +++ b/lapack-netlib/SRC/cherfs.f @@ -184,18 +184,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHERFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cherfsx.f b/lapack-netlib/SRC/cherfsx.f index 76cef7cd1..3b533c3b5 100644 --- a/lapack-netlib/SRC/cherfsx.f +++ b/lapack-netlib/SRC/cherfsx.f @@ -122,8 +122,8 @@ *> AF is COMPLEX array, dimension (LDAF,N) *> The factored form of the matrix A. AF contains the block *> diagonal matrix D and the multipliers used to obtain the -*> factor U or L from the factorization A = U*D*U**T or A = -*> L*D*L**T as computed by SSYTRF. +*> factor U or L from the factorization A = U*D*U**H or A = +*> L*D*L**H as computed by CHETRF. *> \endverbatim *> *> \param[in] LDAF @@ -136,7 +136,7 @@ *> \verbatim *> IPIV is INTEGER array, dimension (N) *> Details of the interchanges and the block structure of D -*> as determined by SSYTRF. +*> as determined by CHETRF. *> \endverbatim *> *> \param[in,out] S @@ -170,7 +170,7 @@ *> \param[in,out] X *> \verbatim *> X is COMPLEX array, dimension (LDX,NRHS) -*> On entry, the solution matrix X, as computed by SGETRS. +*> On entry, the solution matrix X, as computed by CHETRS. *> On exit, the improved solution matrix X. *> \endverbatim *> @@ -391,8 +391,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexHEcomputational * * ===================================================================== @@ -401,10 +399,9 @@ $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/chesv.f b/lapack-netlib/SRC/chesv.f index 261cbbe9e..238fb0a94 100644 --- a/lapack-netlib/SRC/chesv.f +++ b/lapack-netlib/SRC/chesv.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEsolve * * ===================================================================== SUBROUTINE CHESV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chesv_aa.f b/lapack-netlib/SRC/chesv_aa.f index b934e624b..c9b97e09c 100644 --- a/lapack-netlib/SRC/chesv_aa.f +++ b/lapack-netlib/SRC/chesv_aa.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEsolve * * ===================================================================== SUBROUTINE CHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chesv_aa_2stage.f b/lapack-netlib/SRC/chesv_aa_2stage.f index ab5786d57..e474c6fad 100644 --- a/lapack-netlib/SRC/chesv_aa_2stage.f +++ b/lapack-netlib/SRC/chesv_aa_2stage.f @@ -177,8 +177,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== @@ -186,10 +184,9 @@ $ IPIV, IPIV2, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/chesv_rk.f b/lapack-netlib/SRC/chesv_rk.f index f1ff52361..a659c8e79 100644 --- a/lapack-netlib/SRC/chesv_rk.f +++ b/lapack-netlib/SRC/chesv_rk.f @@ -205,8 +205,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEsolve * *> \par Contributors: @@ -228,10 +226,9 @@ SUBROUTINE CHESV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -283,7 +280,7 @@ LWKOPT = 1 ELSE CALL CHETRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, -1, INFO ) - LWKOPT = WORK(1) + LWKOPT = REAL( WORK(1) ) END IF WORK( 1 ) = LWKOPT END IF diff --git a/lapack-netlib/SRC/chesv_rook.f b/lapack-netlib/SRC/chesv_rook.f index 76a6f5e3c..8e0b1a88f 100644 --- a/lapack-netlib/SRC/chesv_rook.f +++ b/lapack-netlib/SRC/chesv_rook.f @@ -184,8 +184,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complexHEsolve *> *> \verbatim @@ -205,10 +203,9 @@ SUBROUTINE CHESV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.5.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chesvx.f b/lapack-netlib/SRC/chesvx.f index b3b1e9ca5..6da49bdcf 100644 --- a/lapack-netlib/SRC/chesvx.f +++ b/lapack-netlib/SRC/chesvx.f @@ -276,8 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexHEsolve * * ===================================================================== @@ -285,10 +283,9 @@ $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/chesvxx.f b/lapack-netlib/SRC/chesvxx.f index c59e72bbf..2c022874a 100644 --- a/lapack-netlib/SRC/chesvxx.f +++ b/lapack-netlib/SRC/chesvxx.f @@ -185,12 +185,12 @@ *> If FACT = 'F', then AF is an input argument and on entry *> contains the block diagonal matrix D and the multipliers *> used to obtain the factor U or L from the factorization A = -*> U*D*U**T or A = L*D*L**T as computed by SSYTRF. +*> U*D*U**H or A = L*D*L**H as computed by CHETRF. *> *> If FACT = 'N', then AF is an output argument and on exit *> returns the block diagonal matrix D and the multipliers *> used to obtain the factor U or L from the factorization A = -*> U*D*U**T or A = L*D*L**T. +*> U*D*U**H or A = L*D*L**H. *> \endverbatim *> *> \param[in] LDAF @@ -499,8 +499,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexHEsolve * * ===================================================================== @@ -509,10 +507,9 @@ $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO @@ -649,7 +646,7 @@ * IF( NOFACT .OR. EQUIL ) THEN * -* Compute the LDL^T or UDU^T factorization of A. +* Compute the LDL^H or UDU^H factorization of A. * CALL CLACPY( UPLO, N, N, A, LDA, AF, LDAF ) CALL CHETRF( UPLO, N, AF, LDAF, IPIV, WORK, 5*MAX(1,N), INFO ) diff --git a/lapack-netlib/SRC/cheswapr.f b/lapack-netlib/SRC/cheswapr.f index f251b9205..aded51423 100644 --- a/lapack-netlib/SRC/cheswapr.f +++ b/lapack-netlib/SRC/cheswapr.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEauxiliary * * ===================================================================== SUBROUTINE CHESWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetd2.f b/lapack-netlib/SRC/chetd2.f index b80bfec5c..ae4f72df1 100644 --- a/lapack-netlib/SRC/chetd2.f +++ b/lapack-netlib/SRC/chetd2.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -175,10 +173,9 @@ * ===================================================================== SUBROUTINE CHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -248,7 +245,7 @@ * ALPHA = A( I, I+1 ) CALL CLARFG( I, ALPHA, A( 1, I+1 ), 1, TAUI ) - E( I ) = ALPHA + E( I ) = REAL( ALPHA ) * IF( TAUI.NE.ZERO ) THEN * @@ -276,10 +273,10 @@ A( I, I ) = REAL( A( I, I ) ) END IF A( I, I+1 ) = E( I ) - D( I+1 ) = A( I+1, I+1 ) + D( I+1 ) = REAL( A( I+1, I+1 ) ) TAU( I ) = TAUI 10 CONTINUE - D( 1 ) = A( 1, 1 ) + D( 1 ) = REAL( A( 1, 1 ) ) ELSE * * Reduce the lower triangle of A @@ -292,7 +289,7 @@ * ALPHA = A( I+1, I ) CALL CLARFG( N-I, ALPHA, A( MIN( I+2, N ), I ), 1, TAUI ) - E( I ) = ALPHA + E( I ) = REAL( ALPHA ) * IF( TAUI.NE.ZERO ) THEN * @@ -321,10 +318,10 @@ A( I+1, I+1 ) = REAL( A( I+1, I+1 ) ) END IF A( I+1, I ) = E( I ) - D( I ) = A( I, I ) + D( I ) = REAL( A( I, I ) ) TAU( I ) = TAUI 20 CONTINUE - D( N ) = A( N, N ) + D( N ) = REAL( A( N, N ) ) END IF * RETURN diff --git a/lapack-netlib/SRC/chetf2.f b/lapack-netlib/SRC/chetf2.f index 15585bd2f..84ba339fb 100644 --- a/lapack-netlib/SRC/chetf2.f +++ b/lapack-netlib/SRC/chetf2.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -186,10 +184,9 @@ * ===================================================================== SUBROUTINE CHETF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetf2_rk.f b/lapack-netlib/SRC/chetf2_rk.f index 80e2f61b7..4bb032382 100644 --- a/lapack-netlib/SRC/chetf2_rk.f +++ b/lapack-netlib/SRC/chetf2_rk.f @@ -208,8 +208,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -241,10 +239,9 @@ * ===================================================================== SUBROUTINE CHETF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -611,8 +608,8 @@ * D = |A12| D = SLAPY2( REAL( A( K-1, K ) ), $ AIMAG( A( K-1, K ) ) ) - D11 = A( K, K ) / D - D22 = A( K-1, K-1 ) / D + D11 = REAL( A( K, K ) / D ) + D22 = REAL( A( K-1, K-1 ) / D ) D12 = A( K-1, K ) / D TT = ONE / ( D11*D22-ONE ) * diff --git a/lapack-netlib/SRC/chetf2_rook.f b/lapack-netlib/SRC/chetf2_rook.f index ccd6a7f84..ee4eaf68f 100644 --- a/lapack-netlib/SRC/chetf2_rook.f +++ b/lapack-netlib/SRC/chetf2_rook.f @@ -129,8 +129,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -194,10 +192,9 @@ * ===================================================================== SUBROUTINE CHETF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO @@ -531,8 +528,8 @@ * D = |A12| D = SLAPY2( REAL( A( K-1, K ) ), $ AIMAG( A( K-1, K ) ) ) - D11 = A( K, K ) / D - D22 = A( K-1, K-1 ) / D + D11 = REAL( A( K, K ) / D ) + D22 = REAL( A( K-1, K-1 ) / D ) D12 = A( K-1, K ) / D TT = ONE / ( D11*D22-ONE ) * diff --git a/lapack-netlib/SRC/chetrd.f b/lapack-netlib/SRC/chetrd.f index 22ea3516e..52b9a895a 100644 --- a/lapack-netlib/SRC/chetrd.f +++ b/lapack-netlib/SRC/chetrd.f @@ -139,8 +139,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -192,10 +190,9 @@ * ===================================================================== SUBROUTINE CHETRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -328,7 +325,7 @@ * DO 10 J = I, I + NB - 1 A( J-1, J ) = E( J-1 ) - D( J ) = A( J, J ) + D( J ) = REAL( A( J, J ) ) 10 CONTINUE 20 CONTINUE * @@ -360,7 +357,7 @@ * DO 30 J = I, I + NB - 1 A( J+1, J ) = E( J ) - D( J ) = A( J, J ) + D( J ) = REAL( A( J, J ) ) 30 CONTINUE 40 CONTINUE * diff --git a/lapack-netlib/SRC/chetrd_2stage.f b/lapack-netlib/SRC/chetrd_2stage.f index 4575a5e90..f5ad35f27 100644 --- a/lapack-netlib/SRC/chetrd_2stage.f +++ b/lapack-netlib/SRC/chetrd_2stage.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -226,10 +224,9 @@ * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER VECT, UPLO diff --git a/lapack-netlib/SRC/chetrd_hb2st.F b/lapack-netlib/SRC/chetrd_hb2st.F index a3d8259d3..e047ab720 100644 --- a/lapack-netlib/SRC/chetrd_hb2st.F +++ b/lapack-netlib/SRC/chetrd_hb2st.F @@ -1,4 +1,4 @@ -*> \brief \b CHBTRD_HB2ST reduces a complex Hermitian band matrix A to real symmetric tridiagonal form T +*> \brief \b CHETRD_HB2ST reduces a complex Hermitian band matrix A to real symmetric tridiagonal form T * * =========== DOCUMENTATION =========== * @@ -6,12 +6,12 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download CHBTRD_HB2ST + dependencies -*> +*> Download CHETRD_HB2ST + dependencies +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -188,8 +188,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -237,10 +235,9 @@ * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER STAGE1, UPLO, VECT @@ -395,7 +392,7 @@ * For that, for real precision just copy the diag and offdiag * to D and E while for the COMPLEX case the bulge chasing is * performed to convert the hermetian tridiagonal to symmetric -* tridiagonal. A simpler coversion formula might be used, but then +* tridiagonal. A simpler conversion formula might be used, but then * updating the Q matrix will be required and based if Q is generated * or not this might complicate the story. * diff --git a/lapack-netlib/SRC/chetrd_he2hb.f b/lapack-netlib/SRC/chetrd_he2hb.f index e85c1fd01..904555c10 100644 --- a/lapack-netlib/SRC/chetrd_he2hb.f +++ b/lapack-netlib/SRC/chetrd_he2hb.f @@ -9,11 +9,11 @@ * *> \htmlonly *> Download CHETRD_HE2HB + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -245,10 +243,9 @@ * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetrf.f b/lapack-netlib/SRC/chetrf.f index aa8f7f23b..484e76256 100644 --- a/lapack-netlib/SRC/chetrf.f +++ b/lapack-netlib/SRC/chetrf.f @@ -130,8 +130,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ * ===================================================================== SUBROUTINE CHETRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetrf_aa.f b/lapack-netlib/SRC/chetrf_aa.f index c6f548d42..54567b8cd 100644 --- a/lapack-netlib/SRC/chetrf_aa.f +++ b/lapack-netlib/SRC/chetrf_aa.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * @@ -462,6 +459,7 @@ END IF * 20 CONTINUE + WORK( 1 ) = LWKOPT RETURN * * End of CHETRF_AA diff --git a/lapack-netlib/SRC/chetrf_aa_2stage.f b/lapack-netlib/SRC/chetrf_aa_2stage.f index d2e0e0023..20a9859e8 100644 --- a/lapack-netlib/SRC/chetrf_aa_2stage.f +++ b/lapack-netlib/SRC/chetrf_aa_2stage.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CHETRF_AA_2STAGE( UPLO, N, A, LDA, TB, LTB, IPIV, $ IPIV2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/chetrf_rk.f b/lapack-netlib/SRC/chetrf_rk.f index 9e42b5719..3f60f4370 100644 --- a/lapack-netlib/SRC/chetrf_rk.f +++ b/lapack-netlib/SRC/chetrf_rk.f @@ -229,8 +229,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -259,10 +257,9 @@ SUBROUTINE CHETRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetrf_rook.f b/lapack-netlib/SRC/chetrf_rook.f index 0217150d1..805e0f4cb 100644 --- a/lapack-netlib/SRC/chetrf_rook.f +++ b/lapack-netlib/SRC/chetrf_rook.f @@ -35,7 +35,7 @@ *> *> \verbatim *> -*> CHETRF_ROOK computes the factorization of a comlex Hermitian matrix A +*> CHETRF_ROOK computes the factorization of a complex Hermitian matrix A *> using the bounded Bunch-Kaufman ("rook") diagonal pivoting method. *> The form of the factorization is *> @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -212,10 +210,9 @@ * ===================================================================== SUBROUTINE CHETRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.6.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetri.f b/lapack-netlib/SRC/chetri.f index a5762b20d..7a38a25b8 100644 --- a/lapack-netlib/SRC/chetri.f +++ b/lapack-netlib/SRC/chetri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHETRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetri2.f b/lapack-netlib/SRC/chetri2.f index 1e18202cf..2865a6440 100644 --- a/lapack-netlib/SRC/chetri2.f +++ b/lapack-netlib/SRC/chetri2.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHETRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetri2x.f b/lapack-netlib/SRC/chetri2x.f index 2ac18b574..0cfaf2861 100644 --- a/lapack-netlib/SRC/chetri2x.f +++ b/lapack-netlib/SRC/chetri2x.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetri_3.f b/lapack-netlib/SRC/chetri_3.f index 0b31f533b..cc2318b22 100644 --- a/lapack-netlib/SRC/chetri_3.f +++ b/lapack-netlib/SRC/chetri_3.f @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -170,10 +168,9 @@ SUBROUTINE CHETRI_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetri_3x.f b/lapack-netlib/SRC/chetri_3x.f index d4cddc1c0..0a6083bef 100644 --- a/lapack-netlib/SRC/chetri_3x.f +++ b/lapack-netlib/SRC/chetri_3x.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -159,10 +157,9 @@ * ===================================================================== SUBROUTINE CHETRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetri_rook.f b/lapack-netlib/SRC/chetri_rook.f index 00d99e2a9..8090a576c 100644 --- a/lapack-netlib/SRC/chetri_rook.f +++ b/lapack-netlib/SRC/chetri_rook.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -128,10 +126,9 @@ * ===================================================================== SUBROUTINE CHETRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetrs.f b/lapack-netlib/SRC/chetrs.f index a7864621a..4dc97cd30 100644 --- a/lapack-netlib/SRC/chetrs.f +++ b/lapack-netlib/SRC/chetrs.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHETRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetrs2.f b/lapack-netlib/SRC/chetrs2.f index 704156879..07b6e025f 100644 --- a/lapack-netlib/SRC/chetrs2.f +++ b/lapack-netlib/SRC/chetrs2.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetrs_3.f b/lapack-netlib/SRC/chetrs_3.f index c7c77b971..f9c25bd56 100644 --- a/lapack-netlib/SRC/chetrs_3.f +++ b/lapack-netlib/SRC/chetrs_3.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -165,10 +163,9 @@ SUBROUTINE CHETRS_3( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chetrs_aa.f b/lapack-netlib/SRC/chetrs_aa.f index 877517031..2546adb2d 100644 --- a/lapack-netlib/SRC/chetrs_aa.f +++ b/lapack-netlib/SRC/chetrs_aa.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexHEcomputational * * ===================================================================== SUBROUTINE CHETRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/chetrs_aa_2stage.f b/lapack-netlib/SRC/chetrs_aa_2stage.f index 979d80a7c..41cd3e289 100644 --- a/lapack-netlib/SRC/chetrs_aa_2stage.f +++ b/lapack-netlib/SRC/chetrs_aa_2stage.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CHETRS_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, $ IPIV, IPIV2, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/chetrs_rook.f b/lapack-netlib/SRC/chetrs_rook.f index 2b0cc6db2..d80da9328 100644 --- a/lapack-netlib/SRC/chetrs_rook.f +++ b/lapack-netlib/SRC/chetrs_rook.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -136,10 +134,9 @@ SUBROUTINE CHETRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chfrk.f b/lapack-netlib/SRC/chfrk.f index 3378e6fb8..7aa2343ed 100644 --- a/lapack-netlib/SRC/chfrk.f +++ b/lapack-netlib/SRC/chfrk.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CHFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, $ C ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/lapack-netlib/SRC/chgeqz.f b/lapack-netlib/SRC/chgeqz.f index bcf5acd0b..8c1d62a87 100644 --- a/lapack-netlib/SRC/chgeqz.f +++ b/lapack-netlib/SRC/chgeqz.f @@ -266,8 +266,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGEcomputational * *> \par Further Details: @@ -284,10 +282,9 @@ $ ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, $ RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER COMPQ, COMPZ, JOB @@ -518,13 +515,17 @@ IF( ILAST.EQ.ILO ) THEN GO TO 60 ELSE - IF( ABS1( H( ILAST, ILAST-1 ) ).LE.ATOL ) THEN + IF( ABS1( H( ILAST, ILAST-1 ) ).LE.MAX( SAFMIN, ULP*( + $ ABS1( H( ILAST, ILAST ) ) + ABS1( H( ILAST-1, ILAST-1 ) + $ ) ) ) ) THEN H( ILAST, ILAST-1 ) = CZERO GO TO 60 END IF END IF * - IF( ABS( T( ILAST, ILAST ) ).LE.BTOL ) THEN + IF( ABS( T( ILAST, ILAST ) ).LE.MAX( SAFMIN, ULP*( + $ ABS( T( ILAST - 1, ILAST ) ) + ABS( T( ILAST-1, ILAST-1 ) + $ ) ) ) ) THEN T( ILAST, ILAST ) = CZERO GO TO 50 END IF @@ -538,7 +539,9 @@ IF( J.EQ.ILO ) THEN ILAZRO = .TRUE. ELSE - IF( ABS1( H( J, J-1 ) ).LE.ATOL ) THEN + IF( ABS1( H( J, J-1 ) ).LE.MAX( SAFMIN, ULP*( + $ ABS1( H( J, J ) ) + ABS1( H( J-1, J-1 ) ) + $ ) ) ) THEN H( J, J-1 ) = CZERO ILAZRO = .TRUE. ELSE @@ -548,7 +551,10 @@ * * Test 2: for T(j,j)=0 * - IF( ABS( T( J, J ) ).LT.BTOL ) THEN + TEMP = ABS ( T( J, J + 1 ) ) + IF ( J .GT. ILO ) + $ TEMP = TEMP + ABS ( T( J - 1, J ) ) + IF( ABS( T( J, J ) ).LT.MAX( SAFMIN,ULP*TEMP ) ) THEN T( J, J ) = CZERO * * Test 1a: Check for 2 consecutive small subdiagonals in A diff --git a/lapack-netlib/SRC/chla_transtype.f b/lapack-netlib/SRC/chla_transtype.f index 0630a759b..16c37afbf 100644 --- a/lapack-netlib/SRC/chla_transtype.f +++ b/lapack-netlib/SRC/chla_transtype.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== CHARACTER*1 FUNCTION CHLA_TRANSTYPE( TRANS ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER TRANS diff --git a/lapack-netlib/SRC/chpcon.f b/lapack-netlib/SRC/chpcon.f index d48a8bd51..f34b57cd9 100644 --- a/lapack-netlib/SRC/chpcon.f +++ b/lapack-netlib/SRC/chpcon.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CHPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chpev.f b/lapack-netlib/SRC/chpev.f index 489709060..1be8c0c6d 100644 --- a/lapack-netlib/SRC/chpev.f +++ b/lapack-netlib/SRC/chpev.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHEReigen * * ===================================================================== SUBROUTINE CHPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, RWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -206,7 +203,7 @@ $ RETURN * IF( N.EQ.1 ) THEN - W( 1 ) = AP( 1 ) + W( 1 ) = REAL( AP( 1 ) ) RWORK( 1 ) = 1 IF( WANTZ ) $ Z( 1, 1 ) = ONE diff --git a/lapack-netlib/SRC/chpevd.f b/lapack-netlib/SRC/chpevd.f index b9c872034..c44462394 100644 --- a/lapack-netlib/SRC/chpevd.f +++ b/lapack-netlib/SRC/chpevd.f @@ -192,18 +192,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHEReigen * * ===================================================================== SUBROUTINE CHPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, $ RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -303,7 +300,7 @@ $ RETURN * IF( N.EQ.1 ) THEN - W( 1 ) = AP( 1 ) + W( 1 ) = REAL( AP( 1 ) ) IF( WANTZ ) $ Z( 1, 1 ) = CONE RETURN diff --git a/lapack-netlib/SRC/chpevx.f b/lapack-netlib/SRC/chpevx.f index 6a111f00f..a5af973a7 100644 --- a/lapack-netlib/SRC/chpevx.f +++ b/lapack-netlib/SRC/chpevx.f @@ -231,8 +231,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHEReigen * * ===================================================================== @@ -240,10 +238,9 @@ $ ABSTOL, M, W, Z, LDZ, WORK, RWORK, IWORK, $ IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO @@ -335,11 +332,11 @@ IF( N.EQ.1 ) THEN IF( ALLEIG .OR. INDEIG ) THEN M = 1 - W( 1 ) = AP( 1 ) + W( 1 ) = REAL( AP( 1 ) ) ELSE IF( VL.LT.REAL( AP( 1 ) ) .AND. VU.GE.REAL( AP( 1 ) ) ) THEN M = 1 - W( 1 ) = AP( 1 ) + W( 1 ) = REAL( AP( 1 ) ) END IF END IF IF( WANTZ ) diff --git a/lapack-netlib/SRC/chpgst.f b/lapack-netlib/SRC/chpgst.f index 3813914dd..17f10b034 100644 --- a/lapack-netlib/SRC/chpgst.f +++ b/lapack-netlib/SRC/chpgst.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CHPGST( ITYPE, UPLO, N, AP, BP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -185,7 +182,7 @@ * Compute the j-th column of the upper triangle of A * AP( JJ ) = REAL( AP( JJ ) ) - BJJ = BP( JJ ) + BJJ = REAL( BP( JJ ) ) CALL CTPSV( UPLO, 'Conjugate transpose', 'Non-unit', J, $ BP, AP( J1 ), 1 ) CALL CHPMV( UPLO, J-1, -CONE, AP, BP( J1 ), 1, CONE, @@ -206,8 +203,8 @@ * * Update the lower triangle of A(k:n,k:n) * - AKK = AP( KK ) - BKK = BP( KK ) + AKK = REAL( AP( KK ) ) + BKK = REAL( BP( KK ) ) AKK = AKK / BKK**2 AP( KK ) = AKK IF( K.LT.N ) THEN @@ -237,8 +234,8 @@ * * Update the upper triangle of A(1:k,1:k) * - AKK = AP( KK ) - BKK = BP( KK ) + AKK = REAL( AP( KK ) ) + BKK = REAL( BP( KK ) ) CALL CTPMV( UPLO, 'No transpose', 'Non-unit', K-1, BP, $ AP( K1 ), 1 ) CT = HALF*AKK @@ -261,8 +258,8 @@ * * Compute the j-th column of the lower triangle of A * - AJJ = AP( JJ ) - BJJ = BP( JJ ) + AJJ = REAL( AP( JJ ) ) + BJJ = REAL( BP( JJ ) ) AP( JJ ) = AJJ*BJJ + CDOTC( N-J, AP( JJ+1 ), 1, $ BP( JJ+1 ), 1 ) CALL CSSCAL( N-J, BJJ, AP( JJ+1 ), 1 ) diff --git a/lapack-netlib/SRC/chpgv.f b/lapack-netlib/SRC/chpgv.f index 999031d13..417f10121 100644 --- a/lapack-netlib/SRC/chpgv.f +++ b/lapack-netlib/SRC/chpgv.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHEReigen * * ===================================================================== SUBROUTINE CHPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/chpgvd.f b/lapack-netlib/SRC/chpgvd.f index 6c1ef3227..754be31ed 100644 --- a/lapack-netlib/SRC/chpgvd.f +++ b/lapack-netlib/SRC/chpgvd.f @@ -218,8 +218,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHEReigen * *> \par Contributors: @@ -231,10 +229,9 @@ SUBROUTINE CHPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/chpgvx.f b/lapack-netlib/SRC/chpgvx.f index 06a08798a..711daf55f 100644 --- a/lapack-netlib/SRC/chpgvx.f +++ b/lapack-netlib/SRC/chpgvx.f @@ -263,8 +263,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHEReigen * *> \par Contributors: @@ -277,10 +275,9 @@ $ IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/chprfs.f b/lapack-netlib/SRC/chprfs.f index 9fe0532cd..65e22c5b0 100644 --- a/lapack-netlib/SRC/chprfs.f +++ b/lapack-netlib/SRC/chprfs.f @@ -172,18 +172,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CHPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chpsv.f b/lapack-netlib/SRC/chpsv.f index af62b5a1e..d41c96612 100644 --- a/lapack-netlib/SRC/chpsv.f +++ b/lapack-netlib/SRC/chpsv.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE CHPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chpsvx.f b/lapack-netlib/SRC/chpsvx.f index 5783a189f..fa9f714f5 100644 --- a/lapack-netlib/SRC/chpsvx.f +++ b/lapack-netlib/SRC/chpsvx.f @@ -249,8 +249,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexOTHERsolve * *> \par Further Details: @@ -277,10 +275,9 @@ SUBROUTINE CHPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/chptrd.f b/lapack-netlib/SRC/chptrd.f index e5caab7b0..5618e014f 100644 --- a/lapack-netlib/SRC/chptrd.f +++ b/lapack-netlib/SRC/chptrd.f @@ -112,8 +112,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -151,10 +149,9 @@ * ===================================================================== SUBROUTINE CHPTRD( UPLO, N, AP, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -224,7 +221,7 @@ * ALPHA = AP( I1+I-1 ) CALL CLARFG( I, ALPHA, AP( I1 ), 1, TAUI ) - E( I ) = ALPHA + E( I ) = REAL( ALPHA ) * IF( TAUI.NE.ZERO ) THEN * @@ -249,11 +246,11 @@ * END IF AP( I1+I-1 ) = E( I ) - D( I+1 ) = AP( I1+I ) + D( I+1 ) = REAL( AP( I1+I ) ) TAU( I ) = TAUI I1 = I1 - I 10 CONTINUE - D( 1 ) = AP( 1 ) + D( 1 ) = REAL( AP( 1 ) ) ELSE * * Reduce the lower triangle of A. II is the index in AP of @@ -269,7 +266,7 @@ * ALPHA = AP( II+1 ) CALL CLARFG( N-I, ALPHA, AP( II+2 ), 1, TAUI ) - E( I ) = ALPHA + E( I ) = REAL( ALPHA ) * IF( TAUI.NE.ZERO ) THEN * @@ -296,11 +293,11 @@ * END IF AP( II+1 ) = E( I ) - D( I ) = AP( II ) + D( I ) = REAL( AP( II ) ) TAU( I ) = TAUI II = I1I1 20 CONTINUE - D( N ) = AP( II ) + D( N ) = REAL( AP( II ) ) END IF * RETURN diff --git a/lapack-netlib/SRC/chptrf.f b/lapack-netlib/SRC/chptrf.f index 97c4e96ed..d9bfffb06 100644 --- a/lapack-netlib/SRC/chptrf.f +++ b/lapack-netlib/SRC/chptrf.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -159,10 +157,9 @@ * ===================================================================== SUBROUTINE CHPTRF( UPLO, N, AP, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chptri.f b/lapack-netlib/SRC/chptri.f index 878c88157..8147a6d18 100644 --- a/lapack-netlib/SRC/chptri.f +++ b/lapack-netlib/SRC/chptri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CHPTRI( UPLO, N, AP, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chptrs.f b/lapack-netlib/SRC/chptrs.f index bfb8777e5..df3832d4e 100644 --- a/lapack-netlib/SRC/chptrs.f +++ b/lapack-netlib/SRC/chptrs.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CHPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/chsein.f b/lapack-netlib/SRC/chsein.f index 5c15b0b68..c125211ab 100644 --- a/lapack-netlib/SRC/chsein.f +++ b/lapack-netlib/SRC/chsein.f @@ -226,8 +226,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -245,10 +243,9 @@ $ LDVL, VR, LDVR, MM, M, WORK, RWORK, IFAILL, $ IFAILR, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EIGSRC, INITV, SIDE diff --git a/lapack-netlib/SRC/chseqr.f b/lapack-netlib/SRC/chseqr.f index 32b6fa87b..007f72f59 100644 --- a/lapack-netlib/SRC/chseqr.f +++ b/lapack-netlib/SRC/chseqr.f @@ -216,8 +216,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -299,10 +297,9 @@ SUBROUTINE CHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, Z, LDZ, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/cla_gbamv.f b/lapack-netlib/SRC/cla_gbamv.f index e043d7444..e98334fa4 100644 --- a/lapack-netlib/SRC/cla_gbamv.f +++ b/lapack-netlib/SRC/cla_gbamv.f @@ -178,18 +178,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== SUBROUTINE CLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/lapack-netlib/SRC/cla_gbrcond_c.f b/lapack-netlib/SRC/cla_gbrcond_c.f index c382ac210..ecea389a6 100644 --- a/lapack-netlib/SRC/cla_gbrcond_c.f +++ b/lapack-netlib/SRC/cla_gbrcond_c.f @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== @@ -161,10 +159,9 @@ $ LDAFB, IPIV, C, CAPPLY, INFO, WORK, $ RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -338,5 +335,7 @@ $ CLA_GBRCOND_C = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_GBRCOND_C * END diff --git a/lapack-netlib/SRC/cla_gbrcond_x.f b/lapack-netlib/SRC/cla_gbrcond_x.f index 46991ea14..ffe9edbb3 100644 --- a/lapack-netlib/SRC/cla_gbrcond_x.f +++ b/lapack-netlib/SRC/cla_gbrcond_x.f @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== REAL FUNCTION CLA_GBRCOND_X( TRANS, N, KL, KU, AB, LDAB, AFB, $ LDAFB, IPIV, X, INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -315,5 +312,7 @@ $ CLA_GBRCOND_X = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_GBRCOND_X * END diff --git a/lapack-netlib/SRC/cla_gbrfsx_extended.f b/lapack-netlib/SRC/cla_gbrfsx_extended.f index 9f066137b..6d43c8325 100644 --- a/lapack-netlib/SRC/cla_gbrfsx_extended.f +++ b/lapack-netlib/SRC/cla_gbrfsx_extended.f @@ -54,7 +54,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -368,7 +368,7 @@ *> DZ_UB is REAL *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -397,8 +397,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexGBcomputational * * ===================================================================== @@ -410,10 +408,9 @@ $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, @@ -710,4 +707,7 @@ END DO * RETURN +* +* End of CLA_GBRFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/cla_gbrpvgrw.f b/lapack-netlib/SRC/cla_gbrpvgrw.f index f60b714c0..310f39949 100644 --- a/lapack-netlib/SRC/cla_gbrpvgrw.f +++ b/lapack-netlib/SRC/cla_gbrpvgrw.f @@ -109,18 +109,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBcomputational * * ===================================================================== REAL FUNCTION CLA_GBRPVGRW( N, KL, KU, NCOLS, AB, LDAB, AFB, $ LDAFB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, KL, KU, NCOLS, LDAB, LDAFB @@ -164,4 +161,7 @@ END IF END DO CLA_GBRPVGRW = RPVGRW +* +* End of CLA_GBRPVGRW +* END diff --git a/lapack-netlib/SRC/cla_geamv.f b/lapack-netlib/SRC/cla_geamv.f index cbbcca893..62d861791 100644 --- a/lapack-netlib/SRC/cla_geamv.f +++ b/lapack-netlib/SRC/cla_geamv.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, $ Y, INCY ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/lapack-netlib/SRC/cla_gercond_c.f b/lapack-netlib/SRC/cla_gercond_c.f index 1a2e8230e..024dcb1d9 100644 --- a/lapack-netlib/SRC/cla_gercond_c.f +++ b/lapack-netlib/SRC/cla_gercond_c.f @@ -134,18 +134,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== REAL FUNCTION CLA_GERCOND_C( TRANS, N, A, LDA, AF, LDAF, IPIV, C, $ CAPPLY, INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -313,5 +310,7 @@ $ CLA_GERCOND_C = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_GERCOND_C * END diff --git a/lapack-netlib/SRC/cla_gercond_x.f b/lapack-netlib/SRC/cla_gercond_x.f index 46e9b039f..80b0eab01 100644 --- a/lapack-netlib/SRC/cla_gercond_x.f +++ b/lapack-netlib/SRC/cla_gercond_x.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== REAL FUNCTION CLA_GERCOND_X( TRANS, N, A, LDA, AF, LDAF, IPIV, X, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -289,5 +286,7 @@ $ CLA_GERCOND_X = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_GERCOND_X * END diff --git a/lapack-netlib/SRC/cla_gerfsx_extended.f b/lapack-netlib/SRC/cla_gerfsx_extended.f index d231733e6..4b1031101 100644 --- a/lapack-netlib/SRC/cla_gerfsx_extended.f +++ b/lapack-netlib/SRC/cla_gerfsx_extended.f @@ -54,7 +54,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERRS_N *> and ERRS_C for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERRS_N and ERRS_C. *> \endverbatim * @@ -356,7 +356,7 @@ *> DZ_UB is REAL *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -385,8 +385,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== @@ -397,10 +395,9 @@ $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -695,4 +692,7 @@ END DO * RETURN +* +* End of CLA_GERFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/cla_gerpvgrw.f b/lapack-netlib/SRC/cla_gerpvgrw.f index f6d27c8c0..f7e514510 100644 --- a/lapack-netlib/SRC/cla_gerpvgrw.f +++ b/lapack-netlib/SRC/cla_gerpvgrw.f @@ -91,17 +91,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== REAL FUNCTION CLA_GERPVGRW( N, NCOLS, A, LDA, AF, LDAF ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, NCOLS, LDA, LDAF @@ -144,4 +141,7 @@ END IF END DO CLA_GERPVGRW = RPVGRW +* +* End of CLA_GERPVGRW +* END diff --git a/lapack-netlib/SRC/cla_heamv.f b/lapack-netlib/SRC/cla_heamv.f index 38a949292..6230de4af 100644 --- a/lapack-netlib/SRC/cla_heamv.f +++ b/lapack-netlib/SRC/cla_heamv.f @@ -154,8 +154,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexHEcomputational * *> \par Further Details: @@ -178,10 +176,9 @@ SUBROUTINE CLA_HEAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/lapack-netlib/SRC/cla_hercond_c.f b/lapack-netlib/SRC/cla_hercond_c.f index 5f26822af..64bb58097 100644 --- a/lapack-netlib/SRC/cla_hercond_c.f +++ b/lapack-netlib/SRC/cla_hercond_c.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== REAL FUNCTION CLA_HERCOND_C( UPLO, N, A, LDA, AF, LDAF, IPIV, C, $ CAPPLY, INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -323,5 +320,7 @@ $ CLA_HERCOND_C = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_HERCOND_C * END diff --git a/lapack-netlib/SRC/cla_hercond_x.f b/lapack-netlib/SRC/cla_hercond_x.f index 91c80a668..e79d4d449 100644 --- a/lapack-netlib/SRC/cla_hercond_x.f +++ b/lapack-netlib/SRC/cla_hercond_x.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== REAL FUNCTION CLA_HERCOND_X( UPLO, N, A, LDA, AF, LDAF, IPIV, X, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -293,5 +290,7 @@ $ CLA_HERCOND_X = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_HERCOND_X * END diff --git a/lapack-netlib/SRC/cla_herfsx_extended.f b/lapack-netlib/SRC/cla_herfsx_extended.f index d1aa8462c..6d007ef58 100644 --- a/lapack-netlib/SRC/cla_herfsx_extended.f +++ b/lapack-netlib/SRC/cla_herfsx_extended.f @@ -55,7 +55,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -353,7 +353,7 @@ *> DZ_UB is REAL *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -382,8 +382,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexHEcomputational * * ===================================================================== @@ -395,10 +393,9 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -713,4 +710,7 @@ END DO * RETURN +* +* End of CLA_HERFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/cla_herpvgrw.f b/lapack-netlib/SRC/cla_herpvgrw.f index 0fa26d9e3..21b01ac77 100644 --- a/lapack-netlib/SRC/cla_herpvgrw.f +++ b/lapack-netlib/SRC/cla_herpvgrw.f @@ -102,7 +102,7 @@ *> as determined by CHETRF. *> \endverbatim *> -*> \param[in] WORK +*> \param[out] WORK *> \verbatim *> WORK is REAL array, dimension (2*N) *> \endverbatim @@ -115,18 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexHEcomputational * * ===================================================================== REAL FUNCTION CLA_HERPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, $ WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -327,4 +324,7 @@ END IF CLA_HERPVGRW = RPVGRW +* +* End of CLA_HERPVGRW +* END diff --git a/lapack-netlib/SRC/cla_lin_berr.f b/lapack-netlib/SRC/cla_lin_berr.f index c892d8b0e..d589b3dcc 100644 --- a/lapack-netlib/SRC/cla_lin_berr.f +++ b/lapack-netlib/SRC/cla_lin_berr.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER N, NZ, NRHS @@ -157,4 +154,7 @@ * END DO END DO +* +* End of CLA_LIN_BERR +* END diff --git a/lapack-netlib/SRC/cla_porcond_c.f b/lapack-netlib/SRC/cla_porcond_c.f index c2356590f..d322979e5 100644 --- a/lapack-netlib/SRC/cla_porcond_c.f +++ b/lapack-netlib/SRC/cla_porcond_c.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== REAL FUNCTION CLA_PORCOND_C( UPLO, N, A, LDA, AF, LDAF, C, CAPPLY, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -315,5 +312,7 @@ $ CLA_PORCOND_C = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_PORCOND_C * END diff --git a/lapack-netlib/SRC/cla_porcond_x.f b/lapack-netlib/SRC/cla_porcond_x.f index a5ff3aa61..62d0584ef 100644 --- a/lapack-netlib/SRC/cla_porcond_x.f +++ b/lapack-netlib/SRC/cla_porcond_x.f @@ -115,18 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== REAL FUNCTION CLA_PORCOND_X( UPLO, N, A, LDA, AF, LDAF, X, INFO, $ WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -284,5 +281,7 @@ $ CLA_PORCOND_X = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_PORCOND_X * END diff --git a/lapack-netlib/SRC/cla_porfsx_extended.f b/lapack-netlib/SRC/cla_porfsx_extended.f index 545bdc445..9ced9b1b9 100644 --- a/lapack-netlib/SRC/cla_porfsx_extended.f +++ b/lapack-netlib/SRC/cla_porfsx_extended.f @@ -54,7 +54,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -345,7 +345,7 @@ *> DZ_UB is REAL *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -374,8 +374,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexPOcomputational * * ===================================================================== @@ -387,10 +385,9 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -684,4 +681,7 @@ END DO * RETURN +* +* End of CLA_PORFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/cla_porpvgrw.f b/lapack-netlib/SRC/cla_porpvgrw.f index f10299c5a..1eb706d1a 100644 --- a/lapack-netlib/SRC/cla_porpvgrw.f +++ b/lapack-netlib/SRC/cla_porpvgrw.f @@ -98,17 +98,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== REAL FUNCTION CLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, LDAF, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -213,4 +210,7 @@ END IF CLA_PORPVGRW = RPVGRW +* +* End of CLA_PORPVGRW +* END diff --git a/lapack-netlib/SRC/cla_syamv.f b/lapack-netlib/SRC/cla_syamv.f index 695b5e478..650749583 100644 --- a/lapack-netlib/SRC/cla_syamv.f +++ b/lapack-netlib/SRC/cla_syamv.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexSYcomputational * *> \par Further Details: @@ -179,10 +177,9 @@ SUBROUTINE CLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/lapack-netlib/SRC/cla_syrcond_c.f b/lapack-netlib/SRC/cla_syrcond_c.f index e59e83aa6..74c02abd9 100644 --- a/lapack-netlib/SRC/cla_syrcond_c.f +++ b/lapack-netlib/SRC/cla_syrcond_c.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== REAL FUNCTION CLA_SYRCOND_C( UPLO, N, A, LDA, AF, LDAF, IPIV, C, $ CAPPLY, INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -324,5 +321,7 @@ $ CLA_SYRCOND_C = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_SYRCOND_C * END diff --git a/lapack-netlib/SRC/cla_syrcond_x.f b/lapack-netlib/SRC/cla_syrcond_x.f index 3edf58f83..d898c16ec 100644 --- a/lapack-netlib/SRC/cla_syrcond_x.f +++ b/lapack-netlib/SRC/cla_syrcond_x.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== REAL FUNCTION CLA_SYRCOND_X( UPLO, N, A, LDA, AF, LDAF, IPIV, X, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -294,5 +291,7 @@ $ CLA_SYRCOND_X = 1.0E+0 / AINVNM * RETURN +* +* End of CLA_SYRCOND_X * END diff --git a/lapack-netlib/SRC/cla_syrfsx_extended.f b/lapack-netlib/SRC/cla_syrfsx_extended.f index 92243abcb..4fe538a98 100644 --- a/lapack-netlib/SRC/cla_syrfsx_extended.f +++ b/lapack-netlib/SRC/cla_syrfsx_extended.f @@ -55,7 +55,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -353,7 +353,7 @@ *> DZ_UB is REAL *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -382,8 +382,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== @@ -395,10 +393,9 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -713,4 +710,7 @@ END DO * RETURN +* +* End of CLA_SYRFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/cla_syrpvgrw.f b/lapack-netlib/SRC/cla_syrpvgrw.f index 15e55ea7d..1f53e0f9e 100644 --- a/lapack-netlib/SRC/cla_syrpvgrw.f +++ b/lapack-netlib/SRC/cla_syrpvgrw.f @@ -115,18 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== REAL FUNCTION CLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, $ WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -328,4 +325,7 @@ END IF CLA_SYRPVGRW = RPVGRW +* +* End of CLA_SYRPVGRW +* END diff --git a/lapack-netlib/SRC/cla_wwaddw.f b/lapack-netlib/SRC/cla_wwaddw.f index 08e45ac79..aa78f60f4 100644 --- a/lapack-netlib/SRC/cla_wwaddw.f +++ b/lapack-netlib/SRC/cla_wwaddw.f @@ -74,17 +74,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CLA_WWADDW( N, X, Y, W ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N @@ -108,4 +105,7 @@ X(I) = S 10 CONTINUE RETURN +* +* End of CLA_WWADDW +* END diff --git a/lapack-netlib/SRC/clabrd.f b/lapack-netlib/SRC/clabrd.f index 7830222b8..765d71e50 100644 --- a/lapack-netlib/SRC/clabrd.f +++ b/lapack-netlib/SRC/clabrd.f @@ -157,8 +157,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -212,10 +210,9 @@ SUBROUTINE CLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, $ LDY ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, M, N, NB @@ -270,7 +267,7 @@ ALPHA = A( I, I ) CALL CLARFG( M-I+1, ALPHA, A( MIN( I+1, M ), I ), 1, $ TAUQ( I ) ) - D( I ) = ALPHA + D( I ) = REAL( ALPHA ) IF( I.LT.N ) THEN A( I, I ) = ONE * @@ -310,7 +307,7 @@ ALPHA = A( I, I+1 ) CALL CLARFG( N-I, ALPHA, A( I, MIN( I+2, N ) ), $ LDA, TAUP( I ) ) - E( I ) = ALPHA + E( I ) = REAL( ALPHA ) A( I, I+1 ) = ONE * * Compute X(i+1:m,i) @@ -354,7 +351,7 @@ ALPHA = A( I, I ) CALL CLARFG( N-I+1, ALPHA, A( I, MIN( I+1, N ) ), LDA, $ TAUP( I ) ) - D( I ) = ALPHA + D( I ) = REAL( ALPHA ) IF( I.LT.M ) THEN A( I, I ) = ONE * @@ -388,7 +385,7 @@ ALPHA = A( I+1, I ) CALL CLARFG( M-I, ALPHA, A( MIN( I+2, M ), I ), 1, $ TAUQ( I ) ) - E( I ) = ALPHA + E( I ) = REAL( ALPHA ) A( I+1, I ) = ONE * * Compute Y(i+1:n,i) diff --git a/lapack-netlib/SRC/clacgv.f b/lapack-netlib/SRC/clacgv.f index 81ecadcde..d85df7435 100644 --- a/lapack-netlib/SRC/clacgv.f +++ b/lapack-netlib/SRC/clacgv.f @@ -67,17 +67,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLACGV( N, X, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/clacn2.f b/lapack-netlib/SRC/clacn2.f index 132712deb..cbbe9242b 100644 --- a/lapack-netlib/SRC/clacn2.f +++ b/lapack-netlib/SRC/clacn2.f @@ -96,8 +96,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -133,10 +131,9 @@ * ===================================================================== SUBROUTINE CLACN2( N, V, X, EST, KASE, ISAVE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/lapack-netlib/SRC/clacon.f b/lapack-netlib/SRC/clacon.f index 2d67b9e69..cb5e23db4 100644 --- a/lapack-netlib/SRC/clacon.f +++ b/lapack-netlib/SRC/clacon.f @@ -89,8 +89,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -114,10 +112,9 @@ * ===================================================================== SUBROUTINE CLACON( N, V, X, EST, KASE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/lapack-netlib/SRC/clacp2.f b/lapack-netlib/SRC/clacp2.f index 1d04962d3..3c0f73b7b 100644 --- a/lapack-netlib/SRC/clacp2.f +++ b/lapack-netlib/SRC/clacp2.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLACP2( UPLO, M, N, A, LDA, B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clacpy.f b/lapack-netlib/SRC/clacpy.f index 26d5f37da..ab4404a29 100644 --- a/lapack-netlib/SRC/clacpy.f +++ b/lapack-netlib/SRC/clacpy.f @@ -96,17 +96,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLACPY( UPLO, M, N, A, LDA, B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clacrm.f b/lapack-netlib/SRC/clacrm.f index 47c837485..84620b5e1 100644 --- a/lapack-netlib/SRC/clacrm.f +++ b/lapack-netlib/SRC/clacrm.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLACRM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, M, N diff --git a/lapack-netlib/SRC/clacrt.f b/lapack-netlib/SRC/clacrt.f index 1f7181791..d297f78df 100644 --- a/lapack-netlib/SRC/clacrt.f +++ b/lapack-netlib/SRC/clacrt.f @@ -98,17 +98,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLACRT( N, CX, INCX, CY, INCY, C, S ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/lapack-netlib/SRC/cladiv.f b/lapack-netlib/SRC/cladiv.f index 189ef2114..1dca85a35 100644 --- a/lapack-netlib/SRC/cladiv.f +++ b/lapack-netlib/SRC/cladiv.f @@ -57,17 +57,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== COMPLEX FUNCTION CLADIV( X, Y ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. COMPLEX X, Y diff --git a/lapack-netlib/SRC/claed0.f b/lapack-netlib/SRC/claed0.f index 9907b1016..40a301fa7 100644 --- a/lapack-netlib/SRC/claed0.f +++ b/lapack-netlib/SRC/claed0.f @@ -1,4 +1,4 @@ -*> \brief \b CLAED0 used by sstedc. Computes all eigenvalues and corresponding eigenvectors of an unreduced symmetric tridiagonal matrix using the divide and conquer method. +*> \brief \b CLAED0 used by CSTEDC. Computes all eigenvalues and corresponding eigenvectors of an unreduced symmetric tridiagonal matrix using the divide and conquer method. * * =========== DOCUMENTATION =========== * @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CLAED0( QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, RWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDQ, LDQS, N, QSIZ diff --git a/lapack-netlib/SRC/claed7.f b/lapack-netlib/SRC/claed7.f index 45dd54cad..9d2f97141 100644 --- a/lapack-netlib/SRC/claed7.f +++ b/lapack-netlib/SRC/claed7.f @@ -1,4 +1,4 @@ -*> \brief \b CLAED7 used by sstedc. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is dense. +*> \brief \b CLAED7 used by CSTEDC. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -239,8 +239,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== @@ -249,10 +247,9 @@ $ GIVPTR, GIVCOL, GIVNUM, WORK, RWORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, CUTPNT, INFO, LDQ, N, QSIZ, diff --git a/lapack-netlib/SRC/claed8.f b/lapack-netlib/SRC/claed8.f index d66bf801a..c15a0365f 100644 --- a/lapack-netlib/SRC/claed8.f +++ b/lapack-netlib/SRC/claed8.f @@ -1,4 +1,4 @@ -*> \brief \b CLAED8 used by sstedc. Merges eigenvalues and deflates secular equation. Used when the original matrix is dense. +*> \brief \b CLAED8 used by CSTEDC. Merges eigenvalues and deflates secular equation. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -219,8 +219,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== @@ -228,10 +226,9 @@ $ Q2, LDQ2, W, INDXP, INDX, INDXQ, PERM, GIVPTR, $ GIVCOL, GIVNUM, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER CUTPNT, GIVPTR, INFO, K, LDQ, LDQ2, N, QSIZ diff --git a/lapack-netlib/SRC/claein.f b/lapack-netlib/SRC/claein.f index c4442d792..9df436e44 100644 --- a/lapack-netlib/SRC/claein.f +++ b/lapack-netlib/SRC/claein.f @@ -141,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAEIN( RIGHTV, NOINIT, N, H, LDH, W, V, B, LDB, RWORK, $ EPS3, SMLNUM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL NOINIT, RIGHTV diff --git a/lapack-netlib/SRC/claesy.f b/lapack-netlib/SRC/claesy.f index c6a7b8431..045c9a5d9 100644 --- a/lapack-netlib/SRC/claesy.f +++ b/lapack-netlib/SRC/claesy.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYauxiliary * * ===================================================================== SUBROUTINE CLAESY( A, B, C, RT1, RT2, EVSCAL, CS1, SN1 ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. COMPLEX A, B, C, CS1, EVSCAL, RT1, RT2, SN1 diff --git a/lapack-netlib/SRC/claev2.f b/lapack-netlib/SRC/claev2.f index b80397fa7..e16b19927 100644 --- a/lapack-netlib/SRC/claev2.f +++ b/lapack-netlib/SRC/claev2.f @@ -95,8 +95,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -121,10 +119,9 @@ * ===================================================================== SUBROUTINE CLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL CS1, RT1, RT2 diff --git a/lapack-netlib/SRC/clag2z.f b/lapack-netlib/SRC/clag2z.f index a1777f0b5..467c08009 100644 --- a/lapack-netlib/SRC/clag2z.f +++ b/lapack-netlib/SRC/clag2z.f @@ -96,17 +96,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE CLAG2Z( M, N, SA, LDSA, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDSA, M, N diff --git a/lapack-netlib/SRC/clags2.f b/lapack-netlib/SRC/clags2.f index 7f507708f..0cd06ba63 100644 --- a/lapack-netlib/SRC/clags2.f +++ b/lapack-netlib/SRC/clags2.f @@ -150,18 +150,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, $ SNV, CSQ, SNQ ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL UPPER diff --git a/lapack-netlib/SRC/clagtm.f b/lapack-netlib/SRC/clagtm.f index dcf47a1e3..d34ca4a1a 100644 --- a/lapack-netlib/SRC/clagtm.f +++ b/lapack-netlib/SRC/clagtm.f @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, $ B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/clahef.f b/lapack-netlib/SRC/clahef.f index f51de1867..60ec116d6 100644 --- a/lapack-netlib/SRC/clahef.f +++ b/lapack-netlib/SRC/clahef.f @@ -160,8 +160,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -177,10 +175,9 @@ * ===================================================================== SUBROUTINE CLAHEF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clahef_aa.f b/lapack-netlib/SRC/clahef_aa.f index 934aa92f9..ae2fc96ce 100644 --- a/lapack-netlib/SRC/clahef_aa.f +++ b/lapack-netlib/SRC/clahef_aa.f @@ -136,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CLAHEF_AA( UPLO, J1, M, NB, A, LDA, IPIV, $ H, LDH, WORK ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/clahef_rk.f b/lapack-netlib/SRC/clahef_rk.f index cc4603e9b..ffdde7eeb 100644 --- a/lapack-netlib/SRC/clahef_rk.f +++ b/lapack-netlib/SRC/clahef_rk.f @@ -239,8 +239,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -262,10 +260,9 @@ SUBROUTINE CLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clahef_rook.f b/lapack-netlib/SRC/clahef_rook.f index 698df999f..130dfcb00 100644 --- a/lapack-netlib/SRC/clahef_rook.f +++ b/lapack-netlib/SRC/clahef_rook.f @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complexHEcomputational * *> \par Contributors: @@ -184,10 +182,9 @@ SUBROUTINE CLAHEF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clahqr.f b/lapack-netlib/SRC/clahqr.f index ef50b5a56..dbd848e2f 100644 --- a/lapack-netlib/SRC/clahqr.f +++ b/lapack-netlib/SRC/clahqr.f @@ -171,8 +171,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -194,11 +192,11 @@ * ===================================================================== SUBROUTINE CLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, INFO ) + IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N @@ -218,6 +216,8 @@ PARAMETER ( RZERO = 0.0e0, RONE = 1.0e0, HALF = 0.5e0 ) REAL DAT1 PARAMETER ( DAT1 = 3.0e0 / 4.0e0 ) + INTEGER KEXSH + PARAMETER ( KEXSH = 10 ) * .. * .. Local Scalars .. COMPLEX CDUM, H11, H11S, H22, SC, SUM, T, T1, TEMP, U, @@ -225,7 +225,7 @@ REAL AA, AB, BA, BB, H10, H21, RTEMP, S, SAFMAX, $ SAFMIN, SMLNUM, SX, T2, TST, ULP INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M, - $ NH, NZ + $ NH, NZ, KDEFL * .. * .. Local Arrays .. COMPLEX V( 2 ) @@ -315,6 +315,10 @@ * ITMAX = 30 * MAX( 10, NH ) * +* KDEFL counts the number of iterations since a deflation +* + KDEFL = 0 +* * The main loop begins here. I is the loop index and decreases from * IHI to ILO in steps of 1. Each iteration of the loop works * with the active submatrix in rows and columns L to I. @@ -374,6 +378,7 @@ * IF( L.GE.I ) $ GO TO 140 + KDEFL = KDEFL + 1 * * Now the active submatrix is in rows and columns L to I. If * eigenvalues only are being computed, only the active submatrix @@ -384,18 +389,18 @@ I2 = I END IF * - IF( ITS.EQ.10 ) THEN + IF( MOD(KDEFL,2*KEXSH).EQ.0 ) THEN * * Exceptional shift. * - S = DAT1*ABS( REAL( H( L+1, L ) ) ) - T = S + H( L, L ) - ELSE IF( ITS.EQ.20 ) THEN + S = DAT1*ABS( REAL( H( I, I-1 ) ) ) + T = S + H( I, I ) + ELSE IF( MOD(KDEFL,KEXSH).EQ.0 ) THEN * * Exceptional shift. * - S = DAT1*ABS( REAL( H( I, I-1 ) ) ) - T = S + H( I, I ) + S = DAT1*ABS( REAL( H( L+1, L ) ) ) + T = S + H( L, L ) ELSE * * Wilkinson's shift. @@ -556,6 +561,8 @@ * H(I,I-1) is negligible: one eigenvalue has converged. * W( I ) = H( I, I ) +* reset deflation counter + KDEFL = 0 * * return to start of the main loop with new value of I. * diff --git a/lapack-netlib/SRC/clahr2.f b/lapack-netlib/SRC/clahr2.f index 50547f2cd..ce15093da 100644 --- a/lapack-netlib/SRC/clahr2.f +++ b/lapack-netlib/SRC/clahr2.f @@ -123,8 +123,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -164,11 +162,11 @@ *> modified element of the upper Hessenberg matrix H, and vi denotes an *> element of the vector defining H(i). *> -*> This subroutine is a slight modification of LAPACK-3.0's DLAHRD +*> This subroutine is a slight modification of LAPACK-3.0's CLAHRD *> incorporating improvements proposed by Quintana-Orti and Van de *> Gejin. Note that the entries of A(1:K,2:NB) differ from those -*> returned by the original LAPACK-3.0's DLAHRD routine. (This -*> subroutine is not backward compatible with LAPACK-3.0's DLAHRD.) +*> returned by the original LAPACK-3.0's CLAHRD routine. (This +*> subroutine is not backward compatible with LAPACK-3.0's CLAHRD.) *> \endverbatim * *> \par References: @@ -181,10 +179,9 @@ * ===================================================================== SUBROUTINE CLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/lapack-netlib/SRC/claic1.f b/lapack-netlib/SRC/claic1.f index 9aaecf48e..773c718d1 100644 --- a/lapack-netlib/SRC/claic1.f +++ b/lapack-netlib/SRC/claic1.f @@ -128,17 +128,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER J, JOB @@ -194,7 +191,7 @@ ELSE S = ALPHA / S1 C = GAMMA / S1 - TMP = SQRT( S*CONJG( S )+C*CONJG( C ) ) + TMP = REAL( SQRT( S*CONJG( S )+C*CONJG( C ) ) ) S = S / TMP C = C / TMP SESTPR = S1*TMP @@ -248,14 +245,15 @@ B = ( ONE-ZETA1*ZETA1-ZETA2*ZETA2 )*HALF C = ZETA1*ZETA1 IF( B.GT.ZERO ) THEN - T = C / ( B+SQRT( B*B+C ) ) + T = REAL( C / ( B+SQRT( B*B+C ) ) ) ELSE - T = SQRT( B*B+C ) - B + T = REAL( SQRT( B*B+C ) - B ) END IF * SINE = -( ALPHA / ABSEST ) / T COSINE = -( GAMMA / ABSEST ) / ( ONE+T ) - TMP = SQRT( SINE*CONJG( SINE )+COSINE*CONJG( COSINE ) ) + TMP = REAL( SQRT( SINE * CONJG( SINE ) + $ + COSINE * CONJG( COSINE ) ) ) S = SINE / TMP C = COSINE / TMP SESTPR = SQRT( T+ONE )*ABSEST @@ -280,7 +278,7 @@ S1 = MAX( ABS( SINE ), ABS( COSINE ) ) S = SINE / S1 C = COSINE / S1 - TMP = SQRT( S*CONJG( S )+C*CONJG( C ) ) + TMP = REAL( SQRT( S*CONJG( S )+C*CONJG( C ) ) ) S = S / TMP C = C / TMP RETURN @@ -338,7 +336,7 @@ * B = ( ZETA1*ZETA1+ZETA2*ZETA2+ONE )*HALF C = ZETA2*ZETA2 - T = C / ( B+SQRT( ABS( B*B-C ) ) ) + T = REAL( C / ( B+SQRT( ABS( B*B-C ) ) ) ) SINE = ( ALPHA / ABSEST ) / ( ONE-T ) COSINE = -( GAMMA / ABSEST ) / T SESTPR = SQRT( T+FOUR*EPS*EPS*NORMA )*ABSEST @@ -349,15 +347,16 @@ B = ( ZETA2*ZETA2+ZETA1*ZETA1-ONE )*HALF C = ZETA1*ZETA1 IF( B.GE.ZERO ) THEN - T = -C / ( B+SQRT( B*B+C ) ) + T = REAL( -C / ( B+SQRT( B*B+C ) ) ) ELSE - T = B - SQRT( B*B+C ) + T = REAL( B - SQRT( B*B+C ) ) END IF SINE = -( ALPHA / ABSEST ) / T COSINE = -( GAMMA / ABSEST ) / ( ONE+T ) SESTPR = SQRT( ONE+T+FOUR*EPS*EPS*NORMA )*ABSEST END IF - TMP = SQRT( SINE*CONJG( SINE )+COSINE*CONJG( COSINE ) ) + TMP = REAL( SQRT( SINE * CONJG( SINE ) + $ + COSINE * CONJG( COSINE ) ) ) S = SINE / TMP C = COSINE / TMP RETURN diff --git a/lapack-netlib/SRC/clals0.f b/lapack-netlib/SRC/clals0.f index 90bff5889..e981fc36f 100644 --- a/lapack-netlib/SRC/clals0.f +++ b/lapack-netlib/SRC/clals0.f @@ -254,8 +254,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -270,10 +268,9 @@ $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ POLES, DIFL, DIFR, Z, K, C, S, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, diff --git a/lapack-netlib/SRC/clalsa.f b/lapack-netlib/SRC/clalsa.f index 004d68fba..06883ab20 100644 --- a/lapack-netlib/SRC/clalsa.f +++ b/lapack-netlib/SRC/clalsa.f @@ -250,8 +250,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -267,10 +265,9 @@ $ GIVCOL, LDGCOL, PERM, GIVNUM, C, S, RWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, diff --git a/lapack-netlib/SRC/clalsd.f b/lapack-netlib/SRC/clalsd.f index 5ebbb23b6..a2da9a925 100644 --- a/lapack-netlib/SRC/clalsd.f +++ b/lapack-netlib/SRC/clalsd.f @@ -171,8 +171,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -186,10 +184,9 @@ SUBROUTINE CLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, $ RANK, WORK, RWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clamswlq.f b/lapack-netlib/SRC/clamswlq.f index f6909b666..1606cc611 100644 --- a/lapack-netlib/SRC/clamswlq.f +++ b/lapack-netlib/SRC/clamswlq.f @@ -19,13 +19,13 @@ *> *> \verbatim *> -*> CLAMQRTS overwrites the general real M-by-N matrix C with +*> CLAMSWLQ overwrites the general complex M-by-N matrix C with *> *> *> SIDE = 'L' SIDE = 'R' *> TRANS = 'N': Q * C C * Q *> TRANS = 'T': Q**H * C C * Q**H -*> where Q is a real orthogonal matrix defined as the product of blocked +*> where Q is a complex unitary matrix defined as the product of blocked *> elementary reflectors computed by short wide LQ *> factorization (CLASWLQ) *> \endverbatim @@ -44,7 +44,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -56,7 +56,7 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix C. N >= M. +*> The number of columns of the matrix C. N >= 0. *> \endverbatim *> *> \param[in] K @@ -70,25 +70,17 @@ *> \param[in] MB *> \verbatim *> MB is INTEGER -*> The row block size to be used in the blocked QR. +*> The row block size to be used in the blocked LQ. *> M >= MB >= 1 *> \endverbatim *> *> \param[in] NB *> \verbatim *> NB is INTEGER -*> The column block size to be used in the blocked QR. +*> The column block size to be used in the blocked LQ. *> NB > M. *> \endverbatim *> -*> \param[in] NB -*> \verbatim -*> NB is INTEGER -*> The block size to be used in the blocked QR. -*> MB > M. -*> -*> \endverbatim -*> *> \param[in] A *> \verbatim *> A is COMPLEX array, dimension @@ -102,9 +94,7 @@ *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. -*> If SIDE = 'L', LDA >= max(1,M); -*> if SIDE = 'R', LDA >= max(1,N). +*> The leading dimension of the array A. LDA => max(1,K). *> \endverbatim *> *> \param[in] T @@ -171,8 +161,8 @@ * ===================== *> *> \verbatim -*> Short-Wide LQ (SWLQ) performs LQ by a sequence of orthogonal transformations, -*> representing Q as a product of other orthogonal matrices +*> Short-Wide LQ (SWLQ) performs LQ by a sequence of unitary transformations, +*> representing Q as a product of other unitary matrices *> Q = Q(1) * Q(2) * . . . * Q(k) *> where each Q(i) zeros out upper diagonal entries of a block of NB rows of A: *> Q(1) zeros out the upper diagonal entries of rows 1:NB of A @@ -189,7 +179,7 @@ *> stored in columns [(i-1)*(NB-M)+M+1:i*(NB-M)+M] of A, and by upper triangular *> block reflectors, stored in array T(1:LDT,(i-1)*M+1:i*M). *> The last Q(k) may use fewer rows. -*> For more information see Further Details in TPQRT. +*> For more information see Further Details in TPLQT. *> *> For more details of the overall algorithm, see the description of *> Sequential TSQR in Section 2.2 of [1]. @@ -203,10 +193,9 @@ SUBROUTINE CLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -250,12 +239,14 @@ INFO = -1 ELSE IF( .NOT.TRAN .AND. .NOT.NOTRAN ) THEN INFO = -2 - ELSE IF( M.LT.0 ) THEN + ELSE IF( K.LT.0 ) THEN + INFO = -5 + ELSE IF( M.LT.K ) THEN INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 - ELSE IF( K.LT.0 ) THEN - INFO = -5 + ELSE IF( K.LT.MB .OR. MB.LT.1) THEN + INFO = -6 ELSE IF( LDA.LT.MAX( 1, K ) ) THEN INFO = -9 ELSE IF( LDT.LT.MAX( 1, MB) ) THEN diff --git a/lapack-netlib/SRC/clamtsqr.f b/lapack-netlib/SRC/clamtsqr.f index c71e4aa7d..5677420ac 100644 --- a/lapack-netlib/SRC/clamtsqr.f +++ b/lapack-netlib/SRC/clamtsqr.f @@ -25,7 +25,7 @@ *> SIDE = 'L' SIDE = 'R' *> TRANS = 'N': Q * C C * Q *> TRANS = 'C': Q**H * C C * Q**H -*> where Q is a real orthogonal matrix defined as the product +*> where Q is a complex unitary matrix defined as the product *> of blocked elementary reflectors computed by tall skinny *> QR factorization (CLATSQR) *> \endverbatim @@ -56,15 +56,14 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix C. M >= N >= 0. +*> The number of columns of the matrix C. N >= 0. *> \endverbatim *> *> \param[in] K *> \verbatim *> K is INTEGER *> The number of elementary reflectors whose product defines -*> the matrix Q. -*> N >= K >= 0; +*> the matrix Q. M >= K >= 0; *> *> \endverbatim *> @@ -72,7 +71,7 @@ *> \verbatim *> MB is INTEGER *> The block size to be used in the blocked QR. -*> MB > N. (must be the same as DLATSQR) +*> MB > N. (must be the same as CLATSQR) *> \endverbatim *> *> \param[in] NB @@ -87,7 +86,7 @@ *> A is COMPLEX array, dimension (LDA,K) *> The i-th column must contain the vector which defines the *> blockedelementary reflector H(i), for i = 1,2,...,k, as -*> returned by DLATSQR in the first k columns of +*> returned by CLATSQR in the first k columns of *> its array argument A. *> \endverbatim *> @@ -164,8 +163,8 @@ * ===================== *> *> \verbatim -*> Tall-Skinny QR (TSQR) performs QR by a sequence of orthogonal transformations, -*> representing Q as a product of other orthogonal matrices +*> Tall-Skinny QR (TSQR) performs QR by a sequence of unitary transformations, +*> representing Q as a product of other unitary matrices *> Q = Q(1) * Q(2) * . . . * Q(k) *> where each Q(i) zeros out subdiagonal entries of a block of MB rows of A: *> Q(1) zeros out the subdiagonal entries of rows 1:MB of A @@ -196,10 +195,9 @@ SUBROUTINE CLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -215,7 +213,7 @@ * .. * .. Local Scalars .. LOGICAL LEFT, RIGHT, TRAN, NOTRAN, LQUERY - INTEGER I, II, KK, LW, CTR + INTEGER I, II, KK, LW, CTR, Q * .. * .. External Functions .. LOGICAL LSAME @@ -234,8 +232,10 @@ RIGHT = LSAME( SIDE, 'R' ) IF (LEFT) THEN LW = N * NB + Q = M ELSE LW = M * NB + Q = N END IF * INFO = 0 @@ -243,13 +243,15 @@ INFO = -1 ELSE IF( .NOT.TRAN .AND. .NOT.NOTRAN ) THEN INFO = -2 - ELSE IF( M.LT.0 ) THEN + ELSE IF( M.LT.K ) THEN INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 ELSE IF( K.LT.0 ) THEN INFO = -5 - ELSE IF( LDA.LT.MAX( 1, K ) ) THEN + ELSE IF( K.LT.NB .OR. NB.LT.1 ) THEN + INFO = -7 + ELSE IF( LDA.LT.MAX( 1, Q ) ) THEN INFO = -9 ELSE IF( LDT.LT.MAX( 1, NB) ) THEN INFO = -11 diff --git a/lapack-netlib/SRC/clangb.f b/lapack-netlib/SRC/clangb.f index 9818360fe..09f36bbc4 100644 --- a/lapack-netlib/SRC/clangb.f +++ b/lapack-netlib/SRC/clangb.f @@ -117,20 +117,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBauxiliary * * ===================================================================== REAL FUNCTION CLANGB( NORM, N, KL, KU, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER KL, KU, LDAB, N @@ -148,17 +144,14 @@ * .. * .. Local Scalars .. INTEGER I, J, K, L - REAL SUM, VALUE, TEMP -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL SCALE, SUM, VALUE, TEMP * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT @@ -211,22 +204,15 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N L = MAX( 1, J-KU ) K = KU + 1 - J + L - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( MIN( N, J+KL )-L+1, AB( K, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( MIN( N, J+KL )-L+1, AB( K, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANGB = VALUE diff --git a/lapack-netlib/SRC/clange.f b/lapack-netlib/SRC/clange.f index 00895c8bc..14d487b26 100644 --- a/lapack-netlib/SRC/clange.f +++ b/lapack-netlib/SRC/clange.f @@ -108,19 +108,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEauxiliary * * ===================================================================== REAL FUNCTION CLANGE( NORM, M, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER LDA, M, N @@ -138,17 +134,14 @@ * .. * .. Local Scalars .. INTEGER I, J - REAL SUM, VALUE, TEMP -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL SCALE, SUM, VALUE, TEMP * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT @@ -200,19 +193,13 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( M, A( 1, J ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( M, A( 1, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANGE = VALUE diff --git a/lapack-netlib/SRC/clangt.f b/lapack-netlib/SRC/clangt.f index 836e127fb..a778c6702 100644 --- a/lapack-netlib/SRC/clangt.f +++ b/lapack-netlib/SRC/clangt.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANGT( NORM, N, DL, D, DU ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/clanhb.f b/lapack-netlib/SRC/clanhb.f index f78de23df..1eae7fbe7 100644 --- a/lapack-netlib/SRC/clanhb.f +++ b/lapack-netlib/SRC/clanhb.f @@ -124,20 +124,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANHB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER K, LDAB, N @@ -155,17 +151,14 @@ * .. * .. Local Scalars .. INTEGER I, J, L - REAL ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, REAL, SQRT @@ -237,57 +230,39 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( K.GT.0 ) THEN IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL CLASSQ( MIN( J-1, K ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 110 CONTINUE L = K + 1 ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 120 CONTINUE L = 1 END IF - SSQ( 2 ) = 2*SSQ( 2 ) + SUM = 2*SUM ELSE L = 1 END IF -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE DO 130 J = 1, N IF( REAL( AB( L, J ) ).NE.ZERO ) THEN ABSA = ABS( REAL( AB( L, J ) ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF 130 CONTINUE - CALL SCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANHB = VALUE diff --git a/lapack-netlib/SRC/clanhe.f b/lapack-netlib/SRC/clanhe.f index 33d6c8b01..8181b329e 100644 --- a/lapack-netlib/SRC/clanhe.f +++ b/lapack-netlib/SRC/clanhe.f @@ -117,19 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEauxiliary * * ===================================================================== REAL FUNCTION CLANHE( NORM, UPLO, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER LDA, N @@ -147,17 +143,14 @@ * .. * .. Local Scalars .. INTEGER I, J - REAL ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, REAL, SQRT @@ -227,48 +220,31 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( J-1, A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( J-1, A( 1, J ), 1, SCALE, SUM ) 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( N-J, A( J+1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( N-J, A( J+1, J ), 1, SCALE, SUM ) 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* + SUM = 2*SUM DO 130 I = 1, N IF( REAL( A( I, I ) ).NE.ZERO ) THEN ABSA = ABS( REAL( A( I, I ) ) ) - IF( SSQ( 1 ).LT.ABSA ) THEN - SSQ( 2 ) = ONE + SSQ( 2 )*( SSQ( 1 ) / ABSA )**2 - SSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - SSQ( 2 ) = SSQ( 2 ) + ( ABSA / SSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF 130 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANHE = VALUE diff --git a/lapack-netlib/SRC/clanhf.f b/lapack-netlib/SRC/clanhf.f index 13e5fe300..4ce70602d 100644 --- a/lapack-netlib/SRC/clanhf.f +++ b/lapack-netlib/SRC/clanhf.f @@ -131,8 +131,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -246,10 +244,9 @@ * ===================================================================== REAL FUNCTION CLANHF( NORM, TRANSR, UPLO, N, A, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM, TRANSR, UPLO diff --git a/lapack-netlib/SRC/clanhp.f b/lapack-netlib/SRC/clanhp.f index e0e23abc7..ff99a7353 100644 --- a/lapack-netlib/SRC/clanhp.f +++ b/lapack-netlib/SRC/clanhp.f @@ -110,19 +110,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANHP( NORM, UPLO, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER N @@ -140,17 +136,14 @@ * .. * .. Local Scalars .. INTEGER I, J, K - REAL ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, REAL, SQRT @@ -229,48 +222,31 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE K = 2 IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( J-1, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( N-J, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* + SUM = 2*SUM K = 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE DO 130 I = 1, N IF( REAL( AP( K ) ).NE.ZERO ) THEN ABSA = ABS( REAL( AP( K ) ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF IF( LSAME( UPLO, 'U' ) ) THEN @@ -279,8 +255,7 @@ K = K + N - I + 1 END IF 130 CONTINUE - CALL SCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANHP = VALUE diff --git a/lapack-netlib/SRC/clanhs.f b/lapack-netlib/SRC/clanhs.f index 661b4f901..faf86124a 100644 --- a/lapack-netlib/SRC/clanhs.f +++ b/lapack-netlib/SRC/clanhs.f @@ -102,19 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANHS( NORM, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER LDA, N @@ -132,17 +128,14 @@ * .. * .. Local Scalars .. INTEGER I, J - REAL SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT @@ -194,20 +187,13 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( MIN( N, J+1 ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( MIN( N, J+1 ), A( 1, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANHS = VALUE diff --git a/lapack-netlib/SRC/clanht.f b/lapack-netlib/SRC/clanht.f index 9e2be72cf..5ac3d4b1d 100644 --- a/lapack-netlib/SRC/clanht.f +++ b/lapack-netlib/SRC/clanht.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANHT( NORM, N, D, E ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/clansb.f b/lapack-netlib/SRC/clansb.f index 1085fd880..b95f6335f 100644 --- a/lapack-netlib/SRC/clansb.f +++ b/lapack-netlib/SRC/clansb.f @@ -122,20 +122,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANSB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER K, LDAB, N @@ -153,17 +149,14 @@ * .. * .. Local Scalars .. INTEGER I, J, L - REAL ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT @@ -231,47 +224,29 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( K.GT.0 ) THEN IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL CLASSQ( MIN( J-1, K ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 110 CONTINUE L = K + 1 ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 120 CONTINUE L = 1 END IF - SSQ( 2 ) = 2*SSQ( 2 ) + SUM = 2*SUM ELSE L = 1 END IF -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( N, AB( L, 1 ), LDAB, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + CALL CLASSQ( N, AB( L, 1 ), LDAB, SCALE, SUM ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANSB = VALUE diff --git a/lapack-netlib/SRC/clansp.f b/lapack-netlib/SRC/clansp.f index 628dc0a75..1065066d3 100644 --- a/lapack-netlib/SRC/clansp.f +++ b/lapack-netlib/SRC/clansp.f @@ -108,19 +108,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANSP( NORM, UPLO, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER N @@ -138,17 +134,14 @@ * .. * .. Local Scalars .. INTEGER I, J, K - REAL ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, AIMAG, REAL, SQRT @@ -223,57 +216,40 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE K = 2 IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( J-1, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( N-J, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* + SUM = 2*SUM K = 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE DO 130 I = 1, N IF( REAL( AP( K ) ).NE.ZERO ) THEN ABSA = ABS( REAL( AP( K ) ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF IF( AIMAG( AP( K ) ).NE.ZERO ) THEN ABSA = ABS( AIMAG( AP( K ) ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF IF( LSAME( UPLO, 'U' ) ) THEN @@ -282,8 +258,7 @@ K = K + N - I + 1 END IF 130 CONTINUE - CALL SCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANSP = VALUE diff --git a/lapack-netlib/SRC/clansy.f b/lapack-netlib/SRC/clansy.f index 537fb7ba9..478c14040 100644 --- a/lapack-netlib/SRC/clansy.f +++ b/lapack-netlib/SRC/clansy.f @@ -116,19 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYauxiliary * * ===================================================================== REAL FUNCTION CLANSY( NORM, UPLO, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER LDA, N @@ -146,17 +142,14 @@ * .. * .. Local Scalars .. INTEGER I, J - REAL ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT @@ -222,39 +215,21 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( J-1, A( 1, J ), 1, COLSSQ(1), COLSSQ(2) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( J-1, A( 1, J ), 1, SCALE, SUM ) 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( N-J, A( J+1, J ), 1, COLSSQ(1), COLSSQ(2) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( N-J, A( J+1, J ), 1, SCALE, SUM ) 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( N, A, LDA+1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + SUM = 2*SUM + CALL CLASSQ( N, A, LDA+1, SCALE, SUM ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANSY = VALUE diff --git a/lapack-netlib/SRC/clantb.f b/lapack-netlib/SRC/clantb.f index 8066d0ef6..f7747b6ed 100644 --- a/lapack-netlib/SRC/clantb.f +++ b/lapack-netlib/SRC/clantb.f @@ -133,20 +133,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANTB( NORM, UPLO, DIAG, N, K, AB, $ LDAB, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER K, LDAB, N @@ -165,17 +161,14 @@ * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J, L - REAL SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT @@ -317,61 +310,46 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N IF( K.GT.0 ) THEN DO 280 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL CLASSQ( MIN( J-1, K ), - $ AB( MAX( K+2-J, 1 ), J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + $ AB( MAX( K+2-J, 1 ), J ), 1, SCALE, + $ SUM ) 280 CONTINUE END IF ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 290 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL CLASSQ( MIN( J, K+1 ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 290 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N IF( K.GT.0 ) THEN DO 300 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 300 CONTINUE END IF ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( MIN( N-J+1, K+1 ), AB( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( MIN( N-J+1, K+1 ), AB( 1, J ), 1, SCALE, + $ SUM ) 310 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANTB = VALUE diff --git a/lapack-netlib/SRC/clantp.f b/lapack-netlib/SRC/clantp.f index b0c48eb46..f7169360e 100644 --- a/lapack-netlib/SRC/clantp.f +++ b/lapack-netlib/SRC/clantp.f @@ -118,19 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANTP( NORM, UPLO, DIAG, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER N @@ -149,17 +145,14 @@ * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J, K - REAL SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT @@ -312,64 +305,45 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N K = 2 DO 280 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( J-1, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 280 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE K = 1 DO 290 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( J, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( J, AP( K ), 1, SCALE, SUM ) K = K + J 290 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N K = 2 DO 300 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( N-J, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 300 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE K = 1 DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( N-J+1, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( N-J+1, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 310 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANTP = VALUE diff --git a/lapack-netlib/SRC/clantr.f b/lapack-netlib/SRC/clantr.f index 3b361cc97..f1dce1402 100644 --- a/lapack-netlib/SRC/clantr.f +++ b/lapack-netlib/SRC/clantr.f @@ -134,20 +134,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== REAL FUNCTION CLANTR( NORM, UPLO, DIAG, M, N, A, LDA, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER LDA, M, N @@ -166,17 +162,14 @@ * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J - REAL SUM, VALUE -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. * .. External Subroutines .. - EXTERNAL CLASSQ, SCOMBSSQ + EXTERNAL CLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT @@ -317,56 +310,38 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = MIN( M, N ) + SCALE = ONE + SUM = MIN( M, N ) DO 290 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( MIN( M, J-1 ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( MIN( M, J-1 ), A( 1, J ), 1, SCALE, SUM ) 290 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 300 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( MIN( M, J ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( MIN( M, J ), A( 1, J ), 1, SCALE, SUM ) 300 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = MIN( M, N ) + SCALE = ONE + SUM = MIN( M, N ) DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( M-J, A( MIN( M, J+1 ), J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( M-J, A( MIN( M, J+1 ), J ), 1, SCALE, + $ SUM ) 310 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 320 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL CLASSQ( M-J+1, A( J, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL CLASSQ( M-J+1, A( J, J ), 1, SCALE, SUM ) 320 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * CLANTR = VALUE diff --git a/lapack-netlib/SRC/clapll.f b/lapack-netlib/SRC/clapll.f index 5465372da..2fea2b1a3 100644 --- a/lapack-netlib/SRC/clapll.f +++ b/lapack-netlib/SRC/clapll.f @@ -93,17 +93,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAPLL( N, X, INCX, Y, INCY, SSMIN ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/lapack-netlib/SRC/clapmr.f b/lapack-netlib/SRC/clapmr.f index e01d5bfca..fa6193fc3 100644 --- a/lapack-netlib/SRC/clapmr.f +++ b/lapack-netlib/SRC/clapmr.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAPMR( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL FORWRD @@ -198,7 +195,7 @@ * RETURN * -* End of ZLAPMT +* End of CLAPMR * END diff --git a/lapack-netlib/SRC/clapmt.f b/lapack-netlib/SRC/clapmt.f index 3b22e09ea..e1230aeba 100644 --- a/lapack-netlib/SRC/clapmt.f +++ b/lapack-netlib/SRC/clapmt.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAPMT( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL FORWRD diff --git a/lapack-netlib/SRC/claqgb.f b/lapack-netlib/SRC/claqgb.f index 636c6842a..3f1e824db 100644 --- a/lapack-netlib/SRC/claqgb.f +++ b/lapack-netlib/SRC/claqgb.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGBauxiliary * * ===================================================================== SUBROUTINE CLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/lapack-netlib/SRC/claqge.f b/lapack-netlib/SRC/claqge.f index 9d9efa30f..ae20ab7a0 100644 --- a/lapack-netlib/SRC/claqge.f +++ b/lapack-netlib/SRC/claqge.f @@ -135,18 +135,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEauxiliary * * ===================================================================== SUBROUTINE CLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/lapack-netlib/SRC/claqhb.f b/lapack-netlib/SRC/claqhb.f index db6987526..0ee2a1e59 100644 --- a/lapack-netlib/SRC/claqhb.f +++ b/lapack-netlib/SRC/claqhb.f @@ -134,17 +134,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAQHB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/claqhe.f b/lapack-netlib/SRC/claqhe.f index 14714b518..619c35260 100644 --- a/lapack-netlib/SRC/claqhe.f +++ b/lapack-netlib/SRC/claqhe.f @@ -127,17 +127,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexHEauxiliary * * ===================================================================== SUBROUTINE CLAQHE( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/claqhp.f b/lapack-netlib/SRC/claqhp.f index c41eb184b..e4088f7da 100644 --- a/lapack-netlib/SRC/claqhp.f +++ b/lapack-netlib/SRC/claqhp.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAQHP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/claqp2.f b/lapack-netlib/SRC/claqp2.f index 33f2a8e08..6e41afeb4 100644 --- a/lapack-netlib/SRC/claqp2.f +++ b/lapack-netlib/SRC/claqp2.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -149,10 +147,9 @@ SUBROUTINE CLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, M, N, OFFSET diff --git a/lapack-netlib/SRC/claqps.f b/lapack-netlib/SRC/claqps.f index d0b7efcd5..e41c47c3c 100644 --- a/lapack-netlib/SRC/claqps.f +++ b/lapack-netlib/SRC/claqps.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -178,10 +176,9 @@ SUBROUTINE CLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, $ VN2, AUXV, F, LDF ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KB, LDA, LDF, M, N, NB, OFFSET diff --git a/lapack-netlib/SRC/claqr0.f b/lapack-netlib/SRC/claqr0.f index 233721352..47494e067 100644 --- a/lapack-netlib/SRC/claqr0.f +++ b/lapack-netlib/SRC/claqr0.f @@ -214,8 +214,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -240,10 +238,9 @@ SUBROUTINE CLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/claqr1.f b/lapack-netlib/SRC/claqr1.f index 87d53871a..e6989798f 100644 --- a/lapack-netlib/SRC/claqr1.f +++ b/lapack-netlib/SRC/claqr1.f @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -107,10 +105,9 @@ * ===================================================================== SUBROUTINE CLAQR1( N, H, LDH, S1, S2, V ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. COMPLEX S1, S2 diff --git a/lapack-netlib/SRC/claqr2.f b/lapack-netlib/SRC/claqr2.f index fc282b2d6..1695fbe5b 100644 --- a/lapack-netlib/SRC/claqr2.f +++ b/lapack-netlib/SRC/claqr2.f @@ -254,8 +254,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -269,10 +267,9 @@ $ IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, $ NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/lapack-netlib/SRC/claqr3.f b/lapack-netlib/SRC/claqr3.f index 84d57d4d6..2f5402de9 100644 --- a/lapack-netlib/SRC/claqr3.f +++ b/lapack-netlib/SRC/claqr3.f @@ -251,8 +251,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -266,10 +264,9 @@ $ IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, $ NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/lapack-netlib/SRC/claqr4.f b/lapack-netlib/SRC/claqr4.f index 94484e798..b2d15dd6e 100644 --- a/lapack-netlib/SRC/claqr4.f +++ b/lapack-netlib/SRC/claqr4.f @@ -222,8 +222,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -248,10 +246,9 @@ SUBROUTINE CLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/claqr5.f b/lapack-netlib/SRC/claqr5.f index 71f26d8c9..95cc33b9d 100644 --- a/lapack-netlib/SRC/claqr5.f +++ b/lapack-netlib/SRC/claqr5.f @@ -225,8 +225,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2021 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -258,10 +256,9 @@ $ WV, LDWV, NH, WH, LDWH ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, diff --git a/lapack-netlib/SRC/claqsb.f b/lapack-netlib/SRC/claqsb.f index 004645a0f..f7e3c0ef0 100644 --- a/lapack-netlib/SRC/claqsb.f +++ b/lapack-netlib/SRC/claqsb.f @@ -134,17 +134,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/claqsp.f b/lapack-netlib/SRC/claqsp.f index 2a962d42d..523e4a19e 100644 --- a/lapack-netlib/SRC/claqsp.f +++ b/lapack-netlib/SRC/claqsp.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/claqsy.f b/lapack-netlib/SRC/claqsy.f index 6d5f7da1e..d9f3a5ddd 100644 --- a/lapack-netlib/SRC/claqsy.f +++ b/lapack-netlib/SRC/claqsy.f @@ -127,17 +127,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYauxiliary * * ===================================================================== SUBROUTINE CLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/claqz0.f b/lapack-netlib/SRC/claqz0.f new file mode 100644 index 000000000..2284fd65d --- /dev/null +++ b/lapack-netlib/SRC/claqz0.f @@ -0,0 +1,691 @@ +*> \brief \b CLAQZ0 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download CLAQZ0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE CLAQZ0( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, +* $ LDB, ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, RWORK, REC, +* $ INFO ) +* IMPLICIT NONE +* +* Arguments +* CHARACTER, INTENT( IN ) :: WANTS, WANTQ, WANTZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, +* $ REC +* INTEGER, INTENT( OUT ) :: INFO +* COMPLEX, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), +* $ Z( LDZ, * ), ALPHA( * ), BETA( * ), WORK( * ) +* REAL, INTENT( OUT ) :: RWORK( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> CLAQZ0 computes the eigenvalues of a matrix pair (H,T), +*> where H is an upper Hessenberg matrix and T is upper triangular, +*> using the double-shift QZ method. +*> Matrix pairs of this type are produced by the reduction to +*> generalized upper Hessenberg form of a 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, P and S are an upper triangular +*> matrices. +*> +*> 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. +*> If Q1 and Z1 are the unitary matrices from CGGHRD that reduced +*> the matrix pair (A,B) to generalized upper 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 values (alpha,beta), where alpha is +*> complex and beta real. +*> If beta is nonzero, lambda = alpha / beta is an eigenvalue of the +*> generalized nonsymmetric eigenvalue problem (GNEP) +*> A*x = lambda*B*x +*> and if alpha is nonzero, mu = beta / alpha is an eigenvalue of the +*> alternate form of the GNEP +*> mu*A*y = B*y. +*> Eigenvalues can be read directly from the generalized Schur +*> form: +*> alpha = S(i,i), beta = P(i,i). +*> +*> Ref: C.B. Moler & G.W. Stewart, "An Algorithm for Generalized Matrix +*> Eigenvalue Problems", SIAM J. Numer. Anal., 10(1973), +*> pp. 241--256. +*> +*> Ref: B. Kagstrom, D. Kressner, "Multishift Variants of the QZ +*> Algorithm with Aggressive Early Deflation", SIAM J. Numer. +*> Anal., 29(2006), pp. 199--227. +*> +*> Ref: T. Steel, D. Camps, K. Meerbergen, R. Vandebril "A multishift, +*> multipole rational QZ method with agressive early deflation" +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] WANTS +*> \verbatim +*> WANTS is CHARACTER*1 +*> = 'E': Compute eigenvalues only; +*> = 'S': Compute eigenvalues and the Schur form. +*> \endverbatim +*> +*> \param[in] WANTQ +*> \verbatim +*> WANTQ is CHARACTER*1 +*> = 'N': Left Schur vectors (Q) are not computed; +*> = 'I': Q is initialized to the unit matrix and the matrix Q +*> of left Schur vectors of (A,B) is returned; +*> = 'V': Q must contain an unitary matrix Q1 on entry and +*> the product Q1*Q is returned. +*> \endverbatim +*> +*> \param[in] WANTZ +*> \verbatim +*> WANTZ is CHARACTER*1 +*> = 'N': Right Schur vectors (Z) are not computed; +*> = 'I': Z is initialized to the unit matrix and the matrix Z +*> of right Schur vectors of (A,B) is returned; +*> = 'V': Z must contain an unitary matrix Z1 on entry and +*> the product Z1*Z is returned. +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> ILO and IHI mark the rows and columns of A which are in +*> Hessenberg form. It is assumed that A is already upper +*> triangular in rows and columns 1:ILO-1 and IHI+1:N. +*> If N > 0, 1 <= ILO <= IHI <= N; if N = 0, ILO=1 and IHI=0. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is COMPLEX array, dimension (LDA, N) +*> On entry, the N-by-N upper Hessenberg matrix A. +*> On exit, if JOB = 'S', A contains the upper triangular +*> matrix S from the generalized Schur factorization. +*> If JOB = 'E', the diagonal of A matches that of S, but +*> the rest of A is unspecified. +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is COMPLEX array, dimension (LDB, N) +*> On entry, the N-by-N upper triangular matrix B. +*> On exit, if JOB = 'S', B contains the upper triangular +*> matrix P from the generalized Schur factorization. +*> If JOB = 'E', the diagonal of B matches that of P, but +*> the rest of B is unspecified. +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[out] ALPHA +*> \verbatim +*> ALPHA is COMPLEX array, dimension (N) +*> Each scalar alpha defining an eigenvalue +*> of GNEP. +*> \endverbatim +*> +*> \param[out] BETA +*> \verbatim +*> BETA is COMPLEX array, dimension (N) +*> The 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. Since either lambda or mu may overflow, +*> they should not, in general, be computed. +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is COMPLEX array, dimension (LDQ, N) +*> On entry, if COMPQ = 'V', the unitary matrix Q1 used in +*> the reduction of (A,B) to generalized Hessenberg form. +*> On exit, if COMPQ = 'I', the unitary matrix of left Schur +*> vectors of (A,B), and if COMPQ = 'V', the unitary matrix +*> of left Schur vectors of (A,B). +*> Not referenced if COMPQ = 'N'. +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> The leading dimension of the array Q. LDQ >= 1. +*> If COMPQ='V' or 'I', then LDQ >= N. +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is COMPLEX array, dimension (LDZ, N) +*> On entry, if COMPZ = 'V', the unitary matrix Z1 used in +*> the reduction of (A,B) to generalized Hessenberg form. +*> On exit, if COMPZ = 'I', the unitary matrix of +*> right Schur vectors of (H,T), and if COMPZ = 'V', the +*> unitary matrix of right Schur vectors of (A,B). +*> Not referenced if COMPZ = 'N'. +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> The leading dimension of the array Z. LDZ >= 1. +*> If COMPZ='V' or 'I', then LDZ >= N. +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is COMPLEX array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> 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 +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[out] RWORK +*> \verbatim +*> RWORK is REAL array, dimension (N) +*> \endverbatim +*> +*> \param[in] REC +*> \verbatim +*> REC is INTEGER +*> REC indicates the current recursion level. Should be set +*> to 0 on first call. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> = 1,...,N: the QZ iteration did not converge. (A,B) is not +*> in Schur form, but ALPHA(i) and +*> BETA(i), i=INFO+1,...,N should be correct. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup complexGEcomputational +*> +* ===================================================================== + RECURSIVE SUBROUTINE CLAQZ0( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, + $ LDA, B, LDB, ALPHA, BETA, Q, LDQ, Z, + $ LDZ, WORK, LWORK, RWORK, REC, + $ INFO ) + IMPLICIT NONE + +* Arguments + CHARACTER, INTENT( IN ) :: WANTS, WANTQ, WANTZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, + $ REC + INTEGER, INTENT( OUT ) :: INFO + COMPLEX, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), + $ Z( LDZ, * ), ALPHA( * ), BETA( * ), WORK( * ) + REAL, INTENT( OUT ) :: RWORK( * ) + +* Parameters + COMPLEX CZERO, CONE + PARAMETER ( CZERO = ( 0.0, 0.0 ), CONE = ( 1.0, 0.0 ) ) + REAL :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0, ONE = 1.0, HALF = 0.5 ) + +* Local scalars + REAL :: SMLNUM, ULP, SAFMIN, SAFMAX, C1, TEMPR + COMPLEX :: ESHIFT, S1, TEMP + INTEGER :: ISTART, ISTOP, IITER, MAXIT, ISTART2, K, LD, NSHIFTS, + $ NBLOCK, NW, NMIN, NIBBLE, N_UNDEFLATED, N_DEFLATED, + $ NS, SWEEP_INFO, SHIFTPOS, LWORKREQ, K2, ISTARTM, + $ ISTOPM, IWANTS, IWANTQ, IWANTZ, NORM_INFO, AED_INFO, + $ NWR, NBR, NSR, ITEMP1, ITEMP2, RCOST + LOGICAL :: ILSCHUR, ILQ, ILZ + CHARACTER :: JBCMPZ*3 + +* External Functions + EXTERNAL :: XERBLA, CHGEQZ, CLAQZ2, CLAQZ3, CLASET, SLABAD, + $ CLARTG, CROT + REAL, EXTERNAL :: SLAMCH + LOGICAL, EXTERNAL :: LSAME + INTEGER, EXTERNAL :: ILAENV + +* +* Decode wantS,wantQ,wantZ +* + IF( LSAME( WANTS, 'E' ) ) THEN + ILSCHUR = .FALSE. + IWANTS = 1 + ELSE IF( LSAME( WANTS, 'S' ) ) THEN + ILSCHUR = .TRUE. + IWANTS = 2 + ELSE + IWANTS = 0 + END IF + + IF( LSAME( WANTQ, 'N' ) ) THEN + ILQ = .FALSE. + IWANTQ = 1 + ELSE IF( LSAME( WANTQ, 'V' ) ) THEN + ILQ = .TRUE. + IWANTQ = 2 + ELSE IF( LSAME( WANTQ, 'I' ) ) THEN + ILQ = .TRUE. + IWANTQ = 3 + ELSE + IWANTQ = 0 + END IF + + IF( LSAME( WANTZ, 'N' ) ) THEN + ILZ = .FALSE. + IWANTZ = 1 + ELSE IF( LSAME( WANTZ, 'V' ) ) THEN + ILZ = .TRUE. + IWANTZ = 2 + ELSE IF( LSAME( WANTZ, 'I' ) ) THEN + ILZ = .TRUE. + IWANTZ = 3 + ELSE + IWANTZ = 0 + END IF +* +* Check Argument Values +* + INFO = 0 + IF( IWANTS.EQ.0 ) THEN + INFO = -1 + ELSE IF( IWANTQ.EQ.0 ) THEN + INFO = -2 + ELSE IF( IWANTZ.EQ.0 ) THEN + INFO = -3 + ELSE IF( N.LT.0 ) THEN + INFO = -4 + ELSE IF( ILO.LT.1 ) THEN + INFO = -5 + ELSE IF( IHI.GT.N .OR. IHI.LT.ILO-1 ) THEN + INFO = -6 + ELSE IF( LDA.LT.N ) THEN + INFO = -8 + ELSE IF( LDB.LT.N ) THEN + INFO = -10 + ELSE IF( LDQ.LT.1 .OR. ( ILQ .AND. LDQ.LT.N ) ) THEN + INFO = -15 + ELSE IF( LDZ.LT.1 .OR. ( ILZ .AND. LDZ.LT.N ) ) THEN + INFO = -17 + END IF + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'CLAQZ0', -INFO ) + RETURN + END IF + +* +* Quick return if possible +* + IF( N.LE.0 ) THEN + WORK( 1 ) = REAL( 1 ) + RETURN + END IF + +* +* Get the parameters +* + JBCMPZ( 1:1 ) = WANTS + JBCMPZ( 2:2 ) = WANTQ + JBCMPZ( 3:3 ) = WANTZ + + NMIN = ILAENV( 12, 'CLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + + NWR = ILAENV( 13, 'CLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + NWR = MAX( 2, NWR ) + NWR = MIN( IHI-ILO+1, ( N-1 ) / 3, NWR ) + + NIBBLE = ILAENV( 14, 'CLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + + NSR = ILAENV( 15, 'CLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + NSR = MIN( NSR, ( N+6 ) / 9, IHI-ILO ) + NSR = MAX( 2, NSR-MOD( NSR, 2 ) ) + + RCOST = ILAENV( 17, 'CLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + ITEMP1 = INT( NSR/SQRT( 1+2*NSR/( REAL( RCOST )/100*N ) ) ) + ITEMP1 = ( ( ITEMP1-1 )/4 )*4+4 + NBR = NSR+ITEMP1 + + IF( N .LT. NMIN .OR. REC .GE. 2 ) THEN + CALL CHGEQZ( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, LDB, + $ ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, RWORK, + $ INFO ) + RETURN + END IF + +* +* Find out required workspace +* + +* Workspace query to CLAQZ2 + NW = MAX( NWR, NMIN ) + CALL CLAQZ2( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, A, LDA, B, LDB, + $ Q, LDQ, Z, LDZ, N_UNDEFLATED, N_DEFLATED, ALPHA, + $ BETA, WORK, NW, WORK, NW, WORK, -1, RWORK, REC, + $ AED_INFO ) + ITEMP1 = INT( WORK( 1 ) ) +* Workspace query to CLAQZ3 + CALL CLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSR, NBR, ALPHA, + $ BETA, A, LDA, B, LDB, Q, LDQ, Z, LDZ, WORK, NBR, + $ WORK, NBR, WORK, -1, SWEEP_INFO ) + ITEMP2 = INT( WORK( 1 ) ) + + LWORKREQ = MAX( ITEMP1+2*NW**2, ITEMP2+2*NBR**2 ) + IF ( LWORK .EQ.-1 ) THEN + WORK( 1 ) = REAL( LWORKREQ ) + RETURN + ELSE IF ( LWORK .LT. LWORKREQ ) THEN + INFO = -19 + END IF + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'CLAQZ0', INFO ) + RETURN + END IF +* +* Initialize Q and Z +* + IF( IWANTQ.EQ.3 ) CALL CLASET( 'FULL', N, N, CZERO, CONE, Q, + $ LDQ ) + IF( IWANTZ.EQ.3 ) CALL CLASET( 'FULL', N, N, CZERO, CONE, Z, + $ LDZ ) + +* Get machine constants + SAFMIN = SLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL SLABAD( SAFMIN, SAFMAX ) + ULP = SLAMCH( 'PRECISION' ) + SMLNUM = SAFMIN*( REAL( N )/ULP ) + + ISTART = ILO + ISTOP = IHI + MAXIT = 30*( IHI-ILO+1 ) + LD = 0 + + DO IITER = 1, MAXIT + IF( IITER .GE. MAXIT ) THEN + INFO = ISTOP+1 + GOTO 80 + END IF + IF ( ISTART+1 .GE. ISTOP ) THEN + ISTOP = ISTART + EXIT + END IF + +* Check deflations at the end + IF ( ABS( A( ISTOP, ISTOP-1 ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTOP, ISTOP ) )+ABS( A( ISTOP-1, + $ ISTOP-1 ) ) ) ) ) THEN + A( ISTOP, ISTOP-1 ) = CZERO + ISTOP = ISTOP-1 + LD = 0 + ESHIFT = CZERO + END IF +* Check deflations at the start + IF ( ABS( A( ISTART+1, ISTART ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTART, ISTART ) )+ABS( A( ISTART+1, + $ ISTART+1 ) ) ) ) ) THEN + A( ISTART+1, ISTART ) = CZERO + ISTART = ISTART+1 + LD = 0 + ESHIFT = CZERO + END IF + + IF ( ISTART+1 .GE. ISTOP ) THEN + EXIT + END IF + +* Check interior deflations + ISTART2 = ISTART + DO K = ISTOP, ISTART+1, -1 + IF ( ABS( A( K, K-1 ) ) .LE. MAX( SMLNUM, ULP*( ABS( A( K, + $ K ) )+ABS( A( K-1, K-1 ) ) ) ) ) THEN + A( K, K-1 ) = CZERO + ISTART2 = K + EXIT + END IF + END DO + +* Get range to apply rotations to + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ISTART2 + ISTOPM = ISTOP + END IF + +* Check infinite eigenvalues, this is done without blocking so might +* slow down the method when many infinite eigenvalues are present + K = ISTOP + DO WHILE ( K.GE.ISTART2 ) + TEMPR = ZERO + IF( K .LT. ISTOP ) THEN + TEMPR = TEMPR+ABS( B( K, K+1 ) ) + END IF + IF( K .GT. ISTART2 ) THEN + TEMPR = TEMPR+ABS( B( K-1, K ) ) + END IF + + IF( ABS( B( K, K ) ) .LT. MAX( SMLNUM, ULP*TEMPR ) ) THEN +* A diagonal element of B is negligable, move it +* to the top and deflate it + + DO K2 = K, ISTART2+1, -1 + CALL CLARTG( B( K2-1, K2 ), B( K2-1, K2-1 ), C1, S1, + $ TEMP ) + B( K2-1, K2 ) = TEMP + B( K2-1, K2-1 ) = CZERO + + CALL CROT( K2-2-ISTARTM+1, B( ISTARTM, K2 ), 1, + $ B( ISTARTM, K2-1 ), 1, C1, S1 ) + CALL CROT( MIN( K2+1, ISTOP )-ISTARTM+1, A( ISTARTM, + $ K2 ), 1, A( ISTARTM, K2-1 ), 1, C1, S1 ) + IF ( ILZ ) THEN + CALL CROT( N, Z( 1, K2 ), 1, Z( 1, K2-1 ), 1, C1, + $ S1 ) + END IF + + IF( K2.LT.ISTOP ) THEN + CALL CLARTG( A( K2, K2-1 ), A( K2+1, K2-1 ), C1, + $ S1, TEMP ) + A( K2, K2-1 ) = TEMP + A( K2+1, K2-1 ) = CZERO + + CALL CROT( ISTOPM-K2+1, A( K2, K2 ), LDA, A( K2+1, + $ K2 ), LDA, C1, S1 ) + CALL CROT( ISTOPM-K2+1, B( K2, K2 ), LDB, B( K2+1, + $ K2 ), LDB, C1, S1 ) + IF( ILQ ) THEN + CALL CROT( N, Q( 1, K2 ), 1, Q( 1, K2+1 ), 1, + $ C1, CONJG( S1 ) ) + END IF + END IF + + END DO + + IF( ISTART2.LT.ISTOP )THEN + CALL CLARTG( A( ISTART2, ISTART2 ), A( ISTART2+1, + $ ISTART2 ), C1, S1, TEMP ) + A( ISTART2, ISTART2 ) = TEMP + A( ISTART2+1, ISTART2 ) = CZERO + + CALL CROT( ISTOPM-( ISTART2+1 )+1, A( ISTART2, + $ ISTART2+1 ), LDA, A( ISTART2+1, + $ ISTART2+1 ), LDA, C1, S1 ) + CALL CROT( ISTOPM-( ISTART2+1 )+1, B( ISTART2, + $ ISTART2+1 ), LDB, B( ISTART2+1, + $ ISTART2+1 ), LDB, C1, S1 ) + IF( ILQ ) THEN + CALL CROT( N, Q( 1, ISTART2 ), 1, Q( 1, + $ ISTART2+1 ), 1, C1, CONJG( S1 ) ) + END IF + END IF + + ISTART2 = ISTART2+1 + + END IF + K = K-1 + END DO + +* istart2 now points to the top of the bottom right +* unreduced Hessenberg block + IF ( ISTART2 .GE. ISTOP ) THEN + ISTOP = ISTART2-1 + LD = 0 + ESHIFT = CZERO + CYCLE + END IF + + NW = NWR + NSHIFTS = NSR + NBLOCK = NBR + + IF ( ISTOP-ISTART2+1 .LT. NMIN ) THEN +* Setting nw to the size of the subblock will make AED deflate +* all the eigenvalues. This is slightly more efficient than just +* using CHGEQZ because the off diagonal part gets updated via BLAS. + IF ( ISTOP-ISTART+1 .LT. NMIN ) THEN + NW = ISTOP-ISTART+1 + ISTART2 = ISTART + ELSE + NW = ISTOP-ISTART2+1 + END IF + END IF + +* +* Time for AED +* + CALL CLAQZ2( ILSCHUR, ILQ, ILZ, N, ISTART2, ISTOP, NW, A, LDA, + $ B, LDB, Q, LDQ, Z, LDZ, N_UNDEFLATED, N_DEFLATED, + $ ALPHA, BETA, WORK, NW, WORK( NW**2+1 ), NW, + $ WORK( 2*NW**2+1 ), LWORK-2*NW**2, RWORK, REC, + $ AED_INFO ) + + IF ( N_DEFLATED > 0 ) THEN + ISTOP = ISTOP-N_DEFLATED + LD = 0 + ESHIFT = CZERO + END IF + + IF ( 100*N_DEFLATED > NIBBLE*( N_DEFLATED+N_UNDEFLATED ) .OR. + $ ISTOP-ISTART2+1 .LT. NMIN ) THEN +* AED has uncovered many eigenvalues. Skip a QZ sweep and run +* AED again. + CYCLE + END IF + + LD = LD+1 + + NS = MIN( NSHIFTS, ISTOP-ISTART2 ) + NS = MIN( NS, N_UNDEFLATED ) + SHIFTPOS = ISTOP-N_DEFLATED-N_UNDEFLATED+1 + + IF ( MOD( LD, 6 ) .EQ. 0 ) THEN +* +* Exceptional shift. Chosen for no particularly good reason. +* + IF( ( REAL( MAXIT )*SAFMIN )*ABS( A( ISTOP, + $ ISTOP-1 ) ).LT.ABS( A( ISTOP-1, ISTOP-1 ) ) ) THEN + ESHIFT = A( ISTOP, ISTOP-1 )/B( ISTOP-1, ISTOP-1 ) + ELSE + ESHIFT = ESHIFT+CONE/( SAFMIN*REAL( MAXIT ) ) + END IF + ALPHA( SHIFTPOS ) = CONE + BETA( SHIFTPOS ) = ESHIFT + NS = 1 + END IF + +* +* Time for a QZ sweep +* + CALL CLAQZ3( ILSCHUR, ILQ, ILZ, N, ISTART2, ISTOP, NS, NBLOCK, + $ ALPHA( SHIFTPOS ), BETA( SHIFTPOS ), A, LDA, B, + $ LDB, Q, LDQ, Z, LDZ, WORK, NBLOCK, WORK( NBLOCK** + $ 2+1 ), NBLOCK, WORK( 2*NBLOCK**2+1 ), + $ LWORK-2*NBLOCK**2, SWEEP_INFO ) + + END DO + +* +* Call CHGEQZ to normalize the eigenvalue blocks and set the eigenvalues +* If all the eigenvalues have been found, CHGEQZ will not do any iterations +* and only normalize the blocks. In case of a rare convergence failure, +* the single shift might perform better. +* + 80 CALL CHGEQZ( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, LDB, + $ ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, RWORK, + $ NORM_INFO ) + + INFO = NORM_INFO + + END SUBROUTINE diff --git a/lapack-netlib/SRC/claqz1.f b/lapack-netlib/SRC/claqz1.f new file mode 100644 index 000000000..b89fe6e19 --- /dev/null +++ b/lapack-netlib/SRC/claqz1.f @@ -0,0 +1,247 @@ +*> \brief \b CLAQZ1 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download CLAQZ1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE CLAQZ1( ILQ, ILZ, K, ISTARTM, ISTOPM, IHI, A, LDA, B, +* $ LDB, NQ, QSTART, Q, LDQ, NZ, ZSTART, Z, LDZ ) +* IMPLICIT NONE +* +* Arguments +* LOGICAL, INTENT( IN ) :: ILQ, ILZ +* INTEGER, INTENT( IN ) :: K, LDA, LDB, LDQ, LDZ, ISTARTM, ISTOPM, +* $ NQ, NZ, QSTART, ZSTART, IHI +* COMPLEX :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), Z( LDZ, * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> CLAQZ1 chases a 1x1 shift bulge in a matrix pencil down a single position +*> \endverbatim +* +* +* Arguments: +* ========== +* +*> +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] K +*> \verbatim +*> K is INTEGER +*> Index indicating the position of the bulge. +*> On entry, the bulge is located in +*> (A(k+1,k),B(k+1,k)). +*> On exit, the bulge is located in +*> (A(k+2,k+1),B(k+2,k+1)). +*> \endverbatim +*> +*> \param[in] ISTARTM +*> \verbatim +*> ISTARTM is INTEGER +*> \endverbatim +*> +*> \param[in] ISTOPM +*> \verbatim +*> ISTOPM is INTEGER +*> Updates to (A,B) are restricted to +*> (istartm:k+2,k:istopm). It is assumed +*> without checking that istartm <= k+1 and +*> k+2 <= istopm +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> \endverbatim +*> +*> \param[inout] A +*> \verbatim +*> A is COMPLEX array, dimension (LDA,N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of A as declared in +*> the calling procedure. +*> \endverbatim +* +*> \param[inout] B +*> \verbatim +*> B is COMPLEX array, dimension (LDB,N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of B as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] NQ +*> \verbatim +*> NQ is INTEGER +*> The order of the matrix Q +*> \endverbatim +*> +*> \param[in] QSTART +*> \verbatim +*> QSTART is INTEGER +*> Start index of the matrix Q. Rotations are applied +*> To columns k+2-qStart:k+3-qStart of Q. +*> \endverbatim +* +*> \param[inout] Q +*> \verbatim +*> Q is COMPLEX array, dimension (LDQ,NQ) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> The leading dimension of Q as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] NZ +*> \verbatim +*> NZ is INTEGER +*> The order of the matrix Z +*> \endverbatim +*> +*> \param[in] ZSTART +*> \verbatim +*> ZSTART is INTEGER +*> Start index of the matrix Z. Rotations are applied +*> To columns k+1-qStart:k+2-qStart of Z. +*> \endverbatim +* +*> \param[inout] Z +*> \verbatim +*> Z is COMPLEX array, dimension (LDZ,NZ) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> The leading dimension of Q as declared in +*> the calling procedure. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup complexGEcomputational +*> +* ===================================================================== + SUBROUTINE CLAQZ1( ILQ, ILZ, K, ISTARTM, ISTOPM, IHI, A, LDA, B, + $ LDB, NQ, QSTART, Q, LDQ, NZ, ZSTART, Z, LDZ ) + IMPLICIT NONE +* +* Arguments + LOGICAL, INTENT( IN ) :: ILQ, ILZ + INTEGER, INTENT( IN ) :: K, LDA, LDB, LDQ, LDZ, ISTARTM, ISTOPM, + $ NQ, NZ, QSTART, ZSTART, IHI + COMPLEX :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), Z( LDZ, * ) +* +* Parameters + COMPLEX CZERO, CONE + PARAMETER ( CZERO = ( 0.0, 0.0 ), CONE = ( 1.0, 0.0 ) ) + REAL :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0, ONE = 1.0, HALF = 0.5 ) +* +* Local variables + REAL :: C + COMPLEX :: S, TEMP +* +* External Functions + EXTERNAL :: CLARTG, CROT +* + IF( K+1 .EQ. IHI ) THEN +* +* Shift is located on the edge of the matrix, remove it +* + CALL CLARTG( B( IHI, IHI ), B( IHI, IHI-1 ), C, S, TEMP ) + B( IHI, IHI ) = TEMP + B( IHI, IHI-1 ) = CZERO + CALL CROT( IHI-ISTARTM, B( ISTARTM, IHI ), 1, B( ISTARTM, + $ IHI-1 ), 1, C, S ) + CALL CROT( IHI-ISTARTM+1, A( ISTARTM, IHI ), 1, A( ISTARTM, + $ IHI-1 ), 1, C, S ) + IF ( ILZ ) THEN + CALL CROT( NZ, Z( 1, IHI-ZSTART+1 ), 1, Z( 1, IHI-1-ZSTART+ + $ 1 ), 1, C, S ) + END IF +* + ELSE +* +* Normal operation, move bulge down +* +* +* Apply transformation from the right +* + CALL CLARTG( B( K+1, K+1 ), B( K+1, K ), C, S, TEMP ) + B( K+1, K+1 ) = TEMP + B( K+1, K ) = CZERO + CALL CROT( K+2-ISTARTM+1, A( ISTARTM, K+1 ), 1, A( ISTARTM, + $ K ), 1, C, S ) + CALL CROT( K-ISTARTM+1, B( ISTARTM, K+1 ), 1, B( ISTARTM, K ), + $ 1, C, S ) + IF ( ILZ ) THEN + CALL CROT( NZ, Z( 1, K+1-ZSTART+1 ), 1, Z( 1, K-ZSTART+1 ), + $ 1, C, S ) + END IF +* +* Apply transformation from the left +* + CALL CLARTG( A( K+1, K ), A( K+2, K ), C, S, TEMP ) + A( K+1, K ) = TEMP + A( K+2, K ) = CZERO + CALL CROT( ISTOPM-K, A( K+1, K+1 ), LDA, A( K+2, K+1 ), LDA, C, + $ S ) + CALL CROT( ISTOPM-K, B( K+1, K+1 ), LDB, B( K+2, K+1 ), LDB, C, + $ S ) + IF ( ILQ ) THEN + CALL CROT( NQ, Q( 1, K+1-QSTART+1 ), 1, Q( 1, K+2-QSTART+ + $ 1 ), 1, C, CONJG( S ) ) + END IF +* + END IF +* +* End of CLAQZ1 +* + END SUBROUTINE \ No newline at end of file diff --git a/lapack-netlib/SRC/claqz2.f b/lapack-netlib/SRC/claqz2.f new file mode 100644 index 000000000..895e0095b --- /dev/null +++ b/lapack-netlib/SRC/claqz2.f @@ -0,0 +1,463 @@ +*> \brief \b CLAQZ2 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download CLAQZ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE CLAQZ2( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, A, LDA, B, +* $ LDB, Q, LDQ, Z, LDZ, NS, ND, ALPHA, BETA, QC, LDQC, ZC, LDZC, +* $ WORK, LWORK, RWORK, REC, INFO ) +* IMPLICIT NONE +* +* Arguments +* LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, NW, LDA, LDB, LDQ, LDZ, +* $ LDQC, LDZC, LWORK, REC +* +* COMPLEX, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), +* $ Z( LDZ, * ), ALPHA( * ), BETA( * ) +* INTEGER, INTENT( OUT ) :: NS, ND, INFO +* COMPLEX :: QC( LDQC, * ), ZC( LDZC, * ), WORK( * ) +* REAL :: RWORK( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> CLAQZ2 performs AED +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] ILSCHUR +*> \verbatim +*> ILSCHUR is LOGICAL +*> Determines whether or not to update the full Schur form +*> \endverbatim +*> +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> ILO and IHI mark the rows and columns of (A,B) which +*> are to be normalized +*> \endverbatim +*> +*> \param[in] NW +*> \verbatim +*> NW is INTEGER +*> The desired size of the deflation window. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is COMPLEX array, dimension (LDA, N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is COMPLEX array, dimension (LDB, N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is COMPLEX array, dimension (LDQ, N) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is COMPLEX array, dimension (LDZ, N) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] NS +*> \verbatim +*> NS is INTEGER +*> The number of unconverged eigenvalues available to +*> use as shifts. +*> \endverbatim +*> +*> \param[out] ND +*> \verbatim +*> ND is INTEGER +*> The number of converged eigenvalues found. +*> \endverbatim +*> +*> \param[out] ALPHA +*> \verbatim +*> ALPHA is COMPLEX array, dimension (N) +*> Each scalar alpha defining an eigenvalue +*> of GNEP. +*> \endverbatim +*> +*> \param[out] BETA +*> \verbatim +*> BETA is COMPLEX array, dimension (N) +*> The 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. Since either lambda or mu may overflow, +*> they should not, in general, be computed. +*> \endverbatim +*> +*> \param[in,out] QC +*> \verbatim +*> QC is COMPLEX array, dimension (LDQC, NW) +*> \endverbatim +*> +*> \param[in] LDQC +*> \verbatim +*> LDQC is INTEGER +*> \endverbatim +*> +*> \param[in,out] ZC +*> \verbatim +*> ZC is COMPLEX array, dimension (LDZC, NW) +*> \endverbatim +*> +*> \param[in] LDZC +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is COMPLEX array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> 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 +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[out] RWORK +*> \verbatim +*> RWORK is REAL array, dimension (N) +*> \endverbatim +*> +*> \param[in] REC +*> \verbatim +*> REC is INTEGER +*> REC indicates the current recursion level. Should be set +*> to 0 on first call. +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven, KU Leuven +* +*> \date May 2020 +* +*> \ingroup complexGEcomputational +*> +* ===================================================================== + RECURSIVE SUBROUTINE CLAQZ2( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, + $ A, LDA, B, LDB, Q, LDQ, Z, LDZ, NS, + $ ND, ALPHA, BETA, QC, LDQC, ZC, LDZC, + $ WORK, LWORK, RWORK, REC, INFO ) + IMPLICIT NONE + +* Arguments + LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, NW, LDA, LDB, LDQ, LDZ, + $ LDQC, LDZC, LWORK, REC + + COMPLEX, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), + $ Z( LDZ, * ), ALPHA( * ), BETA( * ) + INTEGER, INTENT( OUT ) :: NS, ND, INFO + COMPLEX :: QC( LDQC, * ), ZC( LDZC, * ), WORK( * ) + REAL :: RWORK( * ) + +* Parameters + COMPLEX CZERO, CONE + PARAMETER ( CZERO = ( 0.0, 0.0 ), CONE = ( 1.0, 0.0 ) ) + REAL :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0, ONE = 1.0, HALF = 0.5 ) + +* Local Scalars + INTEGER :: JW, KWTOP, KWBOT, ISTOPM, ISTARTM, K, K2, CTGEXC_INFO, + $ IFST, ILST, LWORKREQ, QZ_SMALL_INFO + REAL :: SMLNUM, ULP, SAFMIN, SAFMAX, C1, TEMPR + COMPLEX :: S, S1, TEMP + +* External Functions + EXTERNAL :: XERBLA, CLAQZ0, CLAQZ1, SLABAD, CLACPY, CLASET, CGEMM, + $ CTGEXC, CLARTG, CROT + REAL, EXTERNAL :: SLAMCH + + INFO = 0 + +* Set up deflation window + JW = MIN( NW, IHI-ILO+1 ) + KWTOP = IHI-JW+1 + IF ( KWTOP .EQ. ILO ) THEN + S = CZERO + ELSE + S = A( KWTOP, KWTOP-1 ) + END IF + +* Determine required workspace + IFST = 1 + ILST = JW + CALL CLAQZ0( 'S', 'V', 'V', JW, 1, JW, A( KWTOP, KWTOP ), LDA, + $ B( KWTOP, KWTOP ), LDB, ALPHA, BETA, QC, LDQC, ZC, + $ LDZC, WORK, -1, RWORK, REC+1, QZ_SMALL_INFO ) + LWORKREQ = INT( WORK( 1 ) )+2*JW**2 + LWORKREQ = MAX( LWORKREQ, N*NW, 2*NW**2+N ) + IF ( LWORK .EQ.-1 ) THEN +* workspace query, quick return + WORK( 1 ) = LWORKREQ + RETURN + ELSE IF ( LWORK .LT. LWORKREQ ) THEN + INFO = -26 + END IF + + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'CLAQZ2', -INFO ) + RETURN + END IF + +* Get machine constants + SAFMIN = SLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL SLABAD( SAFMIN, SAFMAX ) + ULP = SLAMCH( 'PRECISION' ) + SMLNUM = SAFMIN*( REAL( N )/ULP ) + + IF ( IHI .EQ. KWTOP ) THEN +* 1 by 1 deflation window, just try a regular deflation + ALPHA( KWTOP ) = A( KWTOP, KWTOP ) + BETA( KWTOP ) = B( KWTOP, KWTOP ) + NS = 1 + ND = 0 + IF ( ABS( S ) .LE. MAX( SMLNUM, ULP*ABS( A( KWTOP, + $ KWTOP ) ) ) ) THEN + NS = 0 + ND = 1 + IF ( KWTOP .GT. ILO ) THEN + A( KWTOP, KWTOP-1 ) = CZERO + END IF + END IF + END IF + + +* Store window in case of convergence failure + CALL CLACPY( 'ALL', JW, JW, A( KWTOP, KWTOP ), LDA, WORK, JW ) + CALL CLACPY( 'ALL', JW, JW, B( KWTOP, KWTOP ), LDB, WORK( JW**2+ + $ 1 ), JW ) + +* Transform window to real schur form + CALL CLASET( 'FULL', JW, JW, CZERO, CONE, QC, LDQC ) + CALL CLASET( 'FULL', JW, JW, CZERO, CONE, ZC, LDZC ) + CALL CLAQZ0( 'S', 'V', 'V', JW, 1, JW, A( KWTOP, KWTOP ), LDA, + $ B( KWTOP, KWTOP ), LDB, ALPHA, BETA, QC, LDQC, ZC, + $ LDZC, WORK( 2*JW**2+1 ), LWORK-2*JW**2, RWORK, + $ REC+1, QZ_SMALL_INFO ) + + IF( QZ_SMALL_INFO .NE. 0 ) THEN +* Convergence failure, restore the window and exit + ND = 0 + NS = JW-QZ_SMALL_INFO + CALL CLACPY( 'ALL', JW, JW, WORK, JW, A( KWTOP, KWTOP ), LDA ) + CALL CLACPY( 'ALL', JW, JW, WORK( JW**2+1 ), JW, B( KWTOP, + $ KWTOP ), LDB ) + RETURN + END IF + +* Deflation detection loop + IF ( KWTOP .EQ. ILO .OR. S .EQ. CZERO ) THEN + KWBOT = KWTOP-1 + ELSE + KWBOT = IHI + K = 1 + K2 = 1 + DO WHILE ( K .LE. JW ) +* Try to deflate eigenvalue + TEMPR = ABS( A( KWBOT, KWBOT ) ) + IF( TEMPR .EQ. ZERO ) THEN + TEMPR = ABS( S ) + END IF + IF ( ( ABS( S*QC( 1, KWBOT-KWTOP+1 ) ) ) .LE. MAX( ULP* + $ TEMPR, SMLNUM ) ) THEN +* Deflatable + KWBOT = KWBOT-1 + ELSE +* Not deflatable, move out of the way + IFST = KWBOT-KWTOP+1 + ILST = K2 + CALL CTGEXC( .TRUE., .TRUE., JW, A( KWTOP, KWTOP ), + $ LDA, B( KWTOP, KWTOP ), LDB, QC, LDQC, + $ ZC, LDZC, IFST, ILST, CTGEXC_INFO ) + K2 = K2+1 + END IF + + K = K+1 + END DO + END IF + +* Store eigenvalues + ND = IHI-KWBOT + NS = JW-ND + K = KWTOP + DO WHILE ( K .LE. IHI ) + ALPHA( K ) = A( K, K ) + BETA( K ) = B( K, K ) + K = K+1 + END DO + + IF ( KWTOP .NE. ILO .AND. S .NE. CZERO ) THEN +* Reflect spike back, this will create optimally packed bulges + A( KWTOP:KWBOT, KWTOP-1 ) = A( KWTOP, KWTOP-1 ) *CONJG( QC( 1, + $ 1:JW-ND ) ) + DO K = KWBOT-1, KWTOP, -1 + CALL CLARTG( A( K, KWTOP-1 ), A( K+1, KWTOP-1 ), C1, S1, + $ TEMP ) + A( K, KWTOP-1 ) = TEMP + A( K+1, KWTOP-1 ) = CZERO + K2 = MAX( KWTOP, K-1 ) + CALL CROT( IHI-K2+1, A( K, K2 ), LDA, A( K+1, K2 ), LDA, C1, + $ S1 ) + CALL CROT( IHI-( K-1 )+1, B( K, K-1 ), LDB, B( K+1, K-1 ), + $ LDB, C1, S1 ) + CALL CROT( JW, QC( 1, K-KWTOP+1 ), 1, QC( 1, K+1-KWTOP+1 ), + $ 1, C1, CONJG( S1 ) ) + END DO + +* Chase bulges down + ISTARTM = KWTOP + ISTOPM = IHI + K = KWBOT-1 + DO WHILE ( K .GE. KWTOP ) + +* Move bulge down and remove it + DO K2 = K, KWBOT-1 + CALL CLAQZ1( .TRUE., .TRUE., K2, KWTOP, KWTOP+JW-1, + $ KWBOT, A, LDA, B, LDB, JW, KWTOP, QC, LDQC, + $ JW, KWTOP, ZC, LDZC ) + END DO + + K = K-1 + END DO + + END IF + +* Apply Qc and Zc to rest of the matrix + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ILO + ISTOPM = IHI + END IF + + IF ( ISTOPM-IHI > 0 ) THEN + CALL CGEMM( 'C', 'N', JW, ISTOPM-IHI, JW, CONE, QC, LDQC, + $ A( KWTOP, IHI+1 ), LDA, CZERO, WORK, JW ) + CALL CLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, A( KWTOP, + $ IHI+1 ), LDA ) + CALL CGEMM( 'C', 'N', JW, ISTOPM-IHI, JW, CONE, QC, LDQC, + $ B( KWTOP, IHI+1 ), LDB, CZERO, WORK, JW ) + CALL CLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, B( KWTOP, + $ IHI+1 ), LDB ) + END IF + IF ( ILQ ) THEN + CALL CGEMM( 'N', 'N', N, JW, JW, CONE, Q( 1, KWTOP ), LDQ, QC, + $ LDQC, CZERO, WORK, N ) + CALL CLACPY( 'ALL', N, JW, WORK, N, Q( 1, KWTOP ), LDQ ) + END IF + + IF ( KWTOP-1-ISTARTM+1 > 0 ) THEN + CALL CGEMM( 'N', 'N', KWTOP-ISTARTM, JW, JW, CONE, A( ISTARTM, + $ KWTOP ), LDA, ZC, LDZC, CZERO, WORK, + $ KWTOP-ISTARTM ) + CALL CLACPY( 'ALL', KWTOP-ISTARTM, JW, WORK, KWTOP-ISTARTM, + $ A( ISTARTM, KWTOP ), LDA ) + CALL CGEMM( 'N', 'N', KWTOP-ISTARTM, JW, JW, CONE, B( ISTARTM, + $ KWTOP ), LDB, ZC, LDZC, CZERO, WORK, + $ KWTOP-ISTARTM ) + CALL CLACPY( 'ALL', KWTOP-ISTARTM, JW, WORK, KWTOP-ISTARTM, + $ B( ISTARTM, KWTOP ), LDB ) + END IF + IF ( ILZ ) THEN + CALL CGEMM( 'N', 'N', N, JW, JW, CONE, Z( 1, KWTOP ), LDZ, ZC, + $ LDZC, CZERO, WORK, N ) + CALL CLACPY( 'ALL', N, JW, WORK, N, Z( 1, KWTOP ), LDZ ) + END IF + + END SUBROUTINE diff --git a/lapack-netlib/SRC/claqz3.f b/lapack-netlib/SRC/claqz3.f new file mode 100644 index 000000000..fecba656d --- /dev/null +++ b/lapack-netlib/SRC/claqz3.f @@ -0,0 +1,511 @@ +*> \brief \b CLAQZ3 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download CLAQZ3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE CLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSHIFTS, +* $ NBLOCK_DESIRED, ALPHA, BETA, A, LDA, B, LDB, Q, LDQ, Z, LDZ, +* $ QC, LDQC, ZC, LDZC, WORK, LWORK, INFO ) +* IMPLICIT NONE +* +* Function arguments +* LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, +* $ NSHIFTS, NBLOCK_DESIRED, LDQC, LDZC +* +* COMPLEX, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), +* $ Z( LDZ, * ), QC( LDQC, * ), ZC( LDZC, * ), WORK( * ), +* $ ALPHA( * ), BETA( * ) +* +* INTEGER, INTENT( OUT ) :: INFO +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> CLAQZ3 Executes a single multishift QZ sweep +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] ILSCHUR +*> \verbatim +*> ILSCHUR is LOGICAL +*> Determines whether or not to update the full Schur form +*> \endverbatim +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> \endverbatim +*> +*> \param[in] NSHIFTS +*> \verbatim +*> NSHIFTS is INTEGER +*> The desired number of shifts to use +*> \endverbatim +*> +*> \param[in] NBLOCK_DESIRED +*> \verbatim +*> NBLOCK_DESIRED is INTEGER +*> The desired size of the computational windows +*> \endverbatim +*> +*> \param[in] ALPHA +*> \verbatim +*> ALPHA is COMPLEX array. SR contains +*> the alpha parts of the shifts to use. +*> \endverbatim +*> +*> \param[in] BETA +*> \verbatim +*> BETA is COMPLEX array. SS contains +*> the scale of the shifts to use. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is COMPLEX array, dimension (LDA, N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is COMPLEX array, dimension (LDB, N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is COMPLEX array, dimension (LDQ, N) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is COMPLEX array, dimension (LDZ, N) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[in,out] QC +*> \verbatim +*> QC is COMPLEX array, dimension (LDQC, NBLOCK_DESIRED) +*> \endverbatim +*> +*> \param[in] LDQC +*> \verbatim +*> LDQC is INTEGER +*> \endverbatim +*> +*> \param[in,out] ZC +*> \verbatim +*> ZC is COMPLEX array, dimension (LDZC, NBLOCK_DESIRED) +*> \endverbatim +*> +*> \param[in] LDZC +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is COMPLEX array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> 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 +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup complexGEcomputational +*> +* ===================================================================== + SUBROUTINE CLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSHIFTS, + $ NBLOCK_DESIRED, ALPHA, BETA, A, LDA, B, LDB, + $ Q, LDQ, Z, LDZ, QC, LDQC, ZC, LDZC, WORK, + $ LWORK, INFO ) + IMPLICIT NONE + +* Function arguments + LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, + $ NSHIFTS, NBLOCK_DESIRED, LDQC, LDZC + + COMPLEX, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), + $ Z( LDZ, * ), QC( LDQC, * ), ZC( LDZC, * ), WORK( * ), + $ ALPHA( * ), BETA( * ) + + INTEGER, INTENT( OUT ) :: INFO + +* Parameters + COMPLEX CZERO, CONE + PARAMETER ( CZERO = ( 0.0, 0.0 ), CONE = ( 1.0, 0.0 ) ) + REAL :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0, ONE = 1.0, HALF = 0.5 ) + +* Local scalars + INTEGER :: I, J, NS, ISTARTM, ISTOPM, SHEIGHT, SWIDTH, K, NP, + $ ISTARTB, ISTOPB, ISHIFT, NBLOCK, NPOS + REAL :: SAFMIN, SAFMAX, C, SCALE + COMPLEX :: TEMP, TEMP2, TEMP3, S + +* External Functions + EXTERNAL :: XERBLA, SLABAD, CLASET, CLARTG, CROT, CLAQZ1, CGEMM, + $ CLACPY + REAL, EXTERNAL :: SLAMCH + + INFO = 0 + IF ( NBLOCK_DESIRED .LT. NSHIFTS+1 ) THEN + INFO = -8 + END IF + IF ( LWORK .EQ.-1 ) THEN +* workspace query, quick return + WORK( 1 ) = N*NBLOCK_DESIRED + RETURN + ELSE IF ( LWORK .LT. N*NBLOCK_DESIRED ) THEN + INFO = -25 + END IF + + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'CLAQZ3', -INFO ) + RETURN + END IF + +* +* Executable statements +* + +* Get machine constants + SAFMIN = SLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL SLABAD( SAFMIN, SAFMAX ) + + IF ( ILO .GE. IHI ) THEN + RETURN + END IF + + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ILO + ISTOPM = IHI + END IF + + NS = NSHIFTS + NPOS = MAX( NBLOCK_DESIRED-NS, 1 ) + + +* The following block introduces the shifts and chases +* them down one by one just enough to make space for +* the other shifts. The near-the-diagonal block is +* of size (ns+1) x ns. + + CALL CLASET( 'FULL', NS+1, NS+1, CZERO, CONE, QC, LDQC ) + CALL CLASET( 'FULL', NS, NS, CZERO, CONE, ZC, LDZC ) + + DO I = 1, NS +* Introduce the shift + SCALE = SQRT( ABS( ALPHA( I ) ) ) * SQRT( ABS( BETA( I ) ) ) + IF( SCALE .GE. SAFMIN .AND. SCALE .LE. SAFMAX ) THEN + ALPHA( I ) = ALPHA( I )/SCALE + BETA( I ) = BETA( I )/SCALE + END IF + + TEMP2 = BETA( I )*A( ILO, ILO )-ALPHA( I )*B( ILO, ILO ) + TEMP3 = BETA( I )*A( ILO+1, ILO ) + + IF ( ABS( TEMP2 ) .GT. SAFMAX .OR. + $ ABS( TEMP3 ) .GT. SAFMAX ) THEN + TEMP2 = CONE + TEMP3 = CZERO + END IF + + CALL CLARTG( TEMP2, TEMP3, C, S, TEMP ) + CALL CROT( NS, A( ILO, ILO ), LDA, A( ILO+1, ILO ), LDA, C, + $ S ) + CALL CROT( NS, B( ILO, ILO ), LDB, B( ILO+1, ILO ), LDB, C, + $ S ) + CALL CROT( NS+1, QC( 1, 1 ), 1, QC( 1, 2 ), 1, C, CONJG( S ) ) + +* Chase the shift down + DO J = 1, NS-I + + CALL CLAQZ1( .TRUE., .TRUE., J, 1, NS, IHI-ILO+1, A( ILO, + $ ILO ), LDA, B( ILO, ILO ), LDB, NS+1, 1, QC, + $ LDQC, NS, 1, ZC, LDZC ) + + END DO + + END DO + +* Update the rest of the pencil + +* Update A(ilo:ilo+ns,ilo+ns:istopm) and B(ilo:ilo+ns,ilo+ns:istopm) +* from the left with Qc(1:ns+1,1:ns+1)' + SHEIGHT = NS+1 + SWIDTH = ISTOPM-( ILO+NS )+1 + IF ( SWIDTH > 0 ) THEN + CALL CGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, LDQC, + $ A( ILO, ILO+NS ), LDA, CZERO, WORK, SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ILO, + $ ILO+NS ), LDA ) + CALL CGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, LDQC, + $ B( ILO, ILO+NS ), LDB, CZERO, WORK, SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ILO, + $ ILO+NS ), LDB ) + END IF + IF ( ILQ ) THEN + CALL CGEMM( 'N', 'N', N, SHEIGHT, SHEIGHT, CONE, Q( 1, ILO ), + $ LDQ, QC, LDQC, CZERO, WORK, N ) + CALL CLACPY( 'ALL', N, SHEIGHT, WORK, N, Q( 1, ILO ), LDQ ) + END IF + +* Update A(istartm:ilo-1,ilo:ilo+ns-1) and B(istartm:ilo-1,ilo:ilo+ns-1) +* from the right with Zc(1:ns,1:ns) + SHEIGHT = ILO-1-ISTARTM+1 + SWIDTH = NS + IF ( SHEIGHT > 0 ) THEN + CALL CGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ A( ISTARTM, ILO ), LDA, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ISTARTM, + $ ILO ), LDA ) + CALL CGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ B( ISTARTM, ILO ), LDB, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ISTARTM, + $ ILO ), LDB ) + END IF + IF ( ILZ ) THEN + CALL CGEMM( 'N', 'N', N, SWIDTH, SWIDTH, CONE, Z( 1, ILO ), + $ LDZ, ZC, LDZC, CZERO, WORK, N ) + CALL CLACPY( 'ALL', N, SWIDTH, WORK, N, Z( 1, ILO ), LDZ ) + END IF + +* The following block chases the shifts down to the bottom +* right block. If possible, a shift is moved down npos +* positions at a time + + K = ILO + DO WHILE ( K < IHI-NS ) + NP = MIN( IHI-NS-K, NPOS ) +* Size of the near-the-diagonal block + NBLOCK = NS+NP +* istartb points to the first row we will be updating + ISTARTB = K+1 +* istopb points to the last column we will be updating + ISTOPB = K+NBLOCK-1 + + CALL CLASET( 'FULL', NS+NP, NS+NP, CZERO, CONE, QC, LDQC ) + CALL CLASET( 'FULL', NS+NP, NS+NP, CZERO, CONE, ZC, LDZC ) + +* Near the diagonal shift chase + DO I = NS-1, 0, -1 + DO J = 0, NP-1 +* Move down the block with index k+i+j, updating +* the (ns+np x ns+np) block: +* (k:k+ns+np,k:k+ns+np-1) + CALL CLAQZ1( .TRUE., .TRUE., K+I+J, ISTARTB, ISTOPB, IHI, + $ A, LDA, B, LDB, NBLOCK, K+1, QC, LDQC, + $ NBLOCK, K, ZC, LDZC ) + END DO + END DO + +* Update rest of the pencil + +* Update A(k+1:k+ns+np, k+ns+np:istopm) and +* B(k+1:k+ns+np, k+ns+np:istopm) +* from the left with Qc(1:ns+np,1:ns+np)' + SHEIGHT = NS+NP + SWIDTH = ISTOPM-( K+NS+NP )+1 + IF ( SWIDTH > 0 ) THEN + CALL CGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, + $ LDQC, A( K+1, K+NS+NP ), LDA, CZERO, WORK, + $ SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( K+1, + $ K+NS+NP ), LDA ) + CALL CGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, + $ LDQC, B( K+1, K+NS+NP ), LDB, CZERO, WORK, + $ SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( K+1, + $ K+NS+NP ), LDB ) + END IF + IF ( ILQ ) THEN + CALL CGEMM( 'N', 'N', N, NBLOCK, NBLOCK, CONE, Q( 1, K+1 ), + $ LDQ, QC, LDQC, CZERO, WORK, N ) + CALL CLACPY( 'ALL', N, NBLOCK, WORK, N, Q( 1, K+1 ), LDQ ) + END IF + +* Update A(istartm:k,k:k+ns+npos-1) and B(istartm:k,k:k+ns+npos-1) +* from the right with Zc(1:ns+np,1:ns+np) + SHEIGHT = K-ISTARTM+1 + SWIDTH = NBLOCK + IF ( SHEIGHT > 0 ) THEN + CALL CGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ A( ISTARTM, K ), LDA, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ A( ISTARTM, K ), LDA ) + CALL CGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ B( ISTARTM, K ), LDB, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ B( ISTARTM, K ), LDB ) + END IF + IF ( ILZ ) THEN + CALL CGEMM( 'N', 'N', N, NBLOCK, NBLOCK, CONE, Z( 1, K ), + $ LDZ, ZC, LDZC, CZERO, WORK, N ) + CALL CLACPY( 'ALL', N, NBLOCK, WORK, N, Z( 1, K ), LDZ ) + END IF + + K = K+NP + + END DO + +* The following block removes the shifts from the bottom right corner +* one by one. Updates are initially applied to A(ihi-ns+1:ihi,ihi-ns:ihi). + + CALL CLASET( 'FULL', NS, NS, CZERO, CONE, QC, LDQC ) + CALL CLASET( 'FULL', NS+1, NS+1, CZERO, CONE, ZC, LDZC ) + +* istartb points to the first row we will be updating + ISTARTB = IHI-NS+1 +* istopb points to the last column we will be updating + ISTOPB = IHI + + DO I = 1, NS +* Chase the shift down to the bottom right corner + DO ISHIFT = IHI-I, IHI-1 + CALL CLAQZ1( .TRUE., .TRUE., ISHIFT, ISTARTB, ISTOPB, IHI, + $ A, LDA, B, LDB, NS, IHI-NS+1, QC, LDQC, NS+1, + $ IHI-NS, ZC, LDZC ) + END DO + + END DO + +* Update rest of the pencil + +* Update A(ihi-ns+1:ihi, ihi+1:istopm) +* from the left with Qc(1:ns,1:ns)' + SHEIGHT = NS + SWIDTH = ISTOPM-( IHI+1 )+1 + IF ( SWIDTH > 0 ) THEN + CALL CGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, LDQC, + $ A( IHI-NS+1, IHI+1 ), LDA, CZERO, WORK, SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ A( IHI-NS+1, IHI+1 ), LDA ) + CALL CGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, LDQC, + $ B( IHI-NS+1, IHI+1 ), LDB, CZERO, WORK, SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ B( IHI-NS+1, IHI+1 ), LDB ) + END IF + IF ( ILQ ) THEN + CALL CGEMM( 'N', 'N', N, NS, NS, CONE, Q( 1, IHI-NS+1 ), LDQ, + $ QC, LDQC, CZERO, WORK, N ) + CALL CLACPY( 'ALL', N, NS, WORK, N, Q( 1, IHI-NS+1 ), LDQ ) + END IF + +* Update A(istartm:ihi-ns,ihi-ns:ihi) +* from the right with Zc(1:ns+1,1:ns+1) + SHEIGHT = IHI-NS-ISTARTM+1 + SWIDTH = NS+1 + IF ( SHEIGHT > 0 ) THEN + CALL CGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ A( ISTARTM, IHI-NS ), LDA, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ISTARTM, + $ IHI-NS ), LDA ) + CALL CGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ B( ISTARTM, IHI-NS ), LDB, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL CLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ISTARTM, + $ IHI-NS ), LDB ) + END IF + IF ( ILZ ) THEN + CALL CGEMM( 'N', 'N', N, NS+1, NS+1, CONE, Z( 1, IHI-NS ), LDZ, + $ ZC, LDZC, CZERO, WORK, N ) + CALL CLACPY( 'ALL', N, NS+1, WORK, N, Z( 1, IHI-NS ), LDZ ) + END IF + + END SUBROUTINE diff --git a/lapack-netlib/SRC/clar1v.f b/lapack-netlib/SRC/clar1v.f index 972c82cc7..f8d6531c3 100644 --- a/lapack-netlib/SRC/clar1v.f +++ b/lapack-netlib/SRC/clar1v.f @@ -212,8 +212,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -230,10 +228,9 @@ $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL WANTNC diff --git a/lapack-netlib/SRC/clar2v.f b/lapack-netlib/SRC/clar2v.f index 8dd17164f..e293a7cab 100644 --- a/lapack-netlib/SRC/clar2v.f +++ b/lapack-netlib/SRC/clar2v.f @@ -104,17 +104,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAR2V( N, X, Y, Z, INCX, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, N diff --git a/lapack-netlib/SRC/clarcm.f b/lapack-netlib/SRC/clarcm.f index b22af2da5..4ad956391 100644 --- a/lapack-netlib/SRC/clarcm.f +++ b/lapack-netlib/SRC/clarcm.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARCM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, M, N diff --git a/lapack-netlib/SRC/clarf.f b/lapack-netlib/SRC/clarf.f index 72140d52a..b76841f59 100644 --- a/lapack-netlib/SRC/clarf.f +++ b/lapack-netlib/SRC/clarf.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/clarfb.f b/lapack-netlib/SRC/clarfb.f index a4d429c09..3dcadb187 100644 --- a/lapack-netlib/SRC/clarfb.f +++ b/lapack-netlib/SRC/clarfb.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2013 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -197,10 +195,9 @@ SUBROUTINE CLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, $ T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2013 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/clarfg.f b/lapack-netlib/SRC/clarfg.f index d54c227bc..36a98f589 100644 --- a/lapack-netlib/SRC/clarfg.f +++ b/lapack-netlib/SRC/clarfg.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARFG( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/clarfgp.f b/lapack-netlib/SRC/clarfgp.f index 19e48cccd..b584484c7 100644 --- a/lapack-netlib/SRC/clarfgp.f +++ b/lapack-netlib/SRC/clarfgp.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARFGP( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INCX, N @@ -238,7 +235,7 @@ DO J = 1, N-1 X( 1 + (J-1)*INCX ) = ZERO END DO - BETA = -SAVEALPHA + BETA = REAL( -SAVEALPHA ) END IF ELSE XNORM = SLAPY2( ALPHR, ALPHI ) diff --git a/lapack-netlib/SRC/clarft.f b/lapack-netlib/SRC/clarft.f index 296467a9f..fdf80b78e 100644 --- a/lapack-netlib/SRC/clarft.f +++ b/lapack-netlib/SRC/clarft.f @@ -130,8 +130,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -163,10 +161,9 @@ * ===================================================================== SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/lapack-netlib/SRC/clarfx.f b/lapack-netlib/SRC/clarfx.f index ad284883d..6a39094b8 100644 --- a/lapack-netlib/SRC/clarfx.f +++ b/lapack-netlib/SRC/clarfx.f @@ -112,17 +112,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/clarfy.f b/lapack-netlib/SRC/clarfy.f index fccd136a8..77292757b 100644 --- a/lapack-netlib/SRC/clarfy.f +++ b/lapack-netlib/SRC/clarfy.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clargv.f b/lapack-netlib/SRC/clargv.f index 36c5108df..82a77b442 100644 --- a/lapack-netlib/SRC/clargv.f +++ b/lapack-netlib/SRC/clargv.f @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -122,10 +120,9 @@ * ===================================================================== SUBROUTINE CLARGV( N, X, INCX, Y, INCY, C, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/lapack-netlib/SRC/clarnv.f b/lapack-netlib/SRC/clarnv.f index 9b26f4fd1..6d71d2b53 100644 --- a/lapack-netlib/SRC/clarnv.f +++ b/lapack-netlib/SRC/clarnv.f @@ -81,8 +81,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -99,10 +97,9 @@ * ===================================================================== SUBROUTINE CLARNV( IDIST, ISEED, N, X ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, N @@ -120,7 +117,7 @@ INTEGER LV PARAMETER ( LV = 128 ) REAL TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) * .. * .. Local Scalars .. INTEGER I, IL, IV diff --git a/lapack-netlib/SRC/clarrv.f b/lapack-netlib/SRC/clarrv.f index 26a9febc8..d2a03fd24 100644 --- a/lapack-netlib/SRC/clarrv.f +++ b/lapack-netlib/SRC/clarrv.f @@ -266,8 +266,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -286,10 +284,9 @@ $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER DOL, DOU, INFO, LDZ, M, N diff --git a/lapack-netlib/SRC/clarscl2.f b/lapack-netlib/SRC/clarscl2.f index e7c1c215d..26b028dbb 100644 --- a/lapack-netlib/SRC/clarscl2.f +++ b/lapack-netlib/SRC/clarscl2.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CLARSCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/lapack-netlib/SRC/clartg.f b/lapack-netlib/SRC/clartg.f deleted file mode 100644 index baa68b657..000000000 --- a/lapack-netlib/SRC/clartg.f +++ /dev/null @@ -1,250 +0,0 @@ -*> \brief \b CLARTG generates a plane rotation with real cosine and complex sine. -* -* =========== DOCUMENTATION =========== -* -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ -* -*> \htmlonly -*> Download CLARTG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> -*> [TXT] -*> \endhtmlonly -* -* Definition: -* =========== -* -* SUBROUTINE CLARTG( F, G, CS, SN, R ) -* -* .. Scalar Arguments .. -* REAL CS -* COMPLEX F, G, R, SN -* .. -* -* -*> \par Purpose: -* ============= -*> -*> \verbatim -*> -*> CLARTG generates a plane rotation so that -*> -*> [ CS SN ] [ F ] [ R ] -*> [ __ ] . [ ] = [ ] where CS**2 + |SN|**2 = 1. -*> [ -SN CS ] [ G ] [ 0 ] -*> -*> This is a faster version of the BLAS1 routine CROTG, except for -*> the following differences: -*> F and G are unchanged on return. -*> If G=0, then CS=1 and SN=0. -*> If F=0, then CS=0 and SN is chosen so that R is real. -*> \endverbatim -* -* Arguments: -* ========== -* -*> \param[in] F -*> \verbatim -*> F is COMPLEX -*> The first component of vector to be rotated. -*> \endverbatim -*> -*> \param[in] G -*> \verbatim -*> G is COMPLEX -*> The second component of vector to be rotated. -*> \endverbatim -*> -*> \param[out] CS -*> \verbatim -*> CS is REAL -*> The cosine of the rotation. -*> \endverbatim -*> -*> \param[out] SN -*> \verbatim -*> SN is COMPLEX -*> The sine of the rotation. -*> \endverbatim -*> -*> \param[out] R -*> \verbatim -*> R is COMPLEX -*> The nonzero component of the rotated vector. -*> \endverbatim -* -* Authors: -* ======== -* -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. -* -*> \date December 2016 -* -*> \ingroup complexOTHERauxiliary -* -*> \par Further Details: -* ===================== -*> -*> \verbatim -*> -*> 3-5-96 - Modified with a new algorithm by W. Kahan and J. Demmel -*> -*> This version has a few statements commented out for thread safety -*> (machine parameters are computed on each entry). 10 feb 03, SJH. -*> \endverbatim -*> -* ===================================================================== - SUBROUTINE CLARTG( F, G, CS, SN, R ) -* -* -- LAPACK auxiliary routine (version 3.7.0) -- -* -- LAPACK is a software package provided by Univ. of Tennessee, -- -* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 -* -* .. Scalar Arguments .. - REAL CS - COMPLEX F, G, R, SN -* .. -* -* ===================================================================== -* -* .. Parameters .. - REAL TWO, ONE, ZERO - PARAMETER ( TWO = 2.0E+0, ONE = 1.0E+0, ZERO = 0.0E+0 ) - COMPLEX CZERO - PARAMETER ( CZERO = ( 0.0E+0, 0.0E+0 ) ) -* .. -* .. Local Scalars .. -* LOGICAL FIRST - INTEGER COUNT, I - REAL D, DI, DR, EPS, F2, F2S, G2, G2S, SAFMIN, - $ SAFMN2, SAFMX2, SCALE - COMPLEX FF, FS, GS -* .. -* .. External Functions .. - REAL SLAMCH, SLAPY2 - LOGICAL SISNAN - EXTERNAL SLAMCH, SLAPY2, SISNAN -* .. -* .. Intrinsic Functions .. - INTRINSIC ABS, AIMAG, CMPLX, CONJG, INT, LOG, MAX, REAL, - $ SQRT -* .. -* .. Statement Functions .. - REAL ABS1, ABSSQ -* .. -* .. Statement Function definitions .. - ABS1( FF ) = MAX( ABS( REAL( FF ) ), ABS( AIMAG( FF ) ) ) - ABSSQ( FF ) = REAL( FF )**2 + AIMAG( FF )**2 -* .. -* .. Executable Statements .. -* - SAFMIN = SLAMCH( 'S' ) - EPS = SLAMCH( 'E' ) - SAFMN2 = SLAMCH( 'B' )**INT( LOG( SAFMIN / EPS ) / - $ LOG( SLAMCH( 'B' ) ) / TWO ) - SAFMX2 = ONE / SAFMN2 - SCALE = MAX( ABS1( F ), ABS1( G ) ) - FS = F - GS = G - COUNT = 0 - IF( SCALE.GE.SAFMX2 ) THEN - 10 CONTINUE - COUNT = COUNT + 1 - FS = FS*SAFMN2 - GS = GS*SAFMN2 - SCALE = SCALE*SAFMN2 - IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20) - $ GO TO 10 - ELSE IF( SCALE.LE.SAFMN2 ) THEN - IF( G.EQ.CZERO.OR.SISNAN( ABS( G ) ) ) THEN - CS = ONE - SN = CZERO - R = F - RETURN - END IF - 20 CONTINUE - COUNT = COUNT - 1 - FS = FS*SAFMX2 - GS = GS*SAFMX2 - SCALE = SCALE*SAFMX2 - IF( SCALE.LE.SAFMN2 ) - $ GO TO 20 - END IF - F2 = ABSSQ( FS ) - G2 = ABSSQ( GS ) - IF( F2.LE.MAX( G2, ONE )*SAFMIN ) THEN -* -* This is a rare case: F is very small. -* - IF( F.EQ.CZERO ) THEN - CS = ZERO - R = SLAPY2( REAL( G ), AIMAG( G ) ) -* Do complex/real division explicitly with two real divisions - D = SLAPY2( REAL( GS ), AIMAG( GS ) ) - SN = CMPLX( REAL( GS ) / D, -AIMAG( GS ) / D ) - RETURN - END IF - F2S = SLAPY2( REAL( FS ), AIMAG( FS ) ) -* G2 and G2S are accurate -* G2 is at least SAFMIN, and G2S is at least SAFMN2 - G2S = SQRT( G2 ) -* Error in CS from underflow in F2S is at most -* UNFL / SAFMN2 .lt. sqrt(UNFL*EPS) .lt. EPS -* If MAX(G2,ONE)=G2, then F2 .lt. G2*SAFMIN, -* and so CS .lt. sqrt(SAFMIN) -* If MAX(G2,ONE)=ONE, then F2 .lt. SAFMIN -* and so CS .lt. sqrt(SAFMIN)/SAFMN2 = sqrt(EPS) -* Therefore, CS = F2S/G2S / sqrt( 1 + (F2S/G2S)**2 ) = F2S/G2S - CS = F2S / G2S -* Make sure abs(FF) = 1 -* Do complex/real division explicitly with 2 real divisions - IF( ABS1( F ).GT.ONE ) THEN - D = SLAPY2( REAL( F ), AIMAG( F ) ) - FF = CMPLX( REAL( F ) / D, AIMAG( F ) / D ) - ELSE - DR = SAFMX2*REAL( F ) - DI = SAFMX2*AIMAG( F ) - D = SLAPY2( DR, DI ) - FF = CMPLX( DR / D, DI / D ) - END IF - SN = FF*CMPLX( REAL( GS ) / G2S, -AIMAG( GS ) / G2S ) - R = CS*F + SN*G - ELSE -* -* This is the most common case. -* Neither F2 nor F2/G2 are less than SAFMIN -* F2S cannot overflow, and it is accurate -* - F2S = SQRT( ONE+G2 / F2 ) -* Do the F2S(real)*FS(complex) multiply with two real multiplies - R = CMPLX( F2S*REAL( FS ), F2S*AIMAG( FS ) ) - CS = ONE / F2S - D = F2 + G2 -* Do complex/real division explicitly with two real divisions - SN = CMPLX( REAL( R ) / D, AIMAG( R ) / D ) - SN = SN*CONJG( GS ) - IF( COUNT.NE.0 ) THEN - IF( COUNT.GT.0 ) THEN - DO 30 I = 1, COUNT - R = R*SAFMX2 - 30 CONTINUE - ELSE - DO 40 I = 1, -COUNT - R = R*SAFMN2 - 40 CONTINUE - END IF - END IF - END IF - RETURN -* -* End of CLARTG -* - END diff --git a/lapack-netlib/SRC/clartg.f90 b/lapack-netlib/SRC/clartg.f90 new file mode 100644 index 000000000..13a629a34 --- /dev/null +++ b/lapack-netlib/SRC/clartg.f90 @@ -0,0 +1,233 @@ +!> \brief \b CLARTG generates a plane rotation with real cosine and complex sine. +! +! =========== DOCUMENTATION =========== +! +! Online html documentation available at +! http://www.netlib.org/lapack/explore-html/ +! +! Definition: +! =========== +! +! SUBROUTINE CLARTG( F, G, C, S, R ) +! +! .. Scalar Arguments .. +! REAL(wp) C +! COMPLEX(wp) F, G, R, S +! .. +! +!> \par Purpose: +! ============= +!> +!> \verbatim +!> +!> CLARTG generates a plane rotation so that +!> +!> [ C S ] . [ F ] = [ R ] +!> [ -conjg(S) C ] [ G ] [ 0 ] +!> +!> where C is real and C**2 + |S|**2 = 1. +!> +!> The mathematical formulas used for C and S are +!> +!> sgn(x) = { x / |x|, x != 0 +!> { 1, x = 0 +!> +!> R = sgn(F) * sqrt(|F|**2 + |G|**2) +!> +!> C = |F| / sqrt(|F|**2 + |G|**2) +!> +!> S = sgn(F) * conjg(G) / sqrt(|F|**2 + |G|**2) +!> +!> When F and G are real, the formulas simplify to C = F/R and +!> S = G/R, and the returned values of C, S, and R should be +!> identical to those returned by CLARTG. +!> +!> The algorithm used to compute these quantities incorporates scaling +!> to avoid overflow or underflow in computing the square root of the +!> sum of squares. +!> +!> This is a faster version of the BLAS1 routine CROTG, except for +!> the following differences: +!> F and G are unchanged on return. +!> If G=0, then C=1 and S=0. +!> If F=0, then C=0 and S is chosen so that R is real. +!> +!> Below, wp=>sp stands for single precision from LA_CONSTANTS module. +!> \endverbatim +! +! Arguments: +! ========== +! +!> \param[in] F +!> \verbatim +!> F is COMPLEX(wp) +!> The first component of vector to be rotated. +!> \endverbatim +!> +!> \param[in] G +!> \verbatim +!> G is COMPLEX(wp) +!> The second component of vector to be rotated. +!> \endverbatim +!> +!> \param[out] C +!> \verbatim +!> C is REAL(wp) +!> The cosine of the rotation. +!> \endverbatim +!> +!> \param[out] S +!> \verbatim +!> S is COMPLEX(wp) +!> The sine of the rotation. +!> \endverbatim +!> +!> \param[out] R +!> \verbatim +!> R is COMPLEX(wp) +!> The nonzero component of the rotated vector. +!> \endverbatim +! +! Authors: +! ======== +! +!> \author Edward Anderson, Lockheed Martin +! +!> \date August 2016 +! +!> \ingroup OTHERauxiliary +! +!> \par Contributors: +! ================== +!> +!> Weslley Pereira, University of Colorado Denver, USA +! +!> \par Further Details: +! ===================== +!> +!> \verbatim +!> +!> Anderson E. (2017) +!> Algorithm 978: Safe Scaling in the Level 1 BLAS +!> ACM Trans Math Softw 44:1--28 +!> https://doi.org/10.1145/3061665 +!> +!> \endverbatim +! +subroutine CLARTG( f, g, c, s, r ) + use LA_CONSTANTS, & + only: wp=>sp, zero=>szero, one=>sone, two=>stwo, czero, & + rtmin=>srtmin, rtmax=>srtmax, safmin=>ssafmin, safmax=>ssafmax +! +! -- LAPACK auxiliary routine -- +! -- LAPACK is a software package provided by Univ. of Tennessee, -- +! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +! February 2021 +! +! .. Scalar Arguments .. + real(wp) c + complex(wp) f, g, r, s +! .. +! .. Local Scalars .. + real(wp) :: d, f1, f2, g1, g2, h2, p, u, uu, v, vv, w + complex(wp) :: fs, gs, t +! .. +! .. Intrinsic Functions .. + intrinsic :: abs, aimag, conjg, max, min, real, sqrt +! .. +! .. Statement Functions .. + real(wp) :: ABSSQ +! .. +! .. Statement Function definitions .. + ABSSQ( t ) = real( t )**2 + aimag( t )**2 +! .. +! .. Executable Statements .. +! + if( g == czero ) then + c = one + s = czero + r = f + else if( f == czero ) then + c = zero + g1 = max( abs(real(g)), abs(aimag(g)) ) + if( g1 > rtmin .and. g1 < rtmax ) then +! +! Use unscaled algorithm +! + g2 = ABSSQ( g ) + d = sqrt( g2 ) + s = conjg( g ) / d + r = d + else +! +! Use scaled algorithm +! + u = min( safmax, max( safmin, g1 ) ) + uu = one / u + gs = g*uu + g2 = ABSSQ( gs ) + d = sqrt( g2 ) + s = conjg( gs ) / d + r = d*u + end if + else + f1 = max( abs(real(f)), abs(aimag(f)) ) + g1 = max( abs(real(g)), abs(aimag(g)) ) + if( f1 > rtmin .and. f1 < rtmax .and. & + g1 > rtmin .and. g1 < rtmax ) then +! +! Use unscaled algorithm +! + f2 = ABSSQ( f ) + g2 = ABSSQ( g ) + h2 = f2 + g2 + if( f2 > rtmin .and. h2 < rtmax ) then + d = sqrt( f2*h2 ) + else + d = sqrt( f2 )*sqrt( h2 ) + end if + p = 1 / d + c = f2*p + s = conjg( g )*( f*p ) + r = f*( h2*p ) + else +! +! Use scaled algorithm +! + u = min( safmax, max( safmin, f1, g1 ) ) + uu = one / u + gs = g*uu + g2 = ABSSQ( gs ) + if( f1*uu < rtmin ) then +! +! f is not well-scaled when scaled by g1. +! Use a different scaling for f. +! + v = min( safmax, max( safmin, f1 ) ) + vv = one / v + w = v * uu + fs = f*vv + f2 = ABSSQ( fs ) + h2 = f2*w**2 + g2 + else +! +! Otherwise use the same scaling for f and g. +! + w = one + fs = f*uu + f2 = ABSSQ( fs ) + h2 = f2 + g2 + end if + if( f2 > rtmin .and. h2 < rtmax ) then + d = sqrt( f2*h2 ) + else + d = sqrt( f2 )*sqrt( h2 ) + end if + p = 1 / d + c = ( f2*p )*w + s = conjg( gs )*( fs*p ) + r = ( fs*( h2*p ) )*u + end if + end if + return +end subroutine diff --git a/lapack-netlib/SRC/clartv.f b/lapack-netlib/SRC/clartv.f index c366c7dcc..08999bf36 100644 --- a/lapack-netlib/SRC/clartv.f +++ b/lapack-netlib/SRC/clartv.f @@ -100,17 +100,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLARTV( N, X, INCX, Y, INCY, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/lapack-netlib/SRC/clarz.f b/lapack-netlib/SRC/clarz.f index b7fde5438..0a40b40f5 100644 --- a/lapack-netlib/SRC/clarz.f +++ b/lapack-netlib/SRC/clarz.f @@ -129,8 +129,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -147,10 +145,9 @@ * ===================================================================== SUBROUTINE CLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/clarzb.f b/lapack-netlib/SRC/clarzb.f index ffa884282..97d7b0e40 100644 --- a/lapack-netlib/SRC/clarzb.f +++ b/lapack-netlib/SRC/clarzb.f @@ -164,8 +164,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -183,10 +181,9 @@ SUBROUTINE CLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/clarzt.f b/lapack-netlib/SRC/clarzt.f index 6bea5d465..b21bc6f1a 100644 --- a/lapack-netlib/SRC/clarzt.f +++ b/lapack-netlib/SRC/clarzt.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -185,10 +183,9 @@ * ===================================================================== SUBROUTINE CLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/lapack-netlib/SRC/clascl.f b/lapack-netlib/SRC/clascl.f index b760bab50..399af23a4 100644 --- a/lapack-netlib/SRC/clascl.f +++ b/lapack-netlib/SRC/clascl.f @@ -136,17 +136,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER TYPE diff --git a/lapack-netlib/SRC/clascl2.f b/lapack-netlib/SRC/clascl2.f index d3a5b9144..2ae27975c 100644 --- a/lapack-netlib/SRC/clascl2.f +++ b/lapack-netlib/SRC/clascl2.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CLASCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/lapack-netlib/SRC/claset.f b/lapack-netlib/SRC/claset.f index fe49fd56f..d1a6779d3 100644 --- a/lapack-netlib/SRC/claset.f +++ b/lapack-netlib/SRC/claset.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clasr.f b/lapack-netlib/SRC/clasr.f index 8c6216b41..71fc7521f 100644 --- a/lapack-netlib/SRC/clasr.f +++ b/lapack-netlib/SRC/clasr.f @@ -193,17 +193,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, PIVOT, SIDE diff --git a/lapack-netlib/SRC/classq.f b/lapack-netlib/SRC/classq.f deleted file mode 100644 index 92e407ff3..000000000 --- a/lapack-netlib/SRC/classq.f +++ /dev/null @@ -1,168 +0,0 @@ -*> \brief \b CLASSQ updates a sum of squares represented in scaled form. -* -* =========== DOCUMENTATION =========== -* -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ -* -*> \htmlonly -*> Download CLASSQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> -*> [TXT] -*> \endhtmlonly -* -* Definition: -* =========== -* -* SUBROUTINE CLASSQ( N, X, INCX, SCALE, SUMSQ ) -* -* .. Scalar Arguments .. -* INTEGER INCX, N -* REAL SCALE, SUMSQ -* .. -* .. Array Arguments .. -* COMPLEX X( * ) -* .. -* -* -*> \par Purpose: -* ============= -*> -*> \verbatim -*> -*> CLASSQ returns the values scl and ssq such that -*> -*> ( scl**2 )*ssq = x( 1 )**2 +...+ x( n )**2 + ( scale**2 )*sumsq, -*> -*> where x( i ) = abs( X( 1 + ( i - 1 )*INCX ) ). The value of sumsq is -*> assumed to be at least unity and the value of ssq will then satisfy -*> -*> 1.0 <= ssq <= ( sumsq + 2*n ). -*> -*> scale is assumed to be non-negative and scl returns the value -*> -*> scl = max( scale, abs( real( x( i ) ) ), abs( aimag( x( i ) ) ) ), -*> i -*> -*> scale and sumsq must be supplied in SCALE and SUMSQ respectively. -*> SCALE and SUMSQ are overwritten by scl and ssq respectively. -*> -*> The routine makes only one pass through the vector X. -*> \endverbatim -* -* Arguments: -* ========== -* -*> \param[in] N -*> \verbatim -*> N is INTEGER -*> The number of elements to be used from the vector X. -*> \endverbatim -*> -*> \param[in] X -*> \verbatim -*> X is COMPLEX array, dimension (1+(N-1)*INCX) -*> The vector x as described above. -*> x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. -*> \endverbatim -*> -*> \param[in] INCX -*> \verbatim -*> INCX is INTEGER -*> The increment between successive values of the vector X. -*> INCX > 0. -*> \endverbatim -*> -*> \param[in,out] SCALE -*> \verbatim -*> SCALE is REAL -*> On entry, the value scale in the equation above. -*> On exit, SCALE is overwritten with the value scl . -*> \endverbatim -*> -*> \param[in,out] SUMSQ -*> \verbatim -*> SUMSQ is REAL -*> On entry, the value sumsq in the equation above. -*> On exit, SUMSQ is overwritten with the value ssq . -*> \endverbatim -* -* Authors: -* ======== -* -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. -* -*> \date December 2016 -* -*> \ingroup complexOTHERauxiliary -* -* ===================================================================== - SUBROUTINE CLASSQ( N, X, INCX, SCALE, SUMSQ ) -* -* -- LAPACK auxiliary routine (version 3.7.0) -- -* -- LAPACK is a software package provided by Univ. of Tennessee, -- -* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 -* -* .. Scalar Arguments .. - INTEGER INCX, N - REAL SCALE, SUMSQ -* .. -* .. Array Arguments .. - COMPLEX X( * ) -* .. -* -* ===================================================================== -* -* .. Parameters .. - REAL ZERO - PARAMETER ( ZERO = 0.0E+0 ) -* .. -* .. Local Scalars .. - INTEGER IX - REAL TEMP1 -* .. -* .. External Functions .. - LOGICAL SISNAN - EXTERNAL SISNAN -* .. -* .. Intrinsic Functions .. - INTRINSIC ABS, AIMAG, REAL -* .. -* .. Executable Statements .. -* - IF( N.GT.0 ) THEN - DO 10 IX = 1, 1 + ( N-1 )*INCX, INCX - TEMP1 = ABS( REAL( X( IX ) ) ) - IF( TEMP1.GT.ZERO.OR.SISNAN( TEMP1 ) ) THEN - IF( SCALE.LT.TEMP1 ) THEN - SUMSQ = 1 + SUMSQ*( SCALE / TEMP1 )**2 - SCALE = TEMP1 - ELSE - SUMSQ = SUMSQ + ( TEMP1 / SCALE )**2 - END IF - END IF - TEMP1 = ABS( AIMAG( X( IX ) ) ) - IF( TEMP1.GT.ZERO.OR.SISNAN( TEMP1 ) ) THEN - IF( SCALE.LT.TEMP1 .OR. SISNAN( TEMP1 ) ) THEN - SUMSQ = 1 + SUMSQ*( SCALE / TEMP1 )**2 - SCALE = TEMP1 - ELSE - SUMSQ = SUMSQ + ( TEMP1 / SCALE )**2 - END IF - END IF - 10 CONTINUE - END IF -* - RETURN -* -* End of CLASSQ -* - END diff --git a/lapack-netlib/SRC/classq.f90 b/lapack-netlib/SRC/classq.f90 new file mode 100644 index 000000000..cb4e7971f --- /dev/null +++ b/lapack-netlib/SRC/classq.f90 @@ -0,0 +1,262 @@ +!> \brief \b CLASSQ updates a sum of squares represented in scaled form. +! +! =========== DOCUMENTATION =========== +! +! Online html documentation available at +! http://www.netlib.org/lapack/explore-html/ +! +!> \htmlonly +!> Download CLASSQ + dependencies +!> +!> [TGZ] +!> +!> [ZIP] +!> +!> [TXT] +!> \endhtmlonly +! +! Definition: +! =========== +! +! SUBROUTINE CLASSQ( N, X, INCX, SCALE, SUMSQ ) +! +! .. Scalar Arguments .. +! INTEGER INCX, N +! REAL SCALE, SUMSQ +! .. +! .. Array Arguments .. +! COMPLEX X( * ) +! .. +! +! +!> \par Purpose: +! ============= +!> +!> \verbatim +!> +!> CLASSQ returns the values scl and smsq such that +!> +!> ( scl**2 )*smsq = x( 1 )**2 +...+ x( n )**2 + ( scale**2 )*sumsq, +!> +!> where x( i ) = X( 1 + ( i - 1 )*INCX ). The value of sumsq is +!> assumed to be non-negative. +!> +!> scale and sumsq must be supplied in SCALE and SUMSQ and +!> scl and smsq are overwritten on SCALE and SUMSQ respectively. +!> +!> If scale * sqrt( sumsq ) > tbig then +!> we require: scale >= sqrt( TINY*EPS ) / sbig on entry, +!> and if 0 < scale * sqrt( sumsq ) < tsml then +!> we require: scale <= sqrt( HUGE ) / ssml on entry, +!> where +!> tbig -- upper threshold for values whose square is representable; +!> sbig -- scaling constant for big numbers; \see la_constants.f90 +!> tsml -- lower threshold for values whose square is representable; +!> ssml -- scaling constant for small numbers; \see la_constants.f90 +!> and +!> TINY*EPS -- tiniest representable number; +!> HUGE -- biggest representable number. +!> +!> \endverbatim +! +! Arguments: +! ========== +! +!> \param[in] N +!> \verbatim +!> N is INTEGER +!> The number of elements to be used from the vector x. +!> \endverbatim +!> +!> \param[in] X +!> \verbatim +!> X is COMPLEX array, dimension (1+(N-1)*abs(INCX)) +!> The vector for which a scaled sum of squares is computed. +!> x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. +!> \endverbatim +!> +!> \param[in] INCX +!> \verbatim +!> INCX is INTEGER +!> The increment between successive values of the vector x. +!> If INCX > 0, X(1+(i-1)*INCX) = x(i) for 1 <= i <= n +!> If INCX < 0, X(1-(n-i)*INCX) = x(i) for 1 <= i <= n +!> If INCX = 0, x isn't a vector so there is no need to call +!> this subroutine. If you call it anyway, it will count x(1) +!> in the vector norm N times. +!> \endverbatim +!> +!> \param[in,out] SCALE +!> \verbatim +!> SCALE is REAL +!> On entry, the value scale in the equation above. +!> On exit, SCALE is overwritten with scl , the scaling factor +!> for the sum of squares. +!> \endverbatim +!> +!> \param[in,out] SUMSQ +!> \verbatim +!> SUMSQ is REAL +!> On entry, the value sumsq in the equation above. +!> On exit, SUMSQ is overwritten with smsq , the basic sum of +!> squares from which scl has been factored out. +!> \endverbatim +! +! Authors: +! ======== +! +!> \author Edward Anderson, Lockheed Martin +! +!> \par Contributors: +! ================== +!> +!> Weslley Pereira, University of Colorado Denver, USA +!> Nick Papior, Technical University of Denmark, DK +! +!> \par Further Details: +! ===================== +!> +!> \verbatim +!> +!> Anderson E. (2017) +!> Algorithm 978: Safe Scaling in the Level 1 BLAS +!> ACM Trans Math Softw 44:1--28 +!> https://doi.org/10.1145/3061665 +!> +!> Blue, James L. (1978) +!> A Portable Fortran Program to Find the Euclidean Norm of a Vector +!> ACM Trans Math Softw 4:15--23 +!> https://doi.org/10.1145/355769.355771 +!> +!> \endverbatim +! +!> \ingroup OTHERauxiliary +! +! ===================================================================== +subroutine CLASSQ( n, x, incx, scl, sumsq ) + use LA_CONSTANTS, & + only: wp=>sp, zero=>szero, one=>sone, & + sbig=>ssbig, ssml=>sssml, tbig=>stbig, tsml=>stsml + use LA_XISNAN +! +! -- LAPACK auxiliary routine -- +! -- LAPACK is a software package provided by Univ. of Tennessee, -- +! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +! +! .. Scalar Arguments .. + integer :: incx, n + real(wp) :: scl, sumsq +! .. +! .. Array Arguments .. + complex(wp) :: x(*) +! .. +! .. Local Scalars .. + integer :: i, ix + logical :: notbig + real(wp) :: abig, amed, asml, ax, ymax, ymin +! .. +! +! Quick return if possible +! + if( LA_ISNAN(scl) .or. LA_ISNAN(sumsq) ) return + if( sumsq == zero ) scl = one + if( scl == zero ) then + scl = one + sumsq = zero + end if + if (n <= 0) then + return + end if +! +! Compute the sum of squares in 3 accumulators: +! abig -- sums of squares scaled down to avoid overflow +! asml -- sums of squares scaled up to avoid underflow +! amed -- sums of squares that do not require scaling +! The thresholds and multipliers are +! tbig -- values bigger than this are scaled down by sbig +! tsml -- values smaller than this are scaled up by ssml +! + notbig = .true. + asml = zero + amed = zero + abig = zero + ix = 1 + if( incx < 0 ) ix = 1 - (n-1)*incx + do i = 1, n + ax = abs(real(x(ix))) + if (ax > tbig) then + abig = abig + (ax*sbig)**2 + notbig = .false. + else if (ax < tsml) then + if (notbig) asml = asml + (ax*ssml)**2 + else + amed = amed + ax**2 + end if + ax = abs(aimag(x(ix))) + if (ax > tbig) then + abig = abig + (ax*sbig)**2 + notbig = .false. + else if (ax < tsml) then + if (notbig) asml = asml + (ax*ssml)**2 + else + amed = amed + ax**2 + end if + ix = ix + incx + end do +! +! Put the existing sum of squares into one of the accumulators +! + if( sumsq > zero ) then + ax = scl*sqrt( sumsq ) + if (ax > tbig) then +! We assume scl >= sqrt( TINY*EPS ) / sbig + abig = abig + (scl*sbig)**2 * sumsq + else if (ax < tsml) then +! We assume scl <= sqrt( HUGE ) / ssml + if (notbig) asml = asml + (scl*ssml)**2 * sumsq + else + amed = amed + scl**2 * sumsq + end if + end if +! +! Combine abig and amed or amed and asml if more than one +! accumulator was used. +! + if (abig > zero) then +! +! Combine abig and amed if abig > 0. +! + if (amed > zero .or. LA_ISNAN(amed)) then + abig = abig + (amed*sbig)*sbig + end if + scl = one / sbig + sumsq = abig + else if (asml > zero) then +! +! Combine amed and asml if asml > 0. +! + if (amed > zero .or. LA_ISNAN(amed)) then + amed = sqrt(amed) + asml = sqrt(asml) / ssml + if (asml > amed) then + ymin = amed + ymax = asml + else + ymin = asml + ymax = amed + end if + scl = one + sumsq = ymax**2*( one + (ymin/ymax)**2 ) + else + scl = one / ssml + sumsq = asml + end if + else +! +! Otherwise all values are mid-range or zero +! + scl = one + sumsq = amed + end if + return +end subroutine diff --git a/lapack-netlib/SRC/claswlq.f b/lapack-netlib/SRC/claswlq.f index dcbdc0d52..63cbd02c6 100644 --- a/lapack-netlib/SRC/claswlq.f +++ b/lapack-netlib/SRC/claswlq.f @@ -27,9 +27,9 @@ *> where: *> *> Q is a n-by-N orthogonal matrix, stored on exit in an implicit -*> form in the elements above the digonal of the array A and in -*> the elemenst of the array T; -*> L is an lower-triangular M-by-M matrix stored on exit in +*> form in the elements above the diagonal of the array A and in +*> the elements of the array T; +*> L is a lower-triangular M-by-M matrix stored on exit in *> the elements on and below the diagonal of the array A. *> 0 is a M-by-(N-M) zero matrix, if M < N, and is not stored. *> @@ -60,7 +60,7 @@ *> \verbatim *> NB is INTEGER *> The column block size to be used in the blocked QR. -*> NB > M. +*> NB > 0. *> \endverbatim *> *> \param[in,out] A @@ -162,10 +162,9 @@ SUBROUTINE CLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, $ INFO) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, MB, NB, LWORK, LDT @@ -207,10 +206,10 @@ INFO = -2 ELSE IF( MB.LT.1 .OR. ( MB.GT.M .AND. M.GT.0 )) THEN INFO = -3 - ELSE IF( NB.LE.M ) THEN + ELSE IF( NB.LE.0 ) THEN INFO = -4 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN - INFO = -5 + INFO = -6 ELSE IF( LDT.LT.MB ) THEN INFO = -8 ELSE IF( ( LWORK.LT.M*MB) .AND. (.NOT.LQUERY) ) THEN diff --git a/lapack-netlib/SRC/claswp.f b/lapack-netlib/SRC/claswp.f index 9f8a2dc69..60af6f664 100644 --- a/lapack-netlib/SRC/claswp.f +++ b/lapack-netlib/SRC/claswp.f @@ -99,8 +99,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -115,10 +113,9 @@ * ===================================================================== SUBROUTINE CLASWP( N, A, LDA, K1, K2, IPIV, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INCX, K1, K2, LDA, N diff --git a/lapack-netlib/SRC/clasyf.f b/lapack-netlib/SRC/clasyf.f index ade36f9e2..e6666cfed 100644 --- a/lapack-netlib/SRC/clasyf.f +++ b/lapack-netlib/SRC/clasyf.f @@ -160,8 +160,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -177,10 +175,9 @@ * ===================================================================== SUBROUTINE CLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clasyf_aa.f b/lapack-netlib/SRC/clasyf_aa.f index a44a8f5b1..d79b06874 100644 --- a/lapack-netlib/SRC/clasyf_aa.f +++ b/lapack-netlib/SRC/clasyf_aa.f @@ -136,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, $ H, LDH, WORK ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/clasyf_rk.f b/lapack-netlib/SRC/clasyf_rk.f index bd7a0fb45..080a65a12 100644 --- a/lapack-netlib/SRC/clasyf_rk.f +++ b/lapack-netlib/SRC/clasyf_rk.f @@ -239,8 +239,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -262,10 +260,9 @@ SUBROUTINE CLASYF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clasyf_rook.f b/lapack-netlib/SRC/clasyf_rook.f index b83f54188..40e2cbe94 100644 --- a/lapack-netlib/SRC/clasyf_rook.f +++ b/lapack-netlib/SRC/clasyf_rook.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -184,10 +182,9 @@ SUBROUTINE CLASYF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/clatbs.f b/lapack-netlib/SRC/clatbs.f index 3bb7bff88..606f963d3 100644 --- a/lapack-netlib/SRC/clatbs.f +++ b/lapack-netlib/SRC/clatbs.f @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -243,10 +241,9 @@ SUBROUTINE CLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, $ SCALE, CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/clatdf.f b/lapack-netlib/SRC/clatdf.f index 557830d1c..5445e387e 100644 --- a/lapack-netlib/SRC/clatdf.f +++ b/lapack-netlib/SRC/clatdf.f @@ -134,8 +134,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -169,10 +167,9 @@ SUBROUTINE CLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, $ JPIV ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IJOB, LDZ, N diff --git a/lapack-netlib/SRC/clatps.f b/lapack-netlib/SRC/clatps.f index 402b33eae..a5578b5d4 100644 --- a/lapack-netlib/SRC/clatps.f +++ b/lapack-netlib/SRC/clatps.f @@ -151,8 +151,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -231,10 +229,9 @@ SUBROUTINE CLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/clatrd.f b/lapack-netlib/SRC/clatrd.f index 1ad84c117..6e9da3b27 100644 --- a/lapack-netlib/SRC/clatrd.f +++ b/lapack-netlib/SRC/clatrd.f @@ -140,8 +140,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -199,10 +197,9 @@ * ===================================================================== SUBROUTINE CLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -271,7 +268,7 @@ * ALPHA = A( I-1, I ) CALL CLARFG( I-1, ALPHA, A( 1, I ), 1, TAU( I-1 ) ) - E( I-1 ) = ALPHA + E( I-1 ) = REAL( ALPHA ) A( I-1, I ) = ONE * * Compute W(1:i-1,i) @@ -325,7 +322,7 @@ ALPHA = A( I+1, I ) CALL CLARFG( N-I, ALPHA, A( MIN( I+2, N ), I ), 1, $ TAU( I ) ) - E( I ) = ALPHA + E( I ) = REAL( ALPHA ) A( I+1, I ) = ONE * * Compute W(i+1:n,i) diff --git a/lapack-netlib/SRC/clatrs.f b/lapack-netlib/SRC/clatrs.f index 8fc539b30..946ab8068 100644 --- a/lapack-netlib/SRC/clatrs.f +++ b/lapack-netlib/SRC/clatrs.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -239,10 +237,9 @@ SUBROUTINE CLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/clatrz.f b/lapack-netlib/SRC/clatrz.f index 0328e31c3..677892011 100644 --- a/lapack-netlib/SRC/clatrz.f +++ b/lapack-netlib/SRC/clatrz.f @@ -97,8 +97,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -140,10 +138,9 @@ * ===================================================================== SUBROUTINE CLATRZ( M, N, L, A, LDA, TAU, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER L, LDA, M, N diff --git a/lapack-netlib/SRC/clatsqr.f b/lapack-netlib/SRC/clatsqr.f index e9c6d77c2..7a0b85487 100644 --- a/lapack-netlib/SRC/clatsqr.f +++ b/lapack-netlib/SRC/clatsqr.f @@ -28,8 +28,8 @@ *> where: *> *> Q is a M-by-M orthogonal matrix, stored on exit in an implicit -*> form in the elements below the digonal of the array A and in -*> the elemenst of the array T; +*> form in the elements below the diagonal of the array A and in +*> the elements of the array T; *> *> R is an upper-triangular N-by-N matrix, stored on exit in *> the elements on and above the diagonal of the array A. @@ -164,10 +164,9 @@ SUBROUTINE CLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, $ LWORK, INFO) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, MB, NB, LDT, LWORK @@ -203,12 +202,12 @@ INFO = -1 ELSE IF( N.LT.0 .OR. M.LT.N ) THEN INFO = -2 - ELSE IF( MB.LE.N ) THEN + ELSE IF( MB.LT.1 ) THEN INFO = -3 ELSE IF( NB.LT.1 .OR. ( NB.GT.N .AND. N.GT.0 )) THEN INFO = -4 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN - INFO = -5 + INFO = -6 ELSE IF( LDT.LT.NB ) THEN INFO = -8 ELSE IF( LWORK.LT.(N*NB) .AND. (.NOT.LQUERY) ) THEN diff --git a/lapack-netlib/SRC/claunhr_col_getrfnp.f b/lapack-netlib/SRC/claunhr_col_getrfnp.f index 66b9c0407..96381ee26 100644 --- a/lapack-netlib/SRC/claunhr_col_getrfnp.f +++ b/lapack-netlib/SRC/claunhr_col_getrfnp.f @@ -128,8 +128,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complexGEcomputational * *> \par Contributors: @@ -147,10 +145,9 @@ SUBROUTINE CLAUNHR_COL_GETRFNP( M, N, A, LDA, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/claunhr_col_getrfnp2.f b/lapack-netlib/SRC/claunhr_col_getrfnp2.f index 82fc329ee..d3103fde9 100644 --- a/lapack-netlib/SRC/claunhr_col_getrfnp2.f +++ b/lapack-netlib/SRC/claunhr_col_getrfnp2.f @@ -84,7 +84,7 @@ *> *> CLAUNHR_COL_GETRFNP2 is called to factorize a block by the blocked *> routine CLAUNHR_COL_GETRFNP, which uses blocked code calling -*. Level 3 BLAS to update the submatrix. However, CLAUNHR_COL_GETRFNP2 +*> Level 3 BLAS to update the submatrix. However, CLAUNHR_COL_GETRFNP2 *> is self-sufficient and can be used without CLAUNHR_COL_GETRFNP. *> *> [1] "Reconstructing Householder vectors from tall-skinny QR", @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complexGEcomputational * *> \par Contributors: @@ -168,10 +166,9 @@ RECURSIVE SUBROUTINE CLAUNHR_COL_GETRFNP2( M, N, A, LDA, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/clauu2.f b/lapack-netlib/SRC/clauu2.f index 930662d0f..240ec20c0 100644 --- a/lapack-netlib/SRC/clauu2.f +++ b/lapack-netlib/SRC/clauu2.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAUU2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -165,7 +162,7 @@ * Compute the product U * U**H. * DO 10 I = 1, N - AII = A( I, I ) + AII = REAL( A( I, I ) ) IF( I.LT.N ) THEN A( I, I ) = AII*AII + REAL( CDOTC( N-I, A( I, I+1 ), LDA, $ A( I, I+1 ), LDA ) ) @@ -184,7 +181,7 @@ * Compute the product L**H * L. * DO 20 I = 1, N - AII = A( I, I ) + AII = REAL( A( I, I ) ) IF( I.LT.N ) THEN A( I, I ) = AII*AII + REAL( CDOTC( N-I, A( I+1, I ), 1, $ A( I+1, I ), 1 ) ) diff --git a/lapack-netlib/SRC/clauum.f b/lapack-netlib/SRC/clauum.f index eb9f89486..8b3cbc51d 100644 --- a/lapack-netlib/SRC/clauum.f +++ b/lapack-netlib/SRC/clauum.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CLAUUM( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpbcon.f b/lapack-netlib/SRC/cpbcon.f index 174f84030..df1a3bd1f 100644 --- a/lapack-netlib/SRC/cpbcon.f +++ b/lapack-netlib/SRC/cpbcon.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, $ RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpbequ.f b/lapack-netlib/SRC/cpbequ.f index 922c44b1f..fd91ea121 100644 --- a/lapack-netlib/SRC/cpbequ.f +++ b/lapack-netlib/SRC/cpbequ.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpbrfs.f b/lapack-netlib/SRC/cpbrfs.f index 7bf13e927..eb35e8fc0 100644 --- a/lapack-netlib/SRC/cpbrfs.f +++ b/lapack-netlib/SRC/cpbrfs.f @@ -181,18 +181,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, $ LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpbstf.f b/lapack-netlib/SRC/cpbstf.f index f344bf812..0452a9183 100644 --- a/lapack-netlib/SRC/cpbstf.f +++ b/lapack-netlib/SRC/cpbstf.f @@ -110,8 +110,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -153,10 +151,9 @@ * ===================================================================== SUBROUTINE CPBSTF( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpbsv.f b/lapack-netlib/SRC/cpbsv.f index b1a1fab0f..248abbc1f 100644 --- a/lapack-netlib/SRC/cpbsv.f +++ b/lapack-netlib/SRC/cpbsv.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERsolve * *> \par Further Details: @@ -164,10 +162,9 @@ * ===================================================================== SUBROUTINE CPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpbsvx.f b/lapack-netlib/SRC/cpbsvx.f index fde0564e4..652e18501 100644 --- a/lapack-netlib/SRC/cpbsvx.f +++ b/lapack-netlib/SRC/cpbsvx.f @@ -301,8 +301,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexOTHERsolve * *> \par Further Details: @@ -342,10 +340,9 @@ $ EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/cpbtf2.f b/lapack-netlib/SRC/cpbtf2.f index f871dd7dd..0be2c0a7f 100644 --- a/lapack-netlib/SRC/cpbtf2.f +++ b/lapack-netlib/SRC/cpbtf2.f @@ -110,8 +110,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE CPBTF2( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpbtrf.f b/lapack-netlib/SRC/cpbtrf.f index 8854cbee7..a4c18efb3 100644 --- a/lapack-netlib/SRC/cpbtrf.f +++ b/lapack-netlib/SRC/cpbtrf.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE CPBTRF( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpbtrs.f b/lapack-netlib/SRC/cpbtrs.f index 1fef33337..62874f688 100644 --- a/lapack-netlib/SRC/cpbtrs.f +++ b/lapack-netlib/SRC/cpbtrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpftrf.f b/lapack-netlib/SRC/cpftrf.f index 6d0b52791..cbaab6832 100644 --- a/lapack-netlib/SRC/cpftrf.f +++ b/lapack-netlib/SRC/cpftrf.f @@ -204,17 +204,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPFTRF( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/cpftri.f b/lapack-netlib/SRC/cpftri.f index e2b5690da..1f783a6fd 100644 --- a/lapack-netlib/SRC/cpftri.f +++ b/lapack-netlib/SRC/cpftri.f @@ -97,8 +97,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -212,10 +210,9 @@ * ===================================================================== SUBROUTINE CPFTRI( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/cpftrs.f b/lapack-netlib/SRC/cpftrs.f index 739ae27de..cd9a2434c 100644 --- a/lapack-netlib/SRC/cpftrs.f +++ b/lapack-netlib/SRC/cpftrs.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -220,10 +218,9 @@ * ===================================================================== SUBROUTINE CPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/cpocon.f b/lapack-netlib/SRC/cpocon.f index fbaba80b6..790d61d74 100644 --- a/lapack-netlib/SRC/cpocon.f +++ b/lapack-netlib/SRC/cpocon.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== SUBROUTINE CPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpoequ.f b/lapack-netlib/SRC/cpoequ.f index 1463d3c99..adc484d96 100644 --- a/lapack-netlib/SRC/cpoequ.f +++ b/lapack-netlib/SRC/cpoequ.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== SUBROUTINE CPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/cpoequb.f b/lapack-netlib/SRC/cpoequb.f index 68641bf67..22f5387b5 100644 --- a/lapack-netlib/SRC/cpoequb.f +++ b/lapack-netlib/SRC/cpoequb.f @@ -112,17 +112,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== SUBROUTINE CPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N @@ -183,11 +180,11 @@ * * Find the minimum and maximum diagonal elements. * - S( 1 ) = A( 1, 1 ) + S( 1 ) = REAL( A( 1, 1 ) ) SMIN = S( 1 ) AMAX = S( 1 ) DO 10 I = 2, N - S( I ) = A( I, I ) + S( I ) = REAL( A( I, I ) ) SMIN = MIN( SMIN, S( I ) ) AMAX = MAX( AMAX, S( I ) ) 10 CONTINUE diff --git a/lapack-netlib/SRC/cporfs.f b/lapack-netlib/SRC/cporfs.f index bd4054cec..8e12d7973 100644 --- a/lapack-netlib/SRC/cporfs.f +++ b/lapack-netlib/SRC/cporfs.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== SUBROUTINE CPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, $ LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cporfsx.f b/lapack-netlib/SRC/cporfsx.f index 3a2db7135..c41ba270e 100644 --- a/lapack-netlib/SRC/cporfsx.f +++ b/lapack-netlib/SRC/cporfsx.f @@ -122,7 +122,7 @@ *> \verbatim *> AF is COMPLEX array, dimension (LDAF,N) *> The triangular factor U or L from the Cholesky factorization -*> A = U**T*U or A = L*L**T, as computed by SPOTRF. +*> A = U**H*U or A = L*L**H, as computed by CPOTRF. *> \endverbatim *> *> \param[in] LDAF @@ -383,8 +383,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexPOcomputational * * ===================================================================== @@ -393,10 +391,9 @@ $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/cposv.f b/lapack-netlib/SRC/cposv.f index ecd61ec0a..f37dfa3c0 100644 --- a/lapack-netlib/SRC/cposv.f +++ b/lapack-netlib/SRC/cposv.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOsolve * * ===================================================================== SUBROUTINE CPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cposvx.f b/lapack-netlib/SRC/cposvx.f index aec8db211..78b9f4db1 100644 --- a/lapack-netlib/SRC/cposvx.f +++ b/lapack-netlib/SRC/cposvx.f @@ -297,8 +297,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexPOsolve * * ===================================================================== @@ -306,10 +304,9 @@ $ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/cposvxx.f b/lapack-netlib/SRC/cposvxx.f index 57c2d3feb..7834c75da 100644 --- a/lapack-netlib/SRC/cposvxx.f +++ b/lapack-netlib/SRC/cposvxx.f @@ -486,8 +486,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexPOsolve * * ===================================================================== @@ -496,10 +494,9 @@ $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/cpotf2.f b/lapack-netlib/SRC/cpotf2.f index 16b917ad4..2f4658bae 100644 --- a/lapack-netlib/SRC/cpotf2.f +++ b/lapack-netlib/SRC/cpotf2.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== SUBROUTINE CPOTF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -177,8 +174,8 @@ * * Compute U(J,J) and test for non-positive-definiteness. * - AJJ = REAL( A( J, J ) ) - CDOTC( J-1, A( 1, J ), 1, - $ A( 1, J ), 1 ) + AJJ = REAL( REAL( A( J, J ) ) - CDOTC( J-1, A( 1, J ), 1, + $ A( 1, J ), 1 ) ) IF( AJJ.LE.ZERO.OR.SISNAN( AJJ ) ) THEN A( J, J ) = AJJ GO TO 30 @@ -204,8 +201,8 @@ * * Compute L(J,J) and test for non-positive-definiteness. * - AJJ = REAL( A( J, J ) ) - CDOTC( J-1, A( J, 1 ), LDA, - $ A( J, 1 ), LDA ) + AJJ = REAL( REAL( A( J, J ) ) - CDOTC( J-1, A( J, 1 ), LDA, + $ A( J, 1 ), LDA ) ) IF( AJJ.LE.ZERO.OR.SISNAN( AJJ ) ) THEN A( J, J ) = AJJ GO TO 30 diff --git a/lapack-netlib/SRC/cpotrf.f b/lapack-netlib/SRC/cpotrf.f index 1d981bf7b..6aba3103e 100644 --- a/lapack-netlib/SRC/cpotrf.f +++ b/lapack-netlib/SRC/cpotrf.f @@ -100,17 +100,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== SUBROUTINE CPOTRF( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpotrf2.f b/lapack-netlib/SRC/cpotrf2.f index ed4f12cba..e1eae3e9d 100644 --- a/lapack-netlib/SRC/cpotrf2.f +++ b/lapack-netlib/SRC/cpotrf2.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== RECURSIVE SUBROUTINE CPOTRF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpotri.f b/lapack-netlib/SRC/cpotri.f index 9b548953d..bf05c91be 100644 --- a/lapack-netlib/SRC/cpotri.f +++ b/lapack-netlib/SRC/cpotri.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== SUBROUTINE CPOTRI( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpotrs.f b/lapack-netlib/SRC/cpotrs.f index 18c3d0d3e..bb08ca687 100644 --- a/lapack-netlib/SRC/cpotrs.f +++ b/lapack-netlib/SRC/cpotrs.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPOcomputational * * ===================================================================== SUBROUTINE CPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cppcon.f b/lapack-netlib/SRC/cppcon.f index 48b0a338d..84e3b7977 100644 --- a/lapack-netlib/SRC/cppcon.f +++ b/lapack-netlib/SRC/cppcon.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPPCON( UPLO, N, AP, ANORM, RCOND, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cppequ.f b/lapack-netlib/SRC/cppequ.f index 2ceeb3f50..223167338 100644 --- a/lapack-netlib/SRC/cppequ.f +++ b/lapack-netlib/SRC/cppequ.f @@ -110,17 +110,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpprfs.f b/lapack-netlib/SRC/cpprfs.f index 5206b9526..6c26b0c13 100644 --- a/lapack-netlib/SRC/cpprfs.f +++ b/lapack-netlib/SRC/cpprfs.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, FERR, $ BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cppsv.f b/lapack-netlib/SRC/cppsv.f index 084ef461e..1e6f02695 100644 --- a/lapack-netlib/SRC/cppsv.f +++ b/lapack-netlib/SRC/cppsv.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERsolve * *> \par Further Details: @@ -144,10 +142,9 @@ * ===================================================================== SUBROUTINE CPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cppsvx.f b/lapack-netlib/SRC/cppsvx.f index 5ae669c22..f6f07538c 100644 --- a/lapack-netlib/SRC/cppsvx.f +++ b/lapack-netlib/SRC/cppsvx.f @@ -283,8 +283,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexOTHERsolve * *> \par Further Details: @@ -311,10 +309,9 @@ SUBROUTINE CPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, $ X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/cpptrf.f b/lapack-netlib/SRC/cpptrf.f index bbca265ea..4e81458cb 100644 --- a/lapack-netlib/SRC/cpptrf.f +++ b/lapack-netlib/SRC/cpptrf.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -119,10 +117,9 @@ * ===================================================================== SUBROUTINE CPPTRF( UPLO, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -192,8 +189,8 @@ * * Compute U(J,J) and test for non-positive-definiteness. * - AJJ = REAL( AP( JJ ) ) - CDOTC( J-1, AP( JC ), 1, AP( JC ), - $ 1 ) + AJJ = REAL( REAL( AP( JJ ) ) - CDOTC( J-1, + $ AP( JC ), 1, AP( JC ), 1 ) ) IF( AJJ.LE.ZERO ) THEN AP( JJ ) = AJJ GO TO 30 diff --git a/lapack-netlib/SRC/cpptri.f b/lapack-netlib/SRC/cpptri.f index 1340cfb70..3f24d20bd 100644 --- a/lapack-netlib/SRC/cpptri.f +++ b/lapack-netlib/SRC/cpptri.f @@ -86,17 +86,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPPTRI( UPLO, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -164,7 +161,7 @@ JJ = JJ + J IF( J.GT.1 ) $ CALL CHPR( 'Upper', J-1, ONE, AP( JC ), 1, AP ) - AJJ = AP( JJ ) + AJJ = REAL( AP( JJ ) ) CALL CSSCAL( J, AJJ, AP( JC ), 1 ) 10 CONTINUE * diff --git a/lapack-netlib/SRC/cpptrs.f b/lapack-netlib/SRC/cpptrs.f index 7d9b6defc..08bba1acc 100644 --- a/lapack-netlib/SRC/cpptrs.f +++ b/lapack-netlib/SRC/cpptrs.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cpstf2.f b/lapack-netlib/SRC/cpstf2.f index f43cb308c..001042e1e 100644 --- a/lapack-netlib/SRC/cpstf2.f +++ b/lapack-netlib/SRC/cpstf2.f @@ -135,17 +135,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL TOL diff --git a/lapack-netlib/SRC/cpstrf.f b/lapack-netlib/SRC/cpstrf.f index 4b6cc41a9..119b954f3 100644 --- a/lapack-netlib/SRC/cpstrf.f +++ b/lapack-netlib/SRC/cpstrf.f @@ -135,17 +135,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL TOL diff --git a/lapack-netlib/SRC/cptcon.f b/lapack-netlib/SRC/cptcon.f index 8956d0b8b..67d247dff 100644 --- a/lapack-netlib/SRC/cptcon.f +++ b/lapack-netlib/SRC/cptcon.f @@ -102,8 +102,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPTcomputational * *> \par Further Details: @@ -119,10 +117,9 @@ * ===================================================================== SUBROUTINE CPTCON( N, D, E, ANORM, RCOND, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/cpteqr.f b/lapack-netlib/SRC/cpteqr.f index 07d077931..e3af59041 100644 --- a/lapack-netlib/SRC/cpteqr.f +++ b/lapack-netlib/SRC/cpteqr.f @@ -138,17 +138,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPTcomputational * * ===================================================================== SUBROUTINE CPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/cptrfs.f b/lapack-netlib/SRC/cptrfs.f index a01ef9003..1ef289dcc 100644 --- a/lapack-netlib/SRC/cptrfs.f +++ b/lapack-netlib/SRC/cptrfs.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPTcomputational * * ===================================================================== SUBROUTINE CPTRFS( UPLO, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cptsv.f b/lapack-netlib/SRC/cptsv.f index 7c6f1ede1..20ee32bbe 100644 --- a/lapack-netlib/SRC/cptsv.f +++ b/lapack-netlib/SRC/cptsv.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPTsolve * * ===================================================================== SUBROUTINE CPTSV( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/cptsvx.f b/lapack-netlib/SRC/cptsvx.f index 0482f7f35..db63a3c36 100644 --- a/lapack-netlib/SRC/cptsvx.f +++ b/lapack-netlib/SRC/cptsvx.f @@ -226,18 +226,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPTsolve * * ===================================================================== SUBROUTINE CPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER FACT diff --git a/lapack-netlib/SRC/cpttrf.f b/lapack-netlib/SRC/cpttrf.f index 2f7471435..c6379e923 100644 --- a/lapack-netlib/SRC/cpttrf.f +++ b/lapack-netlib/SRC/cpttrf.f @@ -85,17 +85,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexPTcomputational * * ===================================================================== SUBROUTINE CPTTRF( N, D, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/cpttrs.f b/lapack-netlib/SRC/cpttrs.f index 8edf72683..636a8de92 100644 --- a/lapack-netlib/SRC/cpttrs.f +++ b/lapack-netlib/SRC/cpttrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexPTcomputational * * ===================================================================== SUBROUTINE CPTTRS( UPLO, N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cptts2.f b/lapack-netlib/SRC/cptts2.f index c2b2b041e..15ea7ede8 100644 --- a/lapack-netlib/SRC/cptts2.f +++ b/lapack-netlib/SRC/cptts2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexPTcomputational * * ===================================================================== SUBROUTINE CPTTS2( IUPLO, N, NRHS, D, E, B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IUPLO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/crot.f b/lapack-netlib/SRC/crot.f index 849b9be49..6dc771506 100644 --- a/lapack-netlib/SRC/crot.f +++ b/lapack-netlib/SRC/crot.f @@ -58,7 +58,7 @@ *> \param[in] INCX *> \verbatim *> INCX is INTEGER -*> The increment between successive values of CY. INCX <> 0. +*> The increment between successive values of CX. INCX <> 0. *> \endverbatim *> *> \param[in,out] CY @@ -96,17 +96,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CROT( N, CX, INCX, CY, INCY, C, S ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/lapack-netlib/SRC/cspcon.f b/lapack-netlib/SRC/cspcon.f index f8bcc7764..75b33da6a 100644 --- a/lapack-netlib/SRC/cspcon.f +++ b/lapack-netlib/SRC/cspcon.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cspmv.f b/lapack-netlib/SRC/cspmv.f index 80f2cefd3..6b8c9c8c9 100644 --- a/lapack-netlib/SRC/cspmv.f +++ b/lapack-netlib/SRC/cspmv.f @@ -144,17 +144,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CSPMV( UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cspr.f b/lapack-netlib/SRC/cspr.f index 2ea80c145..bc23b7c48 100644 --- a/lapack-netlib/SRC/cspr.f +++ b/lapack-netlib/SRC/cspr.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CSPR( UPLO, N, ALPHA, X, INCX, AP ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csprfs.f b/lapack-netlib/SRC/csprfs.f index 4ab12208b..e52aaa5f3 100644 --- a/lapack-netlib/SRC/csprfs.f +++ b/lapack-netlib/SRC/csprfs.f @@ -172,18 +172,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cspsv.f b/lapack-netlib/SRC/cspsv.f index 4bf078101..bfb5aa21c 100644 --- a/lapack-netlib/SRC/cspsv.f +++ b/lapack-netlib/SRC/cspsv.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE CSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cspsvx.f b/lapack-netlib/SRC/cspsvx.f index 821d82af9..5de199340 100644 --- a/lapack-netlib/SRC/cspsvx.f +++ b/lapack-netlib/SRC/cspsvx.f @@ -249,8 +249,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexOTHERsolve * *> \par Further Details: @@ -277,10 +275,9 @@ SUBROUTINE CSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/csptrf.f b/lapack-netlib/SRC/csptrf.f index 3499cb4e6..702ed0c51 100644 --- a/lapack-netlib/SRC/csptrf.f +++ b/lapack-netlib/SRC/csptrf.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -158,10 +156,9 @@ * ===================================================================== SUBROUTINE CSPTRF( UPLO, N, AP, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csptri.f b/lapack-netlib/SRC/csptri.f index d8fed8742..8ae1d1daa 100644 --- a/lapack-netlib/SRC/csptri.f +++ b/lapack-netlib/SRC/csptri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csptrs.f b/lapack-netlib/SRC/csptrs.f index b13c6514b..6434c473a 100644 --- a/lapack-netlib/SRC/csptrs.f +++ b/lapack-netlib/SRC/csptrs.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csrscl.f b/lapack-netlib/SRC/csrscl.f index e85168e77..5f27f6387 100644 --- a/lapack-netlib/SRC/csrscl.f +++ b/lapack-netlib/SRC/csrscl.f @@ -77,17 +77,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== SUBROUTINE CSRSCL( N, SA, SX, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/cstedc.f b/lapack-netlib/SRC/cstedc.f index 4a00fbabd..a57d9eaef 100644 --- a/lapack-netlib/SRC/cstedc.f +++ b/lapack-netlib/SRC/cstedc.f @@ -198,8 +198,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -212,10 +210,9 @@ SUBROUTINE CSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, RWORK, $ LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/cstegr.f b/lapack-netlib/SRC/cstegr.f index 98b82c1b7..9d6e06da3 100644 --- a/lapack-netlib/SRC/cstegr.f +++ b/lapack-netlib/SRC/cstegr.f @@ -249,8 +249,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -265,10 +263,9 @@ $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/cstein.f b/lapack-netlib/SRC/cstein.f index 4f6687d72..5609efb01 100644 --- a/lapack-netlib/SRC/cstein.f +++ b/lapack-netlib/SRC/cstein.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDZ, M, N diff --git a/lapack-netlib/SRC/cstemr.f b/lapack-netlib/SRC/cstemr.f index 8fb8131d8..d49684db3 100644 --- a/lapack-netlib/SRC/cstemr.f +++ b/lapack-netlib/SRC/cstemr.f @@ -320,8 +320,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -338,10 +336,9 @@ $ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/csteqr.f b/lapack-netlib/SRC/csteqr.f index fa95db6d1..4044e77ed 100644 --- a/lapack-netlib/SRC/csteqr.f +++ b/lapack-netlib/SRC/csteqr.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/csycon.f b/lapack-netlib/SRC/csycon.f index dbd6957d3..f4fb33a37 100644 --- a/lapack-netlib/SRC/csycon.f +++ b/lapack-netlib/SRC/csycon.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csycon_3.f b/lapack-netlib/SRC/csycon_3.f index 5c1cb0491..7fe915e57 100644 --- a/lapack-netlib/SRC/csycon_3.f +++ b/lapack-netlib/SRC/csycon_3.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -166,10 +164,9 @@ SUBROUTINE CSYCON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csycon_rook.f b/lapack-netlib/SRC/csycon_rook.f index 85320baa4..f01659c77 100644 --- a/lapack-netlib/SRC/csycon_rook.f +++ b/lapack-netlib/SRC/csycon_rook.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -139,10 +137,9 @@ SUBROUTINE CSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csyconv.f b/lapack-netlib/SRC/csyconv.f index 0937f824b..79a1b0c11 100644 --- a/lapack-netlib/SRC/csyconv.f +++ b/lapack-netlib/SRC/csyconv.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/csyconvf.f b/lapack-netlib/SRC/csyconvf.f index fd5a5e47f..f3b46f0b4 100644 --- a/lapack-netlib/SRC/csyconvf.f +++ b/lapack-netlib/SRC/csyconvf.f @@ -38,7 +38,7 @@ *> CSYCONVF converts the factorization output format used in *> CSYTRF provided on entry in parameter A into the factorization *> output format used in CSYTRF_RK (or CSYTRF_BK) that is stored -*> on exit in parameters A and E. It also coverts in place details of +*> on exit in parameters A and E. It also converts in place details of *> the intechanges stored in IPIV from the format used in CSYTRF into *> the format used in CSYTRF_RK (or CSYTRF_BK). *> @@ -47,7 +47,7 @@ *> converts the factorization output format used in CSYTRF_RK *> (or CSYTRF_BK) provided on entry in parameters A and E into *> the factorization output format used in CSYTRF that is stored -*> on exit in parameter A. It also coverts in place details of +*> on exit in parameter A. It also converts in place details of *> the intechanges stored in IPIV from the format used in CSYTRF_RK *> (or CSYTRF_BK) into the format used in CSYTRF. *> @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -209,10 +207,9 @@ * ===================================================================== SUBROUTINE CSYCONVF( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/csyconvf_rook.f b/lapack-netlib/SRC/csyconvf_rook.f index 7ede26863..a5b9d82da 100644 --- a/lapack-netlib/SRC/csyconvf_rook.f +++ b/lapack-netlib/SRC/csyconvf_rook.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -200,10 +198,9 @@ * ===================================================================== SUBROUTINE CSYCONVF_ROOK( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/csyequb.f b/lapack-netlib/SRC/csyequb.f index b1c5c6fc6..185501d04 100644 --- a/lapack-netlib/SRC/csyequb.f +++ b/lapack-netlib/SRC/csyequb.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * *> \par References: @@ -132,10 +130,9 @@ * ===================================================================== SUBROUTINE CSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, N @@ -266,7 +263,7 @@ * avg = s^T beta / n AVG = 0.0E0 DO I = 1, N - AVG = AVG + S( I )*WORK( I ) + AVG = AVG + REAL( S( I )*WORK( I ) ) END DO AVG = AVG / N @@ -283,8 +280,8 @@ T = CABS1( A( I, I ) ) SI = S( I ) C2 = ( N-1 ) * T - C1 = ( N-2 ) * ( WORK( I ) - T*SI ) - C0 = -(T*SI)*SI + 2*WORK( I )*SI - N*AVG + C1 = REAL( N-2 ) * ( REAL( WORK( I ) ) - T*SI ) + C0 = -(T*SI)*SI + 2 * REAL( WORK( I ) ) * SI - N*AVG D = C1*C1 - 4*C0*C2 IF ( D .LE. 0 ) THEN @@ -319,7 +316,7 @@ END DO END IF - AVG = AVG + ( U + WORK( I ) ) * D / N + AVG = AVG + ( U + REAL( WORK( I ) ) ) * D / N S( I ) = SI END DO END DO diff --git a/lapack-netlib/SRC/csymv.f b/lapack-netlib/SRC/csymv.f index 5ae8c219c..e54ea2289 100644 --- a/lapack-netlib/SRC/csymv.f +++ b/lapack-netlib/SRC/csymv.f @@ -150,17 +150,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYauxiliary * * ===================================================================== SUBROUTINE CSYMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csyr.f b/lapack-netlib/SRC/csyr.f index 9f435cdf1..a96f0053c 100644 --- a/lapack-netlib/SRC/csyr.f +++ b/lapack-netlib/SRC/csyr.f @@ -128,17 +128,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYauxiliary * * ===================================================================== SUBROUTINE CSYR( UPLO, N, ALPHA, X, INCX, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csyrfs.f b/lapack-netlib/SRC/csyrfs.f index b00fde895..382b1ae29 100644 --- a/lapack-netlib/SRC/csyrfs.f +++ b/lapack-netlib/SRC/csyrfs.f @@ -184,18 +184,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csyrfsx.f b/lapack-netlib/SRC/csyrfsx.f index 4d1bc3ccc..040d0253c 100644 --- a/lapack-netlib/SRC/csyrfsx.f +++ b/lapack-netlib/SRC/csyrfsx.f @@ -124,7 +124,7 @@ *> The factored form of the matrix A. AF contains the block *> diagonal matrix D and the multipliers used to obtain the *> factor U or L from the factorization A = U*D*U**T or A = -*> L*D*L**T as computed by SSYTRF. +*> L*D*L**T as computed by CSYTRF. *> \endverbatim *> *> \param[in] LDAF @@ -137,7 +137,7 @@ *> \verbatim *> IPIV is INTEGER array, dimension (N) *> Details of the interchanges and the block structure of D -*> as determined by SSYTRF. +*> as determined by CSYTRF. *> \endverbatim *> *> \param[in,out] S @@ -171,7 +171,7 @@ *> \param[in,out] X *> \verbatim *> X is COMPLEX array, dimension (LDX,NRHS) -*> On entry, the solution matrix X, as computed by SGETRS. +*> On entry, the solution matrix X, as computed by CGETRS. *> On exit, the improved solution matrix X. *> \endverbatim *> @@ -392,8 +392,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexSYcomputational * * ===================================================================== @@ -402,10 +400,9 @@ $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/csysv.f b/lapack-netlib/SRC/csysv.f index 827ac093d..6f175e381 100644 --- a/lapack-netlib/SRC/csysv.f +++ b/lapack-netlib/SRC/csysv.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYsolve * * ===================================================================== SUBROUTINE CSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -226,7 +223,7 @@ LWKOPT = 1 ELSE CALL CSYTRF( UPLO, N, A, LDA, IPIV, WORK, -1, INFO ) - LWKOPT = WORK(1) + LWKOPT = REAL( WORK(1) ) END IF WORK( 1 ) = LWKOPT END IF diff --git a/lapack-netlib/SRC/csysv_aa.f b/lapack-netlib/SRC/csysv_aa.f index 2081644b1..8548c2789 100644 --- a/lapack-netlib/SRC/csysv_aa.f +++ b/lapack-netlib/SRC/csysv_aa.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYsolve * * ===================================================================== SUBROUTINE CSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csysv_aa_2stage.f b/lapack-netlib/SRC/csysv_aa_2stage.f index c5c328c63..d8881a748 100644 --- a/lapack-netlib/SRC/csysv_aa_2stage.f +++ b/lapack-netlib/SRC/csysv_aa_2stage.f @@ -7,11 +7,11 @@ * *> \htmlonly *> Download CSYSV_AA_2STAGE + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -177,8 +177,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== @@ -186,10 +184,9 @@ $ IPIV, IPIV2, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/csysv_rk.f b/lapack-netlib/SRC/csysv_rk.f index f2b21753b..793e39df5 100644 --- a/lapack-netlib/SRC/csysv_rk.f +++ b/lapack-netlib/SRC/csysv_rk.f @@ -205,8 +205,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYsolve * *> \par Contributors: @@ -228,10 +226,9 @@ SUBROUTINE CSYSV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -283,7 +280,7 @@ LWKOPT = 1 ELSE CALL CSYTRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, -1, INFO ) - LWKOPT = WORK(1) + LWKOPT = REAL( WORK(1) ) END IF WORK( 1 ) = LWKOPT END IF diff --git a/lapack-netlib/SRC/csysv_rook.f b/lapack-netlib/SRC/csysv_rook.f index e0ab72650..daa9f27c4 100644 --- a/lapack-netlib/SRC/csysv_rook.f +++ b/lapack-netlib/SRC/csysv_rook.f @@ -181,8 +181,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexSYsolve * *> \par Contributors: @@ -204,10 +202,9 @@ SUBROUTINE CSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO @@ -259,7 +256,7 @@ LWKOPT = 1 ELSE CALL CSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, -1, INFO ) - LWKOPT = WORK(1) + LWKOPT = REAL( WORK(1) ) END IF WORK( 1 ) = LWKOPT END IF diff --git a/lapack-netlib/SRC/csysvx.f b/lapack-netlib/SRC/csysvx.f index 46f65f6a4..2afa082a9 100644 --- a/lapack-netlib/SRC/csysvx.f +++ b/lapack-netlib/SRC/csysvx.f @@ -276,8 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexSYsolve * * ===================================================================== @@ -285,10 +283,9 @@ $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/csysvxx.f b/lapack-netlib/SRC/csysvxx.f index 7a9aee105..19d07411c 100644 --- a/lapack-netlib/SRC/csysvxx.f +++ b/lapack-netlib/SRC/csysvxx.f @@ -185,7 +185,7 @@ *> If FACT = 'F', then AF is an input argument and on entry *> contains the block diagonal matrix D and the multipliers *> used to obtain the factor U or L from the factorization A = -*> U*D*U**T or A = L*D*L**T as computed by SSYTRF. +*> U*D*U**T or A = L*D*L**T as computed by CSYTRF. *> *> If FACT = 'N', then AF is an output argument and on exit *> returns the block diagonal matrix D and the multipliers @@ -204,7 +204,7 @@ *> IPIV is INTEGER array, dimension (N) *> If FACT = 'F', then IPIV is an input argument and on entry *> contains details of the interchanges and the block -*> structure of D, as determined by SSYTRF. If IPIV(k) > 0, +*> structure of D, as determined by CSYTRF. If IPIV(k) > 0, *> then rows and columns k and IPIV(k) were interchanged and *> D(k,k) is a 1-by-1 diagonal block. If UPLO = 'U' and *> IPIV(k) = IPIV(k-1) < 0, then rows and columns k-1 and @@ -215,7 +215,7 @@ *> *> If FACT = 'N', then IPIV is an output argument and on exit *> contains details of the interchanges and the block -*> structure of D, as determined by SSYTRF. +*> structure of D, as determined by CSYTRF. *> \endverbatim *> *> \param[in,out] EQUED @@ -499,8 +499,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexSYsolve * * ===================================================================== @@ -509,10 +507,9 @@ $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/csyswapr.f b/lapack-netlib/SRC/csyswapr.f index b8291dafc..185d81922 100644 --- a/lapack-netlib/SRC/csyswapr.f +++ b/lapack-netlib/SRC/csyswapr.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYauxiliary * * ===================================================================== SUBROUTINE CSYSWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytf2.f b/lapack-netlib/SRC/csytf2.f index 370e57d44..0bee44318 100644 --- a/lapack-netlib/SRC/csytf2.f +++ b/lapack-netlib/SRC/csytf2.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * *> \par Further Details: @@ -191,10 +189,9 @@ * ===================================================================== SUBROUTINE CSYTF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytf2_rk.f b/lapack-netlib/SRC/csytf2_rk.f index 7e39c2dfd..12d6d5d8f 100644 --- a/lapack-netlib/SRC/csytf2_rk.f +++ b/lapack-netlib/SRC/csytf2_rk.f @@ -208,8 +208,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * *> \par Further Details: @@ -241,10 +239,9 @@ * ===================================================================== SUBROUTINE CSYTF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytf2_rook.f b/lapack-netlib/SRC/csytf2_rook.f index 2a80375d3..5ae4c9803 100644 --- a/lapack-netlib/SRC/csytf2_rook.f +++ b/lapack-netlib/SRC/csytf2_rook.f @@ -129,8 +129,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complexSYcomputational * *> \par Further Details: @@ -194,10 +192,9 @@ * ===================================================================== SUBROUTINE CSYTF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytrf.f b/lapack-netlib/SRC/csytrf.f index af913b8f4..ebf228f18 100644 --- a/lapack-netlib/SRC/csytrf.f +++ b/lapack-netlib/SRC/csytrf.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * *> \par Further Details: @@ -182,10 +180,9 @@ * ===================================================================== SUBROUTINE CSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytrf_aa.f b/lapack-netlib/SRC/csytrf_aa.f index 427235bda..b1165a425 100644 --- a/lapack-netlib/SRC/csytrf_aa.f +++ b/lapack-netlib/SRC/csytrf_aa.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * @@ -460,6 +457,7 @@ END IF * 20 CONTINUE + WORK( 1 ) = LWKOPT RETURN * * End of CSYTRF_AA diff --git a/lapack-netlib/SRC/csytrf_aa_2stage.f b/lapack-netlib/SRC/csytrf_aa_2stage.f index 0946d61b0..8a2cfd7bc 100644 --- a/lapack-netlib/SRC/csytrf_aa_2stage.f +++ b/lapack-netlib/SRC/csytrf_aa_2stage.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRF_AA_2STAGE( UPLO, N, A, LDA, TB, LTB, IPIV, $ IPIV2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/csytrf_rk.f b/lapack-netlib/SRC/csytrf_rk.f index f7e3528ac..9c2b7182f 100644 --- a/lapack-netlib/SRC/csytrf_rk.f +++ b/lapack-netlib/SRC/csytrf_rk.f @@ -229,8 +229,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * *> \par Further Details: @@ -259,10 +257,9 @@ SUBROUTINE CSYTRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytrf_rook.f b/lapack-netlib/SRC/csytrf_rook.f index c6a8ae5c1..ce7c1e586 100644 --- a/lapack-netlib/SRC/csytrf_rook.f +++ b/lapack-netlib/SRC/csytrf_rook.f @@ -146,8 +146,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexSYcomputational * *> \par Further Details: @@ -208,10 +206,9 @@ * ===================================================================== SUBROUTINE CSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytri.f b/lapack-netlib/SRC/csytri.f index 8f15e3698..3f3665338 100644 --- a/lapack-netlib/SRC/csytri.f +++ b/lapack-netlib/SRC/csytri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytri2.f b/lapack-netlib/SRC/csytri2.f index 8bee149c4..33c71060e 100644 --- a/lapack-netlib/SRC/csytri2.f +++ b/lapack-netlib/SRC/csytri2.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytri2x.f b/lapack-netlib/SRC/csytri2x.f index 151f06331..306e666e0 100644 --- a/lapack-netlib/SRC/csytri2x.f +++ b/lapack-netlib/SRC/csytri2x.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytri_3.f b/lapack-netlib/SRC/csytri_3.f index d618c26ed..279f62853 100644 --- a/lapack-netlib/SRC/csytri_3.f +++ b/lapack-netlib/SRC/csytri_3.f @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -170,10 +168,9 @@ SUBROUTINE CSYTRI_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytri_3x.f b/lapack-netlib/SRC/csytri_3x.f index 5a81ee3a5..138fe67c8 100644 --- a/lapack-netlib/SRC/csytri_3x.f +++ b/lapack-netlib/SRC/csytri_3x.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -159,10 +157,9 @@ * ===================================================================== SUBROUTINE CSYTRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytri_rook.f b/lapack-netlib/SRC/csytri_rook.f index c375e81dc..9fba54380 100644 --- a/lapack-netlib/SRC/csytri_rook.f +++ b/lapack-netlib/SRC/csytri_rook.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -129,10 +127,9 @@ * ===================================================================== SUBROUTINE CSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytrs.f b/lapack-netlib/SRC/csytrs.f index 3ab72b8ce..c872fda94 100644 --- a/lapack-netlib/SRC/csytrs.f +++ b/lapack-netlib/SRC/csytrs.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytrs2.f b/lapack-netlib/SRC/csytrs2.f index 93f2d6a1b..a3e7f4144 100644 --- a/lapack-netlib/SRC/csytrs2.f +++ b/lapack-netlib/SRC/csytrs2.f @@ -124,18 +124,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytrs_3.f b/lapack-netlib/SRC/csytrs_3.f index 8008c5de4..48b12d1cd 100644 --- a/lapack-netlib/SRC/csytrs_3.f +++ b/lapack-netlib/SRC/csytrs_3.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -165,10 +163,9 @@ SUBROUTINE CSYTRS_3( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/csytrs_aa.f b/lapack-netlib/SRC/csytrs_aa.f index 981f8722a..1f6ea40af 100644 --- a/lapack-netlib/SRC/csytrs_aa.f +++ b/lapack-netlib/SRC/csytrs_aa.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/csytrs_aa_2stage.f b/lapack-netlib/SRC/csytrs_aa_2stage.f index 581910933..add9f4275 100644 --- a/lapack-netlib/SRC/csytrs_aa_2stage.f +++ b/lapack-netlib/SRC/csytrs_aa_2stage.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CSYTRS_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, $ IPIV, IPIV2, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/csytrs_rook.f b/lapack-netlib/SRC/csytrs_rook.f index 3cfe45a74..edc2248f2 100644 --- a/lapack-netlib/SRC/csytrs_rook.f +++ b/lapack-netlib/SRC/csytrs_rook.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -136,10 +134,9 @@ SUBROUTINE CSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ctbcon.f b/lapack-netlib/SRC/ctbcon.f index a11a55aa6..4943011eb 100644 --- a/lapack-netlib/SRC/ctbcon.f +++ b/lapack-netlib/SRC/ctbcon.f @@ -135,18 +135,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, WORK, $ RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/ctbrfs.f b/lapack-netlib/SRC/ctbrfs.f index c6cb9f9c4..cfa2107e9 100644 --- a/lapack-netlib/SRC/ctbrfs.f +++ b/lapack-netlib/SRC/ctbrfs.f @@ -180,18 +180,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ctbtrs.f b/lapack-netlib/SRC/ctbtrs.f index 3ca70c656..1e0499765 100644 --- a/lapack-netlib/SRC/ctbtrs.f +++ b/lapack-netlib/SRC/ctbtrs.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ctfsm.f b/lapack-netlib/SRC/ctfsm.f index b4b26dd0e..7ea2c1006 100644 --- a/lapack-netlib/SRC/ctfsm.f +++ b/lapack-netlib/SRC/ctfsm.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -298,10 +296,9 @@ SUBROUTINE CTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, $ B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO diff --git a/lapack-netlib/SRC/ctftri.f b/lapack-netlib/SRC/ctftri.f index 2e51a3d88..faf647b98 100644 --- a/lapack-netlib/SRC/ctftri.f +++ b/lapack-netlib/SRC/ctftri.f @@ -106,8 +106,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -221,10 +219,9 @@ * ===================================================================== SUBROUTINE CTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO, DIAG diff --git a/lapack-netlib/SRC/ctfttp.f b/lapack-netlib/SRC/ctfttp.f index 6cd47e176..4da1aa184 100644 --- a/lapack-netlib/SRC/ctfttp.f +++ b/lapack-netlib/SRC/ctfttp.f @@ -93,8 +93,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -208,10 +206,9 @@ * ===================================================================== SUBROUTINE CTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/ctfttr.f b/lapack-netlib/SRC/ctfttr.f index 3720b6977..2b1ab3934 100644 --- a/lapack-netlib/SRC/ctfttr.f +++ b/lapack-netlib/SRC/ctfttr.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -216,10 +214,9 @@ * ===================================================================== SUBROUTINE CTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/ctgevc.f b/lapack-netlib/SRC/ctgevc.f index 342d56298..4e5289cb2 100644 --- a/lapack-netlib/SRC/ctgevc.f +++ b/lapack-netlib/SRC/ctgevc.f @@ -211,18 +211,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexGEcomputational * * ===================================================================== SUBROUTINE CTGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, $ LDVL, VR, LDVR, MM, M, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/ctgex2.f b/lapack-netlib/SRC/ctgex2.f index 7ac1784b6..c519a597d 100644 --- a/lapack-netlib/SRC/ctgex2.f +++ b/lapack-netlib/SRC/ctgex2.f @@ -153,8 +153,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexGEauxiliary * *> \par Further Details: @@ -190,10 +188,9 @@ SUBROUTINE CTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, J1, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ @@ -220,8 +217,8 @@ * .. Local Scalars .. LOGICAL STRONG, WEAK INTEGER I, M - REAL CQ, CZ, EPS, SA, SB, SCALE, SMLNUM, SS, SUM, - $ THRESH, WS + REAL CQ, CZ, EPS, SA, SB, SCALE, SMLNUM, SUM, + $ THRESHA, THRESHB COMPLEX CDUM, F, G, SQ, SZ * .. * .. Local Arrays .. @@ -263,8 +260,12 @@ SUM = REAL( CONE ) CALL CLACPY( 'Full', M, M, S, LDST, WORK, M ) CALL CLACPY( 'Full', M, M, T, LDST, WORK( M*M+1 ), M ) - CALL CLASSQ( 2*M*M, WORK, 1, SCALE, SUM ) + CALL CLASSQ( M*M, WORK, 1, SCALE, SUM ) SA = SCALE*SQRT( SUM ) + SCALE = DBLE( CZERO ) + SUM = DBLE( CONE ) + CALL CLASSQ( M*M, WORK(M*M+1), 1, SCALE, SUM ) + SB = SCALE*SQRT( SUM ) * * THRES has been changed from * THRESH = MAX( TEN*EPS*SA, SMLNUM ) @@ -274,15 +275,16 @@ * "Bug" reported by Ondra Kamenik, confirmed by Julie Langou, fixed by * Jim Demmel and Guillaume Revy. See forum post 1783. * - THRESH = MAX( TWENTY*EPS*SA, SMLNUM ) + THRESHA = MAX( TWENTY*EPS*SA, SMLNUM ) + THRESHB = MAX( TWENTY*EPS*SB, SMLNUM ) * * Compute unitary QL and RQ that swap 1-by-1 and 1-by-1 blocks * using Givens rotations and perform the swap tentatively. * F = S( 2, 2 )*T( 1, 1 ) - T( 2, 2 )*S( 1, 1 ) G = S( 2, 2 )*T( 1, 2 ) - T( 2, 2 )*S( 1, 2 ) - SA = ABS( S( 2, 2 ) ) - SB = ABS( T( 2, 2 ) ) + SA = ABS( S( 2, 2 ) ) * ABS( T( 1, 1 ) ) + SB = ABS( S( 1, 1 ) ) * ABS( T( 2, 2 ) ) CALL CLARTG( G, F, CZ, SZ, CDUM ) SZ = -SZ CALL CROT( 2, S( 1, 1 ), 1, S( 1, 2 ), 1, CZ, CONJG( SZ ) ) @@ -295,10 +297,11 @@ CALL CROT( 2, S( 1, 1 ), LDST, S( 2, 1 ), LDST, CQ, SQ ) CALL CROT( 2, T( 1, 1 ), LDST, T( 2, 1 ), LDST, CQ, SQ ) * -* Weak stability test: |S21| + |T21| <= O(EPS F-norm((S, T))) +* Weak stability test: |S21| <= O(EPS F-norm((A))) +* and |T21| <= O(EPS F-norm((B))) * - WS = ABS( S( 2, 1 ) ) + ABS( T( 2, 1 ) ) - WEAK = WS.LE.THRESH + WEAK = ABS( S( 2, 1 ) ).LE.THRESHA .AND. + $ ABS( T( 2, 1 ) ).LE.THRESHB IF( .NOT.WEAK ) $ GO TO 20 * @@ -319,11 +322,15 @@ WORK( I+4 ) = WORK( I+4 ) - B( J1+I-1, J1 ) WORK( I+6 ) = WORK( I+6 ) - B( J1+I-1, J1+1 ) 10 CONTINUE - SCALE = REAL( CZERO ) - SUM = REAL( CONE ) - CALL CLASSQ( 2*M*M, WORK, 1, SCALE, SUM ) - SS = SCALE*SQRT( SUM ) - STRONG = SS.LE.THRESH + SCALE = DBLE( CZERO ) + SUM = DBLE( CONE ) + CALL CLASSQ( M*M, WORK, 1, SCALE, SUM ) + SA = SCALE*SQRT( SUM ) + SCALE = DBLE( CZERO ) + SUM = DBLE( CONE ) + CALL CLASSQ( M*M, WORK(M*M+1), 1, SCALE, SUM ) + SB = SCALE*SQRT( SUM ) + STRONG = SA.LE.THRESHA .AND. SB.LE.THRESHB IF( .NOT.STRONG ) $ GO TO 20 END IF diff --git a/lapack-netlib/SRC/ctgexc.f b/lapack-netlib/SRC/ctgexc.f index ba1c2814c..f50f8be3f 100644 --- a/lapack-netlib/SRC/ctgexc.f +++ b/lapack-netlib/SRC/ctgexc.f @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexGEcomputational * *> \par Contributors: @@ -200,10 +198,9 @@ SUBROUTINE CTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, IFST, ILST, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/lapack-netlib/SRC/ctgsen.f b/lapack-netlib/SRC/ctgsen.f index 8198d4554..f9b6cd10c 100644 --- a/lapack-netlib/SRC/ctgsen.f +++ b/lapack-netlib/SRC/ctgsen.f @@ -290,8 +290,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -433,10 +431,9 @@ $ ALPHA, BETA, Q, LDQ, Z, LDZ, M, PL, PR, DIF, $ WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/lapack-netlib/SRC/ctgsja.f b/lapack-netlib/SRC/ctgsja.f index c96cbe022..22725e86c 100644 --- a/lapack-netlib/SRC/ctgsja.f +++ b/lapack-netlib/SRC/ctgsja.f @@ -351,8 +351,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -379,10 +377,9 @@ $ LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, $ Q, LDQ, WORK, NCYCLE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/ctgsna.f b/lapack-netlib/SRC/ctgsna.f index 6081d19b2..2295dc5cc 100644 --- a/lapack-netlib/SRC/ctgsna.f +++ b/lapack-netlib/SRC/ctgsna.f @@ -213,8 +213,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -311,10 +309,9 @@ $ LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/lapack-netlib/SRC/ctgsy2.f b/lapack-netlib/SRC/ctgsy2.f index 5ccdfb1e1..2840af74c 100644 --- a/lapack-netlib/SRC/ctgsy2.f +++ b/lapack-netlib/SRC/ctgsy2.f @@ -244,8 +244,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYauxiliary * *> \par Contributors: @@ -259,10 +257,9 @@ $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/ctgsyl.f b/lapack-netlib/SRC/ctgsyl.f index 602e8091c..ae1437125 100644 --- a/lapack-netlib/SRC/ctgsyl.f +++ b/lapack-netlib/SRC/ctgsyl.f @@ -217,7 +217,7 @@ *> If 0 < SCALE < 1, C and F hold the solutions R and L, resp., *> to a slightly perturbed system but the input matrices A, B, *> D and E have not been changed. If SCALE = 0, R and L will -*> hold the solutions to the homogenious system with C = F = 0. +*> hold the solutions to the homogeneous system with C = F = 0. *> \endverbatim *> *> \param[out] WORK @@ -260,8 +260,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * *> \par Contributors: @@ -295,10 +293,9 @@ $ LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/ctpcon.f b/lapack-netlib/SRC/ctpcon.f index 6b439fb52..44ae10d7e 100644 --- a/lapack-netlib/SRC/ctpcon.f +++ b/lapack-netlib/SRC/ctpcon.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/ctplqt.f b/lapack-netlib/SRC/ctplqt.f index 39893df48..01263a4e1 100644 --- a/lapack-netlib/SRC/ctplqt.f +++ b/lapack-netlib/SRC/ctplqt.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -174,10 +172,9 @@ SUBROUTINE CTPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, MB diff --git a/lapack-netlib/SRC/ctplqt2.f b/lapack-netlib/SRC/ctplqt2.f index d18452aec..bb455fefe 100644 --- a/lapack-netlib/SRC/ctplqt2.f +++ b/lapack-netlib/SRC/ctplqt2.f @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE CTPLQT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/lapack-netlib/SRC/ctpmlqt.f b/lapack-netlib/SRC/ctpmlqt.f index 5899a5335..606c1f5db 100644 --- a/lapack-netlib/SRC/ctpmlqt.f +++ b/lapack-netlib/SRC/ctpmlqt.f @@ -21,7 +21,7 @@ *> *> \verbatim *> -*> CTPMLQT applies a complex orthogonal matrix Q obtained from a +*> CTPMLQT applies a complex unitary 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 @@ -40,7 +40,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -74,7 +74,7 @@ *> MB is INTEGER *> The block size used for the storage of T. K >= MB >= 1. *> This must be the same value of MB used to generate T -*> in DTPLQT. +*> in CTPLQT. *> \endverbatim *> *> \param[in] V @@ -82,22 +82,20 @@ *> V is COMPLEX array, dimension (LDV,K) *> The i-th row must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> DTPLQT in B. See Further Details. +*> CTPLQT in B. See Further Details. *> \endverbatim *> *> \param[in] LDV *> \verbatim *> LDV is INTEGER -*> The leading dimension of the array V. -*> If SIDE = 'L', LDV >= max(1,M); -*> if SIDE = 'R', LDV >= max(1,N). +*> The leading dimension of the array V. LDV >= K. *> \endverbatim *> *> \param[in] T *> \verbatim *> T is COMPLEX array, dimension (LDT,K) *> The upper triangular factors of the block reflectors -*> as returned by DTPLQT, stored as a MB-by-K matrix. +*> as returned by CTPLQT, stored as a MB-by-K matrix. *> \endverbatim *> *> \param[in] LDT @@ -120,8 +118,8 @@ *> \verbatim *> LDA is INTEGER *> The leading dimension of the array A. -*> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'L', LDA >= max(1,K); +*> If SIDE = 'R', LDA >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -160,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -186,7 +182,7 @@ *> *> If SIDE = 'R': C = [A B] where A is M-by-K, B is M-by-N and V is K-by-N. *> -*> The real orthogonal matrix Q is formed from V and T. +*> The complex unitary matrix Q is formed from V and T. *> *> If TRANS='N' and SIDE='L', C is on exit replaced with Q * C. *> @@ -201,10 +197,9 @@ SUBROUTINE CTPMLQT( SIDE, TRANS, M, N, K, L, MB, V, LDV, T, LDT, $ A, LDA, B, LDB, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/ctpmqrt.f b/lapack-netlib/SRC/ctpmqrt.f index 8d4a36ca8..75ee6c0ae 100644 --- a/lapack-netlib/SRC/ctpmqrt.f +++ b/lapack-netlib/SRC/ctpmqrt.f @@ -55,7 +55,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -175,8 +175,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -216,10 +214,9 @@ SUBROUTINE CTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, $ A, LDA, B, LDB, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/ctpqrt.f b/lapack-netlib/SRC/ctpqrt.f index 96b3856e2..9abd06e8b 100644 --- a/lapack-netlib/SRC/ctpqrt.f +++ b/lapack-netlib/SRC/ctpqrt.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ SUBROUTINE CTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, NB diff --git a/lapack-netlib/SRC/ctpqrt2.f b/lapack-netlib/SRC/ctpqrt2.f index 4cebe76f7..3cd75da35 100644 --- a/lapack-netlib/SRC/ctpqrt2.f +++ b/lapack-netlib/SRC/ctpqrt2.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -173,10 +171,9 @@ * ===================================================================== SUBROUTINE CTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/lapack-netlib/SRC/ctprfb.f b/lapack-netlib/SRC/ctprfb.f index 0f45edaf8..11496180f 100644 --- a/lapack-netlib/SRC/ctprfb.f +++ b/lapack-netlib/SRC/ctprfb.f @@ -194,8 +194,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Further Details: @@ -251,10 +249,9 @@ 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.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/ctprfs.f b/lapack-netlib/SRC/ctprfs.f index b66bd7c88..97fabc66a 100644 --- a/lapack-netlib/SRC/ctprfs.f +++ b/lapack-netlib/SRC/ctprfs.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ctptri.f b/lapack-netlib/SRC/ctptri.f index b6566ae3a..e3f0d7d1b 100644 --- a/lapack-netlib/SRC/ctptri.f +++ b/lapack-netlib/SRC/ctptri.f @@ -91,8 +91,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -117,10 +115,9 @@ * ===================================================================== SUBROUTINE CTPTRI( UPLO, DIAG, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/ctptrs.f b/lapack-netlib/SRC/ctptrs.f index 8a75e2fdf..a3f7687bd 100644 --- a/lapack-netlib/SRC/ctptrs.f +++ b/lapack-netlib/SRC/ctptrs.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ctpttf.f b/lapack-netlib/SRC/ctpttf.f index 91e6fa70f..af7e8961b 100644 --- a/lapack-netlib/SRC/ctpttf.f +++ b/lapack-netlib/SRC/ctpttf.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -207,10 +205,9 @@ * ===================================================================== SUBROUTINE CTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/ctpttr.f b/lapack-netlib/SRC/ctpttr.f index a0548a3a6..0b9c498a0 100644 --- a/lapack-netlib/SRC/ctpttr.f +++ b/lapack-netlib/SRC/ctpttr.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTPTTR( UPLO, N, AP, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ctrcon.f b/lapack-netlib/SRC/ctrcon.f index 81ba45d01..a14748f41 100644 --- a/lapack-netlib/SRC/ctrcon.f +++ b/lapack-netlib/SRC/ctrcon.f @@ -129,18 +129,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, $ RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/ctrevc.f b/lapack-netlib/SRC/ctrevc.f index 2b950348c..42880ab42 100644 --- a/lapack-netlib/SRC/ctrevc.f +++ b/lapack-netlib/SRC/ctrevc.f @@ -196,8 +196,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -218,10 +216,9 @@ SUBROUTINE CTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/ctrevc3.f b/lapack-netlib/SRC/ctrevc3.f index a134c1a50..0f58696b2 100644 --- a/lapack-netlib/SRC/ctrevc3.f +++ b/lapack-netlib/SRC/ctrevc3.f @@ -222,10 +222,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* @generated from ztrevc3.f, fortran z -> c, Tue Apr 19 01:47:44 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -247,10 +243,9 @@ $ LDVR, MM, M, WORK, LWORK, RWORK, LRWORK, INFO) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/ctrexc.f b/lapack-netlib/SRC/ctrexc.f index cefc32cb9..ea64ddf9b 100644 --- a/lapack-netlib/SRC/ctrexc.f +++ b/lapack-netlib/SRC/ctrexc.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ diff --git a/lapack-netlib/SRC/ctrrfs.f b/lapack-netlib/SRC/ctrrfs.f index 840f9b509..40c3cdde0 100644 --- a/lapack-netlib/SRC/ctrrfs.f +++ b/lapack-netlib/SRC/ctrrfs.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ctrsen.f b/lapack-netlib/SRC/ctrsen.f index aaba3c5a2..d93b97be6 100644 --- a/lapack-netlib/SRC/ctrsen.f +++ b/lapack-netlib/SRC/ctrsen.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -264,10 +262,9 @@ SUBROUTINE CTRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, W, M, S, $ SEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, JOB diff --git a/lapack-netlib/SRC/ctrsna.f b/lapack-netlib/SRC/ctrsna.f index e08185b08..b8074907c 100644 --- a/lapack-netlib/SRC/ctrsna.f +++ b/lapack-netlib/SRC/ctrsna.f @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -249,10 +247,9 @@ $ LDVR, S, SEP, MM, M, WORK, LDWORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/lapack-netlib/SRC/ctrsyl.f b/lapack-netlib/SRC/ctrsyl.f index 2561804de..7a2243ee9 100644 --- a/lapack-netlib/SRC/ctrsyl.f +++ b/lapack-netlib/SRC/ctrsyl.f @@ -149,18 +149,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexSYcomputational * * ===================================================================== SUBROUTINE CTRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, $ LDC, SCALE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANA, TRANB diff --git a/lapack-netlib/SRC/ctrti2.f b/lapack-netlib/SRC/ctrti2.f index 55d8d1fa7..47a9ab45f 100644 --- a/lapack-netlib/SRC/ctrti2.f +++ b/lapack-netlib/SRC/ctrti2.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTRTI2( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/ctrtri.f b/lapack-netlib/SRC/ctrtri.f index 4c284d18d..d7f41ba3e 100644 --- a/lapack-netlib/SRC/ctrtri.f +++ b/lapack-netlib/SRC/ctrtri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTRTRI( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/ctrtrs.f b/lapack-netlib/SRC/ctrtrs.f index 4019ced03..47e4245f7 100644 --- a/lapack-netlib/SRC/ctrtrs.f +++ b/lapack-netlib/SRC/ctrtrs.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ctrttf.f b/lapack-netlib/SRC/ctrttf.f index c762b0c33..bbfa0a922 100644 --- a/lapack-netlib/SRC/ctrttf.f +++ b/lapack-netlib/SRC/ctrttf.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -216,10 +214,9 @@ * ===================================================================== SUBROUTINE CTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/ctrttp.f b/lapack-netlib/SRC/ctrttp.f index 0fa3e1a5a..92bdb23f9 100644 --- a/lapack-netlib/SRC/ctrttp.f +++ b/lapack-netlib/SRC/ctrttp.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CTRTTP( UPLO, N, A, LDA, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ctzrzf.f b/lapack-netlib/SRC/ctzrzf.f index f3f5fdfc3..b21f092ce 100644 --- a/lapack-netlib/SRC/ctzrzf.f +++ b/lapack-netlib/SRC/ctzrzf.f @@ -116,8 +116,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -143,7 +141,7 @@ *> V = ( I 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, +*> is the output stored in A on exit from CTZRZF, *> and tau(k) is the kth element of the array TAU. *> *> \endverbatim @@ -151,10 +149,9 @@ * ===================================================================== SUBROUTINE CTZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cunbdb.f b/lapack-netlib/SRC/cunbdb.f index 9006242c6..a41895dc8 100644 --- a/lapack-netlib/SRC/cunbdb.f +++ b/lapack-netlib/SRC/cunbdb.f @@ -255,8 +255,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -287,10 +285,9 @@ $ X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, $ TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIGNS, TRANS diff --git a/lapack-netlib/SRC/cunbdb1.f b/lapack-netlib/SRC/cunbdb1.f index bfd2147df..740e38a85 100644 --- a/lapack-netlib/SRC/cunbdb1.f +++ b/lapack-netlib/SRC/cunbdb1.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -202,10 +200,9 @@ SUBROUTINE CUNBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/cunbdb2.f b/lapack-netlib/SRC/cunbdb2.f index ae73699b6..db238f925 100644 --- a/lapack-netlib/SRC/cunbdb2.f +++ b/lapack-netlib/SRC/cunbdb2.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -202,10 +200,9 @@ SUBROUTINE CUNBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/cunbdb3.f b/lapack-netlib/SRC/cunbdb3.f index c0abde1eb..b532bfbc8 100644 --- a/lapack-netlib/SRC/cunbdb3.f +++ b/lapack-netlib/SRC/cunbdb3.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -202,10 +200,9 @@ SUBROUTINE CUNBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/cunbdb4.f b/lapack-netlib/SRC/cunbdb4.f index 803b85145..e6afd89c3 100644 --- a/lapack-netlib/SRC/cunbdb4.f +++ b/lapack-netlib/SRC/cunbdb4.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complexOTHERcomputational * *> \par Further Details: @@ -213,10 +211,9 @@ $ TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/cunbdb5.f b/lapack-netlib/SRC/cunbdb5.f index 95997450a..d2ff4e700 100644 --- a/lapack-netlib/SRC/cunbdb5.f +++ b/lapack-netlib/SRC/cunbdb5.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, $ LDQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, diff --git a/lapack-netlib/SRC/cunbdb6.f b/lapack-netlib/SRC/cunbdb6.f index 05a13896d..7acc99cb8 100644 --- a/lapack-netlib/SRC/cunbdb6.f +++ b/lapack-netlib/SRC/cunbdb6.f @@ -146,18 +146,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, $ LDQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, diff --git a/lapack-netlib/SRC/cuncsd.f b/lapack-netlib/SRC/cuncsd.f index f30529130..3653a396a 100644 --- a/lapack-netlib/SRC/cuncsd.f +++ b/lapack-netlib/SRC/cuncsd.f @@ -308,8 +308,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== @@ -320,10 +318,9 @@ $ LDV2T, WORK, LWORK, RWORK, LRWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS diff --git a/lapack-netlib/SRC/cuncsd2by1.f b/lapack-netlib/SRC/cuncsd2by1.f index 1d49885f2..8360d5932 100644 --- a/lapack-netlib/SRC/cuncsd2by1.f +++ b/lapack-netlib/SRC/cuncsd2by1.f @@ -190,9 +190,10 @@ *> The dimension of the array WORK. *> *> 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 -*> message related to LWORK is issued by XERBLA. +*> only calculates the optimal size of the WORK and RWORK +*> arrays, returns this value as the first entry of the WORK +*> and RWORK array, respectively, and no error message related +*> to LWORK or LRWORK is issued by XERBLA. *> \endverbatim *> *> \param[out] RWORK @@ -212,9 +213,10 @@ *> 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 -*> message related to LRWORK is issued by XERBLA. +*> only calculates the optimal size of the WORK and RWORK +*> arrays, returns this value as the first entry of the WORK +*> and RWORK array, respectively, and no error message related +*> to LWORK or LRWORK is issued by XERBLA. *> \endverbatim * *> \param[out] IWORK @@ -245,8 +247,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== @@ -255,10 +255,9 @@ $ LDV1T, WORK, LWORK, RWORK, LRWORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T @@ -313,7 +312,7 @@ WANTU1 = LSAME( JOBU1, 'Y' ) WANTU2 = LSAME( JOBU2, 'Y' ) WANTV1T = LSAME( JOBV1T, 'Y' ) - LQUERY = LWORK .EQ. -1 + LQUERY = ( LWORK.EQ.-1 ) .OR. ( LRWORK.EQ.-1 ) * IF( M .LT. 0 ) THEN INFO = -4 @@ -513,6 +512,9 @@ IF( LWORK .LT. LWORKMIN .AND. .NOT.LQUERY ) THEN INFO = -19 END IF + IF( LRWORK .LT. LRWORKMIN .AND. .NOT.LQUERY ) THEN + INFO = -21 + END IF END IF IF( INFO .NE. 0 ) THEN CALL XERBLA( 'CUNCSD2BY1', -INFO ) @@ -566,8 +568,8 @@ $ RWORK(IPHI), U1, LDU1, U2, LDU2, V1T, LDV1T, CDUM, $ 1, RWORK(IB11D), RWORK(IB11E), RWORK(IB12D), $ RWORK(IB12E), RWORK(IB21D), RWORK(IB21E), - $ RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), LBBCSD, - $ CHILDINFO ) + $ RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), + $ LRWORK-IBBCSD+1, CHILDINFO ) * * Permute rows and columns to place zero submatrices in * preferred positions @@ -708,6 +710,10 @@ * * Accumulate Householder reflectors * + + IF( WANTU2 .AND. M-P .GT. 0 ) THEN + CALL CCOPY( M-P, WORK(IORBDB+P), 1, U2, 1 ) + END IF IF( WANTU1 .AND. P .GT. 0 ) THEN CALL CCOPY( P, WORK(IORBDB), 1, U1, 1 ) DO J = 2, P @@ -719,7 +725,6 @@ $ WORK(IORGQR), LORGQR, CHILDINFO ) END IF IF( WANTU2 .AND. M-P .GT. 0 ) THEN - CALL CCOPY( M-P, WORK(IORBDB+P), 1, U2, 1 ) DO J = 2, M-P U2(1,J) = ZERO END DO diff --git a/lapack-netlib/SRC/cung2l.f b/lapack-netlib/SRC/cung2l.f index 88d285e9f..a05843a5d 100644 --- a/lapack-netlib/SRC/cung2l.f +++ b/lapack-netlib/SRC/cung2l.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNG2L( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/cung2r.f b/lapack-netlib/SRC/cung2r.f index eea37d18e..a984818c1 100644 --- a/lapack-netlib/SRC/cung2r.f +++ b/lapack-netlib/SRC/cung2r.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNG2R( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/cungbr.f b/lapack-netlib/SRC/cungbr.f index 0dddd42a6..c973d0b0a 100644 --- a/lapack-netlib/SRC/cungbr.f +++ b/lapack-netlib/SRC/cungbr.f @@ -150,17 +150,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complexGBcomputational * * ===================================================================== SUBROUTINE CUNGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER VECT @@ -236,7 +233,7 @@ END IF END IF END IF - LWKOPT = WORK( 1 ) + LWKOPT = REAL( WORK( 1 ) ) LWKOPT = MAX (LWKOPT, MN) END IF * diff --git a/lapack-netlib/SRC/cunghr.f b/lapack-netlib/SRC/cunghr.f index 40c71d4a7..4f8a0a263 100644 --- a/lapack-netlib/SRC/cunghr.f +++ b/lapack-netlib/SRC/cunghr.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/cungl2.f b/lapack-netlib/SRC/cungl2.f index 837354da2..81a3b89cd 100644 --- a/lapack-netlib/SRC/cungl2.f +++ b/lapack-netlib/SRC/cungl2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNGL2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/cunglq.f b/lapack-netlib/SRC/cunglq.f index 10c2deef3..e250e036c 100644 --- a/lapack-netlib/SRC/cunglq.f +++ b/lapack-netlib/SRC/cunglq.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cungql.f b/lapack-netlib/SRC/cungql.f index 4a13826eb..d3b812a62 100644 --- a/lapack-netlib/SRC/cungql.f +++ b/lapack-netlib/SRC/cungql.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cungqr.f b/lapack-netlib/SRC/cungqr.f index f8d06429a..5010ae0df 100644 --- a/lapack-netlib/SRC/cungqr.f +++ b/lapack-netlib/SRC/cungqr.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cungr2.f b/lapack-netlib/SRC/cungr2.f index defc5859f..1f2f2b461 100644 --- a/lapack-netlib/SRC/cungr2.f +++ b/lapack-netlib/SRC/cungr2.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNGR2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/cungrq.f b/lapack-netlib/SRC/cungrq.f index 50837445e..1593ff938 100644 --- a/lapack-netlib/SRC/cungrq.f +++ b/lapack-netlib/SRC/cungrq.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/cungtr.f b/lapack-netlib/SRC/cungtr.f index 2749bc366..26ff0428e 100644 --- a/lapack-netlib/SRC/cungtr.f +++ b/lapack-netlib/SRC/cungtr.f @@ -116,17 +116,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cungtsqr.f b/lapack-netlib/SRC/cungtsqr.f index bc5305cf9..64ccb9731 100644 --- a/lapack-netlib/SRC/cungtsqr.f +++ b/lapack-netlib/SRC/cungtsqr.f @@ -9,10 +9,11 @@ *> Download CUNGTSQR + dependencies *> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] +*> \endhtmlonly *> * Definition: * =========== @@ -59,7 +60,7 @@ *> \param[in] MB *> \verbatim *> MB is INTEGER -*> The row block size used by DLATSQR to return +*> The row block size used by CLATSQR to return *> arrays A and T. MB > N. *> (Note that if MB > M, then M is used instead of MB *> as the row block size). @@ -155,9 +156,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* -*> \ingroup comlexOTHERcomputational +*> \ingroup complexOTHERcomputational * *> \par Contributors: * ================== @@ -175,10 +174,9 @@ $ INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, LWORK, M, N, MB, NB diff --git a/lapack-netlib/SRC/cunhr_col.f b/lapack-netlib/SRC/cunhr_col.f index 15c31491e..faa37d3ed 100644 --- a/lapack-netlib/SRC/cunhr_col.f +++ b/lapack-netlib/SRC/cunhr_col.f @@ -13,6 +13,7 @@ *> [ZIP] *> *> [TXT] +*> \endhtmlonly *> * Definition: * =========== @@ -112,7 +113,7 @@ *> blocks (same format as the output T in CGEQRT). *> The matrix T and the matrix V stored on output in A *> implicitly define Q_out. NOTE: The lower triangles -*> below the upper-triangular blcoks will be filled with +*> below the upper-triangular blocks will be filled with *> zeros. See Further Details. *> \endverbatim *> @@ -217,11 +218,11 @@ *> If Q_in is the result of doing a QR factorization *> B = Q_in * R_in, then: *> -*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = O_out * R_out. +*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = Q_out * R_out. *> *> So if one wants to interpret Q_out as the result -*> of the QR factorization of B, then corresponding R_out -*> should be obtained by R_out = S * R_in, i.e. some rows of R_in +*> of the QR factorization of B, then the corresponding R_out +*> should be equal to R_out = S * R_in, i.e. some rows of R_in *> should be multiplied by -1. *> *> For the details of the algorithm, see [1]. @@ -240,8 +241,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -259,10 +258,9 @@ SUBROUTINE CUNHR_COL( M, N, NB, A, LDA, T, LDT, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, NB diff --git a/lapack-netlib/SRC/cunm22.f b/lapack-netlib/SRC/cunm22.f index 3c6b4c125..f11a2180c 100644 --- a/lapack-netlib/SRC/cunm22.f +++ b/lapack-netlib/SRC/cunm22.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNM22( SIDE, TRANS, M, N, N1, N2, Q, LDQ, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/cunm2l.f b/lapack-netlib/SRC/cunm2l.f index 75dd5f911..416c0a0c3 100644 --- a/lapack-netlib/SRC/cunm2l.f +++ b/lapack-netlib/SRC/cunm2l.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/cunm2r.f b/lapack-netlib/SRC/cunm2r.f index 569276f8c..a79e9a78d 100644 --- a/lapack-netlib/SRC/cunm2r.f +++ b/lapack-netlib/SRC/cunm2r.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/cunmbr.f b/lapack-netlib/SRC/cunmbr.f index 4136fcd4b..cef6025b0 100644 --- a/lapack-netlib/SRC/cunmbr.f +++ b/lapack-netlib/SRC/cunmbr.f @@ -189,18 +189,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, VECT @@ -243,13 +240,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M - END IF - IF( M.EQ.0 .OR. N.EQ.0 ) THEN - NW = 0 + NW = MAX( 1, M ) END IF IF( .NOT.APPLYQ .AND. .NOT.LSAME( VECT, 'P' ) ) THEN INFO = -1 @@ -269,12 +263,12 @@ INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * IF( INFO.EQ.0 ) THEN - IF( NW.GT.0 ) THEN + IF( M.GT.0 .AND. N.GT.0 ) THEN IF( APPLYQ ) THEN IF( LEFT ) THEN NB = ILAENV( 1, 'CUNMQR', SIDE // TRANS, M-1, N, M-1, @@ -292,7 +286,7 @@ $ -1 ) END IF END IF - LWKOPT = MAX( 1, NW*NB ) + LWKOPT = NW*NB ELSE LWKOPT = 1 END IF diff --git a/lapack-netlib/SRC/cunmhr.f b/lapack-netlib/SRC/cunmhr.f index aa6588631..af3140d5f 100644 --- a/lapack-netlib/SRC/cunmhr.f +++ b/lapack-netlib/SRC/cunmhr.f @@ -171,18 +171,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -223,10 +220,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -245,7 +242,7 @@ INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * @@ -255,7 +252,7 @@ ELSE NB = ILAENV( 1, 'CUNMQR', SIDE // TRANS, M, NH, NH, -1 ) END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/cunml2.f b/lapack-netlib/SRC/cunml2.f index b55b0c244..6af8cc035 100644 --- a/lapack-netlib/SRC/cunml2.f +++ b/lapack-netlib/SRC/cunml2.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/cunmlq.f b/lapack-netlib/SRC/cunmlq.f index 8cf4442c2..25a410770 100644 --- a/lapack-netlib/SRC/cunmlq.f +++ b/lapack-netlib/SRC/cunmlq.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -219,10 +216,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -238,7 +235,7 @@ INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -251,7 +248,7 @@ ELSE NB = MIN( NBMAX, ILAENV( 1, 'CUNMLQ', SIDE // TRANS, M, N, $ K, -1 ) ) - LWKOPT = MAX( 1, NW )*NB + TSIZE + LWKOPT = NW*NB + TSIZE END IF WORK( 1 ) = LWKOPT END IF @@ -274,7 +271,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'CUNMLQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/cunmql.f b/lapack-netlib/SRC/cunmql.f index e7279607a..3c7166066 100644 --- a/lapack-netlib/SRC/cunmql.f +++ b/lapack-netlib/SRC/cunmql.f @@ -65,7 +65,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -273,7 +270,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.(NW*NB+TSIZE) ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'CUNMQL', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/cunmqr.f b/lapack-netlib/SRC/cunmqr.f index 41fee718e..7e59d7129 100644 --- a/lapack-netlib/SRC/cunmqr.f +++ b/lapack-netlib/SRC/cunmqr.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -218,10 +215,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -237,7 +234,7 @@ INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -247,7 +244,7 @@ * NB = MIN( NBMAX, ILAENV( 1, 'CUNMQR', SIDE // TRANS, M, N, K, $ -1 ) ) - LWKOPT = MAX( 1, NW )*NB + TSIZE + LWKOPT = NW*NB + TSIZE WORK( 1 ) = LWKOPT END IF * @@ -268,7 +265,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'CUNMQR', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/cunmr2.f b/lapack-netlib/SRC/cunmr2.f index 40b6583d1..ebd4cfbb6 100644 --- a/lapack-netlib/SRC/cunmr2.f +++ b/lapack-netlib/SRC/cunmr2.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/cunmr3.f b/lapack-netlib/SRC/cunmr3.f index 0a8bad8f0..dcd893fa3 100644 --- a/lapack-netlib/SRC/cunmr3.f +++ b/lapack-netlib/SRC/cunmr3.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -178,10 +176,9 @@ SUBROUTINE CUNMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/cunmrq.f b/lapack-netlib/SRC/cunmrq.f index 3513215a8..5a233f604 100644 --- a/lapack-netlib/SRC/cunmrq.f +++ b/lapack-netlib/SRC/cunmrq.f @@ -65,7 +65,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -272,7 +269,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'CUNMRQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/cunmrz.f b/lapack-netlib/SRC/cunmrz.f index ccf9cd5d0..8e06f2329 100644 --- a/lapack-netlib/SRC/cunmrz.f +++ b/lapack-netlib/SRC/cunmrz.f @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * *> \par Contributors: @@ -187,10 +185,9 @@ SUBROUTINE CUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -259,7 +256,7 @@ INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * @@ -297,7 +294,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'CUNMRQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/cunmtr.f b/lapack-netlib/SRC/cunmtr.f index 81d2ca6d2..097dba91e 100644 --- a/lapack-netlib/SRC/cunmtr.f +++ b/lapack-netlib/SRC/cunmtr.f @@ -164,18 +164,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUNMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, UPLO @@ -216,10 +213,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -236,7 +233,7 @@ INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -258,7 +255,7 @@ $ -1 ) END IF END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/cupgtr.f b/lapack-netlib/SRC/cupgtr.f index 4c75d3ea1..c491a1f4d 100644 --- a/lapack-netlib/SRC/cupgtr.f +++ b/lapack-netlib/SRC/cupgtr.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/cupmtr.f b/lapack-netlib/SRC/cupmtr.f index eb6d219c6..2629e9179 100644 --- a/lapack-netlib/SRC/cupmtr.f +++ b/lapack-netlib/SRC/cupmtr.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE CUPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, UPLO diff --git a/lapack-netlib/SRC/dbbcsd.f b/lapack-netlib/SRC/dbbcsd.f index f1df567c1..4fcf9ab5d 100644 --- a/lapack-netlib/SRC/dbbcsd.f +++ b/lapack-netlib/SRC/dbbcsd.f @@ -322,8 +322,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== @@ -332,10 +330,9 @@ $ V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, $ B22D, B22E, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS @@ -354,12 +351,13 @@ * .. Parameters .. INTEGER MAXITR PARAMETER ( MAXITR = 6 ) - DOUBLE PRECISION HUNDRED, MEIGHTH, ONE, PIOVER2, TEN, ZERO + DOUBLE PRECISION HUNDRED, MEIGHTH, ONE, TEN, ZERO PARAMETER ( HUNDRED = 100.0D0, MEIGHTH = -0.125D0, - $ ONE = 1.0D0, PIOVER2 = 1.57079632679489662D0, - $ TEN = 10.0D0, ZERO = 0.0D0 ) + $ ONE = 1.0D0, TEN = 10.0D0, ZERO = 0.0D0 ) DOUBLE PRECISION NEGONE PARAMETER ( NEGONE = -1.0D0 ) + DOUBLE PRECISION PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210D0 ) * .. * .. Local Scalars .. LOGICAL COLMAJOR, LQUERY, RESTART11, RESTART12, diff --git a/lapack-netlib/SRC/dbdsdc.f b/lapack-netlib/SRC/dbdsdc.f index 4c8b95f85..99fe82296 100644 --- a/lapack-netlib/SRC/dbdsdc.f +++ b/lapack-netlib/SRC/dbdsdc.f @@ -191,8 +191,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -205,10 +203,9 @@ SUBROUTINE DBDSDC( UPLO, COMPQ, N, D, E, U, LDU, VT, LDVT, Q, IQ, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, UPLO diff --git a/lapack-netlib/SRC/dbdsqr.f b/lapack-netlib/SRC/dbdsqr.f index 7d47fa282..c220a5875 100644 --- a/lapack-netlib/SRC/dbdsqr.f +++ b/lapack-netlib/SRC/dbdsqr.f @@ -233,18 +233,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, $ LDU, C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dbdsvdx.f b/lapack-netlib/SRC/dbdsvdx.f index 10d97a71f..4ccd4edad 100644 --- a/lapack-netlib/SRC/dbdsvdx.f +++ b/lapack-netlib/SRC/dbdsvdx.f @@ -218,18 +218,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ NS, S, Z, LDZ, WORK, IWORK, INFO) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ddisna.f b/lapack-netlib/SRC/ddisna.f index 61345c6e7..1e5e9778e 100644 --- a/lapack-netlib/SRC/ddisna.f +++ b/lapack-netlib/SRC/ddisna.f @@ -110,17 +110,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DDISNA( JOB, M, N, D, SEP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/dgbbrd.f b/lapack-netlib/SRC/dgbbrd.f index 350a982fb..03aaa0a00 100644 --- a/lapack-netlib/SRC/dgbbrd.f +++ b/lapack-netlib/SRC/dgbbrd.f @@ -179,18 +179,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * * ===================================================================== SUBROUTINE DGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, $ LDQ, PT, LDPT, C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER VECT diff --git a/lapack-netlib/SRC/dgbcon.f b/lapack-netlib/SRC/dgbcon.f index 26f14fd64..1ffb3c0f8 100644 --- a/lapack-netlib/SRC/dgbcon.f +++ b/lapack-netlib/SRC/dgbcon.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * * ===================================================================== SUBROUTINE DGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/dgbequ.f b/lapack-netlib/SRC/dgbequ.f index 486c88de5..ab8b20b2e 100644 --- a/lapack-netlib/SRC/dgbequ.f +++ b/lapack-netlib/SRC/dgbequ.f @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * * ===================================================================== SUBROUTINE DGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/dgbequb.f b/lapack-netlib/SRC/dgbequb.f index f7543aa0c..93179f733 100644 --- a/lapack-netlib/SRC/dgbequb.f +++ b/lapack-netlib/SRC/dgbequb.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * * ===================================================================== SUBROUTINE DGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/dgbrfs.f b/lapack-netlib/SRC/dgbrfs.f index 179ddfe57..9520f23f6 100644 --- a/lapack-netlib/SRC/dgbrfs.f +++ b/lapack-netlib/SRC/dgbrfs.f @@ -196,8 +196,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * * ===================================================================== @@ -205,10 +203,9 @@ $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dgbrfsx.f b/lapack-netlib/SRC/dgbrfsx.f index 76afb2d6a..8ab1a580f 100644 --- a/lapack-netlib/SRC/dgbrfsx.f +++ b/lapack-netlib/SRC/dgbrfsx.f @@ -429,8 +429,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleGBcomputational * * ===================================================================== @@ -440,10 +438,9 @@ $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER TRANS, EQUED diff --git a/lapack-netlib/SRC/dgbsv.f b/lapack-netlib/SRC/dgbsv.f index b14fcaa5a..1d4e6cb93 100644 --- a/lapack-netlib/SRC/dgbsv.f +++ b/lapack-netlib/SRC/dgbsv.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE DGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS diff --git a/lapack-netlib/SRC/dgbsvx.f b/lapack-netlib/SRC/dgbsvx.f index da4bf9103..030f28f0a 100644 --- a/lapack-netlib/SRC/dgbsvx.f +++ b/lapack-netlib/SRC/dgbsvx.f @@ -360,8 +360,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleGBsolve * * ===================================================================== @@ -369,10 +367,9 @@ $ LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/dgbsvxx.f b/lapack-netlib/SRC/dgbsvxx.f index 058b20686..0ea26a3ec 100644 --- a/lapack-netlib/SRC/dgbsvxx.f +++ b/lapack-netlib/SRC/dgbsvxx.f @@ -549,8 +549,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleGBsolve * * ===================================================================== @@ -560,10 +558,9 @@ $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/dgbtf2.f b/lapack-netlib/SRC/dgbtf2.f index eae7d2794..a64368258 100644 --- a/lapack-netlib/SRC/dgbtf2.f +++ b/lapack-netlib/SRC/dgbtf2.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * *> \par Further Details: @@ -145,10 +143,9 @@ * ===================================================================== SUBROUTINE DGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/dgbtrf.f b/lapack-netlib/SRC/dgbtrf.f index 86fad80e3..af305e26b 100644 --- a/lapack-netlib/SRC/dgbtrf.f +++ b/lapack-netlib/SRC/dgbtrf.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * *> \par Further Details: @@ -144,10 +142,9 @@ * ===================================================================== SUBROUTINE DGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/dgbtrs.f b/lapack-netlib/SRC/dgbtrs.f index 083734961..f22d802de 100644 --- a/lapack-netlib/SRC/dgbtrs.f +++ b/lapack-netlib/SRC/dgbtrs.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * * ===================================================================== SUBROUTINE DGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dgebak.f b/lapack-netlib/SRC/dgebak.f index 10a78aa1a..e978d7af2 100644 --- a/lapack-netlib/SRC/dgebak.f +++ b/lapack-netlib/SRC/dgebak.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB, SIDE diff --git a/lapack-netlib/SRC/dgebal.f b/lapack-netlib/SRC/dgebal.f index 95876aced..821c7704a 100644 --- a/lapack-netlib/SRC/dgebal.f +++ b/lapack-netlib/SRC/dgebal.f @@ -121,8 +121,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -160,10 +158,9 @@ * ===================================================================== SUBROUTINE DGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/dgebd2.f b/lapack-netlib/SRC/dgebd2.f index 2bec4e29c..daaa187af 100644 --- a/lapack-netlib/SRC/dgebd2.f +++ b/lapack-netlib/SRC/dgebd2.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ * ===================================================================== SUBROUTINE DGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgebrd.f b/lapack-netlib/SRC/dgebrd.f index 56a7abef0..0f0d1651a 100644 --- a/lapack-netlib/SRC/dgebrd.f +++ b/lapack-netlib/SRC/dgebrd.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -205,10 +203,9 @@ SUBROUTINE DGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dgecon.f b/lapack-netlib/SRC/dgecon.f index be20bbcd2..aa10dee9a 100644 --- a/lapack-netlib/SRC/dgecon.f +++ b/lapack-netlib/SRC/dgecon.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/dgeequ.f b/lapack-netlib/SRC/dgeequ.f index 2d9475cc7..3dc323014 100644 --- a/lapack-netlib/SRC/dgeequ.f +++ b/lapack-netlib/SRC/dgeequ.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgeequb.f b/lapack-netlib/SRC/dgeequb.f index 0404274d3..728c6213e 100644 --- a/lapack-netlib/SRC/dgeequb.f +++ b/lapack-netlib/SRC/dgeequb.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgees.f b/lapack-netlib/SRC/dgees.f index c2723f619..82b9d6ee4 100644 --- a/lapack-netlib/SRC/dgees.f +++ b/lapack-netlib/SRC/dgees.f @@ -208,18 +208,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEeigen * * ===================================================================== SUBROUTINE DGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, WR, WI, $ VS, LDVS, WORK, LWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVS, SORT diff --git a/lapack-netlib/SRC/dgeesx.f b/lapack-netlib/SRC/dgeesx.f index a08104d3d..08fbb6468 100644 --- a/lapack-netlib/SRC/dgeesx.f +++ b/lapack-netlib/SRC/dgeesx.f @@ -272,8 +272,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleGEeigen * * ===================================================================== @@ -281,10 +279,9 @@ $ WR, WI, VS, LDVS, RCONDE, RCONDV, WORK, LWORK, $ IWORK, LIWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBVS, SENSE, SORT diff --git a/lapack-netlib/SRC/dgeev.f b/lapack-netlib/SRC/dgeev.f index 2dc1588ab..4677b9f52 100644 --- a/lapack-netlib/SRC/dgeev.f +++ b/lapack-netlib/SRC/dgeev.f @@ -181,7 +181,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 * * @precisions fortran d -> s * @@ -192,10 +191,9 @@ $ LDVR, WORK, LWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/dgeevx.f b/lapack-netlib/SRC/dgeevx.f index edf6a4366..212bea2bb 100644 --- a/lapack-netlib/SRC/dgeevx.f +++ b/lapack-netlib/SRC/dgeevx.f @@ -294,7 +294,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 * * @precisions fortran d -> s * @@ -306,10 +305,9 @@ $ RCONDE, RCONDV, WORK, LWORK, IWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE diff --git a/lapack-netlib/SRC/dgehd2.f b/lapack-netlib/SRC/dgehd2.f index 4521b66e1..c71e38433 100644 --- a/lapack-netlib/SRC/dgehd2.f +++ b/lapack-netlib/SRC/dgehd2.f @@ -106,8 +106,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -149,10 +147,9 @@ * ===================================================================== SUBROUTINE DGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, N diff --git a/lapack-netlib/SRC/dgehrd.f b/lapack-netlib/SRC/dgehrd.f index 23fd87250..a40c61cb6 100644 --- a/lapack-netlib/SRC/dgehrd.f +++ b/lapack-netlib/SRC/dgehrd.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -167,10 +165,9 @@ * ===================================================================== SUBROUTINE DGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/dgejsv.f b/lapack-netlib/SRC/dgejsv.f index a30cfab87..fc13f4a5f 100644 --- a/lapack-netlib/SRC/dgejsv.f +++ b/lapack-netlib/SRC/dgejsv.f @@ -289,7 +289,7 @@ *> singular values might be lost. *> *> If full SVD is needed, the following two condition numbers are -*> useful for the analysis of the algorithm. They are provied for +*> useful for the analysis of the algorithm. They are provided for *> a developer/implementer who is familiar with the details of *> the method. *> @@ -391,8 +391,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleGEsing * *> \par Further Details: @@ -476,10 +474,9 @@ $ M, N, A, LDA, SVA, U, LDU, V, LDV, $ WORK, LWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. IMPLICIT NONE @@ -932,7 +929,7 @@ * (eg speed by replacing global with restricted window pivoting, such * as in SGEQPX from TOMS # 782). Good results will be obtained using * SGEQPX with properly (!) chosen numerical parameters. -* Any improvement of DGEQP3 improves overal performance of DGEJSV. +* Any improvement of DGEQP3 improves overall performance of DGEJSV. * * A * P1 = Q1 * [ R1^t 0]^t: DO 1963 p = 1, N diff --git a/lapack-netlib/SRC/dgelq.f b/lapack-netlib/SRC/dgelq.f index 7b2f80862..013b6c356 100644 --- a/lapack-netlib/SRC/dgelq.f +++ b/lapack-netlib/SRC/dgelq.f @@ -170,10 +170,9 @@ SUBROUTINE DGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, TSIZE, LWORK diff --git a/lapack-netlib/SRC/dgelq2.f b/lapack-netlib/SRC/dgelq2.f index a6c835de4..9915c57d4 100644 --- a/lapack-netlib/SRC/dgelq2.f +++ b/lapack-netlib/SRC/dgelq2.f @@ -40,7 +40,7 @@ *> where: *> *> Q is a n-by-n orthogonal matrix; -*> L is an lower-triangular m-by-m matrix; +*> L is a lower-triangular m-by-m matrix; *> 0 is a m-by-(n-m) zero matrix, if m < n. *> *> \endverbatim @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -129,10 +127,9 @@ * ===================================================================== SUBROUTINE DGELQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgelqf.f b/lapack-netlib/SRC/dgelqf.f index 4b11761f6..ed3372f96 100644 --- a/lapack-netlib/SRC/dgelqf.f +++ b/lapack-netlib/SRC/dgelqf.f @@ -40,7 +40,7 @@ *> where: *> *> Q is a N-by-N orthogonal matrix; -*> L is an lower-triangular M-by-M matrix; +*> L is a lower-triangular M-by-M matrix; *> 0 is a M-by-(N-M) zero matrix, if M < N. *> *> \endverbatim @@ -118,8 +118,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -143,10 +141,9 @@ * ===================================================================== SUBROUTINE DGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dgelqt.f b/lapack-netlib/SRC/dgelqt.f index 5b4ee65b5..263d4dfa2 100644 --- a/lapack-netlib/SRC/dgelqt.f +++ b/lapack-netlib/SRC/dgelqt.f @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQRT + dependencies +*> Download DGELQT + dependencies *> *> [TGZ] *> @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -139,10 +137,9 @@ * ===================================================================== SUBROUTINE DGELQT( M, N, MB, A, LDA, T, LDT, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, MB diff --git a/lapack-netlib/SRC/dgelqt3.f b/lapack-netlib/SRC/dgelqt3.f index f19a91ca2..5bcc06a80 100644 --- a/lapack-netlib/SRC/dgelqt3.f +++ b/lapack-netlib/SRC/dgelqt3.f @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQRT3 + dependencies +*> Download DGELQT3 + dependencies *> *> [TGZ] *> @@ -100,8 +100,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -131,10 +129,9 @@ * ===================================================================== RECURSIVE SUBROUTINE DGELQT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT @@ -174,7 +171,7 @@ * IF( M.EQ.1 ) THEN * -* Compute Householder transform when N=1 +* Compute Householder transform when M=1 * CALL DLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T ) * diff --git a/lapack-netlib/SRC/dgels.f b/lapack-netlib/SRC/dgels.f index 33e6d51bf..3d0c6155d 100644 --- a/lapack-netlib/SRC/dgels.f +++ b/lapack-netlib/SRC/dgels.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEsolve * * ===================================================================== SUBROUTINE DGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dgelsd.f b/lapack-netlib/SRC/dgelsd.f index f2cfd6337..b3b3d8b2d 100644 --- a/lapack-netlib/SRC/dgelsd.f +++ b/lapack-netlib/SRC/dgelsd.f @@ -194,8 +194,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEsolve * *> \par Contributors: @@ -209,10 +207,9 @@ SUBROUTINE DGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/dgelss.f b/lapack-netlib/SRC/dgelss.f index 674a7ba78..8ed703fcf 100644 --- a/lapack-netlib/SRC/dgelss.f +++ b/lapack-netlib/SRC/dgelss.f @@ -164,18 +164,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEsolve * * ===================================================================== SUBROUTINE DGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/dgelsy.f b/lapack-netlib/SRC/dgelsy.f index 1ca238d1f..aebab9264 100644 --- a/lapack-netlib/SRC/dgelsy.f +++ b/lapack-netlib/SRC/dgelsy.f @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEsolve * *> \par Contributors: @@ -204,10 +202,9 @@ SUBROUTINE DGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/dgemlq.f b/lapack-netlib/SRC/dgemlq.f index dea693c24..3ba209105 100644 --- a/lapack-netlib/SRC/dgemlq.f +++ b/lapack-netlib/SRC/dgemlq.f @@ -169,10 +169,9 @@ SUBROUTINE DGEMLQ( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/dgemlqt.f b/lapack-netlib/SRC/dgemlqt.f index 8cc59b8ee..ac75fd24e 100644 --- a/lapack-netlib/SRC/dgemlqt.f +++ b/lapack-netlib/SRC/dgemlqt.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -186,7 +183,7 @@ * .. * .. Local Scalars .. LOGICAL LEFT, RIGHT, TRAN, NOTRAN - INTEGER I, IB, LDWORK, KF + INTEGER I, IB, LDWORK, KF, Q * .. * .. External Functions .. LOGICAL LSAME @@ -210,8 +207,10 @@ * IF( LEFT ) THEN LDWORK = MAX( 1, N ) + Q = M ELSE IF ( RIGHT ) THEN LDWORK = MAX( 1, M ) + Q = N END IF IF( .NOT.LEFT .AND. .NOT.RIGHT ) THEN INFO = -1 @@ -221,7 +220,7 @@ INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 - ELSE IF( K.LT.0) THEN + ELSE IF( K.LT.0 .OR. K.GT.Q ) THEN INFO = -5 ELSE IF( MB.LT.1 .OR. (MB.GT.K .AND. K.GT.0)) THEN INFO = -6 diff --git a/lapack-netlib/SRC/dgemqr.f b/lapack-netlib/SRC/dgemqr.f index 0f7a42233..022cf21e4 100644 --- a/lapack-netlib/SRC/dgemqr.f +++ b/lapack-netlib/SRC/dgemqr.f @@ -170,10 +170,9 @@ SUBROUTINE DGEMQR( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/dgemqrt.f b/lapack-netlib/SRC/dgemqrt.f index 12cf92981..9191f7546 100644 --- a/lapack-netlib/SRC/dgemqrt.f +++ b/lapack-netlib/SRC/dgemqrt.f @@ -94,7 +94,7 @@ *> NB is INTEGER *> The block size used for the storage of T. K >= NB >= 1. *> This must be the same value of NB used to generate T -*> in CGEQRT. +*> in DGEQRT. *> \endverbatim *> *> \param[in] V @@ -102,7 +102,7 @@ *> V is DOUBLE PRECISION array, dimension (LDV,K) *> The i-th column must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> CGEQRT in the first K columns of its array argument A. +*> DGEQRT in the first K columns of its array argument A. *> \endverbatim *> *> \param[in] LDV @@ -117,7 +117,7 @@ *> \verbatim *> T is DOUBLE PRECISION array, dimension (LDT,K) *> The upper triangular factors of the block reflectors -*> as returned by CGEQRT, stored as a NB-by-N matrix. +*> as returned by DGEQRT, stored as a NB-by-N matrix. *> \endverbatim *> *> \param[in] LDT @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/dgeql2.f b/lapack-netlib/SRC/dgeql2.f index 539ef29f2..2d3ce1419 100644 --- a/lapack-netlib/SRC/dgeql2.f +++ b/lapack-netlib/SRC/dgeql2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -123,10 +121,9 @@ * ===================================================================== SUBROUTINE DGEQL2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgeqlf.f b/lapack-netlib/SRC/dgeqlf.f index e8c3f8e53..b8ac0b1a0 100644 --- a/lapack-netlib/SRC/dgeqlf.f +++ b/lapack-netlib/SRC/dgeqlf.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE DGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dgeqp3.f b/lapack-netlib/SRC/dgeqp3.f index 2b9faf663..e79ecf371 100644 --- a/lapack-netlib/SRC/dgeqp3.f +++ b/lapack-netlib/SRC/dgeqp3.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -151,10 +149,9 @@ * ===================================================================== SUBROUTINE DGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dgeqr.f b/lapack-netlib/SRC/dgeqr.f index 0bff5d1f9..eac8930ce 100644 --- a/lapack-netlib/SRC/dgeqr.f +++ b/lapack-netlib/SRC/dgeqr.f @@ -172,10 +172,9 @@ SUBROUTINE DGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, TSIZE, LWORK diff --git a/lapack-netlib/SRC/dgeqr2.f b/lapack-netlib/SRC/dgeqr2.f index 9ce1feb25..5791b3a91 100644 --- a/lapack-netlib/SRC/dgeqr2.f +++ b/lapack-netlib/SRC/dgeqr2.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -130,10 +128,9 @@ * ===================================================================== SUBROUTINE DGEQR2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgeqr2p.f b/lapack-netlib/SRC/dgeqr2p.f index 9b81ccb33..c7b62d87d 100644 --- a/lapack-netlib/SRC/dgeqr2p.f +++ b/lapack-netlib/SRC/dgeqr2p.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -134,10 +132,9 @@ * ===================================================================== SUBROUTINE DGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgeqrf.f b/lapack-netlib/SRC/dgeqrf.f index 98666221f..705e93928 100644 --- a/lapack-netlib/SRC/dgeqrf.f +++ b/lapack-netlib/SRC/dgeqrf.f @@ -95,7 +95,8 @@ *> \param[in] LWORK *> \verbatim *> LWORK is INTEGER -*> The dimension of the array WORK. LWORK >= max(1,N). +*> The dimension of the array WORK. +*> LWORK >= 1, if MIN(M,N) = 0, and LWORK >= N, otherwise. *> For optimum performance LWORK >= N*NB, where NB is *> the optimal blocksize. *> @@ -120,8 +121,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -145,10 +144,9 @@ * ===================================================================== SUBROUTINE DGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N @@ -178,10 +176,9 @@ * * Test the input arguments * + K = MIN( M, N ) INFO = 0 NB = ILAENV( 1, 'DGEQRF', ' ', M, N, -1, -1 ) - LWKOPT = N*NB - WORK( 1 ) = LWKOPT LQUERY = ( LWORK.EQ.-1 ) IF( M.LT.0 ) THEN INFO = -1 @@ -189,19 +186,25 @@ INFO = -2 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN INFO = -4 - ELSE IF( LWORK.LT.MAX( 1, N ) .AND. .NOT.LQUERY ) THEN - INFO = -7 + ELSE IF( .NOT.LQUERY ) THEN + IF( LWORK.LE.0 .OR. ( M.GT.0 .AND. LWORK.LT.MAX( 1, N ) ) ) + $ INFO = -7 END IF IF( INFO.NE.0 ) THEN CALL XERBLA( 'DGEQRF', -INFO ) RETURN ELSE IF( LQUERY ) THEN + IF( K.EQ.0 ) THEN + LWKOPT = 1 + ELSE + LWKOPT = N*NB + END IF + WORK( 1 ) = LWKOPT RETURN END IF * * Quick return if possible * - K = MIN( M, N ) IF( K.EQ.0 ) THEN WORK( 1 ) = 1 RETURN diff --git a/lapack-netlib/SRC/dgeqrfp.f b/lapack-netlib/SRC/dgeqrfp.f index 5cf4069ed..46d2ee479 100644 --- a/lapack-netlib/SRC/dgeqrfp.f +++ b/lapack-netlib/SRC/dgeqrfp.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -149,10 +147,9 @@ * ===================================================================== SUBROUTINE DGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dgeqrt.f b/lapack-netlib/SRC/dgeqrt.f index c7d932069..06dfb0576 100644 --- a/lapack-netlib/SRC/dgeqrt.f +++ b/lapack-netlib/SRC/dgeqrt.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -141,10 +139,9 @@ * ===================================================================== SUBROUTINE DGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, NB diff --git a/lapack-netlib/SRC/dgeqrt3.f b/lapack-netlib/SRC/dgeqrt3.f index efec07850..1fbd868d7 100644 --- a/lapack-netlib/SRC/dgeqrt3.f +++ b/lapack-netlib/SRC/dgeqrt3.f @@ -100,8 +100,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -132,10 +130,9 @@ * ===================================================================== RECURSIVE SUBROUTINE DGEQRT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT diff --git a/lapack-netlib/SRC/dgerfs.f b/lapack-netlib/SRC/dgerfs.f index a6f14e2b5..ea10d77f9 100644 --- a/lapack-netlib/SRC/dgerfs.f +++ b/lapack-netlib/SRC/dgerfs.f @@ -177,18 +177,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dgerfsx.f b/lapack-netlib/SRC/dgerfsx.f index 495ea1726..c4a898f62 100644 --- a/lapack-netlib/SRC/dgerfsx.f +++ b/lapack-netlib/SRC/dgerfsx.f @@ -404,8 +404,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== @@ -414,10 +412,9 @@ $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS, EQUED diff --git a/lapack-netlib/SRC/dgerq2.f b/lapack-netlib/SRC/dgerq2.f index b1713c1fb..97d33761d 100644 --- a/lapack-netlib/SRC/dgerq2.f +++ b/lapack-netlib/SRC/dgerq2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -123,10 +121,9 @@ * ===================================================================== SUBROUTINE DGERQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgerqf.f b/lapack-netlib/SRC/dgerqf.f index 20f2668ef..cca9d6367 100644 --- a/lapack-netlib/SRC/dgerqf.f +++ b/lapack-netlib/SRC/dgerqf.f @@ -88,7 +88,8 @@ *> \param[in] LWORK *> \verbatim *> LWORK is INTEGER -*> The dimension of the array WORK. LWORK >= max(1,M). +*> The dimension of the array WORK. +*> LWORK >= 1, if MIN(M,N) = 0, and LWORK >= M, otherwise. *> For optimum performance LWORK >= M*NB, where NB is *> the optimal blocksize. *> @@ -113,8 +114,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -138,10 +137,9 @@ * ===================================================================== SUBROUTINE DGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N @@ -191,8 +189,9 @@ END IF WORK( 1 ) = LWKOPT * - IF( LWORK.LT.MAX( 1, M ) .AND. .NOT.LQUERY ) THEN - INFO = -7 + IF ( .NOT.LQUERY ) THEN + IF( LWORK.LE.0 .OR. ( N.GT.0 .AND. LWORK.LT.MAX( 1, M ) ) ) + $ INFO = -7 END IF END IF * diff --git a/lapack-netlib/SRC/dgesc2.f b/lapack-netlib/SRC/dgesc2.f index 72d8a38f0..813bdf625 100644 --- a/lapack-netlib/SRC/dgesc2.f +++ b/lapack-netlib/SRC/dgesc2.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEauxiliary * *> \par Contributors: @@ -114,10 +112,9 @@ * ===================================================================== SUBROUTINE DGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER LDA, N diff --git a/lapack-netlib/SRC/dgesdd.f b/lapack-netlib/SRC/dgesdd.f index 80d18041c..738a122e8 100644 --- a/lapack-netlib/SRC/dgesdd.f +++ b/lapack-netlib/SRC/dgesdd.f @@ -191,9 +191,10 @@ *> \param[out] INFO *> \verbatim *> INFO is INTEGER -*> = 0: successful exit. *> < 0: if INFO = -i, the i-th argument had an illegal value. +*> = -4: if A had a NAN entry. *> > 0: DBDSDC did not converge, updating process failed. +*> = 0: successful exit. *> \endverbatim * * Authors: @@ -204,8 +205,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleGEsing * *> \par Contributors: @@ -219,10 +218,9 @@ $ WORK, LWORK, IWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ @@ -268,8 +266,9 @@ * .. * .. External Functions .. LOGICAL LSAME, DISNAN - DOUBLE PRECISION DLAMCH, DLANGE - EXTERNAL DLAMCH, DLANGE, LSAME, DISNAN + DOUBLE PRECISION DLAMCH, DLANGE, DROUNDUP_LWORK + EXTERNAL DLAMCH, DLANGE, LSAME, DISNAN, + $ DROUNDUP_LWORK * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN, SQRT @@ -570,7 +569,7 @@ END IF MAXWRK = MAX( MAXWRK, MINWRK ) - WORK( 1 ) = MAXWRK + WORK( 1 ) = DROUNDUP_LWORK( MAXWRK ) * IF( LWORK.LT.MINWRK .AND. .NOT.LQUERY ) THEN INFO = -12 @@ -1543,7 +1542,7 @@ * * Return optimal workspace in WORK(1) * - WORK( 1 ) = MAXWRK + WORK( 1 ) = DROUNDUP_LWORK( MAXWRK ) * RETURN * diff --git a/lapack-netlib/SRC/dgesv.f b/lapack-netlib/SRC/dgesv.f index 23999e167..3609c52f4 100644 --- a/lapack-netlib/SRC/dgesv.f +++ b/lapack-netlib/SRC/dgesv.f @@ -115,17 +115,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEsolve * * ===================================================================== SUBROUTINE DGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, N, NRHS diff --git a/lapack-netlib/SRC/dgesvd.f b/lapack-netlib/SRC/dgesvd.f index ddf0bd5c2..7cc8b3512 100644 --- a/lapack-netlib/SRC/dgesvd.f +++ b/lapack-netlib/SRC/dgesvd.f @@ -203,18 +203,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleGEsing * * ===================================================================== SUBROUTINE DGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, $ VT, LDVT, WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER JOBU, JOBVT diff --git a/lapack-netlib/SRC/dgesvdq.f b/lapack-netlib/SRC/dgesvdq.f index e495d2bf9..6f9ac703e 100644 --- a/lapack-netlib/SRC/dgesvdq.f +++ b/lapack-netlib/SRC/dgesvdq.f @@ -220,7 +220,7 @@ *> left singular vectors in the case JOBU = 'F'. *> *> If LIWORK, LWORK, or LRWORK = -1, then on exit, if INFO = 0, -*> LIWORK(1) returns the minimal LIWORK. +*> IWORK(1) returns the minimal LIWORK. *> \endverbatim *> *> \param[in] LIWORK @@ -231,7 +231,7 @@ *> LIWORK >= N if JOBP = 'N' and JOBA .NE. 'E'; *> LIWORK >= N + M - 1 + N, if JOBP = 'P' and JOBA = 'E'; *> LIWORK >= N + N if JOBP = 'N' and JOBA = 'E'. -* +*> *> If LIWORK = -1, then a workspace query is assumed; the routine *> only calculates and returns the optimal and minimal sizes *> for the WORK, IWORK, and RWORK arrays, and no error @@ -317,7 +317,7 @@ *> N^(-1/4) * RWORK(1) <= ||pinv(C)||_2 <= N^(1/4) * RWORK(1). *> Otherwise, RWORK(1) = -1. *> 2. RWORK(2) contains the number of singular values computed as -*> exact zeros in DGESVD applied to the upper triangular or trapeziodal +*> exact zeros in DGESVD applied to the upper triangular or trapezoidal *> R (from the initial QR factorization). In case of early exit (no call to *> DGESVD, such as in the case of zero matrix) RWORK(2) = -1. *> @@ -331,7 +331,7 @@ *> The dimension of the array RWORK. *> If JOBP ='P', then LRWORK >= MAX(2, M). *> Otherwise, LRWORK >= 2 -* +*> *> If LRWORK = -1, then a workspace query is assumed; the routine *> only calculates and returns the optimal and minimal sizes *> for the WORK, IWORK, and RWORK arrays, and no error @@ -406,8 +406,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2018 -* *> \ingroup doubleGEsing * * ===================================================================== @@ -641,7 +639,7 @@ IF ( WNTVA ) THEN * .. minimal workspace length for N x N/2 DGEQRF LWQRF = MAX( N/2, 1 ) -* .. minimal workspace lengt for N/2 x N/2 DGESVD +* .. minimal workspace length for N/2 x N/2 DGESVD LWSVD2 = MAX( 5 * (N/2), 1 ) LWORQ2 = MAX( N, 1 ) MINWRK2 = MAX( LWQP3, N/2+LWQRF, N/2+LWSVD2, diff --git a/lapack-netlib/SRC/dgesvdx.f b/lapack-netlib/SRC/dgesvdx.f index 3937c13bd..db444b78d 100644 --- a/lapack-netlib/SRC/dgesvdx.f +++ b/lapack-netlib/SRC/dgesvdx.f @@ -254,8 +254,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleGEsing * * ===================================================================== @@ -263,10 +261,9 @@ $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, $ LWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU, JOBVT, RANGE diff --git a/lapack-netlib/SRC/dgesvj.f b/lapack-netlib/SRC/dgesvj.f index cf7aac982..5fdb21e45 100644 --- a/lapack-netlib/SRC/dgesvj.f +++ b/lapack-netlib/SRC/dgesvj.f @@ -260,8 +260,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -281,7 +279,7 @@ *> spectral condition number. The best performance of this Jacobi SVD *> procedure is achieved if used in an accelerated version of Drmac and *> Veselic [5,6], and it is the kernel routine in the SIGMA library [7]. -*> Some tunning parameters (marked with [TP]) are available for the +*> Some tuning parameters (marked with [TP]) are available for the *> implementer. *> The computational range for the nonzero singular values is the machine *> number interval ( UNDERFLOW , OVERFLOW ). In extreme cases, even @@ -337,10 +335,9 @@ SUBROUTINE DGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, $ LDV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDV, LWORK, M, MV, N diff --git a/lapack-netlib/SRC/dgesvx.f b/lapack-netlib/SRC/dgesvx.f index 25f0f2827..4dc1d83cf 100644 --- a/lapack-netlib/SRC/dgesvx.f +++ b/lapack-netlib/SRC/dgesvx.f @@ -340,8 +340,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleGEsolve * * ===================================================================== @@ -349,10 +347,9 @@ $ EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/dgesvxx.f b/lapack-netlib/SRC/dgesvxx.f index 21b56f61c..e1f86354b 100644 --- a/lapack-netlib/SRC/dgesvxx.f +++ b/lapack-netlib/SRC/dgesvxx.f @@ -529,8 +529,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleGEsolve * * ===================================================================== @@ -540,10 +538,9 @@ $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/dgetc2.f b/lapack-netlib/SRC/dgetc2.f index 5bf5b890f..d2f0ede82 100644 --- a/lapack-netlib/SRC/dgetc2.f +++ b/lapack-netlib/SRC/dgetc2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleGEauxiliary * *> \par Contributors: @@ -111,10 +109,9 @@ * ===================================================================== SUBROUTINE DGETC2( N, A, LDA, IPIV, JPIV, INFO ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/dgetf2.f b/lapack-netlib/SRC/dgetf2.f index 5458a5f3e..fc1587842 100644 --- a/lapack-netlib/SRC/dgetf2.f +++ b/lapack-netlib/SRC/dgetf2.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGETF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgetrf.f b/lapack-netlib/SRC/dgetrf.f index 9a340b60f..73d0f3601 100644 --- a/lapack-netlib/SRC/dgetrf.f +++ b/lapack-netlib/SRC/dgetrf.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGETRF( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgetrf2.f b/lapack-netlib/SRC/dgetrf2.f index 77948d230..40af0793d 100644 --- a/lapack-netlib/SRC/dgetrf2.f +++ b/lapack-netlib/SRC/dgetrf2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== RECURSIVE SUBROUTINE DGETRF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dgetri.f b/lapack-netlib/SRC/dgetri.f index 9d8cf2ad3..92ef90c18 100644 --- a/lapack-netlib/SRC/dgetri.f +++ b/lapack-netlib/SRC/dgetri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/dgetrs.f b/lapack-netlib/SRC/dgetrs.f index 7ac727776..d3464f685 100644 --- a/lapack-netlib/SRC/dgetrs.f +++ b/lapack-netlib/SRC/dgetrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dgetsls.f b/lapack-netlib/SRC/dgetsls.f index c2ba5e2b8..25f4c12c2 100644 --- a/lapack-netlib/SRC/dgetsls.f +++ b/lapack-netlib/SRC/dgetsls.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEsolve * * ===================================================================== SUBROUTINE DGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS @@ -184,16 +181,15 @@ * .. * .. Local Scalars .. LOGICAL LQUERY, TRAN - INTEGER I, IASCL, IBSCL, J, MINMN, MAXMN, BROW, - $ SCLLEN, MNK, TSZO, TSZM, LWO, LWM, LW1, LW2, + INTEGER I, IASCL, IBSCL, J, MAXMN, BROW, + $ SCLLEN, TSZO, TSZM, LWO, LWM, LW1, LW2, $ WSIZEO, WSIZEM, INFO2 DOUBLE PRECISION ANRM, BIGNUM, BNRM, SMLNUM, TQ( 5 ), WORKQ( 1 ) * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV DOUBLE PRECISION DLAMCH, DLANGE - EXTERNAL LSAME, ILAENV, DLABAD, DLAMCH, DLANGE + EXTERNAL LSAME, DLABAD, DLAMCH, DLANGE * .. * .. External Subroutines .. EXTERNAL DGEQR, DGEMQR, DLASCL, DLASET, @@ -207,9 +203,7 @@ * Test the input arguments. * INFO = 0 - MINMN = MIN( M, N ) MAXMN = MAX( M, N ) - MNK = MAX( MINMN, NRHS ) TRAN = LSAME( TRANS, 'T' ) * LQUERY = ( LWORK.EQ.-1 .OR. LWORK.EQ.-2 ) @@ -230,7 +224,7 @@ * IF( INFO.EQ.0 ) THEN * -* Determine the block size and minimum LWORK +* Determine the optimum and minimum LWORK * IF( M.GE.N ) THEN CALL DGEQR( M, N, A, LDA, TQ, -1, WORKQ, -1, INFO2 ) @@ -267,17 +261,17 @@ IF( ( LWORK.LT.WSIZEM ).AND.( .NOT.LQUERY ) ) THEN INFO = -10 END IF +* + WORK( 1 ) = DBLE( WSIZEO ) * END IF * IF( INFO.NE.0 ) THEN CALL XERBLA( 'DGETSLS', -INFO ) - WORK( 1 ) = DBLE( WSIZEO ) RETURN END IF IF( LQUERY ) THEN - IF( LWORK.EQ.-1 ) WORK( 1 ) = REAL( WSIZEO ) - IF( LWORK.EQ.-2 ) WORK( 1 ) = REAL( WSIZEM ) + IF( LWORK.EQ.-2 ) WORK( 1 ) = DBLE( WSIZEM ) RETURN END IF IF( LWORK.LT.WSIZEO ) THEN diff --git a/lapack-netlib/SRC/dggbak.f b/lapack-netlib/SRC/dggbak.f index cd5c26064..76820e39d 100644 --- a/lapack-netlib/SRC/dggbak.f +++ b/lapack-netlib/SRC/dggbak.f @@ -130,8 +130,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * *> \par Further Details: @@ -147,10 +145,9 @@ SUBROUTINE DGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, V, $ LDV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB, SIDE diff --git a/lapack-netlib/SRC/dggbal.f b/lapack-netlib/SRC/dggbal.f index 5f36aa024..c588eceb4 100644 --- a/lapack-netlib/SRC/dggbal.f +++ b/lapack-netlib/SRC/dggbal.f @@ -160,8 +160,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ SUBROUTINE DGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, $ RSCALE, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/dgges.f b/lapack-netlib/SRC/dgges.f index 097ea7727..31db23715 100644 --- a/lapack-netlib/SRC/dgges.f +++ b/lapack-netlib/SRC/dgges.f @@ -275,8 +275,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEeigen * * ===================================================================== @@ -284,10 +282,9 @@ $ SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, VSR, $ LDVSR, WORK, LWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SORT diff --git a/lapack-netlib/SRC/dgges3.f b/lapack-netlib/SRC/dgges3.f index 41d2ea0ea..7b00d294a 100644 --- a/lapack-netlib/SRC/dgges3.f +++ b/lapack-netlib/SRC/dgges3.f @@ -256,7 +256,7 @@ *> The QZ iteration failed. (A,B) are not in Schur *> form, but ALPHAR(j), ALPHAI(j), and BETA(j) should *> be correct for j=INFO+1,...,N. -*> > N: =N+1: other than QZ iteration failed in DHGEQZ. +*> > N: =N+1: other than QZ iteration failed in DLAQZ0. *> =N+2: after reordering, roundoff changed values of *> some complex eigenvalues so that leading *> eigenvalues in the Generalized Schur form no @@ -273,8 +273,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup doubleGEeigen * * ===================================================================== @@ -282,10 +280,9 @@ $ LDB, SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, $ VSR, LDVSR, WORK, LWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.6.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SORT @@ -321,7 +318,7 @@ DOUBLE PRECISION DIF( 2 ) * .. * .. External Subroutines .. - EXTERNAL DGEQRF, DGGBAK, DGGBAL, DGGHD3, DHGEQZ, DLABAD, + EXTERNAL DGEQRF, DGGBAK, DGGBAL, DGGHD3, DLAQZ0, DLABAD, $ DLACPY, DLASCL, DLASET, DORGQR, DORMQR, DTGSEN, $ XERBLA * .. @@ -400,9 +397,9 @@ CALL DGGHD3( JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, VSL, $ LDVSL, VSR, LDVSR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, 3*N+INT( WORK ( 1 ) ) ) - CALL DHGEQZ( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, + CALL DLAQZ0( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VSL, LDVSL, VSR, LDVSR, - $ WORK, -1, IERR ) + $ WORK, -1, 0, IERR ) LWKOPT = MAX( LWKOPT, 2*N+INT( WORK ( 1 ) ) ) IF( WANTST ) THEN CALL DTGSEN( 0, ILVSL, ILVSR, BWORK, N, A, LDA, B, LDB, @@ -514,9 +511,9 @@ * Perform QZ algorithm, computing Schur vectors if desired * IWRK = ITAU - CALL DHGEQZ( 'S', JOBVSL, JOBVSR, N, ILO, IHI, A, LDA, B, LDB, + CALL DLAQZ0( 'S', JOBVSL, JOBVSR, N, ILO, IHI, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VSL, LDVSL, VSR, LDVSR, - $ WORK( IWRK ), LWORK+1-IWRK, IERR ) + $ WORK( IWRK ), LWORK+1-IWRK, 0, IERR ) IF( IERR.NE.0 ) THEN IF( IERR.GT.0 .AND. IERR.LE.N ) THEN INFO = IERR diff --git a/lapack-netlib/SRC/dggesx.f b/lapack-netlib/SRC/dggesx.f index 0e57d636e..932c74227 100644 --- a/lapack-netlib/SRC/dggesx.f +++ b/lapack-netlib/SRC/dggesx.f @@ -337,8 +337,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEeigen * *> \par Further Details: @@ -365,10 +363,9 @@ $ VSR, LDVSR, RCONDE, RCONDV, WORK, LWORK, IWORK, $ LIWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SENSE, SORT diff --git a/lapack-netlib/SRC/dggev.f b/lapack-netlib/SRC/dggev.f index fa8682824..a02203e05 100644 --- a/lapack-netlib/SRC/dggev.f +++ b/lapack-netlib/SRC/dggev.f @@ -218,18 +218,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleGEeigen * * ===================================================================== SUBROUTINE DGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI, $ BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/dggev3.f b/lapack-netlib/SRC/dggev3.f index 43a853dff..4bbe8a40f 100644 --- a/lapack-netlib/SRC/dggev3.f +++ b/lapack-netlib/SRC/dggev3.f @@ -205,7 +205,7 @@ *> The QZ iteration failed. No eigenvectors have been *> calculated, but ALPHAR(j), ALPHAI(j), and BETA(j) *> should be correct for j=INFO+1,...,N. -*> > N: =N+1: other than QZ iteration failed in DHGEQZ. +*> > N: =N+1: other than QZ iteration failed in DLAQZ0. *> =N+2: error return from DTGEVC. *> \endverbatim * @@ -217,8 +217,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup doubleGEeigen * * ===================================================================== @@ -226,10 +224,9 @@ $ ALPHAI, BETA, VL, LDVL, VR, LDVR, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.6.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR @@ -259,7 +256,7 @@ LOGICAL LDUMMA( 1 ) * .. * .. External Subroutines .. - EXTERNAL DGEQRF, DGGBAK, DGGBAL, DGGHD3, DHGEQZ, DLABAD, + EXTERNAL DGEQRF, DGGBAK, DGGBAL, DGGHD3, DLAQZ0, DLABAD, $ DLACPY, DLASCL, DLASET, DORGQR, DORMQR, DTGEVC, $ XERBLA * .. @@ -336,17 +333,17 @@ CALL DGGHD3( JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, VL, $ LDVL, VR, LDVR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, 3*N+INT( WORK ( 1 ) ) ) - CALL DHGEQZ( 'S', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, + CALL DLAQZ0( 'S', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, - $ WORK, -1, IERR ) + $ WORK, -1, 0, IERR ) LWKOPT = MAX( LWKOPT, 2*N+INT( WORK ( 1 ) ) ) ELSE CALL DGGHD3( 'N', 'N', N, 1, N, A, LDA, B, LDB, VL, LDVL, $ VR, LDVR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, 3*N+INT( WORK ( 1 ) ) ) - CALL DHGEQZ( 'E', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, + CALL DLAQZ0( 'E', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, - $ WORK, -1, IERR ) + $ WORK, -1, 0, IERR ) LWKOPT = MAX( LWKOPT, 2*N+INT( WORK ( 1 ) ) ) END IF @@ -469,9 +466,9 @@ ELSE CHTEMP = 'E' END IF - CALL DHGEQZ( CHTEMP, JOBVL, JOBVR, N, ILO, IHI, A, LDA, B, LDB, + CALL DLAQZ0( CHTEMP, JOBVL, JOBVR, N, ILO, IHI, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, - $ WORK( IWRK ), LWORK+1-IWRK, IERR ) + $ WORK( IWRK ), LWORK+1-IWRK, 0, IERR ) IF( IERR.NE.0 ) THEN IF( IERR.GT.0 .AND. IERR.LE.N ) THEN INFO = IERR diff --git a/lapack-netlib/SRC/dggevx.f b/lapack-netlib/SRC/dggevx.f index 1f6962df5..b69f3f9bf 100644 --- a/lapack-netlib/SRC/dggevx.f +++ b/lapack-netlib/SRC/dggevx.f @@ -352,8 +352,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleGEeigen * *> \par Further Details: @@ -391,10 +389,9 @@ $ IHI, LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, $ RCONDV, WORK, LWORK, IWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE diff --git a/lapack-netlib/SRC/dggglm.f b/lapack-netlib/SRC/dggglm.f index 1fbdc8add..d43785d32 100644 --- a/lapack-netlib/SRC/dggglm.f +++ b/lapack-netlib/SRC/dggglm.f @@ -177,18 +177,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/SRC/dgghd3.f b/lapack-netlib/SRC/dgghd3.f index 283d914de..43d7a77df 100644 --- a/lapack-netlib/SRC/dgghd3.f +++ b/lapack-netlib/SRC/dgghd3.f @@ -211,8 +211,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -220,7 +218,7 @@ *> *> \verbatim *> -*> This routine reduces A to Hessenberg form and maintains B in +*> This routine reduces A to Hessenberg form and maintains B in triangular form *> using a blocked variant of Moler and Stewart's original algorithm, *> as described by Kagstrom, Kressner, Quintana-Orti, and Quintana-Orti *> (BIT 2008). @@ -230,10 +228,9 @@ SUBROUTINE DGGHD3( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, $ LDQ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/dgghrd.f b/lapack-netlib/SRC/dgghrd.f index 3a74899d1..2f71a8410 100644 --- a/lapack-netlib/SRC/dgghrd.f +++ b/lapack-netlib/SRC/dgghrd.f @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -207,10 +205,9 @@ SUBROUTINE DGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, $ LDQ, Z, LDZ, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, COMPZ diff --git a/lapack-netlib/SRC/dgglse.f b/lapack-netlib/SRC/dgglse.f index 5d5cac23b..2fd17bbcb 100644 --- a/lapack-netlib/SRC/dgglse.f +++ b/lapack-netlib/SRC/dgglse.f @@ -172,18 +172,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERsolve * * ===================================================================== SUBROUTINE DGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/SRC/dggqrf.f b/lapack-netlib/SRC/dggqrf.f index 3ce21d8fd..617af274f 100644 --- a/lapack-netlib/SRC/dggqrf.f +++ b/lapack-netlib/SRC/dggqrf.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -215,10 +213,9 @@ SUBROUTINE DGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/SRC/dggrqf.f b/lapack-netlib/SRC/dggrqf.f index 9c377cc5a..07f8752d8 100644 --- a/lapack-netlib/SRC/dggrqf.f +++ b/lapack-netlib/SRC/dggrqf.f @@ -172,8 +172,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -214,10 +212,9 @@ SUBROUTINE DGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/SRC/dggsvd3.f b/lapack-netlib/SRC/dggsvd3.f index f882139dd..503f0d8cc 100644 --- a/lapack-netlib/SRC/dggsvd3.f +++ b/lapack-netlib/SRC/dggsvd3.f @@ -328,8 +328,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup doubleGEsing * *> \par Contributors: @@ -349,10 +347,9 @@ $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, $ WORK, LWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/dggsvp3.f b/lapack-netlib/SRC/dggsvp3.f index 0ff113b16..4e1db3117 100644 --- a/lapack-netlib/SRC/dggsvp3.f +++ b/lapack-netlib/SRC/dggsvp3.f @@ -250,8 +250,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -272,10 +270,9 @@ $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/dgsvj0.f b/lapack-netlib/SRC/dgsvj0.f index 318e369fd..197a9a626 100644 --- a/lapack-netlib/SRC/dgsvj0.f +++ b/lapack-netlib/SRC/dgsvj0.f @@ -193,8 +193,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -218,10 +216,9 @@ SUBROUTINE DGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, $ SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDV, LWORK, M, MV, N, NSWEEP @@ -392,7 +389,7 @@ * Some BLAS implementations compute DNRM2(M,A(1,p),1) * as DSQRT(DDOT(M,A(1,p),1,A(1,p),1)), which may result in * overflow for ||A(:,p)||_2 > DSQRT(overflow_threshold), and -* undeflow for ||A(:,p)||_2 < DSQRT(underflow_threshold). +* underflow for ||A(:,p)||_2 < DSQRT(underflow_threshold). * Hence, DNRM2 cannot be trusted, not even in the case when * the true norm is far from the under(over)flow boundaries. * If properly implemented DNRM2 is available, the IF-THEN-ELSE diff --git a/lapack-netlib/SRC/dgsvj1.f b/lapack-netlib/SRC/dgsvj1.f index 35a93619f..11d1dde2b 100644 --- a/lapack-netlib/SRC/dgsvj1.f +++ b/lapack-netlib/SRC/dgsvj1.f @@ -40,7 +40,7 @@ *> DGSVJ1 is called from DGESVJ as a pre-processor and that is its main *> purpose. It applies Jacobi rotations in the same way as DGESVJ does, but *> it targets only particular pivots and it does not check convergence -*> (stopping criterion). Few tunning parameters (marked by [TP]) are +*> (stopping criterion). Few tuning parameters (marked by [TP]) are *> available for the implementer. *> *> Further Details @@ -61,7 +61,7 @@ *> In terms of the columns of A, the first N1 columns are rotated 'against' *> the remaining N-N1 columns, trying to increase the angle between the *> corresponding subspaces. The off-diagonal block is N1-by(N-N1) and it is -*> tiled using quadratic tiles of side KBL. Here, KBL is a tunning parameter. +*> tiled using quadratic tiles of side KBL. Here, KBL is a tuning parameter. *> The number of sweeps is given in NSWEEP and the orthogonality threshold *> is given in TOL. *> \endverbatim @@ -223,8 +223,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -236,10 +234,9 @@ SUBROUTINE DGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, $ EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. DOUBLE PRECISION EPS, SFMIN, TOL diff --git a/lapack-netlib/SRC/dgtcon.f b/lapack-netlib/SRC/dgtcon.f index 427182348..e007ac146 100644 --- a/lapack-netlib/SRC/dgtcon.f +++ b/lapack-netlib/SRC/dgtcon.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGTcomputational * * ===================================================================== SUBROUTINE DGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/dgtrfs.f b/lapack-netlib/SRC/dgtrfs.f index 74889353f..e2bb3d2ad 100644 --- a/lapack-netlib/SRC/dgtrfs.f +++ b/lapack-netlib/SRC/dgtrfs.f @@ -200,8 +200,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGTcomputational * * ===================================================================== @@ -209,10 +207,9 @@ $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dgtsv.f b/lapack-netlib/SRC/dgtsv.f index b683eaafb..0f02201d5 100644 --- a/lapack-netlib/SRC/dgtsv.f +++ b/lapack-netlib/SRC/dgtsv.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGTsolve * * ===================================================================== SUBROUTINE DGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/dgtsvx.f b/lapack-netlib/SRC/dgtsvx.f index 92bc9eac3..ec8df80bb 100644 --- a/lapack-netlib/SRC/dgtsvx.f +++ b/lapack-netlib/SRC/dgtsvx.f @@ -284,8 +284,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGTsolve * * ===================================================================== @@ -293,10 +291,9 @@ $ DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER FACT, TRANS diff --git a/lapack-netlib/SRC/dgttrf.f b/lapack-netlib/SRC/dgttrf.f index 3c9808fdb..061c21150 100644 --- a/lapack-netlib/SRC/dgttrf.f +++ b/lapack-netlib/SRC/dgttrf.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGTcomputational * * ===================================================================== SUBROUTINE DGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/dgttrs.f b/lapack-netlib/SRC/dgttrs.f index 3bbeb1d1d..cb9a897c3 100644 --- a/lapack-netlib/SRC/dgttrs.f +++ b/lapack-netlib/SRC/dgttrs.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGTcomputational * * ===================================================================== SUBROUTINE DGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dgtts2.f b/lapack-netlib/SRC/dgtts2.f index 39e7b0075..ffa69eac9 100644 --- a/lapack-netlib/SRC/dgtts2.f +++ b/lapack-netlib/SRC/dgtts2.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGTcomputational * * ===================================================================== SUBROUTINE DGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ITRANS, LDB, N, NRHS diff --git a/lapack-netlib/SRC/dhgeqz.f b/lapack-netlib/SRC/dhgeqz.f index 99557f20e..3fe2a083c 100644 --- a/lapack-netlib/SRC/dhgeqz.f +++ b/lapack-netlib/SRC/dhgeqz.f @@ -282,8 +282,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -304,10 +302,9 @@ $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, COMPZ, JOB @@ -531,13 +528,17 @@ * GO TO 80 ELSE - IF( ABS( H( ILAST, ILAST-1 ) ).LE.ATOL ) THEN + IF( ABS( H( ILAST, ILAST-1 ) ).LE.MAX( SAFMIN, ULP*( + $ ABS( H( ILAST, ILAST ) ) + ABS( H( ILAST-1, ILAST-1 ) ) + $ ) ) ) THEN H( ILAST, ILAST-1 ) = ZERO GO TO 80 END IF END IF * - IF( ABS( T( ILAST, ILAST ) ).LE.BTOL ) THEN + IF( ABS( T( ILAST, ILAST ) ).LE.MAX( SAFMIN, ULP*( + $ ABS( T( ILAST - 1, ILAST ) ) + ABS( T( ILAST-1, ILAST-1 ) + $ ) ) ) ) THEN T( ILAST, ILAST ) = ZERO GO TO 70 END IF @@ -551,7 +552,9 @@ IF( J.EQ.ILO ) THEN ILAZRO = .TRUE. ELSE - IF( ABS( H( J, J-1 ) ).LE.ATOL ) THEN + IF( ABS( H( J, J-1 ) ).LE.MAX( SAFMIN, ULP*( + $ ABS( H( J, J ) ) + ABS( H( J-1, J-1 ) ) + $ ) ) ) THEN H( J, J-1 ) = ZERO ILAZRO = .TRUE. ELSE @@ -561,7 +564,10 @@ * * Test 2: for T(j,j)=0 * - IF( ABS( T( J, J ) ).LT.BTOL ) THEN + TEMP = ABS ( T( J, J + 1 ) ) + IF ( J .GT. ILO ) + $ TEMP = TEMP + ABS ( T( J - 1, J ) ) + IF( ABS( T( J, J ) ).LT.MAX( SAFMIN,ULP*TEMP ) ) THEN T( J, J ) = ZERO * * Test 1a: Check for 2 consecutive small subdiagonals in A diff --git a/lapack-netlib/SRC/dhsein.f b/lapack-netlib/SRC/dhsein.f index e71cdc87e..326e8e396 100644 --- a/lapack-netlib/SRC/dhsein.f +++ b/lapack-netlib/SRC/dhsein.f @@ -244,8 +244,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -263,10 +261,9 @@ $ VL, LDVL, VR, LDVR, MM, M, WORK, IFAILL, $ IFAILR, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EIGSRC, INITV, SIDE diff --git a/lapack-netlib/SRC/dhseqr.f b/lapack-netlib/SRC/dhseqr.f index 6b7fb308f..2d59c6cc7 100644 --- a/lapack-netlib/SRC/dhseqr.f +++ b/lapack-netlib/SRC/dhseqr.f @@ -233,8 +233,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -316,10 +314,9 @@ SUBROUTINE DHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, WR, WI, Z, $ LDZ, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/disnan.f b/lapack-netlib/SRC/disnan.f index a565ed36d..e621b2589 100644 --- a/lapack-netlib/SRC/disnan.f +++ b/lapack-netlib/SRC/disnan.f @@ -52,17 +52,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * * ===================================================================== LOGICAL FUNCTION DISNAN( DIN ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION, INTENT(IN) :: DIN diff --git a/lapack-netlib/SRC/dla_gbamv.f b/lapack-netlib/SRC/dla_gbamv.f index 350284cfb..a998c0cf1 100644 --- a/lapack-netlib/SRC/dla_gbamv.f +++ b/lapack-netlib/SRC/dla_gbamv.f @@ -177,18 +177,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGBcomputational * * ===================================================================== SUBROUTINE DLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/lapack-netlib/SRC/dla_gbrcond.f b/lapack-netlib/SRC/dla_gbrcond.f index c9eebcbea..c5e944b8d 100644 --- a/lapack-netlib/SRC/dla_gbrcond.f +++ b/lapack-netlib/SRC/dla_gbrcond.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * * ===================================================================== @@ -170,10 +168,9 @@ $ AFB, LDAFB, IPIV, CMODE, C, $ INFO, WORK, IWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -349,5 +346,7 @@ $ DLA_GBRCOND = ( 1.0D+0 / AINVNM ) * RETURN +* +* End of DLA_GBRCOND * END diff --git a/lapack-netlib/SRC/dla_gbrfsx_extended.f b/lapack-netlib/SRC/dla_gbrfsx_extended.f index 282a63f1c..5454b1bfc 100644 --- a/lapack-netlib/SRC/dla_gbrfsx_extended.f +++ b/lapack-netlib/SRC/dla_gbrfsx_extended.f @@ -55,7 +55,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -369,7 +369,7 @@ *> DZ_UB is DOUBLE PRECISION *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -398,8 +398,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGBcomputational * * ===================================================================== @@ -411,10 +409,9 @@ $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, @@ -704,4 +701,7 @@ END DO * RETURN +* +* End of DLA_GBRFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/dla_gbrpvgrw.f b/lapack-netlib/SRC/dla_gbrpvgrw.f index 3d566c202..92d4da3b5 100644 --- a/lapack-netlib/SRC/dla_gbrpvgrw.f +++ b/lapack-netlib/SRC/dla_gbrpvgrw.f @@ -109,18 +109,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBcomputational * * ===================================================================== DOUBLE PRECISION FUNCTION DLA_GBRPVGRW( N, KL, KU, NCOLS, AB, $ LDAB, AFB, LDAFB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, KL, KU, NCOLS, LDAB, LDAFB @@ -157,4 +154,7 @@ END IF END DO DLA_GBRPVGRW = RPVGRW +* +* End of DLA_GBRPVGRW +* END diff --git a/lapack-netlib/SRC/dla_geamv.f b/lapack-netlib/SRC/dla_geamv.f index 0a83e4b64..c2d672ba1 100644 --- a/lapack-netlib/SRC/dla_geamv.f +++ b/lapack-netlib/SRC/dla_geamv.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE DLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, $ Y, INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/lapack-netlib/SRC/dla_gercond.f b/lapack-netlib/SRC/dla_gercond.f index 6f7d70a6a..9e48ba3db 100644 --- a/lapack-netlib/SRC/dla_gercond.f +++ b/lapack-netlib/SRC/dla_gercond.f @@ -143,8 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== @@ -152,10 +150,9 @@ $ LDAF, IPIV, CMODE, C, $ INFO, WORK, IWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -325,5 +322,7 @@ $ DLA_GERCOND = ( 1.0D+0 / AINVNM ) * RETURN +* +* End of DLA_GERCOND * END diff --git a/lapack-netlib/SRC/dla_gerfsx_extended.f b/lapack-netlib/SRC/dla_gerfsx_extended.f index 4cb9ef4f9..92b0d76d4 100644 --- a/lapack-netlib/SRC/dla_gerfsx_extended.f +++ b/lapack-netlib/SRC/dla_gerfsx_extended.f @@ -53,7 +53,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERRS_N *> and ERRS_C for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERRS_N and ERRS_C. *> \endverbatim * @@ -355,7 +355,7 @@ *> DZ_UB is DOUBLE PRECISION *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -384,8 +384,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEcomputational * * ===================================================================== @@ -396,10 +394,9 @@ $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -682,4 +679,7 @@ END DO * RETURN +* +* End of DLA_GERFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/dla_gerpvgrw.f b/lapack-netlib/SRC/dla_gerpvgrw.f index 88cc7be5f..17bf21104 100644 --- a/lapack-netlib/SRC/dla_gerpvgrw.f +++ b/lapack-netlib/SRC/dla_gerpvgrw.f @@ -92,18 +92,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * * ===================================================================== DOUBLE PRECISION FUNCTION DLA_GERPVGRW( N, NCOLS, A, LDA, AF, $ LDAF ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, NCOLS, LDA, LDAF @@ -139,4 +136,7 @@ END IF END DO DLA_GERPVGRW = RPVGRW +* +* End of DLA_GERPVGRW +* END diff --git a/lapack-netlib/SRC/dla_lin_berr.f b/lapack-netlib/SRC/dla_lin_berr.f index 0fec6989b..370781ae3 100644 --- a/lapack-netlib/SRC/dla_lin_berr.f +++ b/lapack-netlib/SRC/dla_lin_berr.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, NZ, NRHS @@ -150,4 +147,7 @@ * END DO END DO +* +* End of DLA_LIN_BERR +* END diff --git a/lapack-netlib/SRC/dla_porcond.f b/lapack-netlib/SRC/dla_porcond.f index b2f9c4b1e..fd04138da 100644 --- a/lapack-netlib/SRC/dla_porcond.f +++ b/lapack-netlib/SRC/dla_porcond.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== @@ -142,10 +140,9 @@ $ CMODE, C, INFO, WORK, $ IWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -324,5 +321,7 @@ $ DLA_PORCOND = ( 1.0D+0 / AINVNM ) * RETURN +* +* End of DLA_PORCOND * END diff --git a/lapack-netlib/SRC/dla_porfsx_extended.f b/lapack-netlib/SRC/dla_porfsx_extended.f index ece9b00ed..5c8850fef 100644 --- a/lapack-netlib/SRC/dla_porfsx_extended.f +++ b/lapack-netlib/SRC/dla_porfsx_extended.f @@ -54,7 +54,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -345,7 +345,7 @@ *> DZ_UB is DOUBLE PRECISION *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -374,8 +374,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doublePOcomputational * * ===================================================================== @@ -387,10 +385,9 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -676,4 +673,7 @@ END DO * RETURN +* +* End of DLA_PORFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/dla_porpvgrw.f b/lapack-netlib/SRC/dla_porpvgrw.f index 8a6f9e1a7..93ad3eb6a 100644 --- a/lapack-netlib/SRC/dla_porpvgrw.f +++ b/lapack-netlib/SRC/dla_porpvgrw.f @@ -98,18 +98,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== DOUBLE PRECISION FUNCTION DLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, $ LDAF, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -207,4 +204,7 @@ END IF DLA_PORPVGRW = RPVGRW +* +* End of DLA_PORPVGRW +* END diff --git a/lapack-netlib/SRC/dla_syamv.f b/lapack-netlib/SRC/dla_syamv.f index bb6dbe288..3911e2ab2 100644 --- a/lapack-netlib/SRC/dla_syamv.f +++ b/lapack-netlib/SRC/dla_syamv.f @@ -153,8 +153,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ SUBROUTINE DLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/lapack-netlib/SRC/dla_syrcond.f b/lapack-netlib/SRC/dla_syrcond.f index 23ed82588..80c099773 100644 --- a/lapack-netlib/SRC/dla_syrcond.f +++ b/lapack-netlib/SRC/dla_syrcond.f @@ -139,8 +139,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== @@ -148,10 +146,9 @@ $ IPIV, CMODE, C, INFO, WORK, $ IWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -337,5 +334,7 @@ $ DLA_SYRCOND = ( 1.0D+0 / AINVNM ) * RETURN +* +* End of DLA_SYRCOND * END diff --git a/lapack-netlib/SRC/dla_syrfsx_extended.f b/lapack-netlib/SRC/dla_syrfsx_extended.f index b390600c0..e1cde6fc2 100644 --- a/lapack-netlib/SRC/dla_syrfsx_extended.f +++ b/lapack-netlib/SRC/dla_syrfsx_extended.f @@ -56,7 +56,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -354,7 +354,7 @@ *> DZ_UB is DOUBLE PRECISION *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -383,8 +383,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleSYcomputational * * ===================================================================== @@ -396,10 +394,9 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -705,4 +702,7 @@ END DO * RETURN +* +* End of DLA_SYRFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/dla_syrpvgrw.f b/lapack-netlib/SRC/dla_syrpvgrw.f index 5ba03093b..b74133e6c 100644 --- a/lapack-netlib/SRC/dla_syrpvgrw.f +++ b/lapack-netlib/SRC/dla_syrpvgrw.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== DOUBLE PRECISION FUNCTION DLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, $ LDAF, IPIV, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -317,4 +314,7 @@ END IF DLA_SYRPVGRW = RPVGRW +* +* End of DLA_SYRPVGRW +* END diff --git a/lapack-netlib/SRC/dla_wwaddw.f b/lapack-netlib/SRC/dla_wwaddw.f index 4f50540d6..9b07a3072 100644 --- a/lapack-netlib/SRC/dla_wwaddw.f +++ b/lapack-netlib/SRC/dla_wwaddw.f @@ -74,17 +74,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DLA_WWADDW( N, X, Y, W ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N @@ -108,4 +105,7 @@ X(I) = S 10 CONTINUE RETURN +* +* End of DLA_WWADDW +* END diff --git a/lapack-netlib/SRC/dlabad.f b/lapack-netlib/SRC/dlabad.f index 01b8158f6..95b35e53b 100644 --- a/lapack-netlib/SRC/dlabad.f +++ b/lapack-netlib/SRC/dlabad.f @@ -67,17 +67,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE DLABAD( SMALL, LARGE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION LARGE, SMALL diff --git a/lapack-netlib/SRC/dlabrd.f b/lapack-netlib/SRC/dlabrd.f index b5e734dc7..86dfc10c7 100644 --- a/lapack-netlib/SRC/dlabrd.f +++ b/lapack-netlib/SRC/dlabrd.f @@ -156,8 +156,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -210,10 +208,9 @@ SUBROUTINE DLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, $ LDY ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, M, N, NB diff --git a/lapack-netlib/SRC/dlacn2.f b/lapack-netlib/SRC/dlacn2.f index 952854043..ee2e7ca26 100644 --- a/lapack-netlib/SRC/dlacn2.f +++ b/lapack-netlib/SRC/dlacn2.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -136,10 +134,9 @@ * ===================================================================== SUBROUTINE DLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KASE, N @@ -160,7 +157,7 @@ * .. * .. Local Scalars .. INTEGER I, JLAST - DOUBLE PRECISION ALTSGN, ESTOLD, TEMP + DOUBLE PRECISION ALTSGN, ESTOLD, TEMP, XS * .. * .. External Functions .. INTEGER IDAMAX @@ -171,7 +168,7 @@ EXTERNAL DCOPY * .. * .. Intrinsic Functions .. - INTRINSIC ABS, DBLE, NINT, SIGN + INTRINSIC ABS, DBLE, NINT * .. * .. Executable Statements .. * @@ -199,7 +196,11 @@ EST = DASUM( N, X, 1 ) * DO 30 I = 1, N - X( I ) = SIGN( ONE, X( I ) ) + IF( X(I).GE.ZERO ) THEN + X(I) = ONE + ELSE + X(I) = -ONE + END IF ISGN( I ) = NINT( X( I ) ) 30 CONTINUE KASE = 2 @@ -232,7 +233,12 @@ ESTOLD = EST EST = DASUM( N, V, 1 ) DO 80 I = 1, N - IF( NINT( SIGN( ONE, X( I ) ) ).NE.ISGN( I ) ) + IF( X(I).GE.ZERO ) THEN + XS = ONE + ELSE + XS = -ONE + END IF + IF( NINT( XS ).NE.ISGN( I ) ) $ GO TO 90 80 CONTINUE * REPEATED SIGN VECTOR DETECTED, HENCE ALGORITHM HAS CONVERGED. @@ -244,7 +250,11 @@ $ GO TO 120 * DO 100 I = 1, N - X( I ) = SIGN( ONE, X( I ) ) + IF( X(I).GE.ZERO ) THEN + X(I) = ONE + ELSE + X(I) = -ONE + END IF ISGN( I ) = NINT( X( I ) ) 100 CONTINUE KASE = 2 diff --git a/lapack-netlib/SRC/dlacon.f b/lapack-netlib/SRC/dlacon.f index 0077f7c8a..c4f8a4512 100644 --- a/lapack-netlib/SRC/dlacon.f +++ b/lapack-netlib/SRC/dlacon.f @@ -95,8 +95,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -115,10 +113,9 @@ * ===================================================================== SUBROUTINE DLACON( N, V, X, ISGN, EST, KASE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/lapack-netlib/SRC/dlacpy.f b/lapack-netlib/SRC/dlacpy.f index d1c396724..917aa1e2a 100644 --- a/lapack-netlib/SRC/dlacpy.f +++ b/lapack-netlib/SRC/dlacpy.f @@ -96,17 +96,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE DLACPY( UPLO, M, N, A, LDA, B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dladiv.f b/lapack-netlib/SRC/dladiv.f index dd8110adf..4265618fe 100644 --- a/lapack-netlib/SRC/dladiv.f +++ b/lapack-netlib/SRC/dladiv.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2013 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLADIV( A, B, C, D, P, Q ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2013 * * .. Scalar Arguments .. DOUBLE PRECISION A, B, C, D, P, Q @@ -178,10 +175,9 @@ SUBROUTINE DLADIV1( A, B, C, D, P, Q ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2013 * * .. Scalar Arguments .. DOUBLE PRECISION A, B, C, D, P, Q @@ -218,10 +214,9 @@ DOUBLE PRECISION FUNCTION DLADIV2( A, B, C, D, R, T ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2013 * * .. Scalar Arguments .. DOUBLE PRECISION A, B, C, D, R, T @@ -251,6 +246,6 @@ * RETURN * -* End of DLADIV12 +* End of DLADIV2 * END diff --git a/lapack-netlib/SRC/dlae2.f b/lapack-netlib/SRC/dlae2.f index ed77ff6df..a0e3971b4 100644 --- a/lapack-netlib/SRC/dlae2.f +++ b/lapack-netlib/SRC/dlae2.f @@ -78,8 +78,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -102,10 +100,9 @@ * ===================================================================== SUBROUTINE DLAE2( A, B, C, RT1, RT2 ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION A, B, C, RT1, RT2 diff --git a/lapack-netlib/SRC/dlaebz.f b/lapack-netlib/SRC/dlaebz.f index f36a82c59..980536ce6 100644 --- a/lapack-netlib/SRC/dlaebz.f +++ b/lapack-netlib/SRC/dlaebz.f @@ -273,8 +273,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -319,10 +317,9 @@ $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, $ NAB, WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IJOB, INFO, MINP, MMAX, MOUT, N, NBMIN, NITMAX diff --git a/lapack-netlib/SRC/dlaed0.f b/lapack-netlib/SRC/dlaed0.f index 4e92da98e..fe3b6249e 100644 --- a/lapack-netlib/SRC/dlaed0.f +++ b/lapack-netlib/SRC/dlaed0.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED0 used by sstedc. Computes all eigenvalues and corresponding eigenvectors of an unreduced symmetric tridiagonal matrix using the divide and conquer method. +*> \brief \b DLAED0 used by DSTEDC. Computes all eigenvalues and corresponding eigenvectors of an unreduced symmetric tridiagonal matrix using the divide and conquer method. * * =========== DOCUMENTATION =========== * @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -172,10 +170,9 @@ SUBROUTINE DLAED0( ICOMPQ, QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDQ, LDQS, N, QSIZ diff --git a/lapack-netlib/SRC/dlaed1.f b/lapack-netlib/SRC/dlaed1.f index 30e71fa24..3718139c1 100644 --- a/lapack-netlib/SRC/dlaed1.f +++ b/lapack-netlib/SRC/dlaed1.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED1 used by sstedc. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is tridiagonal. +*> \brief \b DLAED1 used by DSTEDC. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is tridiagonal. * * =========== DOCUMENTATION =========== * @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -163,10 +161,9 @@ SUBROUTINE DLAED1( N, D, Q, LDQ, INDXQ, RHO, CUTPNT, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER CUTPNT, INFO, LDQ, N diff --git a/lapack-netlib/SRC/dlaed2.f b/lapack-netlib/SRC/dlaed2.f index fbcc87a88..9b1f1e093 100644 --- a/lapack-netlib/SRC/dlaed2.f +++ b/lapack-netlib/SRC/dlaed2.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED2 used by sstedc. Merges eigenvalues and deflates secular equation. Used when the original matrix is tridiagonal. +*> \brief \b DLAED2 used by DSTEDC. Merges eigenvalues and deflates secular equation. Used when the original matrix is tridiagonal. * * =========== DOCUMENTATION =========== * @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -212,10 +210,9 @@ SUBROUTINE DLAED2( K, N, N1, D, Q, LDQ, INDXQ, RHO, Z, DLAMDA, W, $ Q2, INDX, INDXC, INDXP, COLTYP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDQ, N, N1 diff --git a/lapack-netlib/SRC/dlaed3.f b/lapack-netlib/SRC/dlaed3.f index d200fc0a2..c58944e60 100644 --- a/lapack-netlib/SRC/dlaed3.f +++ b/lapack-netlib/SRC/dlaed3.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED3 used by sstedc. Finds the roots of the secular equation and updates the eigenvectors. Used when the original matrix is tridiagonal. +*> \brief \b DLAED3 used by DSTEDC. Finds the roots of the secular equation and updates the eigenvectors. Used when the original matrix is tridiagonal. * * =========== DOCUMENTATION =========== * @@ -170,8 +170,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -185,10 +183,9 @@ SUBROUTINE DLAED3( K, N, N1, D, Q, LDQ, RHO, DLAMDA, Q2, INDX, $ CTOT, W, S, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, K, LDQ, N, N1 diff --git a/lapack-netlib/SRC/dlaed4.f b/lapack-netlib/SRC/dlaed4.f index 033438d73..3ee3ef920 100644 --- a/lapack-netlib/SRC/dlaed4.f +++ b/lapack-netlib/SRC/dlaed4.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED4 used by sstedc. Finds a single root of the secular equation. +*> \brief \b DLAED4 used by DSTEDC. Finds a single root of the secular equation. * * =========== DOCUMENTATION =========== * @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -145,10 +143,9 @@ * ===================================================================== SUBROUTINE DLAED4( N, I, D, Z, DELTA, RHO, DLAM, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I, INFO, N diff --git a/lapack-netlib/SRC/dlaed5.f b/lapack-netlib/SRC/dlaed5.f index 3ea9e401c..d9e977e6b 100644 --- a/lapack-netlib/SRC/dlaed5.f +++ b/lapack-netlib/SRC/dlaed5.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED5 used by sstedc. Solves the 2-by-2 secular equation. +*> \brief \b DLAED5 used by DSTEDC. Solves the 2-by-2 secular equation. * * =========== DOCUMENTATION =========== * @@ -95,8 +95,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -108,10 +106,9 @@ * ===================================================================== SUBROUTINE DLAED5( I, D, Z, DELTA, RHO, DLAM ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I @@ -184,6 +181,6 @@ END IF RETURN * -* End OF DLAED5 +* End of DLAED5 * END diff --git a/lapack-netlib/SRC/dlaed6.f b/lapack-netlib/SRC/dlaed6.f index daa8db39e..a0c0364e5 100644 --- a/lapack-netlib/SRC/dlaed6.f +++ b/lapack-netlib/SRC/dlaed6.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED6 used by sstedc. Computes one Newton step in solution of the secular equation. +*> \brief \b DLAED6 used by DSTEDC. Computes one Newton step in solution of the secular equation. * * =========== DOCUMENTATION =========== * @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Further Details: @@ -140,10 +138,9 @@ * ===================================================================== SUBROUTINE DLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL ORGATI diff --git a/lapack-netlib/SRC/dlaed7.f b/lapack-netlib/SRC/dlaed7.f index 9c528adde..d968c5675 100644 --- a/lapack-netlib/SRC/dlaed7.f +++ b/lapack-netlib/SRC/dlaed7.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED7 used by sstedc. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is dense. +*> \brief \b DLAED7 used by DSTEDC. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -244,8 +244,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -260,10 +258,9 @@ $ PERM, GIVPTR, GIVCOL, GIVNUM, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, CUTPNT, ICOMPQ, INFO, LDQ, N, diff --git a/lapack-netlib/SRC/dlaed8.f b/lapack-netlib/SRC/dlaed8.f index f64679dc0..3631fb456 100644 --- a/lapack-netlib/SRC/dlaed8.f +++ b/lapack-netlib/SRC/dlaed8.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED8 used by sstedc. Merges eigenvalues and deflates secular equation. Used when the original matrix is dense. +*> \brief \b DLAED8 used by DSTEDC. Merges eigenvalues and deflates secular equation. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -228,8 +228,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -243,10 +241,9 @@ $ CUTPNT, Z, DLAMDA, Q2, LDQ2, W, PERM, GIVPTR, $ GIVCOL, GIVNUM, INDXP, INDX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER CUTPNT, GIVPTR, ICOMPQ, INFO, K, LDQ, LDQ2, N, diff --git a/lapack-netlib/SRC/dlaed9.f b/lapack-netlib/SRC/dlaed9.f index d3be22502..b88cdd907 100644 --- a/lapack-netlib/SRC/dlaed9.f +++ b/lapack-netlib/SRC/dlaed9.f @@ -1,4 +1,4 @@ -*> \brief \b DLAED9 used by sstedc. Finds the roots of the secular equation and updates the eigenvectors. Used when the original matrix is dense. +*> \brief \b DLAED9 used by DSTEDC. Finds the roots of the secular equation and updates the eigenvectors. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -156,10 +154,9 @@ SUBROUTINE DLAED9( K, KSTART, KSTOP, N, D, Q, LDQ, RHO, DLAMDA, W, $ S, LDS, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, KSTART, KSTOP, LDQ, LDS, N diff --git a/lapack-netlib/SRC/dlaeda.f b/lapack-netlib/SRC/dlaeda.f index 4ca08a087..8864fd7f2 100644 --- a/lapack-netlib/SRC/dlaeda.f +++ b/lapack-netlib/SRC/dlaeda.f @@ -1,4 +1,4 @@ -*> \brief \b DLAEDA used by sstedc. Computes the Z vector determining the rank-one modification of the diagonal matrix. Used when the original matrix is dense. +*> \brief \b DLAEDA used by DSTEDC. Computes the Z vector determining the rank-one modification of the diagonal matrix. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -166,10 +164,9 @@ SUBROUTINE DLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR, $ GIVCOL, GIVNUM, Q, QPTR, Z, ZTEMP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, INFO, N, TLVLS diff --git a/lapack-netlib/SRC/dlaein.f b/lapack-netlib/SRC/dlaein.f index d35e186a1..8e4c7fea1 100644 --- a/lapack-netlib/SRC/dlaein.f +++ b/lapack-netlib/SRC/dlaein.f @@ -164,18 +164,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAEIN( RIGHTV, NOINIT, N, H, LDH, WR, WI, VR, VI, B, $ LDB, WORK, EPS3, SMLNUM, BIGNUM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL NOINIT, RIGHTV diff --git a/lapack-netlib/SRC/dlaev2.f b/lapack-netlib/SRC/dlaev2.f index 4906f1a20..9e29991a6 100644 --- a/lapack-netlib/SRC/dlaev2.f +++ b/lapack-netlib/SRC/dlaev2.f @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -120,10 +118,9 @@ * ===================================================================== SUBROUTINE DLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION A, B, C, CS1, RT1, RT2, SN1 diff --git a/lapack-netlib/SRC/dlaexc.f b/lapack-netlib/SRC/dlaexc.f index fc4f4a732..b2a27b777 100644 --- a/lapack-netlib/SRC/dlaexc.f +++ b/lapack-netlib/SRC/dlaexc.f @@ -41,7 +41,7 @@ *> *> T must be in Schur canonical form, that is, block upper triangular *> with 1-by-1 and 2-by-2 diagonal blocks; each 2-by-2 diagonal block -*> has its diagonal elemnts equal and its off-diagonal elements of +*> has its diagonal elements equal and its off-diagonal elements of *> opposite sign. *> \endverbatim * @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAEXC( WANTQ, N, T, LDT, Q, LDQ, J1, N1, N2, WORK, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL WANTQ diff --git a/lapack-netlib/SRC/dlag2.f b/lapack-netlib/SRC/dlag2.f index 7f123b276..81c81a0aa 100644 --- a/lapack-netlib/SRC/dlag2.f +++ b/lapack-netlib/SRC/dlag2.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAG2( A, LDA, B, LDB, SAFMIN, SCALE1, SCALE2, WR1, $ WR2, WI ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB diff --git a/lapack-netlib/SRC/dlag2s.f b/lapack-netlib/SRC/dlag2s.f index 09e2ac771..e5a930223 100644 --- a/lapack-netlib/SRC/dlag2s.f +++ b/lapack-netlib/SRC/dlag2s.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAG2S( M, N, A, LDA, SA, LDSA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDSA, M, N diff --git a/lapack-netlib/SRC/dlags2.f b/lapack-netlib/SRC/dlags2.f index 62a833461..88caf25a8 100644 --- a/lapack-netlib/SRC/dlags2.f +++ b/lapack-netlib/SRC/dlags2.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, $ SNV, CSQ, SNQ ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL UPPER diff --git a/lapack-netlib/SRC/dlagtf.f b/lapack-netlib/SRC/dlagtf.f index b92c84f39..214bbb7a6 100644 --- a/lapack-netlib/SRC/dlagtf.f +++ b/lapack-netlib/SRC/dlagtf.f @@ -149,17 +149,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLAGTF( N, A, LAMBDA, B, C, TOL, D, IN, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/dlagtm.f b/lapack-netlib/SRC/dlagtm.f index bb330e858..fd443df2b 100644 --- a/lapack-netlib/SRC/dlagtm.f +++ b/lapack-netlib/SRC/dlagtm.f @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, $ B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dlagts.f b/lapack-netlib/SRC/dlagts.f index cbd35ae14..092d1764e 100644 --- a/lapack-netlib/SRC/dlagts.f +++ b/lapack-netlib/SRC/dlagts.f @@ -154,17 +154,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE DLAGTS( JOB, N, A, B, C, D, IN, Y, TOL, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, JOB, N diff --git a/lapack-netlib/SRC/dlagv2.f b/lapack-netlib/SRC/dlagv2.f index 16c608204..885fe8a7d 100644 --- a/lapack-netlib/SRC/dlagv2.f +++ b/lapack-netlib/SRC/dlagv2.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -157,10 +155,9 @@ SUBROUTINE DLAGV2( A, LDA, B, LDB, ALPHAR, ALPHAI, BETA, CSL, SNL, $ CSR, SNR ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB diff --git a/lapack-netlib/SRC/dlahqr.f b/lapack-netlib/SRC/dlahqr.f index e863829ec..449134b86 100644 --- a/lapack-netlib/SRC/dlahqr.f +++ b/lapack-netlib/SRC/dlahqr.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -206,11 +204,11 @@ * ===================================================================== SUBROUTINE DLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, INFO ) + IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N @@ -227,13 +225,16 @@ PARAMETER ( ZERO = 0.0d0, ONE = 1.0d0, TWO = 2.0d0 ) DOUBLE PRECISION DAT1, DAT2 PARAMETER ( DAT1 = 3.0d0 / 4.0d0, DAT2 = -0.4375d0 ) + INTEGER KEXSH + PARAMETER ( KEXSH = 10 ) * .. * .. Local Scalars .. DOUBLE PRECISION AA, AB, BA, BB, CS, DET, H11, H12, H21, H21S, $ H22, RT1I, RT1R, RT2I, RT2R, RTDISC, S, SAFMAX, $ SAFMIN, SMLNUM, SN, SUM, T1, T2, T3, TR, TST, $ ULP, V2, V3 - INTEGER I, I1, I2, ITS, ITMAX, J, K, L, M, NH, NR, NZ + INTEGER I, I1, I2, ITS, ITMAX, J, K, L, M, NH, NR, NZ, + $ KDEFL * .. * .. Local Arrays .. DOUBLE PRECISION V( 3 ) @@ -294,6 +295,10 @@ * ITMAX = 30 * MAX( 10, NH ) * +* KDEFL counts the number of iterations since a deflation +* + KDEFL = 0 +* * The main loop begins here. I is the loop index and decreases from * IHI to ILO in steps of 1 or 2. Each iteration of the loop works * with the active submatrix in rows and columns L to I. @@ -353,6 +358,7 @@ * IF( L.GE.I-1 ) $ GO TO 150 + KDEFL = KDEFL + 1 * * Now the active submatrix is in rows and columns L to I. If * eigenvalues only are being computed, only the active submatrix @@ -363,21 +369,21 @@ I2 = I END IF * - IF( ITS.EQ.10 ) THEN + IF( MOD(KDEFL,2*KEXSH).EQ.0 ) THEN * * Exceptional shift. * - S = ABS( H( L+1, L ) ) + ABS( H( L+2, L+1 ) ) - H11 = DAT1*S + H( L, L ) + S = ABS( H( I, I-1 ) ) + ABS( H( I-1, I-2 ) ) + H11 = DAT1*S + H( I, I ) H12 = DAT2*S H21 = S H22 = H11 - ELSE IF( ITS.EQ.20 ) THEN + ELSE IF( MOD(KDEFL,KEXSH).EQ.0 ) THEN * * Exceptional shift. * - S = ABS( H( I, I-1 ) ) + ABS( H( I-1, I-2 ) ) - H11 = DAT1*S + H( I, I ) + S = ABS( H( L+1, L ) ) + ABS( H( L+2, L+1 ) ) + H11 = DAT1*S + H( L, L ) H12 = DAT2*S H21 = S H22 = H11 @@ -599,6 +605,8 @@ CALL DROT( NZ, Z( ILOZ, I-1 ), 1, Z( ILOZ, I ), 1, CS, SN ) END IF END IF +* reset deflation counter + KDEFL = 0 * * return to start of the main loop with new value of I. * diff --git a/lapack-netlib/SRC/dlahr2.f b/lapack-netlib/SRC/dlahr2.f index beb9795be..d517d5a93 100644 --- a/lapack-netlib/SRC/dlahr2.f +++ b/lapack-netlib/SRC/dlahr2.f @@ -123,8 +123,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -181,10 +179,9 @@ * ===================================================================== SUBROUTINE DLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/lapack-netlib/SRC/dlaic1.f b/lapack-netlib/SRC/dlaic1.f index e9dc0835e..ac22d2369 100644 --- a/lapack-netlib/SRC/dlaic1.f +++ b/lapack-netlib/SRC/dlaic1.f @@ -127,17 +127,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER J, JOB diff --git a/lapack-netlib/SRC/dlaisnan.f b/lapack-netlib/SRC/dlaisnan.f index c2e87d88a..2caf5fb1d 100644 --- a/lapack-netlib/SRC/dlaisnan.f +++ b/lapack-netlib/SRC/dlaisnan.f @@ -67,17 +67,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * * ===================================================================== LOGICAL FUNCTION DLAISNAN( DIN1, DIN2 ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION, INTENT(IN) :: DIN1, DIN2 diff --git a/lapack-netlib/SRC/dlaln2.f b/lapack-netlib/SRC/dlaln2.f index 0c94ea308..b21819b05 100644 --- a/lapack-netlib/SRC/dlaln2.f +++ b/lapack-netlib/SRC/dlaln2.f @@ -210,18 +210,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLALN2( LTRANS, NA, NW, SMIN, CA, A, LDA, D1, D2, B, $ LDB, WR, WI, X, LDX, SCALE, XNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LTRANS diff --git a/lapack-netlib/SRC/dlals0.f b/lapack-netlib/SRC/dlals0.f index d4cff166d..cfca22280 100644 --- a/lapack-netlib/SRC/dlals0.f +++ b/lapack-netlib/SRC/dlals0.f @@ -252,8 +252,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -268,10 +266,9 @@ $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ POLES, DIFL, DIFR, Z, K, C, S, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, diff --git a/lapack-netlib/SRC/dlalsa.f b/lapack-netlib/SRC/dlalsa.f index b643f11c0..da8e0fa17 100644 --- a/lapack-netlib/SRC/dlalsa.f +++ b/lapack-netlib/SRC/dlalsa.f @@ -250,8 +250,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -267,10 +265,9 @@ $ GIVCOL, LDGCOL, PERM, GIVNUM, C, S, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, diff --git a/lapack-netlib/SRC/dlalsd.f b/lapack-netlib/SRC/dlalsd.f index 510e0455a..d22c45dc6 100644 --- a/lapack-netlib/SRC/dlalsd.f +++ b/lapack-netlib/SRC/dlalsd.f @@ -164,8 +164,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -179,10 +177,9 @@ SUBROUTINE DLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, $ RANK, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlamrg.f b/lapack-netlib/SRC/dlamrg.f index de19508e4..80bd354b9 100644 --- a/lapack-netlib/SRC/dlamrg.f +++ b/lapack-netlib/SRC/dlamrg.f @@ -92,17 +92,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLAMRG( N1, N2, A, DTRD1, DTRD2, INDEX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER DTRD1, DTRD2, N1, N2 diff --git a/lapack-netlib/SRC/dlamswlq.f b/lapack-netlib/SRC/dlamswlq.f index 306c3d3de..70e78f4b1 100644 --- a/lapack-netlib/SRC/dlamswlq.f +++ b/lapack-netlib/SRC/dlamswlq.f @@ -19,7 +19,7 @@ *> *> \verbatim *> -*> DLAMQRTS overwrites the general real M-by-N matrix C with +*> DLAMSWLQ overwrites the general real M-by-N matrix C with *> *> *> SIDE = 'L' SIDE = 'R' @@ -56,7 +56,7 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix C. N >= M. +*> The number of columns of the matrix C. N >= 0. *> \endverbatim *> *> \param[in] K @@ -70,25 +70,17 @@ *> \param[in] MB *> \verbatim *> MB is INTEGER -*> The row block size to be used in the blocked QR. +*> The row block size to be used in the blocked LQ. *> M >= MB >= 1 *> \endverbatim *> *> \param[in] NB *> \verbatim *> NB is INTEGER -*> The column block size to be used in the blocked QR. +*> The column block size to be used in the blocked LQ. *> NB > M. *> \endverbatim *> -*> \param[in] NB -*> \verbatim -*> NB is INTEGER -*> The block size to be used in the blocked QR. -*> MB > M. -*> -*> \endverbatim -*> *> \param[in] A *> \verbatim *> A is DOUBLE PRECISION array, dimension @@ -102,9 +94,7 @@ *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. -*> If SIDE = 'L', LDA >= max(1,M); -*> if SIDE = 'R', LDA >= max(1,N). +*> The leading dimension of the array A. LDA >= max(1,K). *> \endverbatim *> *> \param[in] T @@ -189,7 +179,7 @@ *> stored in columns [(i-1)*(NB-M)+M+1:i*(NB-M)+M] of A, and by upper triangular *> block reflectors, stored in array T(1:LDT,(i-1)*M+1:i*M). *> The last Q(k) may use fewer rows. -*> For more information see Further Details in TPQRT. +*> For more information see Further Details in TPLQT. *> *> For more details of the overall algorithm, see the description of *> Sequential TSQR in Section 2.2 of [1]. @@ -203,10 +193,9 @@ SUBROUTINE DLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -250,12 +239,14 @@ INFO = -1 ELSE IF( .NOT.TRAN .AND. .NOT.NOTRAN ) THEN INFO = -2 - ELSE IF( M.LT.0 ) THEN + ELSE IF( K.LT.0 ) THEN + INFO = -5 + ELSE IF( M.LT.K ) THEN INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 - ELSE IF( K.LT.0 ) THEN - INFO = -5 + ELSE IF( K.LT.MB .OR. MB.LT.1) THEN + INFO = -6 ELSE IF( LDA.LT.MAX( 1, K ) ) THEN INFO = -9 ELSE IF( LDT.LT.MAX( 1, MB) ) THEN diff --git a/lapack-netlib/SRC/dlamtsqr.f b/lapack-netlib/SRC/dlamtsqr.f index 41a067780..962a31476 100644 --- a/lapack-netlib/SRC/dlamtsqr.f +++ b/lapack-netlib/SRC/dlamtsqr.f @@ -56,15 +56,14 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix C. M >= N >= 0. +*> The number of columns of the matrix C. N >= 0. *> \endverbatim *> *> \param[in] K *> \verbatim *> K is INTEGER *> The number of elementary reflectors whose product defines -*> the matrix Q. -*> N >= K >= 0; +*> the matrix Q. M >= K >= 0; *> *> \endverbatim *> @@ -196,10 +195,9 @@ SUBROUTINE DLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -215,7 +213,7 @@ * .. * .. Local Scalars .. LOGICAL LEFT, RIGHT, TRAN, NOTRAN, LQUERY - INTEGER I, II, KK, LW, CTR + INTEGER I, II, KK, LW, CTR, Q * .. * .. External Functions .. LOGICAL LSAME @@ -234,8 +232,10 @@ RIGHT = LSAME( SIDE, 'R' ) IF (LEFT) THEN LW = N * NB + Q = M ELSE LW = MB * NB + Q = N END IF * INFO = 0 @@ -243,13 +243,15 @@ INFO = -1 ELSE IF( .NOT.TRAN .AND. .NOT.NOTRAN ) THEN INFO = -2 - ELSE IF( M.LT.0 ) THEN + ELSE IF( M.LT.K ) THEN INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 ELSE IF( K.LT.0 ) THEN INFO = -5 - ELSE IF( LDA.LT.MAX( 1, K ) ) THEN + ELSE IF( K.LT.NB .OR. NB.LT.1 ) THEN + INFO = -7 + ELSE IF( LDA.LT.MAX( 1, Q ) ) THEN INFO = -9 ELSE IF( LDT.LT.MAX( 1, NB) ) THEN INFO = -11 diff --git a/lapack-netlib/SRC/dlaneg.f b/lapack-netlib/SRC/dlaneg.f index 3d13d316b..2502852eb 100644 --- a/lapack-netlib/SRC/dlaneg.f +++ b/lapack-netlib/SRC/dlaneg.f @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -118,10 +116,9 @@ * ===================================================================== INTEGER FUNCTION DLANEG( N, D, LLD, SIGMA, PIVMIN, R ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, R diff --git a/lapack-netlib/SRC/dlangb.f b/lapack-netlib/SRC/dlangb.f index 0c4f938f7..96c957085 100644 --- a/lapack-netlib/SRC/dlangb.f +++ b/lapack-netlib/SRC/dlangb.f @@ -116,20 +116,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANGB( NORM, N, KL, KU, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER KL, KU, LDAB, N @@ -140,24 +136,22 @@ * * ===================================================================== * +* * .. Parameters .. DOUBLE PRECISION ONE, ZERO PARAMETER ( ONE = 1.0D+0, ZERO = 0.0D+0 ) * .. * .. Local Scalars .. INTEGER I, J, K, L - DOUBLE PRECISION SUM, VALUE, TEMP + DOUBLE PRECISION SCALE, SUM, VALUE, TEMP * .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL DLASSQ * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. -* .. External Subroutines .. - EXTERNAL DLASSQ, DCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT * .. @@ -209,22 +203,15 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N L = MAX( 1, J-KU ) K = KU + 1 - J + L - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( MIN( N, J+KL )-L+1, AB( K, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( MIN( N, J+KL )-L+1, AB( K, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * DLANGB = VALUE diff --git a/lapack-netlib/SRC/dlange.f b/lapack-netlib/SRC/dlange.f index 6b32fbefd..9d214cb54 100644 --- a/lapack-netlib/SRC/dlange.f +++ b/lapack-netlib/SRC/dlange.f @@ -107,19 +107,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANGE( NORM, M, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER LDA, M, N @@ -136,13 +132,10 @@ * .. * .. Local Scalars .. INTEGER I, J - DOUBLE PRECISION SUM, VALUE, TEMP -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION SCALE, SUM, VALUE, TEMP * .. * .. External Subroutines .. - EXTERNAL DLASSQ, DCOMBSSQ + EXTERNAL DLASSQ * .. * .. External Functions .. LOGICAL LSAME, DISNAN @@ -198,19 +191,13 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( M, A( 1, J ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( M, A( 1, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * DLANGE = VALUE diff --git a/lapack-netlib/SRC/dlangt.f b/lapack-netlib/SRC/dlangt.f index c9576c0c3..61626b0aa 100644 --- a/lapack-netlib/SRC/dlangt.f +++ b/lapack-netlib/SRC/dlangt.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANGT( NORM, N, DL, D, DU ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/dlanhs.f b/lapack-netlib/SRC/dlanhs.f index a859d2216..29560e4a6 100644 --- a/lapack-netlib/SRC/dlanhs.f +++ b/lapack-netlib/SRC/dlanhs.f @@ -101,19 +101,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANHS( NORM, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER LDA, N @@ -130,18 +126,15 @@ * .. * .. Local Scalars .. INTEGER I, J - DOUBLE PRECISION SUM, VALUE + DOUBLE PRECISION SCALE, SUM, VALUE * .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL DLASSQ * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. -* .. External Subroutines .. - EXTERNAL DLASSQ, DCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT * .. @@ -192,20 +185,13 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( MIN( N, J+1 ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( MIN( N, J+1 ), A( 1, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * DLANHS = VALUE diff --git a/lapack-netlib/SRC/dlansb.f b/lapack-netlib/SRC/dlansb.f index a82dc41b1..4df8db250 100644 --- a/lapack-netlib/SRC/dlansb.f +++ b/lapack-netlib/SRC/dlansb.f @@ -121,20 +121,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANSB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER K, LDAB, N @@ -151,18 +147,15 @@ * .. * .. Local Scalars .. INTEGER I, J, L - DOUBLE PRECISION ABSA, SUM, VALUE + DOUBLE PRECISION ABSA, SCALE, SUM, VALUE * .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL DLASSQ * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. -* .. External Subroutines .. - EXTERNAL DLASSQ, DCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT * .. @@ -229,47 +222,29 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( K.GT.0 ) THEN IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL DLASSQ( MIN( J-1, K ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 110 CONTINUE L = K + 1 ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 120 CONTINUE L = 1 END IF - SSQ( 2 ) = 2*SSQ( 2 ) + SUM = 2*SUM ELSE L = 1 END IF -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( N, AB( L, 1 ), LDAB, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + CALL DLASSQ( N, AB( L, 1 ), LDAB, SCALE, SUM ) + VALUE = SCALE*SQRT( SUM ) END IF * DLANSB = VALUE diff --git a/lapack-netlib/SRC/dlansf.f b/lapack-netlib/SRC/dlansf.f index d9b6c5b36..30e424829 100644 --- a/lapack-netlib/SRC/dlansf.f +++ b/lapack-netlib/SRC/dlansf.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -209,10 +207,9 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DLANSF( NORM, TRANSR, UPLO, N, A, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM, TRANSR, UPLO diff --git a/lapack-netlib/SRC/dlansp.f b/lapack-netlib/SRC/dlansp.f index b6ad1ffcf..50f974e1e 100644 --- a/lapack-netlib/SRC/dlansp.f +++ b/lapack-netlib/SRC/dlansp.f @@ -107,19 +107,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANSP( NORM, UPLO, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER N @@ -136,18 +132,15 @@ * .. * .. Local Scalars .. INTEGER I, J, K - DOUBLE PRECISION ABSA, SUM, VALUE + DOUBLE PRECISION ABSA, SCALE, SUM, VALUE * .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL DLASSQ * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. -* .. External Subroutines .. - EXTERNAL DLASSQ, DCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT * .. @@ -221,48 +214,31 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE K = 2 IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( J-1, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( N-J, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* + SUM = 2*SUM K = 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE DO 130 I = 1, N IF( AP( K ).NE.ZERO ) THEN ABSA = ABS( AP( K ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF IF( LSAME( UPLO, 'U' ) ) THEN @@ -271,8 +247,7 @@ K = K + N - I + 1 END IF 130 CONTINUE - CALL DCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * DLANSP = VALUE diff --git a/lapack-netlib/SRC/dlanst.f b/lapack-netlib/SRC/dlanst.f index e952e2dd2..c5bc7ea03 100644 --- a/lapack-netlib/SRC/dlanst.f +++ b/lapack-netlib/SRC/dlanst.f @@ -93,17 +93,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANST( NORM, N, D, E ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/dlansy.f b/lapack-netlib/SRC/dlansy.f index 87d514c11..949c5535a 100644 --- a/lapack-netlib/SRC/dlansy.f +++ b/lapack-netlib/SRC/dlansy.f @@ -115,19 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANSY( NORM, UPLO, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER LDA, N @@ -144,18 +140,15 @@ * .. * .. Local Scalars .. INTEGER I, J - DOUBLE PRECISION ABSA, SUM, VALUE + DOUBLE PRECISION ABSA, SCALE, SUM, VALUE * .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL DLASSQ * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. -* .. External Subroutines .. - EXTERNAL DLASSQ, DCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT * .. @@ -220,39 +213,21 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( J-1, A( 1, J ), 1, COLSSQ(1), COLSSQ(2) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( J-1, A( 1, J ), 1, SCALE, SUM ) 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( N-J, A( J+1, J ), 1, COLSSQ(1), COLSSQ(2) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( N-J, A( J+1, J ), 1, SCALE, SUM ) 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( N, A, LDA+1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + SUM = 2*SUM + CALL DLASSQ( N, A, LDA+1, SCALE, SUM ) + VALUE = SCALE*SQRT( SUM ) END IF * DLANSY = VALUE diff --git a/lapack-netlib/SRC/dlantb.f b/lapack-netlib/SRC/dlantb.f index 0d46f6cc8..c2bcfa612 100644 --- a/lapack-netlib/SRC/dlantb.f +++ b/lapack-netlib/SRC/dlantb.f @@ -132,20 +132,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANTB( NORM, UPLO, DIAG, N, K, AB, $ LDAB, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER K, LDAB, N @@ -163,18 +159,15 @@ * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J, L - DOUBLE PRECISION SUM, VALUE + DOUBLE PRECISION SCALE, SUM, VALUE * .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL DLASSQ * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. -* .. External Subroutines .. - EXTERNAL DLASSQ, DCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT * .. @@ -315,61 +308,46 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N IF( K.GT.0 ) THEN DO 280 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL DLASSQ( MIN( J-1, K ), - $ AB( MAX( K+2-J, 1 ), J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + $ AB( MAX( K+2-J, 1 ), J ), 1, SCALE, + $ SUM ) 280 CONTINUE END IF ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 290 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL DLASSQ( MIN( J, K+1 ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 290 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N IF( K.GT.0 ) THEN DO 300 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 300 CONTINUE END IF ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( MIN( N-J+1, K+1 ), AB( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( MIN( N-J+1, K+1 ), AB( 1, J ), 1, SCALE, + $ SUM ) 310 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * DLANTB = VALUE diff --git a/lapack-netlib/SRC/dlantp.f b/lapack-netlib/SRC/dlantp.f index a7b89dec7..12f8b8e75 100644 --- a/lapack-netlib/SRC/dlantp.f +++ b/lapack-netlib/SRC/dlantp.f @@ -117,19 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANTP( NORM, UPLO, DIAG, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER N @@ -147,18 +143,15 @@ * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J, K - DOUBLE PRECISION SUM, VALUE + DOUBLE PRECISION SCALE, SUM, VALUE * .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL DLASSQ * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. -* .. External Subroutines .. - EXTERNAL DLASSQ, DCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT * .. @@ -310,64 +303,45 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N K = 2 DO 280 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( J-1, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 280 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE K = 1 DO 290 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( J, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( J, AP( K ), 1, SCALE, SUM ) K = K + J 290 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N K = 2 DO 300 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( N-J, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 300 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE K = 1 DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( N-J+1, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( N-J+1, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 310 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * DLANTP = VALUE diff --git a/lapack-netlib/SRC/dlantr.f b/lapack-netlib/SRC/dlantr.f index adc7da4c4..9b68f1975 100644 --- a/lapack-netlib/SRC/dlantr.f +++ b/lapack-netlib/SRC/dlantr.f @@ -133,20 +133,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLANTR( NORM, UPLO, DIAG, M, N, A, LDA, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER LDA, M, N @@ -164,18 +160,15 @@ * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J - DOUBLE PRECISION SUM, VALUE + DOUBLE PRECISION SCALE, SUM, VALUE * .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL DLASSQ * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. -* .. External Subroutines .. - EXTERNAL DLASSQ, DCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT * .. @@ -315,56 +308,38 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = MIN( M, N ) + SCALE = ONE + SUM = MIN( M, N ) DO 290 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( MIN( M, J-1 ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( MIN( M, J-1 ), A( 1, J ), 1, SCALE, SUM ) 290 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 300 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( MIN( M, J ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( MIN( M, J ), A( 1, J ), 1, SCALE, SUM ) 300 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = MIN( M, N ) + SCALE = ONE + SUM = MIN( M, N ) DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( M-J, A( MIN( M, J+1 ), J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( M-J, A( MIN( M, J+1 ), J ), 1, SCALE, + $ SUM ) 310 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 320 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL DLASSQ( M-J+1, A( J, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL DLASSQ( M-J+1, A( J, J ), 1, SCALE, SUM ) 320 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * DLANTR = VALUE diff --git a/lapack-netlib/SRC/dlanv2.f b/lapack-netlib/SRC/dlanv2.f index 1c277c6bb..204cddd02 100644 --- a/lapack-netlib/SRC/dlanv2.f +++ b/lapack-netlib/SRC/dlanv2.f @@ -109,8 +109,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -127,10 +125,9 @@ * ===================================================================== SUBROUTINE DLANV2( A, B, C, D, RT1R, RT1I, RT2R, RT2I, CS, SN ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION A, B, C, CS, D, RT1I, RT1R, RT2I, RT2R, SN diff --git a/lapack-netlib/SRC/dlaorhr_col_getrfnp.f b/lapack-netlib/SRC/dlaorhr_col_getrfnp.f index 6a7c629e8..706bfa9b1 100644 --- a/lapack-netlib/SRC/dlaorhr_col_getrfnp.f +++ b/lapack-netlib/SRC/dlaorhr_col_getrfnp.f @@ -128,8 +128,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleGEcomputational * *> \par Contributors: @@ -147,10 +145,9 @@ SUBROUTINE DLAORHR_COL_GETRFNP( M, N, A, LDA, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dlaorhr_col_getrfnp2.f b/lapack-netlib/SRC/dlaorhr_col_getrfnp2.f index f7781f2e5..c424ca660 100644 --- a/lapack-netlib/SRC/dlaorhr_col_getrfnp2.f +++ b/lapack-netlib/SRC/dlaorhr_col_getrfnp2.f @@ -84,7 +84,7 @@ *> *> DLAORHR_COL_GETRFNP2 is called to factorize a block by the blocked *> routine DLAORHR_COL_GETRFNP, which uses blocked code calling -*. Level 3 BLAS to update the submatrix. However, DLAORHR_COL_GETRFNP2 +*> Level 3 BLAS to update the submatrix. However, DLAORHR_COL_GETRFNP2 *> is self-sufficient and can be used without DLAORHR_COL_GETRFNP. *> *> [1] "Reconstructing Householder vectors from tall-skinny QR", @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleGEcomputational * *> \par Contributors: @@ -168,10 +166,9 @@ RECURSIVE SUBROUTINE DLAORHR_COL_GETRFNP2( M, N, A, LDA, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/dlapll.f b/lapack-netlib/SRC/dlapll.f index e8fb73385..1cc15fb99 100644 --- a/lapack-netlib/SRC/dlapll.f +++ b/lapack-netlib/SRC/dlapll.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAPLL( N, X, INCX, Y, INCY, SSMIN ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/lapack-netlib/SRC/dlapmr.f b/lapack-netlib/SRC/dlapmr.f index 257eb61c7..36eea184e 100644 --- a/lapack-netlib/SRC/dlapmr.f +++ b/lapack-netlib/SRC/dlapmr.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAPMR( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL FORWRD @@ -198,7 +195,7 @@ * RETURN * -* End of ZLAPMT +* End of DLAPMR * END diff --git a/lapack-netlib/SRC/dlapmt.f b/lapack-netlib/SRC/dlapmt.f index b322e7ac5..19530885c 100644 --- a/lapack-netlib/SRC/dlapmt.f +++ b/lapack-netlib/SRC/dlapmt.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAPMT( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL FORWRD diff --git a/lapack-netlib/SRC/dlapy2.f b/lapack-netlib/SRC/dlapy2.f index bc01829a2..1f63193bb 100644 --- a/lapack-netlib/SRC/dlapy2.f +++ b/lapack-netlib/SRC/dlapy2.f @@ -31,7 +31,7 @@ *> \verbatim *> *> DLAPY2 returns sqrt(x**2+y**2), taking care not to cause unnecessary -*> overflow. +*> overflow and unnecessary underflow. *> \endverbatim * * Arguments: @@ -56,17 +56,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLAPY2( X, Y ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION X, Y @@ -81,13 +78,16 @@ PARAMETER ( ONE = 1.0D0 ) * .. * .. Local Scalars .. - DOUBLE PRECISION W, XABS, YABS, Z + DOUBLE PRECISION W, XABS, YABS, Z, HUGEVAL LOGICAL X_IS_NAN, Y_IS_NAN * .. * .. External Functions .. LOGICAL DISNAN EXTERNAL DISNAN * .. +* .. External Subroutines .. + DOUBLE PRECISION DLAMCH +* .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT * .. @@ -97,13 +97,14 @@ Y_IS_NAN = DISNAN( Y ) IF ( X_IS_NAN ) DLAPY2 = X IF ( Y_IS_NAN ) DLAPY2 = Y + HUGEVAL = DLAMCH( 'Overflow' ) * IF ( .NOT.( X_IS_NAN.OR.Y_IS_NAN ) ) THEN XABS = ABS( X ) YABS = ABS( Y ) W = MAX( XABS, YABS ) Z = MIN( XABS, YABS ) - IF( Z.EQ.ZERO ) THEN + IF( Z.EQ.ZERO .OR. W.GT.HUGEVAL ) THEN DLAPY2 = W ELSE DLAPY2 = W*SQRT( ONE+( Z / W )**2 ) diff --git a/lapack-netlib/SRC/dlapy3.f b/lapack-netlib/SRC/dlapy3.f index 3bbba8887..230a65cdb 100644 --- a/lapack-netlib/SRC/dlapy3.f +++ b/lapack-netlib/SRC/dlapy3.f @@ -31,7 +31,7 @@ *> \verbatim *> *> DLAPY3 returns sqrt(x**2+y**2+z**2), taking care not to cause -*> unnecessary overflow. +*> unnecessary overflow and unnecessary underflow. *> \endverbatim * * Arguments: @@ -61,17 +61,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION DLAPY3( X, Y, Z ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION X, Y, Z @@ -84,18 +81,22 @@ PARAMETER ( ZERO = 0.0D0 ) * .. * .. Local Scalars .. - DOUBLE PRECISION W, XABS, YABS, ZABS + DOUBLE PRECISION W, XABS, YABS, ZABS, HUGEVAL +* .. +* .. External Subroutines .. + DOUBLE PRECISION DLAMCH * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, SQRT * .. * .. Executable Statements .. * + HUGEVAL = DLAMCH( 'Overflow' ) XABS = ABS( X ) YABS = ABS( Y ) ZABS = ABS( Z ) W = MAX( XABS, YABS, ZABS ) - IF( W.EQ.ZERO ) THEN + IF( W.EQ.ZERO .OR. W.GT.HUGEVAL ) THEN * W can be zero for max(0,nan,0) * adding all three entries together will make sure * NaN will not disappear. diff --git a/lapack-netlib/SRC/dlaqgb.f b/lapack-netlib/SRC/dlaqgb.f index 3c9fac0d3..a13124f1e 100644 --- a/lapack-netlib/SRC/dlaqgb.f +++ b/lapack-netlib/SRC/dlaqgb.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGBauxiliary * * ===================================================================== SUBROUTINE DLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/lapack-netlib/SRC/dlaqge.f b/lapack-netlib/SRC/dlaqge.f index a9852541a..e9324cec8 100644 --- a/lapack-netlib/SRC/dlaqge.f +++ b/lapack-netlib/SRC/dlaqge.f @@ -134,18 +134,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEauxiliary * * ===================================================================== SUBROUTINE DLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/lapack-netlib/SRC/dlaqp2.f b/lapack-netlib/SRC/dlaqp2.f index b6351e04c..b99de6d7d 100644 --- a/lapack-netlib/SRC/dlaqp2.f +++ b/lapack-netlib/SRC/dlaqp2.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -149,10 +147,9 @@ SUBROUTINE DLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, M, N, OFFSET diff --git a/lapack-netlib/SRC/dlaqps.f b/lapack-netlib/SRC/dlaqps.f index 0009de951..dda8278bb 100644 --- a/lapack-netlib/SRC/dlaqps.f +++ b/lapack-netlib/SRC/dlaqps.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -177,10 +175,9 @@ SUBROUTINE DLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, $ VN2, AUXV, F, LDF ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KB, LDA, LDF, M, N, NB, OFFSET diff --git a/lapack-netlib/SRC/dlaqr0.f b/lapack-netlib/SRC/dlaqr0.f index 8334d8d2b..3e73b8de2 100644 --- a/lapack-netlib/SRC/dlaqr0.f +++ b/lapack-netlib/SRC/dlaqr0.f @@ -248,18 +248,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/dlaqr1.f b/lapack-netlib/SRC/dlaqr1.f index 4ccf997e7..f411ac955 100644 --- a/lapack-netlib/SRC/dlaqr1.f +++ b/lapack-netlib/SRC/dlaqr1.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -121,10 +119,9 @@ * ===================================================================== SUBROUTINE DLAQR1( N, H, LDH, SR1, SI1, SR2, SI2, V ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION SI1, SI2, SR1, SR2 diff --git a/lapack-netlib/SRC/dlaqr2.f b/lapack-netlib/SRC/dlaqr2.f index 01fdf3046..515c83658 100644 --- a/lapack-netlib/SRC/dlaqr2.f +++ b/lapack-netlib/SRC/dlaqr2.f @@ -263,8 +263,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -278,10 +276,9 @@ $ IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, $ LDT, NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/lapack-netlib/SRC/dlaqr3.f b/lapack-netlib/SRC/dlaqr3.f index 1dbf55c9e..36e08f02e 100644 --- a/lapack-netlib/SRC/dlaqr3.f +++ b/lapack-netlib/SRC/dlaqr3.f @@ -260,8 +260,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -275,10 +273,9 @@ $ IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, $ LDT, NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/lapack-netlib/SRC/dlaqr4.f b/lapack-netlib/SRC/dlaqr4.f index 163e55deb..0668a54b2 100644 --- a/lapack-netlib/SRC/dlaqr4.f +++ b/lapack-netlib/SRC/dlaqr4.f @@ -237,8 +237,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -263,10 +261,9 @@ SUBROUTINE DLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/dlaqr5.f b/lapack-netlib/SRC/dlaqr5.f index 12e7db637..0c63ab800 100644 --- a/lapack-netlib/SRC/dlaqr5.f +++ b/lapack-netlib/SRC/dlaqr5.f @@ -233,8 +233,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2021 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -266,10 +264,9 @@ $ LDU, NV, WV, LDWV, NH, WH, LDWH ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, diff --git a/lapack-netlib/SRC/dlaqsb.f b/lapack-netlib/SRC/dlaqsb.f index 3a6ef70aa..3ea4aa8be 100644 --- a/lapack-netlib/SRC/dlaqsb.f +++ b/lapack-netlib/SRC/dlaqsb.f @@ -133,17 +133,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/dlaqsp.f b/lapack-netlib/SRC/dlaqsp.f index 5f25d1e30..dcd122e49 100644 --- a/lapack-netlib/SRC/dlaqsp.f +++ b/lapack-netlib/SRC/dlaqsp.f @@ -118,17 +118,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/dlaqsy.f b/lapack-netlib/SRC/dlaqsy.f index a3ed11467..cc708180a 100644 --- a/lapack-netlib/SRC/dlaqsy.f +++ b/lapack-netlib/SRC/dlaqsy.f @@ -126,17 +126,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYauxiliary * * ===================================================================== SUBROUTINE DLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/dlaqtr.f b/lapack-netlib/SRC/dlaqtr.f index 71c441fa3..cc901d65f 100644 --- a/lapack-netlib/SRC/dlaqtr.f +++ b/lapack-netlib/SRC/dlaqtr.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAQTR( LTRAN, LREAL, N, T, LDT, B, W, SCALE, X, WORK, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LREAL, LTRAN diff --git a/lapack-netlib/SRC/dlaqz0.f b/lapack-netlib/SRC/dlaqz0.f new file mode 100644 index 000000000..1bf65fd60 --- /dev/null +++ b/lapack-netlib/SRC/dlaqz0.f @@ -0,0 +1,753 @@ +*> \brief \b DLAQZ0 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download DLAQZ0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* RECURSIVE SUBROUTINE DLAQZ0( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, +* $ LDA, B, LDB, ALPHAR, ALPHAI, BETA, +* $ Q, LDQ, Z, LDZ, WORK, LWORK, REC, +* $ INFO ) +* IMPLICIT NONE +* +* Arguments +* CHARACTER, INTENT( IN ) :: WANTS, WANTQ, WANTZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, +* $ REC +* +* INTEGER, INTENT( OUT ) :: INFO +* +* DOUBLE PRECISION, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), +* $ Q( LDQ, * ), Z( LDZ, * ), ALPHAR( * ), +* $ ALPHAI( * ), BETA( * ), WORK( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> DLAQZ0 computes the eigenvalues of a real matrix pair (H,T), +*> where H is an upper Hessenberg matrix and T is upper triangular, +*> using the double-shift QZ method. +*> Matrix pairs of this type are produced by the reduction to +*> generalized upper Hessenberg form of a real matrix pair (A,B): +*> +*> A = Q1*H*Z1**T, B = Q1*T*Z1**T, +*> +*> as computed by DGGHRD. +*> +*> 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. +*> +*> The 1-by-1 blocks correspond to real eigenvalues of the matrix pair +*> (H,T) and the 2-by-2 blocks correspond to complex conjugate pairs of +*> eigenvalues. +*> +*> Additionally, the 2-by-2 upper triangular diagonal blocks of P +*> corresponding to 2-by-2 blocks of S are reduced to positive diagonal +*> form, i.e., if S(j+1,j) is non-zero, then P(j+1,j) = P(j,j+1) = 0, +*> P(j,j) > 0, and P(j+1,j+1) > 0. +*> +*> Optionally, the orthogonal matrix Q from the generalized Schur +*> factorization may be postmultiplied into an input matrix Q1, and the +*> orthogonal matrix Z may be postmultiplied into an input matrix Z1. +*> If Q1 and Z1 are the orthogonal matrices from DGGHRD that reduced +*> the matrix pair (A,B) to generalized upper Hessenberg form, then the +*> output matrices Q1*Q and Z1*Z are the orthogonal factors from the +*> 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. +*> If beta is nonzero, lambda = alpha / beta is an eigenvalue of the +*> generalized nonsymmetric eigenvalue problem (GNEP) +*> A*x = lambda*B*x +*> and if alpha is nonzero, mu = beta / alpha is an eigenvalue of the +*> alternate form of the GNEP +*> mu*A*y = B*y. +*> Real eigenvalues can be read directly from the generalized Schur +*> form: +*> alpha = S(i,i), beta = P(i,i). +*> +*> Ref: C.B. Moler & G.W. Stewart, "An Algorithm for Generalized Matrix +*> Eigenvalue Problems", SIAM J. Numer. Anal., 10(1973), +*> pp. 241--256. +*> +*> Ref: B. Kagstrom, D. Kressner, "Multishift Variants of the QZ +*> Algorithm with Aggressive Early Deflation", SIAM J. Numer. +*> Anal., 29(2006), pp. 199--227. +*> +*> Ref: T. Steel, D. Camps, K. Meerbergen, R. Vandebril "A multishift, +*> multipole rational QZ method with agressive early deflation" +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] WANTS +*> \verbatim +*> WANTS is CHARACTER*1 +*> = 'E': Compute eigenvalues only; +*> = 'S': Compute eigenvalues and the Schur form. +*> \endverbatim +*> +*> \param[in] WANTQ +*> \verbatim +*> WANTQ is CHARACTER*1 +*> = 'N': Left Schur vectors (Q) are not computed; +*> = 'I': Q is initialized to the unit matrix and the matrix Q +*> of left Schur vectors of (A,B) is returned; +*> = 'V': Q must contain an orthogonal matrix Q1 on entry and +*> the product Q1*Q is returned. +*> \endverbatim +*> +*> \param[in] WANTZ +*> \verbatim +*> WANTZ is CHARACTER*1 +*> = 'N': Right Schur vectors (Z) are not computed; +*> = 'I': Z is initialized to the unit matrix and the matrix Z +*> of right Schur vectors of (A,B) is returned; +*> = 'V': Z must contain an orthogonal matrix Z1 on entry and +*> the product Z1*Z is returned. +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> ILO and IHI mark the rows and columns of A which are in +*> Hessenberg form. It is assumed that A is already upper +*> triangular in rows and columns 1:ILO-1 and IHI+1:N. +*> If N > 0, 1 <= ILO <= IHI <= N; if N = 0, ILO=1 and IHI=0. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is DOUBLE PRECISION array, dimension (LDA, N) +*> On entry, the N-by-N upper Hessenberg matrix A. +*> On exit, if JOB = 'S', A contains the upper quasi-triangular +*> matrix S from the generalized Schur factorization. +*> If JOB = 'E', the diagonal blocks of A match those of S, but +*> the rest of A is unspecified. +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is DOUBLE PRECISION array, dimension (LDB, N) +*> On entry, the N-by-N upper triangular matrix B. +*> On exit, if JOB = 'S', B contains the upper triangular +*> matrix P from the generalized Schur factorization; +*> 2-by-2 diagonal blocks of P corresponding to 2-by-2 blocks of S +*> are reduced to positive diagonal form, i.e., if A(j+1,j) is +*> non-zero, then B(j+1,j) = B(j,j+1) = 0, B(j,j) > 0, and +*> B(j+1,j+1) > 0. +*> If JOB = 'E', the diagonal blocks of B match those of P, but +*> the rest of B is unspecified. +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[out] ALPHAR +*> \verbatim +*> ALPHAR is DOUBLE PRECISION array, dimension (N) +*> The real parts of each scalar alpha defining an eigenvalue +*> of GNEP. +*> \endverbatim +*> +*> \param[out] ALPHAI +*> \verbatim +*> ALPHAI is DOUBLE PRECISION array, dimension (N) +*> The imaginary parts of each scalar alpha defining an +*> eigenvalue of GNEP. +*> If ALPHAI(j) is zero, then the j-th eigenvalue is real; if +*> positive, then the j-th and (j+1)-st eigenvalues are a +*> complex conjugate pair, with ALPHAI(j+1) = -ALPHAI(j). +*> \endverbatim +*> +*> \param[out] BETA +*> \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 +*> mu = beta/alpha. Since either lambda or mu may overflow, +*> they should not, in general, be computed. +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is DOUBLE PRECISION array, dimension (LDQ, N) +*> On entry, if COMPQ = 'V', the orthogonal matrix Q1 used in +*> the reduction of (A,B) to generalized Hessenberg form. +*> On exit, if COMPQ = 'I', the orthogonal matrix of left Schur +*> vectors of (A,B), and if COMPQ = 'V', the orthogonal matrix +*> of left Schur vectors of (A,B). +*> Not referenced if COMPQ = 'N'. +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> The leading dimension of the array Q. LDQ >= 1. +*> If COMPQ='V' or 'I', then LDQ >= N. +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is DOUBLE PRECISION array, dimension (LDZ, N) +*> On entry, if COMPZ = 'V', the orthogonal matrix Z1 used in +*> the reduction of (A,B) to generalized Hessenberg form. +*> On exit, if COMPZ = 'I', the orthogonal matrix of +*> right Schur vectors of (H,T), and if COMPZ = 'V', the +*> orthogonal matrix of right Schur vectors of (A,B). +*> Not referenced if COMPZ = 'N'. +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> The leading dimension of the array Z. LDZ >= 1. +*> If COMPZ='V' or 'I', then LDZ >= N. +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is DOUBLE PRECISION array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> 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 +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[in] REC +*> \verbatim +*> REC is INTEGER +*> REC indicates the current recursion level. Should be set +*> to 0 on first call. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> = 1,...,N: the QZ iteration did not converge. (A,B) is not +*> in Schur form, but ALPHAR(i), ALPHAI(i), and +*> BETA(i), i=INFO+1,...,N should be correct. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + RECURSIVE SUBROUTINE DLAQZ0( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, + $ LDA, B, LDB, ALPHAR, ALPHAI, BETA, + $ Q, LDQ, Z, LDZ, WORK, LWORK, REC, + $ INFO ) + IMPLICIT NONE + +* Arguments + CHARACTER, INTENT( IN ) :: WANTS, WANTQ, WANTZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, + $ REC + + INTEGER, INTENT( OUT ) :: INFO + + DOUBLE PRECISION, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), + $ Q( LDQ, * ), Z( LDZ, * ), ALPHAR( * ), + $ ALPHAI( * ), BETA( * ), WORK( * ) + +* Parameters + DOUBLE PRECISION :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0D0, ONE = 1.0D0, HALF = 0.5D0 ) + +* Local scalars + DOUBLE PRECISION :: SMLNUM, ULP, ESHIFT, SAFMIN, SAFMAX, C1, S1, + $ TEMP, SWAP + INTEGER :: ISTART, ISTOP, IITER, MAXIT, ISTART2, K, LD, NSHIFTS, + $ NBLOCK, NW, NMIN, NIBBLE, N_UNDEFLATED, N_DEFLATED, + $ NS, SWEEP_INFO, SHIFTPOS, LWORKREQ, K2, ISTARTM, + $ ISTOPM, IWANTS, IWANTQ, IWANTZ, NORM_INFO, AED_INFO, + $ NWR, NBR, NSR, ITEMP1, ITEMP2, RCOST, I + LOGICAL :: ILSCHUR, ILQ, ILZ + CHARACTER :: JBCMPZ*3 + +* External Functions + EXTERNAL :: XERBLA, DHGEQZ, DLASET, DLAQZ3, DLAQZ4, DLABAD, + $ DLARTG, DROT + DOUBLE PRECISION, EXTERNAL :: DLAMCH + LOGICAL, EXTERNAL :: LSAME + INTEGER, EXTERNAL :: ILAENV + +* +* Decode wantS,wantQ,wantZ +* + IF( LSAME( WANTS, 'E' ) ) THEN + ILSCHUR = .FALSE. + IWANTS = 1 + ELSE IF( LSAME( WANTS, 'S' ) ) THEN + ILSCHUR = .TRUE. + IWANTS = 2 + ELSE + IWANTS = 0 + END IF + + IF( LSAME( WANTQ, 'N' ) ) THEN + ILQ = .FALSE. + IWANTQ = 1 + ELSE IF( LSAME( WANTQ, 'V' ) ) THEN + ILQ = .TRUE. + IWANTQ = 2 + ELSE IF( LSAME( WANTQ, 'I' ) ) THEN + ILQ = .TRUE. + IWANTQ = 3 + ELSE + IWANTQ = 0 + END IF + + IF( LSAME( WANTZ, 'N' ) ) THEN + ILZ = .FALSE. + IWANTZ = 1 + ELSE IF( LSAME( WANTZ, 'V' ) ) THEN + ILZ = .TRUE. + IWANTZ = 2 + ELSE IF( LSAME( WANTZ, 'I' ) ) THEN + ILZ = .TRUE. + IWANTZ = 3 + ELSE + IWANTZ = 0 + END IF +* +* Check Argument Values +* + INFO = 0 + IF( IWANTS.EQ.0 ) THEN + INFO = -1 + ELSE IF( IWANTQ.EQ.0 ) THEN + INFO = -2 + ELSE IF( IWANTZ.EQ.0 ) THEN + INFO = -3 + ELSE IF( N.LT.0 ) THEN + INFO = -4 + ELSE IF( ILO.LT.1 ) THEN + INFO = -5 + ELSE IF( IHI.GT.N .OR. IHI.LT.ILO-1 ) THEN + INFO = -6 + ELSE IF( LDA.LT.N ) THEN + INFO = -8 + ELSE IF( LDB.LT.N ) THEN + INFO = -10 + ELSE IF( LDQ.LT.1 .OR. ( ILQ .AND. LDQ.LT.N ) ) THEN + INFO = -15 + ELSE IF( LDZ.LT.1 .OR. ( ILZ .AND. LDZ.LT.N ) ) THEN + INFO = -17 + END IF + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'DLAQZ0', -INFO ) + RETURN + END IF + +* +* Quick return if possible +* + IF( N.LE.0 ) THEN + WORK( 1 ) = DBLE( 1 ) + RETURN + END IF + +* +* Get the parameters +* + JBCMPZ( 1:1 ) = WANTS + JBCMPZ( 2:2 ) = WANTQ + JBCMPZ( 3:3 ) = WANTZ + + NMIN = ILAENV( 12, 'DLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + + NWR = ILAENV( 13, 'DLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + NWR = MAX( 2, NWR ) + NWR = MIN( IHI-ILO+1, ( N-1 ) / 3, NWR ) + + NIBBLE = ILAENV( 14, 'DLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + + NSR = ILAENV( 15, 'DLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + NSR = MIN( NSR, ( N+6 ) / 9, IHI-ILO ) + NSR = MAX( 2, NSR-MOD( NSR, 2 ) ) + + RCOST = ILAENV( 17, 'DLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + ITEMP1 = INT( NSR/SQRT( 1+2*NSR/( DBLE( RCOST )/100*N ) ) ) + ITEMP1 = ( ( ITEMP1-1 )/4 )*4+4 + NBR = NSR+ITEMP1 + + IF( N .LT. NMIN .OR. REC .GE. 2 ) THEN + CALL DHGEQZ( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, LDB, + $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, + $ LWORK, INFO ) + RETURN + END IF + +* +* Find out required workspace +* + +* Workspace query to dlaqz3 + NW = MAX( NWR, NMIN ) + CALL DLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, A, LDA, B, LDB, + $ Q, LDQ, Z, LDZ, N_UNDEFLATED, N_DEFLATED, ALPHAR, + $ ALPHAI, BETA, WORK, NW, WORK, NW, WORK, -1, REC, + $ AED_INFO ) + ITEMP1 = INT( WORK( 1 ) ) +* Workspace query to dlaqz4 + CALL DLAQZ4( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSR, NBR, ALPHAR, + $ ALPHAI, BETA, A, LDA, B, LDB, Q, LDQ, Z, LDZ, WORK, + $ NBR, WORK, NBR, WORK, -1, SWEEP_INFO ) + ITEMP2 = INT( WORK( 1 ) ) + + LWORKREQ = MAX( ITEMP1+2*NW**2, ITEMP2+2*NBR**2 ) + IF ( LWORK .EQ.-1 ) THEN + WORK( 1 ) = DBLE( LWORKREQ ) + RETURN + ELSE IF ( LWORK .LT. LWORKREQ ) THEN + INFO = -19 + END IF + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'DLAQZ0', INFO ) + RETURN + END IF +* +* Initialize Q and Z +* + IF( IWANTQ.EQ.3 ) CALL DLASET( 'FULL', N, N, ZERO, ONE, Q, LDQ ) + IF( IWANTZ.EQ.3 ) CALL DLASET( 'FULL', N, N, ZERO, ONE, Z, LDZ ) + +* Get machine constants + SAFMIN = DLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL DLABAD( SAFMIN, SAFMAX ) + ULP = DLAMCH( 'PRECISION' ) + SMLNUM = SAFMIN*( DBLE( N )/ULP ) + + ISTART = ILO + ISTOP = IHI + MAXIT = 3*( IHI-ILO+1 ) + LD = 0 + + DO IITER = 1, MAXIT + IF( IITER .GE. MAXIT ) THEN + INFO = ISTOP+1 + GOTO 80 + END IF + IF ( ISTART+1 .GE. ISTOP ) THEN + ISTOP = ISTART + EXIT + END IF + +* Check deflations at the end + IF ( ABS( A( ISTOP-1, ISTOP-2 ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTOP-1, ISTOP-1 ) )+ABS( A( ISTOP-2, + $ ISTOP-2 ) ) ) ) ) THEN + A( ISTOP-1, ISTOP-2 ) = ZERO + ISTOP = ISTOP-2 + LD = 0 + ESHIFT = ZERO + ELSE IF ( ABS( A( ISTOP, ISTOP-1 ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTOP, ISTOP ) )+ABS( A( ISTOP-1, + $ ISTOP-1 ) ) ) ) ) THEN + A( ISTOP, ISTOP-1 ) = ZERO + ISTOP = ISTOP-1 + LD = 0 + ESHIFT = ZERO + END IF +* Check deflations at the start + IF ( ABS( A( ISTART+2, ISTART+1 ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTART+1, ISTART+1 ) )+ABS( A( ISTART+2, + $ ISTART+2 ) ) ) ) ) THEN + A( ISTART+2, ISTART+1 ) = ZERO + ISTART = ISTART+2 + LD = 0 + ESHIFT = ZERO + ELSE IF ( ABS( A( ISTART+1, ISTART ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTART, ISTART ) )+ABS( A( ISTART+1, + $ ISTART+1 ) ) ) ) ) THEN + A( ISTART+1, ISTART ) = ZERO + ISTART = ISTART+1 + LD = 0 + ESHIFT = ZERO + END IF + + IF ( ISTART+1 .GE. ISTOP ) THEN + EXIT + END IF + +* Check interior deflations + ISTART2 = ISTART + DO K = ISTOP, ISTART+1, -1 + IF ( ABS( A( K, K-1 ) ) .LE. MAX( SMLNUM, ULP*( ABS( A( K, + $ K ) )+ABS( A( K-1, K-1 ) ) ) ) ) THEN + A( K, K-1 ) = ZERO + ISTART2 = K + EXIT + END IF + END DO + +* Get range to apply rotations to + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ISTART2 + ISTOPM = ISTOP + END IF + +* Check infinite eigenvalues, this is done without blocking so might +* slow down the method when many infinite eigenvalues are present + K = ISTOP + DO WHILE ( K.GE.ISTART2 ) + TEMP = ZERO + IF( K .LT. ISTOP ) THEN + TEMP = TEMP+ABS( B( K, K+1 ) ) + END IF + IF( K .GT. ISTART2 ) THEN + TEMP = TEMP+ABS( B( K-1, K ) ) + END IF + + IF( ABS( B( K, K ) ) .LT. MAX( SMLNUM, ULP*TEMP ) ) THEN +* A diagonal element of B is negligable, move it +* to the top and deflate it + + DO K2 = K, ISTART2+1, -1 + CALL DLARTG( B( K2-1, K2 ), B( K2-1, K2-1 ), C1, S1, + $ TEMP ) + B( K2-1, K2 ) = TEMP + B( K2-1, K2-1 ) = ZERO + + CALL DROT( K2-2-ISTARTM+1, B( ISTARTM, K2 ), 1, + $ B( ISTARTM, K2-1 ), 1, C1, S1 ) + CALL DROT( MIN( K2+1, ISTOP )-ISTARTM+1, A( ISTARTM, + $ K2 ), 1, A( ISTARTM, K2-1 ), 1, C1, S1 ) + IF ( ILZ ) THEN + CALL DROT( N, Z( 1, K2 ), 1, Z( 1, K2-1 ), 1, C1, + $ S1 ) + END IF + + IF( K2.LT.ISTOP ) THEN + CALL DLARTG( A( K2, K2-1 ), A( K2+1, K2-1 ), C1, + $ S1, TEMP ) + A( K2, K2-1 ) = TEMP + A( K2+1, K2-1 ) = ZERO + + CALL DROT( ISTOPM-K2+1, A( K2, K2 ), LDA, A( K2+1, + $ K2 ), LDA, C1, S1 ) + CALL DROT( ISTOPM-K2+1, B( K2, K2 ), LDB, B( K2+1, + $ K2 ), LDB, C1, S1 ) + IF( ILQ ) THEN + CALL DROT( N, Q( 1, K2 ), 1, Q( 1, K2+1 ), 1, + $ C1, S1 ) + END IF + END IF + + END DO + + IF( ISTART2.LT.ISTOP )THEN + CALL DLARTG( A( ISTART2, ISTART2 ), A( ISTART2+1, + $ ISTART2 ), C1, S1, TEMP ) + A( ISTART2, ISTART2 ) = TEMP + A( ISTART2+1, ISTART2 ) = ZERO + + CALL DROT( ISTOPM-( ISTART2+1 )+1, A( ISTART2, + $ ISTART2+1 ), LDA, A( ISTART2+1, + $ ISTART2+1 ), LDA, C1, S1 ) + CALL DROT( ISTOPM-( ISTART2+1 )+1, B( ISTART2, + $ ISTART2+1 ), LDB, B( ISTART2+1, + $ ISTART2+1 ), LDB, C1, S1 ) + IF( ILQ ) THEN + CALL DROT( N, Q( 1, ISTART2 ), 1, Q( 1, + $ ISTART2+1 ), 1, C1, S1 ) + END IF + END IF + + ISTART2 = ISTART2+1 + + END IF + K = K-1 + END DO + +* istart2 now points to the top of the bottom right +* unreduced Hessenberg block + IF ( ISTART2 .GE. ISTOP ) THEN + ISTOP = ISTART2-1 + LD = 0 + ESHIFT = ZERO + CYCLE + END IF + + NW = NWR + NSHIFTS = NSR + NBLOCK = NBR + + IF ( ISTOP-ISTART2+1 .LT. NMIN ) THEN +* Setting nw to the size of the subblock will make AED deflate +* all the eigenvalues. This is slightly more efficient than just +* using DHGEQZ because the off diagonal part gets updated via BLAS. + IF ( ISTOP-ISTART+1 .LT. NMIN ) THEN + NW = ISTOP-ISTART+1 + ISTART2 = ISTART + ELSE + NW = ISTOP-ISTART2+1 + END IF + END IF + +* +* Time for AED +* + CALL DLAQZ3( ILSCHUR, ILQ, ILZ, N, ISTART2, ISTOP, NW, A, LDA, + $ B, LDB, Q, LDQ, Z, LDZ, N_UNDEFLATED, N_DEFLATED, + $ ALPHAR, ALPHAI, BETA, WORK, NW, WORK( NW**2+1 ), + $ NW, WORK( 2*NW**2+1 ), LWORK-2*NW**2, REC, + $ AED_INFO ) + + IF ( N_DEFLATED > 0 ) THEN + ISTOP = ISTOP-N_DEFLATED + LD = 0 + ESHIFT = ZERO + END IF + + IF ( 100*N_DEFLATED > NIBBLE*( N_DEFLATED+N_UNDEFLATED ) .OR. + $ ISTOP-ISTART2+1 .LT. NMIN ) THEN +* AED has uncovered many eigenvalues. Skip a QZ sweep and run +* AED again. + CYCLE + END IF + + LD = LD+1 + + NS = MIN( NSHIFTS, ISTOP-ISTART2 ) + NS = MIN( NS, N_UNDEFLATED ) + SHIFTPOS = ISTOP-N_DEFLATED-N_UNDEFLATED+1 +* +* Shuffle shifts to put double shifts in front +* This ensures that we don't split up a double shift +* + DO I = SHIFTPOS, SHIFTPOS+N_UNDEFLATED-1, 2 + IF( ALPHAI( I ).NE.-ALPHAI( I+1 ) ) THEN +* + SWAP = ALPHAR( I ) + ALPHAR( I ) = ALPHAR( I+1 ) + ALPHAR( I+1 ) = ALPHAR( I+2 ) + ALPHAR( I+2 ) = SWAP + + SWAP = ALPHAI( I ) + ALPHAI( I ) = ALPHAI( I+1 ) + ALPHAI( I+1 ) = ALPHAI( I+2 ) + ALPHAI( I+2 ) = SWAP + + SWAP = BETA( I ) + BETA( I ) = BETA( I+1 ) + BETA( I+1 ) = BETA( I+2 ) + BETA( I+2 ) = SWAP + END IF + END DO + + IF ( MOD( LD, 6 ) .EQ. 0 ) THEN +* +* Exceptional shift. Chosen for no particularly good reason. +* + IF( ( DBLE( MAXIT )*SAFMIN )*ABS( A( ISTOP, + $ ISTOP-1 ) ).LT.ABS( A( ISTOP-1, ISTOP-1 ) ) ) THEN + ESHIFT = A( ISTOP, ISTOP-1 )/B( ISTOP-1, ISTOP-1 ) + ELSE + ESHIFT = ESHIFT+ONE/( SAFMIN*DBLE( MAXIT ) ) + END IF + ALPHAR( SHIFTPOS ) = ONE + ALPHAR( SHIFTPOS+1 ) = ZERO + ALPHAI( SHIFTPOS ) = ZERO + ALPHAI( SHIFTPOS+1 ) = ZERO + BETA( SHIFTPOS ) = ESHIFT + BETA( SHIFTPOS+1 ) = ESHIFT + NS = 2 + END IF + +* +* Time for a QZ sweep +* + CALL DLAQZ4( ILSCHUR, ILQ, ILZ, N, ISTART2, ISTOP, NS, NBLOCK, + $ ALPHAR( SHIFTPOS ), ALPHAI( SHIFTPOS ), + $ BETA( SHIFTPOS ), A, LDA, B, LDB, Q, LDQ, Z, LDZ, + $ WORK, NBLOCK, WORK( NBLOCK**2+1 ), NBLOCK, + $ WORK( 2*NBLOCK**2+1 ), LWORK-2*NBLOCK**2, + $ SWEEP_INFO ) + + END DO + +* +* Call DHGEQZ to normalize the eigenvalue blocks and set the eigenvalues +* If all the eigenvalues have been found, DHGEQZ will not do any iterations +* and only normalize the blocks. In case of a rare convergence failure, +* the single shift might perform better. +* + 80 CALL DHGEQZ( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, LDB, + $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, + $ NORM_INFO ) + + INFO = NORM_INFO + + END SUBROUTINE diff --git a/lapack-netlib/SRC/dlaqz1.f b/lapack-netlib/SRC/dlaqz1.f new file mode 100644 index 000000000..b7a53ea37 --- /dev/null +++ b/lapack-netlib/SRC/dlaqz1.f @@ -0,0 +1,194 @@ +*> \brief \b DLAQZ1 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download DLAQZ1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE DLAQZ1( A, LDA, B, LDB, SR1, SR2, SI, BETA1, BETA2, +* $ V ) +* IMPLICIT NONE +* +* Arguments +* INTEGER, INTENT( IN ) :: LDA, LDB +* DOUBLE PRECISION, INTENT( IN ) :: A( LDA, * ), B( LDB, * ), SR1, +* $ SR2, SI, BETA1, BETA2 +* DOUBLE PRECISION, INTENT( OUT ) :: V( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> Given a 3-by-3 matrix pencil (A,B), DLAQZ1 sets v to a +*> scalar multiple of the first column of the product +*> +*> (*) K = (A - (beta2*sr2 - i*si)*B)*B^(-1)*(beta1*A - (sr2 + i*si2)*B)*B^(-1). +*> +*> It is assumed that either +*> +*> 1) sr1 = sr2 +*> or +*> 2) si = 0. +*> +*> This is useful for starting double implicit shift bulges +*> in the QZ algorithm. +*> \endverbatim +* +* +* Arguments: +* ========== +* +*> \param[in] A +*> \verbatim +*> A is DOUBLE PRECISION array, dimension (LDA,N) +*> The 3-by-3 matrix A in (*). +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of A as declared in +*> the calling procedure. +*> \endverbatim +* +*> \param[in] B +*> \verbatim +*> B is DOUBLE PRECISION array, dimension (LDB,N) +*> The 3-by-3 matrix B in (*). +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of B as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] SR1 +*> \verbatim +*> SR1 is DOUBLE PRECISION +*> \endverbatim +*> +*> \param[in] SR2 +*> \verbatim +*> SR2 is DOUBLE PRECISION +*> \endverbatim +*> +*> \param[in] SI +*> \verbatim +*> SI is DOUBLE PRECISION +*> \endverbatim +*> +*> \param[in] BETA1 +*> \verbatim +*> BETA1 is DOUBLE PRECISION +*> \endverbatim +*> +*> \param[in] BETA2 +*> \verbatim +*> BETA2 is DOUBLE PRECISION +*> \endverbatim +*> +*> \param[out] V +*> \verbatim +*> V is DOUBLE PRECISION array, dimension (N) +*> A scalar multiple of the first column of the +*> matrix K in (*). +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + SUBROUTINE DLAQZ1( A, LDA, B, LDB, SR1, SR2, SI, BETA1, BETA2, + $ V ) + IMPLICIT NONE +* +* Arguments + INTEGER, INTENT( IN ) :: LDA, LDB + DOUBLE PRECISION, INTENT( IN ) :: A( LDA, * ), B( LDB, * ), SR1, + $ SR2, SI, BETA1, BETA2 + DOUBLE PRECISION, INTENT( OUT ) :: V( * ) +* +* Parameters + DOUBLE PRECISION :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0D0, ONE = 1.0D0, HALF = 0.5D0 ) +* +* Local scalars + DOUBLE PRECISION :: W( 2 ), SAFMIN, SAFMAX, SCALE1, SCALE2 +* +* External Functions + DOUBLE PRECISION, EXTERNAL :: DLAMCH + LOGICAL, EXTERNAL :: DISNAN +* + SAFMIN = DLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN +* +* Calculate first shifted vector +* + W( 1 ) = BETA1*A( 1, 1 )-SR1*B( 1, 1 ) + W( 2 ) = BETA1*A( 2, 1 )-SR1*B( 2, 1 ) + SCALE1 = SQRT( ABS( W( 1 ) ) ) * SQRT( ABS( W( 2 ) ) ) + IF( SCALE1 .GE. SAFMIN .AND. SCALE1 .LE. SAFMAX ) THEN + W( 1 ) = W( 1 )/SCALE1 + W( 2 ) = W( 2 )/SCALE1 + END IF +* +* Solve linear system +* + W( 2 ) = W( 2 )/B( 2, 2 ) + W( 1 ) = ( W( 1 )-B( 1, 2 )*W( 2 ) )/B( 1, 1 ) + SCALE2 = SQRT( ABS( W( 1 ) ) ) * SQRT( ABS( W( 2 ) ) ) + IF( SCALE2 .GE. SAFMIN .AND. SCALE2 .LE. SAFMAX ) THEN + W( 1 ) = W( 1 )/SCALE2 + W( 2 ) = W( 2 )/SCALE2 + END IF +* +* Apply second shift +* + V( 1 ) = BETA2*( A( 1, 1 )*W( 1 )+A( 1, 2 )*W( 2 ) )-SR2*( B( 1, + $ 1 )*W( 1 )+B( 1, 2 )*W( 2 ) ) + V( 2 ) = BETA2*( A( 2, 1 )*W( 1 )+A( 2, 2 )*W( 2 ) )-SR2*( B( 2, + $ 1 )*W( 1 )+B( 2, 2 )*W( 2 ) ) + V( 3 ) = BETA2*( A( 3, 1 )*W( 1 )+A( 3, 2 )*W( 2 ) )-SR2*( B( 3, + $ 1 )*W( 1 )+B( 3, 2 )*W( 2 ) ) +* +* Account for imaginary part +* + V( 1 ) = V( 1 )+SI*SI*B( 1, 1 )/SCALE1/SCALE2 +* +* Check for overflow +* + IF( ABS( V( 1 ) ).GT.SAFMAX .OR. ABS( V( 2 ) ) .GT. SAFMAX .OR. + $ ABS( V( 3 ) ).GT.SAFMAX .OR. DISNAN( V( 1 ) ) .OR. + $ DISNAN( V( 2 ) ) .OR. DISNAN( V( 3 ) ) ) THEN + V( 1 ) = ZERO + V( 2 ) = ZERO + V( 3 ) = ZERO + END IF +* +* End of DLAQZ1 +* + END SUBROUTINE diff --git a/lapack-netlib/SRC/dlaqz2.f b/lapack-netlib/SRC/dlaqz2.f new file mode 100644 index 000000000..806e0c253 --- /dev/null +++ b/lapack-netlib/SRC/dlaqz2.f @@ -0,0 +1,317 @@ +*> \brief \b DLAQZ2 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download DLAQZ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE DLAQZ2( ILQ, ILZ, K, ISTARTM, ISTOPM, IHI, A, LDA, B, +* $ LDB, NQ, QSTART, Q, LDQ, NZ, ZSTART, Z, LDZ ) +* IMPLICIT NONE +* +* Arguments +* LOGICAL, INTENT( IN ) :: ILQ, ILZ +* INTEGER, INTENT( IN ) :: K, LDA, LDB, LDQ, LDZ, ISTARTM, ISTOPM, +* $ NQ, NZ, QSTART, ZSTART, IHI +* DOUBLE PRECISION :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), Z( LDZ, +* $ * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> DLAQZ2 chases a 2x2 shift bulge in a matrix pencil down a single position +*> \endverbatim +* +* +* Arguments: +* ========== +* +*> +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] K +*> \verbatim +*> K is INTEGER +*> Index indicating the position of the bulge. +*> On entry, the bulge is located in +*> (A(k+1:k+2,k:k+1),B(k+1:k+2,k:k+1)). +*> On exit, the bulge is located in +*> (A(k+2:k+3,k+1:k+2),B(k+2:k+3,k+1:k+2)). +*> \endverbatim +*> +*> \param[in] ISTARTM +*> \verbatim +*> ISTARTM is INTEGER +*> \endverbatim +*> +*> \param[in] ISTOPM +*> \verbatim +*> ISTOPM is INTEGER +*> Updates to (A,B) are restricted to +*> (istartm:k+3,k:istopm). It is assumed +*> without checking that istartm <= k+1 and +*> k+2 <= istopm +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> \endverbatim +*> +*> \param[inout] A +*> \verbatim +*> A is DOUBLE PRECISION array, dimension (LDA,N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of A as declared in +*> the calling procedure. +*> \endverbatim +* +*> \param[inout] B +*> \verbatim +*> B is DOUBLE PRECISION array, dimension (LDB,N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of B as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] NQ +*> \verbatim +*> NQ is INTEGER +*> The order of the matrix Q +*> \endverbatim +*> +*> \param[in] QSTART +*> \verbatim +*> QSTART is INTEGER +*> Start index of the matrix Q. Rotations are applied +*> To columns k+2-qStart:k+4-qStart of Q. +*> \endverbatim +* +*> \param[inout] Q +*> \verbatim +*> Q is DOUBLE PRECISION array, dimension (LDQ,NQ) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> The leading dimension of Q as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] NZ +*> \verbatim +*> NZ is INTEGER +*> The order of the matrix Z +*> \endverbatim +*> +*> \param[in] ZSTART +*> \verbatim +*> ZSTART is INTEGER +*> Start index of the matrix Z. Rotations are applied +*> To columns k+1-qStart:k+3-qStart of Z. +*> \endverbatim +* +*> \param[inout] Z +*> \verbatim +*> Z is DOUBLE PRECISION array, dimension (LDZ,NZ) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> The leading dimension of Q as declared in +*> the calling procedure. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + SUBROUTINE DLAQZ2( ILQ, ILZ, K, ISTARTM, ISTOPM, IHI, A, LDA, B, + $ LDB, NQ, QSTART, Q, LDQ, NZ, ZSTART, Z, LDZ ) + IMPLICIT NONE +* +* Arguments + LOGICAL, INTENT( IN ) :: ILQ, ILZ + INTEGER, INTENT( IN ) :: K, LDA, LDB, LDQ, LDZ, ISTARTM, ISTOPM, + $ NQ, NZ, QSTART, ZSTART, IHI + DOUBLE PRECISION :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), Z( LDZ, + $ * ) +* +* Parameters + DOUBLE PRECISION :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0D0, ONE = 1.0D0, HALF = 0.5D0 ) +* +* Local variables + DOUBLE PRECISION :: H( 2, 3 ), C1, S1, C2, S2, TEMP +* +* External functions + EXTERNAL :: DLARTG, DROT +* + IF( K+2 .EQ. IHI ) THEN +* Shift is located on the edge of the matrix, remove it + H = B( IHI-1:IHI, IHI-2:IHI ) +* Make H upper triangular + CALL DLARTG( H( 1, 1 ), H( 2, 1 ), C1, S1, TEMP ) + H( 2, 1 ) = ZERO + H( 1, 1 ) = TEMP + CALL DROT( 2, H( 1, 2 ), 2, H( 2, 2 ), 2, C1, S1 ) +* + CALL DLARTG( H( 2, 3 ), H( 2, 2 ), C1, S1, TEMP ) + CALL DROT( 1, H( 1, 3 ), 1, H( 1, 2 ), 1, C1, S1 ) + CALL DLARTG( H( 1, 2 ), H( 1, 1 ), C2, S2, TEMP ) +* + CALL DROT( IHI-ISTARTM+1, B( ISTARTM, IHI ), 1, B( ISTARTM, + $ IHI-1 ), 1, C1, S1 ) + CALL DROT( IHI-ISTARTM+1, B( ISTARTM, IHI-1 ), 1, B( ISTARTM, + $ IHI-2 ), 1, C2, S2 ) + B( IHI-1, IHI-2 ) = ZERO + B( IHI, IHI-2 ) = ZERO + CALL DROT( IHI-ISTARTM+1, A( ISTARTM, IHI ), 1, A( ISTARTM, + $ IHI-1 ), 1, C1, S1 ) + CALL DROT( IHI-ISTARTM+1, A( ISTARTM, IHI-1 ), 1, A( ISTARTM, + $ IHI-2 ), 1, C2, S2 ) + IF ( ILZ ) THEN + CALL DROT( NZ, Z( 1, IHI-ZSTART+1 ), 1, Z( 1, IHI-1-ZSTART+ + $ 1 ), 1, C1, S1 ) + CALL DROT( NZ, Z( 1, IHI-1-ZSTART+1 ), 1, Z( 1, + $ IHI-2-ZSTART+1 ), 1, C2, S2 ) + END IF +* + CALL DLARTG( A( IHI-1, IHI-2 ), A( IHI, IHI-2 ), C1, S1, + $ TEMP ) + A( IHI-1, IHI-2 ) = TEMP + A( IHI, IHI-2 ) = ZERO + CALL DROT( ISTOPM-IHI+2, A( IHI-1, IHI-1 ), LDA, A( IHI, + $ IHI-1 ), LDA, C1, S1 ) + CALL DROT( ISTOPM-IHI+2, B( IHI-1, IHI-1 ), LDB, B( IHI, + $ IHI-1 ), LDB, C1, S1 ) + IF ( ILQ ) THEN + CALL DROT( NQ, Q( 1, IHI-1-QSTART+1 ), 1, Q( 1, IHI-QSTART+ + $ 1 ), 1, C1, S1 ) + END IF +* + CALL DLARTG( B( IHI, IHI ), B( IHI, IHI-1 ), C1, S1, TEMP ) + B( IHI, IHI ) = TEMP + B( IHI, IHI-1 ) = ZERO + CALL DROT( IHI-ISTARTM, B( ISTARTM, IHI ), 1, B( ISTARTM, + $ IHI-1 ), 1, C1, S1 ) + CALL DROT( IHI-ISTARTM+1, A( ISTARTM, IHI ), 1, A( ISTARTM, + $ IHI-1 ), 1, C1, S1 ) + IF ( ILZ ) THEN + CALL DROT( NZ, Z( 1, IHI-ZSTART+1 ), 1, Z( 1, IHI-1-ZSTART+ + $ 1 ), 1, C1, S1 ) + END IF +* + ELSE +* +* Normal operation, move bulge down +* + H = B( K+1:K+2, K:K+2 ) +* +* Make H upper triangular +* + CALL DLARTG( H( 1, 1 ), H( 2, 1 ), C1, S1, TEMP ) + H( 2, 1 ) = ZERO + H( 1, 1 ) = TEMP + CALL DROT( 2, H( 1, 2 ), 2, H( 2, 2 ), 2, C1, S1 ) +* +* Calculate Z1 and Z2 +* + CALL DLARTG( H( 2, 3 ), H( 2, 2 ), C1, S1, TEMP ) + CALL DROT( 1, H( 1, 3 ), 1, H( 1, 2 ), 1, C1, S1 ) + CALL DLARTG( H( 1, 2 ), H( 1, 1 ), C2, S2, TEMP ) +* +* Apply transformations from the right +* + CALL DROT( K+3-ISTARTM+1, A( ISTARTM, K+2 ), 1, A( ISTARTM, + $ K+1 ), 1, C1, S1 ) + CALL DROT( K+3-ISTARTM+1, A( ISTARTM, K+1 ), 1, A( ISTARTM, + $ K ), 1, C2, S2 ) + CALL DROT( K+2-ISTARTM+1, B( ISTARTM, K+2 ), 1, B( ISTARTM, + $ K+1 ), 1, C1, S1 ) + CALL DROT( K+2-ISTARTM+1, B( ISTARTM, K+1 ), 1, B( ISTARTM, + $ K ), 1, C2, S2 ) + IF ( ILZ ) THEN + CALL DROT( NZ, Z( 1, K+2-ZSTART+1 ), 1, Z( 1, K+1-ZSTART+ + $ 1 ), 1, C1, S1 ) + CALL DROT( NZ, Z( 1, K+1-ZSTART+1 ), 1, Z( 1, K-ZSTART+1 ), + $ 1, C2, S2 ) + END IF + B( K+1, K ) = ZERO + B( K+2, K ) = ZERO +* +* Calculate Q1 and Q2 +* + CALL DLARTG( A( K+2, K ), A( K+3, K ), C1, S1, TEMP ) + A( K+2, K ) = TEMP + A( K+3, K ) = ZERO + CALL DLARTG( A( K+1, K ), A( K+2, K ), C2, S2, TEMP ) + A( K+1, K ) = TEMP + A( K+2, K ) = ZERO +* +* Apply transformations from the left +* + CALL DROT( ISTOPM-K, A( K+2, K+1 ), LDA, A( K+3, K+1 ), LDA, + $ C1, S1 ) + CALL DROT( ISTOPM-K, A( K+1, K+1 ), LDA, A( K+2, K+1 ), LDA, + $ C2, S2 ) +* + CALL DROT( ISTOPM-K, B( K+2, K+1 ), LDB, B( K+3, K+1 ), LDB, + $ C1, S1 ) + CALL DROT( ISTOPM-K, B( K+1, K+1 ), LDB, B( K+2, K+1 ), LDB, + $ C2, S2 ) + IF ( ILQ ) THEN + CALL DROT( NQ, Q( 1, K+2-QSTART+1 ), 1, Q( 1, K+3-QSTART+ + $ 1 ), 1, C1, S1 ) + CALL DROT( NQ, Q( 1, K+1-QSTART+1 ), 1, Q( 1, K+2-QSTART+ + $ 1 ), 1, C2, S2 ) + END IF +* + END IF +* +* End of DLAQZ2 +* + END SUBROUTINE \ No newline at end of file diff --git a/lapack-netlib/SRC/dlaqz3.f b/lapack-netlib/SRC/dlaqz3.f new file mode 100644 index 000000000..e85bf0bb7 --- /dev/null +++ b/lapack-netlib/SRC/dlaqz3.f @@ -0,0 +1,565 @@ +*> \brief \b DLAQZ3 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download DLAQZ3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE DLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, A, LDA, B, +* $ LDB, Q, LDQ, Z, LDZ, NS, ND, ALPHAR, ALPHAI, BETA, QC, LDQC, +* $ ZC, LDZC, WORK, LWORK, REC, INFO ) +* IMPLICIT NONE +* +* Arguments +* LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, NW, LDA, LDB, LDQ, LDZ, +* $ LDQC, LDZC, LWORK, REC +* +* DOUBLE PRECISION, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), +* $ Q( LDQ, * ), Z( LDZ, * ), ALPHAR( * ), ALPHAI( * ), BETA( * ) +* INTEGER, INTENT( OUT ) :: NS, ND, INFO +* DOUBLE PRECISION :: QC( LDQC, * ), ZC( LDZC, * ), WORK( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> DLAQZ3 performs AED +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] ILSCHUR +*> \verbatim +*> ILSCHUR is LOGICAL +*> Determines whether or not to update the full Schur form +*> \endverbatim +*> +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> ILO and IHI mark the rows and columns of (A,B) which +*> are to be normalized +*> \endverbatim +*> +*> \param[in] NW +*> \verbatim +*> NW is INTEGER +*> The desired size of the deflation window. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is DOUBLE PRECISION array, dimension (LDA, N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is DOUBLE PRECISION array, dimension (LDB, N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is DOUBLE PRECISION array, dimension (LDQ, N) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is DOUBLE PRECISION array, dimension (LDZ, N) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] NS +*> \verbatim +*> NS is INTEGER +*> The number of unconverged eigenvalues available to +*> use as shifts. +*> \endverbatim +*> +*> \param[out] ND +*> \verbatim +*> ND is INTEGER +*> The number of converged eigenvalues found. +*> \endverbatim +*> +*> \param[out] ALPHAR +*> \verbatim +*> ALPHAR is DOUBLE PRECISION array, dimension (N) +*> The real parts of each scalar alpha defining an eigenvalue +*> of GNEP. +*> \endverbatim +*> +*> \param[out] ALPHAI +*> \verbatim +*> ALPHAI is DOUBLE PRECISION array, dimension (N) +*> The imaginary parts of each scalar alpha defining an +*> eigenvalue of GNEP. +*> If ALPHAI(j) is zero, then the j-th eigenvalue is real; if +*> positive, then the j-th and (j+1)-st eigenvalues are a +*> complex conjugate pair, with ALPHAI(j+1) = -ALPHAI(j). +*> \endverbatim +*> +*> \param[out] BETA +*> \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 +*> mu = beta/alpha. Since either lambda or mu may overflow, +*> they should not, in general, be computed. +*> \endverbatim +*> +*> \param[in,out] QC +*> \verbatim +*> QC is DOUBLE PRECISION array, dimension (LDQC, NW) +*> \endverbatim +*> +*> \param[in] LDQC +*> \verbatim +*> LDQC is INTEGER +*> \endverbatim +*> +*> \param[in,out] ZC +*> \verbatim +*> ZC is DOUBLE PRECISION array, dimension (LDZC, NW) +*> \endverbatim +*> +*> \param[in] LDZC +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is DOUBLE PRECISION array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> 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 +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[in] REC +*> \verbatim +*> REC is INTEGER +*> REC indicates the current recursion level. Should be set +*> to 0 on first call. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + RECURSIVE SUBROUTINE DLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, + $ A, LDA, B, LDB, Q, LDQ, Z, LDZ, NS, + $ ND, ALPHAR, ALPHAI, BETA, QC, LDQC, + $ ZC, LDZC, WORK, LWORK, REC, INFO ) + IMPLICIT NONE + +* Arguments + LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, NW, LDA, LDB, LDQ, LDZ, + $ LDQC, LDZC, LWORK, REC + + DOUBLE PRECISION, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), + $ Q( LDQ, * ), Z( LDZ, * ), ALPHAR( * ), + $ ALPHAI( * ), BETA( * ) + INTEGER, INTENT( OUT ) :: NS, ND, INFO + DOUBLE PRECISION :: QC( LDQC, * ), ZC( LDZC, * ), WORK( * ) + +* Parameters + DOUBLE PRECISION :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0D0, ONE = 1.0D0, HALF = 0.5D0 ) + +* Local Scalars + LOGICAL :: BULGE + INTEGER :: JW, KWTOP, KWBOT, ISTOPM, ISTARTM, K, K2, DTGEXC_INFO, + $ IFST, ILST, LWORKREQ, QZ_SMALL_INFO + DOUBLE PRECISION :: S, SMLNUM, ULP, SAFMIN, SAFMAX, C1, S1, TEMP + +* External Functions + EXTERNAL :: XERBLA, DTGEXC, DLABAD, DLAQZ0, DLACPY, DLASET, + $ DLAQZ2, DROT, DLARTG, DLAG2, DGEMM + DOUBLE PRECISION, EXTERNAL :: DLAMCH + + INFO = 0 + +* Set up deflation window + JW = MIN( NW, IHI-ILO+1 ) + KWTOP = IHI-JW+1 + IF ( KWTOP .EQ. ILO ) THEN + S = ZERO + ELSE + S = A( KWTOP, KWTOP-1 ) + END IF + +* Determine required workspace + IFST = 1 + ILST = JW + CALL DTGEXC( .TRUE., .TRUE., JW, A, LDA, B, LDB, QC, LDQC, ZC, + $ LDZC, IFST, ILST, WORK, -1, DTGEXC_INFO ) + LWORKREQ = INT( WORK( 1 ) ) + CALL DLAQZ0( 'S', 'V', 'V', JW, 1, JW, A( KWTOP, KWTOP ), LDA, + $ B( KWTOP, KWTOP ), LDB, ALPHAR, ALPHAI, BETA, QC, + $ LDQC, ZC, LDZC, WORK, -1, REC+1, QZ_SMALL_INFO ) + LWORKREQ = MAX( LWORKREQ, INT( WORK( 1 ) )+2*JW**2 ) + LWORKREQ = MAX( LWORKREQ, N*NW, 2*NW**2+N ) + IF ( LWORK .EQ.-1 ) THEN +* workspace query, quick return + WORK( 1 ) = LWORKREQ + RETURN + ELSE IF ( LWORK .LT. LWORKREQ ) THEN + INFO = -26 + END IF + + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'DLAQZ3', -INFO ) + RETURN + END IF + +* Get machine constants + SAFMIN = DLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL DLABAD( SAFMIN, SAFMAX ) + ULP = DLAMCH( 'PRECISION' ) + SMLNUM = SAFMIN*( DBLE( N )/ULP ) + + IF ( IHI .EQ. KWTOP ) THEN +* 1 by 1 deflation window, just try a regular deflation + ALPHAR( KWTOP ) = A( KWTOP, KWTOP ) + ALPHAI( KWTOP ) = ZERO + BETA( KWTOP ) = B( KWTOP, KWTOP ) + NS = 1 + ND = 0 + IF ( ABS( S ) .LE. MAX( SMLNUM, ULP*ABS( A( KWTOP, + $ KWTOP ) ) ) ) THEN + NS = 0 + ND = 1 + IF ( KWTOP .GT. ILO ) THEN + A( KWTOP, KWTOP-1 ) = ZERO + END IF + END IF + END IF + + +* Store window in case of convergence failure + CALL DLACPY( 'ALL', JW, JW, A( KWTOP, KWTOP ), LDA, WORK, JW ) + CALL DLACPY( 'ALL', JW, JW, B( KWTOP, KWTOP ), LDB, WORK( JW**2+ + $ 1 ), JW ) + +* Transform window to real schur form + CALL DLASET( 'FULL', JW, JW, ZERO, ONE, QC, LDQC ) + CALL DLASET( 'FULL', JW, JW, ZERO, ONE, ZC, LDZC ) + CALL DLAQZ0( 'S', 'V', 'V', JW, 1, JW, A( KWTOP, KWTOP ), LDA, + $ B( KWTOP, KWTOP ), LDB, ALPHAR, ALPHAI, BETA, QC, + $ LDQC, ZC, LDZC, WORK( 2*JW**2+1 ), LWORK-2*JW**2, + $ REC+1, QZ_SMALL_INFO ) + + IF( QZ_SMALL_INFO .NE. 0 ) THEN +* Convergence failure, restore the window and exit + ND = 0 + NS = JW-QZ_SMALL_INFO + CALL DLACPY( 'ALL', JW, JW, WORK, JW, A( KWTOP, KWTOP ), LDA ) + CALL DLACPY( 'ALL', JW, JW, WORK( JW**2+1 ), JW, B( KWTOP, + $ KWTOP ), LDB ) + RETURN + END IF + +* Deflation detection loop + IF ( KWTOP .EQ. ILO .OR. S .EQ. ZERO ) THEN + KWBOT = KWTOP-1 + ELSE + KWBOT = IHI + K = 1 + K2 = 1 + DO WHILE ( K .LE. JW ) + BULGE = .FALSE. + IF ( KWBOT-KWTOP+1 .GE. 2 ) THEN + BULGE = A( KWBOT, KWBOT-1 ) .NE. ZERO + END IF + IF ( BULGE ) THEN + +* Try to deflate complex conjugate eigenvalue pair + TEMP = ABS( A( KWBOT, KWBOT ) )+SQRT( ABS( A( KWBOT, + $ KWBOT-1 ) ) )*SQRT( ABS( A( KWBOT-1, KWBOT ) ) ) + IF( TEMP .EQ. ZERO )THEN + TEMP = ABS( S ) + END IF + IF ( MAX( ABS( S*QC( 1, KWBOT-KWTOP ) ), ABS( S*QC( 1, + $ KWBOT-KWTOP+1 ) ) ) .LE. MAX( SMLNUM, + $ ULP*TEMP ) ) THEN +* Deflatable + KWBOT = KWBOT-2 + ELSE +* Not deflatable, move out of the way + IFST = KWBOT-KWTOP+1 + ILST = K2 + CALL DTGEXC( .TRUE., .TRUE., JW, A( KWTOP, KWTOP ), + $ LDA, B( KWTOP, KWTOP ), LDB, QC, LDQC, + $ ZC, LDZC, IFST, ILST, WORK, LWORK, + $ DTGEXC_INFO ) + K2 = K2+2 + END IF + K = K+2 + ELSE + +* Try to deflate real eigenvalue + TEMP = ABS( A( KWBOT, KWBOT ) ) + IF( TEMP .EQ. ZERO ) THEN + TEMP = ABS( S ) + END IF + IF ( ( ABS( S*QC( 1, KWBOT-KWTOP+1 ) ) ) .LE. MAX( ULP* + $ TEMP, SMLNUM ) ) THEN +* Deflatable + KWBOT = KWBOT-1 + ELSE +* Not deflatable, move out of the way + IFST = KWBOT-KWTOP+1 + ILST = K2 + CALL DTGEXC( .TRUE., .TRUE., JW, A( KWTOP, KWTOP ), + $ LDA, B( KWTOP, KWTOP ), LDB, QC, LDQC, + $ ZC, LDZC, IFST, ILST, WORK, LWORK, + $ DTGEXC_INFO ) + K2 = K2+1 + END IF + + K = K+1 + + END IF + END DO + END IF + +* Store eigenvalues + ND = IHI-KWBOT + NS = JW-ND + K = KWTOP + DO WHILE ( K .LE. IHI ) + BULGE = .FALSE. + IF ( K .LT. IHI ) THEN + IF ( A( K+1, K ) .NE. ZERO ) THEN + BULGE = .TRUE. + END IF + END IF + IF ( BULGE ) THEN +* 2x2 eigenvalue block + CALL DLAG2( A( K, K ), LDA, B( K, K ), LDB, SAFMIN, + $ BETA( K ), BETA( K+1 ), ALPHAR( K ), + $ ALPHAR( K+1 ), ALPHAI( K ) ) + ALPHAI( K+1 ) = -ALPHAI( K ) + K = K+2 + ELSE +* 1x1 eigenvalue block + ALPHAR( K ) = A( K, K ) + ALPHAI( K ) = ZERO + BETA( K ) = B( K, K ) + K = K+1 + END IF + END DO + + IF ( KWTOP .NE. ILO .AND. S .NE. ZERO ) THEN +* Reflect spike back, this will create optimally packed bulges + A( KWTOP:KWBOT, KWTOP-1 ) = A( KWTOP, KWTOP-1 )*QC( 1, + $ 1:JW-ND ) + DO K = KWBOT-1, KWTOP, -1 + CALL DLARTG( A( K, KWTOP-1 ), A( K+1, KWTOP-1 ), C1, S1, + $ TEMP ) + A( K, KWTOP-1 ) = TEMP + A( K+1, KWTOP-1 ) = ZERO + K2 = MAX( KWTOP, K-1 ) + CALL DROT( IHI-K2+1, A( K, K2 ), LDA, A( K+1, K2 ), LDA, C1, + $ S1 ) + CALL DROT( IHI-( K-1 )+1, B( K, K-1 ), LDB, B( K+1, K-1 ), + $ LDB, C1, S1 ) + CALL DROT( JW, QC( 1, K-KWTOP+1 ), 1, QC( 1, K+1-KWTOP+1 ), + $ 1, C1, S1 ) + END DO + +* Chase bulges down + ISTARTM = KWTOP + ISTOPM = IHI + K = KWBOT-1 + DO WHILE ( K .GE. KWTOP ) + IF ( ( K .GE. KWTOP+1 ) .AND. A( K+1, K-1 ) .NE. ZERO ) THEN + +* Move double pole block down and remove it + DO K2 = K-1, KWBOT-2 + CALL DLAQZ2( .TRUE., .TRUE., K2, KWTOP, KWTOP+JW-1, + $ KWBOT, A, LDA, B, LDB, JW, KWTOP, QC, + $ LDQC, JW, KWTOP, ZC, LDZC ) + END DO + + K = K-2 + ELSE + +* k points to single shift + DO K2 = K, KWBOT-2 + +* Move shift down + CALL DLARTG( B( K2+1, K2+1 ), B( K2+1, K2 ), C1, S1, + $ TEMP ) + B( K2+1, K2+1 ) = TEMP + B( K2+1, K2 ) = ZERO + CALL DROT( K2+2-ISTARTM+1, A( ISTARTM, K2+1 ), 1, + $ A( ISTARTM, K2 ), 1, C1, S1 ) + CALL DROT( K2-ISTARTM+1, B( ISTARTM, K2+1 ), 1, + $ B( ISTARTM, K2 ), 1, C1, S1 ) + CALL DROT( JW, ZC( 1, K2+1-KWTOP+1 ), 1, ZC( 1, + $ K2-KWTOP+1 ), 1, C1, S1 ) + + CALL DLARTG( A( K2+1, K2 ), A( K2+2, K2 ), C1, S1, + $ TEMP ) + A( K2+1, K2 ) = TEMP + A( K2+2, K2 ) = ZERO + CALL DROT( ISTOPM-K2, A( K2+1, K2+1 ), LDA, A( K2+2, + $ K2+1 ), LDA, C1, S1 ) + CALL DROT( ISTOPM-K2, B( K2+1, K2+1 ), LDB, B( K2+2, + $ K2+1 ), LDB, C1, S1 ) + CALL DROT( JW, QC( 1, K2+1-KWTOP+1 ), 1, QC( 1, + $ K2+2-KWTOP+1 ), 1, C1, S1 ) + + END DO + +* Remove the shift + CALL DLARTG( B( KWBOT, KWBOT ), B( KWBOT, KWBOT-1 ), C1, + $ S1, TEMP ) + B( KWBOT, KWBOT ) = TEMP + B( KWBOT, KWBOT-1 ) = ZERO + CALL DROT( KWBOT-ISTARTM, B( ISTARTM, KWBOT ), 1, + $ B( ISTARTM, KWBOT-1 ), 1, C1, S1 ) + CALL DROT( KWBOT-ISTARTM+1, A( ISTARTM, KWBOT ), 1, + $ A( ISTARTM, KWBOT-1 ), 1, C1, S1 ) + CALL DROT( JW, ZC( 1, KWBOT-KWTOP+1 ), 1, ZC( 1, + $ KWBOT-1-KWTOP+1 ), 1, C1, S1 ) + + K = K-1 + END IF + END DO + + END IF + +* Apply Qc and Zc to rest of the matrix + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ILO + ISTOPM = IHI + END IF + + IF ( ISTOPM-IHI > 0 ) THEN + CALL DGEMM( 'T', 'N', JW, ISTOPM-IHI, JW, ONE, QC, LDQC, + $ A( KWTOP, IHI+1 ), LDA, ZERO, WORK, JW ) + CALL DLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, A( KWTOP, + $ IHI+1 ), LDA ) + CALL DGEMM( 'T', 'N', JW, ISTOPM-IHI, JW, ONE, QC, LDQC, + $ B( KWTOP, IHI+1 ), LDB, ZERO, WORK, JW ) + CALL DLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, B( KWTOP, + $ IHI+1 ), LDB ) + END IF + IF ( ILQ ) THEN + CALL DGEMM( 'N', 'N', N, JW, JW, ONE, Q( 1, KWTOP ), LDQ, QC, + $ LDQC, ZERO, WORK, N ) + CALL DLACPY( 'ALL', N, JW, WORK, N, Q( 1, KWTOP ), LDQ ) + END IF + + IF ( KWTOP-1-ISTARTM+1 > 0 ) THEN + CALL DGEMM( 'N', 'N', KWTOP-ISTARTM, JW, JW, ONE, A( ISTARTM, + $ KWTOP ), LDA, ZC, LDZC, ZERO, WORK, + $ KWTOP-ISTARTM ) + CALL DLACPY( 'ALL', KWTOP-ISTARTM, JW, WORK, KWTOP-ISTARTM, + $ A( ISTARTM, KWTOP ), LDA ) + CALL DGEMM( 'N', 'N', KWTOP-ISTARTM, JW, JW, ONE, B( ISTARTM, + $ KWTOP ), LDB, ZC, LDZC, ZERO, WORK, + $ KWTOP-ISTARTM ) + CALL DLACPY( 'ALL', KWTOP-ISTARTM, JW, WORK, KWTOP-ISTARTM, + $ B( ISTARTM, KWTOP ), LDB ) + END IF + IF ( ILZ ) THEN + CALL DGEMM( 'N', 'N', N, JW, JW, ONE, Z( 1, KWTOP ), LDZ, ZC, + $ LDZC, ZERO, WORK, N ) + CALL DLACPY( 'ALL', N, JW, WORK, N, Z( 1, KWTOP ), LDZ ) + END IF + + END SUBROUTINE diff --git a/lapack-netlib/SRC/dlaqz4.f b/lapack-netlib/SRC/dlaqz4.f new file mode 100644 index 000000000..184872775 --- /dev/null +++ b/lapack-netlib/SRC/dlaqz4.f @@ -0,0 +1,532 @@ +*> \brief \b DLAQZ4 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download DLAQZ4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE DLAQZ4( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSHIFTS, +* $ NBLOCK_DESIRED, SR, SI, SS, A, LDA, B, LDB, Q, LDQ, Z, LDZ, +* $ QC, LDQC, ZC, LDZC, WORK, LWORK, INFO ) +* IMPLICIT NONE +* +* Function arguments +* LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, +* $ NSHIFTS, NBLOCK_DESIRED, LDQC, LDZC +* +* DOUBLE PRECISION, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), +* $ Q( LDQ, * ), Z( LDZ, * ), QC( LDQC, * ), ZC( LDZC, * ), +* $ WORK( * ), SR( * ), SI( * ), SS( * ) +* +* INTEGER, INTENT( OUT ) :: INFO +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> DLAQZ4 Executes a single multishift QZ sweep +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] ILSCHUR +*> \verbatim +*> ILSCHUR is LOGICAL +*> Determines whether or not to update the full Schur form +*> \endverbatim +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> \endverbatim +*> +*> \param[in] NSHIFTS +*> \verbatim +*> NSHIFTS is INTEGER +*> The desired number of shifts to use +*> \endverbatim +*> +*> \param[in] NBLOCK_DESIRED +*> \verbatim +*> NBLOCK_DESIRED is INTEGER +*> The desired size of the computational windows +*> \endverbatim +*> +*> \param[in] SR +*> \verbatim +*> SR is DOUBLE PRECISION array. SR contains +*> the real parts of the shifts to use. +*> \endverbatim +*> +*> \param[in] SI +*> \verbatim +*> SI is DOUBLE PRECISION array. SI contains +*> the imaginary parts of the shifts to use. +*> \endverbatim +*> +*> \param[in] SS +*> \verbatim +*> SS is DOUBLE PRECISION array. SS contains +*> the scale of the shifts to use. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is DOUBLE PRECISION array, dimension (LDA, N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is DOUBLE PRECISION array, dimension (LDB, N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is DOUBLE PRECISION array, dimension (LDQ, N) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is DOUBLE PRECISION array, dimension (LDZ, N) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[in,out] QC +*> \verbatim +*> QC is DOUBLE PRECISION array, dimension (LDQC, NBLOCK_DESIRED) +*> \endverbatim +*> +*> \param[in] LDQC +*> \verbatim +*> LDQC is INTEGER +*> \endverbatim +*> +*> \param[in,out] ZC +*> \verbatim +*> ZC is DOUBLE PRECISION array, dimension (LDZC, NBLOCK_DESIRED) +*> \endverbatim +*> +*> \param[in] LDZC +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is DOUBLE PRECISION array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> 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 +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + SUBROUTINE DLAQZ4( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSHIFTS, + $ NBLOCK_DESIRED, SR, SI, SS, A, LDA, B, LDB, Q, + $ LDQ, Z, LDZ, QC, LDQC, ZC, LDZC, WORK, LWORK, + $ INFO ) + IMPLICIT NONE + +* Function arguments + LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, + $ NSHIFTS, NBLOCK_DESIRED, LDQC, LDZC + + DOUBLE PRECISION, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), + $ Q( LDQ, * ), Z( LDZ, * ), QC( LDQC, * ), + $ ZC( LDZC, * ), WORK( * ), SR( * ), SI( * ), + $ SS( * ) + + INTEGER, INTENT( OUT ) :: INFO + +* Parameters + DOUBLE PRECISION :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0D0, ONE = 1.0D0, HALF = 0.5D0 ) + +* Local scalars + INTEGER :: I, J, NS, ISTARTM, ISTOPM, SHEIGHT, SWIDTH, K, NP, + $ ISTARTB, ISTOPB, ISHIFT, NBLOCK, NPOS + DOUBLE PRECISION :: TEMP, V( 3 ), C1, S1, C2, S2, SWAP +* +* External functions + EXTERNAL :: XERBLA, DGEMM, DLAQZ1, DLAQZ2, DLASET, DLARTG, DROT, + $ DLACPY + + INFO = 0 + IF ( NBLOCK_DESIRED .LT. NSHIFTS+1 ) THEN + INFO = -8 + END IF + IF ( LWORK .EQ.-1 ) THEN +* workspace query, quick return + WORK( 1 ) = N*NBLOCK_DESIRED + RETURN + ELSE IF ( LWORK .LT. N*NBLOCK_DESIRED ) THEN + INFO = -25 + END IF + + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'DLAQZ4', -INFO ) + RETURN + END IF + +* Executable statements + + IF ( NSHIFTS .LT. 2 ) THEN + RETURN + END IF + + IF ( ILO .GE. IHI ) THEN + RETURN + END IF + + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ILO + ISTOPM = IHI + END IF + +* Shuffle shifts into pairs of real shifts and pairs +* of complex conjugate shifts assuming complex +* conjugate shifts are already adjacent to one +* another + + DO I = 1, NSHIFTS-2, 2 + IF( SI( I ).NE.-SI( I+1 ) ) THEN +* + SWAP = SR( I ) + SR( I ) = SR( I+1 ) + SR( I+1 ) = SR( I+2 ) + SR( I+2 ) = SWAP + + SWAP = SI( I ) + SI( I ) = SI( I+1 ) + SI( I+1 ) = SI( I+2 ) + SI( I+2 ) = SWAP + + SWAP = SS( I ) + SS( I ) = SS( I+1 ) + SS( I+1 ) = SS( I+2 ) + SS( I+2 ) = SWAP + END IF + END DO + +* NSHFTS is supposed to be even, but if it is odd, +* then simply reduce it by one. The shuffle above +* ensures that the dropped shift is real and that +* the remaining shifts are paired. + + NS = NSHIFTS-MOD( NSHIFTS, 2 ) + NPOS = MAX( NBLOCK_DESIRED-NS, 1 ) + +* The following block introduces the shifts and chases +* them down one by one just enough to make space for +* the other shifts. The near-the-diagonal block is +* of size (ns+1) x ns. + + CALL DLASET( 'FULL', NS+1, NS+1, ZERO, ONE, QC, LDQC ) + CALL DLASET( 'FULL', NS, NS, ZERO, ONE, ZC, LDZC ) + + DO I = 1, NS, 2 +* Introduce the shift + CALL DLAQZ1( A( ILO, ILO ), LDA, B( ILO, ILO ), LDB, SR( I ), + $ SR( I+1 ), SI( I ), SS( I ), SS( I+1 ), V ) + + TEMP = V( 2 ) + CALL DLARTG( TEMP, V( 3 ), C1, S1, V( 2 ) ) + CALL DLARTG( V( 1 ), V( 2 ), C2, S2, TEMP ) + + CALL DROT( NS, A( ILO+1, ILO ), LDA, A( ILO+2, ILO ), LDA, C1, + $ S1 ) + CALL DROT( NS, A( ILO, ILO ), LDA, A( ILO+1, ILO ), LDA, C2, + $ S2 ) + CALL DROT( NS, B( ILO+1, ILO ), LDB, B( ILO+2, ILO ), LDB, C1, + $ S1 ) + CALL DROT( NS, B( ILO, ILO ), LDB, B( ILO+1, ILO ), LDB, C2, + $ S2 ) + CALL DROT( NS+1, QC( 1, 2 ), 1, QC( 1, 3 ), 1, C1, S1 ) + CALL DROT( NS+1, QC( 1, 1 ), 1, QC( 1, 2 ), 1, C2, S2 ) + +* Chase the shift down + DO J = 1, NS-1-I + + CALL DLAQZ2( .TRUE., .TRUE., J, 1, NS, IHI-ILO+1, A( ILO, + $ ILO ), LDA, B( ILO, ILO ), LDB, NS+1, 1, QC, + $ LDQC, NS, 1, ZC, LDZC ) + + END DO + + END DO + +* Update the rest of the pencil + +* Update A(ilo:ilo+ns,ilo+ns:istopm) and B(ilo:ilo+ns,ilo+ns:istopm) +* from the left with Qc(1:ns+1,1:ns+1)' + SHEIGHT = NS+1 + SWIDTH = ISTOPM-( ILO+NS )+1 + IF ( SWIDTH > 0 ) THEN + CALL DGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, LDQC, + $ A( ILO, ILO+NS ), LDA, ZERO, WORK, SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ILO, + $ ILO+NS ), LDA ) + CALL DGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, LDQC, + $ B( ILO, ILO+NS ), LDB, ZERO, WORK, SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ILO, + $ ILO+NS ), LDB ) + END IF + IF ( ILQ ) THEN + CALL DGEMM( 'N', 'N', N, SHEIGHT, SHEIGHT, ONE, Q( 1, ILO ), + $ LDQ, QC, LDQC, ZERO, WORK, N ) + CALL DLACPY( 'ALL', N, SHEIGHT, WORK, N, Q( 1, ILO ), LDQ ) + END IF + +* Update A(istartm:ilo-1,ilo:ilo+ns-1) and B(istartm:ilo-1,ilo:ilo+ns-1) +* from the right with Zc(1:ns,1:ns) + SHEIGHT = ILO-1-ISTARTM+1 + SWIDTH = NS + IF ( SHEIGHT > 0 ) THEN + CALL DGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, A( ISTARTM, + $ ILO ), LDA, ZC, LDZC, ZERO, WORK, SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ISTARTM, + $ ILO ), LDA ) + CALL DGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, B( ISTARTM, + $ ILO ), LDB, ZC, LDZC, ZERO, WORK, SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ISTARTM, + $ ILO ), LDB ) + END IF + IF ( ILZ ) THEN + CALL DGEMM( 'N', 'N', N, SWIDTH, SWIDTH, ONE, Z( 1, ILO ), LDZ, + $ ZC, LDZC, ZERO, WORK, N ) + CALL DLACPY( 'ALL', N, SWIDTH, WORK, N, Z( 1, ILO ), LDZ ) + END IF + +* The following block chases the shifts down to the bottom +* right block. If possible, a shift is moved down npos +* positions at a time + + K = ILO + DO WHILE ( K < IHI-NS ) + NP = MIN( IHI-NS-K, NPOS ) +* Size of the near-the-diagonal block + NBLOCK = NS+NP +* istartb points to the first row we will be updating + ISTARTB = K+1 +* istopb points to the last column we will be updating + ISTOPB = K+NBLOCK-1 + + CALL DLASET( 'FULL', NS+NP, NS+NP, ZERO, ONE, QC, LDQC ) + CALL DLASET( 'FULL', NS+NP, NS+NP, ZERO, ONE, ZC, LDZC ) + +* Near the diagonal shift chase + DO I = NS-1, 0, -2 + DO J = 0, NP-1 +* Move down the block with index k+i+j-1, updating +* the (ns+np x ns+np) block: +* (k:k+ns+np,k:k+ns+np-1) + CALL DLAQZ2( .TRUE., .TRUE., K+I+J-1, ISTARTB, ISTOPB, + $ IHI, A, LDA, B, LDB, NBLOCK, K+1, QC, LDQC, + $ NBLOCK, K, ZC, LDZC ) + END DO + END DO + +* Update rest of the pencil + +* Update A(k+1:k+ns+np, k+ns+np:istopm) and +* B(k+1:k+ns+np, k+ns+np:istopm) +* from the left with Qc(1:ns+np,1:ns+np)' + SHEIGHT = NS+NP + SWIDTH = ISTOPM-( K+NS+NP )+1 + IF ( SWIDTH > 0 ) THEN + CALL DGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, + $ LDQC, A( K+1, K+NS+NP ), LDA, ZERO, WORK, + $ SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( K+1, + $ K+NS+NP ), LDA ) + CALL DGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, + $ LDQC, B( K+1, K+NS+NP ), LDB, ZERO, WORK, + $ SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( K+1, + $ K+NS+NP ), LDB ) + END IF + IF ( ILQ ) THEN + CALL DGEMM( 'N', 'N', N, NBLOCK, NBLOCK, ONE, Q( 1, K+1 ), + $ LDQ, QC, LDQC, ZERO, WORK, N ) + CALL DLACPY( 'ALL', N, NBLOCK, WORK, N, Q( 1, K+1 ), LDQ ) + END IF + +* Update A(istartm:k,k:k+ns+npos-1) and B(istartm:k,k:k+ns+npos-1) +* from the right with Zc(1:ns+np,1:ns+np) + SHEIGHT = K-ISTARTM+1 + SWIDTH = NBLOCK + IF ( SHEIGHT > 0 ) THEN + CALL DGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, + $ A( ISTARTM, K ), LDA, ZC, LDZC, ZERO, WORK, + $ SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ A( ISTARTM, K ), LDA ) + CALL DGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, + $ B( ISTARTM, K ), LDB, ZC, LDZC, ZERO, WORK, + $ SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ B( ISTARTM, K ), LDB ) + END IF + IF ( ILZ ) THEN + CALL DGEMM( 'N', 'N', N, NBLOCK, NBLOCK, ONE, Z( 1, K ), + $ LDZ, ZC, LDZC, ZERO, WORK, N ) + CALL DLACPY( 'ALL', N, NBLOCK, WORK, N, Z( 1, K ), LDZ ) + END IF + + K = K+NP + + END DO + +* The following block removes the shifts from the bottom right corner +* one by one. Updates are initially applied to A(ihi-ns+1:ihi,ihi-ns:ihi). + + CALL DLASET( 'FULL', NS, NS, ZERO, ONE, QC, LDQC ) + CALL DLASET( 'FULL', NS+1, NS+1, ZERO, ONE, ZC, LDZC ) + +* istartb points to the first row we will be updating + ISTARTB = IHI-NS+1 +* istopb points to the last column we will be updating + ISTOPB = IHI + + DO I = 1, NS, 2 +* Chase the shift down to the bottom right corner + DO ISHIFT = IHI-I-1, IHI-2 + CALL DLAQZ2( .TRUE., .TRUE., ISHIFT, ISTARTB, ISTOPB, IHI, + $ A, LDA, B, LDB, NS, IHI-NS+1, QC, LDQC, NS+1, + $ IHI-NS, ZC, LDZC ) + END DO + + END DO + +* Update rest of the pencil + +* Update A(ihi-ns+1:ihi, ihi+1:istopm) +* from the left with Qc(1:ns,1:ns)' + SHEIGHT = NS + SWIDTH = ISTOPM-( IHI+1 )+1 + IF ( SWIDTH > 0 ) THEN + CALL DGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, LDQC, + $ A( IHI-NS+1, IHI+1 ), LDA, ZERO, WORK, SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ A( IHI-NS+1, IHI+1 ), LDA ) + CALL DGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, LDQC, + $ B( IHI-NS+1, IHI+1 ), LDB, ZERO, WORK, SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ B( IHI-NS+1, IHI+1 ), LDB ) + END IF + IF ( ILQ ) THEN + CALL DGEMM( 'N', 'N', N, NS, NS, ONE, Q( 1, IHI-NS+1 ), LDQ, + $ QC, LDQC, ZERO, WORK, N ) + CALL DLACPY( 'ALL', N, NS, WORK, N, Q( 1, IHI-NS+1 ), LDQ ) + END IF + +* Update A(istartm:ihi-ns,ihi-ns:ihi) +* from the right with Zc(1:ns+1,1:ns+1) + SHEIGHT = IHI-NS-ISTARTM+1 + SWIDTH = NS+1 + IF ( SHEIGHT > 0 ) THEN + CALL DGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, A( ISTARTM, + $ IHI-NS ), LDA, ZC, LDZC, ZERO, WORK, SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ISTARTM, + $ IHI-NS ), LDA ) + CALL DGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, B( ISTARTM, + $ IHI-NS ), LDB, ZC, LDZC, ZERO, WORK, SHEIGHT ) + CALL DLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ISTARTM, + $ IHI-NS ), LDB ) + END IF + IF ( ILZ ) THEN + CALL DGEMM( 'N', 'N', N, NS+1, NS+1, ONE, Z( 1, IHI-NS ), LDZ, + $ ZC, LDZC, ZERO, WORK, N ) + CALL DLACPY( 'ALL', N, NS+1, WORK, N, Z( 1, IHI-NS ), LDZ ) + END IF + + END SUBROUTINE diff --git a/lapack-netlib/SRC/dlar1v.f b/lapack-netlib/SRC/dlar1v.f index 3fa7178cf..df836c34d 100644 --- a/lapack-netlib/SRC/dlar1v.f +++ b/lapack-netlib/SRC/dlar1v.f @@ -212,8 +212,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -230,10 +228,9 @@ $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL WANTNC diff --git a/lapack-netlib/SRC/dlar2v.f b/lapack-netlib/SRC/dlar2v.f index 32c77bf70..c763e997a 100644 --- a/lapack-netlib/SRC/dlar2v.f +++ b/lapack-netlib/SRC/dlar2v.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAR2V( N, X, Y, Z, INCX, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, N diff --git a/lapack-netlib/SRC/dlarf.f b/lapack-netlib/SRC/dlarf.f index e99d0bb2a..ed2163864 100644 --- a/lapack-netlib/SRC/dlarf.f +++ b/lapack-netlib/SRC/dlarf.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/dlarfb.f b/lapack-netlib/SRC/dlarfb.f index e63641213..a3fa083b4 100644 --- a/lapack-netlib/SRC/dlarfb.f +++ b/lapack-netlib/SRC/dlarfb.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2013 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -197,10 +195,9 @@ SUBROUTINE DLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, $ T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2013 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/dlarfg.f b/lapack-netlib/SRC/dlarfg.f index be33f932c..9bfb45a6b 100644 --- a/lapack-netlib/SRC/dlarfg.f +++ b/lapack-netlib/SRC/dlarfg.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARFG( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/dlarfgp.f b/lapack-netlib/SRC/dlarfgp.f index d040a8c7b..69845056d 100644 --- a/lapack-netlib/SRC/dlarfgp.f +++ b/lapack-netlib/SRC/dlarfgp.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARFGP( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/dlarft.f b/lapack-netlib/SRC/dlarft.f index e69a6b792..a8d9de61f 100644 --- a/lapack-netlib/SRC/dlarft.f +++ b/lapack-netlib/SRC/dlarft.f @@ -130,8 +130,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -163,10 +161,9 @@ * ===================================================================== SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/lapack-netlib/SRC/dlarfx.f b/lapack-netlib/SRC/dlarfx.f index a9e4496f9..e7665f986 100644 --- a/lapack-netlib/SRC/dlarfx.f +++ b/lapack-netlib/SRC/dlarfx.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/dlarfy.f b/lapack-netlib/SRC/dlarfy.f index 3000b38bc..d0c3c8b8a 100644 --- a/lapack-netlib/SRC/dlarfy.f +++ b/lapack-netlib/SRC/dlarfy.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlargv.f b/lapack-netlib/SRC/dlargv.f index f28bcecd3..90a4f8d54 100644 --- a/lapack-netlib/SRC/dlargv.f +++ b/lapack-netlib/SRC/dlargv.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARGV( N, X, INCX, Y, INCY, C, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/lapack-netlib/SRC/dlarnv.f b/lapack-netlib/SRC/dlarnv.f index 02e62bc6f..3557d215c 100644 --- a/lapack-netlib/SRC/dlarnv.f +++ b/lapack-netlib/SRC/dlarnv.f @@ -79,8 +79,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -97,10 +95,9 @@ * ===================================================================== SUBROUTINE DLARNV( IDIST, ISEED, N, X ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, N @@ -118,7 +115,7 @@ INTEGER LV PARAMETER ( LV = 128 ) DOUBLE PRECISION TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) * .. * .. Local Scalars .. INTEGER I, IL, IL2, IV diff --git a/lapack-netlib/SRC/dlarra.f b/lapack-netlib/SRC/dlarra.f index 7406a8f98..2fb30cd76 100644 --- a/lapack-netlib/SRC/dlarra.f +++ b/lapack-netlib/SRC/dlarra.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -136,10 +134,9 @@ SUBROUTINE DLARRA( N, D, E, E2, SPLTOL, TNRM, $ NSPLIT, ISPLIT, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, N, NSPLIT diff --git a/lapack-netlib/SRC/dlarrb.f b/lapack-netlib/SRC/dlarrb.f index ddf3888b9..839b1d41b 100644 --- a/lapack-netlib/SRC/dlarrb.f +++ b/lapack-netlib/SRC/dlarrb.f @@ -178,8 +178,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -196,10 +194,9 @@ $ RTOL2, OFFSET, W, WGAP, WERR, WORK, IWORK, $ PIVMIN, SPDIAM, TWIST, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IFIRST, ILAST, INFO, N, OFFSET, TWIST diff --git a/lapack-netlib/SRC/dlarrc.f b/lapack-netlib/SRC/dlarrc.f index 093bfa02c..55a17626a 100644 --- a/lapack-netlib/SRC/dlarrc.f +++ b/lapack-netlib/SRC/dlarrc.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -137,10 +135,9 @@ SUBROUTINE DLARRC( JOBT, N, VL, VU, D, E, PIVMIN, $ EIGCNT, LCNT, RCNT, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBT @@ -246,6 +243,6 @@ RETURN * -* end of DLARRC +* End of DLARRC * END diff --git a/lapack-netlib/SRC/dlarrd.f b/lapack-netlib/SRC/dlarrd.f index 5cc105261..08dfd02c3 100644 --- a/lapack-netlib/SRC/dlarrd.f +++ b/lapack-netlib/SRC/dlarrd.f @@ -319,8 +319,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== @@ -329,10 +327,9 @@ $ M, W, WERR, WL, WU, IBLOCK, INDEXW, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER ORDER, RANGE diff --git a/lapack-netlib/SRC/dlarre.f b/lapack-netlib/SRC/dlarre.f index ce55442e2..afbfe6379 100644 --- a/lapack-netlib/SRC/dlarre.f +++ b/lapack-netlib/SRC/dlarre.f @@ -276,8 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -305,10 +303,9 @@ $ W, WERR, WGAP, IBLOCK, INDEXW, GERS, PIVMIN, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER RANGE @@ -899,6 +896,6 @@ RETURN * -* end of DLARRE +* End of DLARRE * END diff --git a/lapack-netlib/SRC/dlarrf.f b/lapack-netlib/SRC/dlarrf.f index f814ee1b4..a496e1b2d 100644 --- a/lapack-netlib/SRC/dlarrf.f +++ b/lapack-netlib/SRC/dlarrf.f @@ -174,8 +174,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -193,10 +191,9 @@ $ SPDIAM, CLGAPL, CLGAPR, PIVMIN, SIGMA, $ DPLUS, LPLUS, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER CLSTRT, CLEND, INFO, N diff --git a/lapack-netlib/SRC/dlarrj.f b/lapack-netlib/SRC/dlarrj.f index a4bfb210c..f6abd84e7 100644 --- a/lapack-netlib/SRC/dlarrj.f +++ b/lapack-netlib/SRC/dlarrj.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -168,10 +166,9 @@ $ RTOL, OFFSET, W, WERR, WORK, IWORK, $ PIVMIN, SPDIAM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IFIRST, ILAST, INFO, N, OFFSET diff --git a/lapack-netlib/SRC/dlarrk.f b/lapack-netlib/SRC/dlarrk.f index e92fe727e..6c56a9bab 100644 --- a/lapack-netlib/SRC/dlarrk.f +++ b/lapack-netlib/SRC/dlarrk.f @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE DLARRK( N, IW, GL, GU, $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, IW, N diff --git a/lapack-netlib/SRC/dlarrr.f b/lapack-netlib/SRC/dlarrr.f index 7aa22476b..3bd6beb30 100644 --- a/lapack-netlib/SRC/dlarrr.f +++ b/lapack-netlib/SRC/dlarrr.f @@ -78,8 +78,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -94,10 +92,9 @@ * ===================================================================== SUBROUTINE DLARRR( N, D, E, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER N, INFO @@ -206,6 +203,6 @@ * RETURN * -* END OF DLARRR +* End of DLARRR * END diff --git a/lapack-netlib/SRC/dlarrv.f b/lapack-netlib/SRC/dlarrv.f index a1c6e9c9d..299430361 100644 --- a/lapack-netlib/SRC/dlarrv.f +++ b/lapack-netlib/SRC/dlarrv.f @@ -272,8 +272,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Contributors: @@ -292,10 +290,9 @@ $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER DOL, DOU, INFO, LDZ, M, N diff --git a/lapack-netlib/SRC/dlarscl2.f b/lapack-netlib/SRC/dlarscl2.f index 1b5ea5384..2468e2702 100644 --- a/lapack-netlib/SRC/dlarscl2.f +++ b/lapack-netlib/SRC/dlarscl2.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DLARSCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/lapack-netlib/SRC/dlartg.f b/lapack-netlib/SRC/dlartg.f deleted file mode 100644 index dc49986a0..000000000 --- a/lapack-netlib/SRC/dlartg.f +++ /dev/null @@ -1,204 +0,0 @@ -*> \brief \b DLARTG generates a plane rotation with real cosine and real sine. -* -* =========== DOCUMENTATION =========== -* -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ -* -*> \htmlonly -*> Download DLARTG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> -*> [TXT] -*> \endhtmlonly -* -* Definition: -* =========== -* -* SUBROUTINE DLARTG( F, G, CS, SN, R ) -* -* .. Scalar Arguments .. -* DOUBLE PRECISION CS, F, G, R, SN -* .. -* -* -*> \par Purpose: -* ============= -*> -*> \verbatim -*> -*> DLARTG generate a plane rotation so that -*> -*> [ CS SN ] . [ F ] = [ R ] where CS**2 + SN**2 = 1. -*> [ -SN CS ] [ G ] [ 0 ] -*> -*> This is a slower, more accurate version of the BLAS1 routine DROTG, -*> with the following other differences: -*> F and G are unchanged on return. -*> If G=0, then CS=1 and SN=0. -*> If F=0 and (G .ne. 0), then CS=0 and SN=1 without doing any -*> floating point operations (saves work in DBDSQR when -*> there are zeros on the diagonal). -*> -*> If F exceeds G in magnitude, CS will be positive. -*> \endverbatim -* -* Arguments: -* ========== -* -*> \param[in] F -*> \verbatim -*> F is DOUBLE PRECISION -*> The first component of vector to be rotated. -*> \endverbatim -*> -*> \param[in] G -*> \verbatim -*> G is DOUBLE PRECISION -*> The second component of vector to be rotated. -*> \endverbatim -*> -*> \param[out] CS -*> \verbatim -*> CS is DOUBLE PRECISION -*> The cosine of the rotation. -*> \endverbatim -*> -*> \param[out] SN -*> \verbatim -*> SN is DOUBLE PRECISION -*> The sine of the rotation. -*> \endverbatim -*> -*> \param[out] R -*> \verbatim -*> R is DOUBLE PRECISION -*> The nonzero component of the rotated vector. -*> -*> This version has a few statements commented out for thread safety -*> (machine parameters are computed on each entry). 10 feb 03, SJH. -*> \endverbatim -* -* Authors: -* ======== -* -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. -* -*> \date December 2016 -* -*> \ingroup OTHERauxiliary -* -* ===================================================================== - SUBROUTINE DLARTG( F, G, CS, SN, R ) -* -* -- LAPACK auxiliary routine (version 3.7.0) -- -* -- LAPACK is a software package provided by Univ. of Tennessee, -- -* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 -* -* .. Scalar Arguments .. - DOUBLE PRECISION CS, F, G, R, SN -* .. -* -* ===================================================================== -* -* .. Parameters .. - DOUBLE PRECISION ZERO - PARAMETER ( ZERO = 0.0D0 ) - DOUBLE PRECISION ONE - PARAMETER ( ONE = 1.0D0 ) - DOUBLE PRECISION TWO - PARAMETER ( TWO = 2.0D0 ) -* .. -* .. Local Scalars .. -* LOGICAL FIRST - INTEGER COUNT, I - DOUBLE PRECISION EPS, F1, G1, SAFMIN, SAFMN2, SAFMX2, SCALE -* .. -* .. External Functions .. - DOUBLE PRECISION DLAMCH - EXTERNAL DLAMCH -* .. -* .. Intrinsic Functions .. - INTRINSIC ABS, INT, LOG, MAX, SQRT -* .. -* .. Save statement .. -* SAVE FIRST, SAFMX2, SAFMIN, SAFMN2 -* .. -* .. Data statements .. -* DATA FIRST / .TRUE. / -* .. -* .. Executable Statements .. -* -* IF( FIRST ) THEN - SAFMIN = DLAMCH( 'S' ) - EPS = DLAMCH( 'E' ) - SAFMN2 = DLAMCH( 'B' )**INT( LOG( SAFMIN / EPS ) / - $ LOG( DLAMCH( 'B' ) ) / TWO ) - SAFMX2 = ONE / SAFMN2 -* FIRST = .FALSE. -* END IF - IF( G.EQ.ZERO ) THEN - CS = ONE - SN = ZERO - R = F - ELSE IF( F.EQ.ZERO ) THEN - CS = ZERO - SN = ONE - R = G - ELSE - F1 = F - G1 = G - SCALE = MAX( ABS( F1 ), ABS( G1 ) ) - IF( SCALE.GE.SAFMX2 ) THEN - COUNT = 0 - 10 CONTINUE - COUNT = COUNT + 1 - F1 = F1*SAFMN2 - G1 = G1*SAFMN2 - SCALE = MAX( ABS( F1 ), ABS( G1 ) ) - IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20) - $ GO TO 10 - R = SQRT( F1**2+G1**2 ) - CS = F1 / R - SN = G1 / R - DO 20 I = 1, COUNT - R = R*SAFMX2 - 20 CONTINUE - ELSE IF( SCALE.LE.SAFMN2 ) THEN - COUNT = 0 - 30 CONTINUE - COUNT = COUNT + 1 - F1 = F1*SAFMX2 - G1 = G1*SAFMX2 - SCALE = MAX( ABS( F1 ), ABS( G1 ) ) - IF( SCALE.LE.SAFMN2 ) - $ GO TO 30 - R = SQRT( F1**2+G1**2 ) - CS = F1 / R - SN = G1 / R - DO 40 I = 1, COUNT - R = R*SAFMN2 - 40 CONTINUE - ELSE - R = SQRT( F1**2+G1**2 ) - CS = F1 / R - SN = G1 / R - END IF - IF( ABS( F ).GT.ABS( G ) .AND. CS.LT.ZERO ) THEN - CS = -CS - SN = -SN - R = -R - END IF - END IF - RETURN -* -* End of DLARTG -* - END diff --git a/lapack-netlib/SRC/dlartg.f90 b/lapack-netlib/SRC/dlartg.f90 new file mode 100644 index 000000000..ef8c6e386 --- /dev/null +++ b/lapack-netlib/SRC/dlartg.f90 @@ -0,0 +1,162 @@ +!> \brief \b DLARTG generates a plane rotation with real cosine and real sine. +! +! =========== DOCUMENTATION =========== +! +! Online html documentation available at +! http://www.netlib.org/lapack/explore-html/ +! +! Definition: +! =========== +! +! SUBROUTINE DLARTG( F, G, C, S, R ) +! +! .. Scalar Arguments .. +! REAL(wp) C, F, G, R, S +! .. +! +!> \par Purpose: +! ============= +!> +!> \verbatim +!> +!> DLARTG generates a plane rotation so that +!> +!> [ C S ] . [ F ] = [ R ] +!> [ -S C ] [ G ] [ 0 ] +!> +!> where C**2 + S**2 = 1. +!> +!> The mathematical formulas used for C and S are +!> R = sign(F) * sqrt(F**2 + G**2) +!> C = F / R +!> S = G / R +!> Hence C >= 0. The algorithm used to compute these quantities +!> incorporates scaling to avoid overflow or underflow in computing the +!> square root of the sum of squares. +!> +!> This version is discontinuous in R at F = 0 but it returns the same +!> C and S as ZLARTG for complex inputs (F,0) and (G,0). +!> +!> This is a more accurate version of the BLAS1 routine DROTG, +!> with the following other differences: +!> F and G are unchanged on return. +!> If G=0, then C=1 and S=0. +!> If F=0 and (G .ne. 0), then C=0 and S=sign(1,G) without doing any +!> floating point operations (saves work in DBDSQR when +!> there are zeros on the diagonal). +!> +!> If F exceeds G in magnitude, C will be positive. +!> +!> Below, wp=>dp stands for double precision from LA_CONSTANTS module. +!> \endverbatim +! +! Arguments: +! ========== +! +!> \param[in] F +!> \verbatim +!> F is REAL(wp) +!> The first component of vector to be rotated. +!> \endverbatim +!> +!> \param[in] G +!> \verbatim +!> G is REAL(wp) +!> The second component of vector to be rotated. +!> \endverbatim +!> +!> \param[out] C +!> \verbatim +!> C is REAL(wp) +!> The cosine of the rotation. +!> \endverbatim +!> +!> \param[out] S +!> \verbatim +!> S is REAL(wp) +!> The sine of the rotation. +!> \endverbatim +!> +!> \param[out] R +!> \verbatim +!> R is REAL(wp) +!> The nonzero component of the rotated vector. +!> \endverbatim +! +! Authors: +! ======== +! +!> \author Edward Anderson, Lockheed Martin +! +!> \date July 2016 +! +!> \ingroup OTHERauxiliary +! +!> \par Contributors: +! ================== +!> +!> Weslley Pereira, University of Colorado Denver, USA +! +!> \par Further Details: +! ===================== +!> +!> \verbatim +!> +!> Anderson E. (2017) +!> Algorithm 978: Safe Scaling in the Level 1 BLAS +!> ACM Trans Math Softw 44:1--28 +!> https://doi.org/10.1145/3061665 +!> +!> \endverbatim +! +subroutine DLARTG( f, g, c, s, r ) + use LA_CONSTANTS, & + only: wp=>dp, zero=>dzero, half=>dhalf, one=>done, & + rtmin=>drtmin, rtmax=>drtmax, safmin=>dsafmin, safmax=>dsafmax +! +! -- LAPACK auxiliary routine -- +! -- LAPACK is a software package provided by Univ. of Tennessee, -- +! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +! February 2021 +! +! .. Scalar Arguments .. + real(wp) :: c, f, g, r, s +! .. +! .. Local Scalars .. + real(wp) :: d, f1, fs, g1, gs, p, u, uu +! .. +! .. Intrinsic Functions .. + intrinsic :: abs, sign, sqrt +! .. +! .. Executable Statements .. +! + f1 = abs( f ) + g1 = abs( g ) + if( g == zero ) then + c = one + s = zero + r = f + else if( f == zero ) then + c = zero + s = sign( one, g ) + r = g1 + else if( f1 > rtmin .and. f1 < rtmax .and. & + g1 > rtmin .and. g1 < rtmax ) then + d = sqrt( f*f + g*g ) + p = one / d + c = f1*p + s = g*sign( p, f ) + r = sign( d, f ) + else + u = min( safmax, max( safmin, f1, g1 ) ) + uu = one / u + fs = f*uu + gs = g*uu + d = sqrt( fs*fs + gs*gs ) + p = one / d + c = abs( fs )*p + s = gs*sign( p, f ) + r = sign( d, f )*u + end if + return +end subroutine diff --git a/lapack-netlib/SRC/dlartgp.f b/lapack-netlib/SRC/dlartgp.f index 334e416e8..8aeb2edbb 100644 --- a/lapack-netlib/SRC/dlartgp.f +++ b/lapack-netlib/SRC/dlartgp.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE DLARTGP( F, G, CS, SN, R ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION CS, F, G, R, SN diff --git a/lapack-netlib/SRC/dlartgs.f b/lapack-netlib/SRC/dlartgs.f index 29a9eb07d..2310df87f 100644 --- a/lapack-netlib/SRC/dlartgs.f +++ b/lapack-netlib/SRC/dlartgs.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLARTGS( X, Y, SIGMA, CS, SN ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. DOUBLE PRECISION CS, SIGMA, SN, X, Y diff --git a/lapack-netlib/SRC/dlartv.f b/lapack-netlib/SRC/dlartv.f index dca1cb7dc..85f5136cd 100644 --- a/lapack-netlib/SRC/dlartv.f +++ b/lapack-netlib/SRC/dlartv.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLARTV( N, X, INCX, Y, INCY, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/lapack-netlib/SRC/dlaruv.f b/lapack-netlib/SRC/dlaruv.f index a903c186c..0f5c9541d 100644 --- a/lapack-netlib/SRC/dlaruv.f +++ b/lapack-netlib/SRC/dlaruv.f @@ -72,8 +72,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -95,10 +93,9 @@ * ===================================================================== SUBROUTINE DLARUV( ISEED, N, X ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N diff --git a/lapack-netlib/SRC/dlarz.f b/lapack-netlib/SRC/dlarz.f index 73dc3f50d..2c628a7f5 100644 --- a/lapack-netlib/SRC/dlarz.f +++ b/lapack-netlib/SRC/dlarz.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -145,10 +143,9 @@ * ===================================================================== SUBROUTINE DLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/dlarzb.f b/lapack-netlib/SRC/dlarzb.f index e34eef937..d7b8fd2c1 100644 --- a/lapack-netlib/SRC/dlarzb.f +++ b/lapack-netlib/SRC/dlarzb.f @@ -164,8 +164,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -183,10 +181,9 @@ SUBROUTINE DLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/dlarzt.f b/lapack-netlib/SRC/dlarzt.f index 592556910..f24b690a4 100644 --- a/lapack-netlib/SRC/dlarzt.f +++ b/lapack-netlib/SRC/dlarzt.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -185,10 +183,9 @@ * ===================================================================== SUBROUTINE DLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/lapack-netlib/SRC/dlas2.f b/lapack-netlib/SRC/dlas2.f index 83873bc61..ea929e86f 100644 --- a/lapack-netlib/SRC/dlas2.f +++ b/lapack-netlib/SRC/dlas2.f @@ -78,8 +78,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -107,10 +105,9 @@ * ===================================================================== SUBROUTINE DLAS2( F, G, H, SSMIN, SSMAX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION F, G, H, SSMAX, SSMIN diff --git a/lapack-netlib/SRC/dlascl.f b/lapack-netlib/SRC/dlascl.f index 03e1000a8..05ad1c4f3 100644 --- a/lapack-netlib/SRC/dlascl.f +++ b/lapack-netlib/SRC/dlascl.f @@ -136,17 +136,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE DLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER TYPE diff --git a/lapack-netlib/SRC/dlascl2.f b/lapack-netlib/SRC/dlascl2.f index ae8807530..901e43c49 100644 --- a/lapack-netlib/SRC/dlascl2.f +++ b/lapack-netlib/SRC/dlascl2.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DLASCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/lapack-netlib/SRC/dlasd0.f b/lapack-netlib/SRC/dlasd0.f index 522ca9adc..215dc8717 100644 --- a/lapack-netlib/SRC/dlasd0.f +++ b/lapack-netlib/SRC/dlasd0.f @@ -136,8 +136,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -150,10 +148,9 @@ SUBROUTINE DLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, $ WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE diff --git a/lapack-netlib/SRC/dlasd1.f b/lapack-netlib/SRC/dlasd1.f index fe8aad959..f17bf9485 100644 --- a/lapack-netlib/SRC/dlasd1.f +++ b/lapack-netlib/SRC/dlasd1.f @@ -190,8 +190,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -204,10 +202,9 @@ SUBROUTINE DLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, LDVT, $ IDXQ, IWORK, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDU, LDVT, NL, NR, SQRE diff --git a/lapack-netlib/SRC/dlasd2.f b/lapack-netlib/SRC/dlasd2.f index 87a154342..378faa681 100644 --- a/lapack-netlib/SRC/dlasd2.f +++ b/lapack-netlib/SRC/dlasd2.f @@ -254,8 +254,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -269,10 +267,9 @@ $ LDVT, DSIGMA, U2, LDU2, VT2, LDVT2, IDXP, IDX, $ IDXC, IDXQ, COLTYP, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, K, LDU, LDU2, LDVT, LDVT2, NL, NR, SQRE diff --git a/lapack-netlib/SRC/dlasd3.f b/lapack-netlib/SRC/dlasd3.f index 7662be3e7..df939efc5 100644 --- a/lapack-netlib/SRC/dlasd3.f +++ b/lapack-netlib/SRC/dlasd3.f @@ -209,8 +209,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -224,10 +222,9 @@ $ LDU2, VT, LDVT, VT2, LDVT2, IDXC, CTOT, Z, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, K, LDQ, LDU, LDU2, LDVT, LDVT2, NL, NR, diff --git a/lapack-netlib/SRC/dlasd4.f b/lapack-netlib/SRC/dlasd4.f index 8b4a8762c..acfd896b3 100644 --- a/lapack-netlib/SRC/dlasd4.f +++ b/lapack-netlib/SRC/dlasd4.f @@ -140,8 +140,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -153,10 +151,9 @@ * ===================================================================== SUBROUTINE DLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I, INFO, N diff --git a/lapack-netlib/SRC/dlasd5.f b/lapack-netlib/SRC/dlasd5.f index 4896ba6b9..645c2fdc3 100644 --- a/lapack-netlib/SRC/dlasd5.f +++ b/lapack-netlib/SRC/dlasd5.f @@ -103,8 +103,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -116,10 +114,9 @@ * ===================================================================== SUBROUTINE DLASD5( I, D, Z, DELTA, RHO, DSIGMA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I diff --git a/lapack-netlib/SRC/dlasd6.f b/lapack-netlib/SRC/dlasd6.f index 5cab78a07..51e67588d 100644 --- a/lapack-netlib/SRC/dlasd6.f +++ b/lapack-netlib/SRC/dlasd6.f @@ -297,8 +297,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -313,10 +311,9 @@ $ LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK, $ IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, diff --git a/lapack-netlib/SRC/dlasd7.f b/lapack-netlib/SRC/dlasd7.f index 66f665cf8..ff9ba4c36 100644 --- a/lapack-netlib/SRC/dlasd7.f +++ b/lapack-netlib/SRC/dlasd7.f @@ -264,8 +264,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -280,10 +278,9 @@ $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ C, S, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, diff --git a/lapack-netlib/SRC/dlasd8.f b/lapack-netlib/SRC/dlasd8.f index fc5c48c52..a769bdb22 100644 --- a/lapack-netlib/SRC/dlasd8.f +++ b/lapack-netlib/SRC/dlasd8.f @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -166,10 +164,9 @@ SUBROUTINE DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDDIFR, $ DSIGMA, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, K, LDDIFR diff --git a/lapack-netlib/SRC/dlasda.f b/lapack-netlib/SRC/dlasda.f index f41a108b8..3e169a4ed 100644 --- a/lapack-netlib/SRC/dlasda.f +++ b/lapack-netlib/SRC/dlasda.f @@ -258,8 +258,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -273,10 +271,9 @@ $ DIFL, DIFR, Z, POLES, GIVPTR, GIVCOL, LDGCOL, $ PERM, GIVNUM, C, S, WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDGCOL, LDU, N, SMLSIZ, SQRE diff --git a/lapack-netlib/SRC/dlasdq.f b/lapack-netlib/SRC/dlasdq.f index e7d3575a9..0c39b24f0 100644 --- a/lapack-netlib/SRC/dlasdq.f +++ b/lapack-netlib/SRC/dlasdq.f @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -211,10 +209,9 @@ SUBROUTINE DLASDQ( UPLO, SQRE, N, NCVT, NRU, NCC, D, E, VT, LDVT, $ U, LDU, C, LDC, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlasdt.f b/lapack-netlib/SRC/dlasdt.f index 37da2d035..0d9999ea6 100644 --- a/lapack-netlib/SRC/dlasdt.f +++ b/lapack-netlib/SRC/dlasdt.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -105,10 +103,9 @@ * ===================================================================== SUBROUTINE DLASDT( N, LVL, ND, INODE, NDIML, NDIMR, MSUB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LVL, MSUB, N, ND diff --git a/lapack-netlib/SRC/dlaset.f b/lapack-netlib/SRC/dlaset.f index 3a0c469a3..625c757b6 100644 --- a/lapack-netlib/SRC/dlaset.f +++ b/lapack-netlib/SRC/dlaset.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE DLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlasq1.f b/lapack-netlib/SRC/dlasq1.f index 468676eeb..27fa30736 100644 --- a/lapack-netlib/SRC/dlasq1.f +++ b/lapack-netlib/SRC/dlasq1.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLASQ1( N, D, E, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/dlasq2.f b/lapack-netlib/SRC/dlasq2.f index 27eb1f79a..608ca7a61 100644 --- a/lapack-netlib/SRC/dlasq2.f +++ b/lapack-netlib/SRC/dlasq2.f @@ -95,8 +95,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Further Details: @@ -112,10 +110,9 @@ * ===================================================================== SUBROUTINE DLASQ2( N, Z, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N @@ -275,8 +272,7 @@ * * 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 + IEEE = ( ILAENV( 10, 'DLASQ2', 'N', 1, 2, 3, 4 ).EQ.1 ) * * Rearrange data for locality: Z=(q1,qq1,e1,ee1,q2,qq2,e2,ee2,...). * diff --git a/lapack-netlib/SRC/dlasq3.f b/lapack-netlib/SRC/dlasq3.f index c095bdbbb..e4bdafe06 100644 --- a/lapack-netlib/SRC/dlasq3.f +++ b/lapack-netlib/SRC/dlasq3.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== @@ -182,10 +180,9 @@ $ ITER, NDIV, IEEE, TTYPE, DMIN1, DMIN2, DN, DN1, $ DN2, G, TAU ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL IEEE diff --git a/lapack-netlib/SRC/dlasq4.f b/lapack-netlib/SRC/dlasq4.f index d4ddbbc7b..2652ddb2b 100644 --- a/lapack-netlib/SRC/dlasq4.f +++ b/lapack-netlib/SRC/dlasq4.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * *> \par Further Details: @@ -151,10 +149,9 @@ SUBROUTINE DLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ DN1, DN2, TAU, TTYPE, G ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER I0, N0, N0IN, PP, TTYPE diff --git a/lapack-netlib/SRC/dlasq5.f b/lapack-netlib/SRC/dlasq5.f index 3812c879f..5679ab60a 100644 --- a/lapack-netlib/SRC/dlasq5.f +++ b/lapack-netlib/SRC/dlasq5.f @@ -136,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, $ DN, DNM1, DNM2, IEEE, EPS ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL IEEE diff --git a/lapack-netlib/SRC/dlasq6.f b/lapack-netlib/SRC/dlasq6.f index d871386bd..9218b5060 100644 --- a/lapack-netlib/SRC/dlasq6.f +++ b/lapack-netlib/SRC/dlasq6.f @@ -111,18 +111,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, $ DNM1, DNM2 ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I0, N0, PP diff --git a/lapack-netlib/SRC/dlasr.f b/lapack-netlib/SRC/dlasr.f index f707970e4..dd0cedd85 100644 --- a/lapack-netlib/SRC/dlasr.f +++ b/lapack-netlib/SRC/dlasr.f @@ -192,17 +192,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE DLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, PIVOT, SIDE diff --git a/lapack-netlib/SRC/dlasrt.f b/lapack-netlib/SRC/dlasrt.f index 4705311d7..d789239e3 100644 --- a/lapack-netlib/SRC/dlasrt.f +++ b/lapack-netlib/SRC/dlasrt.f @@ -81,17 +81,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DLASRT( ID, N, D, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER ID diff --git a/lapack-netlib/SRC/dlassq.f b/lapack-netlib/SRC/dlassq.f deleted file mode 100644 index 5922360f9..000000000 --- a/lapack-netlib/SRC/dlassq.f +++ /dev/null @@ -1,155 +0,0 @@ -*> \brief \b DLASSQ updates a sum of squares represented in scaled form. -* -* =========== DOCUMENTATION =========== -* -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ -* -*> \htmlonly -*> Download DLASSQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> -*> [TXT] -*> \endhtmlonly -* -* Definition: -* =========== -* -* SUBROUTINE DLASSQ( N, X, INCX, SCALE, SUMSQ ) -* -* .. Scalar Arguments .. -* INTEGER INCX, N -* DOUBLE PRECISION SCALE, SUMSQ -* .. -* .. Array Arguments .. -* DOUBLE PRECISION X( * ) -* .. -* -* -*> \par Purpose: -* ============= -*> -*> \verbatim -*> -*> DLASSQ returns the values scl and smsq such that -*> -*> ( scl**2 )*smsq = x( 1 )**2 +...+ x( n )**2 + ( scale**2 )*sumsq, -*> -*> where x( i ) = X( 1 + ( i - 1 )*INCX ). The value of sumsq is -*> assumed to be non-negative and scl returns the value -*> -*> scl = max( scale, abs( x( i ) ) ). -*> -*> scale and sumsq must be supplied in SCALE and SUMSQ and -*> scl and smsq are overwritten on SCALE and SUMSQ respectively. -*> -*> The routine makes only one pass through the vector x. -*> \endverbatim -* -* Arguments: -* ========== -* -*> \param[in] N -*> \verbatim -*> N is INTEGER -*> The number of elements to be used from the vector X. -*> \endverbatim -*> -*> \param[in] X -*> \verbatim -*> X is DOUBLE PRECISION array, dimension (1+(N-1)*INCX) -*> The vector for which a scaled sum of squares is computed. -*> x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. -*> \endverbatim -*> -*> \param[in] INCX -*> \verbatim -*> INCX is INTEGER -*> The increment between successive values of the vector X. -*> INCX > 0. -*> \endverbatim -*> -*> \param[in,out] SCALE -*> \verbatim -*> SCALE is DOUBLE PRECISION -*> On entry, the value scale in the equation above. -*> On exit, SCALE is overwritten with scl , the scaling factor -*> for the sum of squares. -*> \endverbatim -*> -*> \param[in,out] SUMSQ -*> \verbatim -*> SUMSQ is DOUBLE PRECISION -*> On entry, the value sumsq in the equation above. -*> On exit, SUMSQ is overwritten with smsq , the basic sum of -*> squares from which scl has been factored out. -*> \endverbatim -* -* Authors: -* ======== -* -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. -* -*> \date December 2016 -* -*> \ingroup OTHERauxiliary -* -* ===================================================================== - SUBROUTINE DLASSQ( N, X, INCX, SCALE, SUMSQ ) -* -* -- LAPACK auxiliary routine (version 3.7.0) -- -* -- LAPACK is a software package provided by Univ. of Tennessee, -- -* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 -* -* .. Scalar Arguments .. - INTEGER INCX, N - DOUBLE PRECISION SCALE, SUMSQ -* .. -* .. Array Arguments .. - DOUBLE PRECISION X( * ) -* .. -* -* ===================================================================== -* -* .. Parameters .. - DOUBLE PRECISION ZERO - PARAMETER ( ZERO = 0.0D+0 ) -* .. -* .. Local Scalars .. - INTEGER IX - DOUBLE PRECISION ABSXI -* .. -* .. External Functions .. - LOGICAL DISNAN - EXTERNAL DISNAN -* .. -* .. Intrinsic Functions .. - INTRINSIC ABS -* .. -* .. Executable Statements .. -* - IF( N.GT.0 ) THEN - DO 10 IX = 1, 1 + ( N-1 )*INCX, INCX - ABSXI = ABS( X( IX ) ) - IF( ABSXI.GT.ZERO.OR.DISNAN( ABSXI ) ) THEN - IF( SCALE.LT.ABSXI ) THEN - SUMSQ = 1 + SUMSQ*( SCALE / ABSXI )**2 - SCALE = ABSXI - ELSE - SUMSQ = SUMSQ + ( ABSXI / SCALE )**2 - END IF - END IF - 10 CONTINUE - END IF - RETURN -* -* End of DLASSQ -* - END diff --git a/lapack-netlib/SRC/dlassq.f90 b/lapack-netlib/SRC/dlassq.f90 new file mode 100644 index 000000000..fddd1bf38 --- /dev/null +++ b/lapack-netlib/SRC/dlassq.f90 @@ -0,0 +1,253 @@ +!> \brief \b DLASSQ updates a sum of squares represented in scaled form. +! +! =========== DOCUMENTATION =========== +! +! Online html documentation available at +! http://www.netlib.org/lapack/explore-html/ +! +!> \htmlonly +!> Download DLASSQ + dependencies +!> +!> [TGZ] +!> +!> [ZIP] +!> +!> [TXT] +!> \endhtmlonly +! +! Definition: +! =========== +! +! SUBROUTINE DLASSQ( N, X, INCX, SCALE, SUMSQ ) +! +! .. Scalar Arguments .. +! INTEGER INCX, N +! DOUBLE PRECISION SCALE, SUMSQ +! .. +! .. Array Arguments .. +! DOUBLE PRECISION X( * ) +! .. +! +! +!> \par Purpose: +! ============= +!> +!> \verbatim +!> +!> DLASSQ returns the values scl and smsq such that +!> +!> ( scl**2 )*smsq = x( 1 )**2 +...+ x( n )**2 + ( scale**2 )*sumsq, +!> +!> where x( i ) = X( 1 + ( i - 1 )*INCX ). The value of sumsq is +!> assumed to be non-negative. +!> +!> scale and sumsq must be supplied in SCALE and SUMSQ and +!> scl and smsq are overwritten on SCALE and SUMSQ respectively. +!> +!> If scale * sqrt( sumsq ) > tbig then +!> we require: scale >= sqrt( TINY*EPS ) / sbig on entry, +!> and if 0 < scale * sqrt( sumsq ) < tsml then +!> we require: scale <= sqrt( HUGE ) / ssml on entry, +!> where +!> tbig -- upper threshold for values whose square is representable; +!> sbig -- scaling constant for big numbers; \see la_constants.f90 +!> tsml -- lower threshold for values whose square is representable; +!> ssml -- scaling constant for small numbers; \see la_constants.f90 +!> and +!> TINY*EPS -- tiniest representable number; +!> HUGE -- biggest representable number. +!> +!> \endverbatim +! +! Arguments: +! ========== +! +!> \param[in] N +!> \verbatim +!> N is INTEGER +!> The number of elements to be used from the vector x. +!> \endverbatim +!> +!> \param[in] X +!> \verbatim +!> X is DOUBLE PRECISION array, dimension (1+(N-1)*abs(INCX)) +!> The vector for which a scaled sum of squares is computed. +!> x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. +!> \endverbatim +!> +!> \param[in] INCX +!> \verbatim +!> INCX is INTEGER +!> The increment between successive values of the vector x. +!> If INCX > 0, X(1+(i-1)*INCX) = x(i) for 1 <= i <= n +!> If INCX < 0, X(1-(n-i)*INCX) = x(i) for 1 <= i <= n +!> If INCX = 0, x isn't a vector so there is no need to call +!> this subroutine. If you call it anyway, it will count x(1) +!> in the vector norm N times. +!> \endverbatim +!> +!> \param[in,out] SCALE +!> \verbatim +!> SCALE is DOUBLE PRECISION +!> On entry, the value scale in the equation above. +!> On exit, SCALE is overwritten with scl , the scaling factor +!> for the sum of squares. +!> \endverbatim +!> +!> \param[in,out] SUMSQ +!> \verbatim +!> SUMSQ is DOUBLE PRECISION +!> On entry, the value sumsq in the equation above. +!> On exit, SUMSQ is overwritten with smsq , the basic sum of +!> squares from which scl has been factored out. +!> \endverbatim +! +! Authors: +! ======== +! +!> \author Edward Anderson, Lockheed Martin +! +!> \par Contributors: +! ================== +!> +!> Weslley Pereira, University of Colorado Denver, USA +!> Nick Papior, Technical University of Denmark, DK +! +!> \par Further Details: +! ===================== +!> +!> \verbatim +!> +!> Anderson E. (2017) +!> Algorithm 978: Safe Scaling in the Level 1 BLAS +!> ACM Trans Math Softw 44:1--28 +!> https://doi.org/10.1145/3061665 +!> +!> Blue, James L. (1978) +!> A Portable Fortran Program to Find the Euclidean Norm of a Vector +!> ACM Trans Math Softw 4:15--23 +!> https://doi.org/10.1145/355769.355771 +!> +!> \endverbatim +! +!> \ingroup OTHERauxiliary +! +! ===================================================================== +subroutine DLASSQ( n, x, incx, scl, sumsq ) + use LA_CONSTANTS, & + only: wp=>dp, zero=>dzero, one=>done, & + sbig=>dsbig, ssml=>dssml, tbig=>dtbig, tsml=>dtsml + use LA_XISNAN +! +! -- LAPACK auxiliary routine -- +! -- LAPACK is a software package provided by Univ. of Tennessee, -- +! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +! +! .. Scalar Arguments .. + integer :: incx, n + real(wp) :: scl, sumsq +! .. +! .. Array Arguments .. + real(wp) :: x(*) +! .. +! .. Local Scalars .. + integer :: i, ix + logical :: notbig + real(wp) :: abig, amed, asml, ax, ymax, ymin +! .. +! +! Quick return if possible +! + if( LA_ISNAN(scl) .or. LA_ISNAN(sumsq) ) return + if( sumsq == zero ) scl = one + if( scl == zero ) then + scl = one + sumsq = zero + end if + if (n <= 0) then + return + end if +! +! Compute the sum of squares in 3 accumulators: +! abig -- sums of squares scaled down to avoid overflow +! asml -- sums of squares scaled up to avoid underflow +! amed -- sums of squares that do not require scaling +! The thresholds and multipliers are +! tbig -- values bigger than this are scaled down by sbig +! tsml -- values smaller than this are scaled up by ssml +! + notbig = .true. + asml = zero + amed = zero + abig = zero + ix = 1 + if( incx < 0 ) ix = 1 - (n-1)*incx + do i = 1, n + ax = abs(x(ix)) + if (ax > tbig) then + abig = abig + (ax*sbig)**2 + notbig = .false. + else if (ax < tsml) then + if (notbig) asml = asml + (ax*ssml)**2 + else + amed = amed + ax**2 + end if + ix = ix + incx + end do +! +! Put the existing sum of squares into one of the accumulators +! + if( sumsq > zero ) then + ax = scl*sqrt( sumsq ) + if (ax > tbig) then +! We assume scl >= sqrt( TINY*EPS ) / sbig + abig = abig + (scl*sbig)**2 * sumsq + else if (ax < tsml) then +! We assume scl <= sqrt( HUGE ) / ssml + if (notbig) asml = asml + (scl*ssml)**2 * sumsq + else + amed = amed + scl**2 * sumsq + end if + end if +! +! Combine abig and amed or amed and asml if more than one +! accumulator was used. +! + if (abig > zero) then +! +! Combine abig and amed if abig > 0. +! + if (amed > zero .or. LA_ISNAN(amed)) then + abig = abig + (amed*sbig)*sbig + end if + scl = one / sbig + sumsq = abig + else if (asml > zero) then +! +! Combine amed and asml if asml > 0. +! + if (amed > zero .or. LA_ISNAN(amed)) then + amed = sqrt(amed) + asml = sqrt(asml) / ssml + if (asml > amed) then + ymin = amed + ymax = asml + else + ymin = asml + ymax = amed + end if + scl = one + sumsq = ymax**2*( one + (ymin/ymax)**2 ) + else + scl = one / ssml + sumsq = asml + end if + else +! +! Otherwise all values are mid-range or zero +! + scl = one + sumsq = amed + end if + return +end subroutine diff --git a/lapack-netlib/SRC/dlasv2.f b/lapack-netlib/SRC/dlasv2.f index 9371d6d3b..64a06dee1 100644 --- a/lapack-netlib/SRC/dlasv2.f +++ b/lapack-netlib/SRC/dlasv2.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE DLASV2( F, G, H, SSMIN, SSMAX, SNR, CSR, SNL, CSL ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION CSL, CSR, F, G, H, SNL, SNR, SSMAX, SSMIN diff --git a/lapack-netlib/SRC/dlaswlq.f b/lapack-netlib/SRC/dlaswlq.f index 619a1f1a2..fb8857145 100644 --- a/lapack-netlib/SRC/dlaswlq.f +++ b/lapack-netlib/SRC/dlaswlq.f @@ -27,9 +27,9 @@ *> where: *> *> Q is a n-by-N orthogonal matrix, stored on exit in an implicit -*> form in the elements above the digonal of the array A and in -*> the elemenst of the array T; -*> L is an lower-triangular M-by-M matrix stored on exit in +*> form in the elements above the diagonal of the array A and in +*> the elements of the array T; +*> L is a lower-triangular M-by-M matrix stored on exit in *> the elements on and below the diagonal of the array A. *> 0 is a M-by-(N-M) zero matrix, if M < N, and is not stored. *> @@ -60,7 +60,7 @@ *> \verbatim *> NB is INTEGER *> The column block size to be used in the blocked QR. -*> NB > M. +*> NB > 0. *> \endverbatim *> *> \param[in,out] A @@ -162,10 +162,9 @@ SUBROUTINE DLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, $ INFO) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, MB, NB, LWORK, LDT @@ -203,10 +202,10 @@ INFO = -2 ELSE IF( MB.LT.1 .OR. ( MB.GT.M .AND. M.GT.0 )) THEN INFO = -3 - ELSE IF( NB.LE.M ) THEN + ELSE IF( NB.LT.0 ) THEN INFO = -4 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN - INFO = -5 + INFO = -6 ELSE IF( LDT.LT.MB ) THEN INFO = -8 ELSE IF( ( LWORK.LT.M*MB) .AND. (.NOT.LQUERY) ) THEN diff --git a/lapack-netlib/SRC/dlaswp.f b/lapack-netlib/SRC/dlaswp.f index 202fd8df1..b35729a20 100644 --- a/lapack-netlib/SRC/dlaswp.f +++ b/lapack-netlib/SRC/dlaswp.f @@ -99,8 +99,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -115,10 +113,9 @@ * ===================================================================== SUBROUTINE DLASWP( N, A, LDA, K1, K2, IPIV, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INCX, K1, K2, LDA, N diff --git a/lapack-netlib/SRC/dlasy2.f b/lapack-netlib/SRC/dlasy2.f index 2afad2be0..18245202c 100644 --- a/lapack-netlib/SRC/dlasy2.f +++ b/lapack-netlib/SRC/dlasy2.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleSYauxiliary * * ===================================================================== SUBROUTINE DLASY2( LTRANL, LTRANR, ISGN, N1, N2, TL, LDTL, TR, $ LDTR, B, LDB, SCALE, X, LDX, XNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL LTRANL, LTRANR diff --git a/lapack-netlib/SRC/dlasyf.f b/lapack-netlib/SRC/dlasyf.f index de705e4ab..3064f5e1e 100644 --- a/lapack-netlib/SRC/dlasyf.f +++ b/lapack-netlib/SRC/dlasyf.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -176,10 +174,9 @@ * ===================================================================== SUBROUTINE DLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlasyf_aa.f b/lapack-netlib/SRC/dlasyf_aa.f index 793537e04..f6b01ea6c 100644 --- a/lapack-netlib/SRC/dlasyf_aa.f +++ b/lapack-netlib/SRC/dlasyf_aa.f @@ -136,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, $ H, LDH, WORK ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/dlasyf_rk.f b/lapack-netlib/SRC/dlasyf_rk.f index d581eeedc..1a0117738 100644 --- a/lapack-netlib/SRC/dlasyf_rk.f +++ b/lapack-netlib/SRC/dlasyf_rk.f @@ -239,8 +239,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -262,10 +260,9 @@ SUBROUTINE DLASYF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlasyf_rook.f b/lapack-netlib/SRC/dlasyf_rook.f index 557032104..03bcd91a3 100644 --- a/lapack-netlib/SRC/dlasyf_rook.f +++ b/lapack-netlib/SRC/dlasyf_rook.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -184,10 +182,9 @@ SUBROUTINE DLASYF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlat2s.f b/lapack-netlib/SRC/dlat2s.f index fa6cc5d57..3d00fe0a3 100644 --- a/lapack-netlib/SRC/dlat2s.f +++ b/lapack-netlib/SRC/dlat2s.f @@ -104,17 +104,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAT2S( UPLO, N, A, LDA, SA, LDSA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlatbs.f b/lapack-netlib/SRC/dlatbs.f index 1489d53d0..4b71d5399 100644 --- a/lapack-netlib/SRC/dlatbs.f +++ b/lapack-netlib/SRC/dlatbs.f @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -242,10 +240,9 @@ SUBROUTINE DLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, $ SCALE, CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/dlatdf.f b/lapack-netlib/SRC/dlatdf.f index 8001e0830..bb285c495 100644 --- a/lapack-netlib/SRC/dlatdf.f +++ b/lapack-netlib/SRC/dlatdf.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -171,10 +169,9 @@ SUBROUTINE DLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, $ JPIV ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IJOB, LDZ, N diff --git a/lapack-netlib/SRC/dlatps.f b/lapack-netlib/SRC/dlatps.f index c340578f7..0aead8556 100644 --- a/lapack-netlib/SRC/dlatps.f +++ b/lapack-netlib/SRC/dlatps.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -229,10 +227,9 @@ SUBROUTINE DLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/dlatrd.f b/lapack-netlib/SRC/dlatrd.f index a1df43e48..010a85a21 100644 --- a/lapack-netlib/SRC/dlatrd.f +++ b/lapack-netlib/SRC/dlatrd.f @@ -139,8 +139,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -198,10 +196,9 @@ * ===================================================================== SUBROUTINE DLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlatrs.f b/lapack-netlib/SRC/dlatrs.f index 5ad5f66c5..43f92911d 100644 --- a/lapack-netlib/SRC/dlatrs.f +++ b/lapack-netlib/SRC/dlatrs.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -238,10 +236,9 @@ SUBROUTINE DLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/dlatrz.f b/lapack-netlib/SRC/dlatrz.f index 8fbe87585..42b317131 100644 --- a/lapack-netlib/SRC/dlatrz.f +++ b/lapack-netlib/SRC/dlatrz.f @@ -97,8 +97,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -140,10 +138,9 @@ * ===================================================================== SUBROUTINE DLATRZ( M, N, L, A, LDA, TAU, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER L, LDA, M, N diff --git a/lapack-netlib/SRC/dlatsqr.f b/lapack-netlib/SRC/dlatsqr.f index 598d2938e..f5cbb76bb 100644 --- a/lapack-netlib/SRC/dlatsqr.f +++ b/lapack-netlib/SRC/dlatsqr.f @@ -28,8 +28,8 @@ *> where: *> *> Q is a M-by-M orthogonal matrix, stored on exit in an implicit -*> form in the elements below the digonal of the array A and in -*> the elemenst of the array T; +*> form in the elements below the diagonal of the array A and in +*> the elements of the array T; *> *> R is an upper-triangular N-by-N matrix, stored on exit in *> the elements on and above the diagonal of the array A. @@ -57,7 +57,7 @@ *> \verbatim *> MB is INTEGER *> The row block size to be used in the blocked QR. -*> MB > N. +*> MB > 0. *> \endverbatim *> *> \param[in] NB @@ -164,10 +164,9 @@ SUBROUTINE DLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, $ LWORK, INFO) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, MB, NB, LDT, LWORK @@ -203,12 +202,12 @@ INFO = -1 ELSE IF( N.LT.0 .OR. M.LT.N ) THEN INFO = -2 - ELSE IF( MB.LE.N ) THEN + ELSE IF( MB.LT.1 ) THEN INFO = -3 ELSE IF( NB.LT.1 .OR. ( NB.GT.N .AND. N.GT.0 )) THEN INFO = -4 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN - INFO = -5 + INFO = -6 ELSE IF( LDT.LT.NB ) THEN INFO = -8 ELSE IF( LWORK.LT.(N*NB) .AND. (.NOT.LQUERY) ) THEN diff --git a/lapack-netlib/SRC/dlauu2.f b/lapack-netlib/SRC/dlauu2.f index 59cff2561..a026d96de 100644 --- a/lapack-netlib/SRC/dlauu2.f +++ b/lapack-netlib/SRC/dlauu2.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAUU2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dlauum.f b/lapack-netlib/SRC/dlauum.f index 31b1ddd06..b832eaa86 100644 --- a/lapack-netlib/SRC/dlauum.f +++ b/lapack-netlib/SRC/dlauum.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DLAUUM( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dopgtr.f b/lapack-netlib/SRC/dopgtr.f index 0e061b219..214030ffb 100644 --- a/lapack-netlib/SRC/dopgtr.f +++ b/lapack-netlib/SRC/dopgtr.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DOPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dopmtr.f b/lapack-netlib/SRC/dopmtr.f index dd9286b35..c18074dec 100644 --- a/lapack-netlib/SRC/dopmtr.f +++ b/lapack-netlib/SRC/dopmtr.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DOPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, UPLO diff --git a/lapack-netlib/SRC/dorbdb.f b/lapack-netlib/SRC/dorbdb.f index d61657994..3edfda6b8 100644 --- a/lapack-netlib/SRC/dorbdb.f +++ b/lapack-netlib/SRC/dorbdb.f @@ -255,8 +255,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -287,10 +285,9 @@ $ X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, $ TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIGNS, TRANS diff --git a/lapack-netlib/SRC/dorbdb1.f b/lapack-netlib/SRC/dorbdb1.f index 675028acd..dae18f5df 100644 --- a/lapack-netlib/SRC/dorbdb1.f +++ b/lapack-netlib/SRC/dorbdb1.f @@ -174,8 +174,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -203,10 +201,9 @@ SUBROUTINE DORBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/dorbdb2.f b/lapack-netlib/SRC/dorbdb2.f index ea43d4fcb..64e4645bc 100644 --- a/lapack-netlib/SRC/dorbdb2.f +++ b/lapack-netlib/SRC/dorbdb2.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -202,10 +200,9 @@ SUBROUTINE DORBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/dorbdb3.f b/lapack-netlib/SRC/dorbdb3.f index f5667b43b..7b3727956 100644 --- a/lapack-netlib/SRC/dorbdb3.f +++ b/lapack-netlib/SRC/dorbdb3.f @@ -172,8 +172,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -201,10 +199,9 @@ SUBROUTINE DORBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/dorbdb4.f b/lapack-netlib/SRC/dorbdb4.f index ff141b99f..a09568415 100644 --- a/lapack-netlib/SRC/dorbdb4.f +++ b/lapack-netlib/SRC/dorbdb4.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -213,10 +211,9 @@ $ TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/dorbdb5.f b/lapack-netlib/SRC/dorbdb5.f index 313c6d5ed..6e057a05f 100644 --- a/lapack-netlib/SRC/dorbdb5.f +++ b/lapack-netlib/SRC/dorbdb5.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, $ LDQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, diff --git a/lapack-netlib/SRC/dorbdb6.f b/lapack-netlib/SRC/dorbdb6.f index c92c9fede..fac52f760 100644 --- a/lapack-netlib/SRC/dorbdb6.f +++ b/lapack-netlib/SRC/dorbdb6.f @@ -146,18 +146,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, $ LDQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, diff --git a/lapack-netlib/SRC/dorcsd.f b/lapack-netlib/SRC/dorcsd.f index f0284ce6e..86463bd9b 100644 --- a/lapack-netlib/SRC/dorcsd.f +++ b/lapack-netlib/SRC/dorcsd.f @@ -289,8 +289,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== @@ -300,10 +298,9 @@ $ U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, $ LDV2T, WORK, LWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS diff --git a/lapack-netlib/SRC/dorcsd2by1.f b/lapack-netlib/SRC/dorcsd2by1.f index 4f9880017..06bf53db1 100644 --- a/lapack-netlib/SRC/dorcsd2by1.f +++ b/lapack-netlib/SRC/dorcsd2by1.f @@ -224,8 +224,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== @@ -236,7 +234,6 @@ * -- LAPACK computational routine (3.5.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T @@ -674,6 +671,9 @@ * * Accumulate Householder reflectors * + IF( WANTU2 .AND. M-P .GT. 0 ) THEN + CALL DCOPY( M-P, WORK(IORBDB+P), 1, U2, 1 ) + END IF IF( WANTU1 .AND. P .GT. 0 ) THEN CALL DCOPY( P, WORK(IORBDB), 1, U1, 1 ) DO J = 2, P @@ -685,7 +685,6 @@ $ WORK(IORGQR), LORGQR, CHILDINFO ) END IF IF( WANTU2 .AND. M-P .GT. 0 ) THEN - CALL DCOPY( M-P, WORK(IORBDB+P), 1, U2, 1 ) DO J = 2, M-P U2(1,J) = ZERO END DO diff --git a/lapack-netlib/SRC/dorg2l.f b/lapack-netlib/SRC/dorg2l.f index 36ff4e5d4..0a42d4cf5 100644 --- a/lapack-netlib/SRC/dorg2l.f +++ b/lapack-netlib/SRC/dorg2l.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORG2L( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/dorg2r.f b/lapack-netlib/SRC/dorg2r.f index 4b71011a9..c64ad4b0a 100644 --- a/lapack-netlib/SRC/dorg2r.f +++ b/lapack-netlib/SRC/dorg2r.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORG2R( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/dorgbr.f b/lapack-netlib/SRC/dorgbr.f index 6868fc38d..1b242ff97 100644 --- a/lapack-netlib/SRC/dorgbr.f +++ b/lapack-netlib/SRC/dorgbr.f @@ -150,17 +150,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleGBcomputational * * ===================================================================== SUBROUTINE DORGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER VECT diff --git a/lapack-netlib/SRC/dorghr.f b/lapack-netlib/SRC/dorghr.f index 7f60c6854..2feb39b5a 100644 --- a/lapack-netlib/SRC/dorghr.f +++ b/lapack-netlib/SRC/dorghr.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/dorgl2.f b/lapack-netlib/SRC/dorgl2.f index 5d8985d75..ce1d2c675 100644 --- a/lapack-netlib/SRC/dorgl2.f +++ b/lapack-netlib/SRC/dorgl2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORGL2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/dorglq.f b/lapack-netlib/SRC/dorglq.f index 912b5de84..8c37c18b7 100644 --- a/lapack-netlib/SRC/dorglq.f +++ b/lapack-netlib/SRC/dorglq.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dorgql.f b/lapack-netlib/SRC/dorgql.f index ea12be91b..45e5bf19f 100644 --- a/lapack-netlib/SRC/dorgql.f +++ b/lapack-netlib/SRC/dorgql.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dorgqr.f b/lapack-netlib/SRC/dorgqr.f index 628eeacba..a41ce7ed5 100644 --- a/lapack-netlib/SRC/dorgqr.f +++ b/lapack-netlib/SRC/dorgqr.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dorgr2.f b/lapack-netlib/SRC/dorgr2.f index 7c5dce1d7..5244c85fd 100644 --- a/lapack-netlib/SRC/dorgr2.f +++ b/lapack-netlib/SRC/dorgr2.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORGR2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/dorgrq.f b/lapack-netlib/SRC/dorgrq.f index b76fb37ed..7e09f94e5 100644 --- a/lapack-netlib/SRC/dorgrq.f +++ b/lapack-netlib/SRC/dorgrq.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dorgtr.f b/lapack-netlib/SRC/dorgtr.f index 72623eac0..0a0ab15a7 100644 --- a/lapack-netlib/SRC/dorgtr.f +++ b/lapack-netlib/SRC/dorgtr.f @@ -116,17 +116,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dorgtsqr.f b/lapack-netlib/SRC/dorgtsqr.f index 85b05b6b5..34d96b238 100644 --- a/lapack-netlib/SRC/dorgtsqr.f +++ b/lapack-netlib/SRC/dorgtsqr.f @@ -13,7 +13,8 @@ *> [ZIP] *> *> [TXT] -*> +*> \endhtmlonly +* * Definition: * =========== * @@ -155,8 +156,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -175,10 +174,9 @@ $ INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, LWORK, M, N, MB, NB diff --git a/lapack-netlib/SRC/dorhr_col.f b/lapack-netlib/SRC/dorhr_col.f index b5a65973d..a9363c1a5 100644 --- a/lapack-netlib/SRC/dorhr_col.f +++ b/lapack-netlib/SRC/dorhr_col.f @@ -13,7 +13,8 @@ *> [ZIP] *> *> [TXT] -*> +*> \endhtmlonly +* * Definition: * =========== * @@ -112,7 +113,7 @@ *> blocks (same format as the output T in DGEQRT). *> The matrix T and the matrix V stored on output in A *> implicitly define Q_out. NOTE: The lower triangles -*> below the upper-triangular blcoks will be filled with +*> below the upper-triangular blocks will be filled with *> zeros. See Further Details. *> \endverbatim *> @@ -217,11 +218,11 @@ *> If Q_in is the result of doing a QR factorization *> B = Q_in * R_in, then: *> -*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = O_out * R_out. +*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = Q_out * R_out. *> *> So if one wants to interpret Q_out as the result -*> of the QR factorization of B, then corresponding R_out -*> should be obtained by R_out = S * R_in, i.e. some rows of R_in +*> of the QR factorization of B, then the corresponding R_out +*> should be equal to R_out = S * R_in, i.e. some rows of R_in *> should be multiplied by -1. *> *> For the details of the algorithm, see [1]. @@ -240,8 +241,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -259,10 +258,9 @@ SUBROUTINE DORHR_COL( M, N, NB, A, LDA, T, LDT, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, NB diff --git a/lapack-netlib/SRC/dorm22.f b/lapack-netlib/SRC/dorm22.f index aac47109d..7a2566040 100644 --- a/lapack-netlib/SRC/dorm22.f +++ b/lapack-netlib/SRC/dorm22.f @@ -155,18 +155,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE DORM22( SIDE, TRANS, M, N, N1, N2, Q, LDQ, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/dorm2l.f b/lapack-netlib/SRC/dorm2l.f index 1014cb237..c99039c54 100644 --- a/lapack-netlib/SRC/dorm2l.f +++ b/lapack-netlib/SRC/dorm2l.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/dorm2r.f b/lapack-netlib/SRC/dorm2r.f index 632b70e74..ac88eec8d 100644 --- a/lapack-netlib/SRC/dorm2r.f +++ b/lapack-netlib/SRC/dorm2r.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/dormbr.f b/lapack-netlib/SRC/dormbr.f index f035d0ae6..86abb1007 100644 --- a/lapack-netlib/SRC/dormbr.f +++ b/lapack-netlib/SRC/dormbr.f @@ -187,18 +187,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, VECT @@ -240,10 +237,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.APPLYQ .AND. .NOT.LSAME( VECT, 'P' ) ) THEN INFO = -1 @@ -263,7 +260,7 @@ INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * @@ -285,7 +282,7 @@ $ -1 ) END IF END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/dormhr.f b/lapack-netlib/SRC/dormhr.f index d1e214e0f..1cf173174 100644 --- a/lapack-netlib/SRC/dormhr.f +++ b/lapack-netlib/SRC/dormhr.f @@ -170,18 +170,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -221,10 +218,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -243,7 +240,7 @@ INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * @@ -253,7 +250,7 @@ ELSE NB = ILAENV( 1, 'DORMQR', SIDE // TRANS, M, NH, NH, -1 ) END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/dorml2.f b/lapack-netlib/SRC/dorml2.f index 2c55c7f1f..a9ddd460d 100644 --- a/lapack-netlib/SRC/dorml2.f +++ b/lapack-netlib/SRC/dorml2.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/dormlq.f b/lapack-netlib/SRC/dormlq.f index bb5469d27..ef039285a 100644 --- a/lapack-netlib/SRC/dormlq.f +++ b/lapack-netlib/SRC/dormlq.f @@ -159,18 +159,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -217,10 +214,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -236,7 +233,7 @@ INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -246,7 +243,7 @@ * NB = MIN( NBMAX, ILAENV( 1, 'DORMLQ', SIDE // TRANS, M, N, K, $ -1 ) ) - LWKOPT = MAX( 1, NW )*NB + TSIZE + LWKOPT = NW*NB + TSIZE WORK( 1 ) = LWKOPT END IF * @@ -267,7 +264,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'DORMLQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/dormql.f b/lapack-netlib/SRC/dormql.f index 7d2b5d6c3..7c9f189e0 100644 --- a/lapack-netlib/SRC/dormql.f +++ b/lapack-netlib/SRC/dormql.f @@ -159,18 +159,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -269,7 +266,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'DORMQL', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/dormqr.f b/lapack-netlib/SRC/dormqr.f index 7f2ebb9ac..4d0bae3a5 100644 --- a/lapack-netlib/SRC/dormqr.f +++ b/lapack-netlib/SRC/dormqr.f @@ -159,18 +159,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -216,10 +213,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -235,7 +232,7 @@ INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -245,7 +242,7 @@ * NB = MIN( NBMAX, ILAENV( 1, 'DORMQR', SIDE // TRANS, M, N, K, $ -1 ) ) - LWKOPT = MAX( 1, NW )*NB + TSIZE + LWKOPT = NW*NB + TSIZE WORK( 1 ) = LWKOPT END IF * @@ -266,7 +263,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'DORMQR', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/dormr2.f b/lapack-netlib/SRC/dormr2.f index 129ee1b49..8f15c6eb4 100644 --- a/lapack-netlib/SRC/dormr2.f +++ b/lapack-netlib/SRC/dormr2.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/dormr3.f b/lapack-netlib/SRC/dormr3.f index 5f20db724..9eaef200a 100644 --- a/lapack-netlib/SRC/dormr3.f +++ b/lapack-netlib/SRC/dormr3.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -178,10 +176,9 @@ SUBROUTINE DORMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/dormrq.f b/lapack-netlib/SRC/dormrq.f index 421bd104b..43422f958 100644 --- a/lapack-netlib/SRC/dormrq.f +++ b/lapack-netlib/SRC/dormrq.f @@ -159,18 +159,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -270,7 +267,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'DORMRQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/dormrz.f b/lapack-netlib/SRC/dormrz.f index 8e1bd56cc..0dea1b5ff 100644 --- a/lapack-netlib/SRC/dormrz.f +++ b/lapack-netlib/SRC/dormrz.f @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -187,10 +185,9 @@ SUBROUTINE DORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -259,7 +256,7 @@ INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * @@ -294,7 +291,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'DORMRQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/dormtr.f b/lapack-netlib/SRC/dormtr.f index d2443c1da..1f664d63c 100644 --- a/lapack-netlib/SRC/dormtr.f +++ b/lapack-netlib/SRC/dormtr.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DORMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, UPLO @@ -214,10 +211,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -234,7 +231,7 @@ INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -256,7 +253,7 @@ $ -1 ) END IF END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/dpbcon.f b/lapack-netlib/SRC/dpbcon.f index 41d43dc49..27ea5e234 100644 --- a/lapack-netlib/SRC/dpbcon.f +++ b/lapack-netlib/SRC/dpbcon.f @@ -124,18 +124,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpbequ.f b/lapack-netlib/SRC/dpbequ.f index ec5d4eb76..01c2cd088 100644 --- a/lapack-netlib/SRC/dpbequ.f +++ b/lapack-netlib/SRC/dpbequ.f @@ -122,17 +122,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpbrfs.f b/lapack-netlib/SRC/dpbrfs.f index 6bc522fa8..d7a854f02 100644 --- a/lapack-netlib/SRC/dpbrfs.f +++ b/lapack-netlib/SRC/dpbrfs.f @@ -181,18 +181,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, $ LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpbstf.f b/lapack-netlib/SRC/dpbstf.f index c104ddbea..61068d9cd 100644 --- a/lapack-netlib/SRC/dpbstf.f +++ b/lapack-netlib/SRC/dpbstf.f @@ -110,8 +110,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -152,10 +150,9 @@ * ===================================================================== SUBROUTINE DPBSTF( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpbsv.f b/lapack-netlib/SRC/dpbsv.f index 535a2d40e..a52e78309 100644 --- a/lapack-netlib/SRC/dpbsv.f +++ b/lapack-netlib/SRC/dpbsv.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERsolve * *> \par Further Details: @@ -164,10 +162,9 @@ * ===================================================================== SUBROUTINE DPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpbsvx.f b/lapack-netlib/SRC/dpbsvx.f index b194d26a4..1bf526fc7 100644 --- a/lapack-netlib/SRC/dpbsvx.f +++ b/lapack-netlib/SRC/dpbsvx.f @@ -302,8 +302,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleOTHERsolve * *> \par Further Details: @@ -343,10 +341,9 @@ $ EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/dpbtf2.f b/lapack-netlib/SRC/dpbtf2.f index fd385322b..534629294 100644 --- a/lapack-netlib/SRC/dpbtf2.f +++ b/lapack-netlib/SRC/dpbtf2.f @@ -110,8 +110,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE DPBTF2( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpbtrf.f b/lapack-netlib/SRC/dpbtrf.f index 269e97362..8256f8938 100644 --- a/lapack-netlib/SRC/dpbtrf.f +++ b/lapack-netlib/SRC/dpbtrf.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE DPBTRF( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpbtrs.f b/lapack-netlib/SRC/dpbtrs.f index 08e437399..134b3b1d5 100644 --- a/lapack-netlib/SRC/dpbtrs.f +++ b/lapack-netlib/SRC/dpbtrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpftrf.f b/lapack-netlib/SRC/dpftrf.f index b460f2a5d..980debaf2 100644 --- a/lapack-netlib/SRC/dpftrf.f +++ b/lapack-netlib/SRC/dpftrf.f @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -198,10 +196,9 @@ * ===================================================================== SUBROUTINE DPFTRF( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/dpftri.f b/lapack-netlib/SRC/dpftri.f index adbbfa8ad..dca45d32c 100644 --- a/lapack-netlib/SRC/dpftri.f +++ b/lapack-netlib/SRC/dpftri.f @@ -97,8 +97,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -191,10 +189,9 @@ * ===================================================================== SUBROUTINE DPFTRI( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/dpftrs.f b/lapack-netlib/SRC/dpftrs.f index 9c325064e..adbe677a4 100644 --- a/lapack-netlib/SRC/dpftrs.f +++ b/lapack-netlib/SRC/dpftrs.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -199,10 +197,9 @@ * ===================================================================== SUBROUTINE DPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/dpocon.f b/lapack-netlib/SRC/dpocon.f index 20e9aff6a..4cdc010da 100644 --- a/lapack-netlib/SRC/dpocon.f +++ b/lapack-netlib/SRC/dpocon.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== SUBROUTINE DPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpoequ.f b/lapack-netlib/SRC/dpoequ.f index eb150713d..c6223a6e5 100644 --- a/lapack-netlib/SRC/dpoequ.f +++ b/lapack-netlib/SRC/dpoequ.f @@ -105,17 +105,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== SUBROUTINE DPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/dpoequb.f b/lapack-netlib/SRC/dpoequb.f index fbcc6fe3e..0706834a1 100644 --- a/lapack-netlib/SRC/dpoequb.f +++ b/lapack-netlib/SRC/dpoequb.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== SUBROUTINE DPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/dporfs.f b/lapack-netlib/SRC/dporfs.f index 8fc74fde1..4b4a20937 100644 --- a/lapack-netlib/SRC/dporfs.f +++ b/lapack-netlib/SRC/dporfs.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== SUBROUTINE DPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, $ LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dporfsx.f b/lapack-netlib/SRC/dporfsx.f index 67cca9ccf..a7937f0dc 100644 --- a/lapack-netlib/SRC/dporfsx.f +++ b/lapack-netlib/SRC/dporfsx.f @@ -384,8 +384,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doublePOcomputational * * ===================================================================== @@ -394,10 +392,9 @@ $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/dposv.f b/lapack-netlib/SRC/dposv.f index ab8f00775..ee2988e6f 100644 --- a/lapack-netlib/SRC/dposv.f +++ b/lapack-netlib/SRC/dposv.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOsolve * * ===================================================================== SUBROUTINE DPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dposvx.f b/lapack-netlib/SRC/dposvx.f index cf33c96a3..4a0b9d605 100644 --- a/lapack-netlib/SRC/dposvx.f +++ b/lapack-netlib/SRC/dposvx.f @@ -298,8 +298,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doublePOsolve * * ===================================================================== @@ -307,10 +305,9 @@ $ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, $ IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/dposvxx.f b/lapack-netlib/SRC/dposvxx.f index b0de44910..e74b23c80 100644 --- a/lapack-netlib/SRC/dposvxx.f +++ b/lapack-netlib/SRC/dposvxx.f @@ -484,8 +484,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doublePOsolve * * ===================================================================== @@ -494,10 +492,9 @@ $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/dpotf2.f b/lapack-netlib/SRC/dpotf2.f index 1fb60a903..08fa4957f 100644 --- a/lapack-netlib/SRC/dpotf2.f +++ b/lapack-netlib/SRC/dpotf2.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== SUBROUTINE DPOTF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpotrf.f b/lapack-netlib/SRC/dpotrf.f index 1fa75a465..1679fc3cd 100644 --- a/lapack-netlib/SRC/dpotrf.f +++ b/lapack-netlib/SRC/dpotrf.f @@ -100,17 +100,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== SUBROUTINE DPOTRF( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpotrf2.f b/lapack-netlib/SRC/dpotrf2.f index 0d419c4f0..6c28ce6d6 100644 --- a/lapack-netlib/SRC/dpotrf2.f +++ b/lapack-netlib/SRC/dpotrf2.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== RECURSIVE SUBROUTINE DPOTRF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpotri.f b/lapack-netlib/SRC/dpotri.f index 4d2dcb43b..7daa0c8c4 100644 --- a/lapack-netlib/SRC/dpotri.f +++ b/lapack-netlib/SRC/dpotri.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== SUBROUTINE DPOTRI( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpotrs.f b/lapack-netlib/SRC/dpotrs.f index 4cc5e74f3..862ee078f 100644 --- a/lapack-netlib/SRC/dpotrs.f +++ b/lapack-netlib/SRC/dpotrs.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePOcomputational * * ===================================================================== SUBROUTINE DPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dppcon.f b/lapack-netlib/SRC/dppcon.f index 0e6ab922e..3e3112929 100644 --- a/lapack-netlib/SRC/dppcon.f +++ b/lapack-netlib/SRC/dppcon.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPPCON( UPLO, N, AP, ANORM, RCOND, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dppequ.f b/lapack-netlib/SRC/dppequ.f index 3563b59d1..c99a71e45 100644 --- a/lapack-netlib/SRC/dppequ.f +++ b/lapack-netlib/SRC/dppequ.f @@ -109,17 +109,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpprfs.f b/lapack-netlib/SRC/dpprfs.f index 1c068e21c..d547cb2ef 100644 --- a/lapack-netlib/SRC/dpprfs.f +++ b/lapack-netlib/SRC/dpprfs.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, FERR, $ BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dppsv.f b/lapack-netlib/SRC/dppsv.f index cb70bab43..435703b08 100644 --- a/lapack-netlib/SRC/dppsv.f +++ b/lapack-netlib/SRC/dppsv.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERsolve * *> \par Further Details: @@ -144,10 +142,9 @@ * ===================================================================== SUBROUTINE DPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dppsvx.f b/lapack-netlib/SRC/dppsvx.f index 4fc84ead8..cb41d39ee 100644 --- a/lapack-netlib/SRC/dppsvx.f +++ b/lapack-netlib/SRC/dppsvx.f @@ -283,8 +283,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleOTHERsolve * *> \par Further Details: @@ -311,10 +309,9 @@ SUBROUTINE DPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, $ X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/dpptrf.f b/lapack-netlib/SRC/dpptrf.f index c7f0c35b0..2d8de5110 100644 --- a/lapack-netlib/SRC/dpptrf.f +++ b/lapack-netlib/SRC/dpptrf.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -119,10 +117,9 @@ * ===================================================================== SUBROUTINE DPPTRF( UPLO, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpptri.f b/lapack-netlib/SRC/dpptri.f index 8f16de01e..1f7d14a77 100644 --- a/lapack-netlib/SRC/dpptri.f +++ b/lapack-netlib/SRC/dpptri.f @@ -86,17 +86,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPPTRI( UPLO, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpptrs.f b/lapack-netlib/SRC/dpptrs.f index b4410a512..c5b8eb991 100644 --- a/lapack-netlib/SRC/dpptrs.f +++ b/lapack-netlib/SRC/dpptrs.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dpstf2.f b/lapack-netlib/SRC/dpstf2.f index 53c4d3409..8055fa982 100644 --- a/lapack-netlib/SRC/dpstf2.f +++ b/lapack-netlib/SRC/dpstf2.f @@ -134,17 +134,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION TOL diff --git a/lapack-netlib/SRC/dpstrf.f b/lapack-netlib/SRC/dpstrf.f index 940f46dd7..9987cde57 100644 --- a/lapack-netlib/SRC/dpstrf.f +++ b/lapack-netlib/SRC/dpstrf.f @@ -135,17 +135,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION TOL diff --git a/lapack-netlib/SRC/dptcon.f b/lapack-netlib/SRC/dptcon.f index 84c4ed785..f61906416 100644 --- a/lapack-netlib/SRC/dptcon.f +++ b/lapack-netlib/SRC/dptcon.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePTcomputational * *> \par Further Details: @@ -118,10 +116,9 @@ * ===================================================================== SUBROUTINE DPTCON( N, D, E, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/dpteqr.f b/lapack-netlib/SRC/dpteqr.f index ecfc7755d..aa1f1a80c 100644 --- a/lapack-netlib/SRC/dpteqr.f +++ b/lapack-netlib/SRC/dpteqr.f @@ -138,17 +138,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePTcomputational * * ===================================================================== SUBROUTINE DPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/dptrfs.f b/lapack-netlib/SRC/dptrfs.f index ca038a8df..c3486dbb6 100644 --- a/lapack-netlib/SRC/dptrfs.f +++ b/lapack-netlib/SRC/dptrfs.f @@ -155,18 +155,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePTcomputational * * ===================================================================== SUBROUTINE DPTRFS( N, NRHS, D, E, DF, EF, B, LDB, X, LDX, FERR, $ BERR, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, LDX, N, NRHS diff --git a/lapack-netlib/SRC/dptsv.f b/lapack-netlib/SRC/dptsv.f index 019ed4fba..addc34b88 100644 --- a/lapack-netlib/SRC/dptsv.f +++ b/lapack-netlib/SRC/dptsv.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePTsolve * * ===================================================================== SUBROUTINE DPTSV( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/dptsvx.f b/lapack-netlib/SRC/dptsvx.f index 59f344579..7fb6cf436 100644 --- a/lapack-netlib/SRC/dptsvx.f +++ b/lapack-netlib/SRC/dptsvx.f @@ -220,18 +220,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePTsolve * * ===================================================================== SUBROUTINE DPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER FACT diff --git a/lapack-netlib/SRC/dpttrf.f b/lapack-netlib/SRC/dpttrf.f index 33a67adfa..e0022e3ad 100644 --- a/lapack-netlib/SRC/dpttrf.f +++ b/lapack-netlib/SRC/dpttrf.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePTcomputational * * ===================================================================== SUBROUTINE DPTTRF( N, D, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/dpttrs.f b/lapack-netlib/SRC/dpttrs.f index 34cbe9b90..c98f70030 100644 --- a/lapack-netlib/SRC/dpttrs.f +++ b/lapack-netlib/SRC/dpttrs.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePTcomputational * * ===================================================================== SUBROUTINE DPTTRS( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/dptts2.f b/lapack-netlib/SRC/dptts2.f index 99e212d60..2fec1515f 100644 --- a/lapack-netlib/SRC/dptts2.f +++ b/lapack-netlib/SRC/dptts2.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doublePTcomputational * * ===================================================================== SUBROUTINE DPTTS2( N, NRHS, D, E, B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, N, NRHS diff --git a/lapack-netlib/SRC/drscl.f b/lapack-netlib/SRC/drscl.f index cbd66dd27..fcd856965 100644 --- a/lapack-netlib/SRC/drscl.f +++ b/lapack-netlib/SRC/drscl.f @@ -77,17 +77,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHERauxiliary * * ===================================================================== SUBROUTINE DRSCL( N, SA, SX, INCX ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/dsb2st_kernels.f b/lapack-netlib/SRC/dsb2st_kernels.f index a9dc6b5ca..683d7a24e 100644 --- a/lapack-netlib/SRC/dsb2st_kernels.f +++ b/lapack-netlib/SRC/dsb2st_kernels.f @@ -170,10 +170,9 @@ * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO @@ -372,6 +371,6 @@ * RETURN * -* END OF DSB2ST_KERNELS +* End of DSB2ST_KERNELS * END diff --git a/lapack-netlib/SRC/dsbev.f b/lapack-netlib/SRC/dsbev.f index 416ae221e..a323dd4b5 100644 --- a/lapack-netlib/SRC/dsbev.f +++ b/lapack-netlib/SRC/dsbev.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DSBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsbev_2stage.f b/lapack-netlib/SRC/dsbev_2stage.f index 79991b649..84143fc4a 100644 --- a/lapack-netlib/SRC/dsbev_2stage.f +++ b/lapack-netlib/SRC/dsbev_2stage.f @@ -164,8 +164,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHEReigen * *> \par Further Details: @@ -206,10 +204,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsbevd.f b/lapack-netlib/SRC/dsbevd.f index 0fa15c051..3eb4ed8df 100644 --- a/lapack-netlib/SRC/dsbevd.f +++ b/lapack-netlib/SRC/dsbevd.f @@ -185,18 +185,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DSBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsbevd_2stage.f b/lapack-netlib/SRC/dsbevd_2stage.f index 859f87c0e..45a64b478 100644 --- a/lapack-netlib/SRC/dsbevd_2stage.f +++ b/lapack-netlib/SRC/dsbevd_2stage.f @@ -194,8 +194,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHEReigen * *> \par Further Details: @@ -236,10 +234,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsbevx.f b/lapack-netlib/SRC/dsbevx.f index 5e6d6423f..c5886a2d6 100644 --- a/lapack-netlib/SRC/dsbevx.f +++ b/lapack-netlib/SRC/dsbevx.f @@ -256,8 +256,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== @@ -265,10 +263,9 @@ $ VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, $ IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dsbevx_2stage.f b/lapack-netlib/SRC/dsbevx_2stage.f index 93a07f160..b57eee29f 100644 --- a/lapack-netlib/SRC/dsbevx_2stage.f +++ b/lapack-netlib/SRC/dsbevx_2stage.f @@ -281,8 +281,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHEReigen * *> \par Further Details: @@ -324,10 +322,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dsbgst.f b/lapack-netlib/SRC/dsbgst.f index 3adfeb919..10500b8c5 100644 --- a/lapack-netlib/SRC/dsbgst.f +++ b/lapack-netlib/SRC/dsbgst.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DSBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, $ LDX, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, VECT diff --git a/lapack-netlib/SRC/dsbgv.f b/lapack-netlib/SRC/dsbgv.f index d82cdae93..b49df0063 100644 --- a/lapack-netlib/SRC/dsbgv.f +++ b/lapack-netlib/SRC/dsbgv.f @@ -169,18 +169,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, $ LDZ, WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsbgvd.f b/lapack-netlib/SRC/dsbgvd.f index 2a215fbf0..30b016611 100644 --- a/lapack-netlib/SRC/dsbgvd.f +++ b/lapack-netlib/SRC/dsbgvd.f @@ -214,8 +214,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHEReigen * *> \par Contributors: @@ -227,10 +225,9 @@ SUBROUTINE DSBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, $ Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsbgvx.f b/lapack-netlib/SRC/dsbgvx.f index 6de1eb89b..55dbce2ee 100644 --- a/lapack-netlib/SRC/dsbgvx.f +++ b/lapack-netlib/SRC/dsbgvx.f @@ -280,8 +280,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHEReigen * *> \par Contributors: @@ -294,10 +292,9 @@ $ LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, $ LDZ, WORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dsbtrd.f b/lapack-netlib/SRC/dsbtrd.f index 9ea0c2208..28b8d7395 100644 --- a/lapack-netlib/SRC/dsbtrd.f +++ b/lapack-netlib/SRC/dsbtrd.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -163,10 +161,9 @@ SUBROUTINE DSBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, VECT diff --git a/lapack-netlib/SRC/dsfrk.f b/lapack-netlib/SRC/dsfrk.f index 1fd1763e7..e1b9b89bb 100644 --- a/lapack-netlib/SRC/dsfrk.f +++ b/lapack-netlib/SRC/dsfrk.f @@ -158,18 +158,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DSFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, $ C ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/lapack-netlib/SRC/dsgesv.f b/lapack-netlib/SRC/dsgesv.f index edbb87e7a..986492f8b 100644 --- a/lapack-netlib/SRC/dsgesv.f +++ b/lapack-netlib/SRC/dsgesv.f @@ -187,18 +187,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleGEsolve * * ===================================================================== SUBROUTINE DSGESV( N, NRHS, A, LDA, IPIV, B, LDB, X, LDX, WORK, $ SWORK, ITER, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, ITER, LDA, LDB, LDX, N, NRHS @@ -428,6 +425,6 @@ * RETURN * -* End of DSGESV. +* End of DSGESV * END diff --git a/lapack-netlib/SRC/dspcon.f b/lapack-netlib/SRC/dspcon.f index b422f844c..ea92d70af 100644 --- a/lapack-netlib/SRC/dspcon.f +++ b/lapack-netlib/SRC/dspcon.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dspev.f b/lapack-netlib/SRC/dspev.f index f3142791e..f884664a9 100644 --- a/lapack-netlib/SRC/dspev.f +++ b/lapack-netlib/SRC/dspev.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DSPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dspevd.f b/lapack-netlib/SRC/dspevd.f index 5b99d7558..d9d6c8917 100644 --- a/lapack-netlib/SRC/dspevd.f +++ b/lapack-netlib/SRC/dspevd.f @@ -170,18 +170,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DSPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dspevx.f b/lapack-netlib/SRC/dspevx.f index d66dc18ef..f56ce298f 100644 --- a/lapack-netlib/SRC/dspevx.f +++ b/lapack-netlib/SRC/dspevx.f @@ -225,8 +225,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== @@ -234,10 +232,9 @@ $ ABSTOL, M, W, Z, LDZ, WORK, IWORK, IFAIL, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dspgst.f b/lapack-netlib/SRC/dspgst.f index 59cda68b4..95734606a 100644 --- a/lapack-netlib/SRC/dspgst.f +++ b/lapack-netlib/SRC/dspgst.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DSPGST( ITYPE, UPLO, N, AP, BP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dspgv.f b/lapack-netlib/SRC/dspgv.f index f7313ffec..d8ec3b1a4 100644 --- a/lapack-netlib/SRC/dspgv.f +++ b/lapack-netlib/SRC/dspgv.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DSPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dspgvd.f b/lapack-netlib/SRC/dspgvd.f index 71b290b9c..556326388 100644 --- a/lapack-netlib/SRC/dspgvd.f +++ b/lapack-netlib/SRC/dspgvd.f @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHEReigen * *> \par Contributors: @@ -210,10 +208,9 @@ SUBROUTINE DSPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dspgvx.f b/lapack-netlib/SRC/dspgvx.f index 8619ef739..ec93147aa 100644 --- a/lapack-netlib/SRC/dspgvx.f +++ b/lapack-netlib/SRC/dspgvx.f @@ -258,8 +258,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHEReigen * *> \par Contributors: @@ -272,10 +270,9 @@ $ IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, $ IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dsposv.f b/lapack-netlib/SRC/dsposv.f index 6c8baa56b..c3b8de0e3 100644 --- a/lapack-netlib/SRC/dsposv.f +++ b/lapack-netlib/SRC/dsposv.f @@ -191,18 +191,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doublePOsolve * * ===================================================================== SUBROUTINE DSPOSV( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, WORK, $ SWORK, ITER, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -434,6 +431,6 @@ * RETURN * -* End of DSPOSV. +* End of DSPOSV * END diff --git a/lapack-netlib/SRC/dsprfs.f b/lapack-netlib/SRC/dsprfs.f index 9ad5a80b5..796686d56 100644 --- a/lapack-netlib/SRC/dsprfs.f +++ b/lapack-netlib/SRC/dsprfs.f @@ -171,18 +171,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, $ FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dspsv.f b/lapack-netlib/SRC/dspsv.f index e96943925..8cf192796 100644 --- a/lapack-netlib/SRC/dspsv.f +++ b/lapack-netlib/SRC/dspsv.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE DSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dspsvx.f b/lapack-netlib/SRC/dspsvx.f index 62df170c0..86737f819 100644 --- a/lapack-netlib/SRC/dspsvx.f +++ b/lapack-netlib/SRC/dspsvx.f @@ -248,8 +248,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleOTHERsolve * *> \par Further Details: @@ -276,10 +274,9 @@ SUBROUTINE DSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/dsptrd.f b/lapack-netlib/SRC/dsptrd.f index 082f81409..b892ed9aa 100644 --- a/lapack-netlib/SRC/dsptrd.f +++ b/lapack-netlib/SRC/dsptrd.f @@ -111,8 +111,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -150,10 +148,9 @@ * ===================================================================== SUBROUTINE DSPTRD( UPLO, N, AP, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsptrf.f b/lapack-netlib/SRC/dsptrf.f index 9158ff1f3..c81d8bcbf 100644 --- a/lapack-netlib/SRC/dsptrf.f +++ b/lapack-netlib/SRC/dsptrf.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -159,10 +157,9 @@ * ===================================================================== SUBROUTINE DSPTRF( UPLO, N, AP, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsptri.f b/lapack-netlib/SRC/dsptri.f index e68efface..abed7ed49 100644 --- a/lapack-netlib/SRC/dsptri.f +++ b/lapack-netlib/SRC/dsptri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsptrs.f b/lapack-netlib/SRC/dsptrs.f index 17f8c6a5f..a8f39a4ed 100644 --- a/lapack-netlib/SRC/dsptrs.f +++ b/lapack-netlib/SRC/dsptrs.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dstebz.f b/lapack-netlib/SRC/dstebz.f index e41279e54..baf417b0a 100644 --- a/lapack-netlib/SRC/dstebz.f +++ b/lapack-netlib/SRC/dstebz.f @@ -264,8 +264,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== @@ -273,10 +271,9 @@ $ M, NSPLIT, W, IBLOCK, ISPLIT, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER ORDER, RANGE diff --git a/lapack-netlib/SRC/dstedc.f b/lapack-netlib/SRC/dstedc.f index 61b44bc06..2ed84afaa 100644 --- a/lapack-netlib/SRC/dstedc.f +++ b/lapack-netlib/SRC/dstedc.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -188,10 +186,9 @@ SUBROUTINE DSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/dstegr.f b/lapack-netlib/SRC/dstegr.f index 6a8c43faa..01ec101d8 100644 --- a/lapack-netlib/SRC/dstegr.f +++ b/lapack-netlib/SRC/dstegr.f @@ -249,8 +249,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -265,10 +263,9 @@ $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/dstein.f b/lapack-netlib/SRC/dstein.f index fb1e8b9fd..6506be92a 100644 --- a/lapack-netlib/SRC/dstein.f +++ b/lapack-netlib/SRC/dstein.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDZ, M, N diff --git a/lapack-netlib/SRC/dstemr.f b/lapack-netlib/SRC/dstemr.f index 16c9d970d..d0c71ddd9 100644 --- a/lapack-netlib/SRC/dstemr.f +++ b/lapack-netlib/SRC/dstemr.f @@ -303,8 +303,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -321,10 +319,9 @@ $ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/dsteqr.f b/lapack-netlib/SRC/dsteqr.f index c34a54898..50a9188c7 100644 --- a/lapack-netlib/SRC/dsteqr.f +++ b/lapack-netlib/SRC/dsteqr.f @@ -124,17 +124,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/dsterf.f b/lapack-netlib/SRC/dsterf.f index 340189481..b0f8d3608 100644 --- a/lapack-netlib/SRC/dsterf.f +++ b/lapack-netlib/SRC/dsterf.f @@ -79,17 +79,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE DSTERF( N, D, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/dstev.f b/lapack-netlib/SRC/dstev.f index c59eaf344..21c4ceed1 100644 --- a/lapack-netlib/SRC/dstev.f +++ b/lapack-netlib/SRC/dstev.f @@ -109,17 +109,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DSTEV( JOBZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ diff --git a/lapack-netlib/SRC/dstevd.f b/lapack-netlib/SRC/dstevd.f index 6a07b249e..507f39b2b 100644 --- a/lapack-netlib/SRC/dstevd.f +++ b/lapack-netlib/SRC/dstevd.f @@ -155,18 +155,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DSTEVD( JOBZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ diff --git a/lapack-netlib/SRC/dstevr.f b/lapack-netlib/SRC/dstevr.f index 10f1b7720..ce9383758 100644 --- a/lapack-netlib/SRC/dstevr.f +++ b/lapack-netlib/SRC/dstevr.f @@ -287,8 +287,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHEReigen * *> \par Contributors: @@ -304,10 +302,9 @@ $ M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/dstevx.f b/lapack-netlib/SRC/dstevx.f index 7acbdaa63..f93c1d3b7 100644 --- a/lapack-netlib/SRC/dstevx.f +++ b/lapack-netlib/SRC/dstevx.f @@ -219,18 +219,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHEReigen * * ===================================================================== SUBROUTINE DSTEVX( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, $ M, W, Z, LDZ, WORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/dsycon.f b/lapack-netlib/SRC/dsycon.f index 66e453659..617a91700 100644 --- a/lapack-netlib/SRC/dsycon.f +++ b/lapack-netlib/SRC/dsycon.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsycon_3.f b/lapack-netlib/SRC/dsycon_3.f index 7245ebadc..f5cc65dd4 100644 --- a/lapack-netlib/SRC/dsycon_3.f +++ b/lapack-netlib/SRC/dsycon_3.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -171,10 +169,9 @@ SUBROUTINE DSYCON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsycon_rook.f b/lapack-netlib/SRC/dsycon_rook.f index 4022adf7e..dab67a225 100644 --- a/lapack-netlib/SRC/dsycon_rook.f +++ b/lapack-netlib/SRC/dsycon_rook.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -144,10 +142,9 @@ SUBROUTINE DSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsyconv.f b/lapack-netlib/SRC/dsyconv.f index f582bce65..e213f03d1 100644 --- a/lapack-netlib/SRC/dsyconv.f +++ b/lapack-netlib/SRC/dsyconv.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/dsyconvf.f b/lapack-netlib/SRC/dsyconvf.f index 60cfd1e65..9e7a5af0e 100644 --- a/lapack-netlib/SRC/dsyconvf.f +++ b/lapack-netlib/SRC/dsyconvf.f @@ -38,7 +38,7 @@ *> DSYCONVF converts the factorization output format used in *> DSYTRF provided on entry in parameter A into the factorization *> output format used in DSYTRF_RK (or DSYTRF_BK) that is stored -*> on exit in parameters A and E. It also coverts in place details of +*> on exit in parameters A and E. It also converts in place details of *> the intechanges stored in IPIV from the format used in DSYTRF into *> the format used in DSYTRF_RK (or DSYTRF_BK). *> @@ -47,7 +47,7 @@ *> converts the factorization output format used in DSYTRF_RK *> (or DSYTRF_BK) provided on entry in parameters A and E into *> the factorization output format used in DSYTRF that is stored -*> on exit in parameter A. It also coverts in place details of +*> on exit in parameter A. It also converts in place details of *> the intechanges stored in IPIV from the format used in DSYTRF_RK *> (or DSYTRF_BK) into the format used in DSYTRF. *> \endverbatim @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -206,10 +204,9 @@ * ===================================================================== SUBROUTINE DSYCONVF( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/dsyconvf_rook.f b/lapack-netlib/SRC/dsyconvf_rook.f index bd683a087..d7f529358 100644 --- a/lapack-netlib/SRC/dsyconvf_rook.f +++ b/lapack-netlib/SRC/dsyconvf_rook.f @@ -180,8 +180,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -197,10 +195,9 @@ * ===================================================================== SUBROUTINE DSYCONVF_ROOK( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/dsyequb.f b/lapack-netlib/SRC/dsyequb.f index de6b71a34..1f909be19 100644 --- a/lapack-netlib/SRC/dsyequb.f +++ b/lapack-netlib/SRC/dsyequb.f @@ -116,8 +116,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * *> \par References: @@ -131,10 +129,9 @@ * ===================================================================== SUBROUTINE DSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/dsyev.f b/lapack-netlib/SRC/dsyev.f index ee8c479ab..da7557ee0 100644 --- a/lapack-netlib/SRC/dsyev.f +++ b/lapack-netlib/SRC/dsyev.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYeigen * * ===================================================================== SUBROUTINE DSYEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsyev_2stage.f b/lapack-netlib/SRC/dsyev_2stage.f index 9d802905c..50d51d992 100644 --- a/lapack-netlib/SRC/dsyev_2stage.f +++ b/lapack-netlib/SRC/dsyev_2stage.f @@ -9,11 +9,11 @@ * *> \htmlonly *> Download DSYEV_2STAGE + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -143,8 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYeigen * *> \par Further Details: @@ -185,10 +183,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsyevd.f b/lapack-netlib/SRC/dsyevd.f index 2db67846d..edbe896fe 100644 --- a/lapack-netlib/SRC/dsyevd.f +++ b/lapack-netlib/SRC/dsyevd.f @@ -167,8 +167,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYeigen * *> \par Contributors: @@ -185,10 +183,9 @@ SUBROUTINE DSYEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsyevd_2stage.f b/lapack-netlib/SRC/dsyevd_2stage.f index ff8e08d71..0eae8ad06 100644 --- a/lapack-netlib/SRC/dsyevd_2stage.f +++ b/lapack-netlib/SRC/dsyevd_2stage.f @@ -180,8 +180,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYeigen * *> \par Contributors: @@ -229,10 +227,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsyevr.f b/lapack-netlib/SRC/dsyevr.f index d140426a4..698691533 100644 --- a/lapack-netlib/SRC/dsyevr.f +++ b/lapack-netlib/SRC/dsyevr.f @@ -315,8 +315,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleSYeigen * *> \par Contributors: @@ -334,10 +332,9 @@ $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dsyevr_2stage.f b/lapack-netlib/SRC/dsyevr_2stage.f index 847acce42..09242bbd3 100644 --- a/lapack-netlib/SRC/dsyevr_2stage.f +++ b/lapack-netlib/SRC/dsyevr_2stage.f @@ -330,8 +330,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleSYeigen * *> \par Contributors: @@ -383,10 +381,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dsyevx.f b/lapack-netlib/SRC/dsyevx.f index 2fd7bce6b..99719874b 100644 --- a/lapack-netlib/SRC/dsyevx.f +++ b/lapack-netlib/SRC/dsyevx.f @@ -244,8 +244,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleSYeigen * * ===================================================================== @@ -253,10 +251,9 @@ $ ABSTOL, M, W, Z, LDZ, WORK, LWORK, IWORK, $ IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dsyevx_2stage.f b/lapack-netlib/SRC/dsyevx_2stage.f index 7a93ac020..dbb3203d2 100644 --- a/lapack-netlib/SRC/dsyevx_2stage.f +++ b/lapack-netlib/SRC/dsyevx_2stage.f @@ -259,8 +259,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleSYeigen * *> \par Further Details: @@ -302,10 +300,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dsygs2.f b/lapack-netlib/SRC/dsygs2.f index a54955c01..8a39bea77 100644 --- a/lapack-netlib/SRC/dsygs2.f +++ b/lapack-netlib/SRC/dsygs2.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsygst.f b/lapack-netlib/SRC/dsygst.f index 5055acdf1..05b90372a 100644 --- a/lapack-netlib/SRC/dsygst.f +++ b/lapack-netlib/SRC/dsygst.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsygv.f b/lapack-netlib/SRC/dsygv.f index 651abc5c7..5208dbb1f 100644 --- a/lapack-netlib/SRC/dsygv.f +++ b/lapack-netlib/SRC/dsygv.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYeigen * * ===================================================================== SUBROUTINE DSYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsygv_2stage.f b/lapack-netlib/SRC/dsygv_2stage.f index 5b1a1766c..5c71ebf94 100644 --- a/lapack-netlib/SRC/dsygv_2stage.f +++ b/lapack-netlib/SRC/dsygv_2stage.f @@ -186,8 +186,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYeigen * *> \par Further Details: @@ -228,10 +226,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsygvd.f b/lapack-netlib/SRC/dsygvd.f index 29c78283a..61134bedc 100644 --- a/lapack-netlib/SRC/dsygvd.f +++ b/lapack-netlib/SRC/dsygvd.f @@ -203,8 +203,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYeigen * *> \par Further Details: @@ -227,10 +225,9 @@ SUBROUTINE DSYGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/dsygvx.f b/lapack-netlib/SRC/dsygvx.f index aeca6021d..3fa55b97c 100644 --- a/lapack-netlib/SRC/dsygvx.f +++ b/lapack-netlib/SRC/dsygvx.f @@ -283,8 +283,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleSYeigen * *> \par Contributors: @@ -297,10 +295,9 @@ $ VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, $ LWORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/dsyrfs.f b/lapack-netlib/SRC/dsyrfs.f index 2732f175b..eb23fd601 100644 --- a/lapack-netlib/SRC/dsyrfs.f +++ b/lapack-netlib/SRC/dsyrfs.f @@ -183,18 +183,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsyrfsx.f b/lapack-netlib/SRC/dsyrfsx.f index eb091e720..f3a1d7544 100644 --- a/lapack-netlib/SRC/dsyrfsx.f +++ b/lapack-netlib/SRC/dsyrfsx.f @@ -392,8 +392,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleSYcomputational * * ===================================================================== @@ -402,10 +400,9 @@ $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/dsysv.f b/lapack-netlib/SRC/dsysv.f index c9811b566..a6305e13c 100644 --- a/lapack-netlib/SRC/dsysv.f +++ b/lapack-netlib/SRC/dsysv.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYsolve * * ===================================================================== SUBROUTINE DSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsysv_aa.f b/lapack-netlib/SRC/dsysv_aa.f index 4ee474448..8dab5a384 100644 --- a/lapack-netlib/SRC/dsysv_aa.f +++ b/lapack-netlib/SRC/dsysv_aa.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYsolve * * ===================================================================== SUBROUTINE DSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsysv_aa_2stage.f b/lapack-netlib/SRC/dsysv_aa_2stage.f index ef593bc7e..1100702ba 100644 --- a/lapack-netlib/SRC/dsysv_aa_2stage.f +++ b/lapack-netlib/SRC/dsysv_aa_2stage.f @@ -179,8 +179,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYsolve * * ===================================================================== @@ -188,10 +186,9 @@ $ IPIV, IPIV2, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/dsysv_rk.f b/lapack-netlib/SRC/dsysv_rk.f index 6a6036be1..05d8f7d3f 100644 --- a/lapack-netlib/SRC/dsysv_rk.f +++ b/lapack-netlib/SRC/dsysv_rk.f @@ -205,8 +205,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYsolve * *> \par Contributors: @@ -228,10 +226,9 @@ SUBROUTINE DSYSV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsysv_rook.f b/lapack-netlib/SRC/dsysv_rook.f index d69c17627..6ebb52eae 100644 --- a/lapack-netlib/SRC/dsysv_rook.f +++ b/lapack-netlib/SRC/dsysv_rook.f @@ -181,8 +181,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleSYsolve * *> \par Contributors: @@ -204,10 +202,9 @@ SUBROUTINE DSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsysvx.f b/lapack-netlib/SRC/dsysvx.f index cd059863e..a30831e72 100644 --- a/lapack-netlib/SRC/dsysvx.f +++ b/lapack-netlib/SRC/dsysvx.f @@ -275,8 +275,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleSYsolve * * ===================================================================== @@ -284,10 +282,9 @@ $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/dsysvxx.f b/lapack-netlib/SRC/dsysvxx.f index 0be50bcd1..82d30a4b7 100644 --- a/lapack-netlib/SRC/dsysvxx.f +++ b/lapack-netlib/SRC/dsysvxx.f @@ -495,8 +495,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYsolve * * ===================================================================== @@ -505,10 +503,9 @@ $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/dsyswapr.f b/lapack-netlib/SRC/dsyswapr.f index 6e6c0f7e5..c60ccbefc 100644 --- a/lapack-netlib/SRC/dsyswapr.f +++ b/lapack-netlib/SRC/dsyswapr.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYauxiliary * * ===================================================================== SUBROUTINE DSYSWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytd2.f b/lapack-netlib/SRC/dsytd2.f index 6fb4d5507..977b6daa4 100644 --- a/lapack-netlib/SRC/dsytd2.f +++ b/lapack-netlib/SRC/dsytd2.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -173,10 +171,9 @@ * ===================================================================== SUBROUTINE DSYTD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytf2.f b/lapack-netlib/SRC/dsytf2.f index 39ef4de7c..b05d25ad1 100644 --- a/lapack-netlib/SRC/dsytf2.f +++ b/lapack-netlib/SRC/dsytf2.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -194,10 +192,9 @@ * ===================================================================== SUBROUTINE DSYTF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytf2_rk.f b/lapack-netlib/SRC/dsytf2_rk.f index cc9e4616e..e9afcb6aa 100644 --- a/lapack-netlib/SRC/dsytf2_rk.f +++ b/lapack-netlib/SRC/dsytf2_rk.f @@ -208,8 +208,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -241,10 +239,9 @@ * ===================================================================== SUBROUTINE DSYTF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytf2_rook.f b/lapack-netlib/SRC/dsytf2_rook.f index 237c9984c..251b3909b 100644 --- a/lapack-netlib/SRC/dsytf2_rook.f +++ b/lapack-netlib/SRC/dsytf2_rook.f @@ -129,8 +129,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -194,10 +192,9 @@ * ===================================================================== SUBROUTINE DSYTF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytrd.f b/lapack-netlib/SRC/dsytrd.f index d330b241f..3dcfc3db2 100644 --- a/lapack-netlib/SRC/dsytrd.f +++ b/lapack-netlib/SRC/dsytrd.f @@ -139,8 +139,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -192,10 +190,9 @@ * ===================================================================== SUBROUTINE DSYTRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytrd_2stage.f b/lapack-netlib/SRC/dsytrd_2stage.f index fc4b92908..8ae77d3e4 100644 --- a/lapack-netlib/SRC/dsytrd_2stage.f +++ b/lapack-netlib/SRC/dsytrd_2stage.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -226,10 +224,9 @@ * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER VECT, UPLO diff --git a/lapack-netlib/SRC/dsytrd_sb2st.F b/lapack-netlib/SRC/dsytrd_sb2st.F index 0c0dbf125..fabc10756 100644 --- a/lapack-netlib/SRC/dsytrd_sb2st.F +++ b/lapack-netlib/SRC/dsytrd_sb2st.F @@ -188,8 +188,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup real16OTHERcomputational * *> \par Further Details: @@ -236,10 +234,9 @@ * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER STAGE1, UPLO, VECT @@ -392,7 +389,7 @@ * For that, for real precision just copy the diag and offdiag * to D and E while for the COMPLEX case the bulge chasing is * performed to convert the hermetian tridiagonal to symmetric -* tridiagonal. A simpler coversion formula might be used, but then +* tridiagonal. A simpler conversion formula might be used, but then * updating the Q matrix will be required and based if Q is generated * or not this might complicate the story. * diff --git a/lapack-netlib/SRC/dsytrd_sy2sb.f b/lapack-netlib/SRC/dsytrd_sy2sb.f index 7f30817b0..1660b5c7e 100644 --- a/lapack-netlib/SRC/dsytrd_sy2sb.f +++ b/lapack-netlib/SRC/dsytrd_sy2sb.f @@ -9,11 +9,11 @@ * *> \htmlonly *> Download DSYTRD_SY2SB + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -245,10 +243,9 @@ * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytrf.f b/lapack-netlib/SRC/dsytrf.f index a3bd30a2f..a39b03283 100644 --- a/lapack-netlib/SRC/dsytrf.f +++ b/lapack-netlib/SRC/dsytrf.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -182,10 +180,9 @@ * ===================================================================== SUBROUTINE DSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytrf_aa.f b/lapack-netlib/SRC/dsytrf_aa.f index 6df0da2cd..346737953 100644 --- a/lapack-netlib/SRC/dsytrf_aa.f +++ b/lapack-netlib/SRC/dsytrf_aa.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * @@ -460,6 +457,7 @@ END IF * 20 CONTINUE + WORK( 1 ) = LWKOPT RETURN * * End of DSYTRF_AA diff --git a/lapack-netlib/SRC/dsytrf_aa_2stage.f b/lapack-netlib/SRC/dsytrf_aa_2stage.f index a37be5bdd..b7f5f07c2 100644 --- a/lapack-netlib/SRC/dsytrf_aa_2stage.f +++ b/lapack-netlib/SRC/dsytrf_aa_2stage.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRF_AA_2STAGE( UPLO, N, A, LDA, TB, LTB, IPIV, $ IPIV2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/dsytrf_rk.f b/lapack-netlib/SRC/dsytrf_rk.f index e6fc4ece1..7341b9263 100644 --- a/lapack-netlib/SRC/dsytrf_rk.f +++ b/lapack-netlib/SRC/dsytrf_rk.f @@ -229,8 +229,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -259,10 +257,9 @@ SUBROUTINE DSYTRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytrf_rook.f b/lapack-netlib/SRC/dsytrf_rook.f index d2690499f..2f00d1802 100644 --- a/lapack-netlib/SRC/dsytrf_rook.f +++ b/lapack-netlib/SRC/dsytrf_rook.f @@ -146,8 +146,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleSYcomputational * *> \par Further Details: @@ -208,10 +206,9 @@ * ===================================================================== SUBROUTINE DSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytri.f b/lapack-netlib/SRC/dsytri.f index f093a1399..f1552d6fe 100644 --- a/lapack-netlib/SRC/dsytri.f +++ b/lapack-netlib/SRC/dsytri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytri2.f b/lapack-netlib/SRC/dsytri2.f index 5c3a5ec76..dbcdcdb58 100644 --- a/lapack-netlib/SRC/dsytri2.f +++ b/lapack-netlib/SRC/dsytri2.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytri2x.f b/lapack-netlib/SRC/dsytri2x.f index ae29f1209..2ae4f1059 100644 --- a/lapack-netlib/SRC/dsytri2x.f +++ b/lapack-netlib/SRC/dsytri2x.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytri_3.f b/lapack-netlib/SRC/dsytri_3.f index d1980f8c4..86d69cdfd 100644 --- a/lapack-netlib/SRC/dsytri_3.f +++ b/lapack-netlib/SRC/dsytri_3.f @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -170,10 +168,9 @@ SUBROUTINE DSYTRI_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytri_3x.f b/lapack-netlib/SRC/dsytri_3x.f index d95e6274b..2e3809a1e 100644 --- a/lapack-netlib/SRC/dsytri_3x.f +++ b/lapack-netlib/SRC/dsytri_3x.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -159,10 +157,9 @@ * ===================================================================== SUBROUTINE DSYTRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytri_rook.f b/lapack-netlib/SRC/dsytri_rook.f index cad2a7e9f..3d1a24aaf 100644 --- a/lapack-netlib/SRC/dsytri_rook.f +++ b/lapack-netlib/SRC/dsytri_rook.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -129,10 +127,9 @@ * ===================================================================== SUBROUTINE DSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytrs.f b/lapack-netlib/SRC/dsytrs.f index e5988f20f..f1be52e88 100644 --- a/lapack-netlib/SRC/dsytrs.f +++ b/lapack-netlib/SRC/dsytrs.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytrs2.f b/lapack-netlib/SRC/dsytrs2.f index c7ca8e9ff..7e868f1a1 100644 --- a/lapack-netlib/SRC/dsytrs2.f +++ b/lapack-netlib/SRC/dsytrs2.f @@ -124,18 +124,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytrs_3.f b/lapack-netlib/SRC/dsytrs_3.f index 2d61f6b71..56ec92059 100644 --- a/lapack-netlib/SRC/dsytrs_3.f +++ b/lapack-netlib/SRC/dsytrs_3.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -165,10 +163,9 @@ SUBROUTINE DSYTRS_3( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dsytrs_aa.f b/lapack-netlib/SRC/dsytrs_aa.f index d9dc0a6d1..26b11a2a0 100644 --- a/lapack-netlib/SRC/dsytrs_aa.f +++ b/lapack-netlib/SRC/dsytrs_aa.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/dsytrs_aa_2stage.f b/lapack-netlib/SRC/dsytrs_aa_2stage.f index 69c702f8a..963a88683 100644 --- a/lapack-netlib/SRC/dsytrs_aa_2stage.f +++ b/lapack-netlib/SRC/dsytrs_aa_2stage.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYTRS_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, $ IPIV, IPIV2, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/dsytrs_rook.f b/lapack-netlib/SRC/dsytrs_rook.f index 94a5e0042..1830347f8 100644 --- a/lapack-netlib/SRC/dsytrs_rook.f +++ b/lapack-netlib/SRC/dsytrs_rook.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -136,10 +134,9 @@ SUBROUTINE DSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dtbcon.f b/lapack-netlib/SRC/dtbcon.f index ec0d3a15a..b0dc2a564 100644 --- a/lapack-netlib/SRC/dtbcon.f +++ b/lapack-netlib/SRC/dtbcon.f @@ -135,18 +135,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/dtbrfs.f b/lapack-netlib/SRC/dtbrfs.f index 05bfb7348..361a9b0b7 100644 --- a/lapack-netlib/SRC/dtbrfs.f +++ b/lapack-netlib/SRC/dtbrfs.f @@ -180,18 +180,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/dtbtrs.f b/lapack-netlib/SRC/dtbtrs.f index e5fb87659..05bd5f895 100644 --- a/lapack-netlib/SRC/dtbtrs.f +++ b/lapack-netlib/SRC/dtbtrs.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/dtfsm.f b/lapack-netlib/SRC/dtfsm.f index 515f6f543..b2a80d029 100644 --- a/lapack-netlib/SRC/dtfsm.f +++ b/lapack-netlib/SRC/dtfsm.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -277,10 +275,9 @@ SUBROUTINE DTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, $ B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO diff --git a/lapack-netlib/SRC/dtftri.f b/lapack-netlib/SRC/dtftri.f index 9debec970..d367c9029 100644 --- a/lapack-netlib/SRC/dtftri.f +++ b/lapack-netlib/SRC/dtftri.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -201,10 +199,9 @@ * ===================================================================== SUBROUTINE DTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO, DIAG diff --git a/lapack-netlib/SRC/dtfttp.f b/lapack-netlib/SRC/dtfttp.f index c2929824a..c83af4406 100644 --- a/lapack-netlib/SRC/dtfttp.f +++ b/lapack-netlib/SRC/dtfttp.f @@ -93,8 +93,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -187,10 +185,9 @@ * ===================================================================== SUBROUTINE DTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/dtfttr.f b/lapack-netlib/SRC/dtfttr.f index bb1c6224f..3bfe4f1d9 100644 --- a/lapack-netlib/SRC/dtfttr.f +++ b/lapack-netlib/SRC/dtfttr.f @@ -102,8 +102,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -196,10 +194,9 @@ * ===================================================================== SUBROUTINE DTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/dtgevc.f b/lapack-netlib/SRC/dtgevc.f index 756474c9e..e7084664c 100644 --- a/lapack-netlib/SRC/dtgevc.f +++ b/lapack-netlib/SRC/dtgevc.f @@ -228,8 +228,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -295,10 +293,9 @@ SUBROUTINE DTGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, $ LDVL, VR, LDVR, MM, M, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/dtgex2.f b/lapack-netlib/SRC/dtgex2.f index 93ff03acf..00c23a833 100644 --- a/lapack-netlib/SRC/dtgex2.f +++ b/lapack-netlib/SRC/dtgex2.f @@ -181,8 +181,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEauxiliary * *> \par Further Details: @@ -221,10 +219,9 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, J1, N1, N2, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ @@ -250,10 +247,11 @@ PARAMETER ( WANDS = .TRUE. ) * .. * .. Local Scalars .. - LOGICAL DTRONG, WEAK + LOGICAL STRONG, WEAK INTEGER I, IDUM, LINFO, M - DOUBLE PRECISION BQRA21, BRQA21, DDUM, DNORM, DSCALE, DSUM, EPS, - $ F, G, SA, SB, SCALE, SMLNUM, SS, THRESH, WS + DOUBLE PRECISION BQRA21, BRQA21, DDUM, DNORMA, DNORMB, DSCALE, + $ DSUM, EPS, F, G, SA, SB, SCALE, SMLNUM, + $ THRESHA, THRESHB * .. * .. Local Arrays .. INTEGER IWORK( LDST ) @@ -293,7 +291,7 @@ END IF * WEAK = .FALSE. - DTRONG = .FALSE. + STRONG = .FALSE. * * Make a local copy of selected block * @@ -310,9 +308,12 @@ DSUM = ONE CALL DLACPY( 'Full', M, M, S, LDST, WORK, M ) CALL DLASSQ( M*M, WORK, 1, DSCALE, DSUM ) + DNORMA = DSCALE*SQRT( DSUM ) + DSCALE = ZERO + DSUM = ONE CALL DLACPY( 'Full', M, M, T, LDST, WORK, M ) CALL DLASSQ( M*M, WORK, 1, DSCALE, DSUM ) - DNORM = DSCALE*SQRT( DSUM ) + DNORMB = DSCALE*SQRT( DSUM ) * * THRES has been changed from * THRESH = MAX( TEN*EPS*SA, SMLNUM ) @@ -322,7 +323,8 @@ * "Bug" reported by Ondra Kamenik, confirmed by Julie Langou, fixed by * Jim Demmel and Guillaume Revy. See forum post 1783. * - THRESH = MAX( TWENTY*EPS*DNORM, SMLNUM ) + THRESHA = MAX( TWENTY*EPS*DNORMA, SMLNUM ) + THRESHB = MAX( TWENTY*EPS*DNORMB, SMLNUM ) * IF( M.EQ.2 ) THEN * @@ -333,8 +335,8 @@ * F = S( 2, 2 )*T( 1, 1 ) - T( 2, 2 )*S( 1, 1 ) G = S( 2, 2 )*T( 1, 2 ) - T( 2, 2 )*S( 1, 2 ) - SB = ABS( T( 2, 2 ) ) - SA = ABS( S( 2, 2 ) ) + SA = ABS( S( 2, 2 ) ) * ABS( T( 1, 1 ) ) + SB = ABS( S( 1, 1 ) ) * ABS( T( 2, 2 ) ) CALL DLARTG( F, G, IR( 1, 2 ), IR( 1, 1 ), DDUM ) IR( 2, 1 ) = -IR( 1, 2 ) IR( 2, 2 ) = IR( 1, 1 ) @@ -356,18 +358,20 @@ LI( 2, 2 ) = LI( 1, 1 ) LI( 1, 2 ) = -LI( 2, 1 ) * -* Weak stability test: -* |S21| + |T21| <= O(EPS * F-norm((S, T))) +* Weak stability test: |S21| <= O(EPS F-norm((A))) +* and |T21| <= O(EPS F-norm((B))) * - WS = ABS( S( 2, 1 ) ) + ABS( T( 2, 1 ) ) - WEAK = WS.LE.THRESH + WEAK = ABS( S( 2, 1 ) ) .LE. THRESHA .AND. + $ ABS( T( 2, 1 ) ) .LE. THRESHB IF( .NOT.WEAK ) $ GO TO 70 * IF( WANDS ) THEN * * Strong stability test: -* F-norm((A-QL**T*S*QR, B-QL**T*T*QR)) <= O(EPS*F-norm((A,B))) +* F-norm((A-QL**H*S*QR)) <= O(EPS*F-norm((A))) +* and +* F-norm((B-QL**H*T*QR)) <= O(EPS*F-norm((B))) * CALL DLACPY( 'Full', M, M, A( J1, J1 ), LDA, WORK( M*M+1 ), $ M ) @@ -378,6 +382,7 @@ DSCALE = ZERO DSUM = ONE CALL DLASSQ( M*M, WORK( M*M+1 ), 1, DSCALE, DSUM ) + SA = DSCALE*SQRT( DSUM ) * CALL DLACPY( 'Full', M, M, B( J1, J1 ), LDB, WORK( M*M+1 ), $ M ) @@ -385,10 +390,12 @@ $ WORK, M ) CALL DGEMM( 'N', 'T', M, M, M, -ONE, WORK, M, IR, LDST, ONE, $ WORK( M*M+1 ), M ) + DSCALE = ZERO + DSUM = ONE CALL DLASSQ( M*M, WORK( M*M+1 ), 1, DSCALE, DSUM ) - SS = DSCALE*SQRT( DSUM ) - DTRONG = SS.LE.THRESH - IF( .NOT.DTRONG ) + SB = DSCALE*SQRT( DSUM ) + STRONG = SA.LE.THRESHA .AND. SB.LE.THRESHB + IF( .NOT.STRONG ) $ GO TO 70 END IF * @@ -439,6 +446,8 @@ $ IR( N2+1, N1+1 ), LDST, T, LDST, T( N1+1, N1+1 ), $ LDST, LI, LDST, SCALE, DSUM, DSCALE, IWORK, IDUM, $ LINFO ) + IF( LINFO.NE.0 ) + $ GO TO 70 * * Compute orthogonal matrix QL: * @@ -538,14 +547,14 @@ * * Decide which method to use. * Weak stability test: -* F-norm(S21) <= O(EPS * F-norm((S, T))) +* F-norm(S21) <= O(EPS * F-norm((S))) * - IF( BQRA21.LE.BRQA21 .AND. BQRA21.LE.THRESH ) THEN + IF( BQRA21.LE.BRQA21 .AND. BQRA21.LE.THRESHA ) THEN CALL DLACPY( 'F', M, M, SCPY, LDST, S, LDST ) CALL DLACPY( 'F', M, M, TCPY, LDST, T, LDST ) CALL DLACPY( 'F', M, M, IRCOP, LDST, IR, LDST ) CALL DLACPY( 'F', M, M, LICOP, LDST, LI, LDST ) - ELSE IF( BRQA21.GE.THRESH ) THEN + ELSE IF( BRQA21.GE.THRESHA ) THEN GO TO 70 END IF * @@ -556,7 +565,9 @@ IF( WANDS ) THEN * * Strong stability test: -* F-norm((A-QL*S*QR**T, B-QL*T*QR**T)) <= O(EPS*F-norm((A,B))) +* F-norm((A-QL**H*S*QR)) <= O(EPS*F-norm((A))) +* and +* F-norm((B-QL**H*T*QR)) <= O(EPS*F-norm((B))) * CALL DLACPY( 'Full', M, M, A( J1, J1 ), LDA, WORK( M*M+1 ), $ M ) @@ -567,6 +578,7 @@ DSCALE = ZERO DSUM = ONE CALL DLASSQ( M*M, WORK( M*M+1 ), 1, DSCALE, DSUM ) + SA = DSCALE*SQRT( DSUM ) * CALL DLACPY( 'Full', M, M, B( J1, J1 ), LDB, WORK( M*M+1 ), $ M ) @@ -574,10 +586,12 @@ $ WORK, M ) CALL DGEMM( 'N', 'N', M, M, M, -ONE, WORK, M, IR, LDST, ONE, $ WORK( M*M+1 ), M ) + DSCALE = ZERO + DSUM = ONE CALL DLASSQ( M*M, WORK( M*M+1 ), 1, DSCALE, DSUM ) - SS = DSCALE*SQRT( DSUM ) - DTRONG = ( SS.LE.THRESH ) - IF( .NOT.DTRONG ) + SB = DSCALE*SQRT( DSUM ) + STRONG = SA.LE.THRESHA .AND. SB.LE.THRESHB + IF( .NOT.STRONG ) $ GO TO 70 * END IF diff --git a/lapack-netlib/SRC/dtgexc.f b/lapack-netlib/SRC/dtgexc.f index 0a905b8db..9dce3f597 100644 --- a/lapack-netlib/SRC/dtgexc.f +++ b/lapack-netlib/SRC/dtgexc.f @@ -195,8 +195,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleGEcomputational * *> \par Contributors: @@ -220,10 +218,9 @@ SUBROUTINE DTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, IFST, ILST, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/lapack-netlib/SRC/dtgsen.f b/lapack-netlib/SRC/dtgsen.f index 22323cf8f..8de66b6a1 100644 --- a/lapack-netlib/SRC/dtgsen.f +++ b/lapack-netlib/SRC/dtgsen.f @@ -304,8 +304,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -451,10 +449,9 @@ $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, M, PL, $ PR, DIF, WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/lapack-netlib/SRC/dtgsja.f b/lapack-netlib/SRC/dtgsja.f index 537bd3f4f..37668c739 100644 --- a/lapack-netlib/SRC/dtgsja.f +++ b/lapack-netlib/SRC/dtgsja.f @@ -350,8 +350,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -378,10 +376,9 @@ $ LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, $ Q, LDQ, WORK, NCYCLE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/dtgsna.f b/lapack-netlib/SRC/dtgsna.f index 68a68cad8..b9b3ad8af 100644 --- a/lapack-netlib/SRC/dtgsna.f +++ b/lapack-netlib/SRC/dtgsna.f @@ -230,8 +230,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -381,10 +379,9 @@ $ LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/lapack-netlib/SRC/dtgsy2.f b/lapack-netlib/SRC/dtgsy2.f index e8c9b4001..3926f2086 100644 --- a/lapack-netlib/SRC/dtgsy2.f +++ b/lapack-netlib/SRC/dtgsy2.f @@ -259,8 +259,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYauxiliary * *> \par Contributors: @@ -274,10 +272,9 @@ $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ IWORK, PQ, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dtgsyl.f b/lapack-netlib/SRC/dtgsyl.f index bb0751794..101c92dcf 100644 --- a/lapack-netlib/SRC/dtgsyl.f +++ b/lapack-netlib/SRC/dtgsyl.f @@ -261,8 +261,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * *> \par Contributors: @@ -299,10 +297,9 @@ $ LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/dtpcon.f b/lapack-netlib/SRC/dtpcon.f index 9932a76ab..39c7265bb 100644 --- a/lapack-netlib/SRC/dtpcon.f +++ b/lapack-netlib/SRC/dtpcon.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/dtplqt.f b/lapack-netlib/SRC/dtplqt.f index 4712950f9..98fe77104 100644 --- a/lapack-netlib/SRC/dtplqt.f +++ b/lapack-netlib/SRC/dtplqt.f @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPQRT + dependencies +*> Download DTPLQT + dependencies *> *> [TGZ] *> @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ SUBROUTINE DTPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, MB diff --git a/lapack-netlib/SRC/dtplqt2.f b/lapack-netlib/SRC/dtplqt2.f index e2fefb68d..8a2f31dd1 100644 --- a/lapack-netlib/SRC/dtplqt2.f +++ b/lapack-netlib/SRC/dtplqt2.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ * ===================================================================== SUBROUTINE DTPLQT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/lapack-netlib/SRC/dtpmlqt.f b/lapack-netlib/SRC/dtpmlqt.f index 975ebdc27..05f1ed131 100644 --- a/lapack-netlib/SRC/dtpmlqt.f +++ b/lapack-netlib/SRC/dtpmlqt.f @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPMQRT + dependencies +*> Download DTPMLQT + dependencies *> *> [TGZ] *> @@ -103,9 +103,7 @@ *> \param[in] LDV *> \verbatim *> LDV is INTEGER -*> The leading dimension of the array V. -*> If SIDE = 'L', LDV >= max(1,M); -*> if SIDE = 'R', LDV >= max(1,N). +*> The leading dimension of the array V. LDV >= K. *> \endverbatim *> *> \param[in] T @@ -135,8 +133,8 @@ *> \verbatim *> LDA is INTEGER *> The leading dimension of the array A. -*> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'L', LDA >= max(1,K); +*> If SIDE = 'R', LDA >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -175,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -216,10 +212,9 @@ SUBROUTINE DTPMLQT( SIDE, TRANS, M, N, K, L, MB, V, LDV, T, LDT, $ A, LDA, B, LDB, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -242,7 +237,7 @@ EXTERNAL LSAME * .. * .. External Subroutines .. - EXTERNAL XERBLA, DLARFB, DTPRFB + EXTERNAL XERBLA, DTPRFB * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/lapack-netlib/SRC/dtpmqrt.f b/lapack-netlib/SRC/dtpmqrt.f index a7888e192..9cf4fa086 100644 --- a/lapack-netlib/SRC/dtpmqrt.f +++ b/lapack-netlib/SRC/dtpmqrt.f @@ -175,8 +175,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -216,10 +214,9 @@ SUBROUTINE DTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, $ A, LDA, B, LDB, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/dtpqrt.f b/lapack-netlib/SRC/dtpqrt.f index 1a3f95475..28401f714 100644 --- a/lapack-netlib/SRC/dtpqrt.f +++ b/lapack-netlib/SRC/dtpqrt.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ SUBROUTINE DTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, NB diff --git a/lapack-netlib/SRC/dtpqrt2.f b/lapack-netlib/SRC/dtpqrt2.f index 2e18f4e3a..1ace03013 100644 --- a/lapack-netlib/SRC/dtpqrt2.f +++ b/lapack-netlib/SRC/dtpqrt2.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -173,10 +171,9 @@ * ===================================================================== SUBROUTINE DTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/lapack-netlib/SRC/dtprfb.f b/lapack-netlib/SRC/dtprfb.f index 6d3b4dae1..a3fc7d6c6 100644 --- a/lapack-netlib/SRC/dtprfb.f +++ b/lapack-netlib/SRC/dtprfb.f @@ -194,8 +194,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -251,10 +249,9 @@ 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.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/dtprfs.f b/lapack-netlib/SRC/dtprfs.f index 2dc427e45..bd4f0ce08 100644 --- a/lapack-netlib/SRC/dtprfs.f +++ b/lapack-netlib/SRC/dtprfs.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/dtptri.f b/lapack-netlib/SRC/dtptri.f index 32f38344e..f1c976f2c 100644 --- a/lapack-netlib/SRC/dtptri.f +++ b/lapack-netlib/SRC/dtptri.f @@ -91,8 +91,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -117,10 +115,9 @@ * ===================================================================== SUBROUTINE DTPTRI( UPLO, DIAG, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/dtptrs.f b/lapack-netlib/SRC/dtptrs.f index c62724128..18a92d045 100644 --- a/lapack-netlib/SRC/dtptrs.f +++ b/lapack-netlib/SRC/dtptrs.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/dtpttf.f b/lapack-netlib/SRC/dtpttf.f index a37a3e30a..0c7aa1e94 100644 --- a/lapack-netlib/SRC/dtpttf.f +++ b/lapack-netlib/SRC/dtpttf.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -186,10 +184,9 @@ * ===================================================================== SUBROUTINE DTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/dtpttr.f b/lapack-netlib/SRC/dtpttr.f index 625817993..2126eda09 100644 --- a/lapack-netlib/SRC/dtpttr.f +++ b/lapack-netlib/SRC/dtpttr.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTPTTR( UPLO, N, AP, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dtrcon.f b/lapack-netlib/SRC/dtrcon.f index ad40d3774..9b6c75489 100644 --- a/lapack-netlib/SRC/dtrcon.f +++ b/lapack-netlib/SRC/dtrcon.f @@ -129,18 +129,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/dtrevc.f b/lapack-netlib/SRC/dtrevc.f index 2ed3efaca..149b43c78 100644 --- a/lapack-netlib/SRC/dtrevc.f +++ b/lapack-netlib/SRC/dtrevc.f @@ -200,8 +200,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -222,10 +220,9 @@ SUBROUTINE DTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/dtrevc3.f b/lapack-netlib/SRC/dtrevc3.f index 957baf4f0..a4651e788 100644 --- a/lapack-netlib/SRC/dtrevc3.f +++ b/lapack-netlib/SRC/dtrevc3.f @@ -215,10 +215,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* @precisions fortran d -> s -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -240,10 +236,9 @@ $ VR, LDVR, MM, M, WORK, LWORK, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/dtrexc.f b/lapack-netlib/SRC/dtrexc.f index 468ae47b9..4cb18e383 100644 --- a/lapack-netlib/SRC/dtrexc.f +++ b/lapack-netlib/SRC/dtrexc.f @@ -140,18 +140,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ diff --git a/lapack-netlib/SRC/dtrrfs.f b/lapack-netlib/SRC/dtrrfs.f index c9fe55c72..de0dc5205 100644 --- a/lapack-netlib/SRC/dtrrfs.f +++ b/lapack-netlib/SRC/dtrrfs.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/dtrsen.f b/lapack-netlib/SRC/dtrsen.f index 1fa126c5b..3aba35ade 100644 --- a/lapack-netlib/SRC/dtrsen.f +++ b/lapack-netlib/SRC/dtrsen.f @@ -230,8 +230,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -313,10 +311,9 @@ SUBROUTINE DTRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, WR, WI, $ M, S, SEP, WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER COMPQ, JOB diff --git a/lapack-netlib/SRC/dtrsna.f b/lapack-netlib/SRC/dtrsna.f index dd0ad2f05..ffcfe0545 100644 --- a/lapack-netlib/SRC/dtrsna.f +++ b/lapack-netlib/SRC/dtrsna.f @@ -213,8 +213,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -265,10 +263,9 @@ $ LDVR, S, SEP, MM, M, WORK, LDWORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/lapack-netlib/SRC/dtrsyl.f b/lapack-netlib/SRC/dtrsyl.f index 105032cb3..ea1fd4f19 100644 --- a/lapack-netlib/SRC/dtrsyl.f +++ b/lapack-netlib/SRC/dtrsyl.f @@ -156,18 +156,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DTRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, $ LDC, SCALE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANA, TRANB diff --git a/lapack-netlib/SRC/dtrti2.f b/lapack-netlib/SRC/dtrti2.f index 0a9d5b696..0d9115554 100644 --- a/lapack-netlib/SRC/dtrti2.f +++ b/lapack-netlib/SRC/dtrti2.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTRTI2( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/dtrtri.f b/lapack-netlib/SRC/dtrtri.f index d34b40bcc..1cf9a9aaf 100644 --- a/lapack-netlib/SRC/dtrtri.f +++ b/lapack-netlib/SRC/dtrtri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTRTRI( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/dtrtrs.f b/lapack-netlib/SRC/dtrtrs.f index 3e5ff6fda..d82f31d0b 100644 --- a/lapack-netlib/SRC/dtrtrs.f +++ b/lapack-netlib/SRC/dtrtrs.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/dtrttf.f b/lapack-netlib/SRC/dtrttf.f index 8e91c3df8..4e4b5ee55 100644 --- a/lapack-netlib/SRC/dtrttf.f +++ b/lapack-netlib/SRC/dtrttf.f @@ -100,8 +100,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -194,10 +192,9 @@ * ===================================================================== SUBROUTINE DTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/dtrttp.f b/lapack-netlib/SRC/dtrttp.f index 5ee3dd5fa..15289172c 100644 --- a/lapack-netlib/SRC/dtrttp.f +++ b/lapack-netlib/SRC/dtrttp.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * * ===================================================================== SUBROUTINE DTRTTP( UPLO, N, A, LDA, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/dtzrzf.f b/lapack-netlib/SRC/dtzrzf.f index 0d4f922c8..ced2c4f5e 100644 --- a/lapack-netlib/SRC/dtzrzf.f +++ b/lapack-netlib/SRC/dtzrzf.f @@ -116,8 +116,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup doubleOTHERcomputational * *> \par Contributors: @@ -151,10 +149,9 @@ * ===================================================================== SUBROUTINE DTZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/dzsum1.f b/lapack-netlib/SRC/dzsum1.f index 70a404283..7c5ebfacf 100644 --- a/lapack-netlib/SRC/dzsum1.f +++ b/lapack-netlib/SRC/dzsum1.f @@ -69,8 +69,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -81,10 +79,9 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DZSUM1( N, CX, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/icmax1.f b/lapack-netlib/SRC/icmax1.f index 414147387..05a655836 100644 --- a/lapack-netlib/SRC/icmax1.f +++ b/lapack-netlib/SRC/icmax1.f @@ -69,8 +69,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date February 2014 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -81,10 +79,9 @@ * ===================================================================== INTEGER FUNCTION ICMAX1( N, CX, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2014 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/ieeeck.f b/lapack-netlib/SRC/ieeeck.f index 2655958b4..74065c3b4 100644 --- a/lapack-netlib/SRC/ieeeck.f +++ b/lapack-netlib/SRC/ieeeck.f @@ -75,17 +75,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== INTEGER FUNCTION IEEECK( ISPEC, ZERO, ONE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ISPEC diff --git a/lapack-netlib/SRC/ilaclc.f b/lapack-netlib/SRC/ilaclc.f index 35d86d230..9ac02867a 100644 --- a/lapack-netlib/SRC/ilaclc.f +++ b/lapack-netlib/SRC/ilaclc.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILACLC( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/SRC/ilaclr.f b/lapack-netlib/SRC/ilaclr.f index 3aad730b4..9f9a1cd32 100644 --- a/lapack-netlib/SRC/ilaclr.f +++ b/lapack-netlib/SRC/ilaclr.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complexOTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILACLR( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/SRC/iladiag.f b/lapack-netlib/SRC/iladiag.f index 58614d268..1fff79a93 100644 --- a/lapack-netlib/SRC/iladiag.f +++ b/lapack-netlib/SRC/iladiag.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== INTEGER FUNCTION ILADIAG( DIAG ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG diff --git a/lapack-netlib/SRC/iladlc.f b/lapack-netlib/SRC/iladlc.f index c6476113d..a98e7218b 100644 --- a/lapack-netlib/SRC/iladlc.f +++ b/lapack-netlib/SRC/iladlc.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILADLC( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/SRC/iladlr.f b/lapack-netlib/SRC/iladlr.f index e8951d86c..b1abded84 100644 --- a/lapack-netlib/SRC/iladlr.f +++ b/lapack-netlib/SRC/iladlr.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILADLR( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/SRC/ilaenv.f b/lapack-netlib/SRC/ilaenv.f index 7f68c383d..af2850398 100644 --- a/lapack-netlib/SRC/ilaenv.f +++ b/lapack-netlib/SRC/ilaenv.f @@ -79,9 +79,9 @@ *> = 9: maximum size of the subproblems at the bottom of the *> computation tree in the divide-and-conquer algorithm *> (used by xGELSD and xGESDD) -*> =10: ieee NaN arithmetic can be trusted not to trap +*> =10: ieee infinity and NaN arithmetic can be trusted not to trap *> =11: infinity arithmetic can be trusted not to trap -*> 12 <= ISPEC <= 16: +*> 12 <= ISPEC <= 17: *> xHSEQR or related subroutines, *> see IPARMQ for detailed explanation *> \endverbatim @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) * -* -- LAPACK auxiliary routine (version 3.9.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. CHARACTER*( * ) NAME, OPTS @@ -189,7 +186,7 @@ * .. Executable Statements .. * GO TO ( 10, 10, 10, 80, 90, 100, 110, 120, - $ 130, 140, 150, 160, 160, 160, 160, 160)ISPEC + $ 130, 140, 150, 160, 160, 160, 160, 160, 160)ISPEC * * Invalid value for ISPEC * @@ -686,7 +683,7 @@ * 140 CONTINUE * -* ISPEC = 10: ieee NaN arithmetic can be trusted not to trap +* ISPEC = 10: ieee and infinity NaN arithmetic can be trusted not to trap * * ILAENV = 0 ILAENV = 1 @@ -697,7 +694,7 @@ * 150 CONTINUE * -* ISPEC = 11: infinity arithmetic can be trusted not to trap +* ISPEC = 11: ieee infinity arithmetic can be trusted not to trap * * ILAENV = 0 ILAENV = 1 @@ -708,7 +705,7 @@ * 160 CONTINUE * -* 12 <= ISPEC <= 16: xHSEQR or related subroutines. +* 12 <= ISPEC <= 17: xHSEQR or related subroutines. * ILAENV = IPARMQ( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) RETURN diff --git a/lapack-netlib/SRC/ilaenv2stage.f b/lapack-netlib/SRC/ilaenv2stage.f index db30a1b4d..f2b105307 100644 --- a/lapack-netlib/SRC/ilaenv2stage.f +++ b/lapack-netlib/SRC/ilaenv2stage.f @@ -122,8 +122,6 @@ *> \author NAG Ltd. *> \author Nick R. Papior * -*> \date July 2017 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -149,7 +147,7 @@ * ===================================================================== INTEGER FUNCTION ILAENV2STAGE( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * July 2017 diff --git a/lapack-netlib/SRC/ilaprec.f b/lapack-netlib/SRC/ilaprec.f index f1f32ac4b..6aea3e0f0 100644 --- a/lapack-netlib/SRC/ilaprec.f +++ b/lapack-netlib/SRC/ilaprec.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== INTEGER FUNCTION ILAPREC( PREC ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER PREC diff --git a/lapack-netlib/SRC/ilaslc.f b/lapack-netlib/SRC/ilaslc.f index e59c57517..e299ff7c1 100644 --- a/lapack-netlib/SRC/ilaslc.f +++ b/lapack-netlib/SRC/ilaslc.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILASLC( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/SRC/ilaslr.f b/lapack-netlib/SRC/ilaslr.f index 910bc800d..840a797f0 100644 --- a/lapack-netlib/SRC/ilaslr.f +++ b/lapack-netlib/SRC/ilaslr.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILASLR( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/SRC/ilatrans.f b/lapack-netlib/SRC/ilatrans.f index 6b90bfc76..e822261ef 100644 --- a/lapack-netlib/SRC/ilatrans.f +++ b/lapack-netlib/SRC/ilatrans.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== INTEGER FUNCTION ILATRANS( TRANS ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/ilauplo.f b/lapack-netlib/SRC/ilauplo.f index 89bc9b225..8d5b1210b 100644 --- a/lapack-netlib/SRC/ilauplo.f +++ b/lapack-netlib/SRC/ilauplo.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== INTEGER FUNCTION ILAUPLO( UPLO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ilazlc.f b/lapack-netlib/SRC/ilazlc.f index 07dfc93e3..8af3430e6 100644 --- a/lapack-netlib/SRC/ilazlc.f +++ b/lapack-netlib/SRC/ilazlc.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILAZLC( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/SRC/ilazlr.f b/lapack-netlib/SRC/ilazlr.f index 4ca4ed1a4..e0134a6a3 100644 --- a/lapack-netlib/SRC/ilazlr.f +++ b/lapack-netlib/SRC/ilazlr.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== INTEGER FUNCTION ILAZLR( M, N, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/SRC/iparam2stage.F b/lapack-netlib/SRC/iparam2stage.F index 1a37300a7..c153eef22 100644 --- a/lapack-netlib/SRC/iparam2stage.F +++ b/lapack-netlib/SRC/iparam2stage.F @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERauxiliary * *> \par Further Details: @@ -159,10 +157,9 @@ #endif IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*( * ) NAME, OPTS diff --git a/lapack-netlib/SRC/iparmq.f b/lapack-netlib/SRC/iparmq.f index bb711243d..54c05471c 100644 --- a/lapack-netlib/SRC/iparmq.f +++ b/lapack-netlib/SRC/iparmq.f @@ -100,6 +100,10 @@ *> IPARMQ(ISPEC=16)=1 may be more efficient than *> IPARMQ(ISPEC=16)=2 despite the greater level of *> arithmetic work implied by the latter choice.) +*> +*> ISPEC=17: (ICOST) An estimate of the relative cost of flops +*> within the near-the-diagonal shift chase compared +*> to flops within the BLAS calls of a QZ sweep. *> \endverbatim *> *> \param[in] NAME @@ -147,8 +151,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -217,15 +219,18 @@ *> IPARMQ(ISPEC=16) Select structured matrix multiply. *> (See ISPEC=16 above for details.) *> Default: 3. +*> +*> IPARMQ(ISPEC=17) Relative cost heuristic for blocksize selection. +*> Expressed as a percentage. +*> Default: 10. *> \endverbatim *> * ===================================================================== INTEGER FUNCTION IPARMQ( ISPEC, NAME, OPTS, N, ILO, IHI, LWORK ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IHI, ILO, ISPEC, LWORK, N @@ -233,12 +238,12 @@ * * ================================================================ * .. Parameters .. - INTEGER INMIN, INWIN, INIBL, ISHFTS, IACC22 + INTEGER INMIN, INWIN, INIBL, ISHFTS, IACC22, ICOST PARAMETER ( INMIN = 12, INWIN = 13, INIBL = 14, - $ ISHFTS = 15, IACC22 = 16 ) - INTEGER NMIN, K22MIN, KACMIN, NIBBLE, KNWSWP + $ ISHFTS = 15, IACC22 = 16, ICOST = 17 ) + INTEGER NMIN, K22MIN, KACMIN, NIBBLE, KNWSWP, RCOST PARAMETER ( NMIN = 75, K22MIN = 14, KACMIN = 14, - $ NIBBLE = 14, KNWSWP = 500 ) + $ NIBBLE = 14, KNWSWP = 500, RCOST = 10 ) REAL TWO PARAMETER ( TWO = 2.0 ) * .. @@ -384,6 +389,12 @@ $ IPARMQ = 2 END IF * + ELSE IF( ISPEC.EQ.ICOST ) THEN +* +* === Relative cost of near-the-diagonal chase vs +* BLAS updates === +* + IPARMQ = RCOST ELSE * ===== invalid value of ispec ===== IPARMQ = -1 diff --git a/lapack-netlib/SRC/izmax1.f b/lapack-netlib/SRC/izmax1.f index bec5c68ea..210652fd1 100644 --- a/lapack-netlib/SRC/izmax1.f +++ b/lapack-netlib/SRC/izmax1.f @@ -69,8 +69,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date February 2014 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -81,10 +79,9 @@ * ===================================================================== INTEGER FUNCTION IZMAX1( N, ZX, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2014 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/la_constants.f90 b/lapack-netlib/SRC/la_constants.f90 new file mode 100644 index 000000000..26bec3168 --- /dev/null +++ b/lapack-netlib/SRC/la_constants.f90 @@ -0,0 +1,131 @@ +!> \brief \b LA_CONSTANTS is a module for the scaling constants for the compiled Fortran single and double precisions +! +! =========== DOCUMENTATION =========== +! +! Online html documentation available at +! http://www.netlib.org/lapack/explore-html/ +! +! Authors: +! ======== +! +!> \author Edward Anderson, Lockheed Martin +! +!> \date May 2016 +! +!> \ingroup OTHERauxiliary +! +!> \par Contributors: +! ================== +!> +!> Weslley Pereira, University of Colorado Denver, USA +!> Nick Papior, Technical University of Denmark, DK +! +!> \par Further Details: +! ===================== +!> +!> \verbatim +!> +!> Anderson E. (2017) +!> Algorithm 978: Safe Scaling in the Level 1 BLAS +!> ACM Trans Math Softw 44:1--28 +!> https://doi.org/10.1145/3061665 +!> +!> Blue, James L. (1978) +!> A Portable Fortran Program to Find the Euclidean Norm of a Vector +!> ACM Trans Math Softw 4:15--23 +!> https://doi.org/10.1145/355769.355771 +!> +!> \endverbatim +! +module LA_CONSTANTS +! -- LAPACK auxiliary module -- +! -- LAPACK is a software package provided by Univ. of Tennessee, -- +! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- + +! Standard constants for + integer, parameter :: sp = kind(1.e0) + + real(sp), parameter :: szero = 0.0_sp + real(sp), parameter :: shalf = 0.5_sp + real(sp), parameter :: sone = 1.0_sp + real(sp), parameter :: stwo = 2.0_sp + real(sp), parameter :: sthree = 3.0_sp + real(sp), parameter :: sfour = 4.0_sp + real(sp), parameter :: seight = 8.0_sp + real(sp), parameter :: sten = 10.0_sp + complex(sp), parameter :: czero = ( 0.0_sp, 0.0_sp ) + complex(sp), parameter :: chalf = ( 0.5_sp, 0.0_sp ) + complex(sp), parameter :: cone = ( 1.0_sp, 0.0_sp ) + character*1, parameter :: sprefix = 'S' + character*1, parameter :: cprefix = 'C' + +! Scaling constants + real(sp), parameter :: sulp = epsilon(0._sp) + real(sp), parameter :: seps = sulp * 0.5_sp + real(sp), parameter :: ssafmin = real(radix(0._sp),sp)**max( & + minexponent(0._sp)-1, & + 1-maxexponent(0._sp) & + ) + real(sp), parameter :: ssafmax = sone / ssafmin + real(sp), parameter :: ssmlnum = ssafmin / sulp + real(sp), parameter :: sbignum = ssafmax * sulp + real(sp), parameter :: srtmin = sqrt(ssmlnum) + real(sp), parameter :: srtmax = sqrt(sbignum) + +! Blue's scaling constants + real(sp), parameter :: stsml = real(radix(0._sp), sp)**ceiling( & + (minexponent(0._sp) - 1) * 0.5_sp) + real(sp), parameter :: stbig = real(radix(0._sp), sp)**floor( & + (maxexponent(0._sp) - digits(0._sp) + 1) * 0.5_sp) +! ssml >= 1/s, where s was defined in https://doi.org/10.1145/355769.355771 +! The correction was added in https://doi.org/10.1145/3061665 to scale denormalized numbers correctly + real(sp), parameter :: sssml = real(radix(0._sp), sp)**( - floor( & + (minexponent(0._sp) - digits(0._sp)) * 0.5_sp)) +! sbig = 1/S, where S was defined in https://doi.org/10.1145/355769.355771 + real(sp), parameter :: ssbig = real(radix(0._sp), sp)**( - ceiling( & + (maxexponent(0._sp) + digits(0._sp) - 1) * 0.5_sp)) + +! Standard constants for + integer, parameter :: dp = kind(1.d0) + + real(dp), parameter :: dzero = 0.0_dp + real(dp), parameter :: dhalf = 0.5_dp + real(dp), parameter :: done = 1.0_dp + real(dp), parameter :: dtwo = 2.0_dp + real(dp), parameter :: dthree = 3.0_dp + real(dp), parameter :: dfour = 4.0_dp + real(dp), parameter :: deight = 8.0_dp + real(dp), parameter :: dten = 10.0_dp + complex(dp), parameter :: zzero = ( 0.0_dp, 0.0_dp ) + complex(dp), parameter :: zhalf = ( 0.5_dp, 0.0_dp ) + complex(dp), parameter :: zone = ( 1.0_dp, 0.0_dp ) + character*1, parameter :: dprefix = 'D' + character*1, parameter :: zprefix = 'Z' + +! Scaling constants + real(dp), parameter :: dulp = epsilon(0._dp) + real(dp), parameter :: deps = dulp * 0.5_dp + real(dp), parameter :: dsafmin = real(radix(0._dp),dp)**max( & + minexponent(0._dp)-1, & + 1-maxexponent(0._dp) & + ) + real(dp), parameter :: dsafmax = done / dsafmin + real(dp), parameter :: dsmlnum = dsafmin / dulp + real(dp), parameter :: dbignum = dsafmax * dulp + real(dp), parameter :: drtmin = sqrt(dsmlnum) + real(dp), parameter :: drtmax = sqrt(dbignum) + +! Blue's scaling constants + real(dp), parameter :: dtsml = real(radix(0._dp), dp)**ceiling( & + (minexponent(0._dp) - 1) * 0.5_dp) + real(dp), parameter :: dtbig = real(radix(0._dp), dp)**floor( & + (maxexponent(0._dp) - digits(0._dp) + 1) * 0.5_dp) +! ssml >= 1/s, where s was defined in https://doi.org/10.1145/355769.355771 +! The correction was added in https://doi.org/10.1145/3061665 to scale denormalized numbers correctly + real(dp), parameter :: dssml = real(radix(0._dp), dp)**( - floor( & + (minexponent(0._dp) - digits(0._dp)) * 0.5_dp)) +! sbig = 1/S, where S was defined in https://doi.org/10.1145/355769.355771 + real(dp), parameter :: dsbig = real(radix(0._dp), dp)**( - ceiling( & + (maxexponent(0._dp) + digits(0._dp) - 1) * 0.5_dp)) + +end module LA_CONSTANTS diff --git a/lapack-netlib/SRC/la_xisnan.F90 b/lapack-netlib/SRC/la_xisnan.F90 new file mode 100644 index 000000000..50966a5c1 --- /dev/null +++ b/lapack-netlib/SRC/la_xisnan.F90 @@ -0,0 +1,59 @@ +module LA_XISNAN + interface LA_ISNAN + + module procedure SISNAN + module procedure DISNAN + + end interface + +contains + + logical function SISNAN( x ) + use LA_CONSTANTS, only: wp=>sp +#ifdef USE_IEEE_INTRINSIC + use, intrinsic :: ieee_arithmetic +#elif USE_ISNAN + intrinsic :: isnan +#endif + real(wp) :: x +#ifdef USE_IEEE_INTRINSIC + sisnan = ieee_is_nan(x) +#elif USE_ISNAN + sisnan = isnan(x) +#else + sisnan = SLAISNAN(x,x) + + contains + logical function SLAISNAN( x, y ) + use LA_CONSTANTS, only: wp=>sp + real(wp) :: x, y + SLAISNAN = ( x.ne.y ) + end function SLAISNAN +#endif + end function SISNAN + + logical function DISNAN( x ) + use LA_CONSTANTS, only: wp=>dp +#ifdef USE_IEEE_INTRINSIC + use, intrinsic :: ieee_arithmetic +#elif USE_ISNAN + intrinsic :: isnan +#endif + real(wp) :: x +#ifdef USE_IEEE_INTRINSIC + DISNAN = ieee_is_nan(x) +#elif USE_ISNAN + DISNAN = isnan(x) +#else + DISNAN = DLAISNAN(x,x) + + contains + logical function DLAISNAN( x, y ) + use LA_CONSTANTS, only: wp=>dp + real(wp) :: x, y + DLAISNAN = ( x.ne.y ) + end function DLAISNAN +#endif + end function DISNAN + +end module LA_XISNAN diff --git a/lapack-netlib/SRC/lsamen.f b/lapack-netlib/SRC/lsamen.f index d25c6f862..59a81976f 100644 --- a/lapack-netlib/SRC/lsamen.f +++ b/lapack-netlib/SRC/lsamen.f @@ -67,17 +67,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== LOGICAL FUNCTION LSAMEN( N, CA, CB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*( * ) CA, CB diff --git a/lapack-netlib/SRC/sbbcsd.f b/lapack-netlib/SRC/sbbcsd.f index e1f83976f..d5720cb33 100644 --- a/lapack-netlib/SRC/sbbcsd.f +++ b/lapack-netlib/SRC/sbbcsd.f @@ -322,8 +322,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== @@ -332,10 +330,9 @@ $ V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, $ B22D, B22E, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS @@ -354,12 +351,13 @@ * .. Parameters .. INTEGER MAXITR PARAMETER ( MAXITR = 6 ) - REAL HUNDRED, MEIGHTH, ONE, PIOVER2, TEN, ZERO + REAL HUNDRED, MEIGHTH, ONE, TEN, ZERO PARAMETER ( HUNDRED = 100.0E0, MEIGHTH = -0.125E0, - $ ONE = 1.0E0, PIOVER2 = 1.57079632679489662E0, - $ TEN = 10.0E0, ZERO = 0.0E0 ) + $ ONE = 1.0E0, TEN = 10.0E0, ZERO = 0.0E0 ) REAL NEGONE PARAMETER ( NEGONE = -1.0E0 ) + REAL PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210E0 ) * .. * .. Local Scalars .. LOGICAL COLMAJOR, LQUERY, RESTART11, RESTART12, diff --git a/lapack-netlib/SRC/sbdsdc.f b/lapack-netlib/SRC/sbdsdc.f index 1c559cec7..18a404497 100644 --- a/lapack-netlib/SRC/sbdsdc.f +++ b/lapack-netlib/SRC/sbdsdc.f @@ -191,8 +191,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -205,10 +203,9 @@ SUBROUTINE SBDSDC( UPLO, COMPQ, N, D, E, U, LDU, VT, LDVT, Q, IQ, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, UPLO diff --git a/lapack-netlib/SRC/sbdsqr.f b/lapack-netlib/SRC/sbdsqr.f index b0067f679..c798baaf5 100644 --- a/lapack-netlib/SRC/sbdsqr.f +++ b/lapack-netlib/SRC/sbdsqr.f @@ -232,18 +232,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, $ LDU, C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sbdsvdx.f b/lapack-netlib/SRC/sbdsvdx.f index c46674c47..dcd554f1d 100644 --- a/lapack-netlib/SRC/sbdsvdx.f +++ b/lapack-netlib/SRC/sbdsvdx.f @@ -218,18 +218,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SBDSVDX( UPLO, JOBZ, RANGE, N, D, E, VL, VU, IL, IU, $ NS, S, Z, LDZ, WORK, IWORK, INFO) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/scsum1.f b/lapack-netlib/SRC/scsum1.f index 7fa03198f..2616e4b78 100644 --- a/lapack-netlib/SRC/scsum1.f +++ b/lapack-netlib/SRC/scsum1.f @@ -69,8 +69,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complexOTHERauxiliary * *> \par Contributors: @@ -81,10 +79,9 @@ * ===================================================================== REAL FUNCTION SCSUM1( N, CX, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/sdisna.f b/lapack-netlib/SRC/sdisna.f index b03403387..004ceae67 100644 --- a/lapack-netlib/SRC/sdisna.f +++ b/lapack-netlib/SRC/sdisna.f @@ -110,17 +110,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SDISNA( JOB, M, N, D, SEP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/sgbbrd.f b/lapack-netlib/SRC/sgbbrd.f index 4711c8074..74e9fe767 100644 --- a/lapack-netlib/SRC/sgbbrd.f +++ b/lapack-netlib/SRC/sgbbrd.f @@ -179,18 +179,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * * ===================================================================== SUBROUTINE SGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, $ LDQ, PT, LDPT, C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER VECT diff --git a/lapack-netlib/SRC/sgbcon.f b/lapack-netlib/SRC/sgbcon.f index 2294bbf4e..1914f152c 100644 --- a/lapack-netlib/SRC/sgbcon.f +++ b/lapack-netlib/SRC/sgbcon.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * * ===================================================================== SUBROUTINE SGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/sgbequ.f b/lapack-netlib/SRC/sgbequ.f index 100136157..b3c4dfd5d 100644 --- a/lapack-netlib/SRC/sgbequ.f +++ b/lapack-netlib/SRC/sgbequ.f @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * * ===================================================================== SUBROUTINE SGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/sgbequb.f b/lapack-netlib/SRC/sgbequb.f index 5fa4abfc8..206624d2a 100644 --- a/lapack-netlib/SRC/sgbequb.f +++ b/lapack-netlib/SRC/sgbequb.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realGBcomputational * * ===================================================================== SUBROUTINE SGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/sgbrfs.f b/lapack-netlib/SRC/sgbrfs.f index 593c15861..2a8f3d1f2 100644 --- a/lapack-netlib/SRC/sgbrfs.f +++ b/lapack-netlib/SRC/sgbrfs.f @@ -196,8 +196,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * * ===================================================================== @@ -205,10 +203,9 @@ $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/sgbrfsx.f b/lapack-netlib/SRC/sgbrfsx.f index 78ae584e1..0193ba4f0 100644 --- a/lapack-netlib/SRC/sgbrfsx.f +++ b/lapack-netlib/SRC/sgbrfsx.f @@ -138,7 +138,7 @@ *> \verbatim *> AFB is REAL array, dimension (LDAFB,N) *> Details of the LU factorization of the band matrix A, as -*> computed by DGBTRF. U is stored as an upper triangular band +*> computed by SGBTRF. U is stored as an upper triangular band *> matrix with KL+KU superdiagonals in rows 1 to KL+KU+1, and *> the multipliers used during the factorization are stored in *> rows KL+KU+2 to 2*KL+KU+1. @@ -429,8 +429,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realGBcomputational * * ===================================================================== @@ -440,10 +438,9 @@ $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER TRANS, EQUED diff --git a/lapack-netlib/SRC/sgbsv.f b/lapack-netlib/SRC/sgbsv.f index 9b922966e..d4af6dfe3 100644 --- a/lapack-netlib/SRC/sgbsv.f +++ b/lapack-netlib/SRC/sgbsv.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE SGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS diff --git a/lapack-netlib/SRC/sgbsvx.f b/lapack-netlib/SRC/sgbsvx.f index acd7db284..40829a71b 100644 --- a/lapack-netlib/SRC/sgbsvx.f +++ b/lapack-netlib/SRC/sgbsvx.f @@ -359,8 +359,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realGBsolve * * ===================================================================== @@ -368,10 +366,9 @@ $ LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/sgbsvxx.f b/lapack-netlib/SRC/sgbsvxx.f index 3c3d737b3..aef9034ae 100644 --- a/lapack-netlib/SRC/sgbsvxx.f +++ b/lapack-netlib/SRC/sgbsvxx.f @@ -552,8 +552,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realGBsolve * * ===================================================================== @@ -563,10 +561,9 @@ $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/sgbtf2.f b/lapack-netlib/SRC/sgbtf2.f index ecf10e314..8bdea3902 100644 --- a/lapack-netlib/SRC/sgbtf2.f +++ b/lapack-netlib/SRC/sgbtf2.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * *> \par Further Details: @@ -145,10 +143,9 @@ * ===================================================================== SUBROUTINE SGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/sgbtrf.f b/lapack-netlib/SRC/sgbtrf.f index 2572f37b7..56712f157 100644 --- a/lapack-netlib/SRC/sgbtrf.f +++ b/lapack-netlib/SRC/sgbtrf.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * *> \par Further Details: @@ -144,10 +142,9 @@ * ===================================================================== SUBROUTINE SGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/sgbtrs.f b/lapack-netlib/SRC/sgbtrs.f index 477b03331..fc4601b5f 100644 --- a/lapack-netlib/SRC/sgbtrs.f +++ b/lapack-netlib/SRC/sgbtrs.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * * ===================================================================== SUBROUTINE SGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/sgebak.f b/lapack-netlib/SRC/sgebak.f index 5c64c8b97..b51b611a9 100644 --- a/lapack-netlib/SRC/sgebak.f +++ b/lapack-netlib/SRC/sgebak.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB, SIDE diff --git a/lapack-netlib/SRC/sgebal.f b/lapack-netlib/SRC/sgebal.f index d34dc3b67..f519c8c57 100644 --- a/lapack-netlib/SRC/sgebal.f +++ b/lapack-netlib/SRC/sgebal.f @@ -121,8 +121,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -160,10 +158,9 @@ * ===================================================================== SUBROUTINE SGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/sgebd2.f b/lapack-netlib/SRC/sgebd2.f index 2123ce25e..cb57ed678 100644 --- a/lapack-netlib/SRC/sgebd2.f +++ b/lapack-netlib/SRC/sgebd2.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ * ===================================================================== SUBROUTINE SGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgebrd.f b/lapack-netlib/SRC/sgebrd.f index e825b4fc9..08701164c 100644 --- a/lapack-netlib/SRC/sgebrd.f +++ b/lapack-netlib/SRC/sgebrd.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -205,10 +203,9 @@ SUBROUTINE SGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/sgecon.f b/lapack-netlib/SRC/sgecon.f index d8f087ddf..a284b094b 100644 --- a/lapack-netlib/SRC/sgecon.f +++ b/lapack-netlib/SRC/sgecon.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/sgeequ.f b/lapack-netlib/SRC/sgeequ.f index bb5592bd1..9928eaf62 100644 --- a/lapack-netlib/SRC/sgeequ.f +++ b/lapack-netlib/SRC/sgeequ.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgeequb.f b/lapack-netlib/SRC/sgeequb.f index e04ee451d..c669f4c0e 100644 --- a/lapack-netlib/SRC/sgeequb.f +++ b/lapack-netlib/SRC/sgeequb.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgees.f b/lapack-netlib/SRC/sgees.f index 06c451322..d40503f89 100644 --- a/lapack-netlib/SRC/sgees.f +++ b/lapack-netlib/SRC/sgees.f @@ -208,18 +208,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEeigen * * ===================================================================== SUBROUTINE SGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, WR, WI, $ VS, LDVS, WORK, LWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBVS, SORT diff --git a/lapack-netlib/SRC/sgeesx.f b/lapack-netlib/SRC/sgeesx.f index 5ffa3bc37..27c4338d4 100644 --- a/lapack-netlib/SRC/sgeesx.f +++ b/lapack-netlib/SRC/sgeesx.f @@ -272,8 +272,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realGEeigen * * ===================================================================== @@ -281,10 +279,9 @@ $ WR, WI, VS, LDVS, RCONDE, RCONDV, WORK, LWORK, $ IWORK, LIWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBVS, SENSE, SORT diff --git a/lapack-netlib/SRC/sgeev.f b/lapack-netlib/SRC/sgeev.f index 08c5a57f4..ed1724721 100644 --- a/lapack-netlib/SRC/sgeev.f +++ b/lapack-netlib/SRC/sgeev.f @@ -181,7 +181,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 * * @generated from dgeev.f, fortran d -> s, Tue Apr 19 01:47:44 2016 * @@ -192,10 +191,9 @@ $ LDVR, WORK, LWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/sgeevx.f b/lapack-netlib/SRC/sgeevx.f index b11f50041..ed1ea1cb9 100644 --- a/lapack-netlib/SRC/sgeevx.f +++ b/lapack-netlib/SRC/sgeevx.f @@ -294,7 +294,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 * * @generated from dgeevx.f, fortran d -> s, Tue Apr 19 01:47:44 2016 * @@ -306,10 +305,9 @@ $ RCONDE, RCONDV, WORK, LWORK, IWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE diff --git a/lapack-netlib/SRC/sgehd2.f b/lapack-netlib/SRC/sgehd2.f index 6a172b7b2..c7d8db19e 100644 --- a/lapack-netlib/SRC/sgehd2.f +++ b/lapack-netlib/SRC/sgehd2.f @@ -106,8 +106,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -149,10 +147,9 @@ * ===================================================================== SUBROUTINE SGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, N diff --git a/lapack-netlib/SRC/sgehrd.f b/lapack-netlib/SRC/sgehrd.f index 75a1bca03..41b9aa78e 100644 --- a/lapack-netlib/SRC/sgehrd.f +++ b/lapack-netlib/SRC/sgehrd.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -159,18 +157,17 @@ *> modified element of the upper Hessenberg matrix H, and vi denotes an *> element of the vector defining H(i). *> -*> This file is a slight modification of LAPACK-3.0's DGEHRD +*> This file is a slight modification of LAPACK-3.0's SGEHRD *> subroutine incorporating improvements proposed by Quintana-Orti and -*> Van de Geijn (2006). (See DLAHR2.) +*> Van de Geijn (2006). (See SLAHR2.) *> \endverbatim *> * ===================================================================== SUBROUTINE SGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/sgejsv.f b/lapack-netlib/SRC/sgejsv.f index 4ad316d99..82ac6b94b 100644 --- a/lapack-netlib/SRC/sgejsv.f +++ b/lapack-netlib/SRC/sgejsv.f @@ -289,7 +289,7 @@ *> singular values might be lost. *> *> If full SVD is needed, the following two condition numbers are -*> useful for the analysis of the algorithm. They are provied for +*> useful for the analysis of the algorithm. They are provided for *> a developer/implementer who is familiar with the details of *> the method. *> @@ -391,8 +391,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realGEsing * *> \par Further Details: @@ -476,10 +474,9 @@ $ M, N, A, LDA, SVA, U, LDU, V, LDV, $ WORK, LWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. IMPLICIT NONE @@ -932,7 +929,7 @@ * (eg speed by replacing global with restricted window pivoting, such * as in SGEQPX from TOMS # 782). Good results will be obtained using * SGEQPX with properly (!) chosen numerical parameters. -* Any improvement of SGEQP3 improves overal performance of SGEJSV. +* Any improvement of SGEQP3 improves overall performance of SGEJSV. * * A * P1 = Q1 * [ R1^t 0]^t: DO 1963 p = 1, N diff --git a/lapack-netlib/SRC/sgelq.f b/lapack-netlib/SRC/sgelq.f index e45c68db4..9209f918e 100644 --- a/lapack-netlib/SRC/sgelq.f +++ b/lapack-netlib/SRC/sgelq.f @@ -170,10 +170,9 @@ SUBROUTINE SGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, TSIZE, LWORK diff --git a/lapack-netlib/SRC/sgelq2.f b/lapack-netlib/SRC/sgelq2.f index df8128d53..3e50beb13 100644 --- a/lapack-netlib/SRC/sgelq2.f +++ b/lapack-netlib/SRC/sgelq2.f @@ -40,7 +40,7 @@ *> where: *> *> Q is a n-by-n orthogonal matrix; -*> L is an lower-triangular m-by-m matrix; +*> L is a lower-triangular m-by-m matrix; *> 0 is a m-by-(n-m) zero matrix, if m < n. *> *> \endverbatim @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -129,10 +127,9 @@ * ===================================================================== SUBROUTINE SGELQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgelqf.f b/lapack-netlib/SRC/sgelqf.f index 90357e623..24d8ab19c 100644 --- a/lapack-netlib/SRC/sgelqf.f +++ b/lapack-netlib/SRC/sgelqf.f @@ -40,7 +40,7 @@ *> where: *> *> Q is a N-by-N orthogonal matrix; -*> L is an lower-triangular M-by-M matrix; +*> L is a lower-triangular M-by-M matrix; *> 0 is a M-by-(N-M) zero matrix, if M < N. *> *> \endverbatim @@ -118,8 +118,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -143,10 +141,9 @@ * ===================================================================== SUBROUTINE SGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/sgelqt.f b/lapack-netlib/SRC/sgelqt.f index 64d46025c..b5a4c21b3 100644 --- a/lapack-netlib/SRC/sgelqt.f +++ b/lapack-netlib/SRC/sgelqt.f @@ -93,8 +93,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -124,10 +122,9 @@ * ===================================================================== SUBROUTINE SGELQT( M, N, MB, A, LDA, T, LDT, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, MB diff --git a/lapack-netlib/SRC/sgelqt3.f b/lapack-netlib/SRC/sgelqt3.f index edf5d6d30..23816b4c8 100644 --- a/lapack-netlib/SRC/sgelqt3.f +++ b/lapack-netlib/SRC/sgelqt3.f @@ -18,7 +18,7 @@ *> *> \verbatim *> -*> DGELQT3 recursively computes a LQ factorization of a real M-by-N +*> SGELQT3 recursively computes a LQ factorization of a real M-by-N *> matrix A, using the compact WY representation of Q. *> *> Based on the algorithm of Elmroth and Gustavson, @@ -85,8 +85,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -116,10 +114,9 @@ * ===================================================================== RECURSIVE SUBROUTINE SGELQT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT @@ -159,7 +156,7 @@ * IF( M.EQ.1 ) THEN * -* Compute Householder transform when N=1 +* Compute Householder transform when M=1 * CALL SLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T ) * diff --git a/lapack-netlib/SRC/sgels.f b/lapack-netlib/SRC/sgels.f index ee50f30ad..ea02c3318 100644 --- a/lapack-netlib/SRC/sgels.f +++ b/lapack-netlib/SRC/sgels.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEsolve * * ===================================================================== SUBROUTINE SGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/sgelsd.f b/lapack-netlib/SRC/sgelsd.f index 9a18961d6..f5f17d34c 100644 --- a/lapack-netlib/SRC/sgelsd.f +++ b/lapack-netlib/SRC/sgelsd.f @@ -195,8 +195,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEsolve * *> \par Contributors: @@ -210,10 +208,9 @@ SUBROUTINE SGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, $ RANK, WORK, LWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/sgelss.f b/lapack-netlib/SRC/sgelss.f index 84a882d2e..be9e2ea11 100644 --- a/lapack-netlib/SRC/sgelss.f +++ b/lapack-netlib/SRC/sgelss.f @@ -164,18 +164,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEsolve * * ===================================================================== SUBROUTINE SGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/sgelsy.f b/lapack-netlib/SRC/sgelsy.f index 58bd7c8cf..9c60f78a7 100644 --- a/lapack-netlib/SRC/sgelsy.f +++ b/lapack-netlib/SRC/sgelsy.f @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEsolve * *> \par Contributors: @@ -204,10 +202,9 @@ SUBROUTINE SGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/sgemlq.f b/lapack-netlib/SRC/sgemlq.f index 5f2e02a8e..536abf184 100644 --- a/lapack-netlib/SRC/sgemlq.f +++ b/lapack-netlib/SRC/sgemlq.f @@ -168,10 +168,9 @@ SUBROUTINE SGEMLQ( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/sgemlqt.f b/lapack-netlib/SRC/sgemlqt.f index 37850fdf5..bb128c824 100644 --- a/lapack-netlib/SRC/sgemlqt.f +++ b/lapack-netlib/SRC/sgemlqt.f @@ -31,7 +31,7 @@ *> *> Q = H(1) H(2) . . . H(K) = I - V T V**T *> -*> generated using the compact WY representation as returned by DGELQT. +*> generated using the compact WY representation as returned by SGELQT. *> *> Q is of order M if SIDE = 'L' and of order N if SIDE = 'R'. *> \endverbatim @@ -79,7 +79,7 @@ *> MB is INTEGER *> The block size used for the storage of T. K >= MB >= 1. *> This must be the same value of MB used to generate T -*> in DGELQT. +*> in SGELQT. *> \endverbatim *> *> \param[in] V @@ -89,7 +89,7 @@ *> (LDV,N) if SIDE = 'R' *> The i-th row must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> DGELQT in the first K rows of its array argument A. +*> SGELQT in the first K rows of its array argument A. *> \endverbatim *> *> \param[in] LDV @@ -102,7 +102,7 @@ *> \verbatim *> T is REAL array, dimension (LDT,K) *> The upper triangular factors of the block reflectors -*> as returned by DGELQT, stored as a MB-by-K matrix. +*> as returned by SGELQT, stored as a MB-by-K matrix. *> \endverbatim *> *> \param[in] LDT @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE SGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -171,7 +168,7 @@ * .. * .. Local Scalars .. LOGICAL LEFT, RIGHT, TRAN, NOTRAN - INTEGER I, IB, LDWORK, KF + INTEGER I, IB, LDWORK, KF, Q * .. * .. External Functions .. LOGICAL LSAME @@ -195,8 +192,10 @@ * IF( LEFT ) THEN LDWORK = MAX( 1, N ) + Q = M ELSE IF ( RIGHT ) THEN LDWORK = MAX( 1, M ) + Q = N END IF IF( .NOT.LEFT .AND. .NOT.RIGHT ) THEN INFO = -1 @@ -206,7 +205,7 @@ INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 - ELSE IF( K.LT.0) THEN + ELSE IF( K.LT.0 .OR. K.GT.Q ) THEN INFO = -5 ELSE IF( MB.LT.1 .OR. (MB.GT.K .AND. K.GT.0)) THEN INFO = -6 diff --git a/lapack-netlib/SRC/sgemqr.f b/lapack-netlib/SRC/sgemqr.f index 66c5117c9..2a9257459 100644 --- a/lapack-netlib/SRC/sgemqr.f +++ b/lapack-netlib/SRC/sgemqr.f @@ -170,10 +170,9 @@ SUBROUTINE SGEMQR( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/sgemqrt.f b/lapack-netlib/SRC/sgemqrt.f index 843151a9c..2dedfb212 100644 --- a/lapack-netlib/SRC/sgemqrt.f +++ b/lapack-netlib/SRC/sgemqrt.f @@ -94,7 +94,7 @@ *> NB is INTEGER *> The block size used for the storage of T. K >= NB >= 1. *> This must be the same value of NB used to generate T -*> in CGEQRT. +*> in SGEQRT. *> \endverbatim *> *> \param[in] V @@ -102,7 +102,7 @@ *> V is REAL array, dimension (LDV,K) *> The i-th column must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> CGEQRT in the first K columns of its array argument A. +*> SGEQRT in the first K columns of its array argument A. *> \endverbatim *> *> \param[in] LDV @@ -117,7 +117,7 @@ *> \verbatim *> T is REAL array, dimension (LDT,K) *> The upper triangular factors of the block reflectors -*> as returned by CGEQRT, stored as a NB-by-N matrix. +*> as returned by SGEQRT, stored as a NB-by-N matrix. *> \endverbatim *> *> \param[in] LDT @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/sgeql2.f b/lapack-netlib/SRC/sgeql2.f index 53009b9de..ea5ad6b82 100644 --- a/lapack-netlib/SRC/sgeql2.f +++ b/lapack-netlib/SRC/sgeql2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -123,10 +121,9 @@ * ===================================================================== SUBROUTINE SGEQL2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgeqlf.f b/lapack-netlib/SRC/sgeqlf.f index ccf7a0a0d..efecfbb3c 100644 --- a/lapack-netlib/SRC/sgeqlf.f +++ b/lapack-netlib/SRC/sgeqlf.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE SGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/sgeqp3.f b/lapack-netlib/SRC/sgeqp3.f index 303a944f4..493bdae6a 100644 --- a/lapack-netlib/SRC/sgeqp3.f +++ b/lapack-netlib/SRC/sgeqp3.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -151,10 +149,9 @@ * ===================================================================== SUBROUTINE SGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/sgeqr.f b/lapack-netlib/SRC/sgeqr.f index 4a6bb9ea5..6f41a92ea 100644 --- a/lapack-netlib/SRC/sgeqr.f +++ b/lapack-netlib/SRC/sgeqr.f @@ -172,10 +172,9 @@ SUBROUTINE SGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, TSIZE, LWORK diff --git a/lapack-netlib/SRC/sgeqr2.f b/lapack-netlib/SRC/sgeqr2.f index 0a1ff304f..5eef521f2 100644 --- a/lapack-netlib/SRC/sgeqr2.f +++ b/lapack-netlib/SRC/sgeqr2.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -130,10 +128,9 @@ * ===================================================================== SUBROUTINE SGEQR2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgeqr2p.f b/lapack-netlib/SRC/sgeqr2p.f index 08d124797..0d270e9aa 100644 --- a/lapack-netlib/SRC/sgeqr2p.f +++ b/lapack-netlib/SRC/sgeqr2p.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -134,10 +132,9 @@ * ===================================================================== SUBROUTINE SGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgeqrf.f b/lapack-netlib/SRC/sgeqrf.f index 7df495e04..f47d8bf32 100644 --- a/lapack-netlib/SRC/sgeqrf.f +++ b/lapack-netlib/SRC/sgeqrf.f @@ -95,7 +95,8 @@ *> \param[in] LWORK *> \verbatim *> LWORK is INTEGER -*> The dimension of the array WORK. LWORK >= max(1,N). +*> The dimension of the array WORK. +*> LWORK >= 1, if MIN(M,N) = 0, and LWORK >= N, otherwise. *> For optimum performance LWORK >= N*NB, where NB is *> the optimal blocksize. *> @@ -120,8 +121,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -145,10 +144,9 @@ * ===================================================================== SUBROUTINE SGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N @@ -178,10 +176,9 @@ * * Test the input arguments * + K = MIN( M, N ) INFO = 0 NB = ILAENV( 1, 'SGEQRF', ' ', M, N, -1, -1 ) - LWKOPT = N*NB - WORK( 1 ) = LWKOPT LQUERY = ( LWORK.EQ.-1 ) IF( M.LT.0 ) THEN INFO = -1 @@ -189,19 +186,25 @@ INFO = -2 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN INFO = -4 - ELSE IF( LWORK.LT.MAX( 1, N ) .AND. .NOT.LQUERY ) THEN - INFO = -7 + ELSE IF( .NOT.LQUERY ) THEN + IF( LWORK.LE.0 .OR. ( M.GT.0 .AND. LWORK.LT.MAX( 1, N ) ) ) + $ INFO = -7 END IF IF( INFO.NE.0 ) THEN CALL XERBLA( 'SGEQRF', -INFO ) RETURN ELSE IF( LQUERY ) THEN + IF( K.EQ.0 ) THEN + LWKOPT = 1 + ELSE + LWKOPT = N*NB + END IF + WORK( 1 ) = LWKOPT RETURN END IF * * Quick return if possible * - K = MIN( M, N ) IF( K.EQ.0 ) THEN WORK( 1 ) = 1 RETURN diff --git a/lapack-netlib/SRC/sgeqrfp.f b/lapack-netlib/SRC/sgeqrfp.f index 7f6741570..03d33654b 100644 --- a/lapack-netlib/SRC/sgeqrfp.f +++ b/lapack-netlib/SRC/sgeqrfp.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -149,10 +147,9 @@ * ===================================================================== SUBROUTINE SGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/sgeqrt.f b/lapack-netlib/SRC/sgeqrt.f index f7c58172c..926e4a654 100644 --- a/lapack-netlib/SRC/sgeqrt.f +++ b/lapack-netlib/SRC/sgeqrt.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -141,10 +139,9 @@ * ===================================================================== SUBROUTINE SGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, NB diff --git a/lapack-netlib/SRC/sgeqrt3.f b/lapack-netlib/SRC/sgeqrt3.f index 8316c7fed..301bad214 100644 --- a/lapack-netlib/SRC/sgeqrt3.f +++ b/lapack-netlib/SRC/sgeqrt3.f @@ -100,8 +100,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -132,10 +130,9 @@ * ===================================================================== RECURSIVE SUBROUTINE SGEQRT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT diff --git a/lapack-netlib/SRC/sgerfs.f b/lapack-netlib/SRC/sgerfs.f index aba761de1..c31ea1bd6 100644 --- a/lapack-netlib/SRC/sgerfs.f +++ b/lapack-netlib/SRC/sgerfs.f @@ -177,18 +177,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/sgerfsx.f b/lapack-netlib/SRC/sgerfsx.f index b1a1eb13d..b5d044872 100644 --- a/lapack-netlib/SRC/sgerfsx.f +++ b/lapack-netlib/SRC/sgerfsx.f @@ -404,8 +404,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== @@ -414,10 +412,9 @@ $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS, EQUED diff --git a/lapack-netlib/SRC/sgerq2.f b/lapack-netlib/SRC/sgerq2.f index 68f78c6e2..d86905c03 100644 --- a/lapack-netlib/SRC/sgerq2.f +++ b/lapack-netlib/SRC/sgerq2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -123,10 +121,9 @@ * ===================================================================== SUBROUTINE SGERQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgerqf.f b/lapack-netlib/SRC/sgerqf.f index 8b842cbd8..037cd5345 100644 --- a/lapack-netlib/SRC/sgerqf.f +++ b/lapack-netlib/SRC/sgerqf.f @@ -88,7 +88,8 @@ *> \param[in] LWORK *> \verbatim *> LWORK is INTEGER -*> The dimension of the array WORK. LWORK >= max(1,M). +*> The dimension of the array WORK. +*> LWORK >= 1, if MIN(M,N) = 0, and LWORK >= M, otherwise. *> For optimum performance LWORK >= M*NB, where NB is *> the optimal blocksize. *> @@ -113,8 +114,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -138,10 +137,9 @@ * ===================================================================== SUBROUTINE SGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N @@ -179,8 +177,6 @@ INFO = -2 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN INFO = -4 - ELSE IF( LWORK.LT.MAX( 1, M ) .AND. .NOT.LQUERY ) THEN - INFO = -7 END IF * IF( INFO.EQ.0 ) THEN @@ -190,12 +186,12 @@ ELSE NB = ILAENV( 1, 'SGERQF', ' ', M, N, -1, -1 ) LWKOPT = M*NB - WORK( 1 ) = LWKOPT END IF WORK( 1 ) = LWKOPT * - IF( LWORK.LT.MAX( 1, M ) .AND. .NOT.LQUERY ) THEN - INFO = -7 + IF ( .NOT.LQUERY ) THEN + IF( LWORK.LE.0 .OR. ( N.GT.0 .AND. LWORK.LT.MAX( 1, M ) ) ) + $ INFO = -7 END IF END IF * diff --git a/lapack-netlib/SRC/sgesc2.f b/lapack-netlib/SRC/sgesc2.f index 3a6f34584..2de2ed7cc 100644 --- a/lapack-netlib/SRC/sgesc2.f +++ b/lapack-netlib/SRC/sgesc2.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEauxiliary * *> \par Contributors: @@ -114,10 +112,9 @@ * ===================================================================== SUBROUTINE SGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, N diff --git a/lapack-netlib/SRC/sgesdd.f b/lapack-netlib/SRC/sgesdd.f index 89e03a002..d3b5e3ba1 100644 --- a/lapack-netlib/SRC/sgesdd.f +++ b/lapack-netlib/SRC/sgesdd.f @@ -191,9 +191,10 @@ *> \param[out] INFO *> \verbatim *> INFO is INTEGER -*> = 0: successful exit. *> < 0: if INFO = -i, the i-th argument had an illegal value. +*> = -4: if A had a NAN entry. *> > 0: SBDSDC did not converge, updating process failed. +*> = 0: successful exit. *> \endverbatim * * Authors: @@ -204,8 +205,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realGEsing * *> \par Contributors: @@ -219,10 +218,9 @@ $ WORK, LWORK, IWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ @@ -268,8 +266,9 @@ * .. * .. External Functions .. LOGICAL LSAME, SISNAN - REAL SLAMCH, SLANGE - EXTERNAL SLAMCH, SLANGE, LSAME, SISNAN + REAL SLAMCH, SLANGE, SROUNDUP_LWORK + EXTERNAL SLAMCH, SLANGE, LSAME, SISNAN, + $ SROUNDUP_LWORK * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN, SQRT @@ -570,7 +569,7 @@ END IF MAXWRK = MAX( MAXWRK, MINWRK ) - WORK( 1 ) = MAXWRK + WORK( 1 ) = SROUNDUP_LWORK( MAXWRK ) * IF( LWORK.LT.MINWRK .AND. .NOT.LQUERY ) THEN INFO = -12 @@ -1543,7 +1542,7 @@ * * Return optimal workspace in WORK(1) * - WORK( 1 ) = MAXWRK + WORK( 1 ) = SROUNDUP_LWORK( MAXWRK ) * RETURN * diff --git a/lapack-netlib/SRC/sgesv.f b/lapack-netlib/SRC/sgesv.f index 6ef2cf98b..4f4fe5215 100644 --- a/lapack-netlib/SRC/sgesv.f +++ b/lapack-netlib/SRC/sgesv.f @@ -115,17 +115,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEsolve * * ===================================================================== SUBROUTINE SGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, N, NRHS diff --git a/lapack-netlib/SRC/sgesvd.f b/lapack-netlib/SRC/sgesvd.f index c1756fa61..83321ffaa 100644 --- a/lapack-netlib/SRC/sgesvd.f +++ b/lapack-netlib/SRC/sgesvd.f @@ -203,18 +203,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realGEsing * * ===================================================================== SUBROUTINE SGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER JOBU, JOBVT diff --git a/lapack-netlib/SRC/sgesvdq.f b/lapack-netlib/SRC/sgesvdq.f index 73e34862f..ebbfc70b1 100644 --- a/lapack-netlib/SRC/sgesvdq.f +++ b/lapack-netlib/SRC/sgesvdq.f @@ -220,7 +220,7 @@ *> left singular vectors in the case JOBU = 'F'. *> *> If LIWORK, LWORK, or LRWORK = -1, then on exit, if INFO = 0, -*> LIWORK(1) returns the minimal LIWORK. +*> IWORK(1) returns the minimal LIWORK. *> \endverbatim *> *> \param[in] LIWORK @@ -231,7 +231,7 @@ *> LIWORK >= N if JOBP = 'N' and JOBA .NE. 'E'; *> LIWORK >= N + M - 1 + N, if JOBP = 'P' and JOBA = 'E'; *> LIWORK >= N + N if JOBP = 'N' and JOBA = 'E'. -* +*> *> If LIWORK = -1, then a workspace query is assumed; the routine *> only calculates and returns the optimal and minimal sizes *> for the WORK, IWORK, and RWORK arrays, and no error @@ -317,7 +317,7 @@ *> N^(-1/4) * RWORK(1) <= ||pinv(C)||_2 <= N^(1/4) * RWORK(1). *> Otherwise, RWORK(1) = -1. *> 2. RWORK(2) contains the number of singular values computed as -*> exact zeros in SGESVD applied to the upper triangular or trapeziodal +*> exact zeros in SGESVD applied to the upper triangular or trapezoidal *> R (from the initial QR factorization). In case of early exit (no call to *> SGESVD, such as in the case of zero matrix) RWORK(2) = -1. *> @@ -331,7 +331,7 @@ *> The dimension of the array RWORK. *> If JOBP ='P', then LRWORK >= MAX(2, M). *> Otherwise, LRWORK >= 2 -* +*> *> If LRWORK = -1, then a workspace query is assumed; the routine *> only calculates and returns the optimal and minimal sizes *> for the WORK, IWORK, and RWORK arrays, and no error @@ -406,8 +406,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2018 -* *> \ingroup realGEsing * * ===================================================================== @@ -644,7 +642,7 @@ IF ( WNTVA ) THEN * .. minimal workspace length for N x N/2 SGEQRF LWQRF = MAX( N/2, 1 ) -* .. minimal workspace lengt for N/2 x N/2 SGESVD +* .. minimal workspace length for N/2 x N/2 SGESVD LWSVD2 = MAX( 5 * (N/2), 1 ) LWORQ2 = MAX( N, 1 ) MINWRK2 = MAX( LWQP3, N/2+LWQRF, N/2+LWSVD2, diff --git a/lapack-netlib/SRC/sgesvdx.f b/lapack-netlib/SRC/sgesvdx.f index d74e98f10..b6495dbd4 100644 --- a/lapack-netlib/SRC/sgesvdx.f +++ b/lapack-netlib/SRC/sgesvdx.f @@ -254,8 +254,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realGEsing * * ===================================================================== @@ -263,10 +261,9 @@ $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, $ LWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU, JOBVT, RANGE diff --git a/lapack-netlib/SRC/sgesvj.f b/lapack-netlib/SRC/sgesvj.f index fee5aba4a..3f53a5a15 100644 --- a/lapack-netlib/SRC/sgesvj.f +++ b/lapack-netlib/SRC/sgesvj.f @@ -260,8 +260,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -279,7 +277,7 @@ *> spectral condition number. The best performance of this Jacobi SVD *> procedure is achieved if used in an accelerated version of Drmac and *> Veselic [5,6], and it is the kernel routine in the SIGMA library [7]. -*> Some tunning parameters (marked with [TP]) are available for the +*> Some tuning parameters (marked with [TP]) are available for the *> implementer. \n *> The computational range for the nonzero singular values is the machine *> number interval ( UNDERFLOW , OVERFLOW ). In extreme cases, even @@ -323,10 +321,9 @@ SUBROUTINE SGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, $ LDV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDV, LWORK, M, MV, N diff --git a/lapack-netlib/SRC/sgesvx.f b/lapack-netlib/SRC/sgesvx.f index b297a36d6..930b88c33 100644 --- a/lapack-netlib/SRC/sgesvx.f +++ b/lapack-netlib/SRC/sgesvx.f @@ -340,8 +340,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realGEsolve * * ===================================================================== @@ -349,10 +347,9 @@ $ EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/sgesvxx.f b/lapack-netlib/SRC/sgesvxx.f index 7cb29d5ab..35eff717a 100644 --- a/lapack-netlib/SRC/sgesvxx.f +++ b/lapack-netlib/SRC/sgesvxx.f @@ -532,8 +532,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realGEsolve * * ===================================================================== @@ -543,10 +541,9 @@ $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, IWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/sgetc2.f b/lapack-netlib/SRC/sgetc2.f index 6bf0a93c6..a871a03ff 100644 --- a/lapack-netlib/SRC/sgetc2.f +++ b/lapack-netlib/SRC/sgetc2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realGEauxiliary * *> \par Contributors: @@ -111,10 +109,9 @@ * ===================================================================== SUBROUTINE SGETC2( N, A, LDA, IPIV, JPIV, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/sgetf2.f b/lapack-netlib/SRC/sgetf2.f index 8d28a4a0c..d38c124c7 100644 --- a/lapack-netlib/SRC/sgetf2.f +++ b/lapack-netlib/SRC/sgetf2.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGETF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgetrf.f b/lapack-netlib/SRC/sgetrf.f index 9e13f0fca..7a4a2aa5a 100644 --- a/lapack-netlib/SRC/sgetrf.f +++ b/lapack-netlib/SRC/sgetrf.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGETRF( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgetrf2.f b/lapack-netlib/SRC/sgetrf2.f index aa826f6e6..68ebfac46 100644 --- a/lapack-netlib/SRC/sgetrf2.f +++ b/lapack-netlib/SRC/sgetrf2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realGEcomputational * * ===================================================================== RECURSIVE SUBROUTINE SGETRF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/sgetri.f b/lapack-netlib/SRC/sgetri.f index e60924771..749ede9a7 100644 --- a/lapack-netlib/SRC/sgetri.f +++ b/lapack-netlib/SRC/sgetri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/sgetrs.f b/lapack-netlib/SRC/sgetrs.f index d52f773d1..e5f3e3a90 100644 --- a/lapack-netlib/SRC/sgetrs.f +++ b/lapack-netlib/SRC/sgetrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/sgetsls.f b/lapack-netlib/SRC/sgetsls.f index 3bf084515..e6ce705fa 100644 --- a/lapack-netlib/SRC/sgetsls.f +++ b/lapack-netlib/SRC/sgetsls.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEsolve * * ===================================================================== SUBROUTINE SGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS @@ -184,16 +181,15 @@ * .. * .. Local Scalars .. LOGICAL LQUERY, TRAN - INTEGER I, IASCL, IBSCL, J, MINMN, MAXMN, BROW, - $ SCLLEN, MNK, TSZO, TSZM, LWO, LWM, LW1, LW2, + INTEGER I, IASCL, IBSCL, J, MAXMN, BROW, + $ SCLLEN, TSZO, TSZM, LWO, LWM, LW1, LW2, $ WSIZEO, WSIZEM, INFO2 REAL ANRM, BIGNUM, BNRM, SMLNUM, TQ( 5 ), WORKQ( 1 ) * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV REAL SLAMCH, SLANGE - EXTERNAL LSAME, ILAENV, SLABAD, SLAMCH, SLANGE + EXTERNAL LSAME, SLABAD, SLAMCH, SLANGE * .. * .. External Subroutines .. EXTERNAL SGEQR, SGEMQR, SLASCL, SLASET, @@ -207,9 +203,7 @@ * Test the input arguments. * INFO = 0 - MINMN = MIN( M, N ) MAXMN = MAX( M, N ) - MNK = MAX( MINMN, NRHS ) TRAN = LSAME( TRANS, 'T' ) * LQUERY = ( LWORK.EQ.-1 .OR. LWORK.EQ.-2 ) @@ -230,7 +224,7 @@ * IF( INFO.EQ.0 ) THEN * -* Determine the block size and minimum LWORK +* Determine the optimum and minimum LWORK * IF( M.GE.N ) THEN CALL SGEQR( M, N, A, LDA, TQ, -1, WORKQ, -1, INFO2 ) @@ -267,16 +261,16 @@ IF( ( LWORK.LT.WSIZEM ).AND.( .NOT.LQUERY ) ) THEN INFO = -10 END IF +* + WORK( 1 ) = REAL( WSIZEO ) * END IF * IF( INFO.NE.0 ) THEN CALL XERBLA( 'SGETSLS', -INFO ) - WORK( 1 ) = REAL( WSIZEO ) RETURN END IF IF( LQUERY ) THEN - IF( LWORK.EQ.-1 ) WORK( 1 ) = REAL( WSIZEO ) IF( LWORK.EQ.-2 ) WORK( 1 ) = REAL( WSIZEM ) RETURN END IF diff --git a/lapack-netlib/SRC/sggbak.f b/lapack-netlib/SRC/sggbak.f index 7e5620ee6..bb7f36011 100644 --- a/lapack-netlib/SRC/sggbak.f +++ b/lapack-netlib/SRC/sggbak.f @@ -130,8 +130,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * *> \par Further Details: @@ -147,10 +145,9 @@ SUBROUTINE SGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, V, $ LDV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB, SIDE diff --git a/lapack-netlib/SRC/sggbal.f b/lapack-netlib/SRC/sggbal.f index 3e64a0f76..6cfdbcdba 100644 --- a/lapack-netlib/SRC/sggbal.f +++ b/lapack-netlib/SRC/sggbal.f @@ -160,8 +160,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ SUBROUTINE SGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, $ RSCALE, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/sgges.f b/lapack-netlib/SRC/sgges.f index 75f31c76f..3834aea00 100644 --- a/lapack-netlib/SRC/sgges.f +++ b/lapack-netlib/SRC/sgges.f @@ -275,8 +275,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEeigen * * ===================================================================== @@ -284,10 +282,9 @@ $ SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, VSR, $ LDVSR, WORK, LWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SORT diff --git a/lapack-netlib/SRC/sgges3.f b/lapack-netlib/SRC/sgges3.f index 81ab96c4f..b27704ff5 100644 --- a/lapack-netlib/SRC/sgges3.f +++ b/lapack-netlib/SRC/sgges3.f @@ -256,7 +256,7 @@ *> The QZ iteration failed. (A,B) are not in Schur *> form, but ALPHAR(j), ALPHAI(j), and BETA(j) should *> be correct for j=INFO+1,...,N. -*> > N: =N+1: other than QZ iteration failed in SHGEQZ. +*> > N: =N+1: other than QZ iteration failed in SLAQZ0. *> =N+2: after reordering, roundoff changed values of *> some complex eigenvalues so that leading *> eigenvalues in the Generalized Schur form no @@ -273,8 +273,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup realGEeigen * * ===================================================================== @@ -282,10 +280,9 @@ $ LDB, SDIM, ALPHAR, ALPHAI, BETA, VSL, LDVSL, $ VSR, LDVSR, WORK, LWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.6.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SORT @@ -321,7 +318,7 @@ REAL DIF( 2 ) * .. * .. External Subroutines .. - EXTERNAL SGEQRF, SGGBAK, SGGBAL, SGGHD3, SHGEQZ, SLABAD, + EXTERNAL SGEQRF, SGGBAK, SGGBAL, SGGHD3, SLAQZ0, SLABAD, $ SLACPY, SLASCL, SLASET, SORGQR, SORMQR, STGSEN, $ XERBLA * .. @@ -400,9 +397,9 @@ CALL SGGHD3( JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, VSL, $ LDVSL, VSR, LDVSR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, 3*N+INT( WORK( 1 ) ) ) - CALL SHGEQZ( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, + CALL SLAQZ0( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VSL, LDVSL, VSR, LDVSR, - $ WORK, -1, IERR ) + $ WORK, -1, 0, IERR ) LWKOPT = MAX( LWKOPT, 2*N+INT( WORK( 1 ) ) ) IF( WANTST ) THEN CALL STGSEN( 0, ILVSL, ILVSR, BWORK, N, A, LDA, B, LDB, @@ -513,9 +510,9 @@ * Perform QZ algorithm, computing Schur vectors if desired * IWRK = ITAU - CALL SHGEQZ( 'S', JOBVSL, JOBVSR, N, ILO, IHI, A, LDA, B, LDB, + CALL SLAQZ0( 'S', JOBVSL, JOBVSR, N, ILO, IHI, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VSL, LDVSL, VSR, LDVSR, - $ WORK( IWRK ), LWORK+1-IWRK, IERR ) + $ WORK( IWRK ), LWORK+1-IWRK, 0, IERR ) IF( IERR.NE.0 ) THEN IF( IERR.GT.0 .AND. IERR.LE.N ) THEN INFO = IERR diff --git a/lapack-netlib/SRC/sggesx.f b/lapack-netlib/SRC/sggesx.f index 25691d164..a6c0443ba 100644 --- a/lapack-netlib/SRC/sggesx.f +++ b/lapack-netlib/SRC/sggesx.f @@ -337,8 +337,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEeigen * *> \par Further Details: @@ -365,10 +363,9 @@ $ VSR, LDVSR, RCONDE, RCONDV, WORK, LWORK, IWORK, $ LIWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SENSE, SORT diff --git a/lapack-netlib/SRC/sggev.f b/lapack-netlib/SRC/sggev.f index 8551eb08f..69744b72b 100644 --- a/lapack-netlib/SRC/sggev.f +++ b/lapack-netlib/SRC/sggev.f @@ -218,18 +218,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realGEeigen * * ===================================================================== SUBROUTINE SGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, ALPHAI, $ BETA, VL, LDVL, VR, LDVR, WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/sggev3.f b/lapack-netlib/SRC/sggev3.f index 7a253ad19..945c3a017 100644 --- a/lapack-netlib/SRC/sggev3.f +++ b/lapack-netlib/SRC/sggev3.f @@ -205,7 +205,7 @@ *> The QZ iteration failed. No eigenvectors have been *> calculated, but ALPHAR(j), ALPHAI(j), and BETA(j) *> should be correct for j=INFO+1,...,N. -*> > N: =N+1: other than QZ iteration failed in SHGEQZ. +*> > N: =N+1: other than QZ iteration failed in SLAQZ0. *> =N+2: error return from STGEVC. *> \endverbatim * @@ -217,8 +217,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup realGEeigen * * ===================================================================== @@ -226,10 +224,9 @@ $ ALPHAI, BETA, VL, LDVL, VR, LDVR, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.6.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR @@ -259,7 +256,7 @@ LOGICAL LDUMMA( 1 ) * .. * .. External Subroutines .. - EXTERNAL SGEQRF, SGGBAK, SGGBAL, SGGHD3, SHGEQZ, SLABAD, + EXTERNAL SGEQRF, SGGBAK, SGGBAL, SGGHD3, SLAQZ0, SLABAD, $ SLACPY, SLASCL, SLASET, SORGQR, SORMQR, STGEVC, $ XERBLA * .. @@ -334,14 +331,14 @@ IF( ILVL ) THEN CALL SORGQR( N, N, N, VL, LDVL, WORK, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, 3*N+INT ( WORK( 1 ) ) ) - CALL SHGEQZ( 'S', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, + CALL SLAQZ0( 'S', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, - $ WORK, -1, IERR ) + $ WORK, -1, 0, IERR ) LWKOPT = MAX( LWKOPT, 2*N+INT ( WORK( 1 ) ) ) ELSE - CALL SHGEQZ( 'E', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, + CALL SLAQZ0( 'E', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, - $ WORK, -1, IERR ) + $ WORK, -1, 0, IERR ) LWKOPT = MAX( LWKOPT, 2*N+INT ( WORK( 1 ) ) ) END IF WORK( 1 ) = REAL( LWKOPT ) @@ -464,9 +461,9 @@ ELSE CHTEMP = 'E' END IF - CALL SHGEQZ( CHTEMP, JOBVL, JOBVR, N, ILO, IHI, A, LDA, B, LDB, + CALL SLAQZ0( CHTEMP, JOBVL, JOBVR, N, ILO, IHI, A, LDA, B, LDB, $ ALPHAR, ALPHAI, BETA, VL, LDVL, VR, LDVR, - $ WORK( IWRK ), LWORK+1-IWRK, IERR ) + $ WORK( IWRK ), LWORK+1-IWRK, 0, IERR ) IF( IERR.NE.0 ) THEN IF( IERR.GT.0 .AND. IERR.LE.N ) THEN INFO = IERR diff --git a/lapack-netlib/SRC/sggevx.f b/lapack-netlib/SRC/sggevx.f index 08f02251f..bb05f499a 100644 --- a/lapack-netlib/SRC/sggevx.f +++ b/lapack-netlib/SRC/sggevx.f @@ -352,8 +352,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realGEeigen * *> \par Further Details: @@ -391,10 +389,9 @@ $ IHI, LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, $ RCONDV, WORK, LWORK, IWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE diff --git a/lapack-netlib/SRC/sggglm.f b/lapack-netlib/SRC/sggglm.f index 572ee511d..bbd032beb 100644 --- a/lapack-netlib/SRC/sggglm.f +++ b/lapack-netlib/SRC/sggglm.f @@ -177,18 +177,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/SRC/sgghd3.f b/lapack-netlib/SRC/sgghd3.f index add216140..23acf6ec5 100644 --- a/lapack-netlib/SRC/sgghd3.f +++ b/lapack-netlib/SRC/sgghd3.f @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download SGGHRD + dependencies +*> Download SGGHD3 + dependencies *> *> [TGZ] *> @@ -211,8 +211,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -220,7 +218,7 @@ *> *> \verbatim *> -*> This routine reduces A to Hessenberg form and maintains B in +*> This routine reduces A to Hessenberg form and maintains B in triangular form *> using a blocked variant of Moler and Stewart's original algorithm, *> as described by Kagstrom, Kressner, Quintana-Orti, and Quintana-Orti *> (BIT 2008). @@ -230,10 +228,9 @@ SUBROUTINE SGGHD3( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, $ LDQ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/sgghrd.f b/lapack-netlib/SRC/sgghrd.f index 6580ab771..210b4dae3 100644 --- a/lapack-netlib/SRC/sgghrd.f +++ b/lapack-netlib/SRC/sgghrd.f @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -207,10 +205,9 @@ SUBROUTINE SGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, $ LDQ, Z, LDZ, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, COMPZ diff --git a/lapack-netlib/SRC/sgglse.f b/lapack-netlib/SRC/sgglse.f index 20e319ce8..7ef8782b0 100644 --- a/lapack-netlib/SRC/sgglse.f +++ b/lapack-netlib/SRC/sgglse.f @@ -172,18 +172,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERsolve * * ===================================================================== SUBROUTINE SGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/SRC/sggqrf.f b/lapack-netlib/SRC/sggqrf.f index bce1d5b9e..c57b16a56 100644 --- a/lapack-netlib/SRC/sggqrf.f +++ b/lapack-netlib/SRC/sggqrf.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -215,10 +213,9 @@ SUBROUTINE SGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/SRC/sggrqf.f b/lapack-netlib/SRC/sggrqf.f index 82a57b170..c4a78c347 100644 --- a/lapack-netlib/SRC/sggrqf.f +++ b/lapack-netlib/SRC/sggrqf.f @@ -172,8 +172,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -214,10 +212,9 @@ SUBROUTINE SGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/SRC/sggsvd3.f b/lapack-netlib/SRC/sggsvd3.f index 4f41fc3a8..9077f2ea8 100644 --- a/lapack-netlib/SRC/sggsvd3.f +++ b/lapack-netlib/SRC/sggsvd3.f @@ -328,8 +328,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup realGEsing * *> \par Contributors: @@ -349,10 +347,9 @@ $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, $ WORK, LWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/sggsvp3.f b/lapack-netlib/SRC/sggsvp3.f index ec7229a33..4f76b32bc 100644 --- a/lapack-netlib/SRC/sggsvp3.f +++ b/lapack-netlib/SRC/sggsvp3.f @@ -250,8 +250,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -272,10 +270,9 @@ $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/sgsvj0.f b/lapack-netlib/SRC/sgsvj0.f index d9177d818..23b6f0077 100644 --- a/lapack-netlib/SRC/sgsvj0.f +++ b/lapack-netlib/SRC/sgsvj0.f @@ -193,8 +193,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -218,10 +216,9 @@ SUBROUTINE SGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, $ SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDV, LWORK, M, MV, N, NSWEEP @@ -392,7 +389,7 @@ * Some BLAS implementations compute SNRM2(M,A(1,p),1) * as SQRT(SDOT(M,A(1,p),1,A(1,p),1)), which may result in * overflow for ||A(:,p)||_2 > SQRT(overflow_threshold), and -* undeflow for ||A(:,p)||_2 < SQRT(underflow_threshold). +* underflow for ||A(:,p)||_2 < SQRT(underflow_threshold). * Hence, SNRM2 cannot be trusted, not even in the case when * the true norm is far from the under(over)flow boundaries. * If properly implemented SNRM2 is available, the IF-THEN-ELSE diff --git a/lapack-netlib/SRC/sgsvj1.f b/lapack-netlib/SRC/sgsvj1.f index ea4ba2e0e..0345ccb42 100644 --- a/lapack-netlib/SRC/sgsvj1.f +++ b/lapack-netlib/SRC/sgsvj1.f @@ -40,7 +40,7 @@ *> SGSVJ1 is called from SGESVJ as a pre-processor and that is its main *> purpose. It applies Jacobi rotations in the same way as SGESVJ does, but *> it targets only particular pivots and it does not check convergence -*> (stopping criterion). Few tunning parameters (marked by [TP]) are +*> (stopping criterion). Few tuning parameters (marked by [TP]) are *> available for the implementer. *> *> Further Details @@ -61,7 +61,7 @@ *> In terms of the columns of A, the first N1 columns are rotated 'against' *> the remaining N-N1 columns, trying to increase the angle between the *> corresponding subspaces. The off-diagonal block is N1-by(N-N1) and it is -*> tiled using quadratic tiles of side KBL. Here, KBL is a tunning parameter. +*> tiled using quadratic tiles of side KBL. Here, KBL is a tuning parameter. *> The number of sweeps is given in NSWEEP and the orthogonality threshold *> is given in TOL. *> \endverbatim @@ -223,8 +223,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -236,10 +234,9 @@ SUBROUTINE SGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, $ EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. REAL EPS, SFMIN, TOL diff --git a/lapack-netlib/SRC/sgtcon.f b/lapack-netlib/SRC/sgtcon.f index e053265ed..65accb122 100644 --- a/lapack-netlib/SRC/sgtcon.f +++ b/lapack-netlib/SRC/sgtcon.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGTcomputational * * ===================================================================== SUBROUTINE SGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/sgtrfs.f b/lapack-netlib/SRC/sgtrfs.f index 8d60da87e..29c0be89d 100644 --- a/lapack-netlib/SRC/sgtrfs.f +++ b/lapack-netlib/SRC/sgtrfs.f @@ -200,8 +200,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGTcomputational * * ===================================================================== @@ -209,10 +207,9 @@ $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/sgtsv.f b/lapack-netlib/SRC/sgtsv.f index d18f9e5e3..ac903ab3d 100644 --- a/lapack-netlib/SRC/sgtsv.f +++ b/lapack-netlib/SRC/sgtsv.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGTsolve * * ===================================================================== SUBROUTINE SGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/sgtsvx.f b/lapack-netlib/SRC/sgtsvx.f index 4f00934c2..a251302ca 100644 --- a/lapack-netlib/SRC/sgtsvx.f +++ b/lapack-netlib/SRC/sgtsvx.f @@ -284,8 +284,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGTsolve * * ===================================================================== @@ -293,10 +291,9 @@ $ DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER FACT, TRANS diff --git a/lapack-netlib/SRC/sgttrf.f b/lapack-netlib/SRC/sgttrf.f index f9846dd85..5df0367fe 100644 --- a/lapack-netlib/SRC/sgttrf.f +++ b/lapack-netlib/SRC/sgttrf.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGTcomputational * * ===================================================================== SUBROUTINE SGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/sgttrs.f b/lapack-netlib/SRC/sgttrs.f index 4f302da7a..f1e47a794 100644 --- a/lapack-netlib/SRC/sgttrs.f +++ b/lapack-netlib/SRC/sgttrs.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGTcomputational * * ===================================================================== SUBROUTINE SGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/sgtts2.f b/lapack-netlib/SRC/sgtts2.f index 0cefb29e3..4820487de 100644 --- a/lapack-netlib/SRC/sgtts2.f +++ b/lapack-netlib/SRC/sgtts2.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGTcomputational * * ===================================================================== SUBROUTINE SGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ITRANS, LDB, N, NRHS diff --git a/lapack-netlib/SRC/shgeqz.f b/lapack-netlib/SRC/shgeqz.f index 34f6a8ce0..79a9c6092 100644 --- a/lapack-netlib/SRC/shgeqz.f +++ b/lapack-netlib/SRC/shgeqz.f @@ -282,8 +282,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -304,10 +302,9 @@ $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, COMPZ, JOB @@ -531,13 +528,17 @@ * GO TO 80 ELSE - IF( ABS( H( ILAST, ILAST-1 ) ).LE.ATOL ) THEN + IF( ABS( H( ILAST, ILAST-1 ) ).LE.MAX( SAFMIN, ULP*( + $ ABS( H( ILAST, ILAST ) ) + ABS( H( ILAST-1, ILAST-1 ) ) + $ ) ) ) THEN H( ILAST, ILAST-1 ) = ZERO GO TO 80 END IF END IF * - IF( ABS( T( ILAST, ILAST ) ).LE.BTOL ) THEN + IF( ABS( T( ILAST, ILAST ) ).LE.MAX( SAFMIN, ULP*( + $ ABS( T( ILAST - 1, ILAST ) ) + ABS( T( ILAST-1, ILAST-1 ) + $ ) ) ) ) THEN T( ILAST, ILAST ) = ZERO GO TO 70 END IF @@ -551,7 +552,9 @@ IF( J.EQ.ILO ) THEN ILAZRO = .TRUE. ELSE - IF( ABS( H( J, J-1 ) ).LE.ATOL ) THEN + IF( ABS( H( J, J-1 ) ).LE.MAX( SAFMIN, ULP*( + $ ABS( H( J, J ) ) + ABS( H( J-1, J-1 ) ) + $ ) ) ) THEN H( J, J-1 ) = ZERO ILAZRO = .TRUE. ELSE @@ -561,7 +564,10 @@ * * Test 2: for T(j,j)=0 * - IF( ABS( T( J, J ) ).LT.BTOL ) THEN + TEMP = ABS ( T( J, J + 1 ) ) + IF ( J .GT. ILO ) + $ TEMP = TEMP + ABS ( T( J - 1, J ) ) + IF( ABS( T( J, J ) ).LT.MAX( SAFMIN,ULP*TEMP ) ) THEN T( J, J ) = ZERO * * Test 1a: Check for 2 consecutive small subdiagonals in A diff --git a/lapack-netlib/SRC/shsein.f b/lapack-netlib/SRC/shsein.f index 53a3327a1..f1983d541 100644 --- a/lapack-netlib/SRC/shsein.f +++ b/lapack-netlib/SRC/shsein.f @@ -244,8 +244,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -263,10 +261,9 @@ $ VL, LDVL, VR, LDVR, MM, M, WORK, IFAILL, $ IFAILR, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EIGSRC, INITV, SIDE diff --git a/lapack-netlib/SRC/shseqr.f b/lapack-netlib/SRC/shseqr.f index d22bd7b94..3b8d4c4d8 100644 --- a/lapack-netlib/SRC/shseqr.f +++ b/lapack-netlib/SRC/shseqr.f @@ -233,8 +233,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -316,10 +314,9 @@ SUBROUTINE SHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, WR, WI, Z, $ LDZ, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/sisnan.f b/lapack-netlib/SRC/sisnan.f index 311bfbf95..edde0651e 100644 --- a/lapack-netlib/SRC/sisnan.f +++ b/lapack-netlib/SRC/sisnan.f @@ -52,17 +52,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * * ===================================================================== LOGICAL FUNCTION SISNAN( SIN ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL, INTENT(IN) :: SIN diff --git a/lapack-netlib/SRC/sla_gbamv.f b/lapack-netlib/SRC/sla_gbamv.f index b513f24da..c58446612 100644 --- a/lapack-netlib/SRC/sla_gbamv.f +++ b/lapack-netlib/SRC/sla_gbamv.f @@ -177,18 +177,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGBcomputational * * ===================================================================== SUBROUTINE SLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/lapack-netlib/SRC/sla_gbrcond.f b/lapack-netlib/SRC/sla_gbrcond.f index 7f2c4062e..5e1e5ef60 100644 --- a/lapack-netlib/SRC/sla_gbrcond.f +++ b/lapack-netlib/SRC/sla_gbrcond.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * * ===================================================================== REAL FUNCTION SLA_GBRCOND( TRANS, N, KL, KU, AB, LDAB, AFB, LDAFB, $ IPIV, CMODE, C, INFO, WORK, IWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -347,5 +344,7 @@ $ SLA_GBRCOND = ( 1.0 / AINVNM ) * RETURN +* +* End of SLA_GBRCOND * END diff --git a/lapack-netlib/SRC/sla_gbrfsx_extended.f b/lapack-netlib/SRC/sla_gbrfsx_extended.f index 0fd1fd350..499d6bf90 100644 --- a/lapack-netlib/SRC/sla_gbrfsx_extended.f +++ b/lapack-netlib/SRC/sla_gbrfsx_extended.f @@ -54,7 +54,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -368,7 +368,7 @@ *> DZ_UB is REAL *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -397,8 +397,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGBcomputational * * ===================================================================== @@ -410,10 +408,9 @@ $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, @@ -703,4 +700,7 @@ END DO * RETURN +* +* End of SLA_GBRFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/sla_gbrpvgrw.f b/lapack-netlib/SRC/sla_gbrpvgrw.f index 77e9f26b4..5c8af0172 100644 --- a/lapack-netlib/SRC/sla_gbrpvgrw.f +++ b/lapack-netlib/SRC/sla_gbrpvgrw.f @@ -109,18 +109,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBcomputational * * ===================================================================== REAL FUNCTION SLA_GBRPVGRW( N, KL, KU, NCOLS, AB, LDAB, AFB, $ LDAFB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, KL, KU, NCOLS, LDAB, LDAFB @@ -157,4 +154,7 @@ END IF END DO SLA_GBRPVGRW = RPVGRW +* +* End of SLA_GBRPVGRW +* END diff --git a/lapack-netlib/SRC/sla_geamv.f b/lapack-netlib/SRC/sla_geamv.f index 7906d04d6..7fe467985 100644 --- a/lapack-netlib/SRC/sla_geamv.f +++ b/lapack-netlib/SRC/sla_geamv.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEcomputational * * ===================================================================== SUBROUTINE SLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, $ Y, INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/lapack-netlib/SRC/sla_gercond.f b/lapack-netlib/SRC/sla_gercond.f index e54e0d7b4..8f7dc2490 100644 --- a/lapack-netlib/SRC/sla_gercond.f +++ b/lapack-netlib/SRC/sla_gercond.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== REAL FUNCTION SLA_GERCOND ( TRANS, N, A, LDA, AF, LDAF, IPIV, $ CMODE, C, INFO, WORK, IWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -323,5 +320,7 @@ $ SLA_GERCOND = ( 1.0 / AINVNM ) * RETURN +* +* End of SLA_GERCOND * END diff --git a/lapack-netlib/SRC/sla_gerfsx_extended.f b/lapack-netlib/SRC/sla_gerfsx_extended.f index 84d1ae31b..de05d8eb4 100644 --- a/lapack-netlib/SRC/sla_gerfsx_extended.f +++ b/lapack-netlib/SRC/sla_gerfsx_extended.f @@ -54,7 +54,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERRS_N *> and ERRS_C for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERRS_N and ERRS_C. *> \endverbatim * @@ -356,7 +356,7 @@ *> DZ_UB is REAL *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -385,8 +385,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== @@ -398,10 +396,9 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -686,4 +683,7 @@ END DO * RETURN +* +* End of SLA_GERFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/sla_gerpvgrw.f b/lapack-netlib/SRC/sla_gerpvgrw.f index a41a0351e..05a61dc70 100644 --- a/lapack-netlib/SRC/sla_gerpvgrw.f +++ b/lapack-netlib/SRC/sla_gerpvgrw.f @@ -90,17 +90,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * * ===================================================================== REAL FUNCTION SLA_GERPVGRW( N, NCOLS, A, LDA, AF, LDAF ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, NCOLS, LDA, LDAF @@ -136,4 +133,7 @@ END IF END DO SLA_GERPVGRW = RPVGRW +* +* End of SLA_GERPVGRW +* END diff --git a/lapack-netlib/SRC/sla_lin_berr.f b/lapack-netlib/SRC/sla_lin_berr.f index 2da50cbda..e4cbb65be 100644 --- a/lapack-netlib/SRC/sla_lin_berr.f +++ b/lapack-netlib/SRC/sla_lin_berr.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, NZ, NRHS @@ -150,4 +147,7 @@ * END DO END DO +* +* End of SLA_LIN_BERR +* END diff --git a/lapack-netlib/SRC/sla_porcond.f b/lapack-netlib/SRC/sla_porcond.f index 729581f46..250640116 100644 --- a/lapack-netlib/SRC/sla_porcond.f +++ b/lapack-netlib/SRC/sla_porcond.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== REAL FUNCTION SLA_PORCOND( UPLO, N, A, LDA, AF, LDAF, CMODE, C, $ INFO, WORK, IWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -322,5 +319,7 @@ $ SLA_PORCOND = ( 1.0 / AINVNM ) * RETURN +* +* End of SLA_PORCOND * END diff --git a/lapack-netlib/SRC/sla_porfsx_extended.f b/lapack-netlib/SRC/sla_porfsx_extended.f index abbfebb83..ada4cad21 100644 --- a/lapack-netlib/SRC/sla_porfsx_extended.f +++ b/lapack-netlib/SRC/sla_porfsx_extended.f @@ -54,7 +54,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -345,7 +345,7 @@ *> DZ_UB is REAL *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -374,8 +374,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== @@ -387,10 +385,9 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -675,4 +672,7 @@ END DO * RETURN +* +* End of SLA_PORFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/sla_porpvgrw.f b/lapack-netlib/SRC/sla_porpvgrw.f index c824d772d..a97e7f72a 100644 --- a/lapack-netlib/SRC/sla_porpvgrw.f +++ b/lapack-netlib/SRC/sla_porpvgrw.f @@ -84,7 +84,7 @@ *> The leading dimension of the array AF. LDAF >= max(1,N). *> \endverbatim *> -*> \param[in] WORK +*> \param[out] WORK *> \verbatim *> WORK is REAL array, dimension (2*N) *> \endverbatim @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== REAL FUNCTION SLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, LDAF, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -205,4 +202,7 @@ END IF SLA_PORPVGRW = RPVGRW +* +* End of SLA_PORPVGRW +* END diff --git a/lapack-netlib/SRC/sla_syamv.f b/lapack-netlib/SRC/sla_syamv.f index 4459f4d8b..a44cc6e0d 100644 --- a/lapack-netlib/SRC/sla_syamv.f +++ b/lapack-netlib/SRC/sla_syamv.f @@ -153,8 +153,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realSYcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ SUBROUTINE SLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/lapack-netlib/SRC/sla_syrcond.f b/lapack-netlib/SRC/sla_syrcond.f index 0c9e2b361..95dd9a81f 100644 --- a/lapack-netlib/SRC/sla_syrcond.f +++ b/lapack-netlib/SRC/sla_syrcond.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== REAL FUNCTION SLA_SYRCOND( UPLO, N, A, LDA, AF, LDAF, IPIV, CMODE, $ C, INFO, WORK, IWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -335,5 +332,7 @@ $ SLA_SYRCOND = ( 1.0 / AINVNM ) * RETURN +* +* End of SLA_SYRCOND * END diff --git a/lapack-netlib/SRC/sla_syrfsx_extended.f b/lapack-netlib/SRC/sla_syrfsx_extended.f index a83a9db98..d5096be02 100644 --- a/lapack-netlib/SRC/sla_syrfsx_extended.f +++ b/lapack-netlib/SRC/sla_syrfsx_extended.f @@ -56,7 +56,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -354,7 +354,7 @@ *> DZ_UB is REAL *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -383,8 +383,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== @@ -396,10 +394,9 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -704,4 +701,7 @@ END DO * RETURN +* +* End of SLA_SYRFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/sla_syrpvgrw.f b/lapack-netlib/SRC/sla_syrpvgrw.f index a0a235ee3..88c61ec56 100644 --- a/lapack-netlib/SRC/sla_syrpvgrw.f +++ b/lapack-netlib/SRC/sla_syrpvgrw.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== REAL FUNCTION SLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, LDAF, IPIV, $ WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -317,4 +314,7 @@ END IF SLA_SYRPVGRW = RPVGRW +* +* End of SLA_SYRPVGRW +* END diff --git a/lapack-netlib/SRC/sla_wwaddw.f b/lapack-netlib/SRC/sla_wwaddw.f index e390c9fab..925dae864 100644 --- a/lapack-netlib/SRC/sla_wwaddw.f +++ b/lapack-netlib/SRC/sla_wwaddw.f @@ -74,17 +74,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SLA_WWADDW( N, X, Y, W ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N @@ -108,4 +105,7 @@ X(I) = S 10 CONTINUE RETURN +* +* End of SLA_WWADDW +* END diff --git a/lapack-netlib/SRC/slabad.f b/lapack-netlib/SRC/slabad.f index d6502bb92..cb223594f 100644 --- a/lapack-netlib/SRC/slabad.f +++ b/lapack-netlib/SRC/slabad.f @@ -67,17 +67,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE SLABAD( SMALL, LARGE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL LARGE, SMALL diff --git a/lapack-netlib/SRC/slabrd.f b/lapack-netlib/SRC/slabrd.f index f4e3d73a2..808d45cc1 100644 --- a/lapack-netlib/SRC/slabrd.f +++ b/lapack-netlib/SRC/slabrd.f @@ -156,8 +156,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -210,10 +208,9 @@ SUBROUTINE SLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, $ LDY ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, M, N, NB diff --git a/lapack-netlib/SRC/slacn2.f b/lapack-netlib/SRC/slacn2.f index 78742812f..1d6217a7c 100644 --- a/lapack-netlib/SRC/slacn2.f +++ b/lapack-netlib/SRC/slacn2.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -136,10 +134,9 @@ * ===================================================================== SUBROUTINE SLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KASE, N @@ -160,7 +157,7 @@ * .. * .. Local Scalars .. INTEGER I, JLAST - REAL ALTSGN, ESTOLD, TEMP + REAL ALTSGN, ESTOLD, TEMP, XS * .. * .. External Functions .. INTEGER ISAMAX @@ -171,7 +168,7 @@ EXTERNAL SCOPY * .. * .. Intrinsic Functions .. - INTRINSIC ABS, NINT, REAL, SIGN + INTRINSIC ABS, NINT, REAL * .. * .. Executable Statements .. * @@ -199,7 +196,11 @@ EST = SASUM( N, X, 1 ) * DO 30 I = 1, N - X( I ) = SIGN( ONE, X( I ) ) + IF( X(I).GE.ZERO ) THEN + X(I) = ONE + ELSE + X(I) = -ONE + END IF ISGN( I ) = NINT( X( I ) ) 30 CONTINUE KASE = 2 @@ -232,7 +233,12 @@ ESTOLD = EST EST = SASUM( N, V, 1 ) DO 80 I = 1, N - IF( NINT( SIGN( ONE, X( I ) ) ).NE.ISGN( I ) ) + IF( X(I).GE.ZERO ) THEN + XS = ONE + ELSE + XS = -ONE + END IF + IF( NINT( XS ).NE.ISGN( I ) ) $ GO TO 90 80 CONTINUE * REPEATED SIGN VECTOR DETECTED, HENCE ALGORITHM HAS CONVERGED. @@ -244,7 +250,11 @@ $ GO TO 120 * DO 100 I = 1, N - X( I ) = SIGN( ONE, X( I ) ) + IF( X(I).GE.ZERO ) THEN + X(I) = ONE + ELSE + X(I) = -ONE + END IF ISGN( I ) = NINT( X( I ) ) 100 CONTINUE KASE = 2 diff --git a/lapack-netlib/SRC/slacon.f b/lapack-netlib/SRC/slacon.f index 45c28d50a..8e3cc7355 100644 --- a/lapack-netlib/SRC/slacon.f +++ b/lapack-netlib/SRC/slacon.f @@ -95,8 +95,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -115,10 +113,9 @@ * ===================================================================== SUBROUTINE SLACON( N, V, X, ISGN, EST, KASE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/lapack-netlib/SRC/slacpy.f b/lapack-netlib/SRC/slacpy.f index a4bcde3cc..a33a3c67b 100644 --- a/lapack-netlib/SRC/slacpy.f +++ b/lapack-netlib/SRC/slacpy.f @@ -96,17 +96,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE SLACPY( UPLO, M, N, A, LDA, B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sladiv.f b/lapack-netlib/SRC/sladiv.f index a9a3603aa..ff60432fe 100644 --- a/lapack-netlib/SRC/sladiv.f +++ b/lapack-netlib/SRC/sladiv.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2013 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLADIV( A, B, C, D, P, Q ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2013 * * .. Scalar Arguments .. REAL A, B, C, D, P, Q @@ -178,10 +175,9 @@ SUBROUTINE SLADIV1( A, B, C, D, P, Q ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2013 * * .. Scalar Arguments .. REAL A, B, C, D, P, Q @@ -218,10 +214,9 @@ REAL FUNCTION SLADIV2( A, B, C, D, R, T ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2013 * * .. Scalar Arguments .. REAL A, B, C, D, R, T @@ -251,6 +246,6 @@ * RETURN * -* End of SLADIV +* End of SLADIV2 * END diff --git a/lapack-netlib/SRC/slae2.f b/lapack-netlib/SRC/slae2.f index 2b7a28c8f..c6a4f12b2 100644 --- a/lapack-netlib/SRC/slae2.f +++ b/lapack-netlib/SRC/slae2.f @@ -78,8 +78,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -102,10 +100,9 @@ * ===================================================================== SUBROUTINE SLAE2( A, B, C, RT1, RT2 ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL A, B, C, RT1, RT2 diff --git a/lapack-netlib/SRC/slaebz.f b/lapack-netlib/SRC/slaebz.f index 5e230827d..4eb8e8b7d 100644 --- a/lapack-netlib/SRC/slaebz.f +++ b/lapack-netlib/SRC/slaebz.f @@ -273,8 +273,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -319,10 +317,9 @@ $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, $ NAB, WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IJOB, INFO, MINP, MMAX, MOUT, N, NBMIN, NITMAX diff --git a/lapack-netlib/SRC/slaed0.f b/lapack-netlib/SRC/slaed0.f index 51aea744c..42cdd2ceb 100644 --- a/lapack-netlib/SRC/slaed0.f +++ b/lapack-netlib/SRC/slaed0.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED0 used by sstedc. Computes all eigenvalues and corresponding eigenvectors of an unreduced symmetric tridiagonal matrix using the divide and conquer method. +*> \brief \b SLAED0 used by SSTEDC. Computes all eigenvalues and corresponding eigenvectors of an unreduced symmetric tridiagonal matrix using the divide and conquer method. * * =========== DOCUMENTATION =========== * @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -172,10 +170,9 @@ SUBROUTINE SLAED0( ICOMPQ, QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDQ, LDQS, N, QSIZ diff --git a/lapack-netlib/SRC/slaed1.f b/lapack-netlib/SRC/slaed1.f index d40cb026a..1f13c1fd1 100644 --- a/lapack-netlib/SRC/slaed1.f +++ b/lapack-netlib/SRC/slaed1.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED1 used by sstedc. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is tridiagonal. +*> \brief \b SLAED1 used by SSTEDC. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is tridiagonal. * * =========== DOCUMENTATION =========== * @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -163,10 +161,9 @@ SUBROUTINE SLAED1( N, D, Q, LDQ, INDXQ, RHO, CUTPNT, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER CUTPNT, INFO, LDQ, N diff --git a/lapack-netlib/SRC/slaed2.f b/lapack-netlib/SRC/slaed2.f index b039a3105..16500e74c 100644 --- a/lapack-netlib/SRC/slaed2.f +++ b/lapack-netlib/SRC/slaed2.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED2 used by sstedc. Merges eigenvalues and deflates secular equation. Used when the original matrix is tridiagonal. +*> \brief \b SLAED2 used by SSTEDC. Merges eigenvalues and deflates secular equation. Used when the original matrix is tridiagonal. * * =========== DOCUMENTATION =========== * @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -212,10 +210,9 @@ SUBROUTINE SLAED2( K, N, N1, D, Q, LDQ, INDXQ, RHO, Z, DLAMDA, W, $ Q2, INDX, INDXC, INDXP, COLTYP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDQ, N, N1 diff --git a/lapack-netlib/SRC/slaed3.f b/lapack-netlib/SRC/slaed3.f index dffd23e43..e84f22be1 100644 --- a/lapack-netlib/SRC/slaed3.f +++ b/lapack-netlib/SRC/slaed3.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED3 used by sstedc. Finds the roots of the secular equation and updates the eigenvectors. Used when the original matrix is tridiagonal. +*> \brief \b SLAED3 used by SSTEDC. Finds the roots of the secular equation and updates the eigenvectors. Used when the original matrix is tridiagonal. * * =========== DOCUMENTATION =========== * @@ -170,8 +170,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -185,10 +183,9 @@ SUBROUTINE SLAED3( K, N, N1, D, Q, LDQ, RHO, DLAMDA, Q2, INDX, $ CTOT, W, S, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, K, LDQ, N, N1 diff --git a/lapack-netlib/SRC/slaed4.f b/lapack-netlib/SRC/slaed4.f index 64260843f..f056746d8 100644 --- a/lapack-netlib/SRC/slaed4.f +++ b/lapack-netlib/SRC/slaed4.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED4 used by sstedc. Finds a single root of the secular equation. +*> \brief \b SLAED4 used by SSTEDC. Finds a single root of the secular equation. * * =========== DOCUMENTATION =========== * @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -145,10 +143,9 @@ * ===================================================================== SUBROUTINE SLAED4( N, I, D, Z, DELTA, RHO, DLAM, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I, INFO, N diff --git a/lapack-netlib/SRC/slaed5.f b/lapack-netlib/SRC/slaed5.f index 29551daa7..ddf9fb72e 100644 --- a/lapack-netlib/SRC/slaed5.f +++ b/lapack-netlib/SRC/slaed5.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED5 used by sstedc. Solves the 2-by-2 secular equation. +*> \brief \b SLAED5 used by SSTEDC. Solves the 2-by-2 secular equation. * * =========== DOCUMENTATION =========== * @@ -95,8 +95,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -108,10 +106,9 @@ * ===================================================================== SUBROUTINE SLAED5( I, D, Z, DELTA, RHO, DLAM ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I @@ -184,6 +181,6 @@ END IF RETURN * -* End OF SLAED5 +* End of SLAED5 * END diff --git a/lapack-netlib/SRC/slaed6.f b/lapack-netlib/SRC/slaed6.f index 69b94d497..ec715518e 100644 --- a/lapack-netlib/SRC/slaed6.f +++ b/lapack-netlib/SRC/slaed6.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED6 used by sstedc. Computes one Newton step in solution of the secular equation. +*> \brief \b SLAED6 used by SSTEDC. Computes one Newton step in solution of the secular equation. * * =========== DOCUMENTATION =========== * @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Further Details: @@ -140,10 +138,9 @@ * ===================================================================== SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL ORGATI diff --git a/lapack-netlib/SRC/slaed7.f b/lapack-netlib/SRC/slaed7.f index 55e6e6325..3572342c0 100644 --- a/lapack-netlib/SRC/slaed7.f +++ b/lapack-netlib/SRC/slaed7.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED7 used by sstedc. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is dense. +*> \brief \b SLAED7 used by SSTEDC. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -244,8 +244,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -260,10 +258,9 @@ $ PERM, GIVPTR, GIVCOL, GIVNUM, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, CUTPNT, ICOMPQ, INFO, LDQ, N, diff --git a/lapack-netlib/SRC/slaed8.f b/lapack-netlib/SRC/slaed8.f index 2e3f6f51f..9c8ba440c 100644 --- a/lapack-netlib/SRC/slaed8.f +++ b/lapack-netlib/SRC/slaed8.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED8 used by sstedc. Merges eigenvalues and deflates secular equation. Used when the original matrix is dense. +*> \brief \b SLAED8 used by SSTEDC. Merges eigenvalues and deflates secular equation. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -228,8 +228,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -243,10 +241,9 @@ $ CUTPNT, Z, DLAMDA, Q2, LDQ2, W, PERM, GIVPTR, $ GIVCOL, GIVNUM, INDXP, INDX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER CUTPNT, GIVPTR, ICOMPQ, INFO, K, LDQ, LDQ2, N, diff --git a/lapack-netlib/SRC/slaed9.f b/lapack-netlib/SRC/slaed9.f index 780d26550..4d07416e9 100644 --- a/lapack-netlib/SRC/slaed9.f +++ b/lapack-netlib/SRC/slaed9.f @@ -1,4 +1,4 @@ -*> \brief \b SLAED9 used by sstedc. Finds the roots of the secular equation and updates the eigenvectors. Used when the original matrix is dense. +*> \brief \b SLAED9 used by SSTEDC. Finds the roots of the secular equation and updates the eigenvectors. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -156,10 +154,9 @@ SUBROUTINE SLAED9( K, KSTART, KSTOP, N, D, Q, LDQ, RHO, DLAMDA, W, $ S, LDS, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, KSTART, KSTOP, LDQ, LDS, N diff --git a/lapack-netlib/SRC/slaeda.f b/lapack-netlib/SRC/slaeda.f index 30d7a2bf0..f7ed96a12 100644 --- a/lapack-netlib/SRC/slaeda.f +++ b/lapack-netlib/SRC/slaeda.f @@ -1,4 +1,4 @@ -*> \brief \b SLAEDA used by sstedc. Computes the Z vector determining the rank-one modification of the diagonal matrix. Used when the original matrix is dense. +*> \brief \b SLAEDA used by SSTEDC. Computes the Z vector determining the rank-one modification of the diagonal matrix. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -166,10 +164,9 @@ SUBROUTINE SLAEDA( N, TLVLS, CURLVL, CURPBM, PRMPTR, PERM, GIVPTR, $ GIVCOL, GIVNUM, Q, QPTR, Z, ZTEMP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, INFO, N, TLVLS diff --git a/lapack-netlib/SRC/slaein.f b/lapack-netlib/SRC/slaein.f index e9defea2a..caee5aa1b 100644 --- a/lapack-netlib/SRC/slaein.f +++ b/lapack-netlib/SRC/slaein.f @@ -164,18 +164,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAEIN( RIGHTV, NOINIT, N, H, LDH, WR, WI, VR, VI, B, $ LDB, WORK, EPS3, SMLNUM, BIGNUM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL NOINIT, RIGHTV diff --git a/lapack-netlib/SRC/slaev2.f b/lapack-netlib/SRC/slaev2.f index f4028e11b..442779a44 100644 --- a/lapack-netlib/SRC/slaev2.f +++ b/lapack-netlib/SRC/slaev2.f @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -120,10 +118,9 @@ * ===================================================================== SUBROUTINE SLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL A, B, C, CS1, RT1, RT2, SN1 diff --git a/lapack-netlib/SRC/slaexc.f b/lapack-netlib/SRC/slaexc.f index 7e3c6c483..49b032960 100644 --- a/lapack-netlib/SRC/slaexc.f +++ b/lapack-netlib/SRC/slaexc.f @@ -41,7 +41,7 @@ *> *> T must be in Schur canonical form, that is, block upper triangular *> with 1-by-1 and 2-by-2 diagonal blocks; each 2-by-2 diagonal block -*> has its diagonal elemnts equal and its off-diagonal elements of +*> has its diagonal elements equal and its off-diagonal elements of *> opposite sign. *> \endverbatim * @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAEXC( WANTQ, N, T, LDT, Q, LDQ, J1, N1, N2, WORK, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL WANTQ diff --git a/lapack-netlib/SRC/slag2.f b/lapack-netlib/SRC/slag2.f index ac16fb1b5..eddf66913 100644 --- a/lapack-netlib/SRC/slag2.f +++ b/lapack-netlib/SRC/slag2.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAG2( A, LDA, B, LDB, SAFMIN, SCALE1, SCALE2, WR1, $ WR2, WI ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB diff --git a/lapack-netlib/SRC/slag2d.f b/lapack-netlib/SRC/slag2d.f index 01515eb67..dbd8ee1ab 100644 --- a/lapack-netlib/SRC/slag2d.f +++ b/lapack-netlib/SRC/slag2d.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE SLAG2D( M, N, SA, LDSA, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDSA, M, N diff --git a/lapack-netlib/SRC/slags2.f b/lapack-netlib/SRC/slags2.f index 4076f3982..67e33f637 100644 --- a/lapack-netlib/SRC/slags2.f +++ b/lapack-netlib/SRC/slags2.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, $ SNV, CSQ, SNQ ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL UPPER diff --git a/lapack-netlib/SRC/slagtf.f b/lapack-netlib/SRC/slagtf.f index 59ef097a7..ecc02eeb3 100644 --- a/lapack-netlib/SRC/slagtf.f +++ b/lapack-netlib/SRC/slagtf.f @@ -149,17 +149,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLAGTF( N, A, LAMBDA, B, C, TOL, D, IN, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/slagtm.f b/lapack-netlib/SRC/slagtm.f index e423dc91c..2beae9078 100644 --- a/lapack-netlib/SRC/slagtm.f +++ b/lapack-netlib/SRC/slagtm.f @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, $ B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/slagts.f b/lapack-netlib/SRC/slagts.f index e0c8892d7..255f5aa48 100644 --- a/lapack-netlib/SRC/slagts.f +++ b/lapack-netlib/SRC/slagts.f @@ -154,17 +154,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE SLAGTS( JOB, N, A, B, C, D, IN, Y, TOL, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, JOB, N diff --git a/lapack-netlib/SRC/slagv2.f b/lapack-netlib/SRC/slagv2.f index 638c7dfbc..410cbf4c0 100644 --- a/lapack-netlib/SRC/slagv2.f +++ b/lapack-netlib/SRC/slagv2.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -157,10 +155,9 @@ SUBROUTINE SLAGV2( A, LDA, B, LDB, ALPHAR, ALPHAI, BETA, CSL, SNL, $ CSR, SNR ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB diff --git a/lapack-netlib/SRC/slahqr.f b/lapack-netlib/SRC/slahqr.f index e5642d2bf..4e00f315a 100644 --- a/lapack-netlib/SRC/slahqr.f +++ b/lapack-netlib/SRC/slahqr.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -206,11 +204,11 @@ * ===================================================================== SUBROUTINE SLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, INFO ) + IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N @@ -227,13 +225,16 @@ PARAMETER ( ZERO = 0.0e0, ONE = 1.0e0, TWO = 2.0e0 ) REAL DAT1, DAT2 PARAMETER ( DAT1 = 3.0e0 / 4.0e0, DAT2 = -0.4375e0 ) + INTEGER KEXSH + PARAMETER ( KEXSH = 10 ) * .. * .. Local Scalars .. REAL AA, AB, BA, BB, CS, DET, H11, H12, H21, H21S, $ H22, RT1I, RT1R, RT2I, RT2R, RTDISC, S, SAFMAX, $ SAFMIN, SMLNUM, SN, SUM, T1, T2, T3, TR, TST, $ ULP, V2, V3 - INTEGER I, I1, I2, ITS, ITMAX, J, K, L, M, NH, NR, NZ + INTEGER I, I1, I2, ITS, ITMAX, J, K, L, M, NH, NR, NZ, + $ KDEFL * .. * .. Local Arrays .. REAL V( 3 ) @@ -294,6 +295,10 @@ * ITMAX = 30 * MAX( 10, NH ) * +* KDEFL counts the number of iterations since a deflation +* + KDEFL = 0 +* * The main loop begins here. I is the loop index and decreases from * IHI to ILO in steps of 1 or 2. Each iteration of the loop works * with the active submatrix in rows and columns L to I. @@ -353,6 +358,7 @@ * IF( L.GE.I-1 ) $ GO TO 150 + KDEFL = KDEFL + 1 * * Now the active submatrix is in rows and columns L to I. If * eigenvalues only are being computed, only the active submatrix @@ -363,21 +369,21 @@ I2 = I END IF * - IF( ITS.EQ.10 ) THEN + IF( MOD(KDEFL,2*KEXSH).EQ.0 ) THEN * * Exceptional shift. * - S = ABS( H( L+1, L ) ) + ABS( H( L+2, L+1 ) ) - H11 = DAT1*S + H( L, L ) + S = ABS( H( I, I-1 ) ) + ABS( H( I-1, I-2 ) ) + H11 = DAT1*S + H( I, I ) H12 = DAT2*S H21 = S H22 = H11 - ELSE IF( ITS.EQ.20 ) THEN + ELSE IF( MOD(KDEFL,KEXSH).EQ.0 ) THEN * * Exceptional shift. * - S = ABS( H( I, I-1 ) ) + ABS( H( I-1, I-2 ) ) - H11 = DAT1*S + H( I, I ) + S = ABS( H( L+1, L ) ) + ABS( H( L+2, L+1 ) ) + H11 = DAT1*S + H( L, L ) H12 = DAT2*S H21 = S H22 = H11 @@ -599,6 +605,8 @@ CALL SROT( NZ, Z( ILOZ, I-1 ), 1, Z( ILOZ, I ), 1, CS, SN ) END IF END IF +* reset deflation counter + KDEFL = 0 * * return to start of the main loop with new value of I. * diff --git a/lapack-netlib/SRC/slahr2.f b/lapack-netlib/SRC/slahr2.f index 656d67989..458da48e4 100644 --- a/lapack-netlib/SRC/slahr2.f +++ b/lapack-netlib/SRC/slahr2.f @@ -123,8 +123,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -164,11 +162,11 @@ *> modified element of the upper Hessenberg matrix H, and vi denotes an *> element of the vector defining H(i). *> -*> This subroutine is a slight modification of LAPACK-3.0's DLAHRD +*> This subroutine is a slight modification of LAPACK-3.0's SLAHRD *> incorporating improvements proposed by Quintana-Orti and Van de *> Gejin. Note that the entries of A(1:K,2:NB) differ from those -*> returned by the original LAPACK-3.0's DLAHRD routine. (This -*> subroutine is not backward compatible with LAPACK-3.0's DLAHRD.) +*> returned by the original LAPACK-3.0's SLAHRD routine. (This +*> subroutine is not backward compatible with LAPACK-3.0's SLAHRD.) *> \endverbatim * *> \par References: @@ -181,10 +179,9 @@ * ===================================================================== SUBROUTINE SLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/lapack-netlib/SRC/slaic1.f b/lapack-netlib/SRC/slaic1.f index 44ab4b038..65107002c 100644 --- a/lapack-netlib/SRC/slaic1.f +++ b/lapack-netlib/SRC/slaic1.f @@ -127,17 +127,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER J, JOB diff --git a/lapack-netlib/SRC/slaisnan.f b/lapack-netlib/SRC/slaisnan.f index 568d632a1..76c2a5996 100644 --- a/lapack-netlib/SRC/slaisnan.f +++ b/lapack-netlib/SRC/slaisnan.f @@ -67,17 +67,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * * ===================================================================== LOGICAL FUNCTION SLAISNAN( SIN1, SIN2 ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL, INTENT(IN) :: SIN1, SIN2 diff --git a/lapack-netlib/SRC/slaln2.f b/lapack-netlib/SRC/slaln2.f index 4c6a55ec7..826eb1fc1 100644 --- a/lapack-netlib/SRC/slaln2.f +++ b/lapack-netlib/SRC/slaln2.f @@ -210,18 +210,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLALN2( LTRANS, NA, NW, SMIN, CA, A, LDA, D1, D2, B, $ LDB, WR, WI, X, LDX, SCALE, XNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LTRANS diff --git a/lapack-netlib/SRC/slals0.f b/lapack-netlib/SRC/slals0.f index bb1c2d7c9..7d44e2864 100644 --- a/lapack-netlib/SRC/slals0.f +++ b/lapack-netlib/SRC/slals0.f @@ -252,8 +252,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -268,10 +266,9 @@ $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ POLES, DIFL, DIFR, Z, K, C, S, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, diff --git a/lapack-netlib/SRC/slalsa.f b/lapack-netlib/SRC/slalsa.f index 135a6736f..465455e4a 100644 --- a/lapack-netlib/SRC/slalsa.f +++ b/lapack-netlib/SRC/slalsa.f @@ -250,8 +250,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -267,10 +265,9 @@ $ GIVCOL, LDGCOL, PERM, GIVNUM, C, S, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, diff --git a/lapack-netlib/SRC/slalsd.f b/lapack-netlib/SRC/slalsd.f index a66966079..2197f728e 100644 --- a/lapack-netlib/SRC/slalsd.f +++ b/lapack-netlib/SRC/slalsd.f @@ -164,8 +164,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -179,10 +177,9 @@ SUBROUTINE SLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, $ RANK, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/slamrg.f b/lapack-netlib/SRC/slamrg.f index 649d2c54e..a29802e22 100644 --- a/lapack-netlib/SRC/slamrg.f +++ b/lapack-netlib/SRC/slamrg.f @@ -92,17 +92,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLAMRG( N1, N2, A, STRD1, STRD2, INDEX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER N1, N2, STRD1, STRD2 diff --git a/lapack-netlib/SRC/slamswlq.f b/lapack-netlib/SRC/slamswlq.f index 59ab1a6ee..d4996b1f2 100644 --- a/lapack-netlib/SRC/slamswlq.f +++ b/lapack-netlib/SRC/slamswlq.f @@ -56,7 +56,7 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix C. N >= M. +*> The number of columns of the matrix C. N >= 0. *> \endverbatim *> *> \param[in] K @@ -70,25 +70,17 @@ *> \param[in] MB *> \verbatim *> MB is INTEGER -*> The row block size to be used in the blocked QR. +*> The row block size to be used in the blocked LQ. *> M >= MB >= 1 *> \endverbatim *> *> \param[in] NB *> \verbatim *> NB is INTEGER -*> The column block size to be used in the blocked QR. +*> The column block size to be used in the blocked LQ. *> NB > M. *> \endverbatim *> -*> \param[in] NB -*> \verbatim -*> NB is INTEGER -*> The block size to be used in the blocked QR. -*> MB > M. -*> -*> \endverbatim -*> *> \param[in] A *> \verbatim *> A is REAL array, dimension @@ -102,9 +94,7 @@ *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. -*> If SIDE = 'L', LDA >= max(1,M); -*> if SIDE = 'R', LDA >= max(1,N). +*> The leading dimension of the array A. LDA >= max(1,K). *> \endverbatim *> *> \param[in] T @@ -189,7 +179,7 @@ *> stored in columns [(i-1)*(NB-M)+M+1:i*(NB-M)+M] of A, and by upper triangular *> block reflectors, stored in array T(1:LDT,(i-1)*M+1:i*M). *> The last Q(k) may use fewer rows. -*> For more information see Further Details in TPQRT. +*> For more information see Further Details in TPLQT. *> *> For more details of the overall algorithm, see the description of *> Sequential TSQR in Section 2.2 of [1]. @@ -203,10 +193,9 @@ SUBROUTINE SLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -250,12 +239,14 @@ INFO = -1 ELSE IF( .NOT.TRAN .AND. .NOT.NOTRAN ) THEN INFO = -2 - ELSE IF( M.LT.0 ) THEN + ELSE IF( K.LT.0 ) THEN + INFO = -5 + ELSE IF( M.LT.K ) THEN INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 - ELSE IF( K.LT.0 ) THEN - INFO = -5 + ELSE IF( K.LT.MB .OR. MB.LT.1) THEN + INFO = -6 ELSE IF( LDA.LT.MAX( 1, K ) ) THEN INFO = -9 ELSE IF( LDT.LT.MAX( 1, MB) ) THEN diff --git a/lapack-netlib/SRC/slamtsqr.f b/lapack-netlib/SRC/slamtsqr.f index 58905ab46..960b794de 100644 --- a/lapack-netlib/SRC/slamtsqr.f +++ b/lapack-netlib/SRC/slamtsqr.f @@ -27,7 +27,7 @@ *> TRANS = 'T': Q**T * C C * Q**T *> where Q is a real orthogonal matrix defined as the product *> of blocked elementary reflectors computed by tall skinny -*> QR factorization (DLATSQR) +*> QR factorization (SLATSQR) *> \endverbatim * * Arguments: @@ -56,15 +56,14 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix C. M >= N >= 0. +*> The number of columns of the matrix C. N >= 0. *> \endverbatim *> *> \param[in] K *> \verbatim *> K is INTEGER *> The number of elementary reflectors whose product defines -*> the matrix Q. -*> N >= K >= 0; +*> the matrix Q. M >= K >= 0; *> *> \endverbatim *> @@ -72,7 +71,7 @@ *> \verbatim *> MB is INTEGER *> The block size to be used in the blocked QR. -*> MB > N. (must be the same as DLATSQR) +*> MB > N. (must be the same as SLATSQR) *> \endverbatim *> *> \param[in] NB @@ -87,7 +86,7 @@ *> A is REAL array, dimension (LDA,K) *> The i-th column must contain the vector which defines the *> blockedelementary reflector H(i), for i = 1,2,...,k, as -*> returned by DLATSQR in the first k columns of +*> returned by SLATSQR in the first k columns of *> its array argument A. *> \endverbatim *> @@ -196,10 +195,9 @@ SUBROUTINE SLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -215,7 +213,7 @@ * .. * .. Local Scalars .. LOGICAL LEFT, RIGHT, TRAN, NOTRAN, LQUERY - INTEGER I, II, KK, LW, CTR + INTEGER I, II, KK, LW, CTR, Q * .. * .. External Functions .. LOGICAL LSAME @@ -234,8 +232,10 @@ RIGHT = LSAME( SIDE, 'R' ) IF (LEFT) THEN LW = N * NB + Q = M ELSE LW = MB * NB + Q = N END IF * INFO = 0 @@ -243,13 +243,15 @@ INFO = -1 ELSE IF( .NOT.TRAN .AND. .NOT.NOTRAN ) THEN INFO = -2 - ELSE IF( M.LT.0 ) THEN + ELSE IF( M.LT.K ) THEN INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 ELSE IF( K.LT.0 ) THEN INFO = -5 - ELSE IF( LDA.LT.MAX( 1, K ) ) THEN + ELSE IF( K.LT.NB .OR. NB.LT.1 ) THEN + INFO = -7 + ELSE IF( LDA.LT.MAX( 1, Q ) ) THEN INFO = -9 ELSE IF( LDT.LT.MAX( 1, NB) ) THEN INFO = -11 diff --git a/lapack-netlib/SRC/slaneg.f b/lapack-netlib/SRC/slaneg.f index dcb11df1f..26e7a78ac 100644 --- a/lapack-netlib/SRC/slaneg.f +++ b/lapack-netlib/SRC/slaneg.f @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -118,10 +116,9 @@ * ===================================================================== INTEGER FUNCTION SLANEG( N, D, LLD, SIGMA, PIVMIN, R ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, R diff --git a/lapack-netlib/SRC/slangb.f b/lapack-netlib/SRC/slangb.f index 706e07501..a24009285 100644 --- a/lapack-netlib/SRC/slangb.f +++ b/lapack-netlib/SRC/slangb.f @@ -116,20 +116,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBauxiliary * * ===================================================================== REAL FUNCTION SLANGB( NORM, N, KL, KU, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER KL, KU, LDAB, N @@ -140,24 +136,22 @@ * * ===================================================================== * +* * .. Parameters .. REAL ONE, ZERO PARAMETER ( ONE = 1.0E+0, ZERO = 0.0E+0 ) * .. * .. Local Scalars .. INTEGER I, J, K, L - REAL SUM, VALUE, TEMP + REAL SCALE, SUM, VALUE, TEMP * .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL SLASSQ * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. -* .. External Subroutines .. - EXTERNAL SLASSQ, SCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT * .. @@ -209,22 +203,15 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N L = MAX( 1, J-KU ) K = KU + 1 - J + L - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( MIN( N, J+KL )-L+1, AB( K, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( MIN( N, J+KL )-L+1, AB( K, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * SLANGB = VALUE diff --git a/lapack-netlib/SRC/slange.f b/lapack-netlib/SRC/slange.f index 0c80f1d40..79eef8726 100644 --- a/lapack-netlib/SRC/slange.f +++ b/lapack-netlib/SRC/slange.f @@ -107,19 +107,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEauxiliary * * ===================================================================== REAL FUNCTION SLANGE( NORM, M, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER LDA, M, N @@ -136,13 +132,10 @@ * .. * .. Local Scalars .. INTEGER I, J - REAL SUM, VALUE, TEMP -* .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) + REAL SCALE, SUM, VALUE, TEMP * .. * .. External Subroutines .. - EXTERNAL SLASSQ, SCOMBSSQ + EXTERNAL SLASSQ * .. * .. External Functions .. LOGICAL LSAME, SISNAN @@ -198,19 +191,13 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( M, A( 1, J ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( M, A( 1, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * SLANGE = VALUE diff --git a/lapack-netlib/SRC/slangt.f b/lapack-netlib/SRC/slangt.f index 6f3202131..65957f8ec 100644 --- a/lapack-netlib/SRC/slangt.f +++ b/lapack-netlib/SRC/slangt.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANGT( NORM, N, DL, D, DU ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/slanhs.f b/lapack-netlib/SRC/slanhs.f index 8913031a2..e91380691 100644 --- a/lapack-netlib/SRC/slanhs.f +++ b/lapack-netlib/SRC/slanhs.f @@ -101,19 +101,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANHS( NORM, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER LDA, N @@ -130,18 +126,15 @@ * .. * .. Local Scalars .. INTEGER I, J - REAL SUM, VALUE + REAL SCALE, SUM, VALUE * .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL SLASSQ * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. -* .. External Subroutines .. - EXTERNAL SLASSQ, SCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT * .. @@ -192,20 +185,13 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( MIN( N, J+1 ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( MIN( N, J+1 ), A( 1, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * SLANHS = VALUE diff --git a/lapack-netlib/SRC/slansb.f b/lapack-netlib/SRC/slansb.f index 23519025d..eb89d94cb 100644 --- a/lapack-netlib/SRC/slansb.f +++ b/lapack-netlib/SRC/slansb.f @@ -121,20 +121,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANSB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER K, LDAB, N @@ -151,18 +147,15 @@ * .. * .. Local Scalars .. INTEGER I, J, L - REAL ABSA, SUM, VALUE + REAL ABSA, SCALE, SUM, VALUE * .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL SLASSQ * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. -* .. External Subroutines .. - EXTERNAL SLASSQ, SCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT * .. @@ -229,47 +222,29 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( K.GT.0 ) THEN IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL SLASSQ( MIN( J-1, K ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 110 CONTINUE L = K + 1 ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 120 CONTINUE L = 1 END IF - SSQ( 2 ) = 2*SSQ( 2 ) + SUM = 2*SUM ELSE L = 1 END IF -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( N, AB( L, 1 ), LDAB, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + CALL SLASSQ( N, AB( L, 1 ), LDAB, SCALE, SUM ) + VALUE = SCALE*SQRT( SUM ) END IF * SLANSB = VALUE diff --git a/lapack-netlib/SRC/slansf.f b/lapack-netlib/SRC/slansf.f index eab99a9c4..5d480958f 100644 --- a/lapack-netlib/SRC/slansf.f +++ b/lapack-netlib/SRC/slansf.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -209,10 +207,9 @@ * ===================================================================== REAL FUNCTION SLANSF( NORM, TRANSR, UPLO, N, A, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM, TRANSR, UPLO diff --git a/lapack-netlib/SRC/slansp.f b/lapack-netlib/SRC/slansp.f index 7e29d778b..2189510a6 100644 --- a/lapack-netlib/SRC/slansp.f +++ b/lapack-netlib/SRC/slansp.f @@ -107,19 +107,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANSP( NORM, UPLO, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER N @@ -136,18 +132,15 @@ * .. * .. Local Scalars .. INTEGER I, J, K - REAL ABSA, SUM, VALUE + REAL ABSA, SCALE, SUM, VALUE * .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL SLASSQ * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. -* .. External Subroutines .. - EXTERNAL SLASSQ, SCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT * .. @@ -221,48 +214,31 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE K = 2 IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( J-1, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( N-J, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* + SUM = 2*SUM K = 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE DO 130 I = 1, N IF( AP( K ).NE.ZERO ) THEN ABSA = ABS( AP( K ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF IF( LSAME( UPLO, 'U' ) ) THEN @@ -271,8 +247,7 @@ K = K + N - I + 1 END IF 130 CONTINUE - CALL SCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * SLANSP = VALUE diff --git a/lapack-netlib/SRC/slanst.f b/lapack-netlib/SRC/slanst.f index 4b589bac9..dfe12a5f7 100644 --- a/lapack-netlib/SRC/slanst.f +++ b/lapack-netlib/SRC/slanst.f @@ -93,17 +93,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== REAL FUNCTION SLANST( NORM, N, D, E ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/slansy.f b/lapack-netlib/SRC/slansy.f index 66ff1c5c7..4a23a42f2 100644 --- a/lapack-netlib/SRC/slansy.f +++ b/lapack-netlib/SRC/slansy.f @@ -115,19 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYauxiliary * * ===================================================================== REAL FUNCTION SLANSY( NORM, UPLO, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER LDA, N @@ -144,18 +140,15 @@ * .. * .. Local Scalars .. INTEGER I, J - REAL ABSA, SUM, VALUE + REAL ABSA, SCALE, SUM, VALUE * .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL SLASSQ * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. -* .. External Subroutines .. - EXTERNAL SLASSQ, SCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT * .. @@ -220,39 +213,21 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( J-1, A( 1, J ), 1, COLSSQ(1), COLSSQ(2) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( J-1, A( 1, J ), 1, SCALE, SUM ) 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( N-J, A( J+1, J ), 1, COLSSQ(1), COLSSQ(2) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( N-J, A( J+1, J ), 1, SCALE, SUM ) 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( N, A, LDA+1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + SUM = 2*SUM + CALL SLASSQ( N, A, LDA+1, SCALE, SUM ) + VALUE = SCALE*SQRT( SUM ) END IF * SLANSY = VALUE diff --git a/lapack-netlib/SRC/slantb.f b/lapack-netlib/SRC/slantb.f index 5b94618e1..c29db2416 100644 --- a/lapack-netlib/SRC/slantb.f +++ b/lapack-netlib/SRC/slantb.f @@ -132,20 +132,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANTB( NORM, UPLO, DIAG, N, K, AB, $ LDAB, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER K, LDAB, N @@ -163,18 +159,15 @@ * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J, L - REAL SUM, VALUE + REAL SCALE, SUM, VALUE * .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL SLASSQ * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. -* .. External Subroutines .. - EXTERNAL SLASSQ, SCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT * .. @@ -315,61 +308,46 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N IF( K.GT.0 ) THEN DO 280 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL SLASSQ( MIN( J-1, K ), - $ AB( MAX( K+2-J, 1 ), J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + $ AB( MAX( K+2-J, 1 ), J ), 1, SCALE, + $ SUM ) 280 CONTINUE END IF ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 290 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL SLASSQ( MIN( J, K+1 ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 290 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N IF( K.GT.0 ) THEN DO 300 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 300 CONTINUE END IF ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( MIN( N-J+1, K+1 ), AB( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( MIN( N-J+1, K+1 ), AB( 1, J ), 1, SCALE, + $ SUM ) 310 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * SLANTB = VALUE diff --git a/lapack-netlib/SRC/slantp.f b/lapack-netlib/SRC/slantp.f index ab781deac..00fe42a53 100644 --- a/lapack-netlib/SRC/slantp.f +++ b/lapack-netlib/SRC/slantp.f @@ -117,19 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANTP( NORM, UPLO, DIAG, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER N @@ -147,18 +143,15 @@ * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J, K - REAL SUM, VALUE + REAL SCALE, SUM, VALUE * .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL SLASSQ * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. -* .. External Subroutines .. - EXTERNAL SLASSQ, SCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT * .. @@ -310,64 +303,45 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N K = 2 DO 280 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( J-1, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 280 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE K = 1 DO 290 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( J, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( J, AP( K ), 1, SCALE, SUM ) K = K + J 290 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N K = 2 DO 300 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( N-J, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 300 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE K = 1 DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( N-J+1, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( N-J+1, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 310 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * SLANTP = VALUE diff --git a/lapack-netlib/SRC/slantr.f b/lapack-netlib/SRC/slantr.f index 04d29f537..384f58550 100644 --- a/lapack-netlib/SRC/slantr.f +++ b/lapack-netlib/SRC/slantr.f @@ -133,20 +133,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== REAL FUNCTION SLANTR( NORM, UPLO, DIAG, M, N, A, LDA, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER LDA, M, N @@ -164,18 +160,15 @@ * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J - REAL SUM, VALUE + REAL SCALE, SUM, VALUE * .. -* .. Local Arrays .. - REAL SSQ( 2 ), COLSSQ( 2 ) +* .. External Subroutines .. + EXTERNAL SLASSQ * .. * .. External Functions .. LOGICAL LSAME, SISNAN EXTERNAL LSAME, SISNAN * .. -* .. External Subroutines .. - EXTERNAL SLASSQ, SCOMBSSQ -* .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT * .. @@ -315,56 +308,38 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = MIN( M, N ) + SCALE = ONE + SUM = MIN( M, N ) DO 290 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( MIN( M, J-1 ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( MIN( M, J-1 ), A( 1, J ), 1, SCALE, SUM ) 290 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 300 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( MIN( M, J ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( MIN( M, J ), A( 1, J ), 1, SCALE, SUM ) 300 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = MIN( M, N ) + SCALE = ONE + SUM = MIN( M, N ) DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( M-J, A( MIN( M, J+1 ), J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( M-J, A( MIN( M, J+1 ), J ), 1, SCALE, + $ SUM ) 310 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 320 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL SLASSQ( M-J+1, A( J, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL SCOMBSSQ( SSQ, COLSSQ ) + CALL SLASSQ( M-J+1, A( J, J ), 1, SCALE, SUM ) 320 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * SLANTR = VALUE diff --git a/lapack-netlib/SRC/slanv2.f b/lapack-netlib/SRC/slanv2.f index 375645b75..6753012e7 100644 --- a/lapack-netlib/SRC/slanv2.f +++ b/lapack-netlib/SRC/slanv2.f @@ -109,8 +109,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -127,10 +125,9 @@ * ===================================================================== SUBROUTINE SLANV2( A, B, C, D, RT1R, RT1I, RT2R, RT2I, CS, SN ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL A, B, C, CS, D, RT1I, RT1R, RT2I, RT2R, SN diff --git a/lapack-netlib/SRC/slaorhr_col_getrfnp.f b/lapack-netlib/SRC/slaorhr_col_getrfnp.f index 6cc59e538..ff890beec 100644 --- a/lapack-netlib/SRC/slaorhr_col_getrfnp.f +++ b/lapack-netlib/SRC/slaorhr_col_getrfnp.f @@ -128,8 +128,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup realGEcomputational * *> \par Contributors: @@ -147,10 +145,9 @@ SUBROUTINE SLAORHR_COL_GETRFNP( M, N, A, LDA, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/slaorhr_col_getrfnp2.f b/lapack-netlib/SRC/slaorhr_col_getrfnp2.f index de604602f..621e9a314 100644 --- a/lapack-netlib/SRC/slaorhr_col_getrfnp2.f +++ b/lapack-netlib/SRC/slaorhr_col_getrfnp2.f @@ -84,7 +84,7 @@ *> *> SLAORHR_COL_GETRFNP2 is called to factorize a block by the blocked *> routine SLAORHR_COL_GETRFNP, which uses blocked code calling -*. Level 3 BLAS to update the submatrix. However, SLAORHR_COL_GETRFNP2 +*> Level 3 BLAS to update the submatrix. However, SLAORHR_COL_GETRFNP2 *> is self-sufficient and can be used without SLAORHR_COL_GETRFNP. *> *> [1] "Reconstructing Householder vectors from tall-skinny QR", @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup realGEcomputational * *> \par Contributors: @@ -168,10 +166,9 @@ RECURSIVE SUBROUTINE SLAORHR_COL_GETRFNP2( M, N, A, LDA, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/slapll.f b/lapack-netlib/SRC/slapll.f index 498fe8533..a71c9f391 100644 --- a/lapack-netlib/SRC/slapll.f +++ b/lapack-netlib/SRC/slapll.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAPLL( N, X, INCX, Y, INCY, SSMIN ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/lapack-netlib/SRC/slapmr.f b/lapack-netlib/SRC/slapmr.f index 0473cd3f9..c91a23ba0 100644 --- a/lapack-netlib/SRC/slapmr.f +++ b/lapack-netlib/SRC/slapmr.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAPMR( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL FORWRD @@ -198,7 +195,7 @@ * RETURN * -* End of ZLAPMT +* End of SLAPMR * END diff --git a/lapack-netlib/SRC/slapmt.f b/lapack-netlib/SRC/slapmt.f index 67e8aabe1..8c71dfcfb 100644 --- a/lapack-netlib/SRC/slapmt.f +++ b/lapack-netlib/SRC/slapmt.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAPMT( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL FORWRD diff --git a/lapack-netlib/SRC/slapy2.f b/lapack-netlib/SRC/slapy2.f index 3b1b7e43c..e1364f698 100644 --- a/lapack-netlib/SRC/slapy2.f +++ b/lapack-netlib/SRC/slapy2.f @@ -31,7 +31,7 @@ *> \verbatim *> *> SLAPY2 returns sqrt(x**2+y**2), taking care not to cause unnecessary -*> overflow. +*> overflow and unnecessary underflow. *> \endverbatim * * Arguments: @@ -56,17 +56,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * * ===================================================================== REAL FUNCTION SLAPY2( X, Y ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL X, Y @@ -81,32 +78,33 @@ PARAMETER ( ONE = 1.0E0 ) * .. * .. Local Scalars .. - REAL W, XABS, YABS, Z + REAL W, XABS, YABS, Z, HUGEVAL LOGICAL X_IS_NAN, Y_IS_NAN * .. * .. External Functions .. LOGICAL SISNAN EXTERNAL SISNAN * .. +* .. External Subroutines .. + REAL SLAMCH +* .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT * .. * .. Executable Statements .. -* -* .. -* .. Executable Statements .. * X_IS_NAN = SISNAN( X ) Y_IS_NAN = SISNAN( Y ) IF ( X_IS_NAN ) SLAPY2 = X IF ( Y_IS_NAN ) SLAPY2 = Y + HUGEVAL = SLAMCH( 'Overflow' ) * IF ( .NOT.( X_IS_NAN.OR.Y_IS_NAN ) ) THEN XABS = ABS( X ) YABS = ABS( Y ) W = MAX( XABS, YABS ) Z = MIN( XABS, YABS ) - IF( Z.EQ.ZERO ) THEN + IF( Z.EQ.ZERO .OR. W.GT.HUGEVAL ) THEN SLAPY2 = W ELSE SLAPY2 = W*SQRT( ONE+( Z / W )**2 ) diff --git a/lapack-netlib/SRC/slapy3.f b/lapack-netlib/SRC/slapy3.f index 04a847f99..5a3999f9d 100644 --- a/lapack-netlib/SRC/slapy3.f +++ b/lapack-netlib/SRC/slapy3.f @@ -31,7 +31,7 @@ *> \verbatim *> *> SLAPY3 returns sqrt(x**2+y**2+z**2), taking care not to cause -*> unnecessary overflow. +*> unnecessary overflow and unnecessary underflow. *> \endverbatim * * Arguments: @@ -61,17 +61,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== REAL FUNCTION SLAPY3( X, Y, Z ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL X, Y, Z @@ -84,18 +81,22 @@ PARAMETER ( ZERO = 0.0E0 ) * .. * .. Local Scalars .. - REAL W, XABS, YABS, ZABS + REAL W, XABS, YABS, ZABS, HUGEVAL +* .. +* .. External Subroutines .. + REAL SLAMCH * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, SQRT * .. * .. Executable Statements .. * + HUGEVAL = SLAMCH( 'Overflow' ) XABS = ABS( X ) YABS = ABS( Y ) ZABS = ABS( Z ) W = MAX( XABS, YABS, ZABS ) - IF( W.EQ.ZERO ) THEN + IF( W.EQ.ZERO .OR. W.GT.HUGEVAL ) THEN * W can be zero for max(0,nan,0) * adding all three entries together will make sure * NaN will not disappear. diff --git a/lapack-netlib/SRC/slaqgb.f b/lapack-netlib/SRC/slaqgb.f index 633befa31..5527c7367 100644 --- a/lapack-netlib/SRC/slaqgb.f +++ b/lapack-netlib/SRC/slaqgb.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGBauxiliary * * ===================================================================== SUBROUTINE SLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/lapack-netlib/SRC/slaqge.f b/lapack-netlib/SRC/slaqge.f index 0622ff6c4..134035707 100644 --- a/lapack-netlib/SRC/slaqge.f +++ b/lapack-netlib/SRC/slaqge.f @@ -134,18 +134,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEauxiliary * * ===================================================================== SUBROUTINE SLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/lapack-netlib/SRC/slaqp2.f b/lapack-netlib/SRC/slaqp2.f index e99324b7c..595fb8c34 100644 --- a/lapack-netlib/SRC/slaqp2.f +++ b/lapack-netlib/SRC/slaqp2.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -149,10 +147,9 @@ SUBROUTINE SLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, M, N, OFFSET diff --git a/lapack-netlib/SRC/slaqps.f b/lapack-netlib/SRC/slaqps.f index 3f8af304f..0de94ced3 100644 --- a/lapack-netlib/SRC/slaqps.f +++ b/lapack-netlib/SRC/slaqps.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -178,10 +176,9 @@ SUBROUTINE SLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, $ VN2, AUXV, F, LDF ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KB, LDA, LDF, M, N, NB, OFFSET diff --git a/lapack-netlib/SRC/slaqr0.f b/lapack-netlib/SRC/slaqr0.f index b1ebaff75..ea533b3bd 100644 --- a/lapack-netlib/SRC/slaqr0.f +++ b/lapack-netlib/SRC/slaqr0.f @@ -230,8 +230,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -256,10 +254,9 @@ SUBROUTINE SLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/slaqr1.f b/lapack-netlib/SRC/slaqr1.f index 6bb88c794..59f317b2b 100644 --- a/lapack-netlib/SRC/slaqr1.f +++ b/lapack-netlib/SRC/slaqr1.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -121,10 +119,9 @@ * ===================================================================== SUBROUTINE SLAQR1( N, H, LDH, SR1, SI1, SR2, SI2, V ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL SI1, SI2, SR1, SR2 diff --git a/lapack-netlib/SRC/slaqr2.f b/lapack-netlib/SRC/slaqr2.f index f4f8ca7f2..62c4ef5eb 100644 --- a/lapack-netlib/SRC/slaqr2.f +++ b/lapack-netlib/SRC/slaqr2.f @@ -263,8 +263,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -278,10 +276,9 @@ $ IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, $ LDT, NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/lapack-netlib/SRC/slaqr3.f b/lapack-netlib/SRC/slaqr3.f index ccad338b9..519ccd6ed 100644 --- a/lapack-netlib/SRC/slaqr3.f +++ b/lapack-netlib/SRC/slaqr3.f @@ -260,8 +260,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -275,10 +273,9 @@ $ IHIZ, Z, LDZ, NS, ND, SR, SI, V, LDV, NH, T, $ LDT, NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/lapack-netlib/SRC/slaqr4.f b/lapack-netlib/SRC/slaqr4.f index 4ba2f8757..1f0a51c85 100644 --- a/lapack-netlib/SRC/slaqr4.f +++ b/lapack-netlib/SRC/slaqr4.f @@ -239,8 +239,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -265,10 +263,9 @@ SUBROUTINE SLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, WR, WI, $ ILOZ, IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/slaqr5.f b/lapack-netlib/SRC/slaqr5.f index d60a1d3c0..b9bae9376 100644 --- a/lapack-netlib/SRC/slaqr5.f +++ b/lapack-netlib/SRC/slaqr5.f @@ -233,8 +233,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2021 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -266,10 +264,9 @@ $ LDU, NV, WV, LDWV, NH, WH, LDWH ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, diff --git a/lapack-netlib/SRC/slaqsb.f b/lapack-netlib/SRC/slaqsb.f index 747d32df8..32c93911d 100644 --- a/lapack-netlib/SRC/slaqsb.f +++ b/lapack-netlib/SRC/slaqsb.f @@ -133,17 +133,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/slaqsp.f b/lapack-netlib/SRC/slaqsp.f index a88206dd8..604d4b248 100644 --- a/lapack-netlib/SRC/slaqsp.f +++ b/lapack-netlib/SRC/slaqsp.f @@ -118,17 +118,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/slaqsy.f b/lapack-netlib/SRC/slaqsy.f index fc66aae32..c592a4c33 100644 --- a/lapack-netlib/SRC/slaqsy.f +++ b/lapack-netlib/SRC/slaqsy.f @@ -126,17 +126,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYauxiliary * * ===================================================================== SUBROUTINE SLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/slaqtr.f b/lapack-netlib/SRC/slaqtr.f index 9d3e592f8..5720cf2bb 100644 --- a/lapack-netlib/SRC/slaqtr.f +++ b/lapack-netlib/SRC/slaqtr.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAQTR( LTRAN, LREAL, N, T, LDT, B, W, SCALE, X, WORK, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LREAL, LTRAN diff --git a/lapack-netlib/SRC/slaqz0.f b/lapack-netlib/SRC/slaqz0.f new file mode 100644 index 000000000..15913be88 --- /dev/null +++ b/lapack-netlib/SRC/slaqz0.f @@ -0,0 +1,749 @@ +*> \brief \b SLAQZ0 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download SLAQZ0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE SLAQZ0( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, +* $ LDB, ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, REC, +* $ INFO ) +* IMPLICIT NONE +* +* Arguments +* CHARACTER, INTENT( IN ) :: WANTS, WANTQ, WANTZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, +* $ REC +* +* INTEGER, INTENT( OUT ) :: INFO +* +* REAL, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), +* $ Z( LDZ, * ), ALPHAR( * ), ALPHAI( * ), BETA( * ), WORK( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> SLAQZ0 computes the eigenvalues of a real matrix pair (H,T), +*> where H is an upper Hessenberg matrix and T is upper triangular, +*> using the double-shift QZ method. +*> Matrix pairs of this type are produced by the reduction to +*> generalized upper Hessenberg form of a real matrix pair (A,B): +*> +*> A = Q1*H*Z1**T, B = Q1*T*Z1**T, +*> +*> as computed by SGGHRD. +*> +*> 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. +*> +*> The 1-by-1 blocks correspond to real eigenvalues of the matrix pair +*> (H,T) and the 2-by-2 blocks correspond to complex conjugate pairs of +*> eigenvalues. +*> +*> Additionally, the 2-by-2 upper triangular diagonal blocks of P +*> corresponding to 2-by-2 blocks of S are reduced to positive diagonal +*> form, i.e., if S(j+1,j) is non-zero, then P(j+1,j) = P(j,j+1) = 0, +*> P(j,j) > 0, and P(j+1,j+1) > 0. +*> +*> Optionally, the orthogonal matrix Q from the generalized Schur +*> factorization may be postmultiplied into an input matrix Q1, and the +*> orthogonal matrix Z may be postmultiplied into an input matrix Z1. +*> If Q1 and Z1 are the orthogonal matrices from SGGHRD that reduced +*> the matrix pair (A,B) to generalized upper Hessenberg form, then the +*> output matrices Q1*Q and Z1*Z are the orthogonal factors from the +*> 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. +*> If beta is nonzero, lambda = alpha / beta is an eigenvalue of the +*> generalized nonsymmetric eigenvalue problem (GNEP) +*> A*x = lambda*B*x +*> and if alpha is nonzero, mu = beta / alpha is an eigenvalue of the +*> alternate form of the GNEP +*> mu*A*y = B*y. +*> Real eigenvalues can be read directly from the generalized Schur +*> form: +*> alpha = S(i,i), beta = P(i,i). +*> +*> Ref: C.B. Moler & G.W. Stewart, "An Algorithm for Generalized Matrix +*> Eigenvalue Problems", SIAM J. Numer. Anal., 10(1973), +*> pp. 241--256. +*> +*> Ref: B. Kagstrom, D. Kressner, "Multishift Variants of the QZ +*> Algorithm with Aggressive Early Deflation", SIAM J. Numer. +*> Anal., 29(2006), pp. 199--227. +*> +*> Ref: T. Steel, D. Camps, K. Meerbergen, R. Vandebril "A multishift, +*> multipole rational QZ method with agressive early deflation" +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] WANTS +*> \verbatim +*> WANTS is CHARACTER*1 +*> = 'E': Compute eigenvalues only; +*> = 'S': Compute eigenvalues and the Schur form. +*> \endverbatim +*> +*> \param[in] WANTQ +*> \verbatim +*> WANTQ is CHARACTER*1 +*> = 'N': Left Schur vectors (Q) are not computed; +*> = 'I': Q is initialized to the unit matrix and the matrix Q +*> of left Schur vectors of (A,B) is returned; +*> = 'V': Q must contain an orthogonal matrix Q1 on entry and +*> the product Q1*Q is returned. +*> \endverbatim +*> +*> \param[in] WANTZ +*> \verbatim +*> WANTZ is CHARACTER*1 +*> = 'N': Right Schur vectors (Z) are not computed; +*> = 'I': Z is initialized to the unit matrix and the matrix Z +*> of right Schur vectors of (A,B) is returned; +*> = 'V': Z must contain an orthogonal matrix Z1 on entry and +*> the product Z1*Z is returned. +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> ILO and IHI mark the rows and columns of A which are in +*> Hessenberg form. It is assumed that A is already upper +*> triangular in rows and columns 1:ILO-1 and IHI+1:N. +*> If N > 0, 1 <= ILO <= IHI <= N; if N = 0, ILO=1 and IHI=0. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is REAL array, dimension (LDA, N) +*> On entry, the N-by-N upper Hessenberg matrix A. +*> On exit, if JOB = 'S', A contains the upper quasi-triangular +*> matrix S from the generalized Schur factorization. +*> If JOB = 'E', the diagonal blocks of A match those of S, but +*> the rest of A is unspecified. +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is REAL array, dimension (LDB, N) +*> On entry, the N-by-N upper triangular matrix B. +*> On exit, if JOB = 'S', B contains the upper triangular +*> matrix P from the generalized Schur factorization; +*> 2-by-2 diagonal blocks of P corresponding to 2-by-2 blocks of S +*> are reduced to positive diagonal form, i.e., if A(j+1,j) is +*> non-zero, then B(j+1,j) = B(j,j+1) = 0, B(j,j) > 0, and +*> B(j+1,j+1) > 0. +*> If JOB = 'E', the diagonal blocks of B match those of P, but +*> the rest of B is unspecified. +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[out] ALPHAR +*> \verbatim +*> ALPHAR is REAL array, dimension (N) +*> The real parts of each scalar alpha defining an eigenvalue +*> of GNEP. +*> \endverbatim +*> +*> \param[out] ALPHAI +*> \verbatim +*> ALPHAI is REAL array, dimension (N) +*> The imaginary parts of each scalar alpha defining an +*> eigenvalue of GNEP. +*> If ALPHAI(j) is zero, then the j-th eigenvalue is real; if +*> positive, then the j-th and (j+1)-st eigenvalues are a +*> complex conjugate pair, with ALPHAI(j+1) = -ALPHAI(j). +*> \endverbatim +*> +*> \param[out] BETA +*> \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 +*> mu = beta/alpha. Since either lambda or mu may overflow, +*> they should not, in general, be computed. +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is REAL array, dimension (LDQ, N) +*> On entry, if COMPQ = 'V', the orthogonal matrix Q1 used in +*> the reduction of (A,B) to generalized Hessenberg form. +*> On exit, if COMPQ = 'I', the orthogonal matrix of left Schur +*> vectors of (A,B), and if COMPQ = 'V', the orthogonal matrix +*> of left Schur vectors of (A,B). +*> Not referenced if COMPQ = 'N'. +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> The leading dimension of the array Q. LDQ >= 1. +*> If COMPQ='V' or 'I', then LDQ >= N. +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is REAL array, dimension (LDZ, N) +*> On entry, if COMPZ = 'V', the orthogonal matrix Z1 used in +*> the reduction of (A,B) to generalized Hessenberg form. +*> On exit, if COMPZ = 'I', the orthogonal matrix of +*> right Schur vectors of (H,T), and if COMPZ = 'V', the +*> orthogonal matrix of right Schur vectors of (A,B). +*> Not referenced if COMPZ = 'N'. +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> The leading dimension of the array Z. LDZ >= 1. +*> If COMPZ='V' or 'I', then LDZ >= N. +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is REAL array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> 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 +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[in] REC +*> \verbatim +*> REC is INTEGER +*> REC indicates the current recursion level. Should be set +*> to 0 on first call. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> = 1,...,N: the QZ iteration did not converge. (A,B) is not +*> in Schur form, but ALPHAR(i), ALPHAI(i), and +*> BETA(i), i=INFO+1,...,N should be correct. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + RECURSIVE SUBROUTINE SLAQZ0( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, + $ LDA, B, LDB, ALPHAR, ALPHAI, BETA, + $ Q, LDQ, Z, LDZ, WORK, LWORK, REC, + $ INFO ) + IMPLICIT NONE + +* Arguments + CHARACTER, INTENT( IN ) :: WANTS, WANTQ, WANTZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, + $ REC + + INTEGER, INTENT( OUT ) :: INFO + + REAL, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), + $ Z( LDZ, * ), ALPHAR( * ), ALPHAI( * ), BETA( * ), WORK( * ) + +* Parameters + REAL :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0, ONE = 1.0, HALF = 0.5 ) + +* Local scalars + REAL :: SMLNUM, ULP, ESHIFT, SAFMIN, SAFMAX, C1, S1, TEMP, SWAP + INTEGER :: ISTART, ISTOP, IITER, MAXIT, ISTART2, K, LD, NSHIFTS, + $ NBLOCK, NW, NMIN, NIBBLE, N_UNDEFLATED, N_DEFLATED, + $ NS, SWEEP_INFO, SHIFTPOS, LWORKREQ, K2, ISTARTM, + $ ISTOPM, IWANTS, IWANTQ, IWANTZ, NORM_INFO, AED_INFO, + $ NWR, NBR, NSR, ITEMP1, ITEMP2, RCOST, I + LOGICAL :: ILSCHUR, ILQ, ILZ + CHARACTER :: JBCMPZ*3 + +* External Functions + EXTERNAL :: XERBLA, SHGEQZ, SLAQZ3, SLAQZ4, SLASET, SLABAD, + $ SLARTG, SROT + REAL, EXTERNAL :: SLAMCH + LOGICAL, EXTERNAL :: LSAME + INTEGER, EXTERNAL :: ILAENV + +* +* Decode wantS,wantQ,wantZ +* + IF( LSAME( WANTS, 'E' ) ) THEN + ILSCHUR = .FALSE. + IWANTS = 1 + ELSE IF( LSAME( WANTS, 'S' ) ) THEN + ILSCHUR = .TRUE. + IWANTS = 2 + ELSE + IWANTS = 0 + END IF + + IF( LSAME( WANTQ, 'N' ) ) THEN + ILQ = .FALSE. + IWANTQ = 1 + ELSE IF( LSAME( WANTQ, 'V' ) ) THEN + ILQ = .TRUE. + IWANTQ = 2 + ELSE IF( LSAME( WANTQ, 'I' ) ) THEN + ILQ = .TRUE. + IWANTQ = 3 + ELSE + IWANTQ = 0 + END IF + + IF( LSAME( WANTZ, 'N' ) ) THEN + ILZ = .FALSE. + IWANTZ = 1 + ELSE IF( LSAME( WANTZ, 'V' ) ) THEN + ILZ = .TRUE. + IWANTZ = 2 + ELSE IF( LSAME( WANTZ, 'I' ) ) THEN + ILZ = .TRUE. + IWANTZ = 3 + ELSE + IWANTZ = 0 + END IF +* +* Check Argument Values +* + INFO = 0 + IF( IWANTS.EQ.0 ) THEN + INFO = -1 + ELSE IF( IWANTQ.EQ.0 ) THEN + INFO = -2 + ELSE IF( IWANTZ.EQ.0 ) THEN + INFO = -3 + ELSE IF( N.LT.0 ) THEN + INFO = -4 + ELSE IF( ILO.LT.1 ) THEN + INFO = -5 + ELSE IF( IHI.GT.N .OR. IHI.LT.ILO-1 ) THEN + INFO = -6 + ELSE IF( LDA.LT.N ) THEN + INFO = -8 + ELSE IF( LDB.LT.N ) THEN + INFO = -10 + ELSE IF( LDQ.LT.1 .OR. ( ILQ .AND. LDQ.LT.N ) ) THEN + INFO = -15 + ELSE IF( LDZ.LT.1 .OR. ( ILZ .AND. LDZ.LT.N ) ) THEN + INFO = -17 + END IF + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'SLAQZ0', -INFO ) + RETURN + END IF + +* +* Quick return if possible +* + IF( N.LE.0 ) THEN + WORK( 1 ) = REAL( 1 ) + RETURN + END IF + +* +* Get the parameters +* + JBCMPZ( 1:1 ) = WANTS + JBCMPZ( 2:2 ) = WANTQ + JBCMPZ( 3:3 ) = WANTZ + + NMIN = ILAENV( 12, 'SLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + + NWR = ILAENV( 13, 'SLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + NWR = MAX( 2, NWR ) + NWR = MIN( IHI-ILO+1, ( N-1 ) / 3, NWR ) + + NIBBLE = ILAENV( 14, 'SLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + + NSR = ILAENV( 15, 'SLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + NSR = MIN( NSR, ( N+6 ) / 9, IHI-ILO ) + NSR = MAX( 2, NSR-MOD( NSR, 2 ) ) + + RCOST = ILAENV( 17, 'SLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + ITEMP1 = INT( NSR/SQRT( 1+2*NSR/( REAL( RCOST )/100*N ) ) ) + ITEMP1 = ( ( ITEMP1-1 )/4 )*4+4 + NBR = NSR+ITEMP1 + + IF( N .LT. NMIN .OR. REC .GE. 2 ) THEN + CALL SHGEQZ( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, LDB, + $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, + $ LWORK, INFO ) + RETURN + END IF + +* +* Find out required workspace +* + +* Workspace query to slaqz3 + NW = MAX( NWR, NMIN ) + CALL SLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, A, LDA, B, LDB, + $ Q, LDQ, Z, LDZ, N_UNDEFLATED, N_DEFLATED, ALPHAR, + $ ALPHAI, BETA, WORK, NW, WORK, NW, WORK, -1, REC, + $ AED_INFO ) + ITEMP1 = INT( WORK( 1 ) ) +* Workspace query to slaqz4 + CALL SLAQZ4( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSR, NBR, ALPHAR, + $ ALPHAI, BETA, A, LDA, B, LDB, Q, LDQ, Z, LDZ, WORK, + $ NBR, WORK, NBR, WORK, -1, SWEEP_INFO ) + ITEMP2 = INT( WORK( 1 ) ) + + LWORKREQ = MAX( ITEMP1+2*NW**2, ITEMP2+2*NBR**2 ) + IF ( LWORK .EQ.-1 ) THEN + WORK( 1 ) = REAL( LWORKREQ ) + RETURN + ELSE IF ( LWORK .LT. LWORKREQ ) THEN + INFO = -19 + END IF + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'SLAQZ0', INFO ) + RETURN + END IF +* +* Initialize Q and Z +* + IF( IWANTQ.EQ.3 ) CALL SLASET( 'FULL', N, N, ZERO, ONE, Q, LDQ ) + IF( IWANTZ.EQ.3 ) CALL SLASET( 'FULL', N, N, ZERO, ONE, Z, LDZ ) + +* Get machine constants + SAFMIN = SLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL SLABAD( SAFMIN, SAFMAX ) + ULP = SLAMCH( 'PRECISION' ) + SMLNUM = SAFMIN*( REAL( N )/ULP ) + + ISTART = ILO + ISTOP = IHI + MAXIT = 3*( IHI-ILO+1 ) + LD = 0 + + DO IITER = 1, MAXIT + IF( IITER .GE. MAXIT ) THEN + INFO = ISTOP+1 + GOTO 80 + END IF + IF ( ISTART+1 .GE. ISTOP ) THEN + ISTOP = ISTART + EXIT + END IF + +* Check deflations at the end + IF ( ABS( A( ISTOP-1, ISTOP-2 ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTOP-1, ISTOP-1 ) )+ABS( A( ISTOP-2, + $ ISTOP-2 ) ) ) ) ) THEN + A( ISTOP-1, ISTOP-2 ) = ZERO + ISTOP = ISTOP-2 + LD = 0 + ESHIFT = ZERO + ELSE IF ( ABS( A( ISTOP, ISTOP-1 ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTOP, ISTOP ) )+ABS( A( ISTOP-1, + $ ISTOP-1 ) ) ) ) ) THEN + A( ISTOP, ISTOP-1 ) = ZERO + ISTOP = ISTOP-1 + LD = 0 + ESHIFT = ZERO + END IF +* Check deflations at the start + IF ( ABS( A( ISTART+2, ISTART+1 ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTART+1, ISTART+1 ) )+ABS( A( ISTART+2, + $ ISTART+2 ) ) ) ) ) THEN + A( ISTART+2, ISTART+1 ) = ZERO + ISTART = ISTART+2 + LD = 0 + ESHIFT = ZERO + ELSE IF ( ABS( A( ISTART+1, ISTART ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTART, ISTART ) )+ABS( A( ISTART+1, + $ ISTART+1 ) ) ) ) ) THEN + A( ISTART+1, ISTART ) = ZERO + ISTART = ISTART+1 + LD = 0 + ESHIFT = ZERO + END IF + + IF ( ISTART+1 .GE. ISTOP ) THEN + EXIT + END IF + +* Check interior deflations + ISTART2 = ISTART + DO K = ISTOP, ISTART+1, -1 + IF ( ABS( A( K, K-1 ) ) .LE. MAX( SMLNUM, ULP*( ABS( A( K, + $ K ) )+ABS( A( K-1, K-1 ) ) ) ) ) THEN + A( K, K-1 ) = ZERO + ISTART2 = K + EXIT + END IF + END DO + +* Get range to apply rotations to + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ISTART2 + ISTOPM = ISTOP + END IF + +* Check infinite eigenvalues, this is done without blocking so might +* slow down the method when many infinite eigenvalues are present + K = ISTOP + DO WHILE ( K.GE.ISTART2 ) + TEMP = ZERO + IF( K .LT. ISTOP ) THEN + TEMP = TEMP+ABS( B( K, K+1 ) ) + END IF + IF( K .GT. ISTART2 ) THEN + TEMP = TEMP+ABS( B( K-1, K ) ) + END IF + + IF( ABS( B( K, K ) ) .LT. MAX( SMLNUM, ULP*TEMP ) ) THEN +* A diagonal element of B is negligable, move it +* to the top and deflate it + + DO K2 = K, ISTART2+1, -1 + CALL SLARTG( B( K2-1, K2 ), B( K2-1, K2-1 ), C1, S1, + $ TEMP ) + B( K2-1, K2 ) = TEMP + B( K2-1, K2-1 ) = ZERO + + CALL SROT( K2-2-ISTARTM+1, B( ISTARTM, K2 ), 1, + $ B( ISTARTM, K2-1 ), 1, C1, S1 ) + CALL SROT( MIN( K2+1, ISTOP )-ISTARTM+1, A( ISTARTM, + $ K2 ), 1, A( ISTARTM, K2-1 ), 1, C1, S1 ) + IF ( ILZ ) THEN + CALL SROT( N, Z( 1, K2 ), 1, Z( 1, K2-1 ), 1, C1, + $ S1 ) + END IF + + IF( K2.LT.ISTOP ) THEN + CALL SLARTG( A( K2, K2-1 ), A( K2+1, K2-1 ), C1, + $ S1, TEMP ) + A( K2, K2-1 ) = TEMP + A( K2+1, K2-1 ) = ZERO + + CALL SROT( ISTOPM-K2+1, A( K2, K2 ), LDA, A( K2+1, + $ K2 ), LDA, C1, S1 ) + CALL SROT( ISTOPM-K2+1, B( K2, K2 ), LDB, B( K2+1, + $ K2 ), LDB, C1, S1 ) + IF( ILQ ) THEN + CALL SROT( N, Q( 1, K2 ), 1, Q( 1, K2+1 ), 1, + $ C1, S1 ) + END IF + END IF + + END DO + + IF( ISTART2.LT.ISTOP )THEN + CALL SLARTG( A( ISTART2, ISTART2 ), A( ISTART2+1, + $ ISTART2 ), C1, S1, TEMP ) + A( ISTART2, ISTART2 ) = TEMP + A( ISTART2+1, ISTART2 ) = ZERO + + CALL SROT( ISTOPM-( ISTART2+1 )+1, A( ISTART2, + $ ISTART2+1 ), LDA, A( ISTART2+1, + $ ISTART2+1 ), LDA, C1, S1 ) + CALL SROT( ISTOPM-( ISTART2+1 )+1, B( ISTART2, + $ ISTART2+1 ), LDB, B( ISTART2+1, + $ ISTART2+1 ), LDB, C1, S1 ) + IF( ILQ ) THEN + CALL SROT( N, Q( 1, ISTART2 ), 1, Q( 1, + $ ISTART2+1 ), 1, C1, S1 ) + END IF + END IF + + ISTART2 = ISTART2+1 + + END IF + K = K-1 + END DO + +* istart2 now points to the top of the bottom right +* unreduced Hessenberg block + IF ( ISTART2 .GE. ISTOP ) THEN + ISTOP = ISTART2-1 + LD = 0 + ESHIFT = ZERO + CYCLE + END IF + + NW = NWR + NSHIFTS = NSR + NBLOCK = NBR + + IF ( ISTOP-ISTART2+1 .LT. NMIN ) THEN +* Setting nw to the size of the subblock will make AED deflate +* all the eigenvalues. This is slightly more efficient than just +* using qz_small because the off diagonal part gets updated via BLAS. + IF ( ISTOP-ISTART+1 .LT. NMIN ) THEN + NW = ISTOP-ISTART+1 + ISTART2 = ISTART + ELSE + NW = ISTOP-ISTART2+1 + END IF + END IF + +* +* Time for AED +* + CALL SLAQZ3( ILSCHUR, ILQ, ILZ, N, ISTART2, ISTOP, NW, A, LDA, + $ B, LDB, Q, LDQ, Z, LDZ, N_UNDEFLATED, N_DEFLATED, + $ ALPHAR, ALPHAI, BETA, WORK, NW, WORK( NW**2+1 ), + $ NW, WORK( 2*NW**2+1 ), LWORK-2*NW**2, REC, + $ AED_INFO ) + + IF ( N_DEFLATED > 0 ) THEN + ISTOP = ISTOP-N_DEFLATED + LD = 0 + ESHIFT = ZERO + END IF + + IF ( 100*N_DEFLATED > NIBBLE*( N_DEFLATED+N_UNDEFLATED ) .OR. + $ ISTOP-ISTART2+1 .LT. NMIN ) THEN +* AED has uncovered many eigenvalues. Skip a QZ sweep and run +* AED again. + CYCLE + END IF + + LD = LD+1 + + NS = MIN( NSHIFTS, ISTOP-ISTART2 ) + NS = MIN( NS, N_UNDEFLATED ) + SHIFTPOS = ISTOP-N_DEFLATED-N_UNDEFLATED+1 +* +* Shuffle shifts to put double shifts in front +* This ensures that we don't split up a double shift +* + DO I = SHIFTPOS, SHIFTPOS+N_UNDEFLATED-1, 2 + IF( ALPHAI( I ).NE.-ALPHAI( I+1 ) ) THEN +* + SWAP = ALPHAR( I ) + ALPHAR( I ) = ALPHAR( I+1 ) + ALPHAR( I+1 ) = ALPHAR( I+2 ) + ALPHAR( I+2 ) = SWAP + + SWAP = ALPHAI( I ) + ALPHAI( I ) = ALPHAI( I+1 ) + ALPHAI( I+1 ) = ALPHAI( I+2 ) + ALPHAI( I+2 ) = SWAP + + SWAP = BETA( I ) + BETA( I ) = BETA( I+1 ) + BETA( I+1 ) = BETA( I+2 ) + BETA( I+2 ) = SWAP + END IF + END DO + + IF ( MOD( LD, 6 ) .EQ. 0 ) THEN +* +* Exceptional shift. Chosen for no particularly good reason. +* + IF( ( REAL( MAXIT )*SAFMIN )*ABS( A( ISTOP, + $ ISTOP-1 ) ).LT.ABS( A( ISTOP-1, ISTOP-1 ) ) ) THEN + ESHIFT = A( ISTOP, ISTOP-1 )/B( ISTOP-1, ISTOP-1 ) + ELSE + ESHIFT = ESHIFT+ONE/( SAFMIN*REAL( MAXIT ) ) + END IF + ALPHAR( SHIFTPOS ) = ONE + ALPHAR( SHIFTPOS+1 ) = ZERO + ALPHAI( SHIFTPOS ) = ZERO + ALPHAI( SHIFTPOS+1 ) = ZERO + BETA( SHIFTPOS ) = ESHIFT + BETA( SHIFTPOS+1 ) = ESHIFT + NS = 2 + END IF + +* +* Time for a QZ sweep +* + CALL SLAQZ4( ILSCHUR, ILQ, ILZ, N, ISTART2, ISTOP, NS, NBLOCK, + $ ALPHAR( SHIFTPOS ), ALPHAI( SHIFTPOS ), + $ BETA( SHIFTPOS ), A, LDA, B, LDB, Q, LDQ, Z, LDZ, + $ WORK, NBLOCK, WORK( NBLOCK**2+1 ), NBLOCK, + $ WORK( 2*NBLOCK**2+1 ), LWORK-2*NBLOCK**2, + $ SWEEP_INFO ) + + END DO + +* +* Call SHGEQZ to normalize the eigenvalue blocks and set the eigenvalues +* If all the eigenvalues have been found, SHGEQZ will not do any iterations +* and only normalize the blocks. In case of a rare convergence failure, +* the single shift might perform better. +* + 80 CALL SHGEQZ( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, LDB, + $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, + $ NORM_INFO ) + + INFO = NORM_INFO + + END SUBROUTINE diff --git a/lapack-netlib/SRC/slaqz1.f b/lapack-netlib/SRC/slaqz1.f new file mode 100644 index 000000000..9141d360b --- /dev/null +++ b/lapack-netlib/SRC/slaqz1.f @@ -0,0 +1,194 @@ +*> \brief \b SLAQZ1 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download SLAQZ1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE SLAQZ1( A, LDA, B, LDB, SR1, SR2, SI, BETA1, BETA2, +* $ V ) +* IMPLICIT NONE +* +* Arguments +* INTEGER, INTENT( IN ) :: LDA, LDB +* REAL, INTENT( IN ) :: A( LDA, * ), B( LDB, * ), SR1, SR2, SI, +* $ BETA1, BETA2 +* REAL, INTENT( OUT ) :: V( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> Given a 3-by-3 matrix pencil (A,B), SLAQZ1 sets v to a +*> scalar multiple of the first column of the product +*> +*> (*) K = (A - (beta2*sr2 - i*si)*B)*B^(-1)*(beta1*A - (sr2 + i*si2)*B)*B^(-1). +*> +*> It is assumed that either +*> +*> 1) sr1 = sr2 +*> or +*> 2) si = 0. +*> +*> This is useful for starting double implicit shift bulges +*> in the QZ algorithm. +*> \endverbatim +* +* +* Arguments: +* ========== +* +*> \param[in] A +*> \verbatim +*> A is REAL array, dimension (LDA,N) +*> The 3-by-3 matrix A in (*). +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of A as declared in +*> the calling procedure. +*> \endverbatim +* +*> \param[in] B +*> \verbatim +*> B is REAL array, dimension (LDB,N) +*> The 3-by-3 matrix B in (*). +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of B as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] SR1 +*> \verbatim +*> SR1 is REAL +*> \endverbatim +*> +*> \param[in] SR2 +*> \verbatim +*> SR2 is REAL +*> \endverbatim +*> +*> \param[in] SI +*> \verbatim +*> SI is REAL +*> \endverbatim +*> +*> \param[in] BETA1 +*> \verbatim +*> BETA1 is REAL +*> \endverbatim +*> +*> \param[in] BETA2 +*> \verbatim +*> BETA2 is REAL +*> \endverbatim +*> +*> \param[out] V +*> \verbatim +*> V is REAL array, dimension (N) +*> A scalar multiple of the first column of the +*> matrix K in (*). +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + SUBROUTINE SLAQZ1( A, LDA, B, LDB, SR1, SR2, SI, BETA1, BETA2, + $ V ) + IMPLICIT NONE +* +* Arguments + INTEGER, INTENT( IN ) :: LDA, LDB + REAL, INTENT( IN ) :: A( LDA, * ), B( LDB, * ), SR1, SR2, SI, + $ BETA1, BETA2 + REAL, INTENT( OUT ) :: V( * ) +* +* Parameters + REAL :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0, ONE = 1.0, HALF = 0.5 ) +* +* Local scalars + REAL :: W( 2 ), SAFMIN, SAFMAX, SCALE1, SCALE2 +* +* External Functions + REAL, EXTERNAL :: SLAMCH + LOGICAL, EXTERNAL :: SISNAN +* + SAFMIN = SLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN +* +* Calculate first shifted vector +* + W( 1 ) = BETA1*A( 1, 1 )-SR1*B( 1, 1 ) + W( 2 ) = BETA1*A( 2, 1 )-SR1*B( 2, 1 ) + SCALE1 = SQRT( ABS( W( 1 ) ) ) * SQRT( ABS( W( 2 ) ) ) + IF( SCALE1 .GE. SAFMIN .AND. SCALE1 .LE. SAFMAX ) THEN + W( 1 ) = W( 1 )/SCALE1 + W( 2 ) = W( 2 )/SCALE1 + END IF +* +* Solve linear system +* + W( 2 ) = W( 2 )/B( 2, 2 ) + W( 1 ) = ( W( 1 )-B( 1, 2 )*W( 2 ) )/B( 1, 1 ) + SCALE2 = SQRT( ABS( W( 1 ) ) ) * SQRT( ABS( W( 2 ) ) ) + IF( SCALE2 .GE. SAFMIN .AND. SCALE2 .LE. SAFMAX ) THEN + W( 1 ) = W( 1 )/SCALE2 + W( 2 ) = W( 2 )/SCALE2 + END IF +* +* Apply second shift +* + V( 1 ) = BETA2*( A( 1, 1 )*W( 1 )+A( 1, 2 )*W( 2 ) )-SR2*( B( 1, + $ 1 )*W( 1 )+B( 1, 2 )*W( 2 ) ) + V( 2 ) = BETA2*( A( 2, 1 )*W( 1 )+A( 2, 2 )*W( 2 ) )-SR2*( B( 2, + $ 1 )*W( 1 )+B( 2, 2 )*W( 2 ) ) + V( 3 ) = BETA2*( A( 3, 1 )*W( 1 )+A( 3, 2 )*W( 2 ) )-SR2*( B( 3, + $ 1 )*W( 1 )+B( 3, 2 )*W( 2 ) ) +* +* Account for imaginary part +* + V( 1 ) = V( 1 )+SI*SI*B( 1, 1 )/SCALE1/SCALE2 +* +* Check for overflow +* + IF( ABS( V( 1 ) ).GT.SAFMAX .OR. ABS( V( 2 ) ) .GT. SAFMAX .OR. + $ ABS( V( 3 ) ).GT.SAFMAX .OR. SISNAN( V( 1 ) ) .OR. + $ SISNAN( V( 2 ) ) .OR. SISNAN( V( 3 ) ) ) THEN + V( 1 ) = ZERO + V( 2 ) = ZERO + V( 3 ) = ZERO + END IF +* +* End of SLAQZ1 +* + END SUBROUTINE diff --git a/lapack-netlib/SRC/slaqz2.f b/lapack-netlib/SRC/slaqz2.f new file mode 100644 index 000000000..48b74432f --- /dev/null +++ b/lapack-netlib/SRC/slaqz2.f @@ -0,0 +1,315 @@ +*> \brief \b SLAQZ2 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download SLAQZ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE SLAQZ2( ILQ, ILZ, K, ISTARTM, ISTOPM, IHI, A, LDA, B, +* $ LDB, NQ, QSTART, Q, LDQ, NZ, ZSTART, Z, LDZ ) +* IMPLICIT NONE +* +* Arguments +* LOGICAL, INTENT( IN ) :: ILQ, ILZ +* INTEGER, INTENT( IN ) :: K, LDA, LDB, LDQ, LDZ, ISTARTM, ISTOPM, +* $ NQ, NZ, QSTART, ZSTART, IHI +* REAL :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), Z( LDZ, * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> SLAQZ2 chases a 2x2 shift bulge in a matrix pencil down a single position +*> \endverbatim +* +* +* Arguments: +* ========== +* +*> +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] K +*> \verbatim +*> K is INTEGER +*> Index indicating the position of the bulge. +*> On entry, the bulge is located in +*> (A(k+1:k+2,k:k+1),B(k+1:k+2,k:k+1)). +*> On exit, the bulge is located in +*> (A(k+2:k+3,k+1:k+2),B(k+2:k+3,k+1:k+2)). +*> \endverbatim +*> +*> \param[in] ISTARTM +*> \verbatim +*> ISTARTM is INTEGER +*> \endverbatim +*> +*> \param[in] ISTOPM +*> \verbatim +*> ISTOPM is INTEGER +*> Updates to (A,B) are restricted to +*> (istartm:k+3,k:istopm). It is assumed +*> without checking that istartm <= k+1 and +*> k+2 <= istopm +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> \endverbatim +*> +*> \param[inout] A +*> \verbatim +*> A is REAL array, dimension (LDA,N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of A as declared in +*> the calling procedure. +*> \endverbatim +* +*> \param[inout] B +*> \verbatim +*> B is REAL array, dimension (LDB,N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of B as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] NQ +*> \verbatim +*> NQ is INTEGER +*> The order of the matrix Q +*> \endverbatim +*> +*> \param[in] QSTART +*> \verbatim +*> QSTART is INTEGER +*> Start index of the matrix Q. Rotations are applied +*> To columns k+2-qStart:k+4-qStart of Q. +*> \endverbatim +* +*> \param[inout] Q +*> \verbatim +*> Q is REAL array, dimension (LDQ,NQ) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> The leading dimension of Q as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] NZ +*> \verbatim +*> NZ is INTEGER +*> The order of the matrix Z +*> \endverbatim +*> +*> \param[in] ZSTART +*> \verbatim +*> ZSTART is INTEGER +*> Start index of the matrix Z. Rotations are applied +*> To columns k+1-qStart:k+3-qStart of Z. +*> \endverbatim +* +*> \param[inout] Z +*> \verbatim +*> Z is REAL array, dimension (LDZ,NZ) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> The leading dimension of Q as declared in +*> the calling procedure. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + SUBROUTINE SLAQZ2( ILQ, ILZ, K, ISTARTM, ISTOPM, IHI, A, LDA, B, + $ LDB, NQ, QSTART, Q, LDQ, NZ, ZSTART, Z, LDZ ) + IMPLICIT NONE +* +* Arguments + LOGICAL, INTENT( IN ) :: ILQ, ILZ + INTEGER, INTENT( IN ) :: K, LDA, LDB, LDQ, LDZ, ISTARTM, ISTOPM, + $ NQ, NZ, QSTART, ZSTART, IHI + REAL :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), Z( LDZ, * ) +* +* Parameters + REAL :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0, ONE = 1.0, HALF = 0.5 ) +* +* Local variables + REAL :: H( 2, 3 ), C1, S1, C2, S2, TEMP +* +* External functions + EXTERNAL :: SLARTG, SROT +* + IF( K+2 .EQ. IHI ) THEN +* Shift is located on the edge of the matrix, remove it + H = B( IHI-1:IHI, IHI-2:IHI ) +* Make H upper triangular + CALL SLARTG( H( 1, 1 ), H( 2, 1 ), C1, S1, TEMP ) + H( 2, 1 ) = ZERO + H( 1, 1 ) = TEMP + CALL SROT( 2, H( 1, 2 ), 2, H( 2, 2 ), 2, C1, S1 ) +* + CALL SLARTG( H( 2, 3 ), H( 2, 2 ), C1, S1, TEMP ) + CALL SROT( 1, H( 1, 3 ), 1, H( 1, 2 ), 1, C1, S1 ) + CALL SLARTG( H( 1, 2 ), H( 1, 1 ), C2, S2, TEMP ) +* + CALL SROT( IHI-ISTARTM+1, B( ISTARTM, IHI ), 1, B( ISTARTM, + $ IHI-1 ), 1, C1, S1 ) + CALL SROT( IHI-ISTARTM+1, B( ISTARTM, IHI-1 ), 1, B( ISTARTM, + $ IHI-2 ), 1, C2, S2 ) + B( IHI-1, IHI-2 ) = ZERO + B( IHI, IHI-2 ) = ZERO + CALL SROT( IHI-ISTARTM+1, A( ISTARTM, IHI ), 1, A( ISTARTM, + $ IHI-1 ), 1, C1, S1 ) + CALL SROT( IHI-ISTARTM+1, A( ISTARTM, IHI-1 ), 1, A( ISTARTM, + $ IHI-2 ), 1, C2, S2 ) + IF ( ILZ ) THEN + CALL SROT( NZ, Z( 1, IHI-ZSTART+1 ), 1, Z( 1, IHI-1-ZSTART+ + $ 1 ), 1, C1, S1 ) + CALL SROT( NZ, Z( 1, IHI-1-ZSTART+1 ), 1, Z( 1, + $ IHI-2-ZSTART+1 ), 1, C2, S2 ) + END IF +* + CALL SLARTG( A( IHI-1, IHI-2 ), A( IHI, IHI-2 ), C1, S1, + $ TEMP ) + A( IHI-1, IHI-2 ) = TEMP + A( IHI, IHI-2 ) = ZERO + CALL SROT( ISTOPM-IHI+2, A( IHI-1, IHI-1 ), LDA, A( IHI, + $ IHI-1 ), LDA, C1, S1 ) + CALL SROT( ISTOPM-IHI+2, B( IHI-1, IHI-1 ), LDB, B( IHI, + $ IHI-1 ), LDB, C1, S1 ) + IF ( ILQ ) THEN + CALL SROT( NQ, Q( 1, IHI-1-QSTART+1 ), 1, Q( 1, IHI-QSTART+ + $ 1 ), 1, C1, S1 ) + END IF +* + CALL SLARTG( B( IHI, IHI ), B( IHI, IHI-1 ), C1, S1, TEMP ) + B( IHI, IHI ) = TEMP + B( IHI, IHI-1 ) = ZERO + CALL SROT( IHI-ISTARTM, B( ISTARTM, IHI ), 1, B( ISTARTM, + $ IHI-1 ), 1, C1, S1 ) + CALL SROT( IHI-ISTARTM+1, A( ISTARTM, IHI ), 1, A( ISTARTM, + $ IHI-1 ), 1, C1, S1 ) + IF ( ILZ ) THEN + CALL SROT( NZ, Z( 1, IHI-ZSTART+1 ), 1, Z( 1, IHI-1-ZSTART+ + $ 1 ), 1, C1, S1 ) + END IF +* + ELSE +* +* Normal operation, move bulge down +* + H = B( K+1:K+2, K:K+2 ) +* +* Make H upper triangular +* + CALL SLARTG( H( 1, 1 ), H( 2, 1 ), C1, S1, TEMP ) + H( 2, 1 ) = ZERO + H( 1, 1 ) = TEMP + CALL SROT( 2, H( 1, 2 ), 2, H( 2, 2 ), 2, C1, S1 ) +* +* Calculate Z1 and Z2 +* + CALL SLARTG( H( 2, 3 ), H( 2, 2 ), C1, S1, TEMP ) + CALL SROT( 1, H( 1, 3 ), 1, H( 1, 2 ), 1, C1, S1 ) + CALL SLARTG( H( 1, 2 ), H( 1, 1 ), C2, S2, TEMP ) +* +* Apply transformations from the right +* + CALL SROT( K+3-ISTARTM+1, A( ISTARTM, K+2 ), 1, A( ISTARTM, + $ K+1 ), 1, C1, S1 ) + CALL SROT( K+3-ISTARTM+1, A( ISTARTM, K+1 ), 1, A( ISTARTM, + $ K ), 1, C2, S2 ) + CALL SROT( K+2-ISTARTM+1, B( ISTARTM, K+2 ), 1, B( ISTARTM, + $ K+1 ), 1, C1, S1 ) + CALL SROT( K+2-ISTARTM+1, B( ISTARTM, K+1 ), 1, B( ISTARTM, + $ K ), 1, C2, S2 ) + IF ( ILZ ) THEN + CALL SROT( NZ, Z( 1, K+2-ZSTART+1 ), 1, Z( 1, K+1-ZSTART+ + $ 1 ), 1, C1, S1 ) + CALL SROT( NZ, Z( 1, K+1-ZSTART+1 ), 1, Z( 1, K-ZSTART+1 ), + $ 1, C2, S2 ) + END IF + B( K+1, K ) = ZERO + B( K+2, K ) = ZERO +* +* Calculate Q1 and Q2 +* + CALL SLARTG( A( K+2, K ), A( K+3, K ), C1, S1, TEMP ) + A( K+2, K ) = TEMP + A( K+3, K ) = ZERO + CALL SLARTG( A( K+1, K ), A( K+2, K ), C2, S2, TEMP ) + A( K+1, K ) = TEMP + A( K+2, K ) = ZERO +* +* Apply transformations from the left +* + CALL SROT( ISTOPM-K, A( K+2, K+1 ), LDA, A( K+3, K+1 ), LDA, + $ C1, S1 ) + CALL SROT( ISTOPM-K, A( K+1, K+1 ), LDA, A( K+2, K+1 ), LDA, + $ C2, S2 ) +* + CALL SROT( ISTOPM-K, B( K+2, K+1 ), LDB, B( K+3, K+1 ), LDB, + $ C1, S1 ) + CALL SROT( ISTOPM-K, B( K+1, K+1 ), LDB, B( K+2, K+1 ), LDB, + $ C2, S2 ) + IF ( ILQ ) THEN + CALL SROT( NQ, Q( 1, K+2-QSTART+1 ), 1, Q( 1, K+3-QSTART+ + $ 1 ), 1, C1, S1 ) + CALL SROT( NQ, Q( 1, K+1-QSTART+1 ), 1, Q( 1, K+2-QSTART+ + $ 1 ), 1, C2, S2 ) + END IF +* + END IF +* +* End of SLAQZ2 +* + END SUBROUTINE \ No newline at end of file diff --git a/lapack-netlib/SRC/slaqz3.f b/lapack-netlib/SRC/slaqz3.f new file mode 100644 index 000000000..edb8a6012 --- /dev/null +++ b/lapack-netlib/SRC/slaqz3.f @@ -0,0 +1,563 @@ +*> \brief \b SLAQZ3 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download SLAQZ3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE SLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, A, LDA, B, +* $ LDB, Q, LDQ, Z, LDZ, NS, ND, ALPHAR, ALPHAI, BETA, QC, LDQC, +* $ ZC, LDZC, WORK, LWORK, REC, INFO ) +* IMPLICIT NONE +* +* Arguments +* LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, NW, LDA, LDB, LDQ, LDZ, +* $ LDQC, LDZC, LWORK, REC +* +* REAL, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), +* $ Z( LDZ, * ), ALPHAR( * ), ALPHAI( * ), BETA( * ) +* INTEGER, INTENT( OUT ) :: NS, ND, INFO +* REAL :: QC( LDQC, * ), ZC( LDZC, * ), WORK( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> SLAQZ3 performs AED +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] ILSCHUR +*> \verbatim +*> ILSCHUR is LOGICAL +*> Determines whether or not to update the full Schur form +*> \endverbatim +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> ILO and IHI mark the rows and columns of (A,B) which +*> are to be normalized +*> \endverbatim +*> +*> \param[in] NW +*> \verbatim +*> NW is INTEGER +*> The desired size of the deflation window. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is REAL array, dimension (LDA, N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is REAL array, dimension (LDB, N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is REAL array, dimension (LDQ, N) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is REAL array, dimension (LDZ, N) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] NS +*> \verbatim +*> NS is INTEGER +*> The number of unconverged eigenvalues available to +*> use as shifts. +*> \endverbatim +*> +*> \param[out] ND +*> \verbatim +*> ND is INTEGER +*> The number of converged eigenvalues found. +*> \endverbatim +*> +*> \param[out] ALPHAR +*> \verbatim +*> ALPHAR is REAL array, dimension (N) +*> The real parts of each scalar alpha defining an eigenvalue +*> of GNEP. +*> \endverbatim +*> +*> \param[out] ALPHAI +*> \verbatim +*> ALPHAI is REAL array, dimension (N) +*> The imaginary parts of each scalar alpha defining an +*> eigenvalue of GNEP. +*> If ALPHAI(j) is zero, then the j-th eigenvalue is real; if +*> positive, then the j-th and (j+1)-st eigenvalues are a +*> complex conjugate pair, with ALPHAI(j+1) = -ALPHAI(j). +*> \endverbatim +*> +*> \param[out] BETA +*> \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 +*> mu = beta/alpha. Since either lambda or mu may overflow, +*> they should not, in general, be computed. +*> \endverbatim +*> +*> \param[in,out] QC +*> \verbatim +*> QC is REAL array, dimension (LDQC, NW) +*> \endverbatim +*> +*> \param[in] LDQC +*> \verbatim +*> LDQC is INTEGER +*> \endverbatim +*> +*> \param[in,out] ZC +*> \verbatim +*> ZC is REAL array, dimension (LDZC, NW) +*> \endverbatim +*> +*> \param[in] LDZC +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is REAL array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> 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 +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[in] REC +*> \verbatim +*> REC is INTEGER +*> REC indicates the current recursion level. Should be set +*> to 0 on first call. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + RECURSIVE SUBROUTINE SLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, + $ A, LDA, B, LDB, Q, LDQ, Z, LDZ, NS, + $ ND, ALPHAR, ALPHAI, BETA, QC, LDQC, + $ ZC, LDZC, WORK, LWORK, REC, INFO ) + IMPLICIT NONE + +* Arguments + LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, NW, LDA, LDB, LDQ, LDZ, + $ LDQC, LDZC, LWORK, REC + + REAL, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), + $ Z( LDZ, * ), ALPHAR( * ), ALPHAI( * ), BETA( * ) + INTEGER, INTENT( OUT ) :: NS, ND, INFO + REAL :: QC( LDQC, * ), ZC( LDZC, * ), WORK( * ) + +* Parameters + REAL :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0, ONE = 1.0, HALF = 0.5 ) + +* Local Scalars + LOGICAL :: BULGE + INTEGER :: JW, KWTOP, KWBOT, ISTOPM, ISTARTM, K, K2, STGEXC_INFO, + $ IFST, ILST, LWORKREQ, QZ_SMALL_INFO + REAL :: S, SMLNUM, ULP, SAFMIN, SAFMAX, C1, S1, TEMP + +* External Functions + EXTERNAL :: XERBLA, STGEXC, SLABAD, SLAQZ0, SLACPY, SLASET, + $ SLAQZ2, SROT, SLARTG, SLAG2, SGEMM + REAL, EXTERNAL :: SLAMCH + + INFO = 0 + +* Set up deflation window + JW = MIN( NW, IHI-ILO+1 ) + KWTOP = IHI-JW+1 + IF ( KWTOP .EQ. ILO ) THEN + S = ZERO + ELSE + S = A( KWTOP, KWTOP-1 ) + END IF + +* Determine required workspace + IFST = 1 + ILST = JW + CALL STGEXC( .TRUE., .TRUE., JW, A, LDA, B, LDB, QC, LDQC, ZC, + $ LDZC, IFST, ILST, WORK, -1, STGEXC_INFO ) + LWORKREQ = INT( WORK( 1 ) ) + CALL SLAQZ0( 'S', 'V', 'V', JW, 1, JW, A( KWTOP, KWTOP ), LDA, + $ B( KWTOP, KWTOP ), LDB, ALPHAR, ALPHAI, BETA, QC, + $ LDQC, ZC, LDZC, WORK, -1, REC+1, QZ_SMALL_INFO ) + LWORKREQ = MAX( LWORKREQ, INT( WORK( 1 ) )+2*JW**2 ) + LWORKREQ = MAX( LWORKREQ, N*NW, 2*NW**2+N ) + IF ( LWORK .EQ.-1 ) THEN +* workspace query, quick return + WORK( 1 ) = LWORKREQ + RETURN + ELSE IF ( LWORK .LT. LWORKREQ ) THEN + INFO = -26 + END IF + + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'SLAQZ3', -INFO ) + RETURN + END IF + +* Get machine constants + SAFMIN = SLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL SLABAD( SAFMIN, SAFMAX ) + ULP = SLAMCH( 'PRECISION' ) + SMLNUM = SAFMIN*( REAL( N )/ULP ) + + IF ( IHI .EQ. KWTOP ) THEN +* 1 by 1 deflation window, just try a regular deflation + ALPHAR( KWTOP ) = A( KWTOP, KWTOP ) + ALPHAI( KWTOP ) = ZERO + BETA( KWTOP ) = B( KWTOP, KWTOP ) + NS = 1 + ND = 0 + IF ( ABS( S ) .LE. MAX( SMLNUM, ULP*ABS( A( KWTOP, + $ KWTOP ) ) ) ) THEN + NS = 0 + ND = 1 + IF ( KWTOP .GT. ILO ) THEN + A( KWTOP, KWTOP-1 ) = ZERO + END IF + END IF + END IF + + +* Store window in case of convergence failure + CALL SLACPY( 'ALL', JW, JW, A( KWTOP, KWTOP ), LDA, WORK, JW ) + CALL SLACPY( 'ALL', JW, JW, B( KWTOP, KWTOP ), LDB, WORK( JW**2+ + $ 1 ), JW ) + +* Transform window to real schur form + CALL SLASET( 'FULL', JW, JW, ZERO, ONE, QC, LDQC ) + CALL SLASET( 'FULL', JW, JW, ZERO, ONE, ZC, LDZC ) + CALL SLAQZ0( 'S', 'V', 'V', JW, 1, JW, A( KWTOP, KWTOP ), LDA, + $ B( KWTOP, KWTOP ), LDB, ALPHAR, ALPHAI, BETA, QC, + $ LDQC, ZC, LDZC, WORK( 2*JW**2+1 ), LWORK-2*JW**2, + $ REC+1, QZ_SMALL_INFO ) + + IF( QZ_SMALL_INFO .NE. 0 ) THEN +* Convergence failure, restore the window and exit + ND = 0 + NS = JW-QZ_SMALL_INFO + CALL SLACPY( 'ALL', JW, JW, WORK, JW, A( KWTOP, KWTOP ), LDA ) + CALL SLACPY( 'ALL', JW, JW, WORK( JW**2+1 ), JW, B( KWTOP, + $ KWTOP ), LDB ) + RETURN + END IF + +* Deflation detection loop + IF ( KWTOP .EQ. ILO .OR. S .EQ. ZERO ) THEN + KWBOT = KWTOP-1 + ELSE + KWBOT = IHI + K = 1 + K2 = 1 + DO WHILE ( K .LE. JW ) + BULGE = .FALSE. + IF ( KWBOT-KWTOP+1 .GE. 2 ) THEN + BULGE = A( KWBOT, KWBOT-1 ) .NE. ZERO + END IF + IF ( BULGE ) THEN + +* Try to deflate complex conjugate eigenvalue pair + TEMP = ABS( A( KWBOT, KWBOT ) )+SQRT( ABS( A( KWBOT, + $ KWBOT-1 ) ) )*SQRT( ABS( A( KWBOT-1, KWBOT ) ) ) + IF( TEMP .EQ. ZERO )THEN + TEMP = ABS( S ) + END IF + IF ( MAX( ABS( S*QC( 1, KWBOT-KWTOP ) ), ABS( S*QC( 1, + $ KWBOT-KWTOP+1 ) ) ) .LE. MAX( SMLNUM, + $ ULP*TEMP ) ) THEN +* Deflatable + KWBOT = KWBOT-2 + ELSE +* Not deflatable, move out of the way + IFST = KWBOT-KWTOP+1 + ILST = K2 + CALL STGEXC( .TRUE., .TRUE., JW, A( KWTOP, KWTOP ), + $ LDA, B( KWTOP, KWTOP ), LDB, QC, LDQC, + $ ZC, LDZC, IFST, ILST, WORK, LWORK, + $ STGEXC_INFO ) + K2 = K2+2 + END IF + K = K+2 + ELSE + +* Try to deflate real eigenvalue + TEMP = ABS( A( KWBOT, KWBOT ) ) + IF( TEMP .EQ. ZERO ) THEN + TEMP = ABS( S ) + END IF + IF ( ( ABS( S*QC( 1, KWBOT-KWTOP+1 ) ) ) .LE. MAX( ULP* + $ TEMP, SMLNUM ) ) THEN +* Deflatable + KWBOT = KWBOT-1 + ELSE +* Not deflatable, move out of the way + IFST = KWBOT-KWTOP+1 + ILST = K2 + CALL STGEXC( .TRUE., .TRUE., JW, A( KWTOP, KWTOP ), + $ LDA, B( KWTOP, KWTOP ), LDB, QC, LDQC, + $ ZC, LDZC, IFST, ILST, WORK, LWORK, + $ STGEXC_INFO ) + K2 = K2+1 + END IF + + K = K+1 + + END IF + END DO + END IF + +* Store eigenvalues + ND = IHI-KWBOT + NS = JW-ND + K = KWTOP + DO WHILE ( K .LE. IHI ) + BULGE = .FALSE. + IF ( K .LT. IHI ) THEN + IF ( A( K+1, K ) .NE. ZERO ) THEN + BULGE = .TRUE. + END IF + END IF + IF ( BULGE ) THEN +* 2x2 eigenvalue block + CALL SLAG2( A( K, K ), LDA, B( K, K ), LDB, SAFMIN, + $ BETA( K ), BETA( K+1 ), ALPHAR( K ), + $ ALPHAR( K+1 ), ALPHAI( K ) ) + ALPHAI( K+1 ) = -ALPHAI( K ) + K = K+2 + ELSE +* 1x1 eigenvalue block + ALPHAR( K ) = A( K, K ) + ALPHAI( K ) = ZERO + BETA( K ) = B( K, K ) + K = K+1 + END IF + END DO + + IF ( KWTOP .NE. ILO .AND. S .NE. ZERO ) THEN +* Reflect spike back, this will create optimally packed bulges + A( KWTOP:KWBOT, KWTOP-1 ) = A( KWTOP, KWTOP-1 )*QC( 1, + $ 1:JW-ND ) + DO K = KWBOT-1, KWTOP, -1 + CALL SLARTG( A( K, KWTOP-1 ), A( K+1, KWTOP-1 ), C1, S1, + $ TEMP ) + A( K, KWTOP-1 ) = TEMP + A( K+1, KWTOP-1 ) = ZERO + K2 = MAX( KWTOP, K-1 ) + CALL SROT( IHI-K2+1, A( K, K2 ), LDA, A( K+1, K2 ), LDA, C1, + $ S1 ) + CALL SROT( IHI-( K-1 )+1, B( K, K-1 ), LDB, B( K+1, K-1 ), + $ LDB, C1, S1 ) + CALL SROT( JW, QC( 1, K-KWTOP+1 ), 1, QC( 1, K+1-KWTOP+1 ), + $ 1, C1, S1 ) + END DO + +* Chase bulges down + ISTARTM = KWTOP + ISTOPM = IHI + K = KWBOT-1 + DO WHILE ( K .GE. KWTOP ) + IF ( ( K .GE. KWTOP+1 ) .AND. A( K+1, K-1 ) .NE. ZERO ) THEN + +* Move double pole block down and remove it + DO K2 = K-1, KWBOT-2 + CALL SLAQZ2( .TRUE., .TRUE., K2, KWTOP, KWTOP+JW-1, + $ KWBOT, A, LDA, B, LDB, JW, KWTOP, QC, + $ LDQC, JW, KWTOP, ZC, LDZC ) + END DO + + K = K-2 + ELSE + +* k points to single shift + DO K2 = K, KWBOT-2 + +* Move shift down + CALL SLARTG( B( K2+1, K2+1 ), B( K2+1, K2 ), C1, S1, + $ TEMP ) + B( K2+1, K2+1 ) = TEMP + B( K2+1, K2 ) = ZERO + CALL SROT( K2+2-ISTARTM+1, A( ISTARTM, K2+1 ), 1, + $ A( ISTARTM, K2 ), 1, C1, S1 ) + CALL SROT( K2-ISTARTM+1, B( ISTARTM, K2+1 ), 1, + $ B( ISTARTM, K2 ), 1, C1, S1 ) + CALL SROT( JW, ZC( 1, K2+1-KWTOP+1 ), 1, ZC( 1, + $ K2-KWTOP+1 ), 1, C1, S1 ) + + CALL SLARTG( A( K2+1, K2 ), A( K2+2, K2 ), C1, S1, + $ TEMP ) + A( K2+1, K2 ) = TEMP + A( K2+2, K2 ) = ZERO + CALL SROT( ISTOPM-K2, A( K2+1, K2+1 ), LDA, A( K2+2, + $ K2+1 ), LDA, C1, S1 ) + CALL SROT( ISTOPM-K2, B( K2+1, K2+1 ), LDB, B( K2+2, + $ K2+1 ), LDB, C1, S1 ) + CALL SROT( JW, QC( 1, K2+1-KWTOP+1 ), 1, QC( 1, + $ K2+2-KWTOP+1 ), 1, C1, S1 ) + + END DO + +* Remove the shift + CALL SLARTG( B( KWBOT, KWBOT ), B( KWBOT, KWBOT-1 ), C1, + $ S1, TEMP ) + B( KWBOT, KWBOT ) = TEMP + B( KWBOT, KWBOT-1 ) = ZERO + CALL SROT( KWBOT-ISTARTM, B( ISTARTM, KWBOT ), 1, + $ B( ISTARTM, KWBOT-1 ), 1, C1, S1 ) + CALL SROT( KWBOT-ISTARTM+1, A( ISTARTM, KWBOT ), 1, + $ A( ISTARTM, KWBOT-1 ), 1, C1, S1 ) + CALL SROT( JW, ZC( 1, KWBOT-KWTOP+1 ), 1, ZC( 1, + $ KWBOT-1-KWTOP+1 ), 1, C1, S1 ) + + K = K-1 + END IF + END DO + + END IF + +* Apply Qc and Zc to rest of the matrix + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ILO + ISTOPM = IHI + END IF + + IF ( ISTOPM-IHI > 0 ) THEN + CALL SGEMM( 'T', 'N', JW, ISTOPM-IHI, JW, ONE, QC, LDQC, + $ A( KWTOP, IHI+1 ), LDA, ZERO, WORK, JW ) + CALL SLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, A( KWTOP, + $ IHI+1 ), LDA ) + CALL SGEMM( 'T', 'N', JW, ISTOPM-IHI, JW, ONE, QC, LDQC, + $ B( KWTOP, IHI+1 ), LDB, ZERO, WORK, JW ) + CALL SLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, B( KWTOP, + $ IHI+1 ), LDB ) + END IF + IF ( ILQ ) THEN + CALL SGEMM( 'N', 'N', N, JW, JW, ONE, Q( 1, KWTOP ), LDQ, QC, + $ LDQC, ZERO, WORK, N ) + CALL SLACPY( 'ALL', N, JW, WORK, N, Q( 1, KWTOP ), LDQ ) + END IF + + IF ( KWTOP-1-ISTARTM+1 > 0 ) THEN + CALL SGEMM( 'N', 'N', KWTOP-ISTARTM, JW, JW, ONE, A( ISTARTM, + $ KWTOP ), LDA, ZC, LDZC, ZERO, WORK, + $ KWTOP-ISTARTM ) + CALL SLACPY( 'ALL', KWTOP-ISTARTM, JW, WORK, KWTOP-ISTARTM, + $ A( ISTARTM, KWTOP ), LDA ) + CALL SGEMM( 'N', 'N', KWTOP-ISTARTM, JW, JW, ONE, B( ISTARTM, + $ KWTOP ), LDB, ZC, LDZC, ZERO, WORK, + $ KWTOP-ISTARTM ) + CALL SLACPY( 'ALL', KWTOP-ISTARTM, JW, WORK, KWTOP-ISTARTM, + $ B( ISTARTM, KWTOP ), LDB ) + END IF + IF ( ILZ ) THEN + CALL SGEMM( 'N', 'N', N, JW, JW, ONE, Z( 1, KWTOP ), LDZ, ZC, + $ LDZC, ZERO, WORK, N ) + CALL SLACPY( 'ALL', N, JW, WORK, N, Z( 1, KWTOP ), LDZ ) + END IF + + END SUBROUTINE diff --git a/lapack-netlib/SRC/slaqz4.f b/lapack-netlib/SRC/slaqz4.f new file mode 100644 index 000000000..3c307dd47 --- /dev/null +++ b/lapack-netlib/SRC/slaqz4.f @@ -0,0 +1,532 @@ +*> \brief \b SLAQZ4 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download SLAQZ4 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE SLAQZ4( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSHIFTS, +* $ NBLOCK_DESIRED, SR, SI, SS, A, LDA, B, LDB, Q, LDQ, Z, LDZ, +* $ QC, LDQC, ZC, LDZC, WORK, LWORK, INFO ) +* IMPLICIT NONE +* +* Function arguments +* LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, +* $ NSHIFTS, NBLOCK_DESIRED, LDQC, LDZC +* +* REAL, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), +* $ Z( LDZ, * ), QC( LDQC, * ), ZC( LDZC, * ), WORK( * ), SR( * ), +* $ SI( * ), SS( * ) +* +* INTEGER, INTENT( OUT ) :: INFO +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> SLAQZ4 Executes a single multishift QZ sweep +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] ILSCHUR +*> \verbatim +*> ILSCHUR is LOGICAL +*> Determines whether or not to update the full Schur form +*> \endverbatim +*> +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> \endverbatim +*> +*> \param[in] NSHIFTS +*> \verbatim +*> NSHIFTS is INTEGER +*> The desired number of shifts to use +*> \endverbatim +*> +*> \param[in] NBLOCK_DESIRED +*> \verbatim +*> NBLOCK_DESIRED is INTEGER +*> The desired size of the computational windows +*> \endverbatim +*> +*> \param[in] SR +*> \verbatim +*> SR is REAL array. SR contains +*> the real parts of the shifts to use. +*> \endverbatim +*> +*> \param[in] SI +*> \verbatim +*> SI is REAL array. SI contains +*> the imaginary parts of the shifts to use. +*> \endverbatim +*> +*> \param[in] SS +*> \verbatim +*> SS is REAL array. SS contains +*> the scale of the shifts to use. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is REAL array, dimension (LDA, N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is REAL array, dimension (LDB, N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is REAL array, dimension (LDQ, N) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is REAL array, dimension (LDZ, N) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[in,out] QC +*> \verbatim +*> QC is REAL array, dimension (LDQC, NBLOCK_DESIRED) +*> \endverbatim +*> +*> \param[in] LDQC +*> \verbatim +*> LDQC is INTEGER +*> \endverbatim +*> +*> \param[in,out] ZC +*> \verbatim +*> ZC is REAL array, dimension (LDZC, NBLOCK_DESIRED) +*> \endverbatim +*> +*> \param[in] LDZC +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is REAL array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> 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 +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup doubleGEcomputational +*> +* ===================================================================== + SUBROUTINE SLAQZ4( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSHIFTS, + $ NBLOCK_DESIRED, SR, SI, SS, A, LDA, B, LDB, Q, + $ LDQ, Z, LDZ, QC, LDQC, ZC, LDZC, WORK, LWORK, + $ INFO ) + IMPLICIT NONE + +* Function arguments + LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, + $ NSHIFTS, NBLOCK_DESIRED, LDQC, LDZC + + REAL, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), + $ Z( LDZ, * ), QC( LDQC, * ), ZC( LDZC, * ), WORK( * ), SR( * ), + $ SI( * ), SS( * ) + + INTEGER, INTENT( OUT ) :: INFO + +* Parameters + REAL :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0, ONE = 1.0, HALF = 0.5 ) + +* Local scalars + INTEGER :: I, J, NS, ISTARTM, ISTOPM, SHEIGHT, SWIDTH, K, NP, + $ ISTARTB, ISTOPB, ISHIFT, NBLOCK, NPOS + REAL :: TEMP, V( 3 ), C1, S1, C2, S2, SWAP +* +* External functions + EXTERNAL :: XERBLA, SGEMM, SLAQZ1, SLAQZ2, SLASET, SLARTG, SROT, + $ SLACPY + + INFO = 0 + IF ( NBLOCK_DESIRED .LT. NSHIFTS+1 ) THEN + INFO = -8 + END IF + IF ( LWORK .EQ.-1 ) THEN +* workspace query, quick return + WORK( 1 ) = N*NBLOCK_DESIRED + RETURN + ELSE IF ( LWORK .LT. N*NBLOCK_DESIRED ) THEN + INFO = -25 + END IF + + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'SLAQZ4', -INFO ) + RETURN + END IF + +* Executable statements + + IF ( NSHIFTS .LT. 2 ) THEN + RETURN + END IF + + IF ( ILO .GE. IHI ) THEN + RETURN + END IF + + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ILO + ISTOPM = IHI + END IF + +* Shuffle shifts into pairs of real shifts and pairs +* of complex conjugate shifts assuming complex +* conjugate shifts are already adjacent to one +* another + + DO I = 1, NSHIFTS-2, 2 + IF( SI( I ).NE.-SI( I+1 ) ) THEN +* + SWAP = SR( I ) + SR( I ) = SR( I+1 ) + SR( I+1 ) = SR( I+2 ) + SR( I+2 ) = SWAP + + SWAP = SI( I ) + SI( I ) = SI( I+1 ) + SI( I+1 ) = SI( I+2 ) + SI( I+2 ) = SWAP + + SWAP = SS( I ) + SS( I ) = SS( I+1 ) + SS( I+1 ) = SS( I+2 ) + SS( I+2 ) = SWAP + END IF + END DO + +* NSHFTS is supposed to be even, but if it is odd, +* then simply reduce it by one. The shuffle above +* ensures that the dropped shift is real and that +* the remaining shifts are paired. + + NS = NSHIFTS-MOD( NSHIFTS, 2 ) + NPOS = MAX( NBLOCK_DESIRED-NS, 1 ) + +* The following block introduces the shifts and chases +* them down one by one just enough to make space for +* the other shifts. The near-the-diagonal block is +* of size (ns+1) x ns. + + CALL SLASET( 'FULL', NS+1, NS+1, ZERO, ONE, QC, LDQC ) + CALL SLASET( 'FULL', NS, NS, ZERO, ONE, ZC, LDZC ) + + DO I = 1, NS, 2 +* Introduce the shift + CALL SLAQZ1( A( ILO, ILO ), LDA, B( ILO, ILO ), LDB, SR( I ), + $ SR( I+1 ), SI( I ), SS( I ), SS( I+1 ), V ) + + TEMP = V( 2 ) + CALL SLARTG( TEMP, V( 3 ), C1, S1, V( 2 ) ) + CALL SLARTG( V( 1 ), V( 2 ), C2, S2, TEMP ) + + CALL SROT( NS, A( ILO+1, ILO ), LDA, A( ILO+2, ILO ), LDA, C1, + $ S1 ) + CALL SROT( NS, A( ILO, ILO ), LDA, A( ILO+1, ILO ), LDA, C2, + $ S2 ) + CALL SROT( NS, B( ILO+1, ILO ), LDB, B( ILO+2, ILO ), LDB, C1, + $ S1 ) + CALL SROT( NS, B( ILO, ILO ), LDB, B( ILO+1, ILO ), LDB, C2, + $ S2 ) + CALL SROT( NS+1, QC( 1, 2 ), 1, QC( 1, 3 ), 1, C1, S1 ) + CALL SROT( NS+1, QC( 1, 1 ), 1, QC( 1, 2 ), 1, C2, S2 ) + +* Chase the shift down + DO J = 1, NS-1-I + + CALL SLAQZ2( .TRUE., .TRUE., J, 1, NS, IHI-ILO+1, A( ILO, + $ ILO ), LDA, B( ILO, ILO ), LDB, NS+1, 1, QC, + $ LDQC, NS, 1, ZC, LDZC ) + + END DO + + END DO + +* Update the rest of the pencil + +* Update A(ilo:ilo+ns,ilo+ns:istopm) and B(ilo:ilo+ns,ilo+ns:istopm) +* from the left with Qc(1:ns+1,1:ns+1)' + SHEIGHT = NS+1 + SWIDTH = ISTOPM-( ILO+NS )+1 + IF ( SWIDTH > 0 ) THEN + CALL SGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, LDQC, + $ A( ILO, ILO+NS ), LDA, ZERO, WORK, SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ILO, + $ ILO+NS ), LDA ) + CALL SGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, LDQC, + $ B( ILO, ILO+NS ), LDB, ZERO, WORK, SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ILO, + $ ILO+NS ), LDB ) + END IF + IF ( ILQ ) THEN + CALL SGEMM( 'N', 'N', N, SHEIGHT, SHEIGHT, ONE, Q( 1, ILO ), + $ LDQ, QC, LDQC, ZERO, WORK, N ) + CALL SLACPY( 'ALL', N, SHEIGHT, WORK, N, Q( 1, ILO ), LDQ ) + END IF + +* Update A(istartm:ilo-1,ilo:ilo+ns-1) and B(istartm:ilo-1,ilo:ilo+ns-1) +* from the right with Zc(1:ns,1:ns) + SHEIGHT = ILO-1-ISTARTM+1 + SWIDTH = NS + IF ( SHEIGHT > 0 ) THEN + CALL SGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, A( ISTARTM, + $ ILO ), LDA, ZC, LDZC, ZERO, WORK, SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ISTARTM, + $ ILO ), LDA ) + CALL SGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, B( ISTARTM, + $ ILO ), LDB, ZC, LDZC, ZERO, WORK, SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ISTARTM, + $ ILO ), LDB ) + END IF + IF ( ILZ ) THEN + CALL SGEMM( 'N', 'N', N, SWIDTH, SWIDTH, ONE, Z( 1, ILO ), LDZ, + $ ZC, LDZC, ZERO, WORK, N ) + CALL SLACPY( 'ALL', N, SWIDTH, WORK, N, Z( 1, ILO ), LDZ ) + END IF + +* The following block chases the shifts down to the bottom +* right block. If possible, a shift is moved down npos +* positions at a time + + K = ILO + DO WHILE ( K < IHI-NS ) + NP = MIN( IHI-NS-K, NPOS ) +* Size of the near-the-diagonal block + NBLOCK = NS+NP +* istartb points to the first row we will be updating + ISTARTB = K+1 +* istopb points to the last column we will be updating + ISTOPB = K+NBLOCK-1 + + CALL SLASET( 'FULL', NS+NP, NS+NP, ZERO, ONE, QC, LDQC ) + CALL SLASET( 'FULL', NS+NP, NS+NP, ZERO, ONE, ZC, LDZC ) + +* Near the diagonal shift chase + DO I = NS-1, 0, -2 + DO J = 0, NP-1 +* Move down the block with index k+i+j-1, updating +* the (ns+np x ns+np) block: +* (k:k+ns+np,k:k+ns+np-1) + CALL SLAQZ2( .TRUE., .TRUE., K+I+J-1, ISTARTB, ISTOPB, + $ IHI, A, LDA, B, LDB, NBLOCK, K+1, QC, LDQC, + $ NBLOCK, K, ZC, LDZC ) + END DO + END DO + +* Update rest of the pencil + +* Update A(k+1:k+ns+np, k+ns+np:istopm) and +* B(k+1:k+ns+np, k+ns+np:istopm) +* from the left with Qc(1:ns+np,1:ns+np)' + SHEIGHT = NS+NP + SWIDTH = ISTOPM-( K+NS+NP )+1 + IF ( SWIDTH > 0 ) THEN + CALL SGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, + $ LDQC, A( K+1, K+NS+NP ), LDA, ZERO, WORK, + $ SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( K+1, + $ K+NS+NP ), LDA ) + CALL SGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, + $ LDQC, B( K+1, K+NS+NP ), LDB, ZERO, WORK, + $ SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( K+1, + $ K+NS+NP ), LDB ) + END IF + IF ( ILQ ) THEN + CALL SGEMM( 'N', 'N', N, NBLOCK, NBLOCK, ONE, Q( 1, K+1 ), + $ LDQ, QC, LDQC, ZERO, WORK, N ) + CALL SLACPY( 'ALL', N, NBLOCK, WORK, N, Q( 1, K+1 ), LDQ ) + END IF + +* Update A(istartm:k,k:k+ns+npos-1) and B(istartm:k,k:k+ns+npos-1) +* from the right with Zc(1:ns+np,1:ns+np) + SHEIGHT = K-ISTARTM+1 + SWIDTH = NBLOCK + IF ( SHEIGHT > 0 ) THEN + CALL SGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, + $ A( ISTARTM, K ), LDA, ZC, LDZC, ZERO, WORK, + $ SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ A( ISTARTM, K ), LDA ) + CALL SGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, + $ B( ISTARTM, K ), LDB, ZC, LDZC, ZERO, WORK, + $ SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ B( ISTARTM, K ), LDB ) + END IF + IF ( ILZ ) THEN + CALL SGEMM( 'N', 'N', N, NBLOCK, NBLOCK, ONE, Z( 1, K ), + $ LDZ, ZC, LDZC, ZERO, WORK, N ) + CALL SLACPY( 'ALL', N, NBLOCK, WORK, N, Z( 1, K ), LDZ ) + END IF + + K = K+NP + + END DO + +* The following block removes the shifts from the bottom right corner +* one by one. Updates are initially applied to A(ihi-ns+1:ihi,ihi-ns:ihi). + + CALL SLASET( 'FULL', NS, NS, ZERO, ONE, QC, LDQC ) + CALL SLASET( 'FULL', NS+1, NS+1, ZERO, ONE, ZC, LDZC ) + +* istartb points to the first row we will be updating + ISTARTB = IHI-NS+1 +* istopb points to the last column we will be updating + ISTOPB = IHI + + DO I = 1, NS, 2 +* Chase the shift down to the bottom right corner + DO ISHIFT = IHI-I-1, IHI-2 + CALL SLAQZ2( .TRUE., .TRUE., ISHIFT, ISTARTB, ISTOPB, IHI, + $ A, LDA, B, LDB, NS, IHI-NS+1, QC, LDQC, NS+1, + $ IHI-NS, ZC, LDZC ) + END DO + + END DO + +* Update rest of the pencil + +* Update A(ihi-ns+1:ihi, ihi+1:istopm) +* from the left with Qc(1:ns,1:ns)' + SHEIGHT = NS + SWIDTH = ISTOPM-( IHI+1 )+1 + IF ( SWIDTH > 0 ) THEN + CALL SGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, LDQC, + $ A( IHI-NS+1, IHI+1 ), LDA, ZERO, WORK, SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ A( IHI-NS+1, IHI+1 ), LDA ) + CALL SGEMM( 'T', 'N', SHEIGHT, SWIDTH, SHEIGHT, ONE, QC, LDQC, + $ B( IHI-NS+1, IHI+1 ), LDB, ZERO, WORK, SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ B( IHI-NS+1, IHI+1 ), LDB ) + END IF + IF ( ILQ ) THEN + CALL SGEMM( 'N', 'N', N, NS, NS, ONE, Q( 1, IHI-NS+1 ), LDQ, + $ QC, LDQC, ZERO, WORK, N ) + CALL SLACPY( 'ALL', N, NS, WORK, N, Q( 1, IHI-NS+1 ), LDQ ) + END IF + +* Update A(istartm:ihi-ns,ihi-ns:ihi) +* from the right with Zc(1:ns+1,1:ns+1) + SHEIGHT = IHI-NS-ISTARTM+1 + SWIDTH = NS+1 + IF ( SHEIGHT > 0 ) THEN + CALL SGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, A( ISTARTM, + $ IHI-NS ), LDA, ZC, LDZC, ZERO, WORK, SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ISTARTM, + $ IHI-NS ), LDA ) + CALL SGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, ONE, B( ISTARTM, + $ IHI-NS ), LDB, ZC, LDZC, ZERO, WORK, SHEIGHT ) + CALL SLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ISTARTM, + $ IHI-NS ), LDB ) + END IF + IF ( ILZ ) THEN + CALL SGEMM( 'N', 'N', N, NS+1, NS+1, ONE, Z( 1, IHI-NS ), LDZ, ZC, + $ LDZC, ZERO, WORK, N ) + CALL SLACPY( 'ALL', N, NS+1, WORK, N, Z( 1, IHI-NS ), LDZ ) + END IF + + END SUBROUTINE diff --git a/lapack-netlib/SRC/slar1v.f b/lapack-netlib/SRC/slar1v.f index d2423287c..36c2d8e9d 100644 --- a/lapack-netlib/SRC/slar1v.f +++ b/lapack-netlib/SRC/slar1v.f @@ -212,8 +212,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -230,10 +228,9 @@ $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL WANTNC diff --git a/lapack-netlib/SRC/slar2v.f b/lapack-netlib/SRC/slar2v.f index 583f2e689..ae5eb2e25 100644 --- a/lapack-netlib/SRC/slar2v.f +++ b/lapack-netlib/SRC/slar2v.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAR2V( N, X, Y, Z, INCX, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, N diff --git a/lapack-netlib/SRC/slarf.f b/lapack-netlib/SRC/slarf.f index d66c7bf39..497dad760 100644 --- a/lapack-netlib/SRC/slarf.f +++ b/lapack-netlib/SRC/slarf.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/slarfb.f b/lapack-netlib/SRC/slarfb.f index d853a54ec..a065e4e25 100644 --- a/lapack-netlib/SRC/slarfb.f +++ b/lapack-netlib/SRC/slarfb.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2013 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -197,10 +195,9 @@ SUBROUTINE SLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, $ T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2013 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/slarfg.f b/lapack-netlib/SRC/slarfg.f index a528ce39c..35d72389d 100644 --- a/lapack-netlib/SRC/slarfg.f +++ b/lapack-netlib/SRC/slarfg.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/slarfgp.f b/lapack-netlib/SRC/slarfgp.f index 6a4c08476..df42980c4 100644 --- a/lapack-netlib/SRC/slarfgp.f +++ b/lapack-netlib/SRC/slarfgp.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARFGP( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/slarft.f b/lapack-netlib/SRC/slarft.f index 05ee8b2ef..9cfe0ad3f 100644 --- a/lapack-netlib/SRC/slarft.f +++ b/lapack-netlib/SRC/slarft.f @@ -130,8 +130,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -163,10 +161,9 @@ * ===================================================================== SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/lapack-netlib/SRC/slarfx.f b/lapack-netlib/SRC/slarfx.f index 3175068b8..4f820331d 100644 --- a/lapack-netlib/SRC/slarfx.f +++ b/lapack-netlib/SRC/slarfx.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/slarfy.f b/lapack-netlib/SRC/slarfy.f index f9ba011a2..39ba4d977 100644 --- a/lapack-netlib/SRC/slarfy.f +++ b/lapack-netlib/SRC/slarfy.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/slargv.f b/lapack-netlib/SRC/slargv.f index 694eccc49..e2572126e 100644 --- a/lapack-netlib/SRC/slargv.f +++ b/lapack-netlib/SRC/slargv.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARGV( N, X, INCX, Y, INCY, C, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/lapack-netlib/SRC/slarnv.f b/lapack-netlib/SRC/slarnv.f index 44fdeb93b..8b927fbdb 100644 --- a/lapack-netlib/SRC/slarnv.f +++ b/lapack-netlib/SRC/slarnv.f @@ -79,8 +79,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -97,10 +95,9 @@ * ===================================================================== SUBROUTINE SLARNV( IDIST, ISEED, N, X ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, N @@ -118,7 +115,7 @@ INTEGER LV PARAMETER ( LV = 128 ) REAL TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) * .. * .. Local Scalars .. INTEGER I, IL, IL2, IV diff --git a/lapack-netlib/SRC/slarra.f b/lapack-netlib/SRC/slarra.f index 0456263a6..be81b0f69 100644 --- a/lapack-netlib/SRC/slarra.f +++ b/lapack-netlib/SRC/slarra.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -136,10 +134,9 @@ SUBROUTINE SLARRA( N, D, E, E2, SPLTOL, TNRM, $ NSPLIT, ISPLIT, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, N, NSPLIT diff --git a/lapack-netlib/SRC/slarrb.f b/lapack-netlib/SRC/slarrb.f index ac9d7bc8c..cf670dad9 100644 --- a/lapack-netlib/SRC/slarrb.f +++ b/lapack-netlib/SRC/slarrb.f @@ -178,8 +178,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -196,10 +194,9 @@ $ RTOL2, OFFSET, W, WGAP, WERR, WORK, IWORK, $ PIVMIN, SPDIAM, TWIST, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IFIRST, ILAST, INFO, N, OFFSET, TWIST diff --git a/lapack-netlib/SRC/slarrc.f b/lapack-netlib/SRC/slarrc.f index f0c033514..060051539 100644 --- a/lapack-netlib/SRC/slarrc.f +++ b/lapack-netlib/SRC/slarrc.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -137,10 +135,9 @@ SUBROUTINE SLARRC( JOBT, N, VL, VU, D, E, PIVMIN, $ EIGCNT, LCNT, RCNT, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBT @@ -246,6 +243,6 @@ RETURN * -* end of SLARRC +* End of SLARRC * END diff --git a/lapack-netlib/SRC/slarrd.f b/lapack-netlib/SRC/slarrd.f index 7a7ec0abb..7df8e95fc 100644 --- a/lapack-netlib/SRC/slarrd.f +++ b/lapack-netlib/SRC/slarrd.f @@ -319,8 +319,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== @@ -329,10 +327,9 @@ $ M, W, WERR, WL, WU, IBLOCK, INDEXW, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER ORDER, RANGE diff --git a/lapack-netlib/SRC/slarre.f b/lapack-netlib/SRC/slarre.f index 6636235d0..34dd71fd9 100644 --- a/lapack-netlib/SRC/slarre.f +++ b/lapack-netlib/SRC/slarre.f @@ -276,8 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -305,10 +303,9 @@ $ W, WERR, WGAP, IBLOCK, INDEXW, GERS, PIVMIN, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER RANGE @@ -903,6 +900,6 @@ RETURN * -* end of SLARRE +* End of SLARRE * END diff --git a/lapack-netlib/SRC/slarrf.f b/lapack-netlib/SRC/slarrf.f index 8c8de52fe..3a6bea32d 100644 --- a/lapack-netlib/SRC/slarrf.f +++ b/lapack-netlib/SRC/slarrf.f @@ -174,8 +174,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -193,10 +191,9 @@ $ SPDIAM, CLGAPL, CLGAPR, PIVMIN, SIGMA, $ DPLUS, LPLUS, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER CLSTRT, CLEND, INFO, N diff --git a/lapack-netlib/SRC/slarrj.f b/lapack-netlib/SRC/slarrj.f index fb867595c..d56e62c1d 100644 --- a/lapack-netlib/SRC/slarrj.f +++ b/lapack-netlib/SRC/slarrj.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -168,10 +166,9 @@ $ RTOL, OFFSET, W, WERR, WORK, IWORK, $ PIVMIN, SPDIAM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IFIRST, ILAST, INFO, N, OFFSET diff --git a/lapack-netlib/SRC/slarrk.f b/lapack-netlib/SRC/slarrk.f index f39f074db..e553d8452 100644 --- a/lapack-netlib/SRC/slarrk.f +++ b/lapack-netlib/SRC/slarrk.f @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE SLARRK( N, IW, GL, GU, $ D, E2, PIVMIN, RELTOL, W, WERR, INFO) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, IW, N diff --git a/lapack-netlib/SRC/slarrr.f b/lapack-netlib/SRC/slarrr.f index 3f77d3888..d18465bc8 100644 --- a/lapack-netlib/SRC/slarrr.f +++ b/lapack-netlib/SRC/slarrr.f @@ -78,8 +78,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -94,10 +92,9 @@ * ===================================================================== SUBROUTINE SLARRR( N, D, E, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER N, INFO @@ -206,6 +203,6 @@ * RETURN * -* END OF SLARRR +* End of SLARRR * END diff --git a/lapack-netlib/SRC/slarrv.f b/lapack-netlib/SRC/slarrv.f index 9448b2fd9..95f94fd1b 100644 --- a/lapack-netlib/SRC/slarrv.f +++ b/lapack-netlib/SRC/slarrv.f @@ -272,8 +272,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERauxiliary * *> \par Contributors: @@ -292,10 +290,9 @@ $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER DOL, DOU, INFO, LDZ, M, N diff --git a/lapack-netlib/SRC/slarscl2.f b/lapack-netlib/SRC/slarscl2.f index 5f57d3371..5726f12cd 100644 --- a/lapack-netlib/SRC/slarscl2.f +++ b/lapack-netlib/SRC/slarscl2.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SLARSCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/lapack-netlib/SRC/slartg.f b/lapack-netlib/SRC/slartg.f deleted file mode 100644 index 307c9c83a..000000000 --- a/lapack-netlib/SRC/slartg.f +++ /dev/null @@ -1,204 +0,0 @@ -*> \brief \b SLARTG generates a plane rotation with real cosine and real sine. -* -* =========== DOCUMENTATION =========== -* -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ -* -*> \htmlonly -*> Download SLARTG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> -*> [TXT] -*> \endhtmlonly -* -* Definition: -* =========== -* -* SUBROUTINE SLARTG( F, G, CS, SN, R ) -* -* .. Scalar Arguments .. -* REAL CS, F, G, R, SN -* .. -* -* -*> \par Purpose: -* ============= -*> -*> \verbatim -*> -*> SLARTG generate a plane rotation so that -*> -*> [ CS SN ] . [ F ] = [ R ] where CS**2 + SN**2 = 1. -*> [ -SN CS ] [ G ] [ 0 ] -*> -*> This is a slower, more accurate version of the BLAS1 routine SROTG, -*> with the following other differences: -*> F and G are unchanged on return. -*> If G=0, then CS=1 and SN=0. -*> If F=0 and (G .ne. 0), then CS=0 and SN=1 without doing any -*> floating point operations (saves work in SBDSQR when -*> there are zeros on the diagonal). -*> -*> If F exceeds G in magnitude, CS will be positive. -*> \endverbatim -* -* Arguments: -* ========== -* -*> \param[in] F -*> \verbatim -*> F is REAL -*> The first component of vector to be rotated. -*> \endverbatim -*> -*> \param[in] G -*> \verbatim -*> G is REAL -*> The second component of vector to be rotated. -*> \endverbatim -*> -*> \param[out] CS -*> \verbatim -*> CS is REAL -*> The cosine of the rotation. -*> \endverbatim -*> -*> \param[out] SN -*> \verbatim -*> SN is REAL -*> The sine of the rotation. -*> \endverbatim -*> -*> \param[out] R -*> \verbatim -*> R is REAL -*> The nonzero component of the rotated vector. -*> -*> This version has a few statements commented out for thread safety -*> (machine parameters are computed on each entry). 10 feb 03, SJH. -*> \endverbatim -* -* Authors: -* ======== -* -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. -* -*> \date December 2016 -* -*> \ingroup OTHERauxiliary -* -* ===================================================================== - SUBROUTINE SLARTG( F, G, CS, SN, R ) -* -* -- LAPACK auxiliary routine (version 3.7.0) -- -* -- LAPACK is a software package provided by Univ. of Tennessee, -- -* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 -* -* .. Scalar Arguments .. - REAL CS, F, G, R, SN -* .. -* -* ===================================================================== -* -* .. Parameters .. - REAL ZERO - PARAMETER ( ZERO = 0.0E0 ) - REAL ONE - PARAMETER ( ONE = 1.0E0 ) - REAL TWO - PARAMETER ( TWO = 2.0E0 ) -* .. -* .. Local Scalars .. -* LOGICAL FIRST - INTEGER COUNT, I - REAL EPS, F1, G1, SAFMIN, SAFMN2, SAFMX2, SCALE -* .. -* .. External Functions .. - REAL SLAMCH - EXTERNAL SLAMCH -* .. -* .. Intrinsic Functions .. - INTRINSIC ABS, INT, LOG, MAX, SQRT -* .. -* .. Save statement .. -* SAVE FIRST, SAFMX2, SAFMIN, SAFMN2 -* .. -* .. Data statements .. -* DATA FIRST / .TRUE. / -* .. -* .. Executable Statements .. -* -* IF( FIRST ) THEN - SAFMIN = SLAMCH( 'S' ) - EPS = SLAMCH( 'E' ) - SAFMN2 = SLAMCH( 'B' )**INT( LOG( SAFMIN / EPS ) / - $ LOG( SLAMCH( 'B' ) ) / TWO ) - SAFMX2 = ONE / SAFMN2 -* FIRST = .FALSE. -* END IF - IF( G.EQ.ZERO ) THEN - CS = ONE - SN = ZERO - R = F - ELSE IF( F.EQ.ZERO ) THEN - CS = ZERO - SN = ONE - R = G - ELSE - F1 = F - G1 = G - SCALE = MAX( ABS( F1 ), ABS( G1 ) ) - IF( SCALE.GE.SAFMX2 ) THEN - COUNT = 0 - 10 CONTINUE - COUNT = COUNT + 1 - F1 = F1*SAFMN2 - G1 = G1*SAFMN2 - SCALE = MAX( ABS( F1 ), ABS( G1 ) ) - IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20) - $ GO TO 10 - R = SQRT( F1**2+G1**2 ) - CS = F1 / R - SN = G1 / R - DO 20 I = 1, COUNT - R = R*SAFMX2 - 20 CONTINUE - ELSE IF( SCALE.LE.SAFMN2 ) THEN - COUNT = 0 - 30 CONTINUE - COUNT = COUNT + 1 - F1 = F1*SAFMX2 - G1 = G1*SAFMX2 - SCALE = MAX( ABS( F1 ), ABS( G1 ) ) - IF( SCALE.LE.SAFMN2 ) - $ GO TO 30 - R = SQRT( F1**2+G1**2 ) - CS = F1 / R - SN = G1 / R - DO 40 I = 1, COUNT - R = R*SAFMN2 - 40 CONTINUE - ELSE - R = SQRT( F1**2+G1**2 ) - CS = F1 / R - SN = G1 / R - END IF - IF( ABS( F ).GT.ABS( G ) .AND. CS.LT.ZERO ) THEN - CS = -CS - SN = -SN - R = -R - END IF - END IF - RETURN -* -* End of SLARTG -* - END diff --git a/lapack-netlib/SRC/slartg.f90 b/lapack-netlib/SRC/slartg.f90 new file mode 100644 index 000000000..a9af1aa8d --- /dev/null +++ b/lapack-netlib/SRC/slartg.f90 @@ -0,0 +1,162 @@ +!> \brief \b SLARTG generates a plane rotation with real cosine and real sine. +! +! =========== DOCUMENTATION =========== +! +! Online html documentation available at +! http://www.netlib.org/lapack/explore-html/ +! +! Definition: +! =========== +! +! SUBROUTINE SLARTG( F, G, C, S, R ) +! +! .. Scalar Arguments .. +! REAL(wp) C, F, G, R, S +! .. +! +!> \par Purpose: +! ============= +!> +!> \verbatim +!> +!> SLARTG generates a plane rotation so that +!> +!> [ C S ] . [ F ] = [ R ] +!> [ -S C ] [ G ] [ 0 ] +!> +!> where C**2 + S**2 = 1. +!> +!> The mathematical formulas used for C and S are +!> R = sign(F) * sqrt(F**2 + G**2) +!> C = F / R +!> S = G / R +!> Hence C >= 0. The algorithm used to compute these quantities +!> incorporates scaling to avoid overflow or underflow in computing the +!> square root of the sum of squares. +!> +!> This version is discontinuous in R at F = 0 but it returns the same +!> C and S as SLARTG for complex inputs (F,0) and (G,0). +!> +!> This is a more accurate version of the BLAS1 routine SROTG, +!> with the following other differences: +!> F and G are unchanged on return. +!> If G=0, then C=1 and S=0. +!> If F=0 and (G .ne. 0), then C=0 and S=sign(1,G) without doing any +!> floating point operations (saves work in SBDSQR when +!> there are zeros on the diagonal). +!> +!> If F exceeds G in magnitude, C will be positive. +!> +!> Below, wp=>sp stands for single precision from LA_CONSTANTS module. +!> \endverbatim +! +! Arguments: +! ========== +! +!> \param[in] F +!> \verbatim +!> F is REAL(wp) +!> The first component of vector to be rotated. +!> \endverbatim +!> +!> \param[in] G +!> \verbatim +!> G is REAL(wp) +!> The second component of vector to be rotated. +!> \endverbatim +!> +!> \param[out] C +!> \verbatim +!> C is REAL(wp) +!> The cosine of the rotation. +!> \endverbatim +!> +!> \param[out] S +!> \verbatim +!> S is REAL(wp) +!> The sine of the rotation. +!> \endverbatim +!> +!> \param[out] R +!> \verbatim +!> R is REAL(wp) +!> The nonzero component of the rotated vector. +!> \endverbatim +! +! Authors: +! ======== +! +!> \author Edward Anderson, Lockheed Martin +! +!> \date July 2016 +! +!> \ingroup OTHERauxiliary +! +!> \par Contributors: +! ================== +!> +!> Weslley Pereira, University of Colorado Denver, USA +! +!> \par Further Details: +! ===================== +!> +!> \verbatim +!> +!> Anderson E. (2017) +!> Algorithm 978: Safe Scaling in the Level 1 BLAS +!> ACM Trans Math Softw 44:1--28 +!> https://doi.org/10.1145/3061665 +!> +!> \endverbatim +! +subroutine SLARTG( f, g, c, s, r ) + use LA_CONSTANTS, & + only: wp=>sp, zero=>szero, half=>shalf, one=>sone, & + rtmin=>srtmin, rtmax=>srtmax, safmin=>ssafmin, safmax=>ssafmax +! +! -- LAPACK auxiliary routine -- +! -- LAPACK is a software package provided by Univ. of Tennessee, -- +! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +! February 2021 +! +! .. Scalar Arguments .. + real(wp) :: c, f, g, r, s +! .. +! .. Local Scalars .. + real(wp) :: d, f1, fs, g1, gs, p, u, uu +! .. +! .. Intrinsic Functions .. + intrinsic :: abs, sign, sqrt +! .. +! .. Executable Statements .. +! + f1 = abs( f ) + g1 = abs( g ) + if( g == zero ) then + c = one + s = zero + r = f + else if( f == zero ) then + c = zero + s = sign( one, g ) + r = g1 + else if( f1 > rtmin .and. f1 < rtmax .and. & + g1 > rtmin .and. g1 < rtmax ) then + d = sqrt( f*f + g*g ) + p = one / d + c = f1*p + s = g*sign( p, f ) + r = sign( d, f ) + else + u = min( safmax, max( safmin, f1, g1 ) ) + uu = one / u + fs = f*uu + gs = g*uu + d = sqrt( fs*fs + gs*gs ) + p = one / d + c = abs( fs )*p + s = gs*sign( p, f ) + r = sign( d, f )*u + end if + return +end subroutine diff --git a/lapack-netlib/SRC/slartgp.f b/lapack-netlib/SRC/slartgp.f index f8be5f52b..8d98db419 100644 --- a/lapack-netlib/SRC/slartgp.f +++ b/lapack-netlib/SRC/slartgp.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE SLARTGP( F, G, CS, SN, R ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL CS, F, G, R, SN @@ -197,6 +194,6 @@ END IF RETURN * -* End of SLARTG +* End of SLARTGP * END diff --git a/lapack-netlib/SRC/slartgs.f b/lapack-netlib/SRC/slartgs.f index 59a2182ca..dfc1a25c8 100644 --- a/lapack-netlib/SRC/slartgs.f +++ b/lapack-netlib/SRC/slartgs.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLARTGS( X, Y, SIGMA, CS, SN ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. REAL CS, SIGMA, SN, X, Y diff --git a/lapack-netlib/SRC/slartv.f b/lapack-netlib/SRC/slartv.f index 4cdb93dbe..200e60880 100644 --- a/lapack-netlib/SRC/slartv.f +++ b/lapack-netlib/SRC/slartv.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLARTV( N, X, INCX, Y, INCY, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/lapack-netlib/SRC/slaruv.f b/lapack-netlib/SRC/slaruv.f index ed8420017..c25dc2e2f 100644 --- a/lapack-netlib/SRC/slaruv.f +++ b/lapack-netlib/SRC/slaruv.f @@ -72,8 +72,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -95,10 +93,9 @@ * ===================================================================== SUBROUTINE SLARUV( ISEED, N, X ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N diff --git a/lapack-netlib/SRC/slarz.f b/lapack-netlib/SRC/slarz.f index 9c9d83116..549a10fb1 100644 --- a/lapack-netlib/SRC/slarz.f +++ b/lapack-netlib/SRC/slarz.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -145,10 +143,9 @@ * ===================================================================== SUBROUTINE SLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/slarzb.f b/lapack-netlib/SRC/slarzb.f index 3e5aab6c3..93154c4c9 100644 --- a/lapack-netlib/SRC/slarzb.f +++ b/lapack-netlib/SRC/slarzb.f @@ -164,8 +164,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -183,10 +181,9 @@ SUBROUTINE SLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/slarzt.f b/lapack-netlib/SRC/slarzt.f index d6428d097..fc3e8175c 100644 --- a/lapack-netlib/SRC/slarzt.f +++ b/lapack-netlib/SRC/slarzt.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -185,10 +183,9 @@ * ===================================================================== SUBROUTINE SLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/lapack-netlib/SRC/slas2.f b/lapack-netlib/SRC/slas2.f index 906c8bd51..6ae86204c 100644 --- a/lapack-netlib/SRC/slas2.f +++ b/lapack-netlib/SRC/slas2.f @@ -78,8 +78,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -107,10 +105,9 @@ * ===================================================================== SUBROUTINE SLAS2( F, G, H, SSMIN, SSMAX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL F, G, H, SSMAX, SSMIN diff --git a/lapack-netlib/SRC/slascl.f b/lapack-netlib/SRC/slascl.f index d3257147d..e1cb420ea 100644 --- a/lapack-netlib/SRC/slascl.f +++ b/lapack-netlib/SRC/slascl.f @@ -136,17 +136,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE SLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER TYPE diff --git a/lapack-netlib/SRC/slascl2.f b/lapack-netlib/SRC/slascl2.f index dbe7783c9..07b506a8c 100644 --- a/lapack-netlib/SRC/slascl2.f +++ b/lapack-netlib/SRC/slascl2.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SLASCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/lapack-netlib/SRC/slasd0.f b/lapack-netlib/SRC/slasd0.f index 3b8754427..a45f741a9 100644 --- a/lapack-netlib/SRC/slasd0.f +++ b/lapack-netlib/SRC/slasd0.f @@ -136,8 +136,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -150,10 +148,9 @@ SUBROUTINE SLASD0( N, SQRE, D, E, U, LDU, VT, LDVT, SMLSIZ, IWORK, $ WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDU, LDVT, N, SMLSIZ, SQRE diff --git a/lapack-netlib/SRC/slasd1.f b/lapack-netlib/SRC/slasd1.f index be93870e2..8e4460aaa 100644 --- a/lapack-netlib/SRC/slasd1.f +++ b/lapack-netlib/SRC/slasd1.f @@ -190,8 +190,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -204,10 +202,9 @@ SUBROUTINE SLASD1( NL, NR, SQRE, D, ALPHA, BETA, U, LDU, VT, LDVT, $ IDXQ, IWORK, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDU, LDVT, NL, NR, SQRE diff --git a/lapack-netlib/SRC/slasd2.f b/lapack-netlib/SRC/slasd2.f index 5f414f105..1902242c7 100644 --- a/lapack-netlib/SRC/slasd2.f +++ b/lapack-netlib/SRC/slasd2.f @@ -254,8 +254,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -269,10 +267,9 @@ $ LDVT, DSIGMA, U2, LDU2, VT2, LDVT2, IDXP, IDX, $ IDXC, IDXQ, COLTYP, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDU, LDU2, LDVT, LDVT2, NL, NR, SQRE diff --git a/lapack-netlib/SRC/slasd3.f b/lapack-netlib/SRC/slasd3.f index add92f354..f9420f88a 100644 --- a/lapack-netlib/SRC/slasd3.f +++ b/lapack-netlib/SRC/slasd3.f @@ -209,8 +209,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -224,10 +222,9 @@ $ LDU2, VT, LDVT, VT2, LDVT2, IDXC, CTOT, Z, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, K, LDQ, LDU, LDU2, LDVT, LDVT2, NL, NR, diff --git a/lapack-netlib/SRC/slasd4.f b/lapack-netlib/SRC/slasd4.f index 31d5f7f6c..f949094f5 100644 --- a/lapack-netlib/SRC/slasd4.f +++ b/lapack-netlib/SRC/slasd4.f @@ -140,8 +140,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -153,10 +151,9 @@ * ===================================================================== SUBROUTINE SLASD4( N, I, D, Z, DELTA, RHO, SIGMA, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I, INFO, N diff --git a/lapack-netlib/SRC/slasd5.f b/lapack-netlib/SRC/slasd5.f index a362b86c7..9a0a07710 100644 --- a/lapack-netlib/SRC/slasd5.f +++ b/lapack-netlib/SRC/slasd5.f @@ -103,8 +103,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -116,10 +114,9 @@ * ===================================================================== SUBROUTINE SLASD5( I, D, Z, DELTA, RHO, DSIGMA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I diff --git a/lapack-netlib/SRC/slasd6.f b/lapack-netlib/SRC/slasd6.f index ae37de00f..f4cbeb25d 100644 --- a/lapack-netlib/SRC/slasd6.f +++ b/lapack-netlib/SRC/slasd6.f @@ -297,8 +297,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -313,10 +311,9 @@ $ LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK, $ IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, diff --git a/lapack-netlib/SRC/slasd7.f b/lapack-netlib/SRC/slasd7.f index d8775b6c6..efd1f59d0 100644 --- a/lapack-netlib/SRC/slasd7.f +++ b/lapack-netlib/SRC/slasd7.f @@ -264,8 +264,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -280,10 +278,9 @@ $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ C, S, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL, diff --git a/lapack-netlib/SRC/slasd8.f b/lapack-netlib/SRC/slasd8.f index 1d1d5cdb8..43b171e5f 100644 --- a/lapack-netlib/SRC/slasd8.f +++ b/lapack-netlib/SRC/slasd8.f @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -166,10 +164,9 @@ SUBROUTINE SLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDDIFR, $ DSIGMA, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, K, LDDIFR diff --git a/lapack-netlib/SRC/slasda.f b/lapack-netlib/SRC/slasda.f index 6e02260f8..20f01ee48 100644 --- a/lapack-netlib/SRC/slasda.f +++ b/lapack-netlib/SRC/slasda.f @@ -258,8 +258,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -273,10 +271,9 @@ $ DIFL, DIFR, Z, POLES, GIVPTR, GIVCOL, LDGCOL, $ PERM, GIVNUM, C, S, WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDGCOL, LDU, N, SMLSIZ, SQRE diff --git a/lapack-netlib/SRC/slasdq.f b/lapack-netlib/SRC/slasdq.f index 434d373ba..856142200 100644 --- a/lapack-netlib/SRC/slasdq.f +++ b/lapack-netlib/SRC/slasdq.f @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -211,10 +209,9 @@ SUBROUTINE SLASDQ( UPLO, SQRE, N, NCVT, NRU, NCC, D, E, VT, LDVT, $ U, LDU, C, LDC, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/slasdt.f b/lapack-netlib/SRC/slasdt.f index fe5aaa642..412547268 100644 --- a/lapack-netlib/SRC/slasdt.f +++ b/lapack-netlib/SRC/slasdt.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Contributors: @@ -105,10 +103,9 @@ * ===================================================================== SUBROUTINE SLASDT( N, LVL, ND, INODE, NDIML, NDIMR, MSUB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LVL, MSUB, N, ND diff --git a/lapack-netlib/SRC/slaset.f b/lapack-netlib/SRC/slaset.f index 3a87e086b..c43757e01 100644 --- a/lapack-netlib/SRC/slaset.f +++ b/lapack-netlib/SRC/slaset.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE SLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/slasq1.f b/lapack-netlib/SRC/slasq1.f index 458aecea6..1ba7a8aae 100644 --- a/lapack-netlib/SRC/slasq1.f +++ b/lapack-netlib/SRC/slasq1.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLASQ1( N, D, E, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/slasq2.f b/lapack-netlib/SRC/slasq2.f index c0c71b82e..c7909d83b 100644 --- a/lapack-netlib/SRC/slasq2.f +++ b/lapack-netlib/SRC/slasq2.f @@ -95,8 +95,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Further Details: @@ -112,10 +110,9 @@ * ===================================================================== SUBROUTINE SLASQ2( N, Z, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N @@ -274,8 +271,7 @@ * * 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 +* IEEE = ( ILAENV( 10, '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. diff --git a/lapack-netlib/SRC/slasq3.f b/lapack-netlib/SRC/slasq3.f index 4bc06475e..cd86ce896 100644 --- a/lapack-netlib/SRC/slasq3.f +++ b/lapack-netlib/SRC/slasq3.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== @@ -182,10 +180,9 @@ $ ITER, NDIV, IEEE, TTYPE, DMIN1, DMIN2, DN, DN1, $ DN2, G, TAU ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL IEEE diff --git a/lapack-netlib/SRC/slasq4.f b/lapack-netlib/SRC/slasq4.f index 99317831c..68a840fcc 100644 --- a/lapack-netlib/SRC/slasq4.f +++ b/lapack-netlib/SRC/slasq4.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * *> \par Further Details: @@ -151,10 +149,9 @@ SUBROUTINE SLASQ4( I0, N0, Z, PP, N0IN, DMIN, DMIN1, DMIN2, DN, $ DN1, DN2, TAU, TTYPE, G ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER I0, N0, N0IN, PP, TTYPE diff --git a/lapack-netlib/SRC/slasq5.f b/lapack-netlib/SRC/slasq5.f index 967e0a846..d94b3cd8a 100644 --- a/lapack-netlib/SRC/slasq5.f +++ b/lapack-netlib/SRC/slasq5.f @@ -136,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLASQ5( I0, N0, Z, PP, TAU, SIGMA, DMIN, DMIN1, DMIN2, $ DN, DNM1, DNM2, IEEE, EPS ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL IEEE diff --git a/lapack-netlib/SRC/slasq6.f b/lapack-netlib/SRC/slasq6.f index afb9b81ef..5e3df7b14 100644 --- a/lapack-netlib/SRC/slasq6.f +++ b/lapack-netlib/SRC/slasq6.f @@ -111,18 +111,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLASQ6( I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, $ DNM1, DNM2 ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER I0, N0, PP diff --git a/lapack-netlib/SRC/slasr.f b/lapack-netlib/SRC/slasr.f index 6e1833789..adcea12c9 100644 --- a/lapack-netlib/SRC/slasr.f +++ b/lapack-netlib/SRC/slasr.f @@ -192,17 +192,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE SLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, PIVOT, SIDE diff --git a/lapack-netlib/SRC/slasrt.f b/lapack-netlib/SRC/slasrt.f index ef6aa4df7..132e03db6 100644 --- a/lapack-netlib/SRC/slasrt.f +++ b/lapack-netlib/SRC/slasrt.f @@ -81,17 +81,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SLASRT( ID, N, D, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER ID diff --git a/lapack-netlib/SRC/slassq.f b/lapack-netlib/SRC/slassq.f deleted file mode 100644 index d9930a597..000000000 --- a/lapack-netlib/SRC/slassq.f +++ /dev/null @@ -1,155 +0,0 @@ -*> \brief \b SLASSQ updates a sum of squares represented in scaled form. -* -* =========== DOCUMENTATION =========== -* -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ -* -*> \htmlonly -*> Download SLASSQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> -*> [TXT] -*> \endhtmlonly -* -* Definition: -* =========== -* -* SUBROUTINE SLASSQ( N, X, INCX, SCALE, SUMSQ ) -* -* .. Scalar Arguments .. -* INTEGER INCX, N -* REAL SCALE, SUMSQ -* .. -* .. Array Arguments .. -* REAL X( * ) -* .. -* -* -*> \par Purpose: -* ============= -*> -*> \verbatim -*> -*> SLASSQ returns the values scl and smsq such that -*> -*> ( scl**2 )*smsq = x( 1 )**2 +...+ x( n )**2 + ( scale**2 )*sumsq, -*> -*> where x( i ) = X( 1 + ( i - 1 )*INCX ). The value of sumsq is -*> assumed to be non-negative and scl returns the value -*> -*> scl = max( scale, abs( x( i ) ) ). -*> -*> scale and sumsq must be supplied in SCALE and SUMSQ and -*> scl and smsq are overwritten on SCALE and SUMSQ respectively. -*> -*> The routine makes only one pass through the vector x. -*> \endverbatim -* -* Arguments: -* ========== -* -*> \param[in] N -*> \verbatim -*> N is INTEGER -*> The number of elements to be used from the vector X. -*> \endverbatim -*> -*> \param[in] X -*> \verbatim -*> X is REAL array, dimension (1+(N-1)*INCX) -*> The vector for which a scaled sum of squares is computed. -*> x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. -*> \endverbatim -*> -*> \param[in] INCX -*> \verbatim -*> INCX is INTEGER -*> The increment between successive values of the vector X. -*> INCX > 0. -*> \endverbatim -*> -*> \param[in,out] SCALE -*> \verbatim -*> SCALE is REAL -*> On entry, the value scale in the equation above. -*> On exit, SCALE is overwritten with scl , the scaling factor -*> for the sum of squares. -*> \endverbatim -*> -*> \param[in,out] SUMSQ -*> \verbatim -*> SUMSQ is REAL -*> On entry, the value sumsq in the equation above. -*> On exit, SUMSQ is overwritten with smsq , the basic sum of -*> squares from which scl has been factored out. -*> \endverbatim -* -* Authors: -* ======== -* -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. -* -*> \date December 2016 -* -*> \ingroup OTHERauxiliary -* -* ===================================================================== - SUBROUTINE SLASSQ( N, X, INCX, SCALE, SUMSQ ) -* -* -- LAPACK auxiliary routine (version 3.7.0) -- -* -- LAPACK is a software package provided by Univ. of Tennessee, -- -* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 -* -* .. Scalar Arguments .. - INTEGER INCX, N - REAL SCALE, SUMSQ -* .. -* .. Array Arguments .. - REAL X( * ) -* .. -* -* ===================================================================== -* -* .. Parameters .. - REAL ZERO - PARAMETER ( ZERO = 0.0E+0 ) -* .. -* .. Local Scalars .. - INTEGER IX - REAL ABSXI -* .. -* .. External Functions .. - LOGICAL SISNAN - EXTERNAL SISNAN -* .. -* .. Intrinsic Functions .. - INTRINSIC ABS -* .. -* .. Executable Statements .. -* - IF( N.GT.0 ) THEN - DO 10 IX = 1, 1 + ( N-1 )*INCX, INCX - ABSXI = ABS( X( IX ) ) - IF( ABSXI.GT.ZERO.OR.SISNAN( ABSXI ) ) THEN - IF( SCALE.LT.ABSXI ) THEN - SUMSQ = 1 + SUMSQ*( SCALE / ABSXI )**2 - SCALE = ABSXI - ELSE - SUMSQ = SUMSQ + ( ABSXI / SCALE )**2 - END IF - END IF - 10 CONTINUE - END IF - RETURN -* -* End of SLASSQ -* - END diff --git a/lapack-netlib/SRC/slassq.f90 b/lapack-netlib/SRC/slassq.f90 new file mode 100644 index 000000000..19f49402b --- /dev/null +++ b/lapack-netlib/SRC/slassq.f90 @@ -0,0 +1,253 @@ +!> \brief \b SLASSQ updates a sum of squares represented in scaled form. +! +! =========== DOCUMENTATION =========== +! +! Online html documentation available at +! http://www.netlib.org/lapack/explore-html/ +! +!> \htmlonly +!> Download SLASSQ + dependencies +!> +!> [TGZ] +!> +!> [ZIP] +!> +!> [TXT] +!> \endhtmlonly +! +! Definition: +! =========== +! +! SUBROUTINE SLASSQ( N, X, INCX, SCALE, SUMSQ ) +! +! .. Scalar Arguments .. +! INTEGER INCX, N +! REAL SCALE, SUMSQ +! .. +! .. Array Arguments .. +! REAL X( * ) +! .. +! +! +!> \par Purpose: +! ============= +!> +!> \verbatim +!> +!> SLASSQ returns the values scl and smsq such that +!> +!> ( scl**2 )*smsq = x( 1 )**2 +...+ x( n )**2 + ( scale**2 )*sumsq, +!> +!> where x( i ) = X( 1 + ( i - 1 )*INCX ). The value of sumsq is +!> assumed to be non-negative. +!> +!> scale and sumsq must be supplied in SCALE and SUMSQ and +!> scl and smsq are overwritten on SCALE and SUMSQ respectively. +!> +!> If scale * sqrt( sumsq ) > tbig then +!> we require: scale >= sqrt( TINY*EPS ) / sbig on entry, +!> and if 0 < scale * sqrt( sumsq ) < tsml then +!> we require: scale <= sqrt( HUGE ) / ssml on entry, +!> where +!> tbig -- upper threshold for values whose square is representable; +!> sbig -- scaling constant for big numbers; \see la_constants.f90 +!> tsml -- lower threshold for values whose square is representable; +!> ssml -- scaling constant for small numbers; \see la_constants.f90 +!> and +!> TINY*EPS -- tiniest representable number; +!> HUGE -- biggest representable number. +!> +!> \endverbatim +! +! Arguments: +! ========== +! +!> \param[in] N +!> \verbatim +!> N is INTEGER +!> The number of elements to be used from the vector x. +!> \endverbatim +!> +!> \param[in] X +!> \verbatim +!> X is REAL array, dimension (1+(N-1)*abs(INCX)) +!> The vector for which a scaled sum of squares is computed. +!> x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. +!> \endverbatim +!> +!> \param[in] INCX +!> \verbatim +!> INCX is INTEGER +!> The increment between successive values of the vector x. +!> If INCX > 0, X(1+(i-1)*INCX) = x(i) for 1 <= i <= n +!> If INCX < 0, X(1-(n-i)*INCX) = x(i) for 1 <= i <= n +!> If INCX = 0, x isn't a vector so there is no need to call +!> this subroutine. If you call it anyway, it will count x(1) +!> in the vector norm N times. +!> \endverbatim +!> +!> \param[in,out] SCALE +!> \verbatim +!> SCALE is REAL +!> On entry, the value scale in the equation above. +!> On exit, SCALE is overwritten with scl , the scaling factor +!> for the sum of squares. +!> \endverbatim +!> +!> \param[in,out] SUMSQ +!> \verbatim +!> SUMSQ is REAL +!> On entry, the value sumsq in the equation above. +!> On exit, SUMSQ is overwritten with smsq , the basic sum of +!> squares from which scl has been factored out. +!> \endverbatim +! +! Authors: +! ======== +! +!> \author Edward Anderson, Lockheed Martin +! +!> \par Contributors: +! ================== +!> +!> Weslley Pereira, University of Colorado Denver, USA +!> Nick Papior, Technical University of Denmark, DK +! +!> \par Further Details: +! ===================== +!> +!> \verbatim +!> +!> Anderson E. (2017) +!> Algorithm 978: Safe Scaling in the Level 1 BLAS +!> ACM Trans Math Softw 44:1--28 +!> https://doi.org/10.1145/3061665 +!> +!> Blue, James L. (1978) +!> A Portable Fortran Program to Find the Euclidean Norm of a Vector +!> ACM Trans Math Softw 4:15--23 +!> https://doi.org/10.1145/355769.355771 +!> +!> \endverbatim +! +!> \ingroup OTHERauxiliary +! +! ===================================================================== +subroutine SLASSQ( n, x, incx, scl, sumsq ) + use LA_CONSTANTS, & + only: wp=>sp, zero=>szero, one=>sone, & + sbig=>ssbig, ssml=>sssml, tbig=>stbig, tsml=>stsml + use LA_XISNAN +! +! -- LAPACK auxiliary routine -- +! -- LAPACK is a software package provided by Univ. of Tennessee, -- +! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +! +! .. Scalar Arguments .. + integer :: incx, n + real(wp) :: scl, sumsq +! .. +! .. Array Arguments .. + real(wp) :: x(*) +! .. +! .. Local Scalars .. + integer :: i, ix + logical :: notbig + real(wp) :: abig, amed, asml, ax, ymax, ymin +! .. +! +! Quick return if possible +! + if( LA_ISNAN(scl) .or. LA_ISNAN(sumsq) ) return + if( sumsq == zero ) scl = one + if( scl == zero ) then + scl = one + sumsq = zero + end if + if (n <= 0) then + return + end if +! +! Compute the sum of squares in 3 accumulators: +! abig -- sums of squares scaled down to avoid overflow +! asml -- sums of squares scaled up to avoid underflow +! amed -- sums of squares that do not require scaling +! The thresholds and multipliers are +! tbig -- values bigger than this are scaled down by sbig +! tsml -- values smaller than this are scaled up by ssml +! + notbig = .true. + asml = zero + amed = zero + abig = zero + ix = 1 + if( incx < 0 ) ix = 1 - (n-1)*incx + do i = 1, n + ax = abs(x(ix)) + if (ax > tbig) then + abig = abig + (ax*sbig)**2 + notbig = .false. + else if (ax < tsml) then + if (notbig) asml = asml + (ax*ssml)**2 + else + amed = amed + ax**2 + end if + ix = ix + incx + end do +! +! Put the existing sum of squares into one of the accumulators +! + if( sumsq > zero ) then + ax = scl*sqrt( sumsq ) + if (ax > tbig) then +! We assume scl >= sqrt( TINY*EPS ) / sbig + abig = abig + (scl*sbig)**2 * sumsq + else if (ax < tsml) then +! We assume scl <= sqrt( HUGE ) / ssml + if (notbig) asml = asml + (scl*ssml)**2 * sumsq + else + amed = amed + scl**2 * sumsq + end if + end if +! +! Combine abig and amed or amed and asml if more than one +! accumulator was used. +! + if (abig > zero) then +! +! Combine abig and amed if abig > 0. +! + if (amed > zero .or. LA_ISNAN(amed)) then + abig = abig + (amed*sbig)*sbig + end if + scl = one / sbig + sumsq = abig + else if (asml > zero) then +! +! Combine amed and asml if asml > 0. +! + if (amed > zero .or. LA_ISNAN(amed)) then + amed = sqrt(amed) + asml = sqrt(asml) / ssml + if (asml > amed) then + ymin = amed + ymax = asml + else + ymin = asml + ymax = amed + end if + scl = one + sumsq = ymax**2*( one + (ymin/ymax)**2 ) + else + scl = one / ssml + sumsq = asml + end if + else +! +! Otherwise all values are mid-range or zero +! + scl = one + sumsq = amed + end if + return +end subroutine diff --git a/lapack-netlib/SRC/slasv2.f b/lapack-netlib/SRC/slasv2.f index 3cd556e33..6b98e9a0c 100644 --- a/lapack-netlib/SRC/slasv2.f +++ b/lapack-netlib/SRC/slasv2.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE SLASV2( F, G, H, SSMIN, SSMAX, SNR, CSR, SNL, CSL ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL CSL, CSR, F, G, H, SNL, SNR, SSMAX, SSMIN diff --git a/lapack-netlib/SRC/slaswlq.f b/lapack-netlib/SRC/slaswlq.f index 5eb9cc5f9..bc7cf343d 100644 --- a/lapack-netlib/SRC/slaswlq.f +++ b/lapack-netlib/SRC/slaswlq.f @@ -27,9 +27,9 @@ *> where: *> *> Q is a n-by-N orthogonal matrix, stored on exit in an implicit -*> form in the elements above the digonal of the array A and in -*> the elemenst of the array T; -*> L is an lower-triangular M-by-M matrix stored on exit in +*> form in the elements above the diagonal of the array A and in +*> the elements of the array T; +*> L is a lower-triangular M-by-M matrix stored on exit in *> the elements on and below the diagonal of the array A. *> 0 is a M-by-(N-M) zero matrix, if M < N, and is not stored. *> @@ -60,7 +60,7 @@ *> \verbatim *> NB is INTEGER *> The column block size to be used in the blocked QR. -*> NB > M. +*> NB > 0. *> \endverbatim *> *> \param[in,out] A @@ -162,10 +162,9 @@ SUBROUTINE SLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, $ INFO) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, MB, NB, LWORK, LDT @@ -203,10 +202,10 @@ INFO = -2 ELSE IF( MB.LT.1 .OR. ( MB.GT.M .AND. M.GT.0 )) THEN INFO = -3 - ELSE IF( NB.LE.M ) THEN + ELSE IF( NB.LE.0 ) THEN INFO = -4 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN - INFO = -5 + INFO = -6 ELSE IF( LDT.LT.MB ) THEN INFO = -8 ELSE IF( ( LWORK.LT.M*MB) .AND. (.NOT.LQUERY) ) THEN diff --git a/lapack-netlib/SRC/slaswp.f b/lapack-netlib/SRC/slaswp.f index 4fcef5b91..20e29d62a 100644 --- a/lapack-netlib/SRC/slaswp.f +++ b/lapack-netlib/SRC/slaswp.f @@ -99,8 +99,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -115,10 +113,9 @@ * ===================================================================== SUBROUTINE SLASWP( N, A, LDA, K1, K2, IPIV, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INCX, K1, K2, LDA, N diff --git a/lapack-netlib/SRC/slasy2.f b/lapack-netlib/SRC/slasy2.f index 72b835e10..2a458ba70 100644 --- a/lapack-netlib/SRC/slasy2.f +++ b/lapack-netlib/SRC/slasy2.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realSYauxiliary * * ===================================================================== SUBROUTINE SLASY2( LTRANL, LTRANR, ISGN, N1, N2, TL, LDTL, TR, $ LDTR, B, LDB, SCALE, X, LDX, XNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL LTRANL, LTRANR diff --git a/lapack-netlib/SRC/slasyf.f b/lapack-netlib/SRC/slasyf.f index 58dace2ee..c551c1460 100644 --- a/lapack-netlib/SRC/slasyf.f +++ b/lapack-netlib/SRC/slasyf.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup realSYcomputational * *> \par Contributors: @@ -176,10 +174,9 @@ * ===================================================================== SUBROUTINE SLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/slasyf_aa.f b/lapack-netlib/SRC/slasyf_aa.f index 76f632602..8c8bdf7d1 100644 --- a/lapack-netlib/SRC/slasyf_aa.f +++ b/lapack-netlib/SRC/slasyf_aa.f @@ -136,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, $ H, LDH, WORK ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/slasyf_rk.f b/lapack-netlib/SRC/slasyf_rk.f index c16708365..1960bd110 100644 --- a/lapack-netlib/SRC/slasyf_rk.f +++ b/lapack-netlib/SRC/slasyf_rk.f @@ -239,8 +239,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup singleSYcomputational * *> \par Contributors: @@ -262,10 +260,9 @@ SUBROUTINE SLASYF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/slasyf_rook.f b/lapack-netlib/SRC/slasyf_rook.f index 65bb2ad9d..7764f6935 100644 --- a/lapack-netlib/SRC/slasyf_rook.f +++ b/lapack-netlib/SRC/slasyf_rook.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup realSYcomputational * *> \par Contributors: @@ -184,10 +182,9 @@ SUBROUTINE SLASYF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/slatbs.f b/lapack-netlib/SRC/slatbs.f index a06838cb0..617d0b2f5 100644 --- a/lapack-netlib/SRC/slatbs.f +++ b/lapack-netlib/SRC/slatbs.f @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -242,10 +240,9 @@ SUBROUTINE SLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, $ SCALE, CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/slatdf.f b/lapack-netlib/SRC/slatdf.f index 495d32502..2eaacbd9c 100644 --- a/lapack-netlib/SRC/slatdf.f +++ b/lapack-netlib/SRC/slatdf.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -171,10 +169,9 @@ SUBROUTINE SLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, $ JPIV ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IJOB, LDZ, N diff --git a/lapack-netlib/SRC/slatps.f b/lapack-netlib/SRC/slatps.f index 83151c196..2bce76f06 100644 --- a/lapack-netlib/SRC/slatps.f +++ b/lapack-netlib/SRC/slatps.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -229,10 +227,9 @@ SUBROUTINE SLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/slatrd.f b/lapack-netlib/SRC/slatrd.f index f562ce396..1cdb13c39 100644 --- a/lapack-netlib/SRC/slatrd.f +++ b/lapack-netlib/SRC/slatrd.f @@ -139,8 +139,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERauxiliary * *> \par Further Details: @@ -198,10 +196,9 @@ * ===================================================================== SUBROUTINE SLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/slatrs.f b/lapack-netlib/SRC/slatrs.f index d62debcd9..94e0e88bc 100644 --- a/lapack-netlib/SRC/slatrs.f +++ b/lapack-netlib/SRC/slatrs.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -238,10 +236,9 @@ SUBROUTINE SLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/slatrz.f b/lapack-netlib/SRC/slatrz.f index 16e973294..6f5fe0891 100644 --- a/lapack-netlib/SRC/slatrz.f +++ b/lapack-netlib/SRC/slatrz.f @@ -97,8 +97,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -140,10 +138,9 @@ * ===================================================================== SUBROUTINE SLATRZ( M, N, L, A, LDA, TAU, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER L, LDA, M, N diff --git a/lapack-netlib/SRC/slatsqr.f b/lapack-netlib/SRC/slatsqr.f index b56b0d41e..33966c01f 100644 --- a/lapack-netlib/SRC/slatsqr.f +++ b/lapack-netlib/SRC/slatsqr.f @@ -28,8 +28,8 @@ *> where: *> *> Q is a M-by-M orthogonal matrix, stored on exit in an implicit -*> form in the elements below the digonal of the array A and in -*> the elemenst of the array T; +*> form in the elements below the diagonal of the array A and in +*> the elements of the array T; *> *> R is an upper-triangular N-by-N matrix, stored on exit in *> the elements on and above the diagonal of the array A. @@ -164,10 +164,9 @@ SUBROUTINE SLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, $ LWORK, INFO) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, MB, NB, LDT, LWORK @@ -203,12 +202,12 @@ INFO = -1 ELSE IF( N.LT.0 .OR. M.LT.N ) THEN INFO = -2 - ELSE IF( MB.LE.N ) THEN + ELSE IF( MB.LT.1 ) THEN INFO = -3 ELSE IF( NB.LT.1 .OR. ( NB.GT.N .AND. N.GT.0 )) THEN INFO = -4 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN - INFO = -5 + INFO = -6 ELSE IF( LDT.LT.NB ) THEN INFO = -8 ELSE IF( LWORK.LT.(N*NB) .AND. (.NOT.LQUERY) ) THEN diff --git a/lapack-netlib/SRC/slauu2.f b/lapack-netlib/SRC/slauu2.f index c9f774cc8..efe5e47ef 100644 --- a/lapack-netlib/SRC/slauu2.f +++ b/lapack-netlib/SRC/slauu2.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAUU2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/slauum.f b/lapack-netlib/SRC/slauum.f index c23c4b3e6..a7b69432d 100644 --- a/lapack-netlib/SRC/slauum.f +++ b/lapack-netlib/SRC/slauum.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SLAUUM( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sopgtr.f b/lapack-netlib/SRC/sopgtr.f index 567f76a79..1ab657acc 100644 --- a/lapack-netlib/SRC/sopgtr.f +++ b/lapack-netlib/SRC/sopgtr.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SOPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sopmtr.f b/lapack-netlib/SRC/sopmtr.f index 809f8b2a9..c1148e01f 100644 --- a/lapack-netlib/SRC/sopmtr.f +++ b/lapack-netlib/SRC/sopmtr.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SOPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, UPLO diff --git a/lapack-netlib/SRC/sorbdb.f b/lapack-netlib/SRC/sorbdb.f index 2e460aaa9..351172ff1 100644 --- a/lapack-netlib/SRC/sorbdb.f +++ b/lapack-netlib/SRC/sorbdb.f @@ -255,8 +255,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -287,10 +285,9 @@ $ X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, $ TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIGNS, TRANS diff --git a/lapack-netlib/SRC/sorbdb1.f b/lapack-netlib/SRC/sorbdb1.f index 98bc8e798..c860f4366 100644 --- a/lapack-netlib/SRC/sorbdb1.f +++ b/lapack-netlib/SRC/sorbdb1.f @@ -174,8 +174,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -203,10 +201,9 @@ SUBROUTINE SORBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/sorbdb2.f b/lapack-netlib/SRC/sorbdb2.f index 684778ef0..ad3eb269d 100644 --- a/lapack-netlib/SRC/sorbdb2.f +++ b/lapack-netlib/SRC/sorbdb2.f @@ -172,8 +172,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -201,10 +199,9 @@ SUBROUTINE SORBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/sorbdb3.f b/lapack-netlib/SRC/sorbdb3.f index d849613c2..6209b24ee 100644 --- a/lapack-netlib/SRC/sorbdb3.f +++ b/lapack-netlib/SRC/sorbdb3.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -202,10 +200,9 @@ SUBROUTINE SORBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/sorbdb4.f b/lapack-netlib/SRC/sorbdb4.f index 42bbcbda8..b18ed3b27 100644 --- a/lapack-netlib/SRC/sorbdb4.f +++ b/lapack-netlib/SRC/sorbdb4.f @@ -184,8 +184,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -214,10 +212,9 @@ $ TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/sorbdb5.f b/lapack-netlib/SRC/sorbdb5.f index f5af1db1a..8c67aedfb 100644 --- a/lapack-netlib/SRC/sorbdb5.f +++ b/lapack-netlib/SRC/sorbdb5.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, $ LDQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, diff --git a/lapack-netlib/SRC/sorbdb6.f b/lapack-netlib/SRC/sorbdb6.f index beedbfcb6..a23b42beb 100644 --- a/lapack-netlib/SRC/sorbdb6.f +++ b/lapack-netlib/SRC/sorbdb6.f @@ -146,18 +146,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, $ LDQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, diff --git a/lapack-netlib/SRC/sorcsd.f b/lapack-netlib/SRC/sorcsd.f index 06c77d8e3..30bee7a79 100644 --- a/lapack-netlib/SRC/sorcsd.f +++ b/lapack-netlib/SRC/sorcsd.f @@ -289,8 +289,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERcomputational * * ===================================================================== @@ -300,10 +298,9 @@ $ U1, LDU1, U2, LDU2, V1T, LDV1T, V2T, $ LDV2T, WORK, LWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS diff --git a/lapack-netlib/SRC/sorcsd2by1.f b/lapack-netlib/SRC/sorcsd2by1.f index 18a2a7904..25c317f6f 100644 --- a/lapack-netlib/SRC/sorcsd2by1.f +++ b/lapack-netlib/SRC/sorcsd2by1.f @@ -224,8 +224,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup realOTHERcomputational * * ===================================================================== @@ -233,10 +231,9 @@ $ X21, LDX21, THETA, U1, LDU1, U2, LDU2, V1T, $ LDV1T, WORK, LWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T @@ -674,6 +671,9 @@ * * Accumulate Householder reflectors * + IF( WANTU2 .AND. M-P .GT. 0 ) THEN + CALL SCOPY( M-P, WORK(IORBDB+P), 1, U2, 1 ) + END IF IF( WANTU1 .AND. P .GT. 0 ) THEN CALL SCOPY( P, WORK(IORBDB), 1, U1, 1 ) DO J = 2, P @@ -685,7 +685,6 @@ $ WORK(IORGQR), LORGQR, CHILDINFO ) END IF IF( WANTU2 .AND. M-P .GT. 0 ) THEN - CALL SCOPY( M-P, WORK(IORBDB+P), 1, U2, 1 ) DO J = 2, M-P U2(1,J) = ZERO END DO diff --git a/lapack-netlib/SRC/sorg2l.f b/lapack-netlib/SRC/sorg2l.f index e26c70d77..aa0dd0a08 100644 --- a/lapack-netlib/SRC/sorg2l.f +++ b/lapack-netlib/SRC/sorg2l.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORG2L( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/sorg2r.f b/lapack-netlib/SRC/sorg2r.f index a301f6008..3a8aa33a0 100644 --- a/lapack-netlib/SRC/sorg2r.f +++ b/lapack-netlib/SRC/sorg2r.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORG2R( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/sorgbr.f b/lapack-netlib/SRC/sorgbr.f index 2266505dc..8f15523d4 100644 --- a/lapack-netlib/SRC/sorgbr.f +++ b/lapack-netlib/SRC/sorgbr.f @@ -150,17 +150,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realGBcomputational * * ===================================================================== SUBROUTINE SORGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER VECT diff --git a/lapack-netlib/SRC/sorghr.f b/lapack-netlib/SRC/sorghr.f index 3efea72f2..f65cd898c 100644 --- a/lapack-netlib/SRC/sorghr.f +++ b/lapack-netlib/SRC/sorghr.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/sorgl2.f b/lapack-netlib/SRC/sorgl2.f index 276a01ec8..d85c38874 100644 --- a/lapack-netlib/SRC/sorgl2.f +++ b/lapack-netlib/SRC/sorgl2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORGL2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/sorglq.f b/lapack-netlib/SRC/sorglq.f index 90806fcc3..b1d107964 100644 --- a/lapack-netlib/SRC/sorglq.f +++ b/lapack-netlib/SRC/sorglq.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/sorgql.f b/lapack-netlib/SRC/sorgql.f index b46b00c27..34ab5edef 100644 --- a/lapack-netlib/SRC/sorgql.f +++ b/lapack-netlib/SRC/sorgql.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/sorgqr.f b/lapack-netlib/SRC/sorgqr.f index dbc9faff4..056de54d7 100644 --- a/lapack-netlib/SRC/sorgqr.f +++ b/lapack-netlib/SRC/sorgqr.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/sorgr2.f b/lapack-netlib/SRC/sorgr2.f index 5a03e7d77..12bb90c78 100644 --- a/lapack-netlib/SRC/sorgr2.f +++ b/lapack-netlib/SRC/sorgr2.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORGR2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/sorgrq.f b/lapack-netlib/SRC/sorgrq.f index b5ecdeac4..d9b6ccbe6 100644 --- a/lapack-netlib/SRC/sorgrq.f +++ b/lapack-netlib/SRC/sorgrq.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/sorgtr.f b/lapack-netlib/SRC/sorgtr.f index da9a6558f..67bde00cb 100644 --- a/lapack-netlib/SRC/sorgtr.f +++ b/lapack-netlib/SRC/sorgtr.f @@ -116,17 +116,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sorgtsqr.f b/lapack-netlib/SRC/sorgtsqr.f index 748760d63..a755fa4a4 100644 --- a/lapack-netlib/SRC/sorgtsqr.f +++ b/lapack-netlib/SRC/sorgtsqr.f @@ -13,7 +13,8 @@ *> [ZIP] *> *> [TXT] -*> +*> \endhtmlonly +* * Definition: * =========== * @@ -155,8 +156,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup singleOTHERcomputational * *> \par Contributors: @@ -175,10 +174,9 @@ $ INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, LWORK, M, N, MB, NB @@ -225,7 +223,7 @@ * * Test the input LWORK for the dimension of the array WORK. * This workspace is used to store array C(LDC, N) and WORK(LWORK) -* in the call to DLAMTSQR. See the documentation for DLAMTSQR. +* in the call to SLAMTSQR. See the documentation for SLAMTSQR. * IF( LWORK.LT.2 .AND. (.NOT.LQUERY) ) THEN INFO = -10 @@ -236,8 +234,8 @@ NBLOCAL = MIN( NB, N ) * * LWORK = -1, then set the size for the array C(LDC,N) -* in DLAMTSQR call and set the optimal size of the work array -* WORK(LWORK) in DLAMTSQR call. +* in SLAMTSQR call and set the optimal size of the work array +* WORK(LWORK) in SLAMTSQR call. * LDC = M LC = LDC*N @@ -272,7 +270,7 @@ * (1) Form explicitly the tall-skinny M-by-N left submatrix Q1_in * of M-by-M orthogonal matrix Q_in, which is implicitly stored in * the subdiagonal part of input array A and in the input array T. -* Perform by the following operation using the routine DLAMTSQR. +* Perform by the following operation using the routine SLAMTSQR. * * Q1_in = Q_in * ( I ), where I is a N-by-N identity matrix, * ( 0 ) 0 is a (M-N)-by-N zero matrix. diff --git a/lapack-netlib/SRC/sorhr_col.f b/lapack-netlib/SRC/sorhr_col.f index 9aef57b26..5d9188148 100644 --- a/lapack-netlib/SRC/sorhr_col.f +++ b/lapack-netlib/SRC/sorhr_col.f @@ -13,7 +13,8 @@ *> [ZIP] *> *> [TXT] -*> +*> \endhtmlonly +* * Definition: * =========== * @@ -112,7 +113,7 @@ *> blocks (same format as the output T in SGEQRT). *> The matrix T and the matrix V stored on output in A *> implicitly define Q_out. NOTE: The lower triangles -*> below the upper-triangular blcoks will be filled with +*> below the upper-triangular blocks will be filled with *> zeros. See Further Details. *> \endverbatim *> @@ -217,11 +218,11 @@ *> If Q_in is the result of doing a QR factorization *> B = Q_in * R_in, then: *> -*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = O_out * R_out. +*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = Q_out * R_out. *> *> So if one wants to interpret Q_out as the result -*> of the QR factorization of B, then corresponding R_out -*> should be obtained by R_out = S * R_in, i.e. some rows of R_in +*> of the QR factorization of B, then the corresponding R_out +*> should be equal to R_out = S * R_in, i.e. some rows of R_in *> should be multiplied by -1. *> *> For the details of the algorithm, see [1]. @@ -240,8 +241,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup singleOTHERcomputational * *> \par Contributors: @@ -259,10 +258,9 @@ SUBROUTINE SORHR_COL( M, N, NB, A, LDA, T, LDT, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, NB diff --git a/lapack-netlib/SRC/sorm22.f b/lapack-netlib/SRC/sorm22.f index 265e9769e..15096870a 100644 --- a/lapack-netlib/SRC/sorm22.f +++ b/lapack-netlib/SRC/sorm22.f @@ -155,18 +155,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE SORM22( SIDE, TRANS, M, N, N1, N2, Q, LDQ, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/sorm2l.f b/lapack-netlib/SRC/sorm2l.f index 0542ae222..2f6e3abbc 100644 --- a/lapack-netlib/SRC/sorm2l.f +++ b/lapack-netlib/SRC/sorm2l.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/sorm2r.f b/lapack-netlib/SRC/sorm2r.f index 61560d656..0e0747a00 100644 --- a/lapack-netlib/SRC/sorm2r.f +++ b/lapack-netlib/SRC/sorm2r.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/sormbr.f b/lapack-netlib/SRC/sormbr.f index 425e04cd2..efe5be41a 100644 --- a/lapack-netlib/SRC/sormbr.f +++ b/lapack-netlib/SRC/sormbr.f @@ -188,18 +188,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, VECT @@ -242,10 +239,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.APPLYQ .AND. .NOT.LSAME( VECT, 'P' ) ) THEN INFO = -1 @@ -265,7 +262,7 @@ INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * @@ -287,7 +284,7 @@ $ -1 ) END IF END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/sormhr.f b/lapack-netlib/SRC/sormhr.f index 10e0b3c60..2d2053af4 100644 --- a/lapack-netlib/SRC/sormhr.f +++ b/lapack-netlib/SRC/sormhr.f @@ -171,18 +171,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -223,10 +220,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -245,7 +242,7 @@ INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * @@ -255,7 +252,7 @@ ELSE NB = ILAENV( 1, 'SORMQR', SIDE // TRANS, M, NH, NH, -1 ) END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/sorml2.f b/lapack-netlib/SRC/sorml2.f index b9242ce69..c5705c799 100644 --- a/lapack-netlib/SRC/sorml2.f +++ b/lapack-netlib/SRC/sorml2.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/sormlq.f b/lapack-netlib/SRC/sormlq.f index 5cc4b875c..ee996e560 100644 --- a/lapack-netlib/SRC/sormlq.f +++ b/lapack-netlib/SRC/sormlq.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -219,10 +216,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -238,7 +235,7 @@ INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -248,7 +245,7 @@ * NB = MIN( NBMAX, ILAENV( 1, 'SORMLQ', SIDE // TRANS, M, N, K, $ -1 ) ) - LWKOPT = MAX( 1, NW )*NB + TSIZE + LWKOPT = NW*NB + TSIZE WORK( 1 ) = LWKOPT END IF * @@ -269,7 +266,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'SORMLQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/sormql.f b/lapack-netlib/SRC/sormql.f index 51625693c..72a8d22ee 100644 --- a/lapack-netlib/SRC/sormql.f +++ b/lapack-netlib/SRC/sormql.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -271,7 +268,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'SORMQL', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/sormqr.f b/lapack-netlib/SRC/sormqr.f index 5132f1a69..5d4256f09 100644 --- a/lapack-netlib/SRC/sormqr.f +++ b/lapack-netlib/SRC/sormqr.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -218,10 +215,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -237,7 +234,7 @@ INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -247,7 +244,7 @@ * NB = MIN( NBMAX, ILAENV( 1, 'SORMQR', SIDE // TRANS, M, N, K, $ -1 ) ) - LWKOPT = MAX( 1, NW )*NB + TSIZE + LWKOPT = NW*NB + TSIZE WORK( 1 ) = LWKOPT END IF * @@ -268,7 +265,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'SORMQR', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/sormr2.f b/lapack-netlib/SRC/sormr2.f index 8062115e0..cefe1d309 100644 --- a/lapack-netlib/SRC/sormr2.f +++ b/lapack-netlib/SRC/sormr2.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/sormr3.f b/lapack-netlib/SRC/sormr3.f index 461957afb..18d66e323 100644 --- a/lapack-netlib/SRC/sormr3.f +++ b/lapack-netlib/SRC/sormr3.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -178,10 +176,9 @@ SUBROUTINE SORMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/sormrq.f b/lapack-netlib/SRC/sormrq.f index ec7775b4f..62fcdacdb 100644 --- a/lapack-netlib/SRC/sormrq.f +++ b/lapack-netlib/SRC/sormrq.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -272,7 +269,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'SORMRQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/sormrz.f b/lapack-netlib/SRC/sormrz.f index e86d1aa86..cdadd62b5 100644 --- a/lapack-netlib/SRC/sormrz.f +++ b/lapack-netlib/SRC/sormrz.f @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -187,10 +185,9 @@ SUBROUTINE SORMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -259,7 +256,7 @@ INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * @@ -293,7 +290,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'SORMRQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/sormtr.f b/lapack-netlib/SRC/sormtr.f index 5d46ff98f..3ba749fee 100644 --- a/lapack-netlib/SRC/sormtr.f +++ b/lapack-netlib/SRC/sormtr.f @@ -164,18 +164,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SORMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, UPLO @@ -216,10 +213,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -236,7 +233,7 @@ INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -258,7 +255,7 @@ $ -1 ) END IF END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/spbcon.f b/lapack-netlib/SRC/spbcon.f index a32e605c6..84c97b1cb 100644 --- a/lapack-netlib/SRC/spbcon.f +++ b/lapack-netlib/SRC/spbcon.f @@ -124,18 +124,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spbequ.f b/lapack-netlib/SRC/spbequ.f index 6379831cb..df2c3a19c 100644 --- a/lapack-netlib/SRC/spbequ.f +++ b/lapack-netlib/SRC/spbequ.f @@ -122,17 +122,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spbrfs.f b/lapack-netlib/SRC/spbrfs.f index 1f8324433..f13aaee01 100644 --- a/lapack-netlib/SRC/spbrfs.f +++ b/lapack-netlib/SRC/spbrfs.f @@ -181,18 +181,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, $ LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spbstf.f b/lapack-netlib/SRC/spbstf.f index dba3d70b8..909c165f3 100644 --- a/lapack-netlib/SRC/spbstf.f +++ b/lapack-netlib/SRC/spbstf.f @@ -110,8 +110,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -152,10 +150,9 @@ * ===================================================================== SUBROUTINE SPBSTF( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spbsv.f b/lapack-netlib/SRC/spbsv.f index aab1c74f5..2d084424e 100644 --- a/lapack-netlib/SRC/spbsv.f +++ b/lapack-netlib/SRC/spbsv.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERsolve * *> \par Further Details: @@ -164,10 +162,9 @@ * ===================================================================== SUBROUTINE SPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spbsvx.f b/lapack-netlib/SRC/spbsvx.f index c43a079a3..27907eb85 100644 --- a/lapack-netlib/SRC/spbsvx.f +++ b/lapack-netlib/SRC/spbsvx.f @@ -302,8 +302,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realOTHERsolve * *> \par Further Details: @@ -343,10 +341,9 @@ $ EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/spbtf2.f b/lapack-netlib/SRC/spbtf2.f index 6da010850..ff08bc327 100644 --- a/lapack-netlib/SRC/spbtf2.f +++ b/lapack-netlib/SRC/spbtf2.f @@ -110,8 +110,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE SPBTF2( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spbtrf.f b/lapack-netlib/SRC/spbtrf.f index 3cd39fa87..ef5dcbb98 100644 --- a/lapack-netlib/SRC/spbtrf.f +++ b/lapack-netlib/SRC/spbtrf.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE SPBTRF( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spbtrs.f b/lapack-netlib/SRC/spbtrs.f index 81ddaab9b..bc3381956 100644 --- a/lapack-netlib/SRC/spbtrs.f +++ b/lapack-netlib/SRC/spbtrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spftrf.f b/lapack-netlib/SRC/spftrf.f index 6f48c00bd..9e2c11eea 100644 --- a/lapack-netlib/SRC/spftrf.f +++ b/lapack-netlib/SRC/spftrf.f @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -198,10 +196,9 @@ * ===================================================================== SUBROUTINE SPFTRF( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/spftri.f b/lapack-netlib/SRC/spftri.f index 96c99a028..4e82bb183 100644 --- a/lapack-netlib/SRC/spftri.f +++ b/lapack-netlib/SRC/spftri.f @@ -97,8 +97,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -191,10 +189,9 @@ * ===================================================================== SUBROUTINE SPFTRI( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/spftrs.f b/lapack-netlib/SRC/spftrs.f index e6710e2f2..fec7eff76 100644 --- a/lapack-netlib/SRC/spftrs.f +++ b/lapack-netlib/SRC/spftrs.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -199,10 +197,9 @@ * ===================================================================== SUBROUTINE SPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/spocon.f b/lapack-netlib/SRC/spocon.f index c249c3eb3..8b4e85b3d 100644 --- a/lapack-netlib/SRC/spocon.f +++ b/lapack-netlib/SRC/spocon.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== SUBROUTINE SPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spoequ.f b/lapack-netlib/SRC/spoequ.f index f2de64db2..45c61d645 100644 --- a/lapack-netlib/SRC/spoequ.f +++ b/lapack-netlib/SRC/spoequ.f @@ -105,17 +105,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== SUBROUTINE SPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/spoequb.f b/lapack-netlib/SRC/spoequb.f index e74eefa47..e221cdb6d 100644 --- a/lapack-netlib/SRC/spoequb.f +++ b/lapack-netlib/SRC/spoequb.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== SUBROUTINE SPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/sporfs.f b/lapack-netlib/SRC/sporfs.f index 32a69b074..4390b1d42 100644 --- a/lapack-netlib/SRC/sporfs.f +++ b/lapack-netlib/SRC/sporfs.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== SUBROUTINE SPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, $ LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sporfsx.f b/lapack-netlib/SRC/sporfsx.f index ce8c26569..8f69bc77e 100644 --- a/lapack-netlib/SRC/sporfsx.f +++ b/lapack-netlib/SRC/sporfsx.f @@ -384,8 +384,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realPOcomputational * * ===================================================================== @@ -394,10 +392,9 @@ $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/sposv.f b/lapack-netlib/SRC/sposv.f index 2a9565d85..fe0a35a56 100644 --- a/lapack-netlib/SRC/sposv.f +++ b/lapack-netlib/SRC/sposv.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOsolve * * ===================================================================== SUBROUTINE SPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sposvx.f b/lapack-netlib/SRC/sposvx.f index 605106810..bcf38c7ea 100644 --- a/lapack-netlib/SRC/sposvx.f +++ b/lapack-netlib/SRC/sposvx.f @@ -298,8 +298,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realPOsolve * * ===================================================================== @@ -307,10 +305,9 @@ $ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, $ IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/sposvxx.f b/lapack-netlib/SRC/sposvxx.f index fa2c0d3f3..08adf1d58 100644 --- a/lapack-netlib/SRC/sposvxx.f +++ b/lapack-netlib/SRC/sposvxx.f @@ -487,8 +487,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realPOsolve * * ===================================================================== @@ -497,10 +495,9 @@ $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/spotf2.f b/lapack-netlib/SRC/spotf2.f index 4af49997a..5b3504834 100644 --- a/lapack-netlib/SRC/spotf2.f +++ b/lapack-netlib/SRC/spotf2.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== SUBROUTINE SPOTF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spotrf.f b/lapack-netlib/SRC/spotrf.f index 968365c9a..5d5771c86 100644 --- a/lapack-netlib/SRC/spotrf.f +++ b/lapack-netlib/SRC/spotrf.f @@ -100,17 +100,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== SUBROUTINE SPOTRF( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spotrf2.f b/lapack-netlib/SRC/spotrf2.f index 474bd39a8..ae0484ce1 100644 --- a/lapack-netlib/SRC/spotrf2.f +++ b/lapack-netlib/SRC/spotrf2.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realPOcomputational * * ===================================================================== RECURSIVE SUBROUTINE SPOTRF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spotri.f b/lapack-netlib/SRC/spotri.f index bbd504ca2..5e9944847 100644 --- a/lapack-netlib/SRC/spotri.f +++ b/lapack-netlib/SRC/spotri.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== SUBROUTINE SPOTRI( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spotrs.f b/lapack-netlib/SRC/spotrs.f index 7b2175530..6bd662a52 100644 --- a/lapack-netlib/SRC/spotrs.f +++ b/lapack-netlib/SRC/spotrs.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPOcomputational * * ===================================================================== SUBROUTINE SPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sppcon.f b/lapack-netlib/SRC/sppcon.f index 565b6eaff..333520ea3 100644 --- a/lapack-netlib/SRC/sppcon.f +++ b/lapack-netlib/SRC/sppcon.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPPCON( UPLO, N, AP, ANORM, RCOND, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sppequ.f b/lapack-netlib/SRC/sppequ.f index 2b30d333b..71ed8c0e7 100644 --- a/lapack-netlib/SRC/sppequ.f +++ b/lapack-netlib/SRC/sppequ.f @@ -109,17 +109,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spprfs.f b/lapack-netlib/SRC/spprfs.f index 760620e0a..5fa8fe2af 100644 --- a/lapack-netlib/SRC/spprfs.f +++ b/lapack-netlib/SRC/spprfs.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, FERR, $ BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sppsv.f b/lapack-netlib/SRC/sppsv.f index d92c25fc1..2d3fb3d91 100644 --- a/lapack-netlib/SRC/sppsv.f +++ b/lapack-netlib/SRC/sppsv.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERsolve * *> \par Further Details: @@ -144,10 +142,9 @@ * ===================================================================== SUBROUTINE SPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sppsvx.f b/lapack-netlib/SRC/sppsvx.f index a4ac14942..7d71efcd5 100644 --- a/lapack-netlib/SRC/sppsvx.f +++ b/lapack-netlib/SRC/sppsvx.f @@ -283,8 +283,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realOTHERsolve * *> \par Further Details: @@ -311,10 +309,9 @@ SUBROUTINE SPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, $ X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/spptrf.f b/lapack-netlib/SRC/spptrf.f index 1134a069d..0f90399cc 100644 --- a/lapack-netlib/SRC/spptrf.f +++ b/lapack-netlib/SRC/spptrf.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -119,10 +117,9 @@ * ===================================================================== SUBROUTINE SPPTRF( UPLO, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spptri.f b/lapack-netlib/SRC/spptri.f index 98240789b..8d2204bae 100644 --- a/lapack-netlib/SRC/spptri.f +++ b/lapack-netlib/SRC/spptri.f @@ -86,17 +86,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPPTRI( UPLO, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spptrs.f b/lapack-netlib/SRC/spptrs.f index 7eb48eed9..ac3379731 100644 --- a/lapack-netlib/SRC/spptrs.f +++ b/lapack-netlib/SRC/spptrs.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/spstf2.f b/lapack-netlib/SRC/spstf2.f index 4d1506557..efd58a3e6 100644 --- a/lapack-netlib/SRC/spstf2.f +++ b/lapack-netlib/SRC/spstf2.f @@ -134,17 +134,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL TOL diff --git a/lapack-netlib/SRC/spstrf.f b/lapack-netlib/SRC/spstrf.f index f9bc4de08..70ec9484a 100644 --- a/lapack-netlib/SRC/spstrf.f +++ b/lapack-netlib/SRC/spstrf.f @@ -134,17 +134,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL TOL diff --git a/lapack-netlib/SRC/sptcon.f b/lapack-netlib/SRC/sptcon.f index fd11c1d70..1088e09e7 100644 --- a/lapack-netlib/SRC/sptcon.f +++ b/lapack-netlib/SRC/sptcon.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPTcomputational * *> \par Further Details: @@ -118,10 +116,9 @@ * ===================================================================== SUBROUTINE SPTCON( N, D, E, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/spteqr.f b/lapack-netlib/SRC/spteqr.f index be35475f3..0d6bf911b 100644 --- a/lapack-netlib/SRC/spteqr.f +++ b/lapack-netlib/SRC/spteqr.f @@ -138,17 +138,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPTcomputational * * ===================================================================== SUBROUTINE SPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/sptrfs.f b/lapack-netlib/SRC/sptrfs.f index c7789c89d..66d152b3a 100644 --- a/lapack-netlib/SRC/sptrfs.f +++ b/lapack-netlib/SRC/sptrfs.f @@ -155,18 +155,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPTcomputational * * ===================================================================== SUBROUTINE SPTRFS( N, NRHS, D, E, DF, EF, B, LDB, X, LDX, FERR, $ BERR, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, LDX, N, NRHS diff --git a/lapack-netlib/SRC/sptsv.f b/lapack-netlib/SRC/sptsv.f index 657548e47..46aadf4c3 100644 --- a/lapack-netlib/SRC/sptsv.f +++ b/lapack-netlib/SRC/sptsv.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPTsolve * * ===================================================================== SUBROUTINE SPTSV( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/sptsvx.f b/lapack-netlib/SRC/sptsvx.f index c293e547d..8dd04b054 100644 --- a/lapack-netlib/SRC/sptsvx.f +++ b/lapack-netlib/SRC/sptsvx.f @@ -220,18 +220,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPTsolve * * ===================================================================== SUBROUTINE SPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER FACT diff --git a/lapack-netlib/SRC/spttrf.f b/lapack-netlib/SRC/spttrf.f index a3b4c1ba2..2217a7338 100644 --- a/lapack-netlib/SRC/spttrf.f +++ b/lapack-netlib/SRC/spttrf.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SPTTRF( N, D, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/spttrs.f b/lapack-netlib/SRC/spttrs.f index 2a7f4755d..3b5340104 100644 --- a/lapack-netlib/SRC/spttrs.f +++ b/lapack-netlib/SRC/spttrs.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPTcomputational * * ===================================================================== SUBROUTINE SPTTRS( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/sptts2.f b/lapack-netlib/SRC/sptts2.f index ffd73b1e3..93f41d1b1 100644 --- a/lapack-netlib/SRC/sptts2.f +++ b/lapack-netlib/SRC/sptts2.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realPTcomputational * * ===================================================================== SUBROUTINE SPTTS2( N, NRHS, D, E, B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, N, NRHS diff --git a/lapack-netlib/SRC/srscl.f b/lapack-netlib/SRC/srscl.f index b5168dd88..7f2b3bc4f 100644 --- a/lapack-netlib/SRC/srscl.f +++ b/lapack-netlib/SRC/srscl.f @@ -77,17 +77,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * * ===================================================================== SUBROUTINE SRSCL( N, SA, SX, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/ssb2st_kernels.f b/lapack-netlib/SRC/ssb2st_kernels.f index 08859169b..23f77d0da 100644 --- a/lapack-netlib/SRC/ssb2st_kernels.f +++ b/lapack-netlib/SRC/ssb2st_kernels.f @@ -128,8 +128,6 @@ *> \verbatim *> WORK is REAL array. Workspace of size nb. *> \endverbatim -*> @param[in] n -*> The order of the matrix A. *> *> *> \par Further Details: @@ -173,10 +171,9 @@ * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO @@ -375,6 +372,6 @@ * RETURN * -* END OF SSB2ST_KERNELS +* End of SSB2ST_KERNELS * END diff --git a/lapack-netlib/SRC/ssbev.f b/lapack-netlib/SRC/ssbev.f index 78fa2ccd2..d4cf6c08f 100644 --- a/lapack-netlib/SRC/ssbev.f +++ b/lapack-netlib/SRC/ssbev.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SSBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssbev_2stage.f b/lapack-netlib/SRC/ssbev_2stage.f index 542fa8d8b..5752c1ecc 100644 --- a/lapack-netlib/SRC/ssbev_2stage.f +++ b/lapack-netlib/SRC/ssbev_2stage.f @@ -164,8 +164,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realOTHEReigen * *> \par Further Details: @@ -206,10 +204,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssbevd.f b/lapack-netlib/SRC/ssbevd.f index 21fd78ec8..bcf14ce85 100644 --- a/lapack-netlib/SRC/ssbevd.f +++ b/lapack-netlib/SRC/ssbevd.f @@ -185,18 +185,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SSBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssbevd_2stage.f b/lapack-netlib/SRC/ssbevd_2stage.f index 84add8440..9687ee024 100644 --- a/lapack-netlib/SRC/ssbevd_2stage.f +++ b/lapack-netlib/SRC/ssbevd_2stage.f @@ -194,8 +194,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realOTHEReigen * *> \par Further Details: @@ -236,10 +234,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssbevx.f b/lapack-netlib/SRC/ssbevx.f index 7eccf611a..313d29e12 100644 --- a/lapack-netlib/SRC/ssbevx.f +++ b/lapack-netlib/SRC/ssbevx.f @@ -256,8 +256,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== @@ -265,10 +263,9 @@ $ VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, $ IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ssbevx_2stage.f b/lapack-netlib/SRC/ssbevx_2stage.f index 5962e7827..224b676b7 100644 --- a/lapack-netlib/SRC/ssbevx_2stage.f +++ b/lapack-netlib/SRC/ssbevx_2stage.f @@ -281,8 +281,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHEReigen * *> \par Further Details: @@ -324,10 +322,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ssbgst.f b/lapack-netlib/SRC/ssbgst.f index cf5d51244..9faea00dc 100644 --- a/lapack-netlib/SRC/ssbgst.f +++ b/lapack-netlib/SRC/ssbgst.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SSBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, $ LDX, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, VECT diff --git a/lapack-netlib/SRC/ssbgv.f b/lapack-netlib/SRC/ssbgv.f index 078fb2a2d..0a7f73e0a 100644 --- a/lapack-netlib/SRC/ssbgv.f +++ b/lapack-netlib/SRC/ssbgv.f @@ -169,18 +169,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SSBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, $ LDZ, WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssbgvd.f b/lapack-netlib/SRC/ssbgvd.f index 0b58760b7..6dd1fe952 100644 --- a/lapack-netlib/SRC/ssbgvd.f +++ b/lapack-netlib/SRC/ssbgvd.f @@ -214,8 +214,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHEReigen * *> \par Contributors: @@ -227,10 +225,9 @@ SUBROUTINE SSBGVD( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, $ Z, LDZ, WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssbgvx.f b/lapack-netlib/SRC/ssbgvx.f index 22f96729e..64a67534e 100644 --- a/lapack-netlib/SRC/ssbgvx.f +++ b/lapack-netlib/SRC/ssbgvx.f @@ -280,8 +280,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHEReigen * *> \par Contributors: @@ -294,10 +292,9 @@ $ LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, $ LDZ, WORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ssbtrd.f b/lapack-netlib/SRC/ssbtrd.f index 1a016f677..f0d172035 100644 --- a/lapack-netlib/SRC/ssbtrd.f +++ b/lapack-netlib/SRC/ssbtrd.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -163,10 +161,9 @@ SUBROUTINE SSBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, VECT diff --git a/lapack-netlib/SRC/ssfrk.f b/lapack-netlib/SRC/ssfrk.f index 6dc50fee3..ff477fc4c 100644 --- a/lapack-netlib/SRC/ssfrk.f +++ b/lapack-netlib/SRC/ssfrk.f @@ -158,18 +158,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SSFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, $ C ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. REAL ALPHA, BETA diff --git a/lapack-netlib/SRC/sspcon.f b/lapack-netlib/SRC/sspcon.f index 9f79b01e3..a9ac881d3 100644 --- a/lapack-netlib/SRC/sspcon.f +++ b/lapack-netlib/SRC/sspcon.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sspev.f b/lapack-netlib/SRC/sspev.f index ff9ac1d55..8fb6a2d9d 100644 --- a/lapack-netlib/SRC/sspev.f +++ b/lapack-netlib/SRC/sspev.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SSPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/sspevd.f b/lapack-netlib/SRC/sspevd.f index 1f407c3c7..56329da34 100644 --- a/lapack-netlib/SRC/sspevd.f +++ b/lapack-netlib/SRC/sspevd.f @@ -170,18 +170,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SSPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/sspevx.f b/lapack-netlib/SRC/sspevx.f index 51d4dda14..e33712d58 100644 --- a/lapack-netlib/SRC/sspevx.f +++ b/lapack-netlib/SRC/sspevx.f @@ -225,8 +225,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== @@ -234,10 +232,9 @@ $ ABSTOL, M, W, Z, LDZ, WORK, IWORK, IFAIL, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/sspgst.f b/lapack-netlib/SRC/sspgst.f index 1e539e915..5e2e873c6 100644 --- a/lapack-netlib/SRC/sspgst.f +++ b/lapack-netlib/SRC/sspgst.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SSPGST( ITYPE, UPLO, N, AP, BP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sspgv.f b/lapack-netlib/SRC/sspgv.f index 3f20f62b6..c73e94e60 100644 --- a/lapack-netlib/SRC/sspgv.f +++ b/lapack-netlib/SRC/sspgv.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SSPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/sspgvd.f b/lapack-netlib/SRC/sspgvd.f index f840d7856..9db8de08c 100644 --- a/lapack-netlib/SRC/sspgvd.f +++ b/lapack-netlib/SRC/sspgvd.f @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHEReigen * *> \par Contributors: @@ -210,10 +208,9 @@ SUBROUTINE SSPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/sspgvx.f b/lapack-netlib/SRC/sspgvx.f index ce14b9641..de581543a 100644 --- a/lapack-netlib/SRC/sspgvx.f +++ b/lapack-netlib/SRC/sspgvx.f @@ -258,8 +258,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHEReigen * *> \par Contributors: @@ -272,10 +270,9 @@ $ IL, IU, ABSTOL, M, W, Z, LDZ, WORK, IWORK, $ IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ssprfs.f b/lapack-netlib/SRC/ssprfs.f index 862dbf357..6f105bb13 100644 --- a/lapack-netlib/SRC/ssprfs.f +++ b/lapack-netlib/SRC/ssprfs.f @@ -171,18 +171,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, $ FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sspsv.f b/lapack-netlib/SRC/sspsv.f index 1685af722..7feafd35b 100644 --- a/lapack-netlib/SRC/sspsv.f +++ b/lapack-netlib/SRC/sspsv.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE SSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sspsvx.f b/lapack-netlib/SRC/sspsvx.f index 52819b139..3a24bc023 100644 --- a/lapack-netlib/SRC/sspsvx.f +++ b/lapack-netlib/SRC/sspsvx.f @@ -248,8 +248,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realOTHERsolve * *> \par Further Details: @@ -276,10 +274,9 @@ SUBROUTINE SSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/ssptrd.f b/lapack-netlib/SRC/ssptrd.f index eebc376d3..e9c104f28 100644 --- a/lapack-netlib/SRC/ssptrd.f +++ b/lapack-netlib/SRC/ssptrd.f @@ -111,8 +111,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -150,10 +148,9 @@ * ===================================================================== SUBROUTINE SSPTRD( UPLO, N, AP, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssptrf.f b/lapack-netlib/SRC/ssptrf.f index dc3b85553..4a25e3d07 100644 --- a/lapack-netlib/SRC/ssptrf.f +++ b/lapack-netlib/SRC/ssptrf.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -157,10 +155,9 @@ * ===================================================================== SUBROUTINE SSPTRF( UPLO, N, AP, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssptri.f b/lapack-netlib/SRC/ssptri.f index d62937bf2..ce9b971b5 100644 --- a/lapack-netlib/SRC/ssptri.f +++ b/lapack-netlib/SRC/ssptri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssptrs.f b/lapack-netlib/SRC/ssptrs.f index d1ff03c86..9a25ec9f6 100644 --- a/lapack-netlib/SRC/ssptrs.f +++ b/lapack-netlib/SRC/ssptrs.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/sstebz.f b/lapack-netlib/SRC/sstebz.f index bcac56a79..13e7cde43 100644 --- a/lapack-netlib/SRC/sstebz.f +++ b/lapack-netlib/SRC/sstebz.f @@ -264,8 +264,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== @@ -273,10 +271,9 @@ $ M, NSPLIT, W, IBLOCK, ISPLIT, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER ORDER, RANGE diff --git a/lapack-netlib/SRC/sstedc.f b/lapack-netlib/SRC/sstedc.f index 8eb43f530..925b03422 100644 --- a/lapack-netlib/SRC/sstedc.f +++ b/lapack-netlib/SRC/sstedc.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * *> \par Contributors: @@ -188,10 +186,9 @@ SUBROUTINE SSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/sstegr.f b/lapack-netlib/SRC/sstegr.f index 37ce8cdbc..2e2975fdf 100644 --- a/lapack-netlib/SRC/sstegr.f +++ b/lapack-netlib/SRC/sstegr.f @@ -249,8 +249,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -265,10 +263,9 @@ $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/sstein.f b/lapack-netlib/SRC/sstein.f index a04b3ae87..d944c0b11 100644 --- a/lapack-netlib/SRC/sstein.f +++ b/lapack-netlib/SRC/sstein.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE SSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDZ, M, N diff --git a/lapack-netlib/SRC/sstemr.f b/lapack-netlib/SRC/sstemr.f index d550f87e0..3a9bbe784 100644 --- a/lapack-netlib/SRC/sstemr.f +++ b/lapack-netlib/SRC/sstemr.f @@ -303,8 +303,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -321,10 +319,9 @@ $ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/ssteqr.f b/lapack-netlib/SRC/ssteqr.f index f776c246d..364428a0c 100644 --- a/lapack-netlib/SRC/ssteqr.f +++ b/lapack-netlib/SRC/ssteqr.f @@ -124,17 +124,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/ssterf.f b/lapack-netlib/SRC/ssterf.f index 02bf5b9f4..ec038207f 100644 --- a/lapack-netlib/SRC/ssterf.f +++ b/lapack-netlib/SRC/ssterf.f @@ -79,17 +79,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup auxOTHERcomputational * * ===================================================================== SUBROUTINE SSTERF( N, D, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/sstev.f b/lapack-netlib/SRC/sstev.f index bd62b980a..8742b8538 100644 --- a/lapack-netlib/SRC/sstev.f +++ b/lapack-netlib/SRC/sstev.f @@ -109,17 +109,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SSTEV( JOBZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ diff --git a/lapack-netlib/SRC/sstevd.f b/lapack-netlib/SRC/sstevd.f index 7e239a34d..bc5b5aaab 100644 --- a/lapack-netlib/SRC/sstevd.f +++ b/lapack-netlib/SRC/sstevd.f @@ -155,18 +155,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SSTEVD( JOBZ, N, D, E, Z, LDZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ diff --git a/lapack-netlib/SRC/sstevr.f b/lapack-netlib/SRC/sstevr.f index 16635c89b..2ab63eb3e 100644 --- a/lapack-netlib/SRC/sstevr.f +++ b/lapack-netlib/SRC/sstevr.f @@ -287,8 +287,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHEReigen * *> \par Contributors: @@ -306,10 +304,9 @@ $ M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/sstevx.f b/lapack-netlib/SRC/sstevx.f index bb7b3e5a7..570864e6e 100644 --- a/lapack-netlib/SRC/sstevx.f +++ b/lapack-netlib/SRC/sstevx.f @@ -219,18 +219,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHEReigen * * ===================================================================== SUBROUTINE SSTEVX( JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, $ M, W, Z, LDZ, WORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/ssycon.f b/lapack-netlib/SRC/ssycon.f index a0a999cf6..4ce23a214 100644 --- a/lapack-netlib/SRC/ssycon.f +++ b/lapack-netlib/SRC/ssycon.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssycon_3.f b/lapack-netlib/SRC/ssycon_3.f index f91a527f7..9f36645d7 100644 --- a/lapack-netlib/SRC/ssycon_3.f +++ b/lapack-netlib/SRC/ssycon_3.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup singleSYcomputational * *> \par Contributors: @@ -171,10 +169,9 @@ SUBROUTINE SSYCON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO @@ -280,6 +277,6 @@ * RETURN * -* End of DSYCON_3 +* End of SSYCON_3 * END diff --git a/lapack-netlib/SRC/ssycon_rook.f b/lapack-netlib/SRC/ssycon_rook.f index bd2557a74..c67b35dbc 100644 --- a/lapack-netlib/SRC/ssycon_rook.f +++ b/lapack-netlib/SRC/ssycon_rook.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * *> \par Contributors: @@ -144,10 +142,9 @@ SUBROUTINE SSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssyconv.f b/lapack-netlib/SRC/ssyconv.f index 187528afd..8b772f1f7 100644 --- a/lapack-netlib/SRC/ssyconv.f +++ b/lapack-netlib/SRC/ssyconv.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/ssyconvf.f b/lapack-netlib/SRC/ssyconvf.f index c6f08428f..6defc1f0e 100644 --- a/lapack-netlib/SRC/ssyconvf.f +++ b/lapack-netlib/SRC/ssyconvf.f @@ -38,7 +38,7 @@ *> SSYCONVF converts the factorization output format used in *> SSYTRF provided on entry in parameter A into the factorization *> output format used in SSYTRF_RK (or SSYTRF_BK) that is stored -*> on exit in parameters A and E. It also coverts in place details of +*> on exit in parameters A and E. It also converts in place details of *> the intechanges stored in IPIV from the format used in SSYTRF into *> the format used in SSYTRF_RK (or SSYTRF_BK). *> @@ -47,7 +47,7 @@ *> converts the factorization output format used in SSYTRF_RK *> (or SSYTRF_BK) provided on entry in parameters A and E into *> the factorization output format used in SSYTRF that is stored -*> on exit in parameter A. It also coverts in place details of +*> on exit in parameter A. It also converts in place details of *> the intechanges stored in IPIV from the format used in SSYTRF_RK *> (or SSYTRF_BK) into the format used in SSYTRF. *> \endverbatim @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup singleSYcomputational * *> \par Contributors: @@ -206,10 +204,9 @@ * ===================================================================== SUBROUTINE SSYCONVF( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/ssyconvf_rook.f b/lapack-netlib/SRC/ssyconvf_rook.f index a7e0d5258..c59f257bb 100644 --- a/lapack-netlib/SRC/ssyconvf_rook.f +++ b/lapack-netlib/SRC/ssyconvf_rook.f @@ -180,8 +180,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup singleSYcomputational * *> \par Contributors: @@ -197,10 +195,9 @@ * ===================================================================== SUBROUTINE SSYCONVF_ROOK( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/ssyequb.f b/lapack-netlib/SRC/ssyequb.f index deb55104a..c6efb751b 100644 --- a/lapack-netlib/SRC/ssyequb.f +++ b/lapack-netlib/SRC/ssyequb.f @@ -116,8 +116,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYcomputational * *> \par References: @@ -131,10 +129,9 @@ * ===================================================================== SUBROUTINE SSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/ssyev.f b/lapack-netlib/SRC/ssyev.f index f3cfd5a1e..03ed326b8 100644 --- a/lapack-netlib/SRC/ssyev.f +++ b/lapack-netlib/SRC/ssyev.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYeigen * * ===================================================================== SUBROUTINE SSYEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssyev_2stage.f b/lapack-netlib/SRC/ssyev_2stage.f index 5d354c1b3..a6fa30cc8 100644 --- a/lapack-netlib/SRC/ssyev_2stage.f +++ b/lapack-netlib/SRC/ssyev_2stage.f @@ -9,11 +9,11 @@ * *> \htmlonly *> Download SSYEV_2STAGE + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -143,8 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYeigen * *> \par Further Details: @@ -185,10 +183,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssyevd.f b/lapack-netlib/SRC/ssyevd.f index 3ba95ca27..8b90d9263 100644 --- a/lapack-netlib/SRC/ssyevd.f +++ b/lapack-netlib/SRC/ssyevd.f @@ -167,8 +167,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYeigen * *> \par Contributors: @@ -183,10 +181,9 @@ SUBROUTINE SSYEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssyevd_2stage.f b/lapack-netlib/SRC/ssyevd_2stage.f index 625713b85..f3fde6b4a 100644 --- a/lapack-netlib/SRC/ssyevd_2stage.f +++ b/lapack-netlib/SRC/ssyevd_2stage.f @@ -180,8 +180,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYeigen * *> \par Contributors: @@ -229,10 +227,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssyevr.f b/lapack-netlib/SRC/ssyevr.f index f24091e6f..d8e4ce3ea 100644 --- a/lapack-netlib/SRC/ssyevr.f +++ b/lapack-netlib/SRC/ssyevr.f @@ -317,8 +317,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realSYeigen * *> \par Contributors: @@ -336,10 +334,9 @@ $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ssyevr_2stage.f b/lapack-netlib/SRC/ssyevr_2stage.f index 60339cd85..8ab2844c6 100644 --- a/lapack-netlib/SRC/ssyevr_2stage.f +++ b/lapack-netlib/SRC/ssyevr_2stage.f @@ -330,8 +330,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realSYeigen * *> \par Contributors: @@ -383,10 +381,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ssyevx.f b/lapack-netlib/SRC/ssyevx.f index 7a7fac95b..11776e8c5 100644 --- a/lapack-netlib/SRC/ssyevx.f +++ b/lapack-netlib/SRC/ssyevx.f @@ -244,8 +244,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realSYeigen * * ===================================================================== @@ -253,10 +251,9 @@ $ ABSTOL, M, W, Z, LDZ, WORK, LWORK, IWORK, $ IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ssyevx_2stage.f b/lapack-netlib/SRC/ssyevx_2stage.f index 227a70bac..1a2225c87 100644 --- a/lapack-netlib/SRC/ssyevx_2stage.f +++ b/lapack-netlib/SRC/ssyevx_2stage.f @@ -259,8 +259,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realSYeigen * *> \par Further Details: @@ -302,10 +300,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ssygs2.f b/lapack-netlib/SRC/ssygs2.f index addf68121..b27b473b0 100644 --- a/lapack-netlib/SRC/ssygs2.f +++ b/lapack-netlib/SRC/ssygs2.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssygst.f b/lapack-netlib/SRC/ssygst.f index 422475a02..a517a8c12 100644 --- a/lapack-netlib/SRC/ssygst.f +++ b/lapack-netlib/SRC/ssygst.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssygv.f b/lapack-netlib/SRC/ssygv.f index 40104241a..270957fce 100644 --- a/lapack-netlib/SRC/ssygv.f +++ b/lapack-netlib/SRC/ssygv.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYeigen * * ===================================================================== SUBROUTINE SSYGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssygv_2stage.f b/lapack-netlib/SRC/ssygv_2stage.f index 7dfbbaabe..49f357d90 100644 --- a/lapack-netlib/SRC/ssygv_2stage.f +++ b/lapack-netlib/SRC/ssygv_2stage.f @@ -186,8 +186,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYeigen * *> \par Further Details: @@ -228,10 +226,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssygvd.f b/lapack-netlib/SRC/ssygvd.f index 7e28b0a34..9002df237 100644 --- a/lapack-netlib/SRC/ssygvd.f +++ b/lapack-netlib/SRC/ssygvd.f @@ -203,8 +203,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYeigen * *> \par Further Details: @@ -227,10 +225,9 @@ SUBROUTINE SSYGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/ssygvx.f b/lapack-netlib/SRC/ssygvx.f index 8a99c939f..e93da60cc 100644 --- a/lapack-netlib/SRC/ssygvx.f +++ b/lapack-netlib/SRC/ssygvx.f @@ -283,8 +283,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realSYeigen * *> \par Contributors: @@ -297,10 +295,9 @@ $ VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, $ LWORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/ssyrfs.f b/lapack-netlib/SRC/ssyrfs.f index 5745b72f5..77ffdb94d 100644 --- a/lapack-netlib/SRC/ssyrfs.f +++ b/lapack-netlib/SRC/ssyrfs.f @@ -183,18 +183,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssyrfsx.f b/lapack-netlib/SRC/ssyrfsx.f index bfb7b6005..43215902f 100644 --- a/lapack-netlib/SRC/ssyrfsx.f +++ b/lapack-netlib/SRC/ssyrfsx.f @@ -392,8 +392,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realSYcomputational * * ===================================================================== @@ -402,10 +400,9 @@ $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/ssysv.f b/lapack-netlib/SRC/ssysv.f index e27e5fc83..5f4062e9a 100644 --- a/lapack-netlib/SRC/ssysv.f +++ b/lapack-netlib/SRC/ssysv.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYsolve * * ===================================================================== SUBROUTINE SSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssysv_aa.f b/lapack-netlib/SRC/ssysv_aa.f index 7e58d1e75..5661332c5 100644 --- a/lapack-netlib/SRC/ssysv_aa.f +++ b/lapack-netlib/SRC/ssysv_aa.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYsolve * * ===================================================================== SUBROUTINE SSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssysv_aa_2stage.f b/lapack-netlib/SRC/ssysv_aa_2stage.f index 5e2e0e340..b9eac8342 100644 --- a/lapack-netlib/SRC/ssysv_aa_2stage.f +++ b/lapack-netlib/SRC/ssysv_aa_2stage.f @@ -178,8 +178,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYsolve * * ===================================================================== @@ -187,10 +185,9 @@ $ IPIV, IPIV2, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/ssysv_rk.f b/lapack-netlib/SRC/ssysv_rk.f index 950389325..9e0487623 100644 --- a/lapack-netlib/SRC/ssysv_rk.f +++ b/lapack-netlib/SRC/ssysv_rk.f @@ -205,8 +205,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup singleSYsolve * *> \par Contributors: @@ -228,10 +226,9 @@ SUBROUTINE SSYSV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssysv_rook.f b/lapack-netlib/SRC/ssysv_rook.f index 2829f5981..b4da1101c 100644 --- a/lapack-netlib/SRC/ssysv_rook.f +++ b/lapack-netlib/SRC/ssysv_rook.f @@ -181,8 +181,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realSYsolve * *> \par Contributors: @@ -204,10 +202,9 @@ SUBROUTINE SSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssysvx.f b/lapack-netlib/SRC/ssysvx.f index 3f0983747..b19ce2641 100644 --- a/lapack-netlib/SRC/ssysvx.f +++ b/lapack-netlib/SRC/ssysvx.f @@ -275,8 +275,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realSYsolve * * ===================================================================== @@ -284,10 +282,9 @@ $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/ssysvxx.f b/lapack-netlib/SRC/ssysvxx.f index e2be0128b..e0a869e81 100644 --- a/lapack-netlib/SRC/ssysvxx.f +++ b/lapack-netlib/SRC/ssysvxx.f @@ -498,8 +498,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYsolve * * ===================================================================== @@ -508,10 +506,9 @@ $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/ssyswapr.f b/lapack-netlib/SRC/ssyswapr.f index 17ce4dbd9..5e4265d7a 100644 --- a/lapack-netlib/SRC/ssyswapr.f +++ b/lapack-netlib/SRC/ssyswapr.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYauxiliary * * ===================================================================== SUBROUTINE SSYSWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytd2.f b/lapack-netlib/SRC/ssytd2.f index f6d327ccb..8d5b3858f 100644 --- a/lapack-netlib/SRC/ssytd2.f +++ b/lapack-netlib/SRC/ssytd2.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * *> \par Further Details: @@ -173,10 +171,9 @@ * ===================================================================== SUBROUTINE SSYTD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytf2.f b/lapack-netlib/SRC/ssytf2.f index 9e31cbb46..1e8087996 100644 --- a/lapack-netlib/SRC/ssytf2.f +++ b/lapack-netlib/SRC/ssytf2.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * *> \par Further Details: @@ -195,10 +193,9 @@ * ===================================================================== SUBROUTINE SSYTF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytf2_rk.f b/lapack-netlib/SRC/ssytf2_rk.f index 400e48353..51130acd3 100644 --- a/lapack-netlib/SRC/ssytf2_rk.f +++ b/lapack-netlib/SRC/ssytf2_rk.f @@ -208,8 +208,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup singleSYcomputational * *> \par Further Details: @@ -241,10 +239,9 @@ * ===================================================================== SUBROUTINE SSYTF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytf2_rook.f b/lapack-netlib/SRC/ssytf2_rook.f index 270530d79..34dc12c73 100644 --- a/lapack-netlib/SRC/ssytf2_rook.f +++ b/lapack-netlib/SRC/ssytf2_rook.f @@ -129,8 +129,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup realSYcomputational * *> \par Further Details: @@ -194,10 +192,9 @@ * ===================================================================== SUBROUTINE SSYTF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytrd.f b/lapack-netlib/SRC/ssytrd.f index ebfaba780..f09ad9ab4 100644 --- a/lapack-netlib/SRC/ssytrd.f +++ b/lapack-netlib/SRC/ssytrd.f @@ -139,8 +139,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * *> \par Further Details: @@ -192,10 +190,9 @@ * ===================================================================== SUBROUTINE SSYTRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytrd_2stage.f b/lapack-netlib/SRC/ssytrd_2stage.f index d2502f483..5d70ae0d4 100644 --- a/lapack-netlib/SRC/ssytrd_2stage.f +++ b/lapack-netlib/SRC/ssytrd_2stage.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYcomputational * *> \par Further Details: @@ -226,10 +224,9 @@ * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER VECT, UPLO diff --git a/lapack-netlib/SRC/ssytrd_sb2st.F b/lapack-netlib/SRC/ssytrd_sb2st.F index 1d8c9f5c5..faeeff5f4 100644 --- a/lapack-netlib/SRC/ssytrd_sb2st.F +++ b/lapack-netlib/SRC/ssytrd_sb2st.F @@ -7,11 +7,11 @@ * *> \htmlonly *> Download SSYTRD_SB2ST + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -188,8 +188,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup real16OTHERcomputational * *> \par Further Details: @@ -236,10 +234,9 @@ * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER STAGE1, UPLO, VECT @@ -392,7 +389,7 @@ * For that, for real precision just copy the diag and offdiag * to D and E while for the COMPLEX case the bulge chasing is * performed to convert the hermetian tridiagonal to symmetric -* tridiagonal. A simpler coversion formula might be used, but then +* tridiagonal. A simpler conversion formula might be used, but then * updating the Q matrix will be required and based if Q is generated * or not this might complicate the story. * diff --git a/lapack-netlib/SRC/ssytrd_sy2sb.f b/lapack-netlib/SRC/ssytrd_sy2sb.f index 98169dc00..2c92cd14a 100644 --- a/lapack-netlib/SRC/ssytrd_sy2sb.f +++ b/lapack-netlib/SRC/ssytrd_sy2sb.f @@ -9,11 +9,11 @@ * *> \htmlonly *> Download SSYTRD_SY2SB + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYcomputational * *> \par Further Details: @@ -245,10 +243,9 @@ * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytrf.f b/lapack-netlib/SRC/ssytrf.f index ae4550f28..d188589b9 100644 --- a/lapack-netlib/SRC/ssytrf.f +++ b/lapack-netlib/SRC/ssytrf.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * *> \par Further Details: @@ -182,10 +180,9 @@ * ===================================================================== SUBROUTINE SSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytrf_aa.f b/lapack-netlib/SRC/ssytrf_aa.f index 7f428561c..13e849cdc 100644 --- a/lapack-netlib/SRC/ssytrf_aa.f +++ b/lapack-netlib/SRC/ssytrf_aa.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * @@ -460,6 +457,7 @@ END IF * 20 CONTINUE + WORK( 1 ) = LWKOPT RETURN * * End of SSYTRF_AA diff --git a/lapack-netlib/SRC/ssytrf_aa_2stage.f b/lapack-netlib/SRC/ssytrf_aa_2stage.f index 03690815b..94b3aa4b5 100644 --- a/lapack-netlib/SRC/ssytrf_aa_2stage.f +++ b/lapack-netlib/SRC/ssytrf_aa_2stage.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRF_AA_2STAGE( UPLO, N, A, LDA, TB, LTB, IPIV, $ IPIV2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/ssytrf_rk.f b/lapack-netlib/SRC/ssytrf_rk.f index f4221e1e0..ec84fcb1b 100644 --- a/lapack-netlib/SRC/ssytrf_rk.f +++ b/lapack-netlib/SRC/ssytrf_rk.f @@ -229,8 +229,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup singleSYcomputational * *> \par Further Details: @@ -259,10 +257,9 @@ SUBROUTINE SSYTRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytrf_rook.f b/lapack-netlib/SRC/ssytrf_rook.f index 534a48e00..653289e2b 100644 --- a/lapack-netlib/SRC/ssytrf_rook.f +++ b/lapack-netlib/SRC/ssytrf_rook.f @@ -146,8 +146,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realSYcomputational * *> \par Further Details: @@ -208,10 +206,9 @@ * ===================================================================== SUBROUTINE SSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytri.f b/lapack-netlib/SRC/ssytri.f index 31aa2dd14..d02f3afaf 100644 --- a/lapack-netlib/SRC/ssytri.f +++ b/lapack-netlib/SRC/ssytri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytri2.f b/lapack-netlib/SRC/ssytri2.f index 897116c23..49f6cad65 100644 --- a/lapack-netlib/SRC/ssytri2.f +++ b/lapack-netlib/SRC/ssytri2.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytri2x.f b/lapack-netlib/SRC/ssytri2x.f index 9aa567fd7..57672eec2 100644 --- a/lapack-netlib/SRC/ssytri2x.f +++ b/lapack-netlib/SRC/ssytri2x.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytri_3.f b/lapack-netlib/SRC/ssytri_3.f index a7d8fe7e8..58d5df92a 100644 --- a/lapack-netlib/SRC/ssytri_3.f +++ b/lapack-netlib/SRC/ssytri_3.f @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup singleSYcomputational * *> \par Contributors: @@ -170,10 +168,9 @@ SUBROUTINE SSYTRI_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytri_3x.f b/lapack-netlib/SRC/ssytri_3x.f index a2b011f5f..330b83297 100644 --- a/lapack-netlib/SRC/ssytri_3x.f +++ b/lapack-netlib/SRC/ssytri_3x.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup singleSYcomputational * *> \par Contributors: @@ -159,10 +157,9 @@ * ===================================================================== SUBROUTINE SSYTRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytri_rook.f b/lapack-netlib/SRC/ssytri_rook.f index 01e4ea1ce..d78fe7307 100644 --- a/lapack-netlib/SRC/ssytri_rook.f +++ b/lapack-netlib/SRC/ssytri_rook.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realSYcomputational * *> \par Contributors: @@ -129,10 +127,9 @@ * ===================================================================== SUBROUTINE SSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytrs.f b/lapack-netlib/SRC/ssytrs.f index 167851adb..344949a99 100644 --- a/lapack-netlib/SRC/ssytrs.f +++ b/lapack-netlib/SRC/ssytrs.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytrs2.f b/lapack-netlib/SRC/ssytrs2.f index 0a1870b20..c8346d83b 100644 --- a/lapack-netlib/SRC/ssytrs2.f +++ b/lapack-netlib/SRC/ssytrs2.f @@ -124,18 +124,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytrs_3.f b/lapack-netlib/SRC/ssytrs_3.f index 4e9881927..9ad581336 100644 --- a/lapack-netlib/SRC/ssytrs_3.f +++ b/lapack-netlib/SRC/ssytrs_3.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup singleSYcomputational * *> \par Contributors: @@ -165,10 +163,9 @@ SUBROUTINE SSYTRS_3( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ssytrs_aa.f b/lapack-netlib/SRC/ssytrs_aa.f index ed4377ae7..3cfa2a206 100644 --- a/lapack-netlib/SRC/ssytrs_aa.f +++ b/lapack-netlib/SRC/ssytrs_aa.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/ssytrs_aa_2stage.f b/lapack-netlib/SRC/ssytrs_aa_2stage.f index cf2da529d..12912bc31 100644 --- a/lapack-netlib/SRC/ssytrs_aa_2stage.f +++ b/lapack-netlib/SRC/ssytrs_aa_2stage.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE SSYTRS_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, $ IPIV, IPIV2, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/ssytrs_rook.f b/lapack-netlib/SRC/ssytrs_rook.f index ba2428b51..eabc84f44 100644 --- a/lapack-netlib/SRC/ssytrs_rook.f +++ b/lapack-netlib/SRC/ssytrs_rook.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realSYcomputational * *> \par Contributors: @@ -136,10 +134,9 @@ SUBROUTINE SSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/stbcon.f b/lapack-netlib/SRC/stbcon.f index e11c895e1..9ce694aa1 100644 --- a/lapack-netlib/SRC/stbcon.f +++ b/lapack-netlib/SRC/stbcon.f @@ -135,18 +135,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/stbrfs.f b/lapack-netlib/SRC/stbrfs.f index 85cd312b5..6ccb35e39 100644 --- a/lapack-netlib/SRC/stbrfs.f +++ b/lapack-netlib/SRC/stbrfs.f @@ -180,18 +180,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/stbtrs.f b/lapack-netlib/SRC/stbtrs.f index 4955b7cfc..30219e703 100644 --- a/lapack-netlib/SRC/stbtrs.f +++ b/lapack-netlib/SRC/stbtrs.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/stfsm.f b/lapack-netlib/SRC/stfsm.f index a631cc477..fd4e2df80 100644 --- a/lapack-netlib/SRC/stfsm.f +++ b/lapack-netlib/SRC/stfsm.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -277,10 +275,9 @@ SUBROUTINE STFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, $ B, LDB ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO diff --git a/lapack-netlib/SRC/stftri.f b/lapack-netlib/SRC/stftri.f index fa3099d15..d02a85b1e 100644 --- a/lapack-netlib/SRC/stftri.f +++ b/lapack-netlib/SRC/stftri.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -201,10 +199,9 @@ * ===================================================================== SUBROUTINE STFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO, DIAG diff --git a/lapack-netlib/SRC/stfttp.f b/lapack-netlib/SRC/stfttp.f index 52e581dda..1ae028ced 100644 --- a/lapack-netlib/SRC/stfttp.f +++ b/lapack-netlib/SRC/stfttp.f @@ -93,8 +93,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -187,10 +185,9 @@ * ===================================================================== SUBROUTINE STFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/stfttr.f b/lapack-netlib/SRC/stfttr.f index c7cf06628..219da39cd 100644 --- a/lapack-netlib/SRC/stfttr.f +++ b/lapack-netlib/SRC/stfttr.f @@ -102,8 +102,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -196,10 +194,9 @@ * ===================================================================== SUBROUTINE STFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/stgevc.f b/lapack-netlib/SRC/stgevc.f index 03d4b7193..15fc88c4b 100644 --- a/lapack-netlib/SRC/stgevc.f +++ b/lapack-netlib/SRC/stgevc.f @@ -228,8 +228,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realGEcomputational * *> \par Further Details: @@ -295,10 +293,9 @@ SUBROUTINE STGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, $ LDVL, VR, LDVR, MM, M, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/stgex2.f b/lapack-netlib/SRC/stgex2.f index 1ae9563c7..d61da2327 100644 --- a/lapack-netlib/SRC/stgex2.f +++ b/lapack-netlib/SRC/stgex2.f @@ -181,8 +181,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEauxiliary * *> \par Further Details: @@ -221,10 +219,9 @@ SUBROUTINE STGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, J1, N1, N2, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ @@ -252,8 +249,10 @@ * .. Local Scalars .. LOGICAL STRONG, WEAK INTEGER I, IDUM, LINFO, M - REAL BQRA21, BRQA21, DDUM, DNORM, DSCALE, DSUM, EPS, - $ F, G, SA, SB, SCALE, SMLNUM, SS, THRESH, WS + REAL BQRA21, BRQA21, DDUM, DNORMA, DNORMB, + $ DSCALE, + $ DSUM, EPS, F, G, SA, SB, SCALE, SMLNUM, + $ THRESHA, THRESHB * .. * .. Local Arrays .. INTEGER IWORK( LDST ) @@ -310,9 +309,12 @@ DSUM = ONE CALL SLACPY( 'Full', M, M, S, LDST, WORK, M ) CALL SLASSQ( M*M, WORK, 1, DSCALE, DSUM ) + DNORMA = DSCALE*SQRT( DSUM ) + DSCALE = ZERO + DSUM = ONE CALL SLACPY( 'Full', M, M, T, LDST, WORK, M ) CALL SLASSQ( M*M, WORK, 1, DSCALE, DSUM ) - DNORM = DSCALE*SQRT( DSUM ) + DNORMB = DSCALE*SQRT( DSUM ) * * THRES has been changed from * THRESH = MAX( TEN*EPS*SA, SMLNUM ) @@ -322,7 +324,8 @@ * "Bug" reported by Ondra Kamenik, confirmed by Julie Langou, fixed by * Jim Demmel and Guillaume Revy. See forum post 1783. * - THRESH = MAX( TWENTY*EPS*DNORM, SMLNUM ) + THRESHA = MAX( TWENTY*EPS*DNORMA, SMLNUM ) + THRESHB = MAX( TWENTY*EPS*DNORMB, SMLNUM ) * IF( M.EQ.2 ) THEN * @@ -333,8 +336,8 @@ * F = S( 2, 2 )*T( 1, 1 ) - T( 2, 2 )*S( 1, 1 ) G = S( 2, 2 )*T( 1, 2 ) - T( 2, 2 )*S( 1, 2 ) - SB = ABS( T( 2, 2 ) ) - SA = ABS( S( 2, 2 ) ) + SA = ABS( S( 2, 2 ) ) * ABS( T( 1, 1 ) ) + SB = ABS( S( 1, 1 ) ) * ABS( T( 2, 2 ) ) CALL SLARTG( F, G, IR( 1, 2 ), IR( 1, 1 ), DDUM ) IR( 2, 1 ) = -IR( 1, 2 ) IR( 2, 2 ) = IR( 1, 1 ) @@ -356,18 +359,20 @@ LI( 2, 2 ) = LI( 1, 1 ) LI( 1, 2 ) = -LI( 2, 1 ) * -* Weak stability test: -* |S21| + |T21| <= O(EPS * F-norm((S, T))) +* Weak stability test: |S21| <= O(EPS F-norm((A))) +* and |T21| <= O(EPS F-norm((B))) * - WS = ABS( S( 2, 1 ) ) + ABS( T( 2, 1 ) ) - WEAK = WS.LE.THRESH + WEAK = ABS( S( 2, 1 ) ) .LE. THRESHA .AND. + $ ABS( T( 2, 1 ) ) .LE. THRESHB IF( .NOT.WEAK ) $ GO TO 70 * IF( WANDS ) THEN * * Strong stability test: -* F-norm((A-QL**T*S*QR, B-QL**T*T*QR)) <= O(EPS*F-norm((A, B))) +* F-norm((A-QL**H*S*QR)) <= O(EPS*F-norm((A))) +* and +* F-norm((B-QL**H*T*QR)) <= O(EPS*F-norm((B))) * CALL SLACPY( 'Full', M, M, A( J1, J1 ), LDA, WORK( M*M+1 ), $ M ) @@ -378,6 +383,7 @@ DSCALE = ZERO DSUM = ONE CALL SLASSQ( M*M, WORK( M*M+1 ), 1, DSCALE, DSUM ) + SA = DSCALE*SQRT( DSUM ) * CALL SLACPY( 'Full', M, M, B( J1, J1 ), LDB, WORK( M*M+1 ), $ M ) @@ -385,9 +391,11 @@ $ WORK, M ) CALL SGEMM( 'N', 'T', M, M, M, -ONE, WORK, M, IR, LDST, ONE, $ WORK( M*M+1 ), M ) + DSCALE = ZERO + DSUM = ONE CALL SLASSQ( M*M, WORK( M*M+1 ), 1, DSCALE, DSUM ) - SS = DSCALE*SQRT( DSUM ) - STRONG = SS.LE.THRESH + SB = DSCALE*SQRT( DSUM ) + STRONG = SA.LE.THRESHA .AND. SB.LE.THRESHB IF( .NOT.STRONG ) $ GO TO 70 END IF @@ -439,6 +447,8 @@ $ IR( N2+1, N1+1 ), LDST, T, LDST, T( N1+1, N1+1 ), $ LDST, LI, LDST, SCALE, DSUM, DSCALE, IWORK, IDUM, $ LINFO ) + IF( LINFO.NE.0 ) + $ GO TO 70 * * Compute orthogonal matrix QL: * @@ -538,14 +548,14 @@ * * Decide which method to use. * Weak stability test: -* F-norm(S21) <= O(EPS * F-norm((S, T))) +* F-norm(S21) <= O(EPS * F-norm((S))) * - IF( BQRA21.LE.BRQA21 .AND. BQRA21.LE.THRESH ) THEN + IF( BQRA21.LE.BRQA21 .AND. BQRA21.LE.THRESHA ) THEN CALL SLACPY( 'F', M, M, SCPY, LDST, S, LDST ) CALL SLACPY( 'F', M, M, TCPY, LDST, T, LDST ) CALL SLACPY( 'F', M, M, IRCOP, LDST, IR, LDST ) CALL SLACPY( 'F', M, M, LICOP, LDST, LI, LDST ) - ELSE IF( BRQA21.GE.THRESH ) THEN + ELSE IF( BRQA21.GE.THRESHA ) THEN GO TO 70 END IF * @@ -556,7 +566,9 @@ IF( WANDS ) THEN * * Strong stability test: -* F-norm((A-QL*S*QR**T, B-QL*T*QR**T)) <= O(EPS*F-norm((A,B))) +* F-norm((A-QL**H*S*QR)) <= O(EPS*F-norm((A))) +* and +* F-norm((B-QL**H*T*QR)) <= O(EPS*F-norm((B))) * CALL SLACPY( 'Full', M, M, A( J1, J1 ), LDA, WORK( M*M+1 ), $ M ) @@ -567,6 +579,7 @@ DSCALE = ZERO DSUM = ONE CALL SLASSQ( M*M, WORK( M*M+1 ), 1, DSCALE, DSUM ) + SA = DSCALE*SQRT( DSUM ) * CALL SLACPY( 'Full', M, M, B( J1, J1 ), LDB, WORK( M*M+1 ), $ M ) @@ -574,9 +587,11 @@ $ WORK, M ) CALL SGEMM( 'N', 'N', M, M, M, -ONE, WORK, M, IR, LDST, ONE, $ WORK( M*M+1 ), M ) + DSCALE = ZERO + DSUM = ONE CALL SLASSQ( M*M, WORK( M*M+1 ), 1, DSCALE, DSUM ) - SS = DSCALE*SQRT( DSUM ) - STRONG = ( SS.LE.THRESH ) + SB = DSCALE*SQRT( DSUM ) + STRONG = SA.LE.THRESHA .AND. SB.LE.THRESHB IF( .NOT.STRONG ) $ GO TO 70 * diff --git a/lapack-netlib/SRC/stgexc.f b/lapack-netlib/SRC/stgexc.f index 840036db7..d1ad79936 100644 --- a/lapack-netlib/SRC/stgexc.f +++ b/lapack-netlib/SRC/stgexc.f @@ -195,8 +195,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realGEcomputational * *> \par Contributors: @@ -220,10 +218,9 @@ SUBROUTINE STGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, IFST, ILST, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/lapack-netlib/SRC/stgsen.f b/lapack-netlib/SRC/stgsen.f index 5e63a9679..f1103d740 100644 --- a/lapack-netlib/SRC/stgsen.f +++ b/lapack-netlib/SRC/stgsen.f @@ -304,8 +304,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -451,10 +449,9 @@ $ ALPHAR, ALPHAI, BETA, Q, LDQ, Z, LDZ, M, PL, $ PR, DIF, WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/lapack-netlib/SRC/stgsja.f b/lapack-netlib/SRC/stgsja.f index 7324da431..5a81b7e4f 100644 --- a/lapack-netlib/SRC/stgsja.f +++ b/lapack-netlib/SRC/stgsja.f @@ -350,8 +350,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -378,10 +376,9 @@ $ LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, $ Q, LDQ, WORK, NCYCLE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/stgsna.f b/lapack-netlib/SRC/stgsna.f index 2ff38d1e9..40f822915 100644 --- a/lapack-netlib/SRC/stgsna.f +++ b/lapack-netlib/SRC/stgsna.f @@ -230,8 +230,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -381,10 +379,9 @@ $ LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/lapack-netlib/SRC/stgsy2.f b/lapack-netlib/SRC/stgsy2.f index 2814889fc..7dffbd2f7 100644 --- a/lapack-netlib/SRC/stgsy2.f +++ b/lapack-netlib/SRC/stgsy2.f @@ -259,8 +259,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYauxiliary * *> \par Contributors: @@ -274,10 +272,9 @@ $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ IWORK, PQ, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/stgsyl.f b/lapack-netlib/SRC/stgsyl.f index ff634b1de..733c8ab9c 100644 --- a/lapack-netlib/SRC/stgsyl.f +++ b/lapack-netlib/SRC/stgsyl.f @@ -261,8 +261,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * *> \par Contributors: @@ -299,10 +297,9 @@ $ LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/stpcon.f b/lapack-netlib/SRC/stpcon.f index 2814e691f..d32e99855 100644 --- a/lapack-netlib/SRC/stpcon.f +++ b/lapack-netlib/SRC/stpcon.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/stplqt.f b/lapack-netlib/SRC/stplqt.f index 8077b0863..4dd0c7ca3 100644 --- a/lapack-netlib/SRC/stplqt.f +++ b/lapack-netlib/SRC/stplqt.f @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPQRT + dependencies +*> Download STPLQT + dependencies *> *> [TGZ] *> @@ -34,7 +34,7 @@ *> *> \verbatim *> -*> DTPLQT computes a blocked LQ factorization of a real +*> STPLQT computes a blocked LQ 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. @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ SUBROUTINE STPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, MB diff --git a/lapack-netlib/SRC/stplqt2.f b/lapack-netlib/SRC/stplqt2.f index ca38a9540..7f381876f 100644 --- a/lapack-netlib/SRC/stplqt2.f +++ b/lapack-netlib/SRC/stplqt2.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ * ===================================================================== SUBROUTINE STPLQT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/lapack-netlib/SRC/stpmlqt.f b/lapack-netlib/SRC/stpmlqt.f index 8fc7823c2..6497f42bb 100644 --- a/lapack-netlib/SRC/stpmlqt.f +++ b/lapack-netlib/SRC/stpmlqt.f @@ -1,4 +1,4 @@ -*> \brief \b DTPMLQT +*> \brief \b STPMLQT * * =========== DOCUMENTATION =========== * @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPMQRT + dependencies +*> Download STPMLQT + dependencies *> *> [TGZ] *> @@ -36,7 +36,7 @@ *> *> \verbatim *> -*> DTPMQRT applies a real orthogonal matrix Q obtained from a +*> STPMLQT 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 @@ -89,7 +89,7 @@ *> MB is INTEGER *> The block size used for the storage of T. K >= MB >= 1. *> This must be the same value of MB used to generate T -*> in DTPLQT. +*> in STPLQT. *> \endverbatim *> *> \param[in] V @@ -97,22 +97,20 @@ *> V is REAL array, dimension (LDV,K) *> The i-th row must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> DTPLQT in B. See Further Details. +*> STPLQT in B. See Further Details. *> \endverbatim *> *> \param[in] LDV *> \verbatim *> LDV is INTEGER -*> The leading dimension of the array V. -*> If SIDE = 'L', LDV >= max(1,M); -*> if SIDE = 'R', LDV >= max(1,N). +*> The leading dimension of the array V. LDV >= K. *> \endverbatim *> *> \param[in] T *> \verbatim *> T is REAL array, dimension (LDT,K) *> The upper triangular factors of the block reflectors -*> as returned by DTPLQT, stored as a MB-by-K matrix. +*> as returned by STPLQT, stored as a MB-by-K matrix. *> \endverbatim *> *> \param[in] LDT @@ -135,8 +133,8 @@ *> \verbatim *> LDA is INTEGER *> The leading dimension of the array A. -*> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'L', LDA >= max(1,K); +*> If SIDE = 'R', LDA >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -175,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -216,10 +212,9 @@ SUBROUTINE STPMLQT( SIDE, TRANS, M, N, K, L, MB, V, LDV, T, LDT, $ A, LDA, B, LDB, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -242,7 +237,7 @@ EXTERNAL LSAME * .. * .. External Subroutines .. - EXTERNAL SLARFB, STPRFB, XERBLA + EXTERNAL XERBLA, STPRFB * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/lapack-netlib/SRC/stpmqrt.f b/lapack-netlib/SRC/stpmqrt.f index 6a5cbb981..c9c09fd71 100644 --- a/lapack-netlib/SRC/stpmqrt.f +++ b/lapack-netlib/SRC/stpmqrt.f @@ -175,8 +175,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -216,10 +214,9 @@ SUBROUTINE STPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, $ A, LDA, B, LDB, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/stpqrt.f b/lapack-netlib/SRC/stpqrt.f index 815d83a6f..eee0f2523 100644 --- a/lapack-netlib/SRC/stpqrt.f +++ b/lapack-netlib/SRC/stpqrt.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ SUBROUTINE STPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, NB diff --git a/lapack-netlib/SRC/stpqrt2.f b/lapack-netlib/SRC/stpqrt2.f index f23571265..281c2e8ac 100644 --- a/lapack-netlib/SRC/stpqrt2.f +++ b/lapack-netlib/SRC/stpqrt2.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -173,10 +171,9 @@ * ===================================================================== SUBROUTINE STPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/lapack-netlib/SRC/stprfb.f b/lapack-netlib/SRC/stprfb.f index fcd164183..64e8b34f5 100644 --- a/lapack-netlib/SRC/stprfb.f +++ b/lapack-netlib/SRC/stprfb.f @@ -194,8 +194,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERauxiliary * *> \par Further Details: @@ -251,10 +249,9 @@ 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.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/stprfs.f b/lapack-netlib/SRC/stprfs.f index 76ae10dc7..efe453919 100644 --- a/lapack-netlib/SRC/stprfs.f +++ b/lapack-netlib/SRC/stprfs.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/stptri.f b/lapack-netlib/SRC/stptri.f index 3acc70981..fb889ae85 100644 --- a/lapack-netlib/SRC/stptri.f +++ b/lapack-netlib/SRC/stptri.f @@ -91,8 +91,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -117,10 +115,9 @@ * ===================================================================== SUBROUTINE STPTRI( UPLO, DIAG, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/stptrs.f b/lapack-netlib/SRC/stptrs.f index fc422c5ed..d4882b3b6 100644 --- a/lapack-netlib/SRC/stptrs.f +++ b/lapack-netlib/SRC/stptrs.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/stpttf.f b/lapack-netlib/SRC/stpttf.f index 230be172f..67d0c1f1e 100644 --- a/lapack-netlib/SRC/stpttf.f +++ b/lapack-netlib/SRC/stpttf.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -186,10 +184,9 @@ * ===================================================================== SUBROUTINE STPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/stpttr.f b/lapack-netlib/SRC/stpttr.f index a58f7f016..8266a5651 100644 --- a/lapack-netlib/SRC/stpttr.f +++ b/lapack-netlib/SRC/stpttr.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STPTTR( UPLO, N, AP, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/strcon.f b/lapack-netlib/SRC/strcon.f index ec92b53ed..741f436f5 100644 --- a/lapack-netlib/SRC/strcon.f +++ b/lapack-netlib/SRC/strcon.f @@ -129,18 +129,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/strevc.f b/lapack-netlib/SRC/strevc.f index 37513a37a..af97de1d1 100644 --- a/lapack-netlib/SRC/strevc.f +++ b/lapack-netlib/SRC/strevc.f @@ -200,8 +200,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -222,10 +220,9 @@ SUBROUTINE STREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/strevc3.f b/lapack-netlib/SRC/strevc3.f index 525978071..5af57123b 100644 --- a/lapack-netlib/SRC/strevc3.f +++ b/lapack-netlib/SRC/strevc3.f @@ -215,10 +215,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* @generated from dtrevc3.f, fortran d -> s, Tue Apr 19 01:47:44 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -240,10 +236,9 @@ $ VR, LDVR, MM, M, WORK, LWORK, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/strexc.f b/lapack-netlib/SRC/strexc.f index 8aaaccd4a..e66b89222 100644 --- a/lapack-netlib/SRC/strexc.f +++ b/lapack-netlib/SRC/strexc.f @@ -140,18 +140,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ diff --git a/lapack-netlib/SRC/strrfs.f b/lapack-netlib/SRC/strrfs.f index 9b21910af..8ac2257ea 100644 --- a/lapack-netlib/SRC/strrfs.f +++ b/lapack-netlib/SRC/strrfs.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, FERR, BERR, WORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/strsen.f b/lapack-netlib/SRC/strsen.f index a52c62772..c0f75fb12 100644 --- a/lapack-netlib/SRC/strsen.f +++ b/lapack-netlib/SRC/strsen.f @@ -231,8 +231,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -314,10 +312,9 @@ SUBROUTINE STRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, WR, WI, $ M, S, SEP, WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER COMPQ, JOB diff --git a/lapack-netlib/SRC/strsna.f b/lapack-netlib/SRC/strsna.f index 1dc7fe74c..6d98ac27f 100644 --- a/lapack-netlib/SRC/strsna.f +++ b/lapack-netlib/SRC/strsna.f @@ -213,8 +213,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -265,10 +263,9 @@ $ LDVR, S, SEP, MM, M, WORK, LDWORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/lapack-netlib/SRC/strsyl.f b/lapack-netlib/SRC/strsyl.f index 029367ce6..e1f90d2c9 100644 --- a/lapack-netlib/SRC/strsyl.f +++ b/lapack-netlib/SRC/strsyl.f @@ -156,18 +156,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realSYcomputational * * ===================================================================== SUBROUTINE STRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, $ LDC, SCALE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANA, TRANB diff --git a/lapack-netlib/SRC/strti2.f b/lapack-netlib/SRC/strti2.f index e3de4a306..e2b630deb 100644 --- a/lapack-netlib/SRC/strti2.f +++ b/lapack-netlib/SRC/strti2.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STRTI2( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/strtri.f b/lapack-netlib/SRC/strtri.f index 267de1a2f..e90872f06 100644 --- a/lapack-netlib/SRC/strtri.f +++ b/lapack-netlib/SRC/strtri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STRTRI( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/strtrs.f b/lapack-netlib/SRC/strtrs.f index 9eb6e3693..07bb780ee 100644 --- a/lapack-netlib/SRC/strtrs.f +++ b/lapack-netlib/SRC/strtrs.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/strttf.f b/lapack-netlib/SRC/strttf.f index 5853be902..7ea4980a6 100644 --- a/lapack-netlib/SRC/strttf.f +++ b/lapack-netlib/SRC/strttf.f @@ -100,8 +100,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup realOTHERcomputational * *> \par Further Details: @@ -194,10 +192,9 @@ * ===================================================================== SUBROUTINE STRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/strttp.f b/lapack-netlib/SRC/strttp.f index 557ccfa46..371d21b8f 100644 --- a/lapack-netlib/SRC/strttp.f +++ b/lapack-netlib/SRC/strttp.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup realOTHERcomputational * * ===================================================================== SUBROUTINE STRTTP( UPLO, N, A, LDA, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/stzrzf.f b/lapack-netlib/SRC/stzrzf.f index 6da3c4a0e..e8cbb56b6 100644 --- a/lapack-netlib/SRC/stzrzf.f +++ b/lapack-netlib/SRC/stzrzf.f @@ -116,8 +116,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup realOTHERcomputational * *> \par Contributors: @@ -143,7 +141,7 @@ *> V = ( I 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, +*> is the output stored in A on exit from STZRZF, *> and tau(k) is the kth element of the array TAU. *> *> \endverbatim @@ -151,10 +149,9 @@ * ===================================================================== SUBROUTINE STZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/xerbla.f b/lapack-netlib/SRC/xerbla.f index 4a0350988..6b141499e 100644 --- a/lapack-netlib/SRC/xerbla.f +++ b/lapack-netlib/SRC/xerbla.f @@ -63,17 +63,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE XERBLA( SRNAME, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*(*) SRNAME diff --git a/lapack-netlib/SRC/xerbla_array.f b/lapack-netlib/SRC/xerbla_array.f index 84fe7de9d..ff0a0186b 100644 --- a/lapack-netlib/SRC/xerbla_array.f +++ b/lapack-netlib/SRC/xerbla_array.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup OTHERauxiliary * * ===================================================================== SUBROUTINE XERBLA_ARRAY( SRNAME_ARRAY, SRNAME_LEN, INFO) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER SRNAME_LEN, INFO diff --git a/lapack-netlib/SRC/zbbcsd.f b/lapack-netlib/SRC/zbbcsd.f index 4647181e2..757e98c71 100644 --- a/lapack-netlib/SRC/zbbcsd.f +++ b/lapack-netlib/SRC/zbbcsd.f @@ -322,8 +322,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== @@ -332,10 +330,9 @@ $ V2T, LDV2T, B11D, B11E, B12D, B12E, B21D, B21E, $ B22D, B22E, RWORK, LRWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, TRANS @@ -354,12 +351,13 @@ * .. Parameters .. INTEGER MAXITR PARAMETER ( MAXITR = 6 ) - DOUBLE PRECISION HUNDRED, MEIGHTH, ONE, PIOVER2, TEN, ZERO + DOUBLE PRECISION HUNDRED, MEIGHTH, ONE, TEN, ZERO PARAMETER ( HUNDRED = 100.0D0, MEIGHTH = -0.125D0, - $ ONE = 1.0D0, PIOVER2 = 1.57079632679489662D0, - $ TEN = 10.0D0, ZERO = 0.0D0 ) + $ ONE = 1.0D0, TEN = 10.0D0, ZERO = 0.0D0 ) COMPLEX*16 NEGONECOMPLEX PARAMETER ( NEGONECOMPLEX = (-1.0D0,0.0D0) ) + DOUBLE PRECISION PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210D0 ) * .. * .. Local Scalars .. LOGICAL COLMAJOR, LQUERY, RESTART11, RESTART12, diff --git a/lapack-netlib/SRC/zbdsqr.f b/lapack-netlib/SRC/zbdsqr.f index 66281bb8b..2ad6142a7 100644 --- a/lapack-netlib/SRC/zbdsqr.f +++ b/lapack-netlib/SRC/zbdsqr.f @@ -214,18 +214,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZBDSQR( UPLO, N, NCVT, NRU, NCC, D, E, VT, LDVT, U, $ LDU, C, LDC, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zcgesv.f b/lapack-netlib/SRC/zcgesv.f index b71018638..e926d4e97 100644 --- a/lapack-netlib/SRC/zcgesv.f +++ b/lapack-netlib/SRC/zcgesv.f @@ -193,18 +193,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEsolve * * ===================================================================== SUBROUTINE ZCGESV( N, NRHS, A, LDA, IPIV, B, LDB, X, LDX, WORK, $ SWORK, RWORK, ITER, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, ITER, LDA, LDB, LDX, N, NRHS @@ -443,6 +440,6 @@ * RETURN * -* End of ZCGESV. +* End of ZCGESV * END diff --git a/lapack-netlib/SRC/zcposv.f b/lapack-netlib/SRC/zcposv.f index 101d25f5d..9b1940d60 100644 --- a/lapack-netlib/SRC/zcposv.f +++ b/lapack-netlib/SRC/zcposv.f @@ -201,18 +201,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16POsolve * * ===================================================================== SUBROUTINE ZCPOSV( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, WORK, $ SWORK, RWORK, ITER, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -452,6 +449,6 @@ * RETURN * -* End of ZCPOSV. +* End of ZCPOSV * END diff --git a/lapack-netlib/SRC/zdrscl.f b/lapack-netlib/SRC/zdrscl.f index 03b87d409..9e1b2ea87 100644 --- a/lapack-netlib/SRC/zdrscl.f +++ b/lapack-netlib/SRC/zdrscl.f @@ -77,17 +77,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZDRSCL( N, SA, SX, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/zgbbrd.f b/lapack-netlib/SRC/zgbbrd.f index e29982406..0f7226065 100644 --- a/lapack-netlib/SRC/zgbbrd.f +++ b/lapack-netlib/SRC/zgbbrd.f @@ -185,18 +185,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * * ===================================================================== SUBROUTINE ZGBBRD( VECT, M, N, NCC, KL, KU, AB, LDAB, D, E, Q, $ LDQ, PT, LDPT, C, LDC, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER VECT diff --git a/lapack-netlib/SRC/zgbcon.f b/lapack-netlib/SRC/zgbcon.f index 6d7c8d829..7a10ef340 100644 --- a/lapack-netlib/SRC/zgbcon.f +++ b/lapack-netlib/SRC/zgbcon.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * * ===================================================================== SUBROUTINE ZGBCON( NORM, N, KL, KU, AB, LDAB, IPIV, ANORM, RCOND, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/zgbequ.f b/lapack-netlib/SRC/zgbequ.f index e8938855f..a8e398a15 100644 --- a/lapack-netlib/SRC/zgbequ.f +++ b/lapack-netlib/SRC/zgbequ.f @@ -146,18 +146,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * * ===================================================================== SUBROUTINE ZGBEQU( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/zgbequb.f b/lapack-netlib/SRC/zgbequb.f index 4b08ac1d4..76677fee1 100644 --- a/lapack-netlib/SRC/zgbequb.f +++ b/lapack-netlib/SRC/zgbequb.f @@ -153,18 +153,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GBcomputational * * ===================================================================== SUBROUTINE ZGBEQUB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/zgbrfs.f b/lapack-netlib/SRC/zgbrfs.f index bb7d58eb7..6c7c016da 100644 --- a/lapack-netlib/SRC/zgbrfs.f +++ b/lapack-netlib/SRC/zgbrfs.f @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * * ===================================================================== @@ -206,10 +204,9 @@ $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/zgbrfsx.f b/lapack-netlib/SRC/zgbrfsx.f index 872709899..c97038b4a 100644 --- a/lapack-netlib/SRC/zgbrfsx.f +++ b/lapack-netlib/SRC/zgbrfsx.f @@ -138,7 +138,7 @@ *> \verbatim *> AFB is COMPLEX*16 array, dimension (LDAFB,N) *> Details of the LU factorization of the band matrix A, as -*> computed by DGBTRF. U is stored as an upper triangular band +*> computed by ZGBTRF. U is stored as an upper triangular band *> matrix with KL+KU superdiagonals in rows 1 to KL+KU+1, and *> the multipliers used during the factorization are stored in *> rows KL+KU+2 to 2*KL+KU+1. @@ -153,7 +153,7 @@ *> \param[in] IPIV *> \verbatim *> IPIV is INTEGER array, dimension (N) -*> The pivot indices from DGETRF; for 1<=i<=N, row i of the +*> The pivot indices from ZGETRF; for 1<=i<=N, row i of the *> matrix was interchanged with row IPIV(i). *> \endverbatim *> @@ -208,7 +208,7 @@ *> \param[in,out] X *> \verbatim *> X is COMPLEX*16 array, dimension (LDX,NRHS) -*> On entry, the solution matrix X, as computed by DGETRS. +*> On entry, the solution matrix X, as computed by ZGETRS. *> On exit, the improved solution matrix X. *> \endverbatim *> @@ -429,8 +429,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GBcomputational * * ===================================================================== @@ -440,10 +438,9 @@ $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER TRANS, EQUED diff --git a/lapack-netlib/SRC/zgbsv.f b/lapack-netlib/SRC/zgbsv.f index 7bc4c44eb..0b6a1d19f 100644 --- a/lapack-netlib/SRC/zgbsv.f +++ b/lapack-netlib/SRC/zgbsv.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE ZGBSV( N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, LDB, N, NRHS diff --git a/lapack-netlib/SRC/zgbsvx.f b/lapack-netlib/SRC/zgbsvx.f index 0e55866ac..b6be78663 100644 --- a/lapack-netlib/SRC/zgbsvx.f +++ b/lapack-netlib/SRC/zgbsvx.f @@ -361,8 +361,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GBsolve * * ===================================================================== @@ -370,10 +368,9 @@ $ LDAFB, IPIV, EQUED, R, C, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/zgbsvxx.f b/lapack-netlib/SRC/zgbsvxx.f index 0d916fd62..f608e9c10 100644 --- a/lapack-netlib/SRC/zgbsvxx.f +++ b/lapack-netlib/SRC/zgbsvxx.f @@ -230,7 +230,7 @@ *> IPIV is INTEGER array, dimension (N) *> If FACT = 'F', then IPIV is an input argument and on entry *> contains the pivot indices from the factorization A = P*L*U -*> as computed by DGETRF; row i of the matrix was interchanged +*> as computed by ZGETRF; row i of the matrix was interchanged *> with row IPIV(i). *> *> If FACT = 'N', then IPIV is an output argument and on exit @@ -349,8 +349,8 @@ *> This also means that the solution X, estimated condition numbers, *> and error bounds could be unreliable. If factorization fails with *> 0 for the leading INFO columns of A. In DGESVX, this quantity is -*> returned in WORK(1). +*> for the leading INFO columns of A. In ZGESVX, this quantity is +*> returned in RWORK(1). *> \endverbatim *> *> \param[out] BERR @@ -549,8 +549,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GBsolve * * ===================================================================== @@ -560,10 +558,9 @@ $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS @@ -635,7 +632,7 @@ * RPVGRW = ZERO * -* Test the input parameters. PARAMS is not tested until DGERFSX. +* Test the input parameters. PARAMS is not tested until ZGERFSX. * IF( .NOT.NOFACT .AND. .NOT.EQUIL .AND. .NOT. $ LSAME( FACT, 'F' ) ) THEN diff --git a/lapack-netlib/SRC/zgbtf2.f b/lapack-netlib/SRC/zgbtf2.f index cfddec898..fbbe63247 100644 --- a/lapack-netlib/SRC/zgbtf2.f +++ b/lapack-netlib/SRC/zgbtf2.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * *> \par Further Details: @@ -145,10 +143,9 @@ * ===================================================================== SUBROUTINE ZGBTF2( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/zgbtrf.f b/lapack-netlib/SRC/zgbtrf.f index 533f5ee28..83139b091 100644 --- a/lapack-netlib/SRC/zgbtrf.f +++ b/lapack-netlib/SRC/zgbtrf.f @@ -115,8 +115,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * *> \par Further Details: @@ -144,10 +142,9 @@ * ===================================================================== SUBROUTINE ZGBTRF( M, N, KL, KU, AB, LDAB, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDAB, M, N diff --git a/lapack-netlib/SRC/zgbtrs.f b/lapack-netlib/SRC/zgbtrs.f index 8dc9746ee..4a2ba5452 100644 --- a/lapack-netlib/SRC/zgbtrs.f +++ b/lapack-netlib/SRC/zgbtrs.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * * ===================================================================== SUBROUTINE ZGBTRS( TRANS, N, KL, KU, NRHS, AB, LDAB, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/zgebak.f b/lapack-netlib/SRC/zgebak.f index 70c265e05..9ec610efb 100644 --- a/lapack-netlib/SRC/zgebak.f +++ b/lapack-netlib/SRC/zgebak.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGEBAK( JOB, SIDE, N, ILO, IHI, SCALE, M, V, LDV, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB, SIDE diff --git a/lapack-netlib/SRC/zgebal.f b/lapack-netlib/SRC/zgebal.f index 68291e2b4..d4a9e39f1 100644 --- a/lapack-netlib/SRC/zgebal.f +++ b/lapack-netlib/SRC/zgebal.f @@ -123,8 +123,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE ZGEBAL( JOB, N, A, LDA, ILO, IHI, SCALE, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/zgebd2.f b/lapack-netlib/SRC/zgebd2.f index 3afe79ec5..9a403e400 100644 --- a/lapack-netlib/SRC/zgebd2.f +++ b/lapack-netlib/SRC/zgebd2.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ * ===================================================================== SUBROUTINE ZGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N @@ -247,7 +244,7 @@ ALPHA = A( I, I ) CALL ZLARFG( M-I+1, ALPHA, A( MIN( I+1, M ), I ), 1, $ TAUQ( I ) ) - D( I ) = ALPHA + D( I ) = DBLE( ALPHA ) A( I, I ) = ONE * * Apply H(i)**H to A(i:m,i+1:n) from the left @@ -266,7 +263,7 @@ ALPHA = A( I, I+1 ) CALL ZLARFG( N-I, ALPHA, A( I, MIN( I+2, N ) ), LDA, $ TAUP( I ) ) - E( I ) = ALPHA + E( I ) = DBLE( ALPHA ) A( I, I+1 ) = ONE * * Apply G(i) to A(i+1:m,i+1:n) from the right @@ -291,7 +288,7 @@ ALPHA = A( I, I ) CALL ZLARFG( N-I+1, ALPHA, A( I, MIN( I+1, N ) ), LDA, $ TAUP( I ) ) - D( I ) = ALPHA + D( I ) = DBLE( ALPHA ) A( I, I ) = ONE * * Apply G(i) to A(i+1:m,i:n) from the right @@ -310,7 +307,7 @@ ALPHA = A( I+1, I ) CALL ZLARFG( M-I, ALPHA, A( MIN( I+2, M ), I ), 1, $ TAUQ( I ) ) - E( I ) = ALPHA + E( I ) = DBLE( ALPHA ) A( I+1, I ) = ONE * * Apply H(i)**H to A(i+1:m,i+1:n) from the left diff --git a/lapack-netlib/SRC/zgebrd.f b/lapack-netlib/SRC/zgebrd.f index bccd6b8b2..f1791c6a4 100644 --- a/lapack-netlib/SRC/zgebrd.f +++ b/lapack-netlib/SRC/zgebrd.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -205,10 +203,9 @@ SUBROUTINE ZGEBRD( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zgecon.f b/lapack-netlib/SRC/zgecon.f index 91362a977..3d3127f9d 100644 --- a/lapack-netlib/SRC/zgecon.f +++ b/lapack-netlib/SRC/zgecon.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGECON( NORM, N, A, LDA, ANORM, RCOND, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/zgeequ.f b/lapack-netlib/SRC/zgeequ.f index 13fcb2a63..9575bd652 100644 --- a/lapack-netlib/SRC/zgeequ.f +++ b/lapack-netlib/SRC/zgeequ.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGEEQU( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgeequb.f b/lapack-netlib/SRC/zgeequb.f index 1b9a3bbe8..74e1f6817 100644 --- a/lapack-netlib/SRC/zgeequb.f +++ b/lapack-netlib/SRC/zgeequb.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGEEQUB( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgees.f b/lapack-netlib/SRC/zgees.f index a33e0a148..40fe78d34 100644 --- a/lapack-netlib/SRC/zgees.f +++ b/lapack-netlib/SRC/zgees.f @@ -189,18 +189,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEeigen * * ===================================================================== SUBROUTINE ZGEES( JOBVS, SORT, SELECT, N, A, LDA, SDIM, W, VS, $ LDVS, WORK, LWORK, RWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVS, SORT @@ -285,7 +282,7 @@ * CALL ZHSEQR( 'S', JOBVS, N, 1, N, A, LDA, W, VS, LDVS, $ WORK, -1, IEVAL ) - HSWORK = WORK( 1 ) + HSWORK = DBLE( WORK( 1 ) ) * IF( .NOT.WANTVS ) THEN MAXWRK = MAX( MAXWRK, HSWORK ) diff --git a/lapack-netlib/SRC/zgeesx.f b/lapack-netlib/SRC/zgeesx.f index a5391cbb5..ca4f5c913 100644 --- a/lapack-netlib/SRC/zgeesx.f +++ b/lapack-netlib/SRC/zgeesx.f @@ -230,8 +230,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEeigen * * ===================================================================== @@ -239,10 +237,9 @@ $ VS, LDVS, RCONDE, RCONDV, WORK, LWORK, RWORK, $ BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBVS, SENSE, SORT @@ -340,7 +337,7 @@ * CALL ZHSEQR( 'S', JOBVS, N, 1, N, A, LDA, W, VS, LDVS, $ WORK, -1, IEVAL ) - HSWORK = WORK( 1 ) + HSWORK = DBLE( WORK( 1 ) ) * IF( .NOT.WANTVS ) THEN MAXWRK = MAX( MAXWRK, HSWORK ) diff --git a/lapack-netlib/SRC/zgeev.f b/lapack-netlib/SRC/zgeev.f index 1ba542587..b968900e2 100644 --- a/lapack-netlib/SRC/zgeev.f +++ b/lapack-netlib/SRC/zgeev.f @@ -169,7 +169,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 * * @precisions fortran z -> c * @@ -180,10 +179,9 @@ $ WORK, LWORK, RWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/zgeevx.f b/lapack-netlib/SRC/zgeevx.f index 323782bce..170a0fc76 100644 --- a/lapack-netlib/SRC/zgeevx.f +++ b/lapack-netlib/SRC/zgeevx.f @@ -276,7 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 * * @precisions fortran z -> c * @@ -288,10 +287,9 @@ $ RCONDV, WORK, LWORK, RWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE diff --git a/lapack-netlib/SRC/zgehd2.f b/lapack-netlib/SRC/zgehd2.f index 12bac62a3..e4d79f1b8 100644 --- a/lapack-netlib/SRC/zgehd2.f +++ b/lapack-netlib/SRC/zgehd2.f @@ -106,8 +106,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -149,10 +147,9 @@ * ===================================================================== SUBROUTINE ZGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, N diff --git a/lapack-netlib/SRC/zgehrd.f b/lapack-netlib/SRC/zgehrd.f index d8ddf2439..e18493cf9 100644 --- a/lapack-netlib/SRC/zgehrd.f +++ b/lapack-netlib/SRC/zgehrd.f @@ -120,8 +120,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -159,18 +157,17 @@ *> modified element of the upper Hessenberg matrix H, and vi denotes an *> element of the vector defining H(i). *> -*> This file is a slight modification of LAPACK-3.0's DGEHRD +*> This file is a slight modification of LAPACK-3.0's ZGEHRD *> subroutine incorporating improvements proposed by Quintana-Orti and -*> Van de Geijn (2006). (See DLAHR2.) +*> Van de Geijn (2006). (See ZLAHR2.) *> \endverbatim *> * ===================================================================== SUBROUTINE ZGEHRD( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/zgejsv.f b/lapack-netlib/SRC/zgejsv.f index 91a20416e..0c2226f9f 100644 --- a/lapack-netlib/SRC/zgejsv.f +++ b/lapack-netlib/SRC/zgejsv.f @@ -358,7 +358,7 @@ *> RWORK(3) = SCONDA is an estimate for the condition number of *> column equilibrated A. (If JOBA = 'E' or 'G') *> SCONDA is an estimate of SQRT(||(R^* * R)^(-1)||_1). -*> It is computed using SPOCON. It holds +*> It is computed using ZPOCON. It holds *> N^(-1/4) * SCONDA <= ||R^(-1)||_2 <= N^(1/4) * SCONDA *> where R is the triangular factor from the QRF of A. *> However, if R is truncated and the numerical rank is @@ -367,7 +367,7 @@ *> singular values might be lost. *> *> If full SVD is needed, the following two condition numbers are -*> useful for the analysis of the algorithm. They are provied for +*> useful for the analysis of the algorithm. They are provided for *> a developer/implementer who is familiar with the details of *> the method. *> @@ -483,8 +483,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEsing * *> \par Further Details: @@ -569,10 +567,9 @@ $ M, N, A, LDA, SVA, U, LDU, V, LDV, $ CWORK, LWORK, RWORK, LRWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. IMPLICIT NONE @@ -710,11 +707,11 @@ IF ( LQUERY ) THEN CALL ZGEQP3( M, N, A, LDA, IWORK, CDUMMY, CDUMMY, -1, $ RDUMMY, IERR ) - LWRK_ZGEQP3 = CDUMMY(1) + LWRK_ZGEQP3 = DBLE( CDUMMY(1) ) CALL ZGEQRF( N, N, A, LDA, CDUMMY, CDUMMY,-1, IERR ) - LWRK_ZGEQRF = CDUMMY(1) + LWRK_ZGEQRF = DBLE( CDUMMY(1) ) CALL ZGELQF( N, N, A, LDA, CDUMMY, CDUMMY,-1, IERR ) - LWRK_ZGELQF = CDUMMY(1) + LWRK_ZGELQF = DBLE( CDUMMY(1) ) END IF MINWRK = 2 OPTWRK = 2 @@ -730,7 +727,7 @@ IF ( LQUERY ) THEN CALL ZGESVJ( 'L', 'N', 'N', N, N, A, LDA, SVA, N, V, $ LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_ZGESVJ = CDUMMY(1) + LWRK_ZGESVJ = DBLE( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = MAX( N+LWRK_ZGEQP3, N**2+LWCON, $ N+LWRK_ZGEQRF, LWRK_ZGESVJ ) @@ -766,10 +763,10 @@ IF ( LQUERY ) THEN CALL ZGESVJ( 'L', 'U', 'N', N,N, U, LDU, SVA, N, A, $ LDA, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_ZGESVJ = CDUMMY(1) + LWRK_ZGESVJ = DBLE( CDUMMY(1) ) CALL ZUNMLQ( 'L', 'C', N, N, N, A, LDA, CDUMMY, $ V, LDV, CDUMMY, -1, IERR ) - LWRK_ZUNMLQ = CDUMMY(1) + LWRK_ZUNMLQ = DBLE( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = MAX( N+LWRK_ZGEQP3, LWCON, LWRK_ZGESVJ, $ N+LWRK_ZGELQF, 2*N+LWRK_ZGEQRF, @@ -805,10 +802,10 @@ IF ( LQUERY ) THEN CALL ZGESVJ( 'L', 'U', 'N', N,N, U, LDU, SVA, N, A, $ LDA, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_ZGESVJ = CDUMMY(1) + LWRK_ZGESVJ = DBLE( CDUMMY(1) ) CALL ZUNMQR( 'L', 'N', M, N, N, A, LDA, CDUMMY, U, $ LDU, CDUMMY, -1, IERR ) - LWRK_ZUNMQRM = CDUMMY(1) + LWRK_ZUNMQRM = DBLE( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = N + MAX( LWRK_ZGEQP3, LWCON, N+LWRK_ZGEQRF, $ LWRK_ZGESVJ, LWRK_ZUNMQRM ) @@ -867,26 +864,26 @@ IF ( LQUERY ) THEN CALL ZUNMQR( 'L', 'N', M, N, N, A, LDA, CDUMMY, U, $ LDU, CDUMMY, -1, IERR ) - LWRK_ZUNMQRM = CDUMMY(1) + LWRK_ZUNMQRM = DBLE( CDUMMY(1) ) CALL ZUNMQR( 'L', 'N', N, N, N, A, LDA, CDUMMY, U, $ LDU, CDUMMY, -1, IERR ) - LWRK_ZUNMQR = CDUMMY(1) + LWRK_ZUNMQR = DBLE( CDUMMY(1) ) IF ( .NOT. JRACC ) THEN CALL ZGEQP3( N,N, A, LDA, IWORK, CDUMMY,CDUMMY, -1, $ RDUMMY, IERR ) - LWRK_ZGEQP3N = CDUMMY(1) + LWRK_ZGEQP3N = DBLE( CDUMMY(1) ) CALL ZGESVJ( 'L', 'U', 'N', N, N, U, LDU, SVA, $ N, V, LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_ZGESVJ = CDUMMY(1) + LWRK_ZGESVJ = DBLE( CDUMMY(1) ) CALL ZGESVJ( 'U', 'U', 'N', N, N, U, LDU, SVA, $ N, V, LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_ZGESVJU = CDUMMY(1) + LWRK_ZGESVJU = DBLE( CDUMMY(1) ) CALL ZGESVJ( 'L', 'U', 'V', N, N, U, LDU, SVA, $ N, V, LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_ZGESVJV = CDUMMY(1) + LWRK_ZGESVJV = DBLE( CDUMMY(1) ) CALL ZUNMLQ( 'L', 'C', N, N, N, A, LDA, CDUMMY, $ V, LDV, CDUMMY, -1, IERR ) - LWRK_ZUNMLQ = CDUMMY(1) + LWRK_ZUNMLQ = DBLE( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = MAX( N+LWRK_ZGEQP3, N+LWCON, $ 2*N+N**2+LWCON, 2*N+LWRK_ZGEQRF, @@ -915,13 +912,13 @@ ELSE CALL ZGESVJ( 'L', 'U', 'V', N, N, U, LDU, SVA, $ N, V, LDV, CDUMMY, -1, RDUMMY, -1, IERR ) - LWRK_ZGESVJV = CDUMMY(1) + LWRK_ZGESVJV = DBLE( CDUMMY(1) ) CALL ZUNMQR( 'L', 'N', N, N, N, CDUMMY, N, CDUMMY, $ V, LDV, CDUMMY, -1, IERR ) - LWRK_ZUNMQR = CDUMMY(1) + LWRK_ZUNMQR = DBLE( CDUMMY(1) ) CALL ZUNMQR( 'L', 'N', M, N, N, A, LDA, CDUMMY, U, $ LDU, CDUMMY, -1, IERR ) - LWRK_ZUNMQRM = CDUMMY(1) + LWRK_ZUNMQRM = DBLE( CDUMMY(1) ) IF ( ERREST ) THEN OPTWRK = MAX( N+LWRK_ZGEQP3, N+LWCON, $ 2*N+LWRK_ZGEQRF, 2*N+N**2, @@ -1316,7 +1313,7 @@ * (eg speed by replacing global with restricted window pivoting, such * as in xGEQPX from TOMS # 782). Good results will be obtained using * xGEQPX with properly (!) chosen numerical parameters. -* Any improvement of ZGEQP3 improves overal performance of ZGEJSV. +* Any improvement of ZGEQP3 improves overall performance of ZGEJSV. * * A * P1 = Q1 * [ R1^* 0]^*: DO 1963 p = 1, N diff --git a/lapack-netlib/SRC/zgelq.f b/lapack-netlib/SRC/zgelq.f index beb054b87..de7c9a378 100644 --- a/lapack-netlib/SRC/zgelq.f +++ b/lapack-netlib/SRC/zgelq.f @@ -170,10 +170,9 @@ SUBROUTINE ZGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, TSIZE, LWORK diff --git a/lapack-netlib/SRC/zgelq2.f b/lapack-netlib/SRC/zgelq2.f index a825ac17b..7604556a5 100644 --- a/lapack-netlib/SRC/zgelq2.f +++ b/lapack-netlib/SRC/zgelq2.f @@ -40,7 +40,7 @@ *> where: *> *> Q is a n-by-n orthogonal matrix; -*> L is an lower-triangular m-by-m matrix; +*> L is a lower-triangular m-by-m matrix; *> 0 is a m-by-(n-m) zero matrix, if m < n. *> *> \endverbatim @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -129,10 +127,9 @@ * ===================================================================== SUBROUTINE ZGELQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgelqf.f b/lapack-netlib/SRC/zgelqf.f index 3a5e5fd4a..6c295eece 100644 --- a/lapack-netlib/SRC/zgelqf.f +++ b/lapack-netlib/SRC/zgelqf.f @@ -40,7 +40,7 @@ *> where: *> *> Q is a N-by-N orthogonal matrix; -*> L is an lower-triangular M-by-M matrix; +*> L is a lower-triangular M-by-M matrix; *> 0 is a M-by-(N-M) zero matrix, if M < N. *> *> \endverbatim @@ -118,8 +118,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -143,10 +141,9 @@ * ===================================================================== SUBROUTINE ZGELQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zgelqt.f b/lapack-netlib/SRC/zgelqt.f index 015bd3d7d..801996743 100644 --- a/lapack-netlib/SRC/zgelqt.f +++ b/lapack-netlib/SRC/zgelqt.f @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQRT + dependencies +*> Download ZGELQT + dependencies *> *> [TGZ] *> @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -139,10 +137,9 @@ * ===================================================================== SUBROUTINE ZGELQT( M, N, MB, A, LDA, T, LDT, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, MB diff --git a/lapack-netlib/SRC/zgelqt3.f b/lapack-netlib/SRC/zgelqt3.f index 45e74f43d..629a09472 100644 --- a/lapack-netlib/SRC/zgelqt3.f +++ b/lapack-netlib/SRC/zgelqt3.f @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEQRT3 + dependencies +*> Download ZGELQT3 + dependencies *> *> [TGZ] *> @@ -33,7 +33,7 @@ *> *> \verbatim *> -*> DGELQT3 recursively computes a LQ factorization of a complex M-by-N +*> ZGELQT3 recursively computes a LQ factorization of a complex M-by-N *> matrix A, using the compact WY representation of Q. *> *> Based on the algorithm of Elmroth and Gustavson, @@ -58,7 +58,7 @@ *> \param[in,out] A *> \verbatim *> A is COMPLEX*16 array, dimension (LDA,N) -*> On entry, the real M-by-N matrix A. On exit, the elements on and +*> On entry, the complex M-by-N matrix A. On exit, the elements on and *> below the diagonal contain the N-by-N lower triangular matrix L; the *> elements above the diagonal are the rows of V. See below for *> further details. @@ -100,8 +100,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * *> \par Further Details: @@ -131,10 +129,9 @@ * ===================================================================== RECURSIVE SUBROUTINE ZGELQT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT @@ -175,7 +172,7 @@ * IF( M.EQ.1 ) THEN * -* Compute Householder transform when N=1 +* Compute Householder transform when M=1 * CALL ZLARFG( N, A, A( 1, MIN( 2, N ) ), LDA, T ) T(1,1)=CONJG(T(1,1)) diff --git a/lapack-netlib/SRC/zgels.f b/lapack-netlib/SRC/zgels.f index 8e2794fa4..ebdbe0d49 100644 --- a/lapack-netlib/SRC/zgels.f +++ b/lapack-netlib/SRC/zgels.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEsolve * * ===================================================================== SUBROUTINE ZGELS( TRANS, M, N, NRHS, A, LDA, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/zgelsd.f b/lapack-netlib/SRC/zgelsd.f index 9463ccc10..01793e16c 100644 --- a/lapack-netlib/SRC/zgelsd.f +++ b/lapack-netlib/SRC/zgelsd.f @@ -210,8 +210,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEsolve * *> \par Contributors: @@ -225,10 +223,9 @@ SUBROUTINE ZGELSD( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, RWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/zgelss.f b/lapack-netlib/SRC/zgelss.f index df436b48b..e4aba6497 100644 --- a/lapack-netlib/SRC/zgelss.f +++ b/lapack-netlib/SRC/zgelss.f @@ -170,18 +170,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEsolve * * ===================================================================== SUBROUTINE ZGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, $ WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK @@ -269,11 +266,11 @@ * * Compute space needed for ZGEQRF CALL ZGEQRF( M, N, A, LDA, DUM(1), DUM(1), -1, INFO ) - LWORK_ZGEQRF=DUM(1) + LWORK_ZGEQRF = DBLE( DUM(1) ) * Compute space needed for ZUNMQR CALL ZUNMQR( 'L', 'C', M, NRHS, N, A, LDA, DUM(1), B, $ LDB, DUM(1), -1, INFO ) - LWORK_ZUNMQR=DUM(1) + LWORK_ZUNMQR = DBLE( DUM(1) ) MM = N MAXWRK = MAX( MAXWRK, N + N*ILAENV( 1, 'ZGEQRF', ' ', M, $ N, -1, -1 ) ) @@ -287,15 +284,15 @@ * Compute space needed for ZGEBRD CALL ZGEBRD( MM, N, A, LDA, S, S, DUM(1), DUM(1), DUM(1), $ -1, INFO ) - LWORK_ZGEBRD=DUM(1) + LWORK_ZGEBRD = DBLE( DUM(1) ) * Compute space needed for ZUNMBR CALL ZUNMBR( 'Q', 'L', 'C', MM, NRHS, N, A, LDA, DUM(1), $ B, LDB, DUM(1), -1, INFO ) - LWORK_ZUNMBR=DUM(1) + LWORK_ZUNMBR = DBLE( DUM(1) ) * Compute space needed for ZUNGBR CALL ZUNGBR( 'P', N, N, N, A, LDA, DUM(1), $ DUM(1), -1, INFO ) - LWORK_ZUNGBR=DUM(1) + LWORK_ZUNGBR = DBLE( DUM(1) ) * Compute total workspace needed MAXWRK = MAX( MAXWRK, 2*N + LWORK_ZGEBRD ) MAXWRK = MAX( MAXWRK, 2*N + LWORK_ZUNMBR ) @@ -313,23 +310,23 @@ * Compute space needed for ZGELQF CALL ZGELQF( M, N, A, LDA, DUM(1), DUM(1), $ -1, INFO ) - LWORK_ZGELQF=DUM(1) + LWORK_ZGELQF = DBLE( DUM(1) ) * Compute space needed for ZGEBRD CALL ZGEBRD( M, M, A, LDA, S, S, DUM(1), DUM(1), $ DUM(1), -1, INFO ) - LWORK_ZGEBRD=DUM(1) + LWORK_ZGEBRD = DBLE( DUM(1) ) * Compute space needed for ZUNMBR CALL ZUNMBR( 'Q', 'L', 'C', M, NRHS, N, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) - LWORK_ZUNMBR=DUM(1) + LWORK_ZUNMBR = DBLE( DUM(1) ) * Compute space needed for ZUNGBR CALL ZUNGBR( 'P', M, M, M, A, LDA, DUM(1), $ DUM(1), -1, INFO ) - LWORK_ZUNGBR=DUM(1) + LWORK_ZUNGBR = DBLE( DUM(1) ) * Compute space needed for ZUNMLQ CALL ZUNMLQ( 'L', 'C', N, NRHS, M, A, LDA, DUM(1), $ B, LDB, DUM(1), -1, INFO ) - LWORK_ZUNMLQ=DUM(1) + LWORK_ZUNMLQ = DBLE( DUM(1) ) * Compute total workspace needed MAXWRK = M + LWORK_ZGELQF MAXWRK = MAX( MAXWRK, 3*M + M*M + LWORK_ZGEBRD ) @@ -348,15 +345,15 @@ * Compute space needed for ZGEBRD CALL ZGEBRD( M, N, A, LDA, S, S, DUM(1), DUM(1), $ DUM(1), -1, INFO ) - LWORK_ZGEBRD=DUM(1) + LWORK_ZGEBRD = DBLE( DUM(1) ) * Compute space needed for ZUNMBR CALL ZUNMBR( 'Q', 'L', 'C', M, NRHS, M, A, LDA, $ DUM(1), B, LDB, DUM(1), -1, INFO ) - LWORK_ZUNMBR=DUM(1) + LWORK_ZUNMBR = DBLE( DUM(1) ) * Compute space needed for ZUNGBR CALL ZUNGBR( 'P', M, N, M, A, LDA, DUM(1), $ DUM(1), -1, INFO ) - LWORK_ZUNGBR=DUM(1) + LWORK_ZUNGBR = DBLE( DUM(1) ) MAXWRK = 2*M + LWORK_ZGEBRD MAXWRK = MAX( MAXWRK, 2*M + LWORK_ZUNMBR ) MAXWRK = MAX( MAXWRK, 2*M + LWORK_ZUNGBR ) diff --git a/lapack-netlib/SRC/zgelsy.f b/lapack-netlib/SRC/zgelsy.f index 79cb7936b..65fa87ae9 100644 --- a/lapack-netlib/SRC/zgelsy.f +++ b/lapack-netlib/SRC/zgelsy.f @@ -195,8 +195,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEsolve * *> \par Contributors: @@ -210,10 +208,9 @@ SUBROUTINE ZGELSY( M, N, NRHS, A, LDA, B, LDB, JPVT, RCOND, RANK, $ WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS, RANK diff --git a/lapack-netlib/SRC/zgemlq.f b/lapack-netlib/SRC/zgemlq.f index 6fb2be3d8..41cd1c059 100644 --- a/lapack-netlib/SRC/zgemlq.f +++ b/lapack-netlib/SRC/zgemlq.f @@ -35,15 +35,15 @@ *> \param[in] SIDE *> \verbatim *> SIDE is CHARACTER*1 -*> = 'L': apply Q or Q**T from the Left; -*> = 'R': apply Q or Q**T from the Right. +*> = 'L': apply Q or Q**H from the Left; +*> = 'R': apply Q or Q**H from the Right. *> \endverbatim *> *> \param[in] TRANS *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'T': Transpose, apply Q**T. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -98,7 +98,7 @@ *> \verbatim *> C is COMPLEX*16 array, dimension (LDC,N) *> On entry, the M-by-N matrix C. -*> On exit, C is overwritten by Q*C or Q**T*C or C*Q**T or C*Q. +*> On exit, C is overwritten by Q*C or Q**H*C or C*Q**H or C*Q. *> \endverbatim *> *> \param[in] LDC @@ -167,10 +167,9 @@ SUBROUTINE ZGEMLQ( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/zgemlqt.f b/lapack-netlib/SRC/zgemlqt.f index 6a4175e3c..06fe4958e 100644 --- a/lapack-netlib/SRC/zgemlqt.f +++ b/lapack-netlib/SRC/zgemlqt.f @@ -6,7 +6,7 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DGEMLQT + dependencies +*> Download ZGEMLQT + dependencies *> *> [TGZ] *> @@ -35,13 +35,13 @@ *> *> \verbatim *> -*> ZGEMLQT overwrites the general real M-by-N matrix C with +*> ZGEMLQT overwrites the general complex M-by-N matrix C with *> *> SIDE = 'L' SIDE = 'R' *> TRANS = 'N': Q C C Q *> TRANS = 'C': Q**H C C Q**H *> -*> where Q is a complex orthogonal matrix defined as the product of K +*> where Q is a complex unitary matrix defined as the product of K *> elementary reflectors: *> *> Q = H(1) H(2) . . . H(K) = I - V T V**H @@ -65,7 +65,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -94,7 +94,7 @@ *> MB is INTEGER *> The block size used for the storage of T. K >= MB >= 1. *> This must be the same value of MB used to generate T -*> in DGELQT. +*> in ZGELQT. *> \endverbatim *> *> \param[in] V @@ -104,7 +104,7 @@ *> (LDV,N) if SIDE = 'R' *> The i-th row must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> DGELQT in the first K rows of its array argument A. +*> ZGELQT in the first K rows of its array argument A. *> \endverbatim *> *> \param[in] LDV @@ -117,7 +117,7 @@ *> \verbatim *> T is COMPLEX*16 array, dimension (LDT,K) *> The upper triangular factors of the block reflectors -*> as returned by DGELQT, stored as a MB-by-K matrix. +*> as returned by ZGELQT, stored as a MB-by-K matrix. *> \endverbatim *> *> \param[in] LDT @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup doubleGEcomputational * * ===================================================================== SUBROUTINE ZGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -186,7 +183,7 @@ * .. * .. Local Scalars .. LOGICAL LEFT, RIGHT, TRAN, NOTRAN - INTEGER I, IB, LDWORK, KF + INTEGER I, IB, LDWORK, KF, Q * .. * .. External Functions .. LOGICAL LSAME @@ -210,8 +207,10 @@ * IF( LEFT ) THEN LDWORK = MAX( 1, N ) + Q = M ELSE IF ( RIGHT ) THEN LDWORK = MAX( 1, M ) + Q = N END IF IF( .NOT.LEFT .AND. .NOT.RIGHT ) THEN INFO = -1 @@ -221,7 +220,7 @@ INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 - ELSE IF( K.LT.0) THEN + ELSE IF( K.LT.0 .OR. K.GT.Q ) THEN INFO = -5 ELSE IF( MB.LT.1 .OR. (MB.GT.K .AND. K.GT.0)) THEN INFO = -6 diff --git a/lapack-netlib/SRC/zgemqr.f b/lapack-netlib/SRC/zgemqr.f index aec9321bb..c83eaff2f 100644 --- a/lapack-netlib/SRC/zgemqr.f +++ b/lapack-netlib/SRC/zgemqr.f @@ -38,15 +38,15 @@ *> \param[in] SIDE *> \verbatim *> SIDE is CHARACTER*1 -*> = 'L': apply Q or Q**T from the Left; -*> = 'R': apply Q or Q**T from the Right. +*> = 'L': apply Q or Q**H from the Left; +*> = 'R': apply Q or Q**H from the Right. *> \endverbatim *> *> \param[in] TRANS *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'T': Transpose, apply Q**T. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -100,7 +100,7 @@ *> \verbatim *> C is COMPLEX*16 array, dimension (LDC,N) *> On entry, the M-by-N matrix C. -*> On exit, C is overwritten by Q*C or Q**T*C or C*Q**T or C*Q. +*> On exit, C is overwritten by Q*C or Q**H*C or C*Q**H or C*Q. *> \endverbatim *> *> \param[in] LDC @@ -170,10 +170,9 @@ SUBROUTINE ZGEMQR( SIDE, TRANS, M, N, K, A, LDA, T, TSIZE, $ C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/zgemqrt.f b/lapack-netlib/SRC/zgemqrt.f index 7ceb77fe3..9547c33a5 100644 --- a/lapack-netlib/SRC/zgemqrt.f +++ b/lapack-netlib/SRC/zgemqrt.f @@ -65,7 +65,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -94,7 +94,7 @@ *> NB is INTEGER *> The block size used for the storage of T. K >= NB >= 1. *> This must be the same value of NB used to generate T -*> in CGEQRT. +*> in ZGEQRT. *> \endverbatim *> *> \param[in] V @@ -102,7 +102,7 @@ *> V is COMPLEX*16 array, dimension (LDV,K) *> The i-th column must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> CGEQRT in the first K columns of its array argument A. +*> ZGEQRT in the first K columns of its array argument A. *> \endverbatim *> *> \param[in] LDV @@ -117,7 +117,7 @@ *> \verbatim *> T is COMPLEX*16 array, dimension (LDT,K) *> The upper triangular factors of the block reflectors -*> as returned by CGEQRT, stored as a NB-by-N matrix. +*> as returned by ZGEQRT, stored as a NB-by-N matrix. *> \endverbatim *> *> \param[in] LDT @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGEMQRT( SIDE, TRANS, M, N, K, NB, V, LDV, T, LDT, $ C, LDC, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/zgeql2.f b/lapack-netlib/SRC/zgeql2.f index 90008c49a..35bd61d41 100644 --- a/lapack-netlib/SRC/zgeql2.f +++ b/lapack-netlib/SRC/zgeql2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -123,10 +121,9 @@ * ===================================================================== SUBROUTINE ZGEQL2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgeqlf.f b/lapack-netlib/SRC/zgeqlf.f index 82bb9d1f7..94721540c 100644 --- a/lapack-netlib/SRC/zgeqlf.f +++ b/lapack-netlib/SRC/zgeqlf.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -138,10 +136,9 @@ * ===================================================================== SUBROUTINE ZGEQLF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zgeqp3.f b/lapack-netlib/SRC/zgeqp3.f index ea069ee74..9e55fb0c9 100644 --- a/lapack-netlib/SRC/zgeqp3.f +++ b/lapack-netlib/SRC/zgeqp3.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -159,10 +157,9 @@ SUBROUTINE ZGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zgeqr.f b/lapack-netlib/SRC/zgeqr.f index cea686b98..20a80d083 100644 --- a/lapack-netlib/SRC/zgeqr.f +++ b/lapack-netlib/SRC/zgeqr.f @@ -172,10 +172,9 @@ SUBROUTINE ZGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, TSIZE, LWORK diff --git a/lapack-netlib/SRC/zgeqr2.f b/lapack-netlib/SRC/zgeqr2.f index 0384c1d42..511a81ef8 100644 --- a/lapack-netlib/SRC/zgeqr2.f +++ b/lapack-netlib/SRC/zgeqr2.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -130,10 +128,9 @@ * ===================================================================== SUBROUTINE ZGEQR2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgeqr2p.f b/lapack-netlib/SRC/zgeqr2p.f index 7bbd81da9..136d75f85 100644 --- a/lapack-netlib/SRC/zgeqr2p.f +++ b/lapack-netlib/SRC/zgeqr2p.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -134,10 +132,9 @@ * ===================================================================== SUBROUTINE ZGEQR2P( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgeqrf.f b/lapack-netlib/SRC/zgeqrf.f index 2c03ebe73..2032bf742 100644 --- a/lapack-netlib/SRC/zgeqrf.f +++ b/lapack-netlib/SRC/zgeqrf.f @@ -95,7 +95,8 @@ *> \param[in] LWORK *> \verbatim *> LWORK is INTEGER -*> The dimension of the array WORK. LWORK >= max(1,N). +*> The dimension of the array WORK. +*> LWORK >= 1, if MIN(M,N) = 0, and LWORK >= N, otherwise. *> For optimum performance LWORK >= N*NB, where NB is *> the optimal blocksize. *> @@ -120,8 +121,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -145,10 +144,9 @@ * ===================================================================== SUBROUTINE ZGEQRF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N @@ -178,10 +176,9 @@ * * Test the input arguments * + K = MIN( M, N ) INFO = 0 NB = ILAENV( 1, 'ZGEQRF', ' ', M, N, -1, -1 ) - LWKOPT = N*NB - WORK( 1 ) = LWKOPT LQUERY = ( LWORK.EQ.-1 ) IF( M.LT.0 ) THEN INFO = -1 @@ -189,19 +186,25 @@ INFO = -2 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN INFO = -4 - ELSE IF( LWORK.LT.MAX( 1, N ) .AND. .NOT.LQUERY ) THEN - INFO = -7 + ELSE IF( .NOT.LQUERY ) THEN + IF( LWORK.LE.0 .OR. ( M.GT.0 .AND. LWORK.LT.MAX( 1, N ) ) ) + $ INFO = -7 END IF IF( INFO.NE.0 ) THEN CALL XERBLA( 'ZGEQRF', -INFO ) RETURN ELSE IF( LQUERY ) THEN + IF( K.EQ.0 ) THEN + LWKOPT = 1 + ELSE + LWKOPT = N*NB + END IF + WORK( 1 ) = LWKOPT RETURN END IF * * Quick return if possible * - K = MIN( M, N ) IF( K.EQ.0 ) THEN WORK( 1 ) = 1 RETURN diff --git a/lapack-netlib/SRC/zgeqrfp.f b/lapack-netlib/SRC/zgeqrfp.f index 80ead21ca..73bcde667 100644 --- a/lapack-netlib/SRC/zgeqrfp.f +++ b/lapack-netlib/SRC/zgeqrfp.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -149,10 +147,9 @@ * ===================================================================== SUBROUTINE ZGEQRFP( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zgeqrt.f b/lapack-netlib/SRC/zgeqrt.f index 60adfec76..d54a9e6c3 100644 --- a/lapack-netlib/SRC/zgeqrt.f +++ b/lapack-netlib/SRC/zgeqrt.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -141,10 +139,9 @@ * ===================================================================== SUBROUTINE ZGEQRT( M, N, NB, A, LDA, T, LDT, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, NB diff --git a/lapack-netlib/SRC/zgeqrt3.f b/lapack-netlib/SRC/zgeqrt3.f index e0f2281a1..af6b9437d 100644 --- a/lapack-netlib/SRC/zgeqrt3.f +++ b/lapack-netlib/SRC/zgeqrt3.f @@ -100,8 +100,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -132,10 +130,9 @@ * ===================================================================== RECURSIVE SUBROUTINE ZGEQRT3( M, N, A, LDA, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, LDT diff --git a/lapack-netlib/SRC/zgerfs.f b/lapack-netlib/SRC/zgerfs.f index 4d0992240..ce5d15279 100644 --- a/lapack-netlib/SRC/zgerfs.f +++ b/lapack-netlib/SRC/zgerfs.f @@ -178,18 +178,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGERFS( TRANS, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/zgerfsx.f b/lapack-netlib/SRC/zgerfsx.f index 3af7f8b6b..2c5cf03ec 100644 --- a/lapack-netlib/SRC/zgerfsx.f +++ b/lapack-netlib/SRC/zgerfsx.f @@ -404,8 +404,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== @@ -414,10 +412,9 @@ $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS, EQUED diff --git a/lapack-netlib/SRC/zgerq2.f b/lapack-netlib/SRC/zgerq2.f index 73c1e53ed..8a987dd0a 100644 --- a/lapack-netlib/SRC/zgerq2.f +++ b/lapack-netlib/SRC/zgerq2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -123,10 +121,9 @@ * ===================================================================== SUBROUTINE ZGERQ2( M, N, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgerqf.f b/lapack-netlib/SRC/zgerqf.f index ebc7d38aa..26e901390 100644 --- a/lapack-netlib/SRC/zgerqf.f +++ b/lapack-netlib/SRC/zgerqf.f @@ -88,7 +88,8 @@ *> \param[in] LWORK *> \verbatim *> LWORK is INTEGER -*> The dimension of the array WORK. LWORK >= max(1,M). +*> The dimension of the array WORK. +*> LWORK >= 1, if MIN(M,N) = 0, and LWORK >= M, otherwise. *> For optimum performance LWORK >= M*NB, where NB is *> the optimal blocksize. *> @@ -113,8 +114,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -138,10 +137,9 @@ * ===================================================================== SUBROUTINE ZGERQF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N @@ -191,8 +189,9 @@ END IF WORK( 1 ) = LWKOPT * - IF( LWORK.LT.MAX( 1, M ) .AND. .NOT.LQUERY ) THEN - INFO = -7 + IF ( .NOT.LQUERY ) THEN + IF( LWORK.LE.0 .OR. ( N.GT.0 .AND. LWORK.LT.MAX( 1, M ) ) ) + $ INFO = -7 END IF END IF * diff --git a/lapack-netlib/SRC/zgesc2.f b/lapack-netlib/SRC/zgesc2.f index cdf15e4f4..9f40fc700 100644 --- a/lapack-netlib/SRC/zgesc2.f +++ b/lapack-netlib/SRC/zgesc2.f @@ -102,8 +102,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16GEauxiliary * *> \par Contributors: @@ -115,10 +113,9 @@ * ===================================================================== SUBROUTINE ZGESC2( N, A, LDA, RHS, IPIV, JPIV, SCALE ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER LDA, N diff --git a/lapack-netlib/SRC/zgesdd.f b/lapack-netlib/SRC/zgesdd.f index 2209f4733..30d18a3a0 100644 --- a/lapack-netlib/SRC/zgesdd.f +++ b/lapack-netlib/SRC/zgesdd.f @@ -199,9 +199,10 @@ *> \param[out] INFO *> \verbatim *> INFO is INTEGER -*> = 0: successful exit. *> < 0: if INFO = -i, the i-th argument had an illegal value. +*> = -4: if A had a NAN entry. *> > 0: The updating process of DBDSDC did not converge. +*> = 0: successful exit. *> \endverbatim * * Authors: @@ -212,8 +213,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEsing * *> \par Contributors: @@ -227,10 +226,9 @@ $ WORK, LWORK, RWORK, IWORK, INFO ) implicit none * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ @@ -282,8 +280,9 @@ * .. * .. External Functions .. LOGICAL LSAME, DISNAN - DOUBLE PRECISION DLAMCH, ZLANGE - EXTERNAL LSAME, DLAMCH, ZLANGE, DISNAN + DOUBLE PRECISION DLAMCH, ZLANGE, DROUNDUP_LWORK + EXTERNAL LSAME, DLAMCH, ZLANGE, DISNAN, + $ DROUNDUP_LWORK * .. * .. Intrinsic Functions .. INTRINSIC INT, MAX, MIN, SQRT @@ -619,7 +618,7 @@ MAXWRK = MAX( MAXWRK, MINWRK ) END IF IF( INFO.EQ.0 ) THEN - WORK( 1 ) = MAXWRK + WORK( 1 ) = DROUNDUP_LWORK( MAXWRK ) IF( LWORK.LT.MINWRK .AND. .NOT. LQUERY ) THEN INFO = -12 END IF @@ -2215,7 +2214,7 @@ * * Return optimal workspace in WORK(1) * - WORK( 1 ) = MAXWRK + WORK( 1 ) = DROUNDUP_LWORK( MAXWRK ) * RETURN * diff --git a/lapack-netlib/SRC/zgesv.f b/lapack-netlib/SRC/zgesv.f index 40dd14f06..abb9a4213 100644 --- a/lapack-netlib/SRC/zgesv.f +++ b/lapack-netlib/SRC/zgesv.f @@ -115,17 +115,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEsolve * * ===================================================================== SUBROUTINE ZGESV( N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, N, NRHS diff --git a/lapack-netlib/SRC/zgesvd.f b/lapack-netlib/SRC/zgesvd.f index b4dbf037f..1064fabbb 100644 --- a/lapack-netlib/SRC/zgesvd.f +++ b/lapack-netlib/SRC/zgesvd.f @@ -206,18 +206,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GEsing * * ===================================================================== SUBROUTINE ZGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, $ VT, LDVT, WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER JOBU, JOBVT diff --git a/lapack-netlib/SRC/zgesvdq.f b/lapack-netlib/SRC/zgesvdq.f index e0fb920bb..05eb722f8 100644 --- a/lapack-netlib/SRC/zgesvdq.f +++ b/lapack-netlib/SRC/zgesvdq.f @@ -40,7 +40,7 @@ *> *> \verbatim *> -* ZCGESVDQ computes the singular value decomposition (SVD) of a complex +*> ZCGESVDQ computes the singular value decomposition (SVD) of a complex *> M-by-N matrix A, where M >= N. The SVD of A is written as *> [++] [xx] [x0] [xx] *> A = U * SIGMA * V^*, [++] = [xx] * [ox] * [xx] @@ -218,9 +218,9 @@ *> If JOBP = 'P', IWORK(N+1:N+M-1) contains the indices of the sequence *> of row swaps used in row pivoting. These can be used to restore the *> left singular vectors in the case JOBU = 'F'. -* +*> *> If LIWORK, LCWORK, or LRWORK = -1, then on exit, if INFO = 0, -*> LIWORK(1) returns the minimal LIWORK. +*> IWORK(1) returns the minimal LIWORK. *> \endverbatim *> *> \param[in] LIWORK @@ -242,7 +242,7 @@ *> On exit, if, on entry, LCWORK.NE.-1, CWORK(1:N) contains parameters *> needed to recover the Q factor from the QR factorization computed by *> ZGEQP3. -* +*> *> If LIWORK, LCWORK, or LRWORK = -1, then on exit, if INFO = 0, *> CWORK(1) returns the optimal LCWORK, and *> CWORK(2) returns the minimal LCWORK. @@ -315,10 +315,10 @@ *> N^(-1/4) * RWORK(1) <= ||pinv(C)||_2 <= N^(1/4) * RWORK(1). *> Otherwise, RWORK(1) = -1. *> 2. RWORK(2) contains the number of singular values computed as -*> exact zeros in ZGESVD applied to the upper triangular or trapeziodal +*> exact zeros in ZGESVD applied to the upper triangular or trapezoidal *> R (from the initial QR factorization). In case of early exit (no call to *> ZGESVD, such as in the case of zero matrix) RWORK(2) = -1. -* +*> *> If LIWORK, LCWORK, or LRWORK = -1, then on exit, if INFO = 0, *> RWORK(1) returns the minimal LRWORK. *> \endverbatim @@ -329,7 +329,7 @@ *> The dimension of the array RWORK. *> If JOBP ='P', then LRWORK >= MAX(2, M, 5*N); *> Otherwise, LRWORK >= MAX(2, 5*N). -* +*> *> If LRWORK = -1, then a workspace query is assumed; the routine *> only calculates and returns the optimal and minimal sizes *> for the CWORK, IWORK, and RWORK arrays, and no error @@ -404,8 +404,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2018 -* *> \ingroup complex16GEsing * * ===================================================================== @@ -638,7 +636,7 @@ IF ( WNTVA ) THEN * .. minimal workspace length for N x N/2 ZGEQRF LWQRF = MAX( N/2, 1 ) -* .. minimal workspace lengt for N/2 x N/2 ZGESVD +* .. minimal workspace length for N/2 x N/2 ZGESVD LWSVD2 = MAX( 3 * (N/2), 1 ) LWUNQ2 = MAX( N, 1 ) MINWRK2 = MAX( LWQP3, N/2+LWQRF, N/2+LWSVD2, diff --git a/lapack-netlib/SRC/zgesvdx.f b/lapack-netlib/SRC/zgesvdx.f index 12b20c0ba..a8bf560c2 100644 --- a/lapack-netlib/SRC/zgesvdx.f +++ b/lapack-netlib/SRC/zgesvdx.f @@ -261,8 +261,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEsing * * ===================================================================== @@ -270,10 +268,9 @@ $ IL, IU, NS, S, U, LDU, VT, LDVT, WORK, $ LWORK, RWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBU, JOBVT, RANGE diff --git a/lapack-netlib/SRC/zgesvj.f b/lapack-netlib/SRC/zgesvj.f index 7c25a3495..6cd2335f2 100644 --- a/lapack-netlib/SRC/zgesvj.f +++ b/lapack-netlib/SRC/zgesvj.f @@ -276,8 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -296,7 +294,7 @@ *> spectral condition number. The best performance of this Jacobi SVD *> procedure is achieved if used in an accelerated version of Drmac and *> Veselic [4,5], and it is the kernel routine in the SIGMA library [6]. -*> Some tunning parameters (marked with [TP]) are available for the +*> Some tuning parameters (marked with [TP]) are available for the *> implementer. *> The computational range for the nonzero singular values is the machine *> number interval ( UNDERFLOW , OVERFLOW ). In extreme cases, even @@ -351,10 +349,9 @@ SUBROUTINE ZGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, $ LDV, CWORK, LWORK, RWORK, LRWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * IMPLICIT NONE * .. Scalar Arguments .. diff --git a/lapack-netlib/SRC/zgesvx.f b/lapack-netlib/SRC/zgesvx.f index d1752d06e..87f36bba6 100644 --- a/lapack-netlib/SRC/zgesvx.f +++ b/lapack-netlib/SRC/zgesvx.f @@ -341,8 +341,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GEsolve * * ===================================================================== @@ -350,10 +348,9 @@ $ EQUED, R, C, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/zgesvxx.f b/lapack-netlib/SRC/zgesvxx.f index 60bb71cd3..f1102668a 100644 --- a/lapack-netlib/SRC/zgesvxx.f +++ b/lapack-netlib/SRC/zgesvxx.f @@ -529,8 +529,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GEsolve * * ===================================================================== @@ -540,10 +538,9 @@ $ ERR_BNDS_COMP, NPARAMS, PARAMS, WORK, RWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, TRANS diff --git a/lapack-netlib/SRC/zgetc2.f b/lapack-netlib/SRC/zgetc2.f index b790e34d4..eb97194f2 100644 --- a/lapack-netlib/SRC/zgetc2.f +++ b/lapack-netlib/SRC/zgetc2.f @@ -98,8 +98,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEauxiliary * *> \par Contributors: @@ -111,10 +109,9 @@ * ===================================================================== SUBROUTINE ZGETC2( N, A, LDA, IPIV, JPIV, INFO ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/zgetf2.f b/lapack-netlib/SRC/zgetf2.f index a98e36e2e..c247f8645 100644 --- a/lapack-netlib/SRC/zgetf2.f +++ b/lapack-netlib/SRC/zgetf2.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGETF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgetrf.f b/lapack-netlib/SRC/zgetrf.f index c7b07b658..f3c3b396f 100644 --- a/lapack-netlib/SRC/zgetrf.f +++ b/lapack-netlib/SRC/zgetrf.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGETRF( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgetrf2.f b/lapack-netlib/SRC/zgetrf2.f index 44e2731ef..a3391fc53 100644 --- a/lapack-netlib/SRC/zgetrf2.f +++ b/lapack-netlib/SRC/zgetrf2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== RECURSIVE SUBROUTINE ZGETRF2( M, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zgetri.f b/lapack-netlib/SRC/zgetri.f index deff71ff5..41782841c 100644 --- a/lapack-netlib/SRC/zgetri.f +++ b/lapack-netlib/SRC/zgetri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGETRI( N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/zgetrs.f b/lapack-netlib/SRC/zgetrs.f index 5c0bd35f6..53f1bc388 100644 --- a/lapack-netlib/SRC/zgetrs.f +++ b/lapack-netlib/SRC/zgetrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZGETRS( TRANS, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/zgetsls.f b/lapack-netlib/SRC/zgetsls.f index 11233785b..17c6d5146 100644 --- a/lapack-netlib/SRC/zgetsls.f +++ b/lapack-netlib/SRC/zgetsls.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEsolve * * ===================================================================== SUBROUTINE ZGETSLS( TRANS, M, N, NRHS, A, LDA, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS @@ -186,17 +183,16 @@ * .. * .. Local Scalars .. LOGICAL LQUERY, TRAN - INTEGER I, IASCL, IBSCL, J, MINMN, MAXMN, BROW, - $ SCLLEN, MNK, TSZO, TSZM, LWO, LWM, LW1, LW2, + INTEGER I, IASCL, IBSCL, J, MAXMN, BROW, + $ SCLLEN, TSZO, TSZM, LWO, LWM, LW1, LW2, $ WSIZEO, WSIZEM, INFO2 DOUBLE PRECISION ANRM, BIGNUM, BNRM, SMLNUM, DUM( 1 ) COMPLEX*16 TQ( 5 ), WORKQ( 1 ) * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV DOUBLE PRECISION DLAMCH, ZLANGE - EXTERNAL LSAME, ILAENV, DLABAD, DLAMCH, ZLANGE + EXTERNAL LSAME, DLABAD, DLAMCH, ZLANGE * .. * .. External Subroutines .. EXTERNAL ZGEQR, ZGEMQR, ZLASCL, ZLASET, @@ -210,9 +206,7 @@ * Test the input arguments. * INFO = 0 - MINMN = MIN( M, N ) MAXMN = MAX( M, N ) - MNK = MAX( MINMN, NRHS ) TRAN = LSAME( TRANS, 'C' ) * LQUERY = ( LWORK.EQ.-1 .OR. LWORK.EQ.-2 ) @@ -233,7 +227,7 @@ * IF( INFO.EQ.0 ) THEN * -* Determine the block size and minimum LWORK +* Determine the optimum and minimum LWORK * IF( M.GE.N ) THEN CALL ZGEQR( M, N, A, LDA, TQ, -1, WORKQ, -1, INFO2 ) @@ -270,17 +264,17 @@ IF( ( LWORK.LT.WSIZEM ).AND.( .NOT.LQUERY ) ) THEN INFO = -10 END IF +* + WORK( 1 ) = DBLE( WSIZEO ) * END IF * IF( INFO.NE.0 ) THEN CALL XERBLA( 'ZGETSLS', -INFO ) - WORK( 1 ) = DBLE( WSIZEO ) RETURN END IF IF( LQUERY ) THEN - IF( LWORK.EQ.-1 ) WORK( 1 ) = REAL( WSIZEO ) - IF( LWORK.EQ.-2 ) WORK( 1 ) = REAL( WSIZEM ) + IF( LWORK.EQ.-2 ) WORK( 1 ) = DBLE( WSIZEM ) RETURN END IF IF( LWORK.LT.WSIZEO ) THEN diff --git a/lapack-netlib/SRC/zggbak.f b/lapack-netlib/SRC/zggbak.f index cb10b4f8c..a0ea5de4d 100644 --- a/lapack-netlib/SRC/zggbak.f +++ b/lapack-netlib/SRC/zggbak.f @@ -131,8 +131,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * *> \par Further Details: @@ -148,10 +146,9 @@ SUBROUTINE ZGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, V, $ LDV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB, SIDE diff --git a/lapack-netlib/SRC/zggbal.f b/lapack-netlib/SRC/zggbal.f index beca51261..c37ab4c10 100644 --- a/lapack-netlib/SRC/zggbal.f +++ b/lapack-netlib/SRC/zggbal.f @@ -160,8 +160,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GBcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ SUBROUTINE ZGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, $ RSCALE, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/SRC/zgges.f b/lapack-netlib/SRC/zgges.f index 555abcd86..3847adc04 100644 --- a/lapack-netlib/SRC/zgges.f +++ b/lapack-netlib/SRC/zgges.f @@ -261,8 +261,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEeigen * * ===================================================================== @@ -270,10 +268,9 @@ $ SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK, $ LWORK, RWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SORT diff --git a/lapack-netlib/SRC/zgges3.f b/lapack-netlib/SRC/zgges3.f index 08557b134..8b3e44f88 100644 --- a/lapack-netlib/SRC/zgges3.f +++ b/lapack-netlib/SRC/zgges3.f @@ -243,7 +243,7 @@ *> The QZ iteration failed. (A,B) are not in Schur *> form, but ALPHA(j) and BETA(j) should be correct for *> j=INFO+1,...,N. -*> > N: =N+1: other than QZ iteration failed in ZHGEQZ +*> > N: =N+1: other than QZ iteration failed in ZLAQZ0 *> =N+2: after reordering, roundoff changed values of *> some complex eigenvalues so that leading *> eigenvalues in the Generalized Schur form no @@ -260,8 +260,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complex16GEeigen * * ===================================================================== @@ -269,10 +267,9 @@ $ LDB, SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, $ WORK, LWORK, RWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.6.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SORT @@ -313,7 +310,7 @@ * .. * .. External Subroutines .. EXTERNAL DLABAD, XERBLA, ZGEQRF, ZGGBAK, ZGGBAL, ZGGHD3, - $ ZHGEQZ, ZLACPY, ZLASCL, ZLASET, ZTGSEN, ZUNGQR, + $ ZLAQZ0, ZLACPY, ZLASCL, ZLASET, ZTGSEN, ZUNGQR, $ ZUNMQR * .. * .. External Functions .. @@ -391,9 +388,9 @@ CALL ZGGHD3( JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, VSL, $ LDVSL, VSR, LDVSR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, N + INT ( WORK( 1 ) ) ) - CALL ZHGEQZ( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, + CALL ZLAQZ0( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, $ ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK, -1, - $ RWORK, IERR ) + $ RWORK, 0, IERR ) LWKOPT = MAX( LWKOPT, INT ( WORK( 1 ) ) ) IF( WANTST ) THEN CALL ZTGSEN( 0, ILVSL, ILVSR, BWORK, N, A, LDA, B, LDB, @@ -507,9 +504,9 @@ * Perform QZ algorithm, computing Schur vectors if desired * IWRK = ITAU - CALL ZHGEQZ( 'S', JOBVSL, JOBVSR, N, ILO, IHI, A, LDA, B, LDB, + CALL ZLAQZ0( 'S', JOBVSL, JOBVSR, N, ILO, IHI, A, LDA, B, LDB, $ ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK( IWRK ), - $ LWORK+1-IWRK, RWORK( IRWRK ), IERR ) + $ LWORK+1-IWRK, RWORK( IRWRK ), 0, IERR ) IF( IERR.NE.0 ) THEN IF( IERR.GT.0 .AND. IERR.LE.N ) THEN INFO = IERR diff --git a/lapack-netlib/SRC/zggesx.f b/lapack-netlib/SRC/zggesx.f index c546e61f1..96e4f2cda 100644 --- a/lapack-netlib/SRC/zggesx.f +++ b/lapack-netlib/SRC/zggesx.f @@ -320,8 +320,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEeigen * * ===================================================================== @@ -330,10 +328,9 @@ $ LDVSR, RCONDE, RCONDV, WORK, LWORK, RWORK, $ IWORK, LIWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBVSL, JOBVSR, SENSE, SORT diff --git a/lapack-netlib/SRC/zggev.f b/lapack-netlib/SRC/zggev.f index 946de6c2c..2e6a4d730 100644 --- a/lapack-netlib/SRC/zggev.f +++ b/lapack-netlib/SRC/zggev.f @@ -197,8 +197,8 @@ *> The QZ iteration failed. No eigenvectors have been *> calculated, but ALPHA(j) and BETA(j) should be *> correct for j=INFO+1,...,N. -*> > N: =N+1: other then QZ iteration failed in DHGEQZ, -*> =N+2: error return from DTGEVC. +*> > N: =N+1: other then QZ iteration failed in ZHGEQZ, +*> =N+2: error return from ZTGEVC. *> \endverbatim * * Authors: @@ -209,18 +209,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GEeigen * * ===================================================================== SUBROUTINE ZGGEV( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, $ VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR diff --git a/lapack-netlib/SRC/zggev3.f b/lapack-netlib/SRC/zggev3.f index 2e88adedc..2d6c74582 100644 --- a/lapack-netlib/SRC/zggev3.f +++ b/lapack-netlib/SRC/zggev3.f @@ -196,8 +196,8 @@ *> The QZ iteration failed. No eigenvectors have been *> calculated, but ALPHA(j) and BETA(j) should be *> correct for j=INFO+1,...,N. -*> > N: =N+1: other then QZ iteration failed in DHGEQZ, -*> =N+2: error return from DTGEVC. +*> > N: =N+1: other then QZ iteration failed in ZHGEQZ, +*> =N+2: error return from ZTGEVC. *> \endverbatim * * Authors: @@ -208,18 +208,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complex16GEeigen * * ===================================================================== SUBROUTINE ZGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHA, BETA, $ VL, LDVL, VR, LDVR, WORK, LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.6.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * .. Scalar Arguments .. CHARACTER JOBVL, JOBVR @@ -256,7 +253,7 @@ * .. * .. External Subroutines .. EXTERNAL DLABAD, XERBLA, ZGEQRF, ZGGBAK, ZGGBAL, ZGGHD3, - $ ZHGEQZ, ZLACPY, ZLASCL, ZLASET, ZTGEVC, ZUNGQR, + $ ZLAQZ0, ZLACPY, ZLASCL, ZLASET, ZTGEVC, ZUNGQR, $ ZUNMQR * .. * .. External Functions .. @@ -338,17 +335,17 @@ CALL ZGGHD3( JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, VL, $ LDVL, VR, LDVR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, N+INT( WORK( 1 ) ) ) - CALL ZHGEQZ( 'S', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, + CALL ZLAQZ0( 'S', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, $ ALPHA, BETA, VL, LDVL, VR, LDVR, WORK, -1, - $ RWORK, IERR ) + $ RWORK, 0, IERR ) LWKOPT = MAX( LWKOPT, N+INT( WORK( 1 ) ) ) ELSE CALL ZGGHD3( JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, VL, $ LDVL, VR, LDVR, WORK, -1, IERR ) LWKOPT = MAX( LWKOPT, N+INT( WORK( 1 ) ) ) - CALL ZHGEQZ( 'E', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, + CALL ZLAQZ0( 'E', JOBVL, JOBVR, N, 1, N, A, LDA, B, LDB, $ ALPHA, BETA, VL, LDVL, VR, LDVR, WORK, -1, - $ RWORK, IERR ) + $ RWORK, 0, IERR ) LWKOPT = MAX( LWKOPT, N+INT( WORK( 1 ) ) ) END IF WORK( 1 ) = DCMPLX( LWKOPT ) @@ -470,9 +467,9 @@ ELSE CHTEMP = 'E' END IF - CALL ZHGEQZ( CHTEMP, JOBVL, JOBVR, N, ILO, IHI, A, LDA, B, LDB, + CALL ZLAQZ0( CHTEMP, JOBVL, JOBVR, N, ILO, IHI, A, LDA, B, LDB, $ ALPHA, BETA, VL, LDVL, VR, LDVR, WORK( IWRK ), - $ LWORK+1-IWRK, RWORK( IRWRK ), IERR ) + $ LWORK+1-IWRK, RWORK( IRWRK ), 0, IERR ) IF( IERR.NE.0 ) THEN IF( IERR.GT.0 .AND. IERR.LE.N ) THEN INFO = IERR diff --git a/lapack-netlib/SRC/zggevx.f b/lapack-netlib/SRC/zggevx.f index 5549feb13..c63a390e6 100644 --- a/lapack-netlib/SRC/zggevx.f +++ b/lapack-netlib/SRC/zggevx.f @@ -335,8 +335,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GEeigen * *> \par Further Details: @@ -374,10 +372,9 @@ $ LSCALE, RSCALE, ABNRM, BBNRM, RCONDE, RCONDV, $ WORK, LWORK, RWORK, IWORK, BWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER BALANC, JOBVL, JOBVR, SENSE @@ -710,8 +707,8 @@ * IF( .NOT.WANTSN ) THEN * -* compute eigenvectors (DTGEVC) and estimate condition -* numbers (DTGSNA). Note that the definition of the condition +* compute eigenvectors (ZTGEVC) and estimate condition +* numbers (ZTGSNA). Note that the definition of the condition * number is not invariant under transformation (u,v) to * (Q*u, Z*v), where (u,v) are eigenvectors of the generalized * Schur form (S,T), Q and Z are orthogonal matrices. In order diff --git a/lapack-netlib/SRC/zggglm.f b/lapack-netlib/SRC/zggglm.f index d4adc5c4d..6c24131aa 100644 --- a/lapack-netlib/SRC/zggglm.f +++ b/lapack-netlib/SRC/zggglm.f @@ -177,18 +177,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHEReigen * * ===================================================================== SUBROUTINE ZGGGLM( N, M, P, A, LDA, B, LDB, D, X, Y, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P @@ -292,7 +289,7 @@ * CALL ZGGQRF( N, M, P, A, LDA, WORK, B, LDB, WORK( M+1 ), $ WORK( M+NP+1 ), LWORK-M-NP, INFO ) - LOPT = WORK( M+NP+1 ) + LOPT = DBLE( WORK( M+NP+1 ) ) * * Update left-hand-side vector d = Q**H*d = ( d1 ) M * ( d2 ) N-M diff --git a/lapack-netlib/SRC/zgghd3.f b/lapack-netlib/SRC/zgghd3.f index 4b0e7826a..b29cdc70a 100644 --- a/lapack-netlib/SRC/zgghd3.f +++ b/lapack-netlib/SRC/zgghd3.f @@ -208,8 +208,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -217,7 +215,7 @@ *> *> \verbatim *> -*> This routine reduces A to Hessenberg form and maintains B in +*> This routine reduces A to Hessenberg form and maintains B in triangular form *> using a blocked variant of Moler and Stewart's original algorithm, *> as described by Kagstrom, Kressner, Quintana-Orti, and Quintana-Orti *> (BIT 2008). @@ -227,10 +225,9 @@ SUBROUTINE ZGGHD3( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, $ LDQ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zgghrd.f b/lapack-netlib/SRC/zgghrd.f index e9e870320..35305f344 100644 --- a/lapack-netlib/SRC/zgghrd.f +++ b/lapack-netlib/SRC/zgghrd.f @@ -186,8 +186,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -204,10 +202,9 @@ SUBROUTINE ZGGHRD( COMPQ, COMPZ, N, ILO, IHI, A, LDA, B, LDB, Q, $ LDQ, Z, LDZ, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, COMPZ diff --git a/lapack-netlib/SRC/zgglse.f b/lapack-netlib/SRC/zgglse.f index 1b5f468bc..e5869a7d4 100644 --- a/lapack-netlib/SRC/zgglse.f +++ b/lapack-netlib/SRC/zgglse.f @@ -172,18 +172,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERsolve * * ===================================================================== SUBROUTINE ZGGLSE( M, N, P, A, LDA, B, LDB, C, D, X, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P @@ -279,7 +276,7 @@ * CALL ZGGRQF( P, M, N, B, LDB, WORK, A, LDA, WORK( P+1 ), $ WORK( P+MN+1 ), LWORK-P-MN, INFO ) - LOPT = WORK( P+MN+1 ) + LOPT = DBLE( WORK( P+MN+1 ) ) * * Update c = Z**H *c = ( c1 ) N-P * ( c2 ) M+P-N diff --git a/lapack-netlib/SRC/zggqrf.f b/lapack-netlib/SRC/zggqrf.f index ba04d0760..93b1dc0fc 100644 --- a/lapack-netlib/SRC/zggqrf.f +++ b/lapack-netlib/SRC/zggqrf.f @@ -173,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -215,10 +213,9 @@ SUBROUTINE ZGGQRF( N, M, P, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P @@ -279,7 +276,7 @@ * QR factorization of N-by-M matrix A: A = Q*R * CALL ZGEQRF( N, M, A, LDA, TAUA, WORK, LWORK, INFO ) - LOPT = WORK( 1 ) + LOPT = DBLE( WORK( 1 ) ) * * Update B := Q**H*B. * diff --git a/lapack-netlib/SRC/zggrqf.f b/lapack-netlib/SRC/zggrqf.f index 27970e833..a2d4a9d55 100644 --- a/lapack-netlib/SRC/zggrqf.f +++ b/lapack-netlib/SRC/zggrqf.f @@ -172,8 +172,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -214,10 +212,9 @@ SUBROUTINE ZGGRQF( M, P, N, A, LDA, TAUA, B, LDB, TAUB, WORK, $ LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, P @@ -278,7 +275,7 @@ * RQ factorization of M-by-N matrix A: A = R*Q * CALL ZGERQF( M, N, A, LDA, TAUA, WORK, LWORK, INFO ) - LOPT = WORK( 1 ) + LOPT = DBLE( WORK( 1 ) ) * * Update B := B*Q**H * diff --git a/lapack-netlib/SRC/zggsvd3.f b/lapack-netlib/SRC/zggsvd3.f index fd22d4f19..71257a7c0 100644 --- a/lapack-netlib/SRC/zggsvd3.f +++ b/lapack-netlib/SRC/zggsvd3.f @@ -332,8 +332,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup complex16GEsing * *> \par Contributors: @@ -353,10 +351,9 @@ $ LDB, ALPHA, BETA, U, LDU, V, LDV, Q, LDQ, $ WORK, LWORK, RWORK, IWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/zggsvp3.f b/lapack-netlib/SRC/zggsvp3.f index 986bc47bb..f39ccdad3 100644 --- a/lapack-netlib/SRC/zggsvp3.f +++ b/lapack-netlib/SRC/zggsvp3.f @@ -256,8 +256,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -278,10 +276,9 @@ $ TOLA, TOLB, K, L, U, LDU, V, LDV, Q, LDQ, $ IWORK, RWORK, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zgsvj0.f b/lapack-netlib/SRC/zgsvj0.f index ab7e31725..672ab7590 100644 --- a/lapack-netlib/SRC/zgsvj0.f +++ b/lapack-netlib/SRC/zgsvj0.f @@ -193,8 +193,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational *> *> \par Further Details: @@ -218,10 +216,9 @@ SUBROUTINE ZGSVJ0( JOBV, M, N, A, LDA, D, SVA, MV, V, LDV, EPS, $ SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * IMPLICIT NONE * .. Scalar Arguments .. diff --git a/lapack-netlib/SRC/zgsvj1.f b/lapack-netlib/SRC/zgsvj1.f index f0a23034b..2461a9555 100644 --- a/lapack-netlib/SRC/zgsvj1.f +++ b/lapack-netlib/SRC/zgsvj1.f @@ -7,11 +7,11 @@ * *> \htmlonly *> Download ZGSVJ1 + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -40,7 +40,7 @@ *> ZGSVJ1 is called from ZGESVJ as a pre-processor and that is its main *> purpose. It applies Jacobi rotations in the same way as ZGESVJ does, but *> it targets only particular pivots and it does not check convergence -*> (stopping criterion). Few tunning parameters (marked by [TP]) are +*> (stopping criterion). Few tuning parameters (marked by [TP]) are *> available for the implementer. *> *> Further Details @@ -61,7 +61,7 @@ *> In terms of the columns of A, the first N1 columns are rotated 'against' *> the remaining N-N1 columns, trying to increase the angle between the *> corresponding subspaces. The off-diagonal block is N1-by(N-N1) and it is -*> tiled using quadratic tiles of side KBL. Here, KBL is a tunning parameter. +*> tiled using quadratic tiles of side KBL. Here, KBL is a tuning parameter. *> The number of sweeps is given in NSWEEP and the orthogonality threshold *> is given in TOL. *> \endverbatim @@ -223,8 +223,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributor: @@ -236,10 +234,9 @@ SUBROUTINE ZGSVJ1( JOBV, M, N, N1, A, LDA, D, SVA, MV, V, LDV, $ EPS, SFMIN, TOL, NSWEEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * IMPLICIT NONE * .. Scalar Arguments .. diff --git a/lapack-netlib/SRC/zgtcon.f b/lapack-netlib/SRC/zgtcon.f index efa6a2c8d..24190946a 100644 --- a/lapack-netlib/SRC/zgtcon.f +++ b/lapack-netlib/SRC/zgtcon.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GTcomputational * * ===================================================================== SUBROUTINE ZGTCON( NORM, N, DL, D, DU, DU2, IPIV, ANORM, RCOND, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/zgtrfs.f b/lapack-netlib/SRC/zgtrfs.f index fedaaee54..509a0d7a5 100644 --- a/lapack-netlib/SRC/zgtrfs.f +++ b/lapack-netlib/SRC/zgtrfs.f @@ -201,8 +201,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GTcomputational * * ===================================================================== @@ -210,10 +208,9 @@ $ IPIV, B, LDB, X, LDX, FERR, BERR, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/zgtsv.f b/lapack-netlib/SRC/zgtsv.f index 96ef9db77..fbd583d6a 100644 --- a/lapack-netlib/SRC/zgtsv.f +++ b/lapack-netlib/SRC/zgtsv.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GTsolve * * ===================================================================== SUBROUTINE ZGTSV( N, NRHS, DL, D, DU, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/zgtsvx.f b/lapack-netlib/SRC/zgtsvx.f index 0b245520f..32ed2133d 100644 --- a/lapack-netlib/SRC/zgtsvx.f +++ b/lapack-netlib/SRC/zgtsvx.f @@ -285,8 +285,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GTsolve * * ===================================================================== @@ -294,10 +292,9 @@ $ DU2, IPIV, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER FACT, TRANS diff --git a/lapack-netlib/SRC/zgttrf.f b/lapack-netlib/SRC/zgttrf.f index 0d4c48dd7..411233ef0 100644 --- a/lapack-netlib/SRC/zgttrf.f +++ b/lapack-netlib/SRC/zgttrf.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GTcomputational * * ===================================================================== SUBROUTINE ZGTTRF( N, DL, D, DU, DU2, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/zgttrs.f b/lapack-netlib/SRC/zgttrs.f index f37c35a67..d36d0107e 100644 --- a/lapack-netlib/SRC/zgttrs.f +++ b/lapack-netlib/SRC/zgttrs.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GTcomputational * * ===================================================================== SUBROUTINE ZGTTRS( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/zgtts2.f b/lapack-netlib/SRC/zgtts2.f index c8c1797c1..83ca50cba 100644 --- a/lapack-netlib/SRC/zgtts2.f +++ b/lapack-netlib/SRC/zgtts2.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GTcomputational * * ===================================================================== SUBROUTINE ZGTTS2( ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ITRANS, LDB, N, NRHS diff --git a/lapack-netlib/SRC/zhb2st_kernels.f b/lapack-netlib/SRC/zhb2st_kernels.f index 2c0cb6870..717b36eef 100644 --- a/lapack-netlib/SRC/zhb2st_kernels.f +++ b/lapack-netlib/SRC/zhb2st_kernels.f @@ -170,10 +170,9 @@ * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO @@ -372,6 +371,6 @@ * RETURN * -* END OF ZHB2ST_KERNELS +* End of ZHB2ST_KERNELS * END diff --git a/lapack-netlib/SRC/zhbev.f b/lapack-netlib/SRC/zhbev.f index 964e684c8..341a6fb2b 100644 --- a/lapack-netlib/SRC/zhbev.f +++ b/lapack-netlib/SRC/zhbev.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHEReigen * * ===================================================================== SUBROUTINE ZHBEV( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -223,9 +220,9 @@ * IF( N.EQ.1 ) THEN IF( LOWER ) THEN - W( 1 ) = AB( 1, 1 ) + W( 1 ) = DBLE( AB( 1, 1 ) ) ELSE - W( 1 ) = AB( KD+1, 1 ) + W( 1 ) = DBLE( AB( KD+1, 1 ) ) END IF IF( WANTZ ) $ Z( 1, 1 ) = ONE diff --git a/lapack-netlib/SRC/zhbev_2stage.f b/lapack-netlib/SRC/zhbev_2stage.f index 583e55ce0..056f0a7ce 100644 --- a/lapack-netlib/SRC/zhbev_2stage.f +++ b/lapack-netlib/SRC/zhbev_2stage.f @@ -171,8 +171,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHEReigen * *> \par Further Details: @@ -213,10 +211,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zhbevd.f b/lapack-netlib/SRC/zhbevd.f index 70378b140..0db551540 100644 --- a/lapack-netlib/SRC/zhbevd.f +++ b/lapack-netlib/SRC/zhbevd.f @@ -207,18 +207,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHEReigen * * ===================================================================== SUBROUTINE ZHBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -323,7 +320,7 @@ $ RETURN * IF( N.EQ.1 ) THEN - W( 1 ) = AB( 1, 1 ) + W( 1 ) = DBLE( AB( 1, 1 ) ) IF( WANTZ ) $ Z( 1, 1 ) = CONE RETURN diff --git a/lapack-netlib/SRC/zhbevd_2stage.f b/lapack-netlib/SRC/zhbevd_2stage.f index be493a1b9..4522d5e79 100644 --- a/lapack-netlib/SRC/zhbevd_2stage.f +++ b/lapack-netlib/SRC/zhbevd_2stage.f @@ -219,8 +219,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHEReigen * *> \par Further Details: @@ -262,10 +260,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zhbevx.f b/lapack-netlib/SRC/zhbevx.f index 3966cfa59..77bd721b3 100644 --- a/lapack-netlib/SRC/zhbevx.f +++ b/lapack-netlib/SRC/zhbevx.f @@ -258,8 +258,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHEReigen * * ===================================================================== @@ -267,10 +265,9 @@ $ VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO @@ -382,7 +379,7 @@ $ M = 0 END IF IF( M.EQ.1 ) THEN - W( 1 ) = CTMP1 + W( 1 ) = DBLE( CTMP1 ) IF( WANTZ ) $ Z( 1, 1 ) = CONE END IF diff --git a/lapack-netlib/SRC/zhbevx_2stage.f b/lapack-netlib/SRC/zhbevx_2stage.f index 9b1f5fe92..2a9896d43 100644 --- a/lapack-netlib/SRC/zhbevx_2stage.f +++ b/lapack-netlib/SRC/zhbevx_2stage.f @@ -285,8 +285,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHEReigen * *> \par Further Details: @@ -329,10 +327,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/zhbgst.f b/lapack-netlib/SRC/zhbgst.f index cb1c43bf3..b05823b2b 100644 --- a/lapack-netlib/SRC/zhbgst.f +++ b/lapack-netlib/SRC/zhbgst.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZHBGST( VECT, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, X, $ LDX, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, VECT diff --git a/lapack-netlib/SRC/zhbgv.f b/lapack-netlib/SRC/zhbgv.f index d7e89789e..2d587bd02 100644 --- a/lapack-netlib/SRC/zhbgv.f +++ b/lapack-netlib/SRC/zhbgv.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHEReigen * * ===================================================================== SUBROUTINE ZHBGV( JOBZ, UPLO, N, KA, KB, AB, LDAB, BB, LDBB, W, Z, $ LDZ, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zhbgvd.f b/lapack-netlib/SRC/zhbgvd.f index b2f792182..b0664750e 100644 --- a/lapack-netlib/SRC/zhbgvd.f +++ b/lapack-netlib/SRC/zhbgvd.f @@ -238,8 +238,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHEReigen * *> \par Contributors: @@ -252,10 +250,9 @@ $ Z, LDZ, WORK, LWORK, RWORK, LRWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zhbgvx.f b/lapack-netlib/SRC/zhbgvx.f index 07526a56c..79a3811b2 100644 --- a/lapack-netlib/SRC/zhbgvx.f +++ b/lapack-netlib/SRC/zhbgvx.f @@ -286,8 +286,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHEReigen * *> \par Contributors: @@ -300,10 +298,9 @@ $ LDBB, Q, LDQ, VL, VU, IL, IU, ABSTOL, M, W, Z, $ LDZ, WORK, RWORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/zhbtrd.f b/lapack-netlib/SRC/zhbtrd.f index 7f5af1b59..63dc7a934 100644 --- a/lapack-netlib/SRC/zhbtrd.f +++ b/lapack-netlib/SRC/zhbtrd.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -163,10 +161,9 @@ SUBROUTINE ZHBTRD( VECT, UPLO, N, KD, AB, LDAB, D, E, Q, LDQ, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, VECT @@ -459,7 +456,7 @@ * copy diagonal elements to D * DO 120 I = 1, N - D( I ) = AB( KD1, I ) + D( I ) = DBLE( AB( KD1, I ) ) 120 CONTINUE * ELSE @@ -666,7 +663,7 @@ * copy diagonal elements to D * DO 240 I = 1, N - D( I ) = AB( 1, I ) + D( I ) = DBLE( AB( 1, I ) ) 240 CONTINUE END IF * diff --git a/lapack-netlib/SRC/zhecon.f b/lapack-netlib/SRC/zhecon.f index bb8ee6d3f..5c57b566d 100644 --- a/lapack-netlib/SRC/zhecon.f +++ b/lapack-netlib/SRC/zhecon.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHECON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhecon_3.f b/lapack-netlib/SRC/zhecon_3.f index 9d2a240b6..a84d5c0ca 100644 --- a/lapack-netlib/SRC/zhecon_3.f +++ b/lapack-netlib/SRC/zhecon_3.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -166,10 +164,9 @@ SUBROUTINE ZHECON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhecon_rook.f b/lapack-netlib/SRC/zhecon_rook.f index 6dabdcff8..522bd2b2d 100644 --- a/lapack-netlib/SRC/zhecon_rook.f +++ b/lapack-netlib/SRC/zhecon_rook.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -139,10 +137,9 @@ SUBROUTINE ZHECON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zheequb.f b/lapack-netlib/SRC/zheequb.f index 7d719f41e..93747172e 100644 --- a/lapack-netlib/SRC/zheequb.f +++ b/lapack-netlib/SRC/zheequb.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16HEcomputational * *> \par References: @@ -132,10 +130,9 @@ * ===================================================================== SUBROUTINE ZHEEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, N @@ -266,7 +263,7 @@ * avg = s^T beta / n AVG = 0.0D0 DO I = 1, N - AVG = AVG + S( I )*WORK( I ) + AVG = AVG + DBLE( S( I )*WORK( I ) ) END DO AVG = AVG / N @@ -283,8 +280,8 @@ T = CABS1( A( I, I ) ) SI = S( I ) C2 = ( N-1 ) * T - C1 = ( N-2 ) * ( WORK( I ) - T*SI ) - C0 = -(T*SI)*SI + 2*WORK( I )*SI - N*AVG + C1 = ( N-2 ) * ( DBLE( WORK( I ) ) - T*SI ) + C0 = -(T*SI)*SI + 2 * DBLE( WORK( I ) ) * SI - N*AVG D = C1*C1 - 4*C0*C2 IF ( D .LE. 0 ) THEN @@ -319,7 +316,7 @@ END DO END IF - AVG = AVG + ( U + WORK( I ) ) * D / N + AVG = AVG + ( U + DBLE( WORK( I ) ) ) * D / N S( I ) = SI END DO END DO diff --git a/lapack-netlib/SRC/zheev.f b/lapack-netlib/SRC/zheev.f index 3e8777874..59af34a74 100644 --- a/lapack-netlib/SRC/zheev.f +++ b/lapack-netlib/SRC/zheev.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEeigen * * ===================================================================== SUBROUTINE ZHEEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -224,7 +221,7 @@ END IF * IF( N.EQ.1 ) THEN - W( 1 ) = A( 1, 1 ) + W( 1 ) = DBLE( A( 1, 1 ) ) WORK( 1 ) = 1 IF( WANTZ ) $ A( 1, 1 ) = CONE diff --git a/lapack-netlib/SRC/zheev_2stage.f b/lapack-netlib/SRC/zheev_2stage.f index d80a80d63..96c07c54f 100644 --- a/lapack-netlib/SRC/zheev_2stage.f +++ b/lapack-netlib/SRC/zheev_2stage.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEeigen * *> \par Further Details: @@ -191,10 +189,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zheevd.f b/lapack-netlib/SRC/zheevd.f index cbe9a39a1..a6484eb03 100644 --- a/lapack-netlib/SRC/zheevd.f +++ b/lapack-netlib/SRC/zheevd.f @@ -186,8 +186,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEeigen * *> \par Further Details: @@ -205,10 +203,9 @@ SUBROUTINE ZHEEVD( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, RWORK, $ LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -317,7 +314,7 @@ $ RETURN * IF( N.EQ.1 ) THEN - W( 1 ) = A( 1, 1 ) + W( 1 ) = DBLE( A( 1, 1 ) ) IF( WANTZ ) $ A( 1, 1 ) = CONE RETURN diff --git a/lapack-netlib/SRC/zheevd_2stage.f b/lapack-netlib/SRC/zheevd_2stage.f index 1bf5fec37..9859b0d67 100644 --- a/lapack-netlib/SRC/zheevd_2stage.f +++ b/lapack-netlib/SRC/zheevd_2stage.f @@ -202,8 +202,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEeigen * *> \par Further Details: @@ -255,10 +253,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zheevr.f b/lapack-netlib/SRC/zheevr.f index def2d1f9d..1452e04a3 100644 --- a/lapack-netlib/SRC/zheevr.f +++ b/lapack-netlib/SRC/zheevr.f @@ -75,7 +75,7 @@ *> The desired accuracy of the output can be specified by the input *> parameter ABSTOL. *> -*> For more details, see DSTEMR's documentation and: +*> For more details, see ZSTEMR's documentation and: *> - Inderjit S. Dhillon and Beresford N. Parlett: "Multiple representations *> to compute orthogonal eigenvectors of symmetric tridiagonal matrices," *> Linear Algebra and its Applications, 387(1), pp. 1-28, August 2004. @@ -338,8 +338,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16HEeigen * *> \par Contributors: @@ -357,10 +355,9 @@ $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, $ RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/zheevr_2stage.f b/lapack-netlib/SRC/zheevr_2stage.f index fe4a72160..5c576e633 100644 --- a/lapack-netlib/SRC/zheevr_2stage.f +++ b/lapack-netlib/SRC/zheevr_2stage.f @@ -81,7 +81,7 @@ *> The desired accuracy of the output can be specified by the input *> parameter ABSTOL. *> -*> For more details, see DSTEMR's documentation and: +*> For more details, see ZSTEMR's documentation and: *> - Inderjit S. Dhillon and Beresford N. Parlett: "Multiple representations *> to compute orthogonal eigenvectors of symmetric tridiagonal matrices," *> Linear Algebra and its Applications, 387(1), pp. 1-28, August 2004. @@ -354,8 +354,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16HEeigen * *> \par Contributors: @@ -408,10 +406,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/zheevx.f b/lapack-netlib/SRC/zheevx.f index 3e11875db..71c358b37 100644 --- a/lapack-netlib/SRC/zheevx.f +++ b/lapack-netlib/SRC/zheevx.f @@ -250,8 +250,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16HEeigen * * ===================================================================== @@ -259,10 +257,9 @@ $ ABSTOL, M, W, Z, LDZ, WORK, LWORK, RWORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO @@ -381,12 +378,12 @@ IF( N.EQ.1 ) THEN IF( ALLEIG .OR. INDEIG ) THEN M = 1 - W( 1 ) = A( 1, 1 ) + W( 1 ) = DBLE( A( 1, 1 ) ) ELSE IF( VALEIG ) THEN IF( VL.LT.DBLE( A( 1, 1 ) ) .AND. VU.GE.DBLE( A( 1, 1 ) ) ) $ THEN M = 1 - W( 1 ) = A( 1, 1 ) + W( 1 ) = DBLE( A( 1, 1 ) ) END IF END IF IF( WANTZ ) diff --git a/lapack-netlib/SRC/zheevx_2stage.f b/lapack-netlib/SRC/zheevx_2stage.f index a70c870fd..1d4dfe9c5 100644 --- a/lapack-netlib/SRC/zheevx_2stage.f +++ b/lapack-netlib/SRC/zheevx_2stage.f @@ -265,8 +265,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16HEeigen * *> \par Further Details: @@ -308,10 +306,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/zhegs2.f b/lapack-netlib/SRC/zhegs2.f index aec526353..ba1c3fb01 100644 --- a/lapack-netlib/SRC/zhegs2.f +++ b/lapack-netlib/SRC/zhegs2.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHEGS2( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -197,8 +194,8 @@ * * Update the upper triangle of A(k:n,k:n) * - AKK = A( K, K ) - BKK = B( K, K ) + AKK = DBLE( A( K, K ) ) + BKK = DBLE( B( K, K ) ) AKK = AKK / BKK**2 A( K, K ) = AKK IF( K.LT.N ) THEN @@ -227,8 +224,8 @@ * * Update the lower triangle of A(k:n,k:n) * - AKK = A( K, K ) - BKK = B( K, K ) + AKK = DBLE( A( K, K ) ) + BKK = DBLE( B( K, K ) ) AKK = AKK / BKK**2 A( K, K ) = AKK IF( K.LT.N ) THEN @@ -252,8 +249,8 @@ * * Update the upper triangle of A(1:k,1:k) * - AKK = A( K, K ) - BKK = B( K, K ) + AKK = DBLE( A( K, K ) ) + BKK = DBLE( B( K, K ) ) CALL ZTRMV( UPLO, 'No transpose', 'Non-unit', K-1, B, $ LDB, A( 1, K ), 1 ) CT = HALF*AKK @@ -272,8 +269,8 @@ * * Update the lower triangle of A(1:k,1:k) * - AKK = A( K, K ) - BKK = B( K, K ) + AKK = DBLE( A( K, K ) ) + BKK = DBLE( B( K, K ) ) CALL ZLACGV( K-1, A( K, 1 ), LDA ) CALL ZTRMV( UPLO, 'Conjugate transpose', 'Non-unit', K-1, $ B, LDB, A( K, 1 ), LDA ) diff --git a/lapack-netlib/SRC/zhegst.f b/lapack-netlib/SRC/zhegst.f index dcf5fe8b5..0d167e8c5 100644 --- a/lapack-netlib/SRC/zhegst.f +++ b/lapack-netlib/SRC/zhegst.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHEGST( ITYPE, UPLO, N, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhegv.f b/lapack-netlib/SRC/zhegv.f index 761b5d0f2..41657e3be 100644 --- a/lapack-netlib/SRC/zhegv.f +++ b/lapack-netlib/SRC/zhegv.f @@ -173,18 +173,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEeigen * * ===================================================================== SUBROUTINE ZHEGV( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zhegv_2stage.f b/lapack-netlib/SRC/zhegv_2stage.f index 53f1b8d8e..fda651e5e 100644 --- a/lapack-netlib/SRC/zhegv_2stage.f +++ b/lapack-netlib/SRC/zhegv_2stage.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEeigen * *> \par Further Details: @@ -234,10 +232,9 @@ * IMPLICIT NONE * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zhegvd.f b/lapack-netlib/SRC/zhegvd.f index b9bb05367..2e92255df 100644 --- a/lapack-netlib/SRC/zhegvd.f +++ b/lapack-netlib/SRC/zhegvd.f @@ -225,8 +225,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEeigen * *> \par Further Details: @@ -249,10 +247,9 @@ SUBROUTINE ZHEGVD( ITYPE, JOBZ, UPLO, N, A, LDA, B, LDB, W, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zhegvx.f b/lapack-netlib/SRC/zhegvx.f index 268a8226d..ac9f9ef1a 100644 --- a/lapack-netlib/SRC/zhegvx.f +++ b/lapack-netlib/SRC/zhegvx.f @@ -293,8 +293,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16HEeigen * *> \par Contributors: @@ -307,10 +305,9 @@ $ VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, WORK, $ LWORK, RWORK, IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/zherfs.f b/lapack-netlib/SRC/zherfs.f index 2b4095b88..b061e8764 100644 --- a/lapack-netlib/SRC/zherfs.f +++ b/lapack-netlib/SRC/zherfs.f @@ -184,18 +184,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHERFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zherfsx.f b/lapack-netlib/SRC/zherfsx.f index fa11702a8..c02955e7e 100644 --- a/lapack-netlib/SRC/zherfsx.f +++ b/lapack-netlib/SRC/zherfsx.f @@ -122,8 +122,8 @@ *> AF is COMPLEX*16 array, dimension (LDAF,N) *> The factored form of the matrix A. AF contains the block *> diagonal matrix D and the multipliers used to obtain the -*> factor U or L from the factorization A = U*D*U**T or A = -*> L*D*L**T as computed by DSYTRF. +*> factor U or L from the factorization A = U*D*U**H or A = +*> L*D*L**H as computed by ZHETRF. *> \endverbatim *> *> \param[in] LDAF @@ -136,7 +136,7 @@ *> \verbatim *> IPIV is INTEGER array, dimension (N) *> Details of the interchanges and the block structure of D -*> as determined by DSYTRF. +*> as determined by ZHETRF. *> \endverbatim *> *> \param[in,out] S @@ -170,7 +170,7 @@ *> \param[in,out] X *> \verbatim *> X is COMPLEX*16 array, dimension (LDX,NRHS) -*> On entry, the solution matrix X, as computed by DGETRS. +*> On entry, the solution matrix X, as computed by ZHETRS. *> On exit, the improved solution matrix X. *> \endverbatim *> @@ -391,8 +391,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16HEcomputational * * ===================================================================== @@ -401,10 +399,9 @@ $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/zhesv.f b/lapack-netlib/SRC/zhesv.f index e9f60bfc5..f54023e50 100644 --- a/lapack-netlib/SRC/zhesv.f +++ b/lapack-netlib/SRC/zhesv.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEsolve * * ===================================================================== SUBROUTINE ZHESV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhesv_aa.f b/lapack-netlib/SRC/zhesv_aa.f index 5f1a9f4b3..df8498c7a 100644 --- a/lapack-netlib/SRC/zhesv_aa.f +++ b/lapack-netlib/SRC/zhesv_aa.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEsolve * * ===================================================================== SUBROUTINE ZHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhesv_aa_2stage.f b/lapack-netlib/SRC/zhesv_aa_2stage.f index 7a4e35f45..ee1596855 100644 --- a/lapack-netlib/SRC/zhesv_aa_2stage.f +++ b/lapack-netlib/SRC/zhesv_aa_2stage.f @@ -178,8 +178,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEsolve * * ===================================================================== @@ -187,10 +185,9 @@ $ IPIV, IPIV2, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zhesv_rk.f b/lapack-netlib/SRC/zhesv_rk.f index da0e6f26d..1ec75cc04 100644 --- a/lapack-netlib/SRC/zhesv_rk.f +++ b/lapack-netlib/SRC/zhesv_rk.f @@ -205,8 +205,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEsolve * *> \par Contributors: @@ -228,10 +226,9 @@ SUBROUTINE ZHESV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -283,7 +280,7 @@ LWKOPT = 1 ELSE CALL ZHETRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, -1, INFO ) - LWKOPT = WORK(1) + LWKOPT = DBLE( WORK(1) ) END IF WORK( 1 ) = LWKOPT END IF diff --git a/lapack-netlib/SRC/zhesv_rook.f b/lapack-netlib/SRC/zhesv_rook.f index 3922b43f9..d44284182 100644 --- a/lapack-netlib/SRC/zhesv_rook.f +++ b/lapack-netlib/SRC/zhesv_rook.f @@ -184,8 +184,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16HEsolve *> *> \verbatim @@ -205,10 +203,9 @@ SUBROUTINE ZHESV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.5.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhesvx.f b/lapack-netlib/SRC/zhesvx.f index d70632694..485c81df6 100644 --- a/lapack-netlib/SRC/zhesvx.f +++ b/lapack-netlib/SRC/zhesvx.f @@ -276,8 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16HEsolve * * ===================================================================== @@ -285,10 +283,9 @@ $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/zhesvxx.f b/lapack-netlib/SRC/zhesvxx.f index 20168185c..cafd58db1 100644 --- a/lapack-netlib/SRC/zhesvxx.f +++ b/lapack-netlib/SRC/zhesvxx.f @@ -185,12 +185,12 @@ *> If FACT = 'F', then AF is an input argument and on entry *> contains the block diagonal matrix D and the multipliers *> used to obtain the factor U or L from the factorization A = -*> U*D*U**T or A = L*D*L**T as computed by DSYTRF. +*> U*D*U**H or A = L*D*L**H as computed by ZHETRF. *> *> If FACT = 'N', then AF is an output argument and on exit *> returns the block diagonal matrix D and the multipliers *> used to obtain the factor U or L from the factorization A = -*> U*D*U**T or A = L*D*L**T. +*> U*D*U**H or A = L*D*L**H. *> \endverbatim *> *> \param[in] LDAF @@ -496,8 +496,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16HEsolve * * ===================================================================== @@ -506,10 +504,9 @@ $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO @@ -646,7 +643,7 @@ * IF( NOFACT .OR. EQUIL ) THEN * -* Compute the LDL^T or UDU^T factorization of A. +* Compute the LDL^H or UDU^H factorization of A. * CALL ZLACPY( UPLO, N, N, A, LDA, AF, LDAF ) CALL ZHETRF( UPLO, N, AF, LDAF, IPIV, WORK, 5*MAX(1,N), INFO ) diff --git a/lapack-netlib/SRC/zheswapr.f b/lapack-netlib/SRC/zheswapr.f index 1eec8477f..71b1ed1c4 100644 --- a/lapack-netlib/SRC/zheswapr.f +++ b/lapack-netlib/SRC/zheswapr.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEauxiliary * * ===================================================================== SUBROUTINE ZHESWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetd2.f b/lapack-netlib/SRC/zhetd2.f index 6c5b8aae3..a6d900b7c 100644 --- a/lapack-netlib/SRC/zhetd2.f +++ b/lapack-netlib/SRC/zhetd2.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -175,10 +173,9 @@ * ===================================================================== SUBROUTINE ZHETD2( UPLO, N, A, LDA, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -248,7 +245,7 @@ * ALPHA = A( I, I+1 ) CALL ZLARFG( I, ALPHA, A( 1, I+1 ), 1, TAUI ) - E( I ) = ALPHA + E( I ) = DBLE( ALPHA ) * IF( TAUI.NE.ZERO ) THEN * @@ -276,10 +273,10 @@ A( I, I ) = DBLE( A( I, I ) ) END IF A( I, I+1 ) = E( I ) - D( I+1 ) = A( I+1, I+1 ) + D( I+1 ) = DBLE( A( I+1, I+1 ) ) TAU( I ) = TAUI 10 CONTINUE - D( 1 ) = A( 1, 1 ) + D( 1 ) = DBLE( A( 1, 1 ) ) ELSE * * Reduce the lower triangle of A @@ -292,7 +289,7 @@ * ALPHA = A( I+1, I ) CALL ZLARFG( N-I, ALPHA, A( MIN( I+2, N ), I ), 1, TAUI ) - E( I ) = ALPHA + E( I ) = DBLE( ALPHA ) * IF( TAUI.NE.ZERO ) THEN * @@ -321,10 +318,10 @@ A( I+1, I+1 ) = DBLE( A( I+1, I+1 ) ) END IF A( I+1, I ) = E( I ) - D( I ) = A( I, I ) + D( I ) = DBLE( A( I, I ) ) TAU( I ) = TAUI 20 CONTINUE - D( N ) = A( N, N ) + D( N ) = DBLE( A( N, N ) ) END IF * RETURN diff --git a/lapack-netlib/SRC/zhetf2.f b/lapack-netlib/SRC/zhetf2.f index 612d9c5df..7a64951c7 100644 --- a/lapack-netlib/SRC/zhetf2.f +++ b/lapack-netlib/SRC/zhetf2.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -191,10 +189,9 @@ * ===================================================================== SUBROUTINE ZHETF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetf2_rk.f b/lapack-netlib/SRC/zhetf2_rk.f index 6578214df..050c7993d 100644 --- a/lapack-netlib/SRC/zhetf2_rk.f +++ b/lapack-netlib/SRC/zhetf2_rk.f @@ -208,8 +208,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -241,10 +239,9 @@ * ===================================================================== SUBROUTINE ZHETF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -420,7 +417,7 @@ * * Case(2) * Equivalent to testing for -* ABS( REAL( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX +* ABS( DBLE( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX * (used to handle NaN and Inf) * IF( .NOT.( ABS( DBLE( A( IMAX, IMAX ) ) ) @@ -611,8 +608,8 @@ * D = |A12| D = DLAPY2( DBLE( A( K-1, K ) ), $ DIMAG( A( K-1, K ) ) ) - D11 = A( K, K ) / D - D22 = A( K-1, K-1 ) / D + D11 = DBLE( A( K, K ) / D ) + D22 = DBLE( A( K-1, K-1 ) / D ) D12 = A( K-1, K ) / D TT = ONE / ( D11*D22-ONE ) * @@ -773,7 +770,7 @@ * * Case(2) * Equivalent to testing for -* ABS( REAL( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX +* ABS( DBLE( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX * (used to handle NaN and Inf) * IF( .NOT.( ABS( DBLE( A( IMAX, IMAX ) ) ) diff --git a/lapack-netlib/SRC/zhetf2_rook.f b/lapack-netlib/SRC/zhetf2_rook.f index 7d524cdb0..94bb29736 100644 --- a/lapack-netlib/SRC/zhetf2_rook.f +++ b/lapack-netlib/SRC/zhetf2_rook.f @@ -129,8 +129,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -194,10 +192,9 @@ * ===================================================================== SUBROUTINE ZHETF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO @@ -360,7 +357,7 @@ * * Case(2) * Equivalent to testing for -* ABS( REAL( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX +* ABS( DBLE( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX * (used to handle NaN and Inf) * IF( .NOT.( ABS( DBLE( A( IMAX, IMAX ) ) ) @@ -531,8 +528,8 @@ * D = |A12| D = DLAPY2( DBLE( A( K-1, K ) ), $ DIMAG( A( K-1, K ) ) ) - D11 = A( K, K ) / D - D22 = A( K-1, K-1 ) / D + D11 = DBLE( A( K, K ) / D ) + D22 = DBLE( A( K-1, K-1 ) / D ) D12 = A( K-1, K ) / D TT = ONE / ( D11*D22-ONE ) * @@ -672,7 +669,7 @@ * * Case(2) * Equivalent to testing for -* ABS( REAL( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX +* ABS( DBLE( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX * (used to handle NaN and Inf) * IF( .NOT.( ABS( DBLE( A( IMAX, IMAX ) ) ) diff --git a/lapack-netlib/SRC/zhetrd.f b/lapack-netlib/SRC/zhetrd.f index 51c9fc2ec..5b7d6546c 100644 --- a/lapack-netlib/SRC/zhetrd.f +++ b/lapack-netlib/SRC/zhetrd.f @@ -139,8 +139,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -192,10 +190,9 @@ * ===================================================================== SUBROUTINE ZHETRD( UPLO, N, A, LDA, D, E, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -328,7 +325,7 @@ * DO 10 J = I, I + NB - 1 A( J-1, J ) = E( J-1 ) - D( J ) = A( J, J ) + D( J ) = DBLE( A( J, J ) ) 10 CONTINUE 20 CONTINUE * @@ -360,7 +357,7 @@ * DO 30 J = I, I + NB - 1 A( J+1, J ) = E( J ) - D( J ) = A( J, J ) + D( J ) = DBLE( A( J, J ) ) 30 CONTINUE 40 CONTINUE * diff --git a/lapack-netlib/SRC/zhetrd_2stage.f b/lapack-netlib/SRC/zhetrd_2stage.f index 1a2c00a2f..b9d2f0eb1 100644 --- a/lapack-netlib/SRC/zhetrd_2stage.f +++ b/lapack-netlib/SRC/zhetrd_2stage.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -226,10 +224,9 @@ * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER VECT, UPLO diff --git a/lapack-netlib/SRC/zhetrd_hb2st.F b/lapack-netlib/SRC/zhetrd_hb2st.F index 4ba7bfc21..e839271a4 100644 --- a/lapack-netlib/SRC/zhetrd_hb2st.F +++ b/lapack-netlib/SRC/zhetrd_hb2st.F @@ -7,11 +7,11 @@ * *> \htmlonly *> Download ZHETRD_HB2ST + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -188,8 +188,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -237,10 +235,9 @@ * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER STAGE1, UPLO, VECT @@ -395,7 +392,7 @@ * For that, for real precision just copy the diag and offdiag * to D and E while for the COMPLEX case the bulge chasing is * performed to convert the hermetian tridiagonal to symmetric -* tridiagonal. A simpler coversion formula might be used, but then +* tridiagonal. A simpler conversion formula might be used, but then * updating the Q matrix will be required and based if Q is generated * or not this might complicate the story. * diff --git a/lapack-netlib/SRC/zhetrd_he2hb.f b/lapack-netlib/SRC/zhetrd_he2hb.f index b85b3889a..e1b2e1794 100644 --- a/lapack-netlib/SRC/zhetrd_he2hb.f +++ b/lapack-netlib/SRC/zhetrd_he2hb.f @@ -9,11 +9,11 @@ * *> \htmlonly *> Download ZHETRD_HE2HB + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -245,10 +243,9 @@ * IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetrf.f b/lapack-netlib/SRC/zhetrf.f index 3866abd73..78d4f71b8 100644 --- a/lapack-netlib/SRC/zhetrf.f +++ b/lapack-netlib/SRC/zhetrf.f @@ -130,8 +130,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ * ===================================================================== SUBROUTINE ZHETRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetrf_aa.f b/lapack-netlib/SRC/zhetrf_aa.f index b80a84118..56722e7e6 100644 --- a/lapack-netlib/SRC/zhetrf_aa.f +++ b/lapack-netlib/SRC/zhetrf_aa.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHETRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * @@ -462,6 +459,7 @@ END IF * 20 CONTINUE + WORK( 1 ) = LWKOPT RETURN * * End of ZHETRF_AA diff --git a/lapack-netlib/SRC/zhetrf_aa_2stage.f b/lapack-netlib/SRC/zhetrf_aa_2stage.f index f63713664..92f1c09b3 100644 --- a/lapack-netlib/SRC/zhetrf_aa_2stage.f +++ b/lapack-netlib/SRC/zhetrf_aa_2stage.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZHETRF_AA_2STAGE( UPLO, N, A, LDA, TB, LTB, IPIV, $ IPIV2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zhetrf_rk.f b/lapack-netlib/SRC/zhetrf_rk.f index 42b829eaf..73dd9f9d0 100644 --- a/lapack-netlib/SRC/zhetrf_rk.f +++ b/lapack-netlib/SRC/zhetrf_rk.f @@ -229,8 +229,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -259,10 +257,9 @@ SUBROUTINE ZHETRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetrf_rook.f b/lapack-netlib/SRC/zhetrf_rook.f index afbad21c3..e9de47248 100644 --- a/lapack-netlib/SRC/zhetrf_rook.f +++ b/lapack-netlib/SRC/zhetrf_rook.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -212,10 +210,9 @@ * ===================================================================== SUBROUTINE ZHETRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.6.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetri.f b/lapack-netlib/SRC/zhetri.f index 020fe65d9..284ba8738 100644 --- a/lapack-netlib/SRC/zhetri.f +++ b/lapack-netlib/SRC/zhetri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHETRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetri2.f b/lapack-netlib/SRC/zhetri2.f index ae43b14fe..384745c3a 100644 --- a/lapack-netlib/SRC/zhetri2.f +++ b/lapack-netlib/SRC/zhetri2.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHETRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetri2x.f b/lapack-netlib/SRC/zhetri2x.f index ab35e700a..c1a3908dc 100644 --- a/lapack-netlib/SRC/zhetri2x.f +++ b/lapack-netlib/SRC/zhetri2x.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHETRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO @@ -242,8 +239,8 @@ ELSE * 2 x 2 diagonal NNB T = ABS ( WORK(K+1,1) ) - AK = REAL ( A( K, K ) ) / T - AKP1 = REAL ( A( K+1, K+1 ) ) / T + AK = DBLE ( A( K, K ) ) / T + AKP1 = DBLE ( A( K+1, K+1 ) ) / T AKKP1 = WORK(K+1,1) / T D = T*( AK*AKP1-ONE ) WORK(K,INVD) = AKP1 / D @@ -419,8 +416,8 @@ ELSE * 2 x 2 diagonal NNB T = ABS ( WORK(K-1,1) ) - AK = REAL ( A( K-1, K-1 ) ) / T - AKP1 = REAL ( A( K, K ) ) / T + AK = DBLE ( A( K-1, K-1 ) ) / T + AKP1 = DBLE ( A( K, K ) ) / T AKKP1 = WORK(K-1,1) / T D = T*( AK*AKP1-ONE ) WORK(K-1,INVD) = AKP1 / D diff --git a/lapack-netlib/SRC/zhetri_3.f b/lapack-netlib/SRC/zhetri_3.f index 14be660ea..c778f1b9e 100644 --- a/lapack-netlib/SRC/zhetri_3.f +++ b/lapack-netlib/SRC/zhetri_3.f @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -170,10 +168,9 @@ SUBROUTINE ZHETRI_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetri_3x.f b/lapack-netlib/SRC/zhetri_3x.f index d7c00c81b..941b7522f 100644 --- a/lapack-netlib/SRC/zhetri_3x.f +++ b/lapack-netlib/SRC/zhetri_3x.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -159,10 +157,9 @@ * ===================================================================== SUBROUTINE ZHETRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetri_rook.f b/lapack-netlib/SRC/zhetri_rook.f index 68b88acbd..f6ad6180d 100644 --- a/lapack-netlib/SRC/zhetri_rook.f +++ b/lapack-netlib/SRC/zhetri_rook.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -128,10 +126,9 @@ * ===================================================================== SUBROUTINE ZHETRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetrs.f b/lapack-netlib/SRC/zhetrs.f index 5af9542d4..b00821d7f 100644 --- a/lapack-netlib/SRC/zhetrs.f +++ b/lapack-netlib/SRC/zhetrs.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHETRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetrs2.f b/lapack-netlib/SRC/zhetrs2.f index 77f60d4ba..010568c42 100644 --- a/lapack-netlib/SRC/zhetrs2.f +++ b/lapack-netlib/SRC/zhetrs2.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHETRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetrs_3.f b/lapack-netlib/SRC/zhetrs_3.f index 937544e8f..4de54bab4 100644 --- a/lapack-netlib/SRC/zhetrs_3.f +++ b/lapack-netlib/SRC/zhetrs_3.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -165,10 +163,9 @@ SUBROUTINE ZHETRS_3( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhetrs_aa.f b/lapack-netlib/SRC/zhetrs_aa.f index 4b3253abc..06ac1fd28 100644 --- a/lapack-netlib/SRC/zhetrs_aa.f +++ b/lapack-netlib/SRC/zhetrs_aa.f @@ -124,18 +124,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZHETRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zhetrs_aa_2stage.f b/lapack-netlib/SRC/zhetrs_aa_2stage.f index c621bd571..74037f8a8 100644 --- a/lapack-netlib/SRC/zhetrs_aa_2stage.f +++ b/lapack-netlib/SRC/zhetrs_aa_2stage.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZHETRS_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, $ IPIV, IPIV2, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zhetrs_rook.f b/lapack-netlib/SRC/zhetrs_rook.f index f99697ca5..cb0553824 100644 --- a/lapack-netlib/SRC/zhetrs_rook.f +++ b/lapack-netlib/SRC/zhetrs_rook.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -136,10 +134,9 @@ SUBROUTINE ZHETRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhfrk.f b/lapack-netlib/SRC/zhfrk.f index 6440542fe..2fd8fa04d 100644 --- a/lapack-netlib/SRC/zhfrk.f +++ b/lapack-netlib/SRC/zhfrk.f @@ -160,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZHFRK( TRANSR, UPLO, TRANS, N, K, ALPHA, A, LDA, BETA, $ C ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/lapack-netlib/SRC/zhgeqz.f b/lapack-netlib/SRC/zhgeqz.f index 960244727..302b69f34 100644 --- a/lapack-netlib/SRC/zhgeqz.f +++ b/lapack-netlib/SRC/zhgeqz.f @@ -266,8 +266,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GEcomputational * *> \par Further Details: @@ -284,10 +282,9 @@ $ ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, $ RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER COMPQ, COMPZ, JOB @@ -519,13 +516,17 @@ IF( ILAST.EQ.ILO ) THEN GO TO 60 ELSE - IF( ABS1( H( ILAST, ILAST-1 ) ).LE.ATOL ) THEN + IF( ABS1( H( ILAST, ILAST-1 ) ).LE.MAX( SAFMIN, ULP*( + $ ABS1( H( ILAST, ILAST ) ) + ABS1( H( ILAST-1, ILAST-1 ) + $ ) ) ) ) THEN H( ILAST, ILAST-1 ) = CZERO GO TO 60 END IF END IF * - IF( ABS( T( ILAST, ILAST ) ).LE.BTOL ) THEN + IF( ABS( T( ILAST, ILAST ) ).LE.MAX( SAFMIN, ULP*( + $ ABS( T( ILAST - 1, ILAST ) ) + ABS( T( ILAST-1, ILAST-1 ) + $ ) ) ) ) THEN T( ILAST, ILAST ) = CZERO GO TO 50 END IF @@ -539,7 +540,9 @@ IF( J.EQ.ILO ) THEN ILAZRO = .TRUE. ELSE - IF( ABS1( H( J, J-1 ) ).LE.ATOL ) THEN + IF( ABS1( H( J, J-1 ) ).LE.MAX( SAFMIN, ULP*( + $ ABS1( H( J, J ) ) + ABS1( H( J-1, J-1 ) ) + $ ) ) ) THEN H( J, J-1 ) = CZERO ILAZRO = .TRUE. ELSE @@ -549,7 +552,10 @@ * * Test 2: for T(j,j)=0 * - IF( ABS( T( J, J ) ).LT.BTOL ) THEN + TEMP = ABS ( T( J, J + 1 ) ) + IF ( J .GT. ILO ) + $ TEMP = TEMP + ABS ( T( J - 1, J ) ) + IF( ABS( T( J, J ) ).LT.MAX( SAFMIN,ULP*TEMP ) ) THEN T( J, J ) = CZERO * * Test 1a: Check for 2 consecutive small subdiagonals in A diff --git a/lapack-netlib/SRC/zhpcon.f b/lapack-netlib/SRC/zhpcon.f index dcf323141..c028529b1 100644 --- a/lapack-netlib/SRC/zhpcon.f +++ b/lapack-netlib/SRC/zhpcon.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZHPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhpev.f b/lapack-netlib/SRC/zhpev.f index 2ac1c9373..bc43049d8 100644 --- a/lapack-netlib/SRC/zhpev.f +++ b/lapack-netlib/SRC/zhpev.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHEReigen * * ===================================================================== SUBROUTINE ZHPEV( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, RWORK, $ INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -206,7 +203,7 @@ $ RETURN * IF( N.EQ.1 ) THEN - W( 1 ) = AP( 1 ) + W( 1 ) = DBLE( AP( 1 ) ) RWORK( 1 ) = 1 IF( WANTZ ) $ Z( 1, 1 ) = ONE diff --git a/lapack-netlib/SRC/zhpevd.f b/lapack-netlib/SRC/zhpevd.f index 83983ee85..7625c8fe8 100644 --- a/lapack-netlib/SRC/zhpevd.f +++ b/lapack-netlib/SRC/zhpevd.f @@ -192,18 +192,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHEReigen * * ===================================================================== SUBROUTINE ZHPEVD( JOBZ, UPLO, N, AP, W, Z, LDZ, WORK, LWORK, $ RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.1) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO @@ -303,7 +300,7 @@ $ RETURN * IF( N.EQ.1 ) THEN - W( 1 ) = AP( 1 ) + W( 1 ) = DBLE( AP( 1 ) ) IF( WANTZ ) $ Z( 1, 1 ) = CONE RETURN diff --git a/lapack-netlib/SRC/zhpevx.f b/lapack-netlib/SRC/zhpevx.f index 7e32a3728..f22e84bd7 100644 --- a/lapack-netlib/SRC/zhpevx.f +++ b/lapack-netlib/SRC/zhpevx.f @@ -231,8 +231,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHEReigen * * ===================================================================== @@ -240,10 +238,9 @@ $ ABSTOL, M, W, Z, LDZ, WORK, RWORK, IWORK, $ IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO @@ -335,11 +332,11 @@ IF( N.EQ.1 ) THEN IF( ALLEIG .OR. INDEIG ) THEN M = 1 - W( 1 ) = AP( 1 ) + W( 1 ) = DBLE( AP( 1 ) ) ELSE IF( VL.LT.DBLE( AP( 1 ) ) .AND. VU.GE.DBLE( AP( 1 ) ) ) THEN M = 1 - W( 1 ) = AP( 1 ) + W( 1 ) = DBLE( AP( 1 ) ) END IF END IF IF( WANTZ ) diff --git a/lapack-netlib/SRC/zhpgst.f b/lapack-netlib/SRC/zhpgst.f index cf2c51607..49822e09d 100644 --- a/lapack-netlib/SRC/zhpgst.f +++ b/lapack-netlib/SRC/zhpgst.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZHPGST( ITYPE, UPLO, N, AP, BP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -185,7 +182,7 @@ * Compute the j-th column of the upper triangle of A * AP( JJ ) = DBLE( AP( JJ ) ) - BJJ = BP( JJ ) + BJJ = DBLE( BP( JJ ) ) CALL ZTPSV( UPLO, 'Conjugate transpose', 'Non-unit', J, $ BP, AP( J1 ), 1 ) CALL ZHPMV( UPLO, J-1, -CONE, AP, BP( J1 ), 1, CONE, @@ -206,8 +203,8 @@ * * Update the lower triangle of A(k:n,k:n) * - AKK = AP( KK ) - BKK = BP( KK ) + AKK = DBLE( AP( KK ) ) + BKK = DBLE( BP( KK ) ) AKK = AKK / BKK**2 AP( KK ) = AKK IF( K.LT.N ) THEN @@ -237,8 +234,8 @@ * * Update the upper triangle of A(1:k,1:k) * - AKK = AP( KK ) - BKK = BP( KK ) + AKK = DBLE( AP( KK ) ) + BKK = DBLE( BP( KK ) ) CALL ZTPMV( UPLO, 'No transpose', 'Non-unit', K-1, BP, $ AP( K1 ), 1 ) CT = HALF*AKK @@ -261,8 +258,8 @@ * * Compute the j-th column of the lower triangle of A * - AJJ = AP( JJ ) - BJJ = BP( JJ ) + AJJ = DBLE( AP( JJ ) ) + BJJ = DBLE( BP( JJ ) ) AP( JJ ) = AJJ*BJJ + ZDOTC( N-J, AP( JJ+1 ), 1, $ BP( JJ+1 ), 1 ) CALL ZDSCAL( N-J, BJJ, AP( JJ+1 ), 1 ) diff --git a/lapack-netlib/SRC/zhpgv.f b/lapack-netlib/SRC/zhpgv.f index c6a9a6a54..72876b6e4 100644 --- a/lapack-netlib/SRC/zhpgv.f +++ b/lapack-netlib/SRC/zhpgv.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHEReigen * * ===================================================================== SUBROUTINE ZHPGV( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zhpgvd.f b/lapack-netlib/SRC/zhpgvd.f index f0fad9eba..d27cdc761 100644 --- a/lapack-netlib/SRC/zhpgvd.f +++ b/lapack-netlib/SRC/zhpgvd.f @@ -218,8 +218,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHEReigen * *> \par Contributors: @@ -231,10 +229,9 @@ SUBROUTINE ZHPGVD( ITYPE, JOBZ, UPLO, N, AP, BP, W, Z, LDZ, WORK, $ LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, UPLO diff --git a/lapack-netlib/SRC/zhpgvx.f b/lapack-netlib/SRC/zhpgvx.f index 8e8ec13f4..94d7f7733 100644 --- a/lapack-netlib/SRC/zhpgvx.f +++ b/lapack-netlib/SRC/zhpgvx.f @@ -263,8 +263,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHEReigen * *> \par Contributors: @@ -277,10 +275,9 @@ $ IL, IU, ABSTOL, M, W, Z, LDZ, WORK, RWORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE, UPLO diff --git a/lapack-netlib/SRC/zhprfs.f b/lapack-netlib/SRC/zhprfs.f index 277a6e750..4aa91aa9d 100644 --- a/lapack-netlib/SRC/zhprfs.f +++ b/lapack-netlib/SRC/zhprfs.f @@ -172,18 +172,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZHPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhpsv.f b/lapack-netlib/SRC/zhpsv.f index 37ca126d6..671eac6e6 100644 --- a/lapack-netlib/SRC/zhpsv.f +++ b/lapack-netlib/SRC/zhpsv.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE ZHPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhpsvx.f b/lapack-netlib/SRC/zhpsvx.f index 5dcb9f4fa..5c7b2e6ce 100644 --- a/lapack-netlib/SRC/zhpsvx.f +++ b/lapack-netlib/SRC/zhpsvx.f @@ -249,8 +249,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16OTHERsolve * *> \par Further Details: @@ -277,10 +275,9 @@ SUBROUTINE ZHPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/zhptrd.f b/lapack-netlib/SRC/zhptrd.f index a230e3dad..d933af894 100644 --- a/lapack-netlib/SRC/zhptrd.f +++ b/lapack-netlib/SRC/zhptrd.f @@ -112,8 +112,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -151,10 +149,9 @@ * ===================================================================== SUBROUTINE ZHPTRD( UPLO, N, AP, D, E, TAU, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -224,7 +221,7 @@ * ALPHA = AP( I1+I-1 ) CALL ZLARFG( I, ALPHA, AP( I1 ), 1, TAUI ) - E( I ) = ALPHA + E( I ) = DBLE( ALPHA ) * IF( TAUI.NE.ZERO ) THEN * @@ -249,11 +246,11 @@ * END IF AP( I1+I-1 ) = E( I ) - D( I+1 ) = AP( I1+I ) + D( I+1 ) = DBLE( AP( I1+I ) ) TAU( I ) = TAUI I1 = I1 - I 10 CONTINUE - D( 1 ) = AP( 1 ) + D( 1 ) = DBLE( AP( 1 ) ) ELSE * * Reduce the lower triangle of A. II is the index in AP of @@ -269,7 +266,7 @@ * ALPHA = AP( II+1 ) CALL ZLARFG( N-I, ALPHA, AP( II+2 ), 1, TAUI ) - E( I ) = ALPHA + E( I ) = DBLE( ALPHA ) * IF( TAUI.NE.ZERO ) THEN * @@ -296,11 +293,11 @@ * END IF AP( II+1 ) = E( I ) - D( I ) = AP( II ) + D( I ) = DBLE( AP( II ) ) TAU( I ) = TAUI II = I1I1 20 CONTINUE - D( N ) = AP( II ) + D( N ) = DBLE( AP( II ) ) END IF * RETURN diff --git a/lapack-netlib/SRC/zhptrf.f b/lapack-netlib/SRC/zhptrf.f index 2fa2ee8ed..9c736f335 100644 --- a/lapack-netlib/SRC/zhptrf.f +++ b/lapack-netlib/SRC/zhptrf.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -159,10 +157,9 @@ * ===================================================================== SUBROUTINE ZHPTRF( UPLO, N, AP, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhptri.f b/lapack-netlib/SRC/zhptri.f index 4df455d22..61147cac2 100644 --- a/lapack-netlib/SRC/zhptri.f +++ b/lapack-netlib/SRC/zhptri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZHPTRI( UPLO, N, AP, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhptrs.f b/lapack-netlib/SRC/zhptrs.f index 71289d57c..ddf8d8eb0 100644 --- a/lapack-netlib/SRC/zhptrs.f +++ b/lapack-netlib/SRC/zhptrs.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZHPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zhsein.f b/lapack-netlib/SRC/zhsein.f index 652c7d794..4d3594017 100644 --- a/lapack-netlib/SRC/zhsein.f +++ b/lapack-netlib/SRC/zhsein.f @@ -226,8 +226,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -245,10 +243,9 @@ $ LDVL, VR, LDVR, MM, M, WORK, RWORK, IFAILL, $ IFAILR, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EIGSRC, INITV, SIDE diff --git a/lapack-netlib/SRC/zhseqr.f b/lapack-netlib/SRC/zhseqr.f index e0fddd3a7..d483641c8 100644 --- a/lapack-netlib/SRC/zhseqr.f +++ b/lapack-netlib/SRC/zhseqr.f @@ -216,8 +216,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -299,10 +297,9 @@ SUBROUTINE ZHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, Z, LDZ, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/zla_gbamv.f b/lapack-netlib/SRC/zla_gbamv.f index 6ffaf8f7d..a4a9bc0a0 100644 --- a/lapack-netlib/SRC/zla_gbamv.f +++ b/lapack-netlib/SRC/zla_gbamv.f @@ -178,18 +178,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GBcomputational * * ===================================================================== SUBROUTINE ZLA_GBAMV( TRANS, M, N, KL, KU, ALPHA, AB, LDAB, X, $ INCX, BETA, Y, INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/lapack-netlib/SRC/zla_gbrcond_c.f b/lapack-netlib/SRC/zla_gbrcond_c.f index 5b2dc46fc..6515c383e 100644 --- a/lapack-netlib/SRC/zla_gbrcond_c.f +++ b/lapack-netlib/SRC/zla_gbrcond_c.f @@ -153,8 +153,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * * ===================================================================== @@ -163,10 +161,9 @@ $ C, CAPPLY, INFO, WORK, $ RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -340,5 +337,7 @@ $ ZLA_GBRCOND_C = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_GBRCOND_C * END diff --git a/lapack-netlib/SRC/zla_gbrcond_x.f b/lapack-netlib/SRC/zla_gbrcond_x.f index 17e9eede7..a3e89f328 100644 --- a/lapack-netlib/SRC/zla_gbrcond_x.f +++ b/lapack-netlib/SRC/zla_gbrcond_x.f @@ -146,8 +146,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * * ===================================================================== @@ -155,10 +153,9 @@ $ LDAB, AFB, LDAFB, IPIV, $ X, INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -317,5 +314,7 @@ $ ZLA_GBRCOND_X = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_GBRCOND_X * END diff --git a/lapack-netlib/SRC/zla_gbrfsx_extended.f b/lapack-netlib/SRC/zla_gbrfsx_extended.f index a22b5592e..fe4d635b1 100644 --- a/lapack-netlib/SRC/zla_gbrfsx_extended.f +++ b/lapack-netlib/SRC/zla_gbrfsx_extended.f @@ -54,7 +54,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -368,7 +368,7 @@ *> DZ_UB is DOUBLE PRECISION *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -397,8 +397,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GBcomputational * * ===================================================================== @@ -410,10 +408,9 @@ $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDAB, LDAFB, LDB, LDY, N, KL, KU, NRHS, @@ -710,4 +707,7 @@ END DO * RETURN +* +* End of ZLA_GBRFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/zla_gbrpvgrw.f b/lapack-netlib/SRC/zla_gbrpvgrw.f index b2ae02bf6..7bf810169 100644 --- a/lapack-netlib/SRC/zla_gbrpvgrw.f +++ b/lapack-netlib/SRC/zla_gbrpvgrw.f @@ -109,18 +109,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBcomputational * * ===================================================================== DOUBLE PRECISION FUNCTION ZLA_GBRPVGRW( N, KL, KU, NCOLS, AB, $ LDAB, AFB, LDAFB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, KL, KU, NCOLS, LDAB, LDAFB @@ -164,4 +161,7 @@ END IF END DO ZLA_GBRPVGRW = RPVGRW +* +* End of ZLA_GBRPVGRW +* END diff --git a/lapack-netlib/SRC/zla_geamv.f b/lapack-netlib/SRC/zla_geamv.f index 221e0c3fd..728b27a68 100644 --- a/lapack-netlib/SRC/zla_geamv.f +++ b/lapack-netlib/SRC/zla_geamv.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, $ Y, INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/lapack-netlib/SRC/zla_gercond_c.f b/lapack-netlib/SRC/zla_gercond_c.f index a1c0df588..8c8caca46 100644 --- a/lapack-netlib/SRC/zla_gercond_c.f +++ b/lapack-netlib/SRC/zla_gercond_c.f @@ -134,8 +134,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== @@ -143,10 +141,9 @@ $ LDAF, IPIV, C, CAPPLY, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -314,5 +311,7 @@ $ ZLA_GERCOND_C = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_GERCOND_C * END diff --git a/lapack-netlib/SRC/zla_gercond_x.f b/lapack-netlib/SRC/zla_gercond_x.f index 3aa63ea84..9de53ec91 100644 --- a/lapack-netlib/SRC/zla_gercond_x.f +++ b/lapack-netlib/SRC/zla_gercond_x.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== @@ -136,10 +134,9 @@ $ LDAF, IPIV, X, INFO, $ WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -290,5 +287,7 @@ $ ZLA_GERCOND_X = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_GERCOND_X * END diff --git a/lapack-netlib/SRC/zla_gerfsx_extended.f b/lapack-netlib/SRC/zla_gerfsx_extended.f index e42ffa8e2..9d618f294 100644 --- a/lapack-netlib/SRC/zla_gerfsx_extended.f +++ b/lapack-netlib/SRC/zla_gerfsx_extended.f @@ -53,7 +53,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERRS_N *> and ERRS_C for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERRS_N and ERRS_C. *> \endverbatim * @@ -355,7 +355,7 @@ *> DZ_UB is DOUBLE PRECISION *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -384,8 +384,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEcomputational * * ===================================================================== @@ -396,10 +394,9 @@ $ Y_TAIL, RCOND, ITHRESH, RTHRESH, $ DZ_UB, IGNORE_CWISE, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -694,4 +691,7 @@ END DO * RETURN +* +* End of ZLA_GERFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/zla_gerpvgrw.f b/lapack-netlib/SRC/zla_gerpvgrw.f index a5f517467..e0d93486a 100644 --- a/lapack-netlib/SRC/zla_gerpvgrw.f +++ b/lapack-netlib/SRC/zla_gerpvgrw.f @@ -92,18 +92,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== DOUBLE PRECISION FUNCTION ZLA_GERPVGRW( N, NCOLS, A, LDA, AF, $ LDAF ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER N, NCOLS, LDA, LDAF @@ -146,4 +143,7 @@ END IF END DO ZLA_GERPVGRW = RPVGRW +* +* End of ZLA_GERPVGRW +* END diff --git a/lapack-netlib/SRC/zla_heamv.f b/lapack-netlib/SRC/zla_heamv.f index cd536efb2..66cece241 100644 --- a/lapack-netlib/SRC/zla_heamv.f +++ b/lapack-netlib/SRC/zla_heamv.f @@ -154,8 +154,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16HEcomputational * *> \par Further Details: @@ -178,10 +176,9 @@ SUBROUTINE ZLA_HEAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/lapack-netlib/SRC/zla_hercond_c.f b/lapack-netlib/SRC/zla_hercond_c.f index 7c933cc3c..9de54ea52 100644 --- a/lapack-netlib/SRC/zla_hercond_c.f +++ b/lapack-netlib/SRC/zla_hercond_c.f @@ -131,8 +131,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== @@ -140,10 +138,9 @@ $ LDAF, IPIV, C, CAPPLY, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -325,5 +322,7 @@ $ ZLA_HERCOND_C = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_HERCOND_C * END diff --git a/lapack-netlib/SRC/zla_hercond_x.f b/lapack-netlib/SRC/zla_hercond_x.f index ee283c0b5..e1ffafd49 100644 --- a/lapack-netlib/SRC/zla_hercond_x.f +++ b/lapack-netlib/SRC/zla_hercond_x.f @@ -124,8 +124,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== @@ -133,10 +131,9 @@ $ LDAF, IPIV, X, INFO, $ WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -295,5 +292,7 @@ $ ZLA_HERCOND_X = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_HERCOND_X * END diff --git a/lapack-netlib/SRC/zla_herfsx_extended.f b/lapack-netlib/SRC/zla_herfsx_extended.f index 8329080ef..a55dd9431 100644 --- a/lapack-netlib/SRC/zla_herfsx_extended.f +++ b/lapack-netlib/SRC/zla_herfsx_extended.f @@ -55,7 +55,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -353,7 +353,7 @@ *> DZ_UB is DOUBLE PRECISION *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -382,8 +382,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16HEcomputational * * ===================================================================== @@ -395,10 +393,9 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -714,4 +711,7 @@ END DO * RETURN +* +* End of ZLA_HERFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/zla_herpvgrw.f b/lapack-netlib/SRC/zla_herpvgrw.f index d414c371f..76571f6da 100644 --- a/lapack-netlib/SRC/zla_herpvgrw.f +++ b/lapack-netlib/SRC/zla_herpvgrw.f @@ -115,18 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16HEcomputational * * ===================================================================== DOUBLE PRECISION FUNCTION ZLA_HERPVGRW( UPLO, N, INFO, A, LDA, AF, $ LDAF, IPIV, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -327,4 +324,7 @@ END IF ZLA_HERPVGRW = RPVGRW +* +* End of ZLA_HERPVGRW +* END diff --git a/lapack-netlib/SRC/zla_lin_berr.f b/lapack-netlib/SRC/zla_lin_berr.f index 91be51939..8da3550d9 100644 --- a/lapack-netlib/SRC/zla_lin_berr.f +++ b/lapack-netlib/SRC/zla_lin_berr.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZLA_LIN_BERR ( N, NZ, NRHS, RES, AYB, BERR ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER N, NZ, NRHS @@ -157,4 +154,7 @@ * END DO END DO +* +* End of ZLA_LIN_BERR +* END diff --git a/lapack-netlib/SRC/zla_porcond_c.f b/lapack-netlib/SRC/zla_porcond_c.f index 2e591dd09..6133f43df 100644 --- a/lapack-netlib/SRC/zla_porcond_c.f +++ b/lapack-netlib/SRC/zla_porcond_c.f @@ -123,8 +123,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== @@ -132,10 +130,9 @@ $ LDAF, C, CAPPLY, INFO, $ WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -317,5 +314,7 @@ $ ZLA_PORCOND_C = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_PORCOND_C * END diff --git a/lapack-netlib/SRC/zla_porcond_x.f b/lapack-netlib/SRC/zla_porcond_x.f index 4f409544f..e73718cfc 100644 --- a/lapack-netlib/SRC/zla_porcond_x.f +++ b/lapack-netlib/SRC/zla_porcond_x.f @@ -116,8 +116,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== @@ -125,10 +123,9 @@ $ LDAF, X, INFO, WORK, $ RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -286,5 +283,7 @@ $ ZLA_PORCOND_X = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_PORCOND_X * END diff --git a/lapack-netlib/SRC/zla_porfsx_extended.f b/lapack-netlib/SRC/zla_porfsx_extended.f index 169a9a5d4..12e05e049 100644 --- a/lapack-netlib/SRC/zla_porfsx_extended.f +++ b/lapack-netlib/SRC/zla_porfsx_extended.f @@ -54,7 +54,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -345,7 +345,7 @@ *> DZ_UB is DOUBLE PRECISION *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -374,8 +374,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16POcomputational * * ===================================================================== @@ -387,10 +385,9 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -685,4 +682,7 @@ END DO * RETURN +* +* End of ZLA_PORFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/zla_porpvgrw.f b/lapack-netlib/SRC/zla_porpvgrw.f index f669b2864..9b381a072 100644 --- a/lapack-netlib/SRC/zla_porpvgrw.f +++ b/lapack-netlib/SRC/zla_porpvgrw.f @@ -99,18 +99,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== DOUBLE PRECISION FUNCTION ZLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF, $ LDAF, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -215,4 +212,7 @@ END IF ZLA_PORPVGRW = RPVGRW +* +* End of ZLA_PORPVGRW +* END diff --git a/lapack-netlib/SRC/zla_syamv.f b/lapack-netlib/SRC/zla_syamv.f index cfdb3cdc8..d00406fb5 100644 --- a/lapack-netlib/SRC/zla_syamv.f +++ b/lapack-netlib/SRC/zla_syamv.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16SYcomputational * *> \par Further Details: @@ -179,10 +177,9 @@ SUBROUTINE ZLA_SYAMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. DOUBLE PRECISION ALPHA, BETA diff --git a/lapack-netlib/SRC/zla_syrcond_c.f b/lapack-netlib/SRC/zla_syrcond_c.f index ff44d6c3b..fd7287373 100644 --- a/lapack-netlib/SRC/zla_syrcond_c.f +++ b/lapack-netlib/SRC/zla_syrcond_c.f @@ -131,8 +131,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== @@ -140,10 +138,9 @@ $ LDAF, IPIV, C, CAPPLY, $ INFO, WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -326,5 +323,7 @@ $ ZLA_SYRCOND_C = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_SYRCOND_C * END diff --git a/lapack-netlib/SRC/zla_syrcond_x.f b/lapack-netlib/SRC/zla_syrcond_x.f index 53022bbfb..85ef929bf 100644 --- a/lapack-netlib/SRC/zla_syrcond_x.f +++ b/lapack-netlib/SRC/zla_syrcond_x.f @@ -124,8 +124,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== @@ -133,10 +131,9 @@ $ LDAF, IPIV, X, INFO, $ WORK, RWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -296,5 +293,7 @@ $ ZLA_SYRCOND_X = 1.0D+0 / AINVNM * RETURN +* +* End of ZLA_SYRCOND_X * END diff --git a/lapack-netlib/SRC/zla_syrfsx_extended.f b/lapack-netlib/SRC/zla_syrfsx_extended.f index 69844c94b..d6c241499 100644 --- a/lapack-netlib/SRC/zla_syrfsx_extended.f +++ b/lapack-netlib/SRC/zla_syrfsx_extended.f @@ -55,7 +55,7 @@ *> In addition to normwise error bound, the code provides maximum *> componentwise error bound if possible. See comments for ERR_BNDS_NORM *> and ERR_BNDS_COMP for details of the error bounds. Note that this -*> subroutine is only resonsible for setting the second fields of +*> subroutine is only responsible for setting the second fields of *> ERR_BNDS_NORM and ERR_BNDS_COMP. *> \endverbatim * @@ -353,7 +353,7 @@ *> DZ_UB is DOUBLE PRECISION *> Determines when to start considering componentwise convergence. *> Componentwise convergence is only considered after each component -*> of the solution Y is stable, which we definte as the relative +*> of the solution Y is stable, which we define as the relative *> change in each component being less than DZ_UB. The default value *> is 0.25, requiring the first bit to be stable. See LAWN 165 for *> more details. @@ -382,8 +382,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== @@ -395,10 +393,9 @@ $ RTHRESH, DZ_UB, IGNORE_CWISE, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAF, LDB, LDY, N, NRHS, PREC_TYPE, @@ -714,4 +711,7 @@ END DO * RETURN +* +* End of ZLA_SYRFSX_EXTENDED +* END diff --git a/lapack-netlib/SRC/zla_syrpvgrw.f b/lapack-netlib/SRC/zla_syrpvgrw.f index 82c9f52f8..d256eee30 100644 --- a/lapack-netlib/SRC/zla_syrpvgrw.f +++ b/lapack-netlib/SRC/zla_syrpvgrw.f @@ -115,18 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== DOUBLE PRECISION FUNCTION ZLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF, $ LDAF, IPIV, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*1 UPLO @@ -328,4 +325,7 @@ END IF ZLA_SYRPVGRW = RPVGRW +* +* End of ZLA_SYRPVGRW +* END diff --git a/lapack-netlib/SRC/zla_wwaddw.f b/lapack-netlib/SRC/zla_wwaddw.f index f06113a95..e9d836646 100644 --- a/lapack-netlib/SRC/zla_wwaddw.f +++ b/lapack-netlib/SRC/zla_wwaddw.f @@ -74,17 +74,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZLA_WWADDW( N, X, Y, W ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N @@ -107,4 +104,7 @@ X(I) = S 10 CONTINUE RETURN +* +* End of ZLA_WWADDW +* END diff --git a/lapack-netlib/SRC/zlabrd.f b/lapack-netlib/SRC/zlabrd.f index 907840967..ab3b3217f 100644 --- a/lapack-netlib/SRC/zlabrd.f +++ b/lapack-netlib/SRC/zlabrd.f @@ -157,8 +157,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -212,10 +210,9 @@ SUBROUTINE ZLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y, $ LDY ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, M, N, NB @@ -270,7 +267,7 @@ ALPHA = A( I, I ) CALL ZLARFG( M-I+1, ALPHA, A( MIN( I+1, M ), I ), 1, $ TAUQ( I ) ) - D( I ) = ALPHA + D( I ) = DBLE( ALPHA ) IF( I.LT.N ) THEN A( I, I ) = ONE * @@ -310,7 +307,7 @@ ALPHA = A( I, I+1 ) CALL ZLARFG( N-I, ALPHA, A( I, MIN( I+2, N ) ), LDA, $ TAUP( I ) ) - E( I ) = ALPHA + E( I ) = DBLE( ALPHA ) A( I, I+1 ) = ONE * * Compute X(i+1:m,i) @@ -354,7 +351,7 @@ ALPHA = A( I, I ) CALL ZLARFG( N-I+1, ALPHA, A( I, MIN( I+1, N ) ), LDA, $ TAUP( I ) ) - D( I ) = ALPHA + D( I ) = DBLE( ALPHA ) IF( I.LT.M ) THEN A( I, I ) = ONE * @@ -388,7 +385,7 @@ ALPHA = A( I+1, I ) CALL ZLARFG( M-I, ALPHA, A( MIN( I+2, M ), I ), 1, $ TAUQ( I ) ) - E( I ) = ALPHA + E( I ) = DBLE( ALPHA ) A( I+1, I ) = ONE * * Compute Y(i+1:n,i) diff --git a/lapack-netlib/SRC/zlacgv.f b/lapack-netlib/SRC/zlacgv.f index 1e3ca6e73..dc935e08f 100644 --- a/lapack-netlib/SRC/zlacgv.f +++ b/lapack-netlib/SRC/zlacgv.f @@ -67,17 +67,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLACGV( N, X, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/zlacn2.f b/lapack-netlib/SRC/zlacn2.f index 9d92773ef..d301d95f4 100644 --- a/lapack-netlib/SRC/zlacn2.f +++ b/lapack-netlib/SRC/zlacn2.f @@ -96,8 +96,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -133,10 +131,9 @@ * ===================================================================== SUBROUTINE ZLACN2( N, V, X, EST, KASE, ISAVE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/lapack-netlib/SRC/zlacon.f b/lapack-netlib/SRC/zlacon.f index c7c2f5f20..61f20d042 100644 --- a/lapack-netlib/SRC/zlacon.f +++ b/lapack-netlib/SRC/zlacon.f @@ -89,8 +89,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -114,10 +112,9 @@ * ===================================================================== SUBROUTINE ZLACON( N, V, X, EST, KASE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KASE, N diff --git a/lapack-netlib/SRC/zlacp2.f b/lapack-netlib/SRC/zlacp2.f index 647e82a3a..001043a53 100644 --- a/lapack-netlib/SRC/zlacp2.f +++ b/lapack-netlib/SRC/zlacp2.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLACP2( UPLO, M, N, A, LDA, B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlacpy.f b/lapack-netlib/SRC/zlacpy.f index 81932b887..06017509e 100644 --- a/lapack-netlib/SRC/zlacpy.f +++ b/lapack-netlib/SRC/zlacpy.f @@ -96,17 +96,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLACPY( UPLO, M, N, A, LDA, B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlacrm.f b/lapack-netlib/SRC/zlacrm.f index a3f919d0e..ce8b9b02c 100644 --- a/lapack-netlib/SRC/zlacrm.f +++ b/lapack-netlib/SRC/zlacrm.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLACRM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, M, N diff --git a/lapack-netlib/SRC/zlacrt.f b/lapack-netlib/SRC/zlacrt.f index 3e849986c..b64ace8d2 100644 --- a/lapack-netlib/SRC/zlacrt.f +++ b/lapack-netlib/SRC/zlacrt.f @@ -98,17 +98,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLACRT( N, CX, INCX, CY, INCY, C, S ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/lapack-netlib/SRC/zladiv.f b/lapack-netlib/SRC/zladiv.f index 0bf6ea87d..ae111d73d 100644 --- a/lapack-netlib/SRC/zladiv.f +++ b/lapack-netlib/SRC/zladiv.f @@ -57,17 +57,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== COMPLEX*16 FUNCTION ZLADIV( X, Y ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. COMPLEX*16 X, Y diff --git a/lapack-netlib/SRC/zlaed0.f b/lapack-netlib/SRC/zlaed0.f index 92672456f..c4deac037 100644 --- a/lapack-netlib/SRC/zlaed0.f +++ b/lapack-netlib/SRC/zlaed0.f @@ -1,4 +1,4 @@ -*> \brief \b ZLAED0 used by sstedc. Computes all eigenvalues and corresponding eigenvectors of an unreduced symmetric tridiagonal matrix using the divide and conquer method. +*> \brief \b ZLAED0 used by ZSTEDC. Computes all eigenvalues and corresponding eigenvectors of an unreduced symmetric tridiagonal matrix using the divide and conquer method. * * =========== DOCUMENTATION =========== * @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZLAED0( QSIZ, N, D, E, Q, LDQ, QSTORE, LDQS, RWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDQ, LDQS, N, QSIZ diff --git a/lapack-netlib/SRC/zlaed7.f b/lapack-netlib/SRC/zlaed7.f index 90416af8e..83f32d8b8 100644 --- a/lapack-netlib/SRC/zlaed7.f +++ b/lapack-netlib/SRC/zlaed7.f @@ -1,4 +1,4 @@ -*> \brief \b ZLAED7 used by sstedc. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is dense. +*> \brief \b ZLAED7 used by ZSTEDC. Computes the updated eigensystem of a diagonal matrix after modification by a rank-one symmetric matrix. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -239,8 +239,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== @@ -249,10 +247,9 @@ $ GIVPTR, GIVCOL, GIVNUM, WORK, RWORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER CURLVL, CURPBM, CUTPNT, INFO, LDQ, N, QSIZ, diff --git a/lapack-netlib/SRC/zlaed8.f b/lapack-netlib/SRC/zlaed8.f index 48057270e..995a673de 100644 --- a/lapack-netlib/SRC/zlaed8.f +++ b/lapack-netlib/SRC/zlaed8.f @@ -1,4 +1,4 @@ -*> \brief \b ZLAED8 used by sstedc. Merges eigenvalues and deflates secular equation. Used when the original matrix is dense. +*> \brief \b ZLAED8 used by ZSTEDC. Merges eigenvalues and deflates secular equation. Used when the original matrix is dense. * * =========== DOCUMENTATION =========== * @@ -219,8 +219,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== @@ -228,10 +226,9 @@ $ Q2, LDQ2, W, INDXP, INDX, INDXQ, PERM, GIVPTR, $ GIVCOL, GIVNUM, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER CUTPNT, GIVPTR, INFO, K, LDQ, LDQ2, N, QSIZ diff --git a/lapack-netlib/SRC/zlaein.f b/lapack-netlib/SRC/zlaein.f index 0376e60b2..7e0f6f109 100644 --- a/lapack-netlib/SRC/zlaein.f +++ b/lapack-netlib/SRC/zlaein.f @@ -141,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAEIN( RIGHTV, NOINIT, N, H, LDH, W, V, B, LDB, RWORK, $ EPS3, SMLNUM, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL NOINIT, RIGHTV diff --git a/lapack-netlib/SRC/zlaesy.f b/lapack-netlib/SRC/zlaesy.f index 2ff9b3530..eddf453ec 100644 --- a/lapack-netlib/SRC/zlaesy.f +++ b/lapack-netlib/SRC/zlaesy.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYauxiliary * * ===================================================================== SUBROUTINE ZLAESY( A, B, C, RT1, RT2, EVSCAL, CS1, SN1 ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. COMPLEX*16 A, B, C, CS1, EVSCAL, RT1, RT2, SN1 diff --git a/lapack-netlib/SRC/zlaev2.f b/lapack-netlib/SRC/zlaev2.f index d93dd605a..de2d9cbb7 100644 --- a/lapack-netlib/SRC/zlaev2.f +++ b/lapack-netlib/SRC/zlaev2.f @@ -95,8 +95,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -121,10 +119,9 @@ * ===================================================================== SUBROUTINE ZLAEV2( A, B, C, RT1, RT2, CS1, SN1 ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION CS1, RT1, RT2 diff --git a/lapack-netlib/SRC/zlag2c.f b/lapack-netlib/SRC/zlag2c.f index f1fc59a5e..ba141a98f 100644 --- a/lapack-netlib/SRC/zlag2c.f +++ b/lapack-netlib/SRC/zlag2c.f @@ -100,17 +100,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAG2C( M, N, A, LDA, SA, LDSA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDSA, M, N diff --git a/lapack-netlib/SRC/zlags2.f b/lapack-netlib/SRC/zlags2.f index d00cd4e95..1332b052f 100644 --- a/lapack-netlib/SRC/zlags2.f +++ b/lapack-netlib/SRC/zlags2.f @@ -150,18 +150,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAGS2( UPPER, A1, A2, A3, B1, B2, B3, CSU, SNU, CSV, $ SNV, CSQ, SNQ ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL UPPER diff --git a/lapack-netlib/SRC/zlagtm.f b/lapack-netlib/SRC/zlagtm.f index 5c3e99abe..576490899 100644 --- a/lapack-netlib/SRC/zlagtm.f +++ b/lapack-netlib/SRC/zlagtm.f @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAGTM( TRANS, N, NRHS, ALPHA, DL, D, DU, X, LDX, BETA, $ B, LDB ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/zlahef.f b/lapack-netlib/SRC/zlahef.f index 0c8484d8e..22a638ba8 100644 --- a/lapack-netlib/SRC/zlahef.f +++ b/lapack-netlib/SRC/zlahef.f @@ -160,8 +160,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -177,10 +175,9 @@ * ===================================================================== SUBROUTINE ZLAHEF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlahef_aa.f b/lapack-netlib/SRC/zlahef_aa.f index ddd1e9493..37bd29f88 100644 --- a/lapack-netlib/SRC/zlahef_aa.f +++ b/lapack-netlib/SRC/zlahef_aa.f @@ -136,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16HEcomputational * * ===================================================================== SUBROUTINE ZLAHEF_AA( UPLO, J1, M, NB, A, LDA, IPIV, $ H, LDH, WORK ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zlahef_rk.f b/lapack-netlib/SRC/zlahef_rk.f index 6a8549cf5..ed66e133d 100644 --- a/lapack-netlib/SRC/zlahef_rk.f +++ b/lapack-netlib/SRC/zlahef_rk.f @@ -239,8 +239,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -262,10 +260,9 @@ SUBROUTINE ZLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -463,7 +460,7 @@ * * Case(2) * Equivalent to testing for -* ABS( REAL( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX +* ABS( DBLE( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX * (used to handle NaN and Inf) * IF( .NOT.( ABS( DBLE( W( IMAX,KW-1 ) ) ) @@ -602,7 +599,7 @@ * A(1:k-1,k) := U(1:k-1,k) = W(1:k-1,kw)/D(k,k) * * (NOTE: No need to use for Hermitian matrix -* A( K, K ) = REAL( W( K, K) ) to separately copy diagonal +* A( K, K ) = DBLE( W( K, K) ) to separately copy diagonal * element D(k,k) from W (potentially saves only one load)) CALL ZCOPY( K, W( 1, KW ), 1, A( 1, K ), 1 ) IF( K.GT.1 ) THEN @@ -915,7 +912,7 @@ * * Case(2) * Equivalent to testing for -* ABS( REAL( W( IMAX,K+1 ) ) ).GE.ALPHA*ROWMAX +* ABS( DBLE( W( IMAX,K+1 ) ) ).GE.ALPHA*ROWMAX * (used to handle NaN and Inf) * IF( .NOT.( ABS( DBLE( W( IMAX,K+1 ) ) ) @@ -1045,7 +1042,7 @@ * A(k+1:N,k) := L(k+1:N,k) = W(k+1:N,k)/D(k,k) * * (NOTE: No need to use for Hermitian matrix -* A( K, K ) = REAL( W( K, K) ) to separately copy diagonal +* A( K, K ) = DBLE( W( K, K) ) to separately copy diagonal * element D(k,k) from W (potentially saves only one load)) CALL ZCOPY( N-K+1, W( K, K ), 1, A( K, K ), 1 ) IF( K.LT.N ) THEN diff --git a/lapack-netlib/SRC/zlahef_rook.f b/lapack-netlib/SRC/zlahef_rook.f index 1a344a30f..65f70a597 100644 --- a/lapack-netlib/SRC/zlahef_rook.f +++ b/lapack-netlib/SRC/zlahef_rook.f @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16HEcomputational * *> \par Contributors: @@ -184,10 +182,9 @@ SUBROUTINE ZLAHEF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO @@ -373,7 +370,7 @@ * * Case(2) * Equivalent to testing for -* ABS( REAL( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX +* ABS( DBLE( W( IMAX,KW-1 ) ) ).GE.ALPHA*ROWMAX * (used to handle NaN and Inf) * IF( .NOT.( ABS( DBLE( W( IMAX,KW-1 ) ) ) @@ -512,7 +509,7 @@ * A(1:k-1,k) := U(1:k-1,k) = W(1:k-1,kw)/D(k,k) * * (NOTE: No need to use for Hermitian matrix -* A( K, K ) = REAL( W( K, K) ) to separately copy diagonal +* A( K, K ) = DBLE( W( K, K) ) to separately copy diagonal * element D(k,k) from W (potentially saves only one load)) CALL ZCOPY( K, W( 1, KW ), 1, A( 1, K ), 1 ) IF( K.GT.1 ) THEN @@ -836,7 +833,7 @@ * * Case(2) * Equivalent to testing for -* ABS( REAL( W( IMAX,K+1 ) ) ).GE.ALPHA*ROWMAX +* ABS( DBLE( W( IMAX,K+1 ) ) ).GE.ALPHA*ROWMAX * (used to handle NaN and Inf) * IF( .NOT.( ABS( DBLE( W( IMAX,K+1 ) ) ) @@ -966,7 +963,7 @@ * A(k+1:N,k) := L(k+1:N,k) = W(k+1:N,k)/D(k,k) * * (NOTE: No need to use for Hermitian matrix -* A( K, K ) = REAL( W( K, K) ) to separately copy diagonal +* A( K, K ) = DBLE( W( K, K) ) to separately copy diagonal * element D(k,k) from W (potentially saves only one load)) CALL ZCOPY( N-K+1, W( K, K ), 1, A( K, K ), 1 ) IF( K.LT.N ) THEN diff --git a/lapack-netlib/SRC/zlahqr.f b/lapack-netlib/SRC/zlahqr.f index 0a8318874..9413f20cc 100644 --- a/lapack-netlib/SRC/zlahqr.f +++ b/lapack-netlib/SRC/zlahqr.f @@ -171,8 +171,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -194,11 +192,11 @@ * ===================================================================== SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, INFO ) + IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N @@ -218,6 +216,8 @@ PARAMETER ( RZERO = 0.0d0, RONE = 1.0d0, HALF = 0.5d0 ) DOUBLE PRECISION DAT1 PARAMETER ( DAT1 = 3.0d0 / 4.0d0 ) + INTEGER KEXSH + PARAMETER ( KEXSH = 10 ) * .. * .. Local Scalars .. COMPLEX*16 CDUM, H11, H11S, H22, SC, SUM, T, T1, TEMP, U, @@ -225,7 +225,7 @@ DOUBLE PRECISION AA, AB, BA, BB, H10, H21, RTEMP, S, SAFMAX, $ SAFMIN, SMLNUM, SX, T2, TST, ULP INTEGER I, I1, I2, ITS, ITMAX, J, JHI, JLO, K, L, M, - $ NH, NZ + $ NH, NZ, KDEFL * .. * .. Local Arrays .. COMPLEX*16 V( 2 ) @@ -315,6 +315,10 @@ * ITMAX = 30 * MAX( 10, NH ) * +* KDEFL counts the number of iterations since a deflation +* + KDEFL = 0 +* * The main loop begins here. I is the loop index and decreases from * IHI to ILO in steps of 1. Each iteration of the loop works * with the active submatrix in rows and columns L to I. @@ -374,6 +378,7 @@ * IF( L.GE.I ) $ GO TO 140 + KDEFL = KDEFL + 1 * * Now the active submatrix is in rows and columns L to I. If * eigenvalues only are being computed, only the active submatrix @@ -384,18 +389,18 @@ I2 = I END IF * - IF( ITS.EQ.10 ) THEN + IF( MOD(KDEFL,2*KEXSH).EQ.0 ) THEN * * Exceptional shift. * - S = DAT1*ABS( DBLE( H( L+1, L ) ) ) - T = S + H( L, L ) - ELSE IF( ITS.EQ.20 ) THEN + S = DAT1*ABS( DBLE( H( I, I-1 ) ) ) + T = S + H( I, I ) + ELSE IF( MOD(KDEFL,KEXSH).EQ.0 ) THEN * * Exceptional shift. * - S = DAT1*ABS( DBLE( H( I, I-1 ) ) ) - T = S + H( I, I ) + S = DAT1*ABS( DBLE( H( L+1, L ) ) ) + T = S + H( L, L ) ELSE * * Wilkinson's shift. @@ -557,6 +562,8 @@ * H(I,I-1) is negligible: one eigenvalue has converged. * W( I ) = H( I, I ) +* reset deflation counter + KDEFL = 0 * * return to start of the main loop with new value of I. * diff --git a/lapack-netlib/SRC/zlahr2.f b/lapack-netlib/SRC/zlahr2.f index 063b515c4..60ba5f031 100644 --- a/lapack-netlib/SRC/zlahr2.f +++ b/lapack-netlib/SRC/zlahr2.f @@ -123,8 +123,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -164,11 +162,11 @@ *> modified element of the upper Hessenberg matrix H, and vi denotes an *> element of the vector defining H(i). *> -*> This subroutine is a slight modification of LAPACK-3.0's DLAHRD +*> This subroutine is a slight modification of LAPACK-3.0's ZLAHRD *> incorporating improvements proposed by Quintana-Orti and Van de *> Gejin. Note that the entries of A(1:K,2:NB) differ from those -*> returned by the original LAPACK-3.0's DLAHRD routine. (This -*> subroutine is not backward compatible with LAPACK-3.0's DLAHRD.) +*> returned by the original LAPACK-3.0's ZLAHRD routine. (This +*> subroutine is not backward compatible with LAPACK-3.0's ZLAHRD.) *> \endverbatim * *> \par References: @@ -181,10 +179,9 @@ * ===================================================================== SUBROUTINE ZLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LDT, LDY, N, NB diff --git a/lapack-netlib/SRC/zlaic1.f b/lapack-netlib/SRC/zlaic1.f index 100092220..72948cde9 100644 --- a/lapack-netlib/SRC/zlaic1.f +++ b/lapack-netlib/SRC/zlaic1.f @@ -128,17 +128,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAIC1( JOB, J, X, SEST, W, GAMMA, SESTPR, S, C ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER J, JOB @@ -194,7 +191,7 @@ ELSE S = ALPHA / S1 C = GAMMA / S1 - TMP = SQRT( S*DCONJG( S )+C*DCONJG( C ) ) + TMP = DBLE( SQRT( S*DCONJG( S )+C*DCONJG( C ) ) ) S = S / TMP C = C / TMP SESTPR = S1*TMP @@ -248,14 +245,16 @@ B = ( ONE-ZETA1*ZETA1-ZETA2*ZETA2 )*HALF C = ZETA1*ZETA1 IF( B.GT.ZERO ) THEN - T = C / ( B+SQRT( B*B+C ) ) + T = DBLE( C / ( B+SQRT( B*B+C ) ) ) ELSE - T = SQRT( B*B+C ) - B + T = DBLE( SQRT( B*B+C ) - B ) END IF * SINE = -( ALPHA / ABSEST ) / T COSINE = -( GAMMA / ABSEST ) / ( ONE+T ) - TMP = SQRT( SINE*DCONJG( SINE )+COSINE*DCONJG( COSINE ) ) + TMP = DBLE( SQRT( SINE * DCONJG( SINE ) + $ + COSINE * DCONJG( COSINE ) ) ) + S = SINE / TMP C = COSINE / TMP SESTPR = SQRT( T+ONE )*ABSEST @@ -280,7 +279,7 @@ S1 = MAX( ABS( SINE ), ABS( COSINE ) ) S = SINE / S1 C = COSINE / S1 - TMP = SQRT( S*DCONJG( S )+C*DCONJG( C ) ) + TMP = DBLE( SQRT( S*DCONJG( S )+C*DCONJG( C ) ) ) S = S / TMP C = C / TMP RETURN @@ -338,7 +337,7 @@ * B = ( ZETA1*ZETA1+ZETA2*ZETA2+ONE )*HALF C = ZETA2*ZETA2 - T = C / ( B+SQRT( ABS( B*B-C ) ) ) + T = DBLE( C / ( B+SQRT( ABS( B*B-C ) ) ) ) SINE = ( ALPHA / ABSEST ) / ( ONE-T ) COSINE = -( GAMMA / ABSEST ) / T SESTPR = SQRT( T+FOUR*EPS*EPS*NORMA )*ABSEST @@ -357,7 +356,8 @@ COSINE = -( GAMMA / ABSEST ) / ( ONE+T ) SESTPR = SQRT( ONE+T+FOUR*EPS*EPS*NORMA )*ABSEST END IF - TMP = SQRT( SINE*DCONJG( SINE )+COSINE*DCONJG( COSINE ) ) + TMP = DBLE( SQRT( SINE * DCONJG( SINE ) + $ + COSINE * DCONJG( COSINE ) ) ) S = SINE / TMP C = COSINE / TMP RETURN diff --git a/lapack-netlib/SRC/zlals0.f b/lapack-netlib/SRC/zlals0.f index 1946ad9c0..7a7310042 100644 --- a/lapack-netlib/SRC/zlals0.f +++ b/lapack-netlib/SRC/zlals0.f @@ -254,8 +254,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -270,10 +268,9 @@ $ PERM, GIVPTR, GIVCOL, LDGCOL, GIVNUM, LDGNUM, $ POLES, DIFL, DIFR, Z, K, C, S, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER GIVPTR, ICOMPQ, INFO, K, LDB, LDBX, LDGCOL, diff --git a/lapack-netlib/SRC/zlalsa.f b/lapack-netlib/SRC/zlalsa.f index ed5845ba2..73ccf3a8b 100644 --- a/lapack-netlib/SRC/zlalsa.f +++ b/lapack-netlib/SRC/zlalsa.f @@ -250,8 +250,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -267,10 +265,9 @@ $ GIVCOL, LDGCOL, PERM, GIVNUM, C, S, RWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER ICOMPQ, INFO, LDB, LDBX, LDGCOL, LDU, N, NRHS, diff --git a/lapack-netlib/SRC/zlalsd.f b/lapack-netlib/SRC/zlalsd.f index 409ebe3ac..dca308e56 100644 --- a/lapack-netlib/SRC/zlalsd.f +++ b/lapack-netlib/SRC/zlalsd.f @@ -172,8 +172,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -187,10 +185,9 @@ SUBROUTINE ZLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND, $ RANK, WORK, RWORK, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlamswlq.f b/lapack-netlib/SRC/zlamswlq.f index f32f5667c..4abefa434 100644 --- a/lapack-netlib/SRC/zlamswlq.f +++ b/lapack-netlib/SRC/zlamswlq.f @@ -19,13 +19,13 @@ *> *> \verbatim *> -*> ZLAMQRTS overwrites the general real M-by-N matrix C with +*> ZLAMSWLQ overwrites the general complex M-by-N matrix C with *> *> *> SIDE = 'L' SIDE = 'R' *> TRANS = 'N': Q * C C * Q *> TRANS = 'C': Q**H * C C * Q**H -*> where Q is a real orthogonal matrix defined as the product of blocked +*> where Q is a complex unitary matrix defined as the product of blocked *> elementary reflectors computed by short wide LQ *> factorization (ZLASWLQ) *> \endverbatim @@ -56,7 +56,7 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix C. N >= M. +*> The number of columns of the matrix C. N >= 0. *> \endverbatim *> *> \param[in] K @@ -70,25 +70,17 @@ *> \param[in] MB *> \verbatim *> MB is INTEGER -*> The row block size to be used in the blocked QR. +*> The row block size to be used in the blocked LQ. *> M >= MB >= 1 *> \endverbatim *> *> \param[in] NB *> \verbatim *> NB is INTEGER -*> The column block size to be used in the blocked QR. +*> The column block size to be used in the blocked LQ. *> NB > M. *> \endverbatim *> -*> \param[in] NB -*> \verbatim -*> NB is INTEGER -*> The block size to be used in the blocked QR. -*> MB > M. -*> -*> \endverbatim -*> *> \param[in] A *> \verbatim *> A is COMPLEX*16 array, dimension @@ -102,9 +94,7 @@ *> \param[in] LDA *> \verbatim *> LDA is INTEGER -*> The leading dimension of the array A. -*> If SIDE = 'L', LDA >= max(1,M); -*> if SIDE = 'R', LDA >= max(1,N). +*> The leading dimension of the array A. LDA >= MAX(1,K). *> \endverbatim *> *> \param[in] T @@ -171,8 +161,8 @@ * ===================== *> *> \verbatim -*> Short-Wide LQ (SWLQ) performs LQ by a sequence of orthogonal transformations, -*> representing Q as a product of other orthogonal matrices +*> Short-Wide LQ (SWLQ) performs LQ by a sequence of unitary transformations, +*> representing Q as a product of other unitary matrices *> Q = Q(1) * Q(2) * . . . * Q(k) *> where each Q(i) zeros out upper diagonal entries of a block of NB rows of A: *> Q(1) zeros out the upper diagonal entries of rows 1:NB of A @@ -189,7 +179,7 @@ *> stored in columns [(i-1)*(NB-M)+M+1:i*(NB-M)+M] of A, and by upper triangular *> block reflectors, stored in array T(1:LDT,(i-1)*M+1:i*M). *> The last Q(k) may use fewer rows. -*> For more information see Further Details in TPQRT. +*> For more information see Further Details in TPLQT. *> *> For more details of the overall algorithm, see the description of *> Sequential TSQR in Section 2.2 of [1]. @@ -203,10 +193,9 @@ SUBROUTINE ZLAMSWLQ( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -250,12 +239,14 @@ INFO = -1 ELSE IF( .NOT.TRAN .AND. .NOT.NOTRAN ) THEN INFO = -2 - ELSE IF( M.LT.0 ) THEN + ELSE IF( K.LT.0 ) THEN + INFO = -5 + ELSE IF( M.LT.K ) THEN INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 - ELSE IF( K.LT.0 ) THEN - INFO = -5 + ELSE IF( K.LT.MB .OR. MB.LT.1) THEN + INFO = -6 ELSE IF( LDA.LT.MAX( 1, K ) ) THEN INFO = -9 ELSE IF( LDT.LT.MAX( 1, MB) ) THEN diff --git a/lapack-netlib/SRC/zlamtsqr.f b/lapack-netlib/SRC/zlamtsqr.f index 034c45505..5030cb75f 100644 --- a/lapack-netlib/SRC/zlamtsqr.f +++ b/lapack-netlib/SRC/zlamtsqr.f @@ -25,7 +25,7 @@ *> SIDE = 'L' SIDE = 'R' *> TRANS = 'N': Q * C C * Q *> TRANS = 'C': Q**H * C C * Q**H -*> where Q is a real orthogonal matrix defined as the product +*> where Q is a complex unitary matrix defined as the product *> of blocked elementary reflectors computed by tall skinny *> QR factorization (ZLATSQR) *> \endverbatim @@ -56,15 +56,14 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrix C. M >= N >= 0. +*> The number of columns of the matrix C. N >= 0. *> \endverbatim *> *> \param[in] K *> \verbatim *> K is INTEGER *> The number of elementary reflectors whose product defines -*> the matrix Q. -*> N >= K >= 0; +*> the matrix Q. M >= K >= 0; *> *> \endverbatim *> @@ -72,7 +71,7 @@ *> \verbatim *> MB is INTEGER *> The block size to be used in the blocked QR. -*> MB > N. (must be the same as DLATSQR) +*> MB > N. (must be the same as ZLATSQR) *> \endverbatim *> *> \param[in] NB @@ -87,7 +86,7 @@ *> A is COMPLEX*16 array, dimension (LDA,K) *> The i-th column must contain the vector which defines the *> blockedelementary reflector H(i), for i = 1,2,...,k, as -*> returned by DLATSQR in the first k columns of +*> returned by ZLATSQR in the first k columns of *> its array argument A. *> \endverbatim *> @@ -164,8 +163,8 @@ * ===================== *> *> \verbatim -*> Tall-Skinny QR (TSQR) performs QR by a sequence of orthogonal transformations, -*> representing Q as a product of other orthogonal matrices +*> Tall-Skinny QR (TSQR) performs QR by a sequence of unitary transformations, +*> representing Q as a product of other unitary matrices *> Q = Q(1) * Q(2) * . . . * Q(k) *> where each Q(i) zeros out subdiagonal entries of a block of MB rows of A: *> Q(1) zeros out the subdiagonal entries of rows 1:MB of A @@ -196,10 +195,9 @@ SUBROUTINE ZLAMTSQR( SIDE, TRANS, M, N, K, MB, NB, A, LDA, T, $ LDT, C, LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -215,7 +213,7 @@ * .. * .. Local Scalars .. LOGICAL LEFT, RIGHT, TRAN, NOTRAN, LQUERY - INTEGER I, II, KK, LW, CTR + INTEGER I, II, KK, LW, CTR, Q * .. * .. External Functions .. LOGICAL LSAME @@ -234,8 +232,10 @@ RIGHT = LSAME( SIDE, 'R' ) IF (LEFT) THEN LW = N * NB + Q = M ELSE LW = M * NB + Q = N END IF * INFO = 0 @@ -243,13 +243,15 @@ INFO = -1 ELSE IF( .NOT.TRAN .AND. .NOT.NOTRAN ) THEN INFO = -2 - ELSE IF( M.LT.0 ) THEN + ELSE IF( M.LT.K ) THEN INFO = -3 ELSE IF( N.LT.0 ) THEN INFO = -4 ELSE IF( K.LT.0 ) THEN INFO = -5 - ELSE IF( LDA.LT.MAX( 1, K ) ) THEN + ELSE IF( K.LT.NB .OR. NB.LT.1 ) THEN + INFO = -7 + ELSE IF( LDA.LT.MAX( 1, Q ) ) THEN INFO = -9 ELSE IF( LDT.LT.MAX( 1, NB) ) THEN INFO = -11 diff --git a/lapack-netlib/SRC/zlangb.f b/lapack-netlib/SRC/zlangb.f index e40a470fd..25089ee58 100644 --- a/lapack-netlib/SRC/zlangb.f +++ b/lapack-netlib/SRC/zlangb.f @@ -117,20 +117,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANGB( NORM, N, KL, KU, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER KL, KU, LDAB, N @@ -148,17 +144,14 @@ * .. * .. Local Scalars .. INTEGER I, J, K, L - DOUBLE PRECISION SUM, VALUE, TEMP -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION SCALE, SUM, VALUE, TEMP * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT @@ -211,22 +204,15 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N L = MAX( 1, J-KU ) K = KU + 1 - J + L - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( MIN( N, J+KL )-L+1, AB( K, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( MIN( N, J+KL )-L+1, AB( K, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANGB = VALUE diff --git a/lapack-netlib/SRC/zlange.f b/lapack-netlib/SRC/zlange.f index 8162786fb..d68560e99 100644 --- a/lapack-netlib/SRC/zlange.f +++ b/lapack-netlib/SRC/zlange.f @@ -108,19 +108,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANGE( NORM, M, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER LDA, M, N @@ -138,17 +134,14 @@ * .. * .. Local Scalars .. INTEGER I, J - DOUBLE PRECISION SUM, VALUE, TEMP -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION SCALE, SUM, VALUE, TEMP * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT @@ -200,19 +193,13 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( M, A( 1, J ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( M, A( 1, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANGE = VALUE diff --git a/lapack-netlib/SRC/zlangt.f b/lapack-netlib/SRC/zlangt.f index f55904aab..6ae1da31e 100644 --- a/lapack-netlib/SRC/zlangt.f +++ b/lapack-netlib/SRC/zlangt.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANGT( NORM, N, DL, D, DU ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/zlanhb.f b/lapack-netlib/SRC/zlanhb.f index 16b5c117c..52f46dbc6 100644 --- a/lapack-netlib/SRC/zlanhb.f +++ b/lapack-netlib/SRC/zlanhb.f @@ -124,20 +124,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER K, LDAB, N @@ -155,17 +151,14 @@ * .. * .. Local Scalars .. INTEGER I, J, L - DOUBLE PRECISION ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, MAX, MIN, SQRT @@ -237,57 +230,39 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( K.GT.0 ) THEN IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL ZLASSQ( MIN( J-1, K ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 110 CONTINUE L = K + 1 ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 120 CONTINUE L = 1 END IF - SSQ( 2 ) = 2*SSQ( 2 ) + SUM = 2*SUM ELSE L = 1 END IF -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE DO 130 J = 1, N IF( DBLE( AB( L, J ) ).NE.ZERO ) THEN ABSA = ABS( DBLE( AB( L, J ) ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF 130 CONTINUE - CALL DCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANHB = VALUE diff --git a/lapack-netlib/SRC/zlanhe.f b/lapack-netlib/SRC/zlanhe.f index 5aef9a756..bbb4843ff 100644 --- a/lapack-netlib/SRC/zlanhe.f +++ b/lapack-netlib/SRC/zlanhe.f @@ -117,19 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHE( NORM, UPLO, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER LDA, N @@ -147,17 +143,14 @@ * .. * .. Local Scalars .. INTEGER I, J - DOUBLE PRECISION ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, SQRT @@ -227,48 +220,31 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( J-1, A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( J-1, A( 1, J ), 1, SCALE, SUM ) 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( N-J, A( J+1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( N-J, A( J+1, J ), 1, SCALE, SUM ) 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* + SUM = 2*SUM DO 130 I = 1, N IF( DBLE( A( I, I ) ).NE.ZERO ) THEN ABSA = ABS( DBLE( A( I, I ) ) ) - IF( SSQ( 1 ).LT.ABSA ) THEN - SSQ( 2 ) = ONE + SSQ( 2 )*( SSQ( 1 ) / ABSA )**2 - SSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - SSQ( 2 ) = SSQ( 2 ) + ( ABSA / SSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF 130 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANHE = VALUE diff --git a/lapack-netlib/SRC/zlanhf.f b/lapack-netlib/SRC/zlanhf.f index 0e73c861b..331a92aac 100644 --- a/lapack-netlib/SRC/zlanhf.f +++ b/lapack-netlib/SRC/zlanhf.f @@ -131,8 +131,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -246,10 +244,9 @@ * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHF( NORM, TRANSR, UPLO, N, A, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM, TRANSR, UPLO diff --git a/lapack-netlib/SRC/zlanhp.f b/lapack-netlib/SRC/zlanhp.f index d795aeca9..ac45467d0 100644 --- a/lapack-netlib/SRC/zlanhp.f +++ b/lapack-netlib/SRC/zlanhp.f @@ -110,19 +110,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHP( NORM, UPLO, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER N @@ -140,17 +136,14 @@ * .. * .. Local Scalars .. INTEGER I, J, K - DOUBLE PRECISION ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, SQRT @@ -229,48 +222,31 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE K = 2 IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( J-1, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( N-J, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* + SUM = 2*SUM K = 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE DO 130 I = 1, N IF( DBLE( AP( K ) ).NE.ZERO ) THEN ABSA = ABS( DBLE( AP( K ) ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF IF( LSAME( UPLO, 'U' ) ) THEN @@ -279,8 +255,7 @@ K = K + N - I + 1 END IF 130 CONTINUE - CALL DCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANHP = VALUE diff --git a/lapack-netlib/SRC/zlanhs.f b/lapack-netlib/SRC/zlanhs.f index bd8e86be9..d6725804f 100644 --- a/lapack-netlib/SRC/zlanhs.f +++ b/lapack-netlib/SRC/zlanhs.f @@ -102,19 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHS( NORM, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM INTEGER LDA, N @@ -132,17 +128,14 @@ * .. * .. Local Scalars .. INTEGER I, J - DOUBLE PRECISION SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT @@ -194,20 +187,13 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 90 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( MIN( N, J+1 ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( MIN( N, J+1 ), A( 1, J ), 1, SCALE, SUM ) 90 CONTINUE - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANHS = VALUE diff --git a/lapack-netlib/SRC/zlanht.f b/lapack-netlib/SRC/zlanht.f index 70f9e3ce6..92254726c 100644 --- a/lapack-netlib/SRC/zlanht.f +++ b/lapack-netlib/SRC/zlanht.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANHT( NORM, N, D, E ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER NORM diff --git a/lapack-netlib/SRC/zlansb.f b/lapack-netlib/SRC/zlansb.f index 245dcaf4b..ded6d2b7e 100644 --- a/lapack-netlib/SRC/zlansb.f +++ b/lapack-netlib/SRC/zlansb.f @@ -122,20 +122,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANSB( NORM, UPLO, N, K, AB, LDAB, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER K, LDAB, N @@ -153,17 +149,14 @@ * .. * .. Local Scalars .. INTEGER I, J, L - DOUBLE PRECISION ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT @@ -231,47 +224,29 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( K.GT.0 ) THEN IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL ZLASSQ( MIN( J-1, K ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 110 CONTINUE L = K + 1 ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 120 CONTINUE L = 1 END IF - SSQ( 2 ) = 2*SSQ( 2 ) + SUM = 2*SUM ELSE L = 1 END IF -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( N, AB( L, 1 ), LDAB, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + CALL ZLASSQ( N, AB( L, 1 ), LDAB, SCALE, SUM ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANSB = VALUE diff --git a/lapack-netlib/SRC/zlansp.f b/lapack-netlib/SRC/zlansp.f index fa9220487..b565a1e1c 100644 --- a/lapack-netlib/SRC/zlansp.f +++ b/lapack-netlib/SRC/zlansp.f @@ -108,19 +108,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANSP( NORM, UPLO, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER N @@ -138,17 +134,14 @@ * .. * .. Local Scalars .. INTEGER I, J, K - DOUBLE PRECISION ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, DIMAG, SQRT @@ -223,57 +216,40 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE K = 2 IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( J-1, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( N-J, AP( K ), 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* + SUM = 2*SUM K = 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE DO 130 I = 1, N IF( DBLE( AP( K ) ).NE.ZERO ) THEN ABSA = ABS( DBLE( AP( K ) ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF IF( DIMAG( AP( K ) ).NE.ZERO ) THEN ABSA = ABS( DIMAG( AP( K ) ) ) - IF( COLSSQ( 1 ).LT.ABSA ) THEN - COLSSQ( 2 ) = ONE + COLSSQ(2)*( COLSSQ(1) / ABSA )**2 - COLSSQ( 1 ) = ABSA + IF( SCALE.LT.ABSA ) THEN + SUM = ONE + SUM*( SCALE / ABSA )**2 + SCALE = ABSA ELSE - COLSSQ( 2 ) = COLSSQ( 2 ) + ( ABSA / COLSSQ( 1 ) )**2 + SUM = SUM + ( ABSA / SCALE )**2 END IF END IF IF( LSAME( UPLO, 'U' ) ) THEN @@ -282,8 +258,7 @@ K = K + N - I + 1 END IF 130 CONTINUE - CALL DCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANSP = VALUE diff --git a/lapack-netlib/SRC/zlansy.f b/lapack-netlib/SRC/zlansy.f index e022f85e1..fd28bda20 100644 --- a/lapack-netlib/SRC/zlansy.f +++ b/lapack-netlib/SRC/zlansy.f @@ -116,19 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANSY( NORM, UPLO, N, A, LDA, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER NORM, UPLO INTEGER LDA, N @@ -146,17 +142,14 @@ * .. * .. Local Scalars .. INTEGER I, J - DOUBLE PRECISION ABSA, SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION ABSA, SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT @@ -222,39 +215,21 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. -* - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE -* -* Sum off-diagonals * + SCALE = ZERO + SUM = ONE IF( LSAME( UPLO, 'U' ) ) THEN DO 110 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( J-1, A( 1, J ), 1, COLSSQ(1), COLSSQ(2) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( J-1, A( 1, J ), 1, SCALE, SUM ) 110 CONTINUE ELSE DO 120 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( N-J, A( J+1, J ), 1, COLSSQ(1), COLSSQ(2) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( N-J, A( J+1, J ), 1, SCALE, SUM ) 120 CONTINUE END IF - SSQ( 2 ) = 2*SSQ( 2 ) -* -* Sum diagonal -* - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( N, A, LDA+1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + SUM = 2*SUM + CALL ZLASSQ( N, A, LDA+1, SCALE, SUM ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANSY = VALUE diff --git a/lapack-netlib/SRC/zlantb.f b/lapack-netlib/SRC/zlantb.f index f02509223..13014ceac 100644 --- a/lapack-netlib/SRC/zlantb.f +++ b/lapack-netlib/SRC/zlantb.f @@ -133,20 +133,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANTB( NORM, UPLO, DIAG, N, K, AB, $ LDAB, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER K, LDAB, N @@ -165,17 +161,14 @@ * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J, L - DOUBLE PRECISION SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT @@ -317,61 +310,46 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N IF( K.GT.0 ) THEN DO 280 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL ZLASSQ( MIN( J-1, K ), - $ AB( MAX( K+2-J, 1 ), J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + $ AB( MAX( K+2-J, 1 ), J ), 1, SCALE, + $ SUM ) 280 CONTINUE END IF ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 290 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE CALL ZLASSQ( MIN( J, K+1 ), AB( MAX( K+2-J, 1 ), J ), - $ 1, COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + $ 1, SCALE, SUM ) 290 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N IF( K.GT.0 ) THEN DO 300 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( MIN( N-J, K ), AB( 2, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( MIN( N-J, K ), AB( 2, J ), 1, SCALE, + $ SUM ) 300 CONTINUE END IF ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( MIN( N-J+1, K+1 ), AB( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( MIN( N-J+1, K+1 ), AB( 1, J ), 1, SCALE, + $ SUM ) 310 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANTB = VALUE diff --git a/lapack-netlib/SRC/zlantp.f b/lapack-netlib/SRC/zlantp.f index d32a00f13..af2b2cf75 100644 --- a/lapack-netlib/SRC/zlantp.f +++ b/lapack-netlib/SRC/zlantp.f @@ -118,19 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANTP( NORM, UPLO, DIAG, N, AP, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER N @@ -149,17 +145,14 @@ * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J, K - DOUBLE PRECISION SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, SQRT @@ -312,64 +305,45 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N K = 2 DO 280 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( J-1, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( J-1, AP( K ), 1, SCALE, SUM ) K = K + J 280 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE K = 1 DO 290 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( J, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( J, AP( K ), 1, SCALE, SUM ) K = K + J 290 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = N + SCALE = ONE + SUM = N K = 2 DO 300 J = 1, N - 1 - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( N-J, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( N-J, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 300 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE K = 1 DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( N-J+1, AP( K ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( N-J+1, AP( K ), 1, SCALE, SUM ) K = K + N - J + 1 310 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANTP = VALUE diff --git a/lapack-netlib/SRC/zlantr.f b/lapack-netlib/SRC/zlantr.f index 7d63c972e..bd4b5da7c 100644 --- a/lapack-netlib/SRC/zlantr.f +++ b/lapack-netlib/SRC/zlantr.f @@ -134,20 +134,16 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== DOUBLE PRECISION FUNCTION ZLANTR( NORM, UPLO, DIAG, M, N, A, LDA, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * - IMPLICIT NONE * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO INTEGER LDA, M, N @@ -166,17 +162,14 @@ * .. Local Scalars .. LOGICAL UDIAG INTEGER I, J - DOUBLE PRECISION SUM, VALUE -* .. -* .. Local Arrays .. - DOUBLE PRECISION SSQ( 2 ), COLSSQ( 2 ) + DOUBLE PRECISION SCALE, SUM, VALUE * .. * .. External Functions .. LOGICAL LSAME, DISNAN EXTERNAL LSAME, DISNAN * .. * .. External Subroutines .. - EXTERNAL ZLASSQ, DCOMBSSQ + EXTERNAL ZLASSQ * .. * .. Intrinsic Functions .. INTRINSIC ABS, MIN, SQRT @@ -317,56 +310,38 @@ ELSE IF( ( LSAME( NORM, 'F' ) ) .OR. ( LSAME( NORM, 'E' ) ) ) THEN * * Find normF(A). -* SSQ(1) is scale -* SSQ(2) is sum-of-squares -* For better accuracy, sum each column separately. * IF( LSAME( UPLO, 'U' ) ) THEN IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = MIN( M, N ) + SCALE = ONE + SUM = MIN( M, N ) DO 290 J = 2, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( MIN( M, J-1 ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( MIN( M, J-1 ), A( 1, J ), 1, SCALE, SUM ) 290 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 300 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( MIN( M, J ), A( 1, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( MIN( M, J ), A( 1, J ), 1, SCALE, SUM ) 300 CONTINUE END IF ELSE IF( LSAME( DIAG, 'U' ) ) THEN - SSQ( 1 ) = ONE - SSQ( 2 ) = MIN( M, N ) + SCALE = ONE + SUM = MIN( M, N ) DO 310 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( M-J, A( MIN( M, J+1 ), J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( M-J, A( MIN( M, J+1 ), J ), 1, SCALE, + $ SUM ) 310 CONTINUE ELSE - SSQ( 1 ) = ZERO - SSQ( 2 ) = ONE + SCALE = ZERO + SUM = ONE DO 320 J = 1, N - COLSSQ( 1 ) = ZERO - COLSSQ( 2 ) = ONE - CALL ZLASSQ( M-J+1, A( J, J ), 1, - $ COLSSQ( 1 ), COLSSQ( 2 ) ) - CALL DCOMBSSQ( SSQ, COLSSQ ) + CALL ZLASSQ( M-J+1, A( J, J ), 1, SCALE, SUM ) 320 CONTINUE END IF END IF - VALUE = SSQ( 1 )*SQRT( SSQ( 2 ) ) + VALUE = SCALE*SQRT( SUM ) END IF * ZLANTR = VALUE diff --git a/lapack-netlib/SRC/zlapll.f b/lapack-netlib/SRC/zlapll.f index 2eebe88e4..345e7f770 100644 --- a/lapack-netlib/SRC/zlapll.f +++ b/lapack-netlib/SRC/zlapll.f @@ -93,17 +93,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAPLL( N, X, INCX, Y, INCY, SSMIN ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/lapack-netlib/SRC/zlapmr.f b/lapack-netlib/SRC/zlapmr.f index 757a9597d..6a409d2c2 100644 --- a/lapack-netlib/SRC/zlapmr.f +++ b/lapack-netlib/SRC/zlapmr.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAPMR( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL FORWRD @@ -198,7 +195,7 @@ * RETURN * -* End of ZLAPMT +* End of ZLAPMR * END diff --git a/lapack-netlib/SRC/zlapmt.f b/lapack-netlib/SRC/zlapmt.f index 963ced2ed..6c8e6fe7d 100644 --- a/lapack-netlib/SRC/zlapmt.f +++ b/lapack-netlib/SRC/zlapmt.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAPMT( FORWRD, M, N, X, LDX, K ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL FORWRD diff --git a/lapack-netlib/SRC/zlaqgb.f b/lapack-netlib/SRC/zlaqgb.f index 9aaa941c9..f1480b67e 100644 --- a/lapack-netlib/SRC/zlaqgb.f +++ b/lapack-netlib/SRC/zlaqgb.f @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GBauxiliary * * ===================================================================== SUBROUTINE ZLAQGB( M, N, KL, KU, AB, LDAB, R, C, ROWCND, COLCND, $ AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/lapack-netlib/SRC/zlaqge.f b/lapack-netlib/SRC/zlaqge.f index c7e2cc17f..5eae13dd5 100644 --- a/lapack-netlib/SRC/zlaqge.f +++ b/lapack-netlib/SRC/zlaqge.f @@ -135,18 +135,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEauxiliary * * ===================================================================== SUBROUTINE ZLAQGE( M, N, A, LDA, R, C, ROWCND, COLCND, AMAX, $ EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED diff --git a/lapack-netlib/SRC/zlaqhb.f b/lapack-netlib/SRC/zlaqhb.f index 8d2a53ce7..3b90b5990 100644 --- a/lapack-netlib/SRC/zlaqhb.f +++ b/lapack-netlib/SRC/zlaqhb.f @@ -134,17 +134,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAQHB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/zlaqhe.f b/lapack-netlib/SRC/zlaqhe.f index 5e6520bd5..afda051f1 100644 --- a/lapack-netlib/SRC/zlaqhe.f +++ b/lapack-netlib/SRC/zlaqhe.f @@ -127,17 +127,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16HEauxiliary * * ===================================================================== SUBROUTINE ZLAQHE( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/zlaqhp.f b/lapack-netlib/SRC/zlaqhp.f index 03f2ac2d1..e5b2f213d 100644 --- a/lapack-netlib/SRC/zlaqhp.f +++ b/lapack-netlib/SRC/zlaqhp.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAQHP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/zlaqp2.f b/lapack-netlib/SRC/zlaqp2.f index e7bb15f9b..2354b6788 100644 --- a/lapack-netlib/SRC/zlaqp2.f +++ b/lapack-netlib/SRC/zlaqp2.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -149,10 +147,9 @@ SUBROUTINE ZLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, $ WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, M, N, OFFSET diff --git a/lapack-netlib/SRC/zlaqps.f b/lapack-netlib/SRC/zlaqps.f index 66c721517..c2387dba8 100644 --- a/lapack-netlib/SRC/zlaqps.f +++ b/lapack-netlib/SRC/zlaqps.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -177,10 +175,9 @@ SUBROUTINE ZLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1, $ VN2, AUXV, F, LDF ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KB, LDA, LDF, M, N, NB, OFFSET diff --git a/lapack-netlib/SRC/zlaqr0.f b/lapack-netlib/SRC/zlaqr0.f index edf01bc7c..27ad09f5a 100644 --- a/lapack-netlib/SRC/zlaqr0.f +++ b/lapack-netlib/SRC/zlaqr0.f @@ -215,8 +215,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -241,10 +239,9 @@ SUBROUTINE ZLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/zlaqr1.f b/lapack-netlib/SRC/zlaqr1.f index fc2df3cb4..fdcb37768 100644 --- a/lapack-netlib/SRC/zlaqr1.f +++ b/lapack-netlib/SRC/zlaqr1.f @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -107,10 +105,9 @@ * ===================================================================== SUBROUTINE ZLAQR1( N, H, LDH, S1, S2, V ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. COMPLEX*16 S1, S2 diff --git a/lapack-netlib/SRC/zlaqr2.f b/lapack-netlib/SRC/zlaqr2.f index b5434e899..f78ea206d 100644 --- a/lapack-netlib/SRC/zlaqr2.f +++ b/lapack-netlib/SRC/zlaqr2.f @@ -255,8 +255,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -270,10 +268,9 @@ $ IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, $ NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/lapack-netlib/SRC/zlaqr3.f b/lapack-netlib/SRC/zlaqr3.f index dfb798ca9..c8e5fe999 100644 --- a/lapack-netlib/SRC/zlaqr3.f +++ b/lapack-netlib/SRC/zlaqr3.f @@ -252,8 +252,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -267,10 +265,9 @@ $ IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT, $ NV, WV, LDWV, WORK, LWORK ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV, diff --git a/lapack-netlib/SRC/zlaqr4.f b/lapack-netlib/SRC/zlaqr4.f index 6d083fcda..ee2ab611c 100644 --- a/lapack-netlib/SRC/zlaqr4.f +++ b/lapack-netlib/SRC/zlaqr4.f @@ -221,8 +221,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -247,10 +245,9 @@ SUBROUTINE ZLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ, $ IHIZ, Z, LDZ, WORK, LWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N diff --git a/lapack-netlib/SRC/zlaqr5.f b/lapack-netlib/SRC/zlaqr5.f index c12f4b780..3185508bc 100644 --- a/lapack-netlib/SRC/zlaqr5.f +++ b/lapack-netlib/SRC/zlaqr5.f @@ -225,8 +225,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2021 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -258,10 +256,9 @@ $ WV, LDWV, NH, WH, LDWH ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV, diff --git a/lapack-netlib/SRC/zlaqsb.f b/lapack-netlib/SRC/zlaqsb.f index 3d3912cf8..2ea0b2f3c 100644 --- a/lapack-netlib/SRC/zlaqsb.f +++ b/lapack-netlib/SRC/zlaqsb.f @@ -134,17 +134,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAQSB( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/zlaqsp.f b/lapack-netlib/SRC/zlaqsp.f index 339408fb1..263be6bd2 100644 --- a/lapack-netlib/SRC/zlaqsp.f +++ b/lapack-netlib/SRC/zlaqsp.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAQSP( UPLO, N, AP, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/zlaqsy.f b/lapack-netlib/SRC/zlaqsy.f index 011820106..37872b8b2 100644 --- a/lapack-netlib/SRC/zlaqsy.f +++ b/lapack-netlib/SRC/zlaqsy.f @@ -127,17 +127,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYauxiliary * * ===================================================================== SUBROUTINE ZLAQSY( UPLO, N, A, LDA, S, SCOND, AMAX, EQUED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER EQUED, UPLO diff --git a/lapack-netlib/SRC/zlaqz0.f b/lapack-netlib/SRC/zlaqz0.f new file mode 100644 index 000000000..2616f20b5 --- /dev/null +++ b/lapack-netlib/SRC/zlaqz0.f @@ -0,0 +1,692 @@ +*> \brief \b ZLAQZ0 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download ZLAQZ0 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE ZLAQZ0( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, +* $ LDB, ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, RWORK, REC, +* $ INFO ) +* IMPLICIT NONE +* +* Arguments +* CHARACTER, INTENT( IN ) :: WANTS, WANTQ, WANTZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, +* $ REC +* INTEGER, INTENT( OUT ) :: INFO +* COMPLEX*16, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, +* $ * ), Z( LDZ, * ), ALPHA( * ), BETA( * ), WORK( * ) +* DOUBLE PRECISION, INTENT( OUT ) :: RWORK( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> ZLAQZ0 computes the eigenvalues of a real matrix pair (H,T), +*> where H is an upper Hessenberg matrix and T is upper triangular, +*> using the double-shift QZ method. +*> Matrix pairs of this type are produced by the reduction to +*> generalized upper Hessenberg form of a real 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, P and S are an upper triangular +*> matrices. +*> +*> 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. +*> If Q1 and Z1 are the unitary matrices from ZGGHRD that reduced +*> the matrix pair (A,B) to generalized upper 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 values (alpha,beta), where alpha is +*> complex and beta real. +*> If beta is nonzero, lambda = alpha / beta is an eigenvalue of the +*> generalized nonsymmetric eigenvalue problem (GNEP) +*> A*x = lambda*B*x +*> and if alpha is nonzero, mu = beta / alpha is an eigenvalue of the +*> alternate form of the GNEP +*> mu*A*y = B*y. +*> Eigenvalues can be read directly from the generalized Schur +*> form: +*> alpha = S(i,i), beta = P(i,i). +*> +*> Ref: C.B. Moler & G.W. Stewart, "An Algorithm for Generalized Matrix +*> Eigenvalue Problems", SIAM J. Numer. Anal., 10(1973), +*> pp. 241--256. +*> +*> Ref: B. Kagstrom, D. Kressner, "Multishift Variants of the QZ +*> Algorithm with Aggressive Early Deflation", SIAM J. Numer. +*> Anal., 29(2006), pp. 199--227. +*> +*> Ref: T. Steel, D. Camps, K. Meerbergen, R. Vandebril "A multishift, +*> multipole rational QZ method with agressive early deflation" +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] WANTS +*> \verbatim +*> WANTS is CHARACTER*1 +*> = 'E': Compute eigenvalues only; +*> = 'S': Compute eigenvalues and the Schur form. +*> \endverbatim +*> +*> \param[in] WANTQ +*> \verbatim +*> WANTQ is CHARACTER*1 +*> = 'N': Left Schur vectors (Q) are not computed; +*> = 'I': Q is initialized to the unit matrix and the matrix Q +*> of left Schur vectors of (A,B) is returned; +*> = 'V': Q must contain an unitary matrix Q1 on entry and +*> the product Q1*Q is returned. +*> \endverbatim +*> +*> \param[in] WANTZ +*> \verbatim +*> WANTZ is CHARACTER*1 +*> = 'N': Right Schur vectors (Z) are not computed; +*> = 'I': Z is initialized to the unit matrix and the matrix Z +*> of right Schur vectors of (A,B) is returned; +*> = 'V': Z must contain an unitary matrix Z1 on entry and +*> the product Z1*Z is returned. +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> ILO and IHI mark the rows and columns of A which are in +*> Hessenberg form. It is assumed that A is already upper +*> triangular in rows and columns 1:ILO-1 and IHI+1:N. +*> If N > 0, 1 <= ILO <= IHI <= N; if N = 0, ILO=1 and IHI=0. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is COMPLEX*16 array, dimension (LDA, N) +*> On entry, the N-by-N upper Hessenberg matrix A. +*> On exit, if JOB = 'S', A contains the upper triangular +*> matrix S from the generalized Schur factorization. +*> If JOB = 'E', the diagonal blocks of A match those of S, but +*> the rest of A is unspecified. +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is COMPLEX*16 array, dimension (LDB, N) +*> On entry, the N-by-N upper triangular matrix B. +*> On exit, if JOB = 'S', B contains the upper triangular +*> matrix P from the generalized Schur factorization; +*> If JOB = 'E', the diagonal blocks of B match those of P, but +*> the rest of B is unspecified. +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[out] ALPHA +*> \verbatim +*> ALPHA is COMPLEX*16 array, dimension (N) +*> Each scalar alpha defining an eigenvalue +*> of GNEP. +*> \endverbatim +*> +*> \param[out] BETA +*> \verbatim +*> BETA is COMPLEX*16 array, dimension (N) +*> The 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. Since either lambda or mu may overflow, +*> they should not, in general, be computed. +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is COMPLEX*16 array, dimension (LDQ, N) +*> On entry, if COMPQ = 'V', the unitary matrix Q1 used in +*> the reduction of (A,B) to generalized Hessenberg form. +*> On exit, if COMPQ = 'I', the unitary matrix of left Schur +*> vectors of (A,B), and if COMPQ = 'V', the unitary matrix +*> of left Schur vectors of (A,B). +*> Not referenced if COMPQ = 'N'. +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> The leading dimension of the array Q. LDQ >= 1. +*> If COMPQ='V' or 'I', then LDQ >= N. +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is COMPLEX*16 array, dimension (LDZ, N) +*> On entry, if COMPZ = 'V', the unitary matrix Z1 used in +*> the reduction of (A,B) to generalized Hessenberg form. +*> On exit, if COMPZ = 'I', the unitary matrix of +*> right Schur vectors of (H,T), and if COMPZ = 'V', the +*> unitary matrix of right Schur vectors of (A,B). +*> Not referenced if COMPZ = 'N'. +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> The leading dimension of the array Z. LDZ >= 1. +*> If COMPZ='V' or 'I', then LDZ >= N. +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is COMPLEX*16 array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[out] RWORK +*> \verbatim +*> RWORK is DOUBLE PRECISION array, dimension (N) +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> 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 +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[in] REC +*> \verbatim +*> REC is INTEGER +*> REC indicates the current recursion level. Should be set +*> to 0 on first call. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> = 1,...,N: the QZ iteration did not converge. (A,B) is not +*> in Schur form, but ALPHA(i) and +*> BETA(i), i=INFO+1,...,N should be correct. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup complex16GEcomputational +*> +* ===================================================================== + RECURSIVE SUBROUTINE ZLAQZ0( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, + $ LDA, B, LDB, ALPHA, BETA, Q, LDQ, Z, + $ LDZ, WORK, LWORK, RWORK, REC, + $ INFO ) + IMPLICIT NONE + +* Arguments + CHARACTER, INTENT( IN ) :: WANTS, WANTQ, WANTZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, + $ REC + INTEGER, INTENT( OUT ) :: INFO + COMPLEX*16, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, + $ * ), Z( LDZ, * ), ALPHA( * ), BETA( * ), WORK( * ) + DOUBLE PRECISION, INTENT( OUT ) :: RWORK( * ) + +* Parameters + COMPLEX*16 CZERO, CONE + PARAMETER ( CZERO = ( 0.0D+0, 0.0D+0 ), CONE = ( 1.0D+0, + $ 0.0D+0 ) ) + DOUBLE PRECISION :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0D0, ONE = 1.0D0, HALF = 0.5D0 ) + +* Local scalars + DOUBLE PRECISION :: SMLNUM, ULP, SAFMIN, SAFMAX, C1, TEMPR + COMPLEX*16 :: ESHIFT, S1, TEMP + INTEGER :: ISTART, ISTOP, IITER, MAXIT, ISTART2, K, LD, NSHIFTS, + $ NBLOCK, NW, NMIN, NIBBLE, N_UNDEFLATED, N_DEFLATED, + $ NS, SWEEP_INFO, SHIFTPOS, LWORKREQ, K2, ISTARTM, + $ ISTOPM, IWANTS, IWANTQ, IWANTZ, NORM_INFO, AED_INFO, + $ NWR, NBR, NSR, ITEMP1, ITEMP2, RCOST + LOGICAL :: ILSCHUR, ILQ, ILZ + CHARACTER :: JBCMPZ*3 + +* External Functions + EXTERNAL :: XERBLA, ZHGEQZ, ZLAQZ2, ZLAQZ3, ZLASET, DLABAD, + $ ZLARTG, ZROT + DOUBLE PRECISION, EXTERNAL :: DLAMCH + LOGICAL, EXTERNAL :: LSAME + INTEGER, EXTERNAL :: ILAENV + +* +* Decode wantS,wantQ,wantZ +* + IF( LSAME( WANTS, 'E' ) ) THEN + ILSCHUR = .FALSE. + IWANTS = 1 + ELSE IF( LSAME( WANTS, 'S' ) ) THEN + ILSCHUR = .TRUE. + IWANTS = 2 + ELSE + IWANTS = 0 + END IF + + IF( LSAME( WANTQ, 'N' ) ) THEN + ILQ = .FALSE. + IWANTQ = 1 + ELSE IF( LSAME( WANTQ, 'V' ) ) THEN + ILQ = .TRUE. + IWANTQ = 2 + ELSE IF( LSAME( WANTQ, 'I' ) ) THEN + ILQ = .TRUE. + IWANTQ = 3 + ELSE + IWANTQ = 0 + END IF + + IF( LSAME( WANTZ, 'N' ) ) THEN + ILZ = .FALSE. + IWANTZ = 1 + ELSE IF( LSAME( WANTZ, 'V' ) ) THEN + ILZ = .TRUE. + IWANTZ = 2 + ELSE IF( LSAME( WANTZ, 'I' ) ) THEN + ILZ = .TRUE. + IWANTZ = 3 + ELSE + IWANTZ = 0 + END IF +* +* Check Argument Values +* + INFO = 0 + IF( IWANTS.EQ.0 ) THEN + INFO = -1 + ELSE IF( IWANTQ.EQ.0 ) THEN + INFO = -2 + ELSE IF( IWANTZ.EQ.0 ) THEN + INFO = -3 + ELSE IF( N.LT.0 ) THEN + INFO = -4 + ELSE IF( ILO.LT.1 ) THEN + INFO = -5 + ELSE IF( IHI.GT.N .OR. IHI.LT.ILO-1 ) THEN + INFO = -6 + ELSE IF( LDA.LT.N ) THEN + INFO = -8 + ELSE IF( LDB.LT.N ) THEN + INFO = -10 + ELSE IF( LDQ.LT.1 .OR. ( ILQ .AND. LDQ.LT.N ) ) THEN + INFO = -15 + ELSE IF( LDZ.LT.1 .OR. ( ILZ .AND. LDZ.LT.N ) ) THEN + INFO = -17 + END IF + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'ZLAQZ0', -INFO ) + RETURN + END IF + +* +* Quick return if possible +* + IF( N.LE.0 ) THEN + WORK( 1 ) = DBLE( 1 ) + RETURN + END IF + +* +* Get the parameters +* + JBCMPZ( 1:1 ) = WANTS + JBCMPZ( 2:2 ) = WANTQ + JBCMPZ( 3:3 ) = WANTZ + + NMIN = ILAENV( 12, 'ZLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + + NWR = ILAENV( 13, 'ZLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + NWR = MAX( 2, NWR ) + NWR = MIN( IHI-ILO+1, ( N-1 ) / 3, NWR ) + + NIBBLE = ILAENV( 14, 'ZLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + + NSR = ILAENV( 15, 'ZLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + NSR = MIN( NSR, ( N+6 ) / 9, IHI-ILO ) + NSR = MAX( 2, NSR-MOD( NSR, 2 ) ) + + RCOST = ILAENV( 17, 'ZLAQZ0', JBCMPZ, N, ILO, IHI, LWORK ) + ITEMP1 = INT( NSR/SQRT( 1+2*NSR/( DBLE( RCOST )/100*N ) ) ) + ITEMP1 = ( ( ITEMP1-1 )/4 )*4+4 + NBR = NSR+ITEMP1 + + IF( N .LT. NMIN .OR. REC .GE. 2 ) THEN + CALL ZHGEQZ( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, LDB, + $ ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, RWORK, + $ INFO ) + RETURN + END IF + +* +* Find out required workspace +* + +* Workspace query to ZLAQZ2 + NW = MAX( NWR, NMIN ) + CALL ZLAQZ2( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, A, LDA, B, LDB, + $ Q, LDQ, Z, LDZ, N_UNDEFLATED, N_DEFLATED, ALPHA, + $ BETA, WORK, NW, WORK, NW, WORK, -1, RWORK, REC, + $ AED_INFO ) + ITEMP1 = INT( WORK( 1 ) ) +* Workspace query to ZLAQZ3 + CALL ZLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSR, NBR, ALPHA, + $ BETA, A, LDA, B, LDB, Q, LDQ, Z, LDZ, WORK, NBR, + $ WORK, NBR, WORK, -1, SWEEP_INFO ) + ITEMP2 = INT( WORK( 1 ) ) + + LWORKREQ = MAX( ITEMP1+2*NW**2, ITEMP2+2*NBR**2 ) + IF ( LWORK .EQ.-1 ) THEN + WORK( 1 ) = DBLE( LWORKREQ ) + RETURN + ELSE IF ( LWORK .LT. LWORKREQ ) THEN + INFO = -19 + END IF + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'ZLAQZ0', INFO ) + RETURN + END IF +* +* Initialize Q and Z +* + IF( IWANTQ.EQ.3 ) CALL ZLASET( 'FULL', N, N, CZERO, CONE, Q, + $ LDQ ) + IF( IWANTZ.EQ.3 ) CALL ZLASET( 'FULL', N, N, CZERO, CONE, Z, + $ LDZ ) + +* Get machine constants + SAFMIN = DLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL DLABAD( SAFMIN, SAFMAX ) + ULP = DLAMCH( 'PRECISION' ) + SMLNUM = SAFMIN*( DBLE( N )/ULP ) + + ISTART = ILO + ISTOP = IHI + MAXIT = 30*( IHI-ILO+1 ) + LD = 0 + + DO IITER = 1, MAXIT + IF( IITER .GE. MAXIT ) THEN + INFO = ISTOP+1 + GOTO 80 + END IF + IF ( ISTART+1 .GE. ISTOP ) THEN + ISTOP = ISTART + EXIT + END IF + +* Check deflations at the end + IF ( ABS( A( ISTOP, ISTOP-1 ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTOP, ISTOP ) )+ABS( A( ISTOP-1, + $ ISTOP-1 ) ) ) ) ) THEN + A( ISTOP, ISTOP-1 ) = CZERO + ISTOP = ISTOP-1 + LD = 0 + ESHIFT = CZERO + END IF +* Check deflations at the start + IF ( ABS( A( ISTART+1, ISTART ) ) .LE. MAX( SMLNUM, + $ ULP*( ABS( A( ISTART, ISTART ) )+ABS( A( ISTART+1, + $ ISTART+1 ) ) ) ) ) THEN + A( ISTART+1, ISTART ) = CZERO + ISTART = ISTART+1 + LD = 0 + ESHIFT = CZERO + END IF + + IF ( ISTART+1 .GE. ISTOP ) THEN + EXIT + END IF + +* Check interior deflations + ISTART2 = ISTART + DO K = ISTOP, ISTART+1, -1 + IF ( ABS( A( K, K-1 ) ) .LE. MAX( SMLNUM, ULP*( ABS( A( K, + $ K ) )+ABS( A( K-1, K-1 ) ) ) ) ) THEN + A( K, K-1 ) = CZERO + ISTART2 = K + EXIT + END IF + END DO + +* Get range to apply rotations to + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ISTART2 + ISTOPM = ISTOP + END IF + +* Check infinite eigenvalues, this is done without blocking so might +* slow down the method when many infinite eigenvalues are present + K = ISTOP + DO WHILE ( K.GE.ISTART2 ) + TEMPR = ZERO + IF( K .LT. ISTOP ) THEN + TEMPR = TEMPR+ABS( B( K, K+1 ) ) + END IF + IF( K .GT. ISTART2 ) THEN + TEMPR = TEMPR+ABS( B( K-1, K ) ) + END IF + + IF( ABS( B( K, K ) ) .LT. MAX( SMLNUM, ULP*TEMPR ) ) THEN +* A diagonal element of B is negligable, move it +* to the top and deflate it + + DO K2 = K, ISTART2+1, -1 + CALL ZLARTG( B( K2-1, K2 ), B( K2-1, K2-1 ), C1, S1, + $ TEMP ) + B( K2-1, K2 ) = TEMP + B( K2-1, K2-1 ) = CZERO + + CALL ZROT( K2-2-ISTARTM+1, B( ISTARTM, K2 ), 1, + $ B( ISTARTM, K2-1 ), 1, C1, S1 ) + CALL ZROT( MIN( K2+1, ISTOP )-ISTARTM+1, A( ISTARTM, + $ K2 ), 1, A( ISTARTM, K2-1 ), 1, C1, S1 ) + IF ( ILZ ) THEN + CALL ZROT( N, Z( 1, K2 ), 1, Z( 1, K2-1 ), 1, C1, + $ S1 ) + END IF + + IF( K2.LT.ISTOP ) THEN + CALL ZLARTG( A( K2, K2-1 ), A( K2+1, K2-1 ), C1, + $ S1, TEMP ) + A( K2, K2-1 ) = TEMP + A( K2+1, K2-1 ) = CZERO + + CALL ZROT( ISTOPM-K2+1, A( K2, K2 ), LDA, A( K2+1, + $ K2 ), LDA, C1, S1 ) + CALL ZROT( ISTOPM-K2+1, B( K2, K2 ), LDB, B( K2+1, + $ K2 ), LDB, C1, S1 ) + IF( ILQ ) THEN + CALL ZROT( N, Q( 1, K2 ), 1, Q( 1, K2+1 ), 1, + $ C1, DCONJG( S1 ) ) + END IF + END IF + + END DO + + IF( ISTART2.LT.ISTOP )THEN + CALL ZLARTG( A( ISTART2, ISTART2 ), A( ISTART2+1, + $ ISTART2 ), C1, S1, TEMP ) + A( ISTART2, ISTART2 ) = TEMP + A( ISTART2+1, ISTART2 ) = CZERO + + CALL ZROT( ISTOPM-( ISTART2+1 )+1, A( ISTART2, + $ ISTART2+1 ), LDA, A( ISTART2+1, + $ ISTART2+1 ), LDA, C1, S1 ) + CALL ZROT( ISTOPM-( ISTART2+1 )+1, B( ISTART2, + $ ISTART2+1 ), LDB, B( ISTART2+1, + $ ISTART2+1 ), LDB, C1, S1 ) + IF( ILQ ) THEN + CALL ZROT( N, Q( 1, ISTART2 ), 1, Q( 1, + $ ISTART2+1 ), 1, C1, DCONJG( S1 ) ) + END IF + END IF + + ISTART2 = ISTART2+1 + + END IF + K = K-1 + END DO + +* istart2 now points to the top of the bottom right +* unreduced Hessenberg block + IF ( ISTART2 .GE. ISTOP ) THEN + ISTOP = ISTART2-1 + LD = 0 + ESHIFT = CZERO + CYCLE + END IF + + NW = NWR + NSHIFTS = NSR + NBLOCK = NBR + + IF ( ISTOP-ISTART2+1 .LT. NMIN ) THEN +* Setting nw to the size of the subblock will make AED deflate +* all the eigenvalues. This is slightly more efficient than just +* using qz_small because the off diagonal part gets updated via BLAS. + IF ( ISTOP-ISTART+1 .LT. NMIN ) THEN + NW = ISTOP-ISTART+1 + ISTART2 = ISTART + ELSE + NW = ISTOP-ISTART2+1 + END IF + END IF + +* +* Time for AED +* + CALL ZLAQZ2( ILSCHUR, ILQ, ILZ, N, ISTART2, ISTOP, NW, A, LDA, + $ B, LDB, Q, LDQ, Z, LDZ, N_UNDEFLATED, N_DEFLATED, + $ ALPHA, BETA, WORK, NW, WORK( NW**2+1 ), NW, + $ WORK( 2*NW**2+1 ), LWORK-2*NW**2, RWORK, REC, + $ AED_INFO ) + + IF ( N_DEFLATED > 0 ) THEN + ISTOP = ISTOP-N_DEFLATED + LD = 0 + ESHIFT = CZERO + END IF + + IF ( 100*N_DEFLATED > NIBBLE*( N_DEFLATED+N_UNDEFLATED ) .OR. + $ ISTOP-ISTART2+1 .LT. NMIN ) THEN +* AED has uncovered many eigenvalues. Skip a QZ sweep and run +* AED again. + CYCLE + END IF + + LD = LD+1 + + NS = MIN( NSHIFTS, ISTOP-ISTART2 ) + NS = MIN( NS, N_UNDEFLATED ) + SHIFTPOS = ISTOP-N_DEFLATED-N_UNDEFLATED+1 + + IF ( MOD( LD, 6 ) .EQ. 0 ) THEN +* +* Exceptional shift. Chosen for no particularly good reason. +* + IF( ( DBLE( MAXIT )*SAFMIN )*ABS( A( ISTOP, + $ ISTOP-1 ) ).LT.ABS( A( ISTOP-1, ISTOP-1 ) ) ) THEN + ESHIFT = A( ISTOP, ISTOP-1 )/B( ISTOP-1, ISTOP-1 ) + ELSE + ESHIFT = ESHIFT+CONE/( SAFMIN*DBLE( MAXIT ) ) + END IF + ALPHA( SHIFTPOS ) = CONE + BETA( SHIFTPOS ) = ESHIFT + NS = 1 + END IF + +* +* Time for a QZ sweep +* + CALL ZLAQZ3( ILSCHUR, ILQ, ILZ, N, ISTART2, ISTOP, NS, NBLOCK, + $ ALPHA( SHIFTPOS ), BETA( SHIFTPOS ), A, LDA, B, + $ LDB, Q, LDQ, Z, LDZ, WORK, NBLOCK, WORK( NBLOCK** + $ 2+1 ), NBLOCK, WORK( 2*NBLOCK**2+1 ), + $ LWORK-2*NBLOCK**2, SWEEP_INFO ) + + END DO + +* +* Call ZHGEQZ to normalize the eigenvalue blocks and set the eigenvalues +* If all the eigenvalues have been found, ZHGEQZ will not do any iterations +* and only normalize the blocks. In case of a rare convergence failure, +* the single shift might perform better. +* + 80 CALL ZHGEQZ( WANTS, WANTQ, WANTZ, N, ILO, IHI, A, LDA, B, LDB, + $ ALPHA, BETA, Q, LDQ, Z, LDZ, WORK, LWORK, RWORK, + $ NORM_INFO ) + + INFO = NORM_INFO + + END SUBROUTINE diff --git a/lapack-netlib/SRC/zlaqz1.f b/lapack-netlib/SRC/zlaqz1.f new file mode 100644 index 000000000..d8f52ad04 --- /dev/null +++ b/lapack-netlib/SRC/zlaqz1.f @@ -0,0 +1,248 @@ +*> \brief \b ZLAQZ1 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download ZLAQZ1 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE ZLAQZ1( ILQ, ILZ, K, ISTARTM, ISTOPM, IHI, A, LDA, B, +* $ LDB, NQ, QSTART, Q, LDQ, NZ, ZSTART, Z, LDZ ) +* IMPLICIT NONE +* +* Arguments +* LOGICAL, INTENT( IN ) :: ILQ, ILZ +* INTEGER, INTENT( IN ) :: K, LDA, LDB, LDQ, LDZ, ISTARTM, ISTOPM, +* $ NQ, NZ, QSTART, ZSTART, IHI +* COMPLEX*16 :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), Z( LDZ, * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> ZLAQZ1 chases a 1x1 shift bulge in a matrix pencil down a single position +*> \endverbatim +* +* +* Arguments: +* ========== +* +*> +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] K +*> \verbatim +*> K is INTEGER +*> Index indicating the position of the bulge. +*> On entry, the bulge is located in +*> (A(k+1,k),B(k+1,k)). +*> On exit, the bulge is located in +*> (A(k+2,k+1),B(k+2,k+1)). +*> \endverbatim +*> +*> \param[in] ISTARTM +*> \verbatim +*> ISTARTM is INTEGER +*> \endverbatim +*> +*> \param[in] ISTOPM +*> \verbatim +*> ISTOPM is INTEGER +*> Updates to (A,B) are restricted to +*> (istartm:k+2,k:istopm). It is assumed +*> without checking that istartm <= k+1 and +*> k+2 <= istopm +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> \endverbatim +*> +*> \param[inout] A +*> \verbatim +*> A is COMPLEX*16 array, dimension (LDA,N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of A as declared in +*> the calling procedure. +*> \endverbatim +* +*> \param[inout] B +*> \verbatim +*> B is COMPLEX*16 array, dimension (LDB,N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of B as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] NQ +*> \verbatim +*> NQ is INTEGER +*> The order of the matrix Q +*> \endverbatim +*> +*> \param[in] QSTART +*> \verbatim +*> QSTART is INTEGER +*> Start index of the matrix Q. Rotations are applied +*> To columns k+2-qStart:k+3-qStart of Q. +*> \endverbatim +* +*> \param[inout] Q +*> \verbatim +*> Q is COMPLEX*16 array, dimension (LDQ,NQ) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> The leading dimension of Q as declared in +*> the calling procedure. +*> \endverbatim +*> +*> \param[in] NZ +*> \verbatim +*> NZ is INTEGER +*> The order of the matrix Z +*> \endverbatim +*> +*> \param[in] ZSTART +*> \verbatim +*> ZSTART is INTEGER +*> Start index of the matrix Z. Rotations are applied +*> To columns k+1-qStart:k+2-qStart of Z. +*> \endverbatim +* +*> \param[inout] Z +*> \verbatim +*> Z is COMPLEX*16 array, dimension (LDZ,NZ) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> The leading dimension of Q as declared in +*> the calling procedure. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup complex16GEcomputational +*> +* ===================================================================== + SUBROUTINE ZLAQZ1( ILQ, ILZ, K, ISTARTM, ISTOPM, IHI, A, LDA, B, + $ LDB, NQ, QSTART, Q, LDQ, NZ, ZSTART, Z, LDZ ) + IMPLICIT NONE +* +* Arguments + LOGICAL, INTENT( IN ) :: ILQ, ILZ + INTEGER, INTENT( IN ) :: K, LDA, LDB, LDQ, LDZ, ISTARTM, ISTOPM, + $ NQ, NZ, QSTART, ZSTART, IHI + COMPLEX*16 :: A( LDA, * ), B( LDB, * ), Q( LDQ, * ), Z( LDZ, * ) +* +* Parameters + COMPLEX*16 CZERO, CONE + PARAMETER ( CZERO = ( 0.0D+0, 0.0D+0 ), CONE = ( 1.0D+0, + $ 0.0D+0 ) ) + DOUBLE PRECISION :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0D0, ONE = 1.0D0, HALF = 0.5D0 ) +* +* Local variables + DOUBLE PRECISION :: C + COMPLEX*16 :: S, TEMP +* +* External Functions + EXTERNAL :: ZLARTG, ZROT +* + IF( K+1 .EQ. IHI ) THEN +* +* Shift is located on the edge of the matrix, remove it +* + CALL ZLARTG( B( IHI, IHI ), B( IHI, IHI-1 ), C, S, TEMP ) + B( IHI, IHI ) = TEMP + B( IHI, IHI-1 ) = CZERO + CALL ZROT( IHI-ISTARTM, B( ISTARTM, IHI ), 1, B( ISTARTM, + $ IHI-1 ), 1, C, S ) + CALL ZROT( IHI-ISTARTM+1, A( ISTARTM, IHI ), 1, A( ISTARTM, + $ IHI-1 ), 1, C, S ) + IF ( ILZ ) THEN + CALL ZROT( NZ, Z( 1, IHI-ZSTART+1 ), 1, Z( 1, IHI-1-ZSTART+ + $ 1 ), 1, C, S ) + END IF +* + ELSE +* +* Normal operation, move bulge down +* +* +* Apply transformation from the right +* + CALL ZLARTG( B( K+1, K+1 ), B( K+1, K ), C, S, TEMP ) + B( K+1, K+1 ) = TEMP + B( K+1, K ) = CZERO + CALL ZROT( K+2-ISTARTM+1, A( ISTARTM, K+1 ), 1, A( ISTARTM, + $ K ), 1, C, S ) + CALL ZROT( K-ISTARTM+1, B( ISTARTM, K+1 ), 1, B( ISTARTM, K ), + $ 1, C, S ) + IF ( ILZ ) THEN + CALL ZROT( NZ, Z( 1, K+1-ZSTART+1 ), 1, Z( 1, K-ZSTART+1 ), + $ 1, C, S ) + END IF +* +* Apply transformation from the left +* + CALL ZLARTG( A( K+1, K ), A( K+2, K ), C, S, TEMP ) + A( K+1, K ) = TEMP + A( K+2, K ) = CZERO + CALL ZROT( ISTOPM-K, A( K+1, K+1 ), LDA, A( K+2, K+1 ), LDA, C, + $ S ) + CALL ZROT( ISTOPM-K, B( K+1, K+1 ), LDB, B( K+2, K+1 ), LDB, C, + $ S ) + IF ( ILQ ) THEN + CALL ZROT( NQ, Q( 1, K+1-QSTART+1 ), 1, Q( 1, K+2-QSTART+ + $ 1 ), 1, C, DCONJG( S ) ) + END IF +* + END IF +* +* End of ZLAQZ1 +* + END SUBROUTINE \ No newline at end of file diff --git a/lapack-netlib/SRC/zlaqz2.f b/lapack-netlib/SRC/zlaqz2.f new file mode 100644 index 000000000..2e94e6dc4 --- /dev/null +++ b/lapack-netlib/SRC/zlaqz2.f @@ -0,0 +1,464 @@ +*> \brief \b ZLAQZ2 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download ZLAQZ2 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE ZLAQZ2( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, A, LDA, B, +* $ LDB, Q, LDQ, Z, LDZ, NS, ND, ALPHA, BETA, QC, LDQC, ZC, LDZC, +* $ WORK, LWORK, RWORK, REC, INFO ) +* IMPLICIT NONE +* +* Arguments +* LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, NW, LDA, LDB, LDQ, LDZ, +* $ LDQC, LDZC, LWORK, REC +* +* COMPLEX*16, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, +* $ * ), Z( LDZ, * ), ALPHA( * ), BETA( * ) +* INTEGER, INTENT( OUT ) :: NS, ND, INFO +* COMPLEX*16 :: QC( LDQC, * ), ZC( LDZC, * ), WORK( * ) +* DOUBLE PRECISION :: RWORK( * ) +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> ZLAQZ2 performs AED +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] ILSCHUR +*> \verbatim +*> ILSCHUR is LOGICAL +*> Determines whether or not to update the full Schur form +*> \endverbatim +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> ILO and IHI mark the rows and columns of (A,B) which +*> are to be normalized +*> \endverbatim +*> +*> \param[in] NW +*> \verbatim +*> NW is INTEGER +*> The desired size of the deflation window. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is COMPLEX*16 array, dimension (LDA, N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is COMPLEX*16 array, dimension (LDB, N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is COMPLEX*16 array, dimension (LDQ, N) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is COMPLEX*16 array, dimension (LDZ, N) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] NS +*> \verbatim +*> NS is INTEGER +*> The number of unconverged eigenvalues available to +*> use as shifts. +*> \endverbatim +*> +*> \param[out] ND +*> \verbatim +*> ND is INTEGER +*> The number of converged eigenvalues found. +*> \endverbatim +*> +*> \param[out] ALPHA +*> \verbatim +*> ALPHA is COMPLEX*16 array, dimension (N) +*> Each scalar alpha defining an eigenvalue +*> of GNEP. +*> \endverbatim +*> +*> \param[out] BETA +*> \verbatim +*> BETA is COMPLEX*16 array, dimension (N) +*> The 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. Since either lambda or mu may overflow, +*> they should not, in general, be computed. +*> \endverbatim +*> +*> \param[in,out] QC +*> \verbatim +*> QC is COMPLEX*16 array, dimension (LDQC, NW) +*> \endverbatim +*> +*> \param[in] LDQC +*> \verbatim +*> LDQC is INTEGER +*> \endverbatim +*> +*> \param[in,out] ZC +*> \verbatim +*> ZC is COMPLEX*16 array, dimension (LDZC, NW) +*> \endverbatim +*> +*> \param[in] LDZC +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is COMPLEX*16 array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> 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 +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[out] RWORK +*> \verbatim +*> RWORK is DOUBLE PRECISION array, dimension (N) +*> \endverbatim +*> +*> \param[in] REC +*> \verbatim +*> REC is INTEGER +*> REC indicates the current recursion level. Should be set +*> to 0 on first call. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup complex16GEcomputational +*> +* ===================================================================== + RECURSIVE SUBROUTINE ZLAQZ2( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NW, + $ A, LDA, B, LDB, Q, LDQ, Z, LDZ, NS, + $ ND, ALPHA, BETA, QC, LDQC, ZC, LDZC, + $ WORK, LWORK, RWORK, REC, INFO ) + IMPLICIT NONE + +* Arguments + LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, NW, LDA, LDB, LDQ, LDZ, + $ LDQC, LDZC, LWORK, REC + + COMPLEX*16, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, + $ * ), Z( LDZ, * ), ALPHA( * ), BETA( * ) + INTEGER, INTENT( OUT ) :: NS, ND, INFO + COMPLEX*16 :: QC( LDQC, * ), ZC( LDZC, * ), WORK( * ) + DOUBLE PRECISION :: RWORK( * ) + +* Parameters + COMPLEX*16 CZERO, CONE + PARAMETER ( CZERO = ( 0.0D+0, 0.0D+0 ), CONE = ( 1.0D+0, + $ 0.0D+0 ) ) + DOUBLE PRECISION :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0D0, ONE = 1.0D0, HALF = 0.5D0 ) + +* Local Scalars + INTEGER :: JW, KWTOP, KWBOT, ISTOPM, ISTARTM, K, K2, ZTGEXC_INFO, + $ IFST, ILST, LWORKREQ, QZ_SMALL_INFO + DOUBLE PRECISION ::SMLNUM, ULP, SAFMIN, SAFMAX, C1, TEMPR + COMPLEX*16 :: S, S1, TEMP + +* External Functions + EXTERNAL :: XERBLA, ZLAQZ0, ZLAQZ1, DLABAD, ZLACPY, ZLASET, ZGEMM, + $ ZTGEXC, ZLARTG, ZROT + DOUBLE PRECISION, EXTERNAL :: DLAMCH + + INFO = 0 + +* Set up deflation window + JW = MIN( NW, IHI-ILO+1 ) + KWTOP = IHI-JW+1 + IF ( KWTOP .EQ. ILO ) THEN + S = CZERO + ELSE + S = A( KWTOP, KWTOP-1 ) + END IF + +* Determine required workspace + IFST = 1 + ILST = JW + CALL ZLAQZ0( 'S', 'V', 'V', JW, 1, JW, A( KWTOP, KWTOP ), LDA, + $ B( KWTOP, KWTOP ), LDB, ALPHA, BETA, QC, LDQC, ZC, + $ LDZC, WORK, -1, RWORK, REC+1, QZ_SMALL_INFO ) + LWORKREQ = INT( WORK( 1 ) )+2*JW**2 + LWORKREQ = MAX( LWORKREQ, N*NW, 2*NW**2+N ) + IF ( LWORK .EQ.-1 ) THEN +* workspace query, quick return + WORK( 1 ) = LWORKREQ + RETURN + ELSE IF ( LWORK .LT. LWORKREQ ) THEN + INFO = -26 + END IF + + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'ZLAQZ2', -INFO ) + RETURN + END IF + +* Get machine constants + SAFMIN = DLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL DLABAD( SAFMIN, SAFMAX ) + ULP = DLAMCH( 'PRECISION' ) + SMLNUM = SAFMIN*( DBLE( N )/ULP ) + + IF ( IHI .EQ. KWTOP ) THEN +* 1 by 1 deflation window, just try a regular deflation + ALPHA( KWTOP ) = A( KWTOP, KWTOP ) + BETA( KWTOP ) = B( KWTOP, KWTOP ) + NS = 1 + ND = 0 + IF ( ABS( S ) .LE. MAX( SMLNUM, ULP*ABS( A( KWTOP, + $ KWTOP ) ) ) ) THEN + NS = 0 + ND = 1 + IF ( KWTOP .GT. ILO ) THEN + A( KWTOP, KWTOP-1 ) = CZERO + END IF + END IF + END IF + + +* Store window in case of convergence failure + CALL ZLACPY( 'ALL', JW, JW, A( KWTOP, KWTOP ), LDA, WORK, JW ) + CALL ZLACPY( 'ALL', JW, JW, B( KWTOP, KWTOP ), LDB, WORK( JW**2+ + $ 1 ), JW ) + +* Transform window to real schur form + CALL ZLASET( 'FULL', JW, JW, CZERO, CONE, QC, LDQC ) + CALL ZLASET( 'FULL', JW, JW, CZERO, CONE, ZC, LDZC ) + CALL ZLAQZ0( 'S', 'V', 'V', JW, 1, JW, A( KWTOP, KWTOP ), LDA, + $ B( KWTOP, KWTOP ), LDB, ALPHA, BETA, QC, LDQC, ZC, + $ LDZC, WORK( 2*JW**2+1 ), LWORK-2*JW**2, RWORK, + $ REC+1, QZ_SMALL_INFO ) + + IF( QZ_SMALL_INFO .NE. 0 ) THEN +* Convergence failure, restore the window and exit + ND = 0 + NS = JW-QZ_SMALL_INFO + CALL ZLACPY( 'ALL', JW, JW, WORK, JW, A( KWTOP, KWTOP ), LDA ) + CALL ZLACPY( 'ALL', JW, JW, WORK( JW**2+1 ), JW, B( KWTOP, + $ KWTOP ), LDB ) + RETURN + END IF + +* Deflation detection loop + IF ( KWTOP .EQ. ILO .OR. S .EQ. CZERO ) THEN + KWBOT = KWTOP-1 + ELSE + KWBOT = IHI + K = 1 + K2 = 1 + DO WHILE ( K .LE. JW ) +* Try to deflate eigenvalue + TEMPR = ABS( A( KWBOT, KWBOT ) ) + IF( TEMPR .EQ. ZERO ) THEN + TEMPR = ABS( S ) + END IF + IF ( ( ABS( S*QC( 1, KWBOT-KWTOP+1 ) ) ) .LE. MAX( ULP* + $ TEMPR, SMLNUM ) ) THEN +* Deflatable + KWBOT = KWBOT-1 + ELSE +* Not deflatable, move out of the way + IFST = KWBOT-KWTOP+1 + ILST = K2 + CALL ZTGEXC( .TRUE., .TRUE., JW, A( KWTOP, KWTOP ), + $ LDA, B( KWTOP, KWTOP ), LDB, QC, LDQC, + $ ZC, LDZC, IFST, ILST, ZTGEXC_INFO ) + K2 = K2+1 + END IF + + K = K+1 + END DO + END IF + +* Store eigenvalues + ND = IHI-KWBOT + NS = JW-ND + K = KWTOP + DO WHILE ( K .LE. IHI ) + ALPHA( K ) = A( K, K ) + BETA( K ) = B( K, K ) + K = K+1 + END DO + + IF ( KWTOP .NE. ILO .AND. S .NE. CZERO ) THEN +* Reflect spike back, this will create optimally packed bulges + A( KWTOP:KWBOT, KWTOP-1 ) = A( KWTOP, KWTOP-1 ) *DCONJG( QC( 1, + $ 1:JW-ND ) ) + DO K = KWBOT-1, KWTOP, -1 + CALL ZLARTG( A( K, KWTOP-1 ), A( K+1, KWTOP-1 ), C1, S1, + $ TEMP ) + A( K, KWTOP-1 ) = TEMP + A( K+1, KWTOP-1 ) = CZERO + K2 = MAX( KWTOP, K-1 ) + CALL ZROT( IHI-K2+1, A( K, K2 ), LDA, A( K+1, K2 ), LDA, C1, + $ S1 ) + CALL ZROT( IHI-( K-1 )+1, B( K, K-1 ), LDB, B( K+1, K-1 ), + $ LDB, C1, S1 ) + CALL ZROT( JW, QC( 1, K-KWTOP+1 ), 1, QC( 1, K+1-KWTOP+1 ), + $ 1, C1, DCONJG( S1 ) ) + END DO + +* Chase bulges down + ISTARTM = KWTOP + ISTOPM = IHI + K = KWBOT-1 + DO WHILE ( K .GE. KWTOP ) + +* Move bulge down and remove it + DO K2 = K, KWBOT-1 + CALL ZLAQZ1( .TRUE., .TRUE., K2, KWTOP, KWTOP+JW-1, + $ KWBOT, A, LDA, B, LDB, JW, KWTOP, QC, LDQC, + $ JW, KWTOP, ZC, LDZC ) + END DO + + K = K-1 + END DO + + END IF + +* Apply Qc and Zc to rest of the matrix + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ILO + ISTOPM = IHI + END IF + + IF ( ISTOPM-IHI > 0 ) THEN + CALL ZGEMM( 'C', 'N', JW, ISTOPM-IHI, JW, CONE, QC, LDQC, + $ A( KWTOP, IHI+1 ), LDA, CZERO, WORK, JW ) + CALL ZLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, A( KWTOP, + $ IHI+1 ), LDA ) + CALL ZGEMM( 'C', 'N', JW, ISTOPM-IHI, JW, CONE, QC, LDQC, + $ B( KWTOP, IHI+1 ), LDB, CZERO, WORK, JW ) + CALL ZLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, B( KWTOP, + $ IHI+1 ), LDB ) + END IF + IF ( ILQ ) THEN + CALL ZGEMM( 'N', 'N', N, JW, JW, CONE, Q( 1, KWTOP ), LDQ, QC, + $ LDQC, CZERO, WORK, N ) + CALL ZLACPY( 'ALL', N, JW, WORK, N, Q( 1, KWTOP ), LDQ ) + END IF + + IF ( KWTOP-1-ISTARTM+1 > 0 ) THEN + CALL ZGEMM( 'N', 'N', KWTOP-ISTARTM, JW, JW, CONE, A( ISTARTM, + $ KWTOP ), LDA, ZC, LDZC, CZERO, WORK, + $ KWTOP-ISTARTM ) + CALL ZLACPY( 'ALL', KWTOP-ISTARTM, JW, WORK, KWTOP-ISTARTM, + $ A( ISTARTM, KWTOP ), LDA ) + CALL ZGEMM( 'N', 'N', KWTOP-ISTARTM, JW, JW, CONE, B( ISTARTM, + $ KWTOP ), LDB, ZC, LDZC, CZERO, WORK, + $ KWTOP-ISTARTM ) + CALL ZLACPY( 'ALL', KWTOP-ISTARTM, JW, WORK, KWTOP-ISTARTM, + $ B( ISTARTM, KWTOP ), LDB ) + END IF + IF ( ILZ ) THEN + CALL ZGEMM( 'N', 'N', N, JW, JW, CONE, Z( 1, KWTOP ), LDZ, ZC, + $ LDZC, CZERO, WORK, N ) + CALL ZLACPY( 'ALL', N, JW, WORK, N, Z( 1, KWTOP ), LDZ ) + END IF + + END SUBROUTINE diff --git a/lapack-netlib/SRC/zlaqz3.f b/lapack-netlib/SRC/zlaqz3.f new file mode 100644 index 000000000..9e589cb67 --- /dev/null +++ b/lapack-netlib/SRC/zlaqz3.f @@ -0,0 +1,514 @@ +*> \brief \b ZLAQZ3 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download ZLAQZ3 + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* SUBROUTINE ZLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSHIFTS, +* $ NBLOCK_DESIRED, ALPHA, BETA, A, LDA, B, LDB, Q, LDQ, Z, LDZ, +* $ QC, LDQC, ZC, LDZC, WORK, LWORK, INFO ) +* IMPLICIT NONE +* +* Function arguments +* LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ +* INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, +* $ NSHIFTS, NBLOCK_DESIRED, LDQC, LDZC +* +* COMPLEX*16, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, +* $ * ), Z( LDZ, * ), QC( LDQC, * ), ZC( LDZC, * ), WORK( * ), +* $ ALPHA( * ), BETA( * ) +* +* INTEGER, INTENT( OUT ) :: INFO +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> ZLAQZ3 Executes a single multishift QZ sweep +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] ILSCHUR +*> \verbatim +*> ILSCHUR is LOGICAL +*> Determines whether or not to update the full Schur form +*> \endverbatim +*> +*> \param[in] ILQ +*> \verbatim +*> ILQ is LOGICAL +*> Determines whether or not to update the matrix Q +*> \endverbatim +*> +*> \param[in] ILZ +*> \verbatim +*> ILZ is LOGICAL +*> Determines whether or not to update the matrix Z +*> \endverbatim +*> +*> \param[in] N +*> \verbatim +*> N is INTEGER +*> The order of the matrices A, B, Q, and Z. N >= 0. +*> \endverbatim +*> +*> \param[in] ILO +*> \verbatim +*> ILO is INTEGER +*> \endverbatim +*> +*> \param[in] IHI +*> \verbatim +*> IHI is INTEGER +*> \endverbatim +*> +*> \param[in] NSHIFTS +*> \verbatim +*> NSHIFTS is INTEGER +*> The desired number of shifts to use +*> \endverbatim +*> +*> \param[in] NBLOCK_DESIRED +*> \verbatim +*> NBLOCK_DESIRED is INTEGER +*> The desired size of the computational windows +*> \endverbatim +*> +*> \param[in] ALPHA +*> \verbatim +*> ALPHA is COMPLEX*16 array. SR contains +*> the alpha parts of the shifts to use. +*> \endverbatim +*> +*> \param[in] BETA +*> \verbatim +*> BETA is COMPLEX*16 array. SS contains +*> the scale of the shifts to use. +*> \endverbatim +*> +*> \param[in,out] A +*> \verbatim +*> A is COMPLEX*16 array, dimension (LDA, N) +*> \endverbatim +*> +*> \param[in] LDA +*> \verbatim +*> LDA is INTEGER +*> The leading dimension of the array A. LDA >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] B +*> \verbatim +*> B is COMPLEX*16 array, dimension (LDB, N) +*> \endverbatim +*> +*> \param[in] LDB +*> \verbatim +*> LDB is INTEGER +*> The leading dimension of the array B. LDB >= max( 1, N ). +*> \endverbatim +*> +*> \param[in,out] Q +*> \verbatim +*> Q is COMPLEX*16 array, dimension (LDQ, N) +*> \endverbatim +*> +*> \param[in] LDQ +*> \verbatim +*> LDQ is INTEGER +*> \endverbatim +*> +*> \param[in,out] Z +*> \verbatim +*> Z is COMPLEX*16 array, dimension (LDZ, N) +*> \endverbatim +*> +*> \param[in] LDZ +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[in,out] QC +*> \verbatim +*> QC is COMPLEX*16 array, dimension (LDQC, NBLOCK_DESIRED) +*> \endverbatim +*> +*> \param[in] LDQC +*> \verbatim +*> LDQC is INTEGER +*> \endverbatim +*> +*> \param[in,out] ZC +*> \verbatim +*> ZC is COMPLEX*16 array, dimension (LDZC, NBLOCK_DESIRED) +*> \endverbatim +*> +*> \param[in] LDZC +*> \verbatim +*> LDZ is INTEGER +*> \endverbatim +*> +*> \param[out] WORK +*> \verbatim +*> WORK is COMPLEX*16 array, dimension (MAX(1,LWORK)) +*> On exit, if INFO >= 0, WORK(1) returns the optimal LWORK. +*> \endverbatim +*> +*> \param[in] LWORK +*> \verbatim +*> LWORK is INTEGER +*> The dimension of the array WORK. LWORK >= max(1,N). +*> +*> 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 +*> message related to LWORK is issued by XERBLA. +*> \endverbatim +*> +*> \param[out] INFO +*> \verbatim +*> INFO is INTEGER +*> = 0: successful exit +*> < 0: if INFO = -i, the i-th argument had an illegal value +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Thijs Steel, KU Leuven +* +*> \date May 2020 +* +*> \ingroup complex16GEcomputational +*> +* ===================================================================== + SUBROUTINE ZLAQZ3( ILSCHUR, ILQ, ILZ, N, ILO, IHI, NSHIFTS, + $ NBLOCK_DESIRED, ALPHA, BETA, A, LDA, B, LDB, + $ Q, LDQ, Z, LDZ, QC, LDQC, ZC, LDZC, WORK, + $ LWORK, INFO ) + IMPLICIT NONE + +* Function arguments + LOGICAL, INTENT( IN ) :: ILSCHUR, ILQ, ILZ + INTEGER, INTENT( IN ) :: N, ILO, IHI, LDA, LDB, LDQ, LDZ, LWORK, + $ NSHIFTS, NBLOCK_DESIRED, LDQC, LDZC + + COMPLEX*16, INTENT( INOUT ) :: A( LDA, * ), B( LDB, * ), Q( LDQ, + $ * ), Z( LDZ, * ), QC( LDQC, * ), ZC( LDZC, * ), WORK( * ), + $ ALPHA( * ), BETA( * ) + + INTEGER, INTENT( OUT ) :: INFO + +* Parameters + COMPLEX*16 CZERO, CONE + PARAMETER ( CZERO = ( 0.0D+0, 0.0D+0 ), CONE = ( 1.0D+0, + $ 0.0D+0 ) ) + DOUBLE PRECISION :: ZERO, ONE, HALF + PARAMETER( ZERO = 0.0D0, ONE = 1.0D0, HALF = 0.5D0 ) + +* Local scalars + INTEGER :: I, J, NS, ISTARTM, ISTOPM, SHEIGHT, SWIDTH, K, NP, + $ ISTARTB, ISTOPB, ISHIFT, NBLOCK, NPOS + DOUBLE PRECISION :: SAFMIN, SAFMAX, C, SCALE + COMPLEX*16 :: TEMP, TEMP2, TEMP3, S + +* External Functions + EXTERNAL :: XERBLA, DLABAD, ZLASET, ZLARTG, ZROT, ZLAQZ1, ZGEMM, + $ ZLACPY + DOUBLE PRECISION, EXTERNAL :: DLAMCH + + INFO = 0 + IF ( NBLOCK_DESIRED .LT. NSHIFTS+1 ) THEN + INFO = -8 + END IF + IF ( LWORK .EQ.-1 ) THEN +* workspace query, quick return + WORK( 1 ) = N*NBLOCK_DESIRED + RETURN + ELSE IF ( LWORK .LT. N*NBLOCK_DESIRED ) THEN + INFO = -25 + END IF + + IF( INFO.NE.0 ) THEN + CALL XERBLA( 'ZLAQZ3', -INFO ) + RETURN + END IF + +* +* Executable statements +* + +* Get machine constants + SAFMIN = DLAMCH( 'SAFE MINIMUM' ) + SAFMAX = ONE/SAFMIN + CALL DLABAD( SAFMIN, SAFMAX ) + + IF ( ILO .GE. IHI ) THEN + RETURN + END IF + + IF ( ILSCHUR ) THEN + ISTARTM = 1 + ISTOPM = N + ELSE + ISTARTM = ILO + ISTOPM = IHI + END IF + + NS = NSHIFTS + NPOS = MAX( NBLOCK_DESIRED-NS, 1 ) + + +* The following block introduces the shifts and chases +* them down one by one just enough to make space for +* the other shifts. The near-the-diagonal block is +* of size (ns+1) x ns. + + CALL ZLASET( 'FULL', NS+1, NS+1, CZERO, CONE, QC, LDQC ) + CALL ZLASET( 'FULL', NS, NS, CZERO, CONE, ZC, LDZC ) + + DO I = 1, NS +* Introduce the shift + SCALE = SQRT( ABS( ALPHA( I ) ) ) * SQRT( ABS( BETA( I ) ) ) + IF( SCALE .GE. SAFMIN .AND. SCALE .LE. SAFMAX ) THEN + ALPHA( I ) = ALPHA( I )/SCALE + BETA( I ) = BETA( I )/SCALE + END IF + + TEMP2 = BETA( I )*A( ILO, ILO )-ALPHA( I )*B( ILO, ILO ) + TEMP3 = BETA( I )*A( ILO+1, ILO ) + + IF ( ABS( TEMP2 ) .GT. SAFMAX .OR. + $ ABS( TEMP3 ) .GT. SAFMAX ) THEN + TEMP2 = CONE + TEMP3 = CZERO + END IF + + CALL ZLARTG( TEMP2, TEMP3, C, S, TEMP ) + CALL ZROT( NS, A( ILO, ILO ), LDA, A( ILO+1, ILO ), LDA, C, + $ S ) + CALL ZROT( NS, B( ILO, ILO ), LDB, B( ILO+1, ILO ), LDB, C, + $ S ) + CALL ZROT( NS+1, QC( 1, 1 ), 1, QC( 1, 2 ), 1, C, + $ DCONJG( S ) ) + +* Chase the shift down + DO J = 1, NS-I + + CALL ZLAQZ1( .TRUE., .TRUE., J, 1, NS, IHI-ILO+1, A( ILO, + $ ILO ), LDA, B( ILO, ILO ), LDB, NS+1, 1, QC, + $ LDQC, NS, 1, ZC, LDZC ) + + END DO + + END DO + +* Update the rest of the pencil + +* Update A(ilo:ilo+ns,ilo+ns:istopm) and B(ilo:ilo+ns,ilo+ns:istopm) +* from the left with Qc(1:ns+1,1:ns+1)' + SHEIGHT = NS+1 + SWIDTH = ISTOPM-( ILO+NS )+1 + IF ( SWIDTH > 0 ) THEN + CALL ZGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, LDQC, + $ A( ILO, ILO+NS ), LDA, CZERO, WORK, SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ILO, + $ ILO+NS ), LDA ) + CALL ZGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, LDQC, + $ B( ILO, ILO+NS ), LDB, CZERO, WORK, SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ILO, + $ ILO+NS ), LDB ) + END IF + IF ( ILQ ) THEN + CALL ZGEMM( 'N', 'N', N, SHEIGHT, SHEIGHT, CONE, Q( 1, ILO ), + $ LDQ, QC, LDQC, CZERO, WORK, N ) + CALL ZLACPY( 'ALL', N, SHEIGHT, WORK, N, Q( 1, ILO ), LDQ ) + END IF + +* Update A(istartm:ilo-1,ilo:ilo+ns-1) and B(istartm:ilo-1,ilo:ilo+ns-1) +* from the right with Zc(1:ns,1:ns) + SHEIGHT = ILO-1-ISTARTM+1 + SWIDTH = NS + IF ( SHEIGHT > 0 ) THEN + CALL ZGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ A( ISTARTM, ILO ), LDA, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ISTARTM, + $ ILO ), LDA ) + CALL ZGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ B( ISTARTM, ILO ), LDB, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ISTARTM, + $ ILO ), LDB ) + END IF + IF ( ILZ ) THEN + CALL ZGEMM( 'N', 'N', N, SWIDTH, SWIDTH, CONE, Z( 1, ILO ), + $ LDZ, ZC, LDZC, CZERO, WORK, N ) + CALL ZLACPY( 'ALL', N, SWIDTH, WORK, N, Z( 1, ILO ), LDZ ) + END IF + +* The following block chases the shifts down to the bottom +* right block. If possible, a shift is moved down npos +* positions at a time + + K = ILO + DO WHILE ( K < IHI-NS ) + NP = MIN( IHI-NS-K, NPOS ) +* Size of the near-the-diagonal block + NBLOCK = NS+NP +* istartb points to the first row we will be updating + ISTARTB = K+1 +* istopb points to the last column we will be updating + ISTOPB = K+NBLOCK-1 + + CALL ZLASET( 'FULL', NS+NP, NS+NP, CZERO, CONE, QC, LDQC ) + CALL ZLASET( 'FULL', NS+NP, NS+NP, CZERO, CONE, ZC, LDZC ) + +* Near the diagonal shift chase + DO I = NS-1, 0, -1 + DO J = 0, NP-1 +* Move down the block with index k+i+j, updating +* the (ns+np x ns+np) block: +* (k:k+ns+np,k:k+ns+np-1) + CALL ZLAQZ1( .TRUE., .TRUE., K+I+J, ISTARTB, ISTOPB, IHI, + $ A, LDA, B, LDB, NBLOCK, K+1, QC, LDQC, + $ NBLOCK, K, ZC, LDZC ) + END DO + END DO + +* Update rest of the pencil + +* Update A(k+1:k+ns+np, k+ns+np:istopm) and +* B(k+1:k+ns+np, k+ns+np:istopm) +* from the left with Qc(1:ns+np,1:ns+np)' + SHEIGHT = NS+NP + SWIDTH = ISTOPM-( K+NS+NP )+1 + IF ( SWIDTH > 0 ) THEN + CALL ZGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, + $ LDQC, A( K+1, K+NS+NP ), LDA, CZERO, WORK, + $ SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( K+1, + $ K+NS+NP ), LDA ) + CALL ZGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, + $ LDQC, B( K+1, K+NS+NP ), LDB, CZERO, WORK, + $ SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( K+1, + $ K+NS+NP ), LDB ) + END IF + IF ( ILQ ) THEN + CALL ZGEMM( 'N', 'N', N, NBLOCK, NBLOCK, CONE, Q( 1, K+1 ), + $ LDQ, QC, LDQC, CZERO, WORK, N ) + CALL ZLACPY( 'ALL', N, NBLOCK, WORK, N, Q( 1, K+1 ), LDQ ) + END IF + +* Update A(istartm:k,k:k+ns+npos-1) and B(istartm:k,k:k+ns+npos-1) +* from the right with Zc(1:ns+np,1:ns+np) + SHEIGHT = K-ISTARTM+1 + SWIDTH = NBLOCK + IF ( SHEIGHT > 0 ) THEN + CALL ZGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ A( ISTARTM, K ), LDA, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ A( ISTARTM, K ), LDA ) + CALL ZGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ B( ISTARTM, K ), LDB, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ B( ISTARTM, K ), LDB ) + END IF + IF ( ILZ ) THEN + CALL ZGEMM( 'N', 'N', N, NBLOCK, NBLOCK, CONE, Z( 1, K ), + $ LDZ, ZC, LDZC, CZERO, WORK, N ) + CALL ZLACPY( 'ALL', N, NBLOCK, WORK, N, Z( 1, K ), LDZ ) + END IF + + K = K+NP + + END DO + +* The following block removes the shifts from the bottom right corner +* one by one. Updates are initially applied to A(ihi-ns+1:ihi,ihi-ns:ihi). + + CALL ZLASET( 'FULL', NS, NS, CZERO, CONE, QC, LDQC ) + CALL ZLASET( 'FULL', NS+1, NS+1, CZERO, CONE, ZC, LDZC ) + +* istartb points to the first row we will be updating + ISTARTB = IHI-NS+1 +* istopb points to the last column we will be updating + ISTOPB = IHI + + DO I = 1, NS +* Chase the shift down to the bottom right corner + DO ISHIFT = IHI-I, IHI-1 + CALL ZLAQZ1( .TRUE., .TRUE., ISHIFT, ISTARTB, ISTOPB, IHI, + $ A, LDA, B, LDB, NS, IHI-NS+1, QC, LDQC, NS+1, + $ IHI-NS, ZC, LDZC ) + END DO + + END DO + +* Update rest of the pencil + +* Update A(ihi-ns+1:ihi, ihi+1:istopm) +* from the left with Qc(1:ns,1:ns)' + SHEIGHT = NS + SWIDTH = ISTOPM-( IHI+1 )+1 + IF ( SWIDTH > 0 ) THEN + CALL ZGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, LDQC, + $ A( IHI-NS+1, IHI+1 ), LDA, CZERO, WORK, SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ A( IHI-NS+1, IHI+1 ), LDA ) + CALL ZGEMM( 'C', 'N', SHEIGHT, SWIDTH, SHEIGHT, CONE, QC, LDQC, + $ B( IHI-NS+1, IHI+1 ), LDB, CZERO, WORK, SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, + $ B( IHI-NS+1, IHI+1 ), LDB ) + END IF + IF ( ILQ ) THEN + CALL ZGEMM( 'N', 'N', N, NS, NS, CONE, Q( 1, IHI-NS+1 ), LDQ, + $ QC, LDQC, CZERO, WORK, N ) + CALL ZLACPY( 'ALL', N, NS, WORK, N, Q( 1, IHI-NS+1 ), LDQ ) + END IF + +* Update A(istartm:ihi-ns,ihi-ns:ihi) +* from the right with Zc(1:ns+1,1:ns+1) + SHEIGHT = IHI-NS-ISTARTM+1 + SWIDTH = NS+1 + IF ( SHEIGHT > 0 ) THEN + CALL ZGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ A( ISTARTM, IHI-NS ), LDA, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, A( ISTARTM, + $ IHI-NS ), LDA ) + CALL ZGEMM( 'N', 'N', SHEIGHT, SWIDTH, SWIDTH, CONE, + $ B( ISTARTM, IHI-NS ), LDB, ZC, LDZC, CZERO, WORK, + $ SHEIGHT ) + CALL ZLACPY( 'ALL', SHEIGHT, SWIDTH, WORK, SHEIGHT, B( ISTARTM, + $ IHI-NS ), LDB ) + END IF + IF ( ILZ ) THEN + CALL ZGEMM( 'N', 'N', N, NS+1, NS+1, CONE, Z( 1, IHI-NS ), LDZ, + $ ZC, LDZC, CZERO, WORK, N ) + CALL ZLACPY( 'ALL', N, NS+1, WORK, N, Z( 1, IHI-NS ), LDZ ) + END IF + + END SUBROUTINE diff --git a/lapack-netlib/SRC/zlar1v.f b/lapack-netlib/SRC/zlar1v.f index bb3a66eb8..e272c33a5 100644 --- a/lapack-netlib/SRC/zlar1v.f +++ b/lapack-netlib/SRC/zlar1v.f @@ -212,8 +212,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -230,10 +228,9 @@ $ PIVMIN, GAPTOL, Z, WANTNC, NEGCNT, ZTZ, MINGMA, $ R, ISUPPZ, NRMINV, RESID, RQCORR, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL WANTNC diff --git a/lapack-netlib/SRC/zlar2v.f b/lapack-netlib/SRC/zlar2v.f index 0f7fe63b0..3d767956c 100644 --- a/lapack-netlib/SRC/zlar2v.f +++ b/lapack-netlib/SRC/zlar2v.f @@ -104,17 +104,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAR2V( N, X, Y, Z, INCX, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, N diff --git a/lapack-netlib/SRC/zlarcm.f b/lapack-netlib/SRC/zlarcm.f index 77a709f47..4445d6d48 100644 --- a/lapack-netlib/SRC/zlarcm.f +++ b/lapack-netlib/SRC/zlarcm.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARCM( M, N, A, LDA, B, LDB, C, LDC, RWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, M, N diff --git a/lapack-netlib/SRC/zlarf.f b/lapack-netlib/SRC/zlarf.f index f1be80d37..e555d18ec 100644 --- a/lapack-netlib/SRC/zlarf.f +++ b/lapack-netlib/SRC/zlarf.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/zlarfb.f b/lapack-netlib/SRC/zlarfb.f index 3da49f2fc..c5f424db3 100644 --- a/lapack-netlib/SRC/zlarfb.f +++ b/lapack-netlib/SRC/zlarfb.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2013 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -197,10 +195,9 @@ SUBROUTINE ZLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, $ T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2013 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/zlarfg.f b/lapack-netlib/SRC/zlarfg.f index 081d391d7..d69796cad 100644 --- a/lapack-netlib/SRC/zlarfg.f +++ b/lapack-netlib/SRC/zlarfg.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INCX, N diff --git a/lapack-netlib/SRC/zlarfgp.f b/lapack-netlib/SRC/zlarfgp.f index c9e55a5a0..77eba8e86 100644 --- a/lapack-netlib/SRC/zlarfgp.f +++ b/lapack-netlib/SRC/zlarfgp.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARFGP( N, ALPHA, X, INCX, TAU ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INCX, N @@ -238,7 +235,7 @@ DO J = 1, N-1 X( 1 + (J-1)*INCX ) = ZERO END DO - BETA = -SAVEALPHA + BETA = DBLE( -SAVEALPHA ) END IF ELSE XNORM = DLAPY2( ALPHR, ALPHI ) diff --git a/lapack-netlib/SRC/zlarft.f b/lapack-netlib/SRC/zlarft.f index 78ad2f148..5ad0996fa 100644 --- a/lapack-netlib/SRC/zlarft.f +++ b/lapack-netlib/SRC/zlarft.f @@ -130,8 +130,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -163,10 +161,9 @@ * ===================================================================== SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/lapack-netlib/SRC/zlarfx.f b/lapack-netlib/SRC/zlarfx.f index ba6d4ed74..c617fe552 100644 --- a/lapack-netlib/SRC/zlarfx.f +++ b/lapack-netlib/SRC/zlarfx.f @@ -112,17 +112,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARFX( SIDE, M, N, V, TAU, C, LDC, WORK ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/zlarfy.f b/lapack-netlib/SRC/zlarfy.f index 4c9e08bac..23169e97d 100644 --- a/lapack-netlib/SRC/zlarfy.f +++ b/lapack-netlib/SRC/zlarfy.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlargv.f b/lapack-netlib/SRC/zlargv.f index f83ca1851..1eef6b716 100644 --- a/lapack-netlib/SRC/zlargv.f +++ b/lapack-netlib/SRC/zlargv.f @@ -104,8 +104,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -122,10 +120,9 @@ * ===================================================================== SUBROUTINE ZLARGV( N, X, INCX, Y, INCY, C, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/lapack-netlib/SRC/zlarnv.f b/lapack-netlib/SRC/zlarnv.f index 754165228..d82d404de 100644 --- a/lapack-netlib/SRC/zlarnv.f +++ b/lapack-netlib/SRC/zlarnv.f @@ -81,8 +81,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -99,10 +97,9 @@ * ===================================================================== SUBROUTINE ZLARNV( IDIST, ISEED, N, X ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, N @@ -120,7 +117,7 @@ INTEGER LV PARAMETER ( LV = 128 ) DOUBLE PRECISION TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) * .. * .. Local Scalars .. INTEGER I, IL, IV diff --git a/lapack-netlib/SRC/zlarrv.f b/lapack-netlib/SRC/zlarrv.f index 8d10e3c2e..e4be63e0d 100644 --- a/lapack-netlib/SRC/zlarrv.f +++ b/lapack-netlib/SRC/zlarrv.f @@ -266,8 +266,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Contributors: @@ -286,10 +284,9 @@ $ IBLOCK, INDEXW, GERS, Z, LDZ, ISUPPZ, $ WORK, IWORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER DOL, DOU, INFO, LDZ, M, N diff --git a/lapack-netlib/SRC/zlarscl2.f b/lapack-netlib/SRC/zlarscl2.f index 0d7cb1e88..4a1e1603a 100644 --- a/lapack-netlib/SRC/zlarscl2.f +++ b/lapack-netlib/SRC/zlarscl2.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZLARSCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/lapack-netlib/SRC/zlartg.f b/lapack-netlib/SRC/zlartg.f deleted file mode 100644 index 894b4ded0..000000000 --- a/lapack-netlib/SRC/zlartg.f +++ /dev/null @@ -1,250 +0,0 @@ -*> \brief \b ZLARTG generates a plane rotation with real cosine and complex sine. -* -* =========== DOCUMENTATION =========== -* -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ -* -*> \htmlonly -*> Download ZLARTG + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> -*> [TXT] -*> \endhtmlonly -* -* Definition: -* =========== -* -* SUBROUTINE ZLARTG( F, G, CS, SN, R ) -* -* .. Scalar Arguments .. -* DOUBLE PRECISION CS -* COMPLEX*16 F, G, R, SN -* .. -* -* -*> \par Purpose: -* ============= -*> -*> \verbatim -*> -*> ZLARTG generates a plane rotation so that -*> -*> [ CS SN ] [ F ] [ R ] -*> [ __ ] . [ ] = [ ] where CS**2 + |SN|**2 = 1. -*> [ -SN CS ] [ G ] [ 0 ] -*> -*> This is a faster version of the BLAS1 routine ZROTG, except for -*> the following differences: -*> F and G are unchanged on return. -*> If G=0, then CS=1 and SN=0. -*> If F=0, then CS=0 and SN is chosen so that R is real. -*> \endverbatim -* -* Arguments: -* ========== -* -*> \param[in] F -*> \verbatim -*> F is COMPLEX*16 -*> The first component of vector to be rotated. -*> \endverbatim -*> -*> \param[in] G -*> \verbatim -*> G is COMPLEX*16 -*> The second component of vector to be rotated. -*> \endverbatim -*> -*> \param[out] CS -*> \verbatim -*> CS is DOUBLE PRECISION -*> The cosine of the rotation. -*> \endverbatim -*> -*> \param[out] SN -*> \verbatim -*> SN is COMPLEX*16 -*> The sine of the rotation. -*> \endverbatim -*> -*> \param[out] R -*> \verbatim -*> R is COMPLEX*16 -*> The nonzero component of the rotated vector. -*> \endverbatim -* -* Authors: -* ======== -* -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. -* -*> \date December 2016 -* -*> \ingroup complex16OTHERauxiliary -* -*> \par Further Details: -* ===================== -*> -*> \verbatim -*> -*> 3-5-96 - Modified with a new algorithm by W. Kahan and J. Demmel -*> -*> This version has a few statements commented out for thread safety -*> (machine parameters are computed on each entry). 10 feb 03, SJH. -*> \endverbatim -*> -* ===================================================================== - SUBROUTINE ZLARTG( F, G, CS, SN, R ) -* -* -- LAPACK auxiliary routine (version 3.7.0) -- -* -- LAPACK is a software package provided by Univ. of Tennessee, -- -* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 -* -* .. Scalar Arguments .. - DOUBLE PRECISION CS - COMPLEX*16 F, G, R, SN -* .. -* -* ===================================================================== -* -* .. Parameters .. - DOUBLE PRECISION TWO, ONE, ZERO - PARAMETER ( TWO = 2.0D+0, ONE = 1.0D+0, ZERO = 0.0D+0 ) - COMPLEX*16 CZERO - PARAMETER ( CZERO = ( 0.0D+0, 0.0D+0 ) ) -* .. -* .. Local Scalars .. -* LOGICAL FIRST - INTEGER COUNT, I - DOUBLE PRECISION D, DI, DR, EPS, F2, F2S, G2, G2S, SAFMIN, - $ SAFMN2, SAFMX2, SCALE - COMPLEX*16 FF, FS, GS -* .. -* .. External Functions .. - DOUBLE PRECISION DLAMCH, DLAPY2 - LOGICAL DISNAN - EXTERNAL DLAMCH, DLAPY2, DISNAN -* .. -* .. Intrinsic Functions .. - INTRINSIC ABS, DBLE, DCMPLX, DCONJG, DIMAG, INT, LOG, - $ MAX, SQRT -* .. -* .. Statement Functions .. - DOUBLE PRECISION ABS1, ABSSQ -* .. -* .. Statement Function definitions .. - ABS1( FF ) = MAX( ABS( DBLE( FF ) ), ABS( DIMAG( FF ) ) ) - ABSSQ( FF ) = DBLE( FF )**2 + DIMAG( FF )**2 -* .. -* .. Executable Statements .. -* - SAFMIN = DLAMCH( 'S' ) - EPS = DLAMCH( 'E' ) - SAFMN2 = DLAMCH( 'B' )**INT( LOG( SAFMIN / EPS ) / - $ LOG( DLAMCH( 'B' ) ) / TWO ) - SAFMX2 = ONE / SAFMN2 - SCALE = MAX( ABS1( F ), ABS1( G ) ) - FS = F - GS = G - COUNT = 0 - IF( SCALE.GE.SAFMX2 ) THEN - 10 CONTINUE - COUNT = COUNT + 1 - FS = FS*SAFMN2 - GS = GS*SAFMN2 - SCALE = SCALE*SAFMN2 - IF( SCALE.GE.SAFMX2 .AND. COUNT .LT. 20 ) - $ GO TO 10 - ELSE IF( SCALE.LE.SAFMN2 ) THEN - IF( G.EQ.CZERO.OR.DISNAN( ABS( G ) ) ) THEN - CS = ONE - SN = CZERO - R = F - RETURN - END IF - 20 CONTINUE - COUNT = COUNT - 1 - FS = FS*SAFMX2 - GS = GS*SAFMX2 - SCALE = SCALE*SAFMX2 - IF( SCALE.LE.SAFMN2 ) - $ GO TO 20 - END IF - F2 = ABSSQ( FS ) - G2 = ABSSQ( GS ) - IF( F2.LE.MAX( G2, ONE )*SAFMIN ) THEN -* -* This is a rare case: F is very small. -* - IF( F.EQ.CZERO ) THEN - CS = ZERO - R = DLAPY2( DBLE( G ), DIMAG( G ) ) -* Do complex/real division explicitly with two real divisions - D = DLAPY2( DBLE( GS ), DIMAG( GS ) ) - SN = DCMPLX( DBLE( GS ) / D, -DIMAG( GS ) / D ) - RETURN - END IF - F2S = DLAPY2( DBLE( FS ), DIMAG( FS ) ) -* G2 and G2S are accurate -* G2 is at least SAFMIN, and G2S is at least SAFMN2 - G2S = SQRT( G2 ) -* Error in CS from underflow in F2S is at most -* UNFL / SAFMN2 .lt. sqrt(UNFL*EPS) .lt. EPS -* If MAX(G2,ONE)=G2, then F2 .lt. G2*SAFMIN, -* and so CS .lt. sqrt(SAFMIN) -* If MAX(G2,ONE)=ONE, then F2 .lt. SAFMIN -* and so CS .lt. sqrt(SAFMIN)/SAFMN2 = sqrt(EPS) -* Therefore, CS = F2S/G2S / sqrt( 1 + (F2S/G2S)**2 ) = F2S/G2S - CS = F2S / G2S -* Make sure abs(FF) = 1 -* Do complex/real division explicitly with 2 real divisions - IF( ABS1( F ).GT.ONE ) THEN - D = DLAPY2( DBLE( F ), DIMAG( F ) ) - FF = DCMPLX( DBLE( F ) / D, DIMAG( F ) / D ) - ELSE - DR = SAFMX2*DBLE( F ) - DI = SAFMX2*DIMAG( F ) - D = DLAPY2( DR, DI ) - FF = DCMPLX( DR / D, DI / D ) - END IF - SN = FF*DCMPLX( DBLE( GS ) / G2S, -DIMAG( GS ) / G2S ) - R = CS*F + SN*G - ELSE -* -* This is the most common case. -* Neither F2 nor F2/G2 are less than SAFMIN -* F2S cannot overflow, and it is accurate -* - F2S = SQRT( ONE+G2 / F2 ) -* Do the F2S(real)*FS(complex) multiply with two real multiplies - R = DCMPLX( F2S*DBLE( FS ), F2S*DIMAG( FS ) ) - CS = ONE / F2S - D = F2 + G2 -* Do complex/real division explicitly with two real divisions - SN = DCMPLX( DBLE( R ) / D, DIMAG( R ) / D ) - SN = SN*DCONJG( GS ) - IF( COUNT.NE.0 ) THEN - IF( COUNT.GT.0 ) THEN - DO 30 I = 1, COUNT - R = R*SAFMX2 - 30 CONTINUE - ELSE - DO 40 I = 1, -COUNT - R = R*SAFMN2 - 40 CONTINUE - END IF - END IF - END IF - RETURN -* -* End of ZLARTG -* - END diff --git a/lapack-netlib/SRC/zlartg.f90 b/lapack-netlib/SRC/zlartg.f90 new file mode 100644 index 000000000..337a4dda8 --- /dev/null +++ b/lapack-netlib/SRC/zlartg.f90 @@ -0,0 +1,233 @@ +!> \brief \b ZLARTG generates a plane rotation with real cosine and complex sine. +! +! =========== DOCUMENTATION =========== +! +! Online html documentation available at +! http://www.netlib.org/lapack/explore-html/ +! +! Definition: +! =========== +! +! SUBROUTINE ZLARTG( F, G, C, S, R ) +! +! .. Scalar Arguments .. +! REAL(wp) C +! COMPLEX(wp) F, G, R, S +! .. +! +!> \par Purpose: +! ============= +!> +!> \verbatim +!> +!> ZLARTG generates a plane rotation so that +!> +!> [ C S ] . [ F ] = [ R ] +!> [ -conjg(S) C ] [ G ] [ 0 ] +!> +!> where C is real and C**2 + |S|**2 = 1. +!> +!> The mathematical formulas used for C and S are +!> +!> sgn(x) = { x / |x|, x != 0 +!> { 1, x = 0 +!> +!> R = sgn(F) * sqrt(|F|**2 + |G|**2) +!> +!> C = |F| / sqrt(|F|**2 + |G|**2) +!> +!> S = sgn(F) * conjg(G) / sqrt(|F|**2 + |G|**2) +!> +!> When F and G are real, the formulas simplify to C = F/R and +!> S = G/R, and the returned values of C, S, and R should be +!> identical to those returned by DLARTG. +!> +!> The algorithm used to compute these quantities incorporates scaling +!> to avoid overflow or underflow in computing the square root of the +!> sum of squares. +!> +!> This is a faster version of the BLAS1 routine ZROTG, except for +!> the following differences: +!> F and G are unchanged on return. +!> If G=0, then C=1 and S=0. +!> If F=0, then C=0 and S is chosen so that R is real. +!> +!> Below, wp=>dp stands for double precision from LA_CONSTANTS module. +!> \endverbatim +! +! Arguments: +! ========== +! +!> \param[in] F +!> \verbatim +!> F is COMPLEX(wp) +!> The first component of vector to be rotated. +!> \endverbatim +!> +!> \param[in] G +!> \verbatim +!> G is COMPLEX(wp) +!> The second component of vector to be rotated. +!> \endverbatim +!> +!> \param[out] C +!> \verbatim +!> C is REAL(wp) +!> The cosine of the rotation. +!> \endverbatim +!> +!> \param[out] S +!> \verbatim +!> S is COMPLEX(wp) +!> The sine of the rotation. +!> \endverbatim +!> +!> \param[out] R +!> \verbatim +!> R is COMPLEX(wp) +!> The nonzero component of the rotated vector. +!> \endverbatim +! +! Authors: +! ======== +! +!> \author Edward Anderson, Lockheed Martin +! +!> \date August 2016 +! +!> \ingroup OTHERauxiliary +! +!> \par Contributors: +! ================== +!> +!> Weslley Pereira, University of Colorado Denver, USA +! +!> \par Further Details: +! ===================== +!> +!> \verbatim +!> +!> Anderson E. (2017) +!> Algorithm 978: Safe Scaling in the Level 1 BLAS +!> ACM Trans Math Softw 44:1--28 +!> https://doi.org/10.1145/3061665 +!> +!> \endverbatim +! +subroutine ZLARTG( f, g, c, s, r ) + use LA_CONSTANTS, & + only: wp=>dp, zero=>dzero, one=>done, two=>dtwo, czero=>zzero, & + rtmin=>drtmin, rtmax=>drtmax, safmin=>dsafmin, safmax=>dsafmax +! +! -- LAPACK auxiliary routine -- +! -- LAPACK is a software package provided by Univ. of Tennessee, -- +! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +! February 2021 +! +! .. Scalar Arguments .. + real(wp) c + complex(wp) f, g, r, s +! .. +! .. Local Scalars .. + real(wp) :: d, f1, f2, g1, g2, h2, p, u, uu, v, vv, w + complex(wp) :: fs, gs, t +! .. +! .. Intrinsic Functions .. + intrinsic :: abs, aimag, conjg, max, min, real, sqrt +! .. +! .. Statement Functions .. + real(wp) :: ABSSQ +! .. +! .. Statement Function definitions .. + ABSSQ( t ) = real( t )**2 + aimag( t )**2 +! .. +! .. Executable Statements .. +! + if( g == czero ) then + c = one + s = czero + r = f + else if( f == czero ) then + c = zero + g1 = max( abs(real(g)), abs(aimag(g)) ) + if( g1 > rtmin .and. g1 < rtmax ) then +! +! Use unscaled algorithm +! + g2 = ABSSQ( g ) + d = sqrt( g2 ) + s = conjg( g ) / d + r = d + else +! +! Use scaled algorithm +! + u = min( safmax, max( safmin, g1 ) ) + uu = one / u + gs = g*uu + g2 = ABSSQ( gs ) + d = sqrt( g2 ) + s = conjg( gs ) / d + r = d*u + end if + else + f1 = max( abs(real(f)), abs(aimag(f)) ) + g1 = max( abs(real(g)), abs(aimag(g)) ) + if( f1 > rtmin .and. f1 < rtmax .and. & + g1 > rtmin .and. g1 < rtmax ) then +! +! Use unscaled algorithm +! + f2 = ABSSQ( f ) + g2 = ABSSQ( g ) + h2 = f2 + g2 + if( f2 > rtmin .and. h2 < rtmax ) then + d = sqrt( f2*h2 ) + else + d = sqrt( f2 )*sqrt( h2 ) + end if + p = 1 / d + c = f2*p + s = conjg( g )*( f*p ) + r = f*( h2*p ) + else +! +! Use scaled algorithm +! + u = min( safmax, max( safmin, f1, g1 ) ) + uu = one / u + gs = g*uu + g2 = ABSSQ( gs ) + if( f1*uu < rtmin ) then +! +! f is not well-scaled when scaled by g1. +! Use a different scaling for f. +! + v = min( safmax, max( safmin, f1 ) ) + vv = one / v + w = v * uu + fs = f*vv + f2 = ABSSQ( fs ) + h2 = f2*w**2 + g2 + else +! +! Otherwise use the same scaling for f and g. +! + w = one + fs = f*uu + f2 = ABSSQ( fs ) + h2 = f2 + g2 + end if + if( f2 > rtmin .and. h2 < rtmax ) then + d = sqrt( f2*h2 ) + else + d = sqrt( f2 )*sqrt( h2 ) + end if + p = 1 / d + c = ( f2*p )*w + s = conjg( gs )*( fs*p ) + r = ( fs*( h2*p ) )*u + end if + end if + return +end subroutine diff --git a/lapack-netlib/SRC/zlartv.f b/lapack-netlib/SRC/zlartv.f index d6c7ee742..02f5b0d76 100644 --- a/lapack-netlib/SRC/zlartv.f +++ b/lapack-netlib/SRC/zlartv.f @@ -100,17 +100,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLARTV( N, X, INCX, Y, INCY, C, S, INCC ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCC, INCX, INCY, N diff --git a/lapack-netlib/SRC/zlarz.f b/lapack-netlib/SRC/zlarz.f index 5c28cee28..3cfcd6625 100644 --- a/lapack-netlib/SRC/zlarz.f +++ b/lapack-netlib/SRC/zlarz.f @@ -129,8 +129,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -147,10 +145,9 @@ * ===================================================================== SUBROUTINE ZLARZ( SIDE, M, N, L, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE diff --git a/lapack-netlib/SRC/zlarzb.f b/lapack-netlib/SRC/zlarzb.f index e27c7e0df..15c809d28 100644 --- a/lapack-netlib/SRC/zlarzb.f +++ b/lapack-netlib/SRC/zlarzb.f @@ -164,8 +164,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -183,10 +181,9 @@ SUBROUTINE ZLARZB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L, V, $ LDV, T, LDT, C, LDC, WORK, LDWORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/zlarzt.f b/lapack-netlib/SRC/zlarzt.f index ccd8c4b84..25d1e96f0 100644 --- a/lapack-netlib/SRC/zlarzt.f +++ b/lapack-netlib/SRC/zlarzt.f @@ -133,8 +133,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -185,10 +183,9 @@ * ===================================================================== SUBROUTINE ZLARZT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, STOREV diff --git a/lapack-netlib/SRC/zlascl.f b/lapack-netlib/SRC/zlascl.f index c53c6f5ad..3d53f5ae6 100644 --- a/lapack-netlib/SRC/zlascl.f +++ b/lapack-netlib/SRC/zlascl.f @@ -136,17 +136,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER TYPE diff --git a/lapack-netlib/SRC/zlascl2.f b/lapack-netlib/SRC/zlascl2.f index e1a0f97b9..c4e6992fb 100644 --- a/lapack-netlib/SRC/zlascl2.f +++ b/lapack-netlib/SRC/zlascl2.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZLASCL2 ( M, N, D, X, LDX ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER M, N, LDX diff --git a/lapack-netlib/SRC/zlaset.f b/lapack-netlib/SRC/zlaset.f index 796678217..00f5f595f 100644 --- a/lapack-netlib/SRC/zlaset.f +++ b/lapack-netlib/SRC/zlaset.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLASET( UPLO, M, N, ALPHA, BETA, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlasr.f b/lapack-netlib/SRC/zlasr.f index 69891ba52..07c91329c 100644 --- a/lapack-netlib/SRC/zlasr.f +++ b/lapack-netlib/SRC/zlasr.f @@ -193,17 +193,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, PIVOT, SIDE diff --git a/lapack-netlib/SRC/zlassq.f b/lapack-netlib/SRC/zlassq.f deleted file mode 100644 index dccec988d..000000000 --- a/lapack-netlib/SRC/zlassq.f +++ /dev/null @@ -1,168 +0,0 @@ -*> \brief \b ZLASSQ updates a sum of squares represented in scaled form. -* -* =========== DOCUMENTATION =========== -* -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ -* -*> \htmlonly -*> Download ZLASSQ + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> -*> [TXT] -*> \endhtmlonly -* -* Definition: -* =========== -* -* SUBROUTINE ZLASSQ( N, X, INCX, SCALE, SUMSQ ) -* -* .. Scalar Arguments .. -* INTEGER INCX, N -* DOUBLE PRECISION SCALE, SUMSQ -* .. -* .. Array Arguments .. -* COMPLEX*16 X( * ) -* .. -* -* -*> \par Purpose: -* ============= -*> -*> \verbatim -*> -*> ZLASSQ returns the values scl and ssq such that -*> -*> ( scl**2 )*ssq = x( 1 )**2 +...+ x( n )**2 + ( scale**2 )*sumsq, -*> -*> where x( i ) = abs( X( 1 + ( i - 1 )*INCX ) ). The value of sumsq is -*> assumed to be at least unity and the value of ssq will then satisfy -*> -*> 1.0 <= ssq <= ( sumsq + 2*n ). -*> -*> scale is assumed to be non-negative and scl returns the value -*> -*> scl = max( scale, abs( real( x( i ) ) ), abs( aimag( x( i ) ) ) ), -*> i -*> -*> scale and sumsq must be supplied in SCALE and SUMSQ respectively. -*> SCALE and SUMSQ are overwritten by scl and ssq respectively. -*> -*> The routine makes only one pass through the vector X. -*> \endverbatim -* -* Arguments: -* ========== -* -*> \param[in] N -*> \verbatim -*> N is INTEGER -*> The number of elements to be used from the vector X. -*> \endverbatim -*> -*> \param[in] X -*> \verbatim -*> X is COMPLEX*16 array, dimension (1+(N-1)*INCX) -*> The vector x as described above. -*> x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. -*> \endverbatim -*> -*> \param[in] INCX -*> \verbatim -*> INCX is INTEGER -*> The increment between successive values of the vector X. -*> INCX > 0. -*> \endverbatim -*> -*> \param[in,out] SCALE -*> \verbatim -*> SCALE is DOUBLE PRECISION -*> On entry, the value scale in the equation above. -*> On exit, SCALE is overwritten with the value scl . -*> \endverbatim -*> -*> \param[in,out] SUMSQ -*> \verbatim -*> SUMSQ is DOUBLE PRECISION -*> On entry, the value sumsq in the equation above. -*> On exit, SUMSQ is overwritten with the value ssq . -*> \endverbatim -* -* Authors: -* ======== -* -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. -* -*> \date December 2016 -* -*> \ingroup complex16OTHERauxiliary -* -* ===================================================================== - SUBROUTINE ZLASSQ( N, X, INCX, SCALE, SUMSQ ) -* -* -- LAPACK auxiliary routine (version 3.7.0) -- -* -- LAPACK is a software package provided by Univ. of Tennessee, -- -* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 -* -* .. Scalar Arguments .. - INTEGER INCX, N - DOUBLE PRECISION SCALE, SUMSQ -* .. -* .. Array Arguments .. - COMPLEX*16 X( * ) -* .. -* -* ===================================================================== -* -* .. Parameters .. - DOUBLE PRECISION ZERO - PARAMETER ( ZERO = 0.0D+0 ) -* .. -* .. Local Scalars .. - INTEGER IX - DOUBLE PRECISION TEMP1 -* .. -* .. External Functions .. - LOGICAL DISNAN - EXTERNAL DISNAN -* .. -* .. Intrinsic Functions .. - INTRINSIC ABS, DBLE, DIMAG -* .. -* .. Executable Statements .. -* - IF( N.GT.0 ) THEN - DO 10 IX = 1, 1 + ( N-1 )*INCX, INCX - TEMP1 = ABS( DBLE( X( IX ) ) ) - IF( TEMP1.GT.ZERO.OR.DISNAN( TEMP1 ) ) THEN - IF( SCALE.LT.TEMP1 ) THEN - SUMSQ = 1 + SUMSQ*( SCALE / TEMP1 )**2 - SCALE = TEMP1 - ELSE - SUMSQ = SUMSQ + ( TEMP1 / SCALE )**2 - END IF - END IF - TEMP1 = ABS( DIMAG( X( IX ) ) ) - IF( TEMP1.GT.ZERO.OR.DISNAN( TEMP1 ) ) THEN - IF( SCALE.LT.TEMP1 ) THEN - SUMSQ = 1 + SUMSQ*( SCALE / TEMP1 )**2 - SCALE = TEMP1 - ELSE - SUMSQ = SUMSQ + ( TEMP1 / SCALE )**2 - END IF - END IF - 10 CONTINUE - END IF -* - RETURN -* -* End of ZLASSQ -* - END diff --git a/lapack-netlib/SRC/zlassq.f90 b/lapack-netlib/SRC/zlassq.f90 new file mode 100644 index 000000000..9346dacac --- /dev/null +++ b/lapack-netlib/SRC/zlassq.f90 @@ -0,0 +1,262 @@ +!> \brief \b ZLASSQ updates a sum of squares represented in scaled form. +! +! =========== DOCUMENTATION =========== +! +! Online html documentation available at +! http://www.netlib.org/lapack/explore-html/ +! +!> \htmlonly +!> Download ZLASSQ + dependencies +!> +!> [TGZ] +!> +!> [ZIP] +!> +!> [TXT] +!> \endhtmlonly +! +! Definition: +! =========== +! +! SUBROUTINE ZLASSQ( N, X, INCX, SCALE, SUMSQ ) +! +! .. Scalar Arguments .. +! INTEGER INCX, N +! DOUBLE PRECISION SCALE, SUMSQ +! .. +! .. Array Arguments .. +! DOUBLE COMPLEX X( * ) +! .. +! +! +!> \par Purpose: +! ============= +!> +!> \verbatim +!> +!> ZLASSQ returns the values scl and smsq such that +!> +!> ( scl**2 )*smsq = x( 1 )**2 +...+ x( n )**2 + ( scale**2 )*sumsq, +!> +!> where x( i ) = X( 1 + ( i - 1 )*INCX ). The value of sumsq is +!> assumed to be non-negative. +!> +!> scale and sumsq must be supplied in SCALE and SUMSQ and +!> scl and smsq are overwritten on SCALE and SUMSQ respectively. +!> +!> If scale * sqrt( sumsq ) > tbig then +!> we require: scale >= sqrt( TINY*EPS ) / sbig on entry, +!> and if 0 < scale * sqrt( sumsq ) < tsml then +!> we require: scale <= sqrt( HUGE ) / ssml on entry, +!> where +!> tbig -- upper threshold for values whose square is representable; +!> sbig -- scaling constant for big numbers; \see la_constants.f90 +!> tsml -- lower threshold for values whose square is representable; +!> ssml -- scaling constant for small numbers; \see la_constants.f90 +!> and +!> TINY*EPS -- tiniest representable number; +!> HUGE -- biggest representable number. +!> +!> \endverbatim +! +! Arguments: +! ========== +! +!> \param[in] N +!> \verbatim +!> N is INTEGER +!> The number of elements to be used from the vector x. +!> \endverbatim +!> +!> \param[in] X +!> \verbatim +!> X is DOUBLE COMPLEX array, dimension (1+(N-1)*abs(INCX)) +!> The vector for which a scaled sum of squares is computed. +!> x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. +!> \endverbatim +!> +!> \param[in] INCX +!> \verbatim +!> INCX is INTEGER +!> The increment between successive values of the vector x. +!> If INCX > 0, X(1+(i-1)*INCX) = x(i) for 1 <= i <= n +!> If INCX < 0, X(1-(n-i)*INCX) = x(i) for 1 <= i <= n +!> If INCX = 0, x isn't a vector so there is no need to call +!> this subroutine. If you call it anyway, it will count x(1) +!> in the vector norm N times. +!> \endverbatim +!> +!> \param[in,out] SCALE +!> \verbatim +!> SCALE is DOUBLE PRECISION +!> On entry, the value scale in the equation above. +!> On exit, SCALE is overwritten with scl , the scaling factor +!> for the sum of squares. +!> \endverbatim +!> +!> \param[in,out] SUMSQ +!> \verbatim +!> SUMSQ is DOUBLE PRECISION +!> On entry, the value sumsq in the equation above. +!> On exit, SUMSQ is overwritten with smsq , the basic sum of +!> squares from which scl has been factored out. +!> \endverbatim +! +! Authors: +! ======== +! +!> \author Edward Anderson, Lockheed Martin +! +!> \par Contributors: +! ================== +!> +!> Weslley Pereira, University of Colorado Denver, USA +!> Nick Papior, Technical University of Denmark, DK +! +!> \par Further Details: +! ===================== +!> +!> \verbatim +!> +!> Anderson E. (2017) +!> Algorithm 978: Safe Scaling in the Level 1 BLAS +!> ACM Trans Math Softw 44:1--28 +!> https://doi.org/10.1145/3061665 +!> +!> Blue, James L. (1978) +!> A Portable Fortran Program to Find the Euclidean Norm of a Vector +!> ACM Trans Math Softw 4:15--23 +!> https://doi.org/10.1145/355769.355771 +!> +!> \endverbatim +! +!> \ingroup OTHERauxiliary +! +! ===================================================================== +subroutine ZLASSQ( n, x, incx, scl, sumsq ) + use LA_CONSTANTS, & + only: wp=>dp, zero=>dzero, one=>done, & + sbig=>dsbig, ssml=>dssml, tbig=>dtbig, tsml=>dtsml + use LA_XISNAN +! +! -- LAPACK auxiliary routine -- +! -- LAPACK is a software package provided by Univ. of Tennessee, -- +! -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +! +! .. Scalar Arguments .. + integer :: incx, n + real(wp) :: scl, sumsq +! .. +! .. Array Arguments .. + complex(wp) :: x(*) +! .. +! .. Local Scalars .. + integer :: i, ix + logical :: notbig + real(wp) :: abig, amed, asml, ax, ymax, ymin +! .. +! +! Quick return if possible +! + if( LA_ISNAN(scl) .or. LA_ISNAN(sumsq) ) return + if( sumsq == zero ) scl = one + if( scl == zero ) then + scl = one + sumsq = zero + end if + if (n <= 0) then + return + end if +! +! Compute the sum of squares in 3 accumulators: +! abig -- sums of squares scaled down to avoid overflow +! asml -- sums of squares scaled up to avoid underflow +! amed -- sums of squares that do not require scaling +! The thresholds and multipliers are +! tbig -- values bigger than this are scaled down by sbig +! tsml -- values smaller than this are scaled up by ssml +! + notbig = .true. + asml = zero + amed = zero + abig = zero + ix = 1 + if( incx < 0 ) ix = 1 - (n-1)*incx + do i = 1, n + ax = abs(real(x(ix))) + if (ax > tbig) then + abig = abig + (ax*sbig)**2 + notbig = .false. + else if (ax < tsml) then + if (notbig) asml = asml + (ax*ssml)**2 + else + amed = amed + ax**2 + end if + ax = abs(aimag(x(ix))) + if (ax > tbig) then + abig = abig + (ax*sbig)**2 + notbig = .false. + else if (ax < tsml) then + if (notbig) asml = asml + (ax*ssml)**2 + else + amed = amed + ax**2 + end if + ix = ix + incx + end do +! +! Put the existing sum of squares into one of the accumulators +! + if( sumsq > zero ) then + ax = scl*sqrt( sumsq ) + if (ax > tbig) then +! We assume scl >= sqrt( TINY*EPS ) / sbig + abig = abig + (scl*sbig)**2 * sumsq + else if (ax < tsml) then +! We assume scl <= sqrt( HUGE ) / ssml + if (notbig) asml = asml + (scl*ssml)**2 * sumsq + else + amed = amed + scl**2 * sumsq + end if + end if +! +! Combine abig and amed or amed and asml if more than one +! accumulator was used. +! + if (abig > zero) then +! +! Combine abig and amed if abig > 0. +! + if (amed > zero .or. LA_ISNAN(amed)) then + abig = abig + (amed*sbig)*sbig + end if + scl = one / sbig + sumsq = abig + else if (asml > zero) then +! +! Combine amed and asml if asml > 0. +! + if (amed > zero .or. LA_ISNAN(amed)) then + amed = sqrt(amed) + asml = sqrt(asml) / ssml + if (asml > amed) then + ymin = amed + ymax = asml + else + ymin = asml + ymax = amed + end if + scl = one + sumsq = ymax**2*( one + (ymin/ymax)**2 ) + else + scl = one / ssml + sumsq = asml + end if + else +! +! Otherwise all values are mid-range or zero +! + scl = one + sumsq = amed + end if + return +end subroutine diff --git a/lapack-netlib/SRC/zlaswlq.f b/lapack-netlib/SRC/zlaswlq.f index 990630925..e4e703343 100644 --- a/lapack-netlib/SRC/zlaswlq.f +++ b/lapack-netlib/SRC/zlaswlq.f @@ -27,9 +27,9 @@ *> where: *> *> Q is a n-by-N orthogonal matrix, stored on exit in an implicit -*> form in the elements above the digonal of the array A and in -*> the elemenst of the array T; -*> L is an lower-triangular M-by-M matrix stored on exit in +*> form in the elements above the diagonal of the array A and in +*> the elements of the array T; +*> L is a lower-triangular M-by-M matrix stored on exit in *> the elements on and below the diagonal of the array A. *> 0 is a M-by-(N-M) zero matrix, if M < N, and is not stored. *> @@ -60,7 +60,7 @@ *> \verbatim *> NB is INTEGER *> The column block size to be used in the blocked QR. -*> NB > M. +*> NB > 0. *> \endverbatim *> *> \param[in,out] A @@ -162,10 +162,9 @@ SUBROUTINE ZLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, $ INFO) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, MB, NB, LWORK, LDT @@ -203,10 +202,10 @@ INFO = -2 ELSE IF( MB.LT.1 .OR. ( MB.GT.M .AND. M.GT.0 )) THEN INFO = -3 - ELSE IF( NB.LE.M ) THEN + ELSE IF( NB.LE.0 ) THEN INFO = -4 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN - INFO = -5 + INFO = -6 ELSE IF( LDT.LT.MB ) THEN INFO = -8 ELSE IF( ( LWORK.LT.M*MB) .AND. (.NOT.LQUERY) ) THEN diff --git a/lapack-netlib/SRC/zlaswp.f b/lapack-netlib/SRC/zlaswp.f index 13c0f9b45..13fa86490 100644 --- a/lapack-netlib/SRC/zlaswp.f +++ b/lapack-netlib/SRC/zlaswp.f @@ -99,8 +99,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -115,10 +113,9 @@ * ===================================================================== SUBROUTINE ZLASWP( N, A, LDA, K1, K2, IPIV, INCX ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INCX, K1, K2, LDA, N diff --git a/lapack-netlib/SRC/zlasyf.f b/lapack-netlib/SRC/zlasyf.f index b0f48fbbc..57f236d1b 100644 --- a/lapack-netlib/SRC/zlasyf.f +++ b/lapack-netlib/SRC/zlasyf.f @@ -160,8 +160,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -177,10 +175,9 @@ * ===================================================================== SUBROUTINE ZLASYF( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlasyf_aa.f b/lapack-netlib/SRC/zlasyf_aa.f index b1f1c2790..b8b5f2760 100644 --- a/lapack-netlib/SRC/zlasyf_aa.f +++ b/lapack-netlib/SRC/zlasyf_aa.f @@ -136,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, $ H, LDH, WORK ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zlasyf_rk.f b/lapack-netlib/SRC/zlasyf_rk.f index b6c5a27c6..ead0ab0af 100644 --- a/lapack-netlib/SRC/zlasyf_rk.f +++ b/lapack-netlib/SRC/zlasyf_rk.f @@ -239,8 +239,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -262,10 +260,9 @@ SUBROUTINE ZLASYF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlasyf_rook.f b/lapack-netlib/SRC/zlasyf_rook.f index 108c03e6b..7a9872c7c 100644 --- a/lapack-netlib/SRC/zlasyf_rook.f +++ b/lapack-netlib/SRC/zlasyf_rook.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -184,10 +182,9 @@ SUBROUTINE ZLASYF_ROOK( UPLO, N, NB, KB, A, LDA, IPIV, W, LDW, $ INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlat2c.f b/lapack-netlib/SRC/zlat2c.f index dad8fa804..1d607dcea 100644 --- a/lapack-netlib/SRC/zlat2c.f +++ b/lapack-netlib/SRC/zlat2c.f @@ -104,17 +104,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAT2C( UPLO, N, A, LDA, SA, LDSA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zlatbs.f b/lapack-netlib/SRC/zlatbs.f index c9d672a34..b7b2cb8ae 100644 --- a/lapack-netlib/SRC/zlatbs.f +++ b/lapack-netlib/SRC/zlatbs.f @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -243,10 +241,9 @@ SUBROUTINE ZLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, $ SCALE, CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/zlatdf.f b/lapack-netlib/SRC/zlatdf.f index 4b8b5e330..25e71edce 100644 --- a/lapack-netlib/SRC/zlatdf.f +++ b/lapack-netlib/SRC/zlatdf.f @@ -134,8 +134,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -169,10 +167,9 @@ SUBROUTINE ZLATDF( IJOB, N, Z, LDZ, RHS, RDSUM, RDSCAL, IPIV, $ JPIV ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IJOB, LDZ, N diff --git a/lapack-netlib/SRC/zlatps.f b/lapack-netlib/SRC/zlatps.f index ac148cab0..b22e42f6c 100644 --- a/lapack-netlib/SRC/zlatps.f +++ b/lapack-netlib/SRC/zlatps.f @@ -151,8 +151,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -231,10 +229,9 @@ SUBROUTINE ZLATPS( UPLO, TRANS, DIAG, NORMIN, N, AP, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/zlatrd.f b/lapack-netlib/SRC/zlatrd.f index ccc040993..ee2a48472 100644 --- a/lapack-netlib/SRC/zlatrd.f +++ b/lapack-netlib/SRC/zlatrd.f @@ -140,8 +140,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -199,10 +197,9 @@ * ===================================================================== SUBROUTINE ZLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -271,7 +268,7 @@ * ALPHA = A( I-1, I ) CALL ZLARFG( I-1, ALPHA, A( 1, I ), 1, TAU( I-1 ) ) - E( I-1 ) = ALPHA + E( I-1 ) = DBLE( ALPHA ) A( I-1, I ) = ONE * * Compute W(1:i-1,i) @@ -325,7 +322,7 @@ ALPHA = A( I+1, I ) CALL ZLARFG( N-I, ALPHA, A( MIN( I+2, N ), I ), 1, $ TAU( I ) ) - E( I ) = ALPHA + E( I ) = DBLE( ALPHA ) A( I+1, I ) = ONE * * Compute W(i+1:n,i) diff --git a/lapack-netlib/SRC/zlatrs.f b/lapack-netlib/SRC/zlatrs.f index f06ac4ad0..91bb688ec 100644 --- a/lapack-netlib/SRC/zlatrs.f +++ b/lapack-netlib/SRC/zlatrs.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -239,10 +237,9 @@ SUBROUTINE ZLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE, $ CNORM, INFO ) * -* -- LAPACK auxiliary routine (version 3.8.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER DIAG, NORMIN, TRANS, UPLO diff --git a/lapack-netlib/SRC/zlatrz.f b/lapack-netlib/SRC/zlatrz.f index 5d415fe76..6fe213817 100644 --- a/lapack-netlib/SRC/zlatrz.f +++ b/lapack-netlib/SRC/zlatrz.f @@ -97,8 +97,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -140,10 +138,9 @@ * ===================================================================== SUBROUTINE ZLATRZ( M, N, L, A, LDA, TAU, WORK ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER L, LDA, M, N diff --git a/lapack-netlib/SRC/zlatsqr.f b/lapack-netlib/SRC/zlatsqr.f index 0f98cae93..ffdbc68c0 100644 --- a/lapack-netlib/SRC/zlatsqr.f +++ b/lapack-netlib/SRC/zlatsqr.f @@ -28,8 +28,8 @@ *> where: *> *> Q is a M-by-M orthogonal matrix, stored on exit in an implicit -*> form in the elements below the digonal of the array A and in -*> the elemenst of the array T; +*> form in the elements below the diagonal of the array A and in +*> the elements of the array T; *> *> R is an upper-triangular N-by-N matrix, stored on exit in *> the elements on and above the diagonal of the array A. @@ -164,10 +164,9 @@ SUBROUTINE ZLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, $ LWORK, INFO) * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd. -- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N, MB, NB, LDT, LWORK @@ -203,12 +202,12 @@ INFO = -1 ELSE IF( N.LT.0 .OR. M.LT.N ) THEN INFO = -2 - ELSE IF( MB.LE.N ) THEN + ELSE IF( MB.LT.1 ) THEN INFO = -3 ELSE IF( NB.LT.1 .OR. ( NB.GT.N .AND. N.GT.0 )) THEN INFO = -4 ELSE IF( LDA.LT.MAX( 1, M ) ) THEN - INFO = -5 + INFO = -6 ELSE IF( LDT.LT.NB ) THEN INFO = -8 ELSE IF( LWORK.LT.(N*NB) .AND. (.NOT.LQUERY) ) THEN diff --git a/lapack-netlib/SRC/zlaunhr_col_getrfnp.f b/lapack-netlib/SRC/zlaunhr_col_getrfnp.f index 0ab7f0349..c40599a42 100644 --- a/lapack-netlib/SRC/zlaunhr_col_getrfnp.f +++ b/lapack-netlib/SRC/zlaunhr_col_getrfnp.f @@ -128,8 +128,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16GEcomputational * *> \par Contributors: @@ -147,10 +145,9 @@ SUBROUTINE ZLAUNHR_COL_GETRFNP( M, N, A, LDA, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zlaunhr_col_getrfnp2.f b/lapack-netlib/SRC/zlaunhr_col_getrfnp2.f index 0057e430d..fe67f1fc8 100644 --- a/lapack-netlib/SRC/zlaunhr_col_getrfnp2.f +++ b/lapack-netlib/SRC/zlaunhr_col_getrfnp2.f @@ -84,7 +84,7 @@ *> *> ZLAUNHR_COL_GETRFNP2 is called to factorize a block by the blocked *> routine ZLAUNHR_COL_GETRFNP, which uses blocked code calling -*. Level 3 BLAS to update the submatrix. However, ZLAUNHR_COL_GETRFNP2 +*> Level 3 BLAS to update the submatrix. However, ZLAUNHR_COL_GETRFNP2 *> is self-sufficient and can be used without ZLAUNHR_COL_GETRFNP. *> *> [1] "Reconstructing Householder vectors from tall-skinny QR", @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16GEcomputational * *> \par Contributors: @@ -168,10 +166,9 @@ RECURSIVE SUBROUTINE ZLAUNHR_COL_GETRFNP2( M, N, A, LDA, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, M, N diff --git a/lapack-netlib/SRC/zlauu2.f b/lapack-netlib/SRC/zlauu2.f index 3e3623f2d..7d7faebdf 100644 --- a/lapack-netlib/SRC/zlauu2.f +++ b/lapack-netlib/SRC/zlauu2.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAUU2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -165,7 +162,7 @@ * Compute the product U * U**H. * DO 10 I = 1, N - AII = A( I, I ) + AII = DBLE( A( I, I ) ) IF( I.LT.N ) THEN A( I, I ) = AII*AII + DBLE( ZDOTC( N-I, A( I, I+1 ), LDA, $ A( I, I+1 ), LDA ) ) @@ -184,7 +181,7 @@ * Compute the product L**H * L. * DO 20 I = 1, N - AII = A( I, I ) + AII = DBLE( A( I, I ) ) IF( I.LT.N ) THEN A( I, I ) = AII*AII + DBLE( ZDOTC( N-I, A( I+1, I ), 1, $ A( I+1, I ), 1 ) ) diff --git a/lapack-netlib/SRC/zlauum.f b/lapack-netlib/SRC/zlauum.f index 5afadda09..af36aa92d 100644 --- a/lapack-netlib/SRC/zlauum.f +++ b/lapack-netlib/SRC/zlauum.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZLAUUM( UPLO, N, A, LDA, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpbcon.f b/lapack-netlib/SRC/zpbcon.f index debbcae6f..35fa50aab 100644 --- a/lapack-netlib/SRC/zpbcon.f +++ b/lapack-netlib/SRC/zpbcon.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPBCON( UPLO, N, KD, AB, LDAB, ANORM, RCOND, WORK, $ RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpbequ.f b/lapack-netlib/SRC/zpbequ.f index d05fd82d8..3d4b84a96 100644 --- a/lapack-netlib/SRC/zpbequ.f +++ b/lapack-netlib/SRC/zpbequ.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPBEQU( UPLO, N, KD, AB, LDAB, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpbrfs.f b/lapack-netlib/SRC/zpbrfs.f index 4e6224538..4c343ed3a 100644 --- a/lapack-netlib/SRC/zpbrfs.f +++ b/lapack-netlib/SRC/zpbrfs.f @@ -181,18 +181,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPBRFS( UPLO, N, KD, NRHS, AB, LDAB, AFB, LDAFB, B, $ LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpbstf.f b/lapack-netlib/SRC/zpbstf.f index b4482103e..1b3bb147b 100644 --- a/lapack-netlib/SRC/zpbstf.f +++ b/lapack-netlib/SRC/zpbstf.f @@ -110,8 +110,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -153,10 +151,9 @@ * ===================================================================== SUBROUTINE ZPBSTF( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpbsv.f b/lapack-netlib/SRC/zpbsv.f index 4daf6b3e4..fe6baf8b5 100644 --- a/lapack-netlib/SRC/zpbsv.f +++ b/lapack-netlib/SRC/zpbsv.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERsolve * *> \par Further Details: @@ -164,10 +162,9 @@ * ===================================================================== SUBROUTINE ZPBSV( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpbsvx.f b/lapack-netlib/SRC/zpbsvx.f index bff6f3615..1efd2fd1e 100644 --- a/lapack-netlib/SRC/zpbsvx.f +++ b/lapack-netlib/SRC/zpbsvx.f @@ -301,8 +301,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16OTHERsolve * *> \par Further Details: @@ -342,10 +340,9 @@ $ EQUED, S, B, LDB, X, LDX, RCOND, FERR, BERR, $ WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/zpbtf2.f b/lapack-netlib/SRC/zpbtf2.f index b39f1de81..7b90af47e 100644 --- a/lapack-netlib/SRC/zpbtf2.f +++ b/lapack-netlib/SRC/zpbtf2.f @@ -110,8 +110,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE ZPBTF2( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpbtrf.f b/lapack-netlib/SRC/zpbtrf.f index 0eee3b6bd..61cd1d434 100644 --- a/lapack-netlib/SRC/zpbtrf.f +++ b/lapack-netlib/SRC/zpbtrf.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -142,10 +140,9 @@ * ===================================================================== SUBROUTINE ZPBTRF( UPLO, N, KD, AB, LDAB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpbtrs.f b/lapack-netlib/SRC/zpbtrs.f index a5a3db084..d9d74b70d 100644 --- a/lapack-netlib/SRC/zpbtrs.f +++ b/lapack-netlib/SRC/zpbtrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPBTRS( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpftrf.f b/lapack-netlib/SRC/zpftrf.f index fd303300f..6d18f2cb3 100644 --- a/lapack-netlib/SRC/zpftrf.f +++ b/lapack-netlib/SRC/zpftrf.f @@ -204,17 +204,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPFTRF( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/zpftri.f b/lapack-netlib/SRC/zpftri.f index e63846b00..7ebf73769 100644 --- a/lapack-netlib/SRC/zpftri.f +++ b/lapack-netlib/SRC/zpftri.f @@ -97,8 +97,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -212,10 +210,9 @@ * ===================================================================== SUBROUTINE ZPFTRI( TRANSR, UPLO, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/zpftrs.f b/lapack-netlib/SRC/zpftrs.f index b045f8988..c63592f57 100644 --- a/lapack-netlib/SRC/zpftrs.f +++ b/lapack-netlib/SRC/zpftrs.f @@ -105,8 +105,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -220,10 +218,9 @@ * ===================================================================== SUBROUTINE ZPFTRS( TRANSR, UPLO, N, NRHS, A, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/zpocon.f b/lapack-netlib/SRC/zpocon.f index ba22de095..dcfc6f64c 100644 --- a/lapack-netlib/SRC/zpocon.f +++ b/lapack-netlib/SRC/zpocon.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== SUBROUTINE ZPOCON( UPLO, N, A, LDA, ANORM, RCOND, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpoequ.f b/lapack-netlib/SRC/zpoequ.f index 99b94f3ba..9435bd08f 100644 --- a/lapack-netlib/SRC/zpoequ.f +++ b/lapack-netlib/SRC/zpoequ.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== SUBROUTINE ZPOEQU( N, A, LDA, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/SRC/zpoequb.f b/lapack-netlib/SRC/zpoequb.f index 6902bdb78..fd8a000b2 100644 --- a/lapack-netlib/SRC/zpoequb.f +++ b/lapack-netlib/SRC/zpoequb.f @@ -112,17 +112,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== SUBROUTINE ZPOEQUB( N, A, LDA, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N @@ -183,11 +180,11 @@ * * Find the minimum and maximum diagonal elements. * - S( 1 ) = A( 1, 1 ) + S( 1 ) = DBLE( A( 1, 1 ) ) SMIN = S( 1 ) AMAX = S( 1 ) DO 10 I = 2, N - S( I ) = A( I, I ) + S( I ) = DBLE( A( I, I ) ) SMIN = MIN( SMIN, S( I ) ) AMAX = MAX( AMAX, S( I ) ) 10 CONTINUE diff --git a/lapack-netlib/SRC/zporfs.f b/lapack-netlib/SRC/zporfs.f index 3b9753e0f..96c654666 100644 --- a/lapack-netlib/SRC/zporfs.f +++ b/lapack-netlib/SRC/zporfs.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== SUBROUTINE ZPORFS( UPLO, N, NRHS, A, LDA, AF, LDAF, B, LDB, X, $ LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zporfsx.f b/lapack-netlib/SRC/zporfsx.f index bbff4331e..ce43103eb 100644 --- a/lapack-netlib/SRC/zporfsx.f +++ b/lapack-netlib/SRC/zporfsx.f @@ -122,7 +122,7 @@ *> \verbatim *> AF is COMPLEX*16 array, dimension (LDAF,N) *> The triangular factor U or L from the Cholesky factorization -*> A = U**T*U or A = L*L**T, as computed by DPOTRF. +*> A = U**H*U or A = L*L**H, as computed by ZPOTRF. *> \endverbatim *> *> \param[in] LDAF @@ -162,7 +162,7 @@ *> \param[in,out] X *> \verbatim *> X is COMPLEX*16 array, dimension (LDX,NRHS) -*> On entry, the solution matrix X, as computed by DGETRS. +*> On entry, the solution matrix X, as computed by ZGETRS. *> On exit, the improved solution matrix X. *> \endverbatim *> @@ -383,8 +383,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16POcomputational * * ===================================================================== @@ -393,10 +391,9 @@ $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/zposv.f b/lapack-netlib/SRC/zposv.f index 07ee5b14e..3bb625876 100644 --- a/lapack-netlib/SRC/zposv.f +++ b/lapack-netlib/SRC/zposv.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POsolve * * ===================================================================== SUBROUTINE ZPOSV( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zposvx.f b/lapack-netlib/SRC/zposvx.f index 5f67bb80a..f9e9b1d5f 100644 --- a/lapack-netlib/SRC/zposvx.f +++ b/lapack-netlib/SRC/zposvx.f @@ -297,8 +297,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16POsolve * * ===================================================================== @@ -306,10 +304,9 @@ $ S, B, LDB, X, LDX, RCOND, FERR, BERR, WORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/zposvxx.f b/lapack-netlib/SRC/zposvxx.f index 913d16cb2..6735fab71 100644 --- a/lapack-netlib/SRC/zposvxx.f +++ b/lapack-netlib/SRC/zposvxx.f @@ -483,8 +483,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16POsolve * * ===================================================================== @@ -493,10 +491,9 @@ $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/zpotf2.f b/lapack-netlib/SRC/zpotf2.f index 0aa457fbf..eb88d617c 100644 --- a/lapack-netlib/SRC/zpotf2.f +++ b/lapack-netlib/SRC/zpotf2.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== SUBROUTINE ZPOTF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -177,8 +174,8 @@ * * Compute U(J,J) and test for non-positive-definiteness. * - AJJ = DBLE( A( J, J ) ) - ZDOTC( J-1, A( 1, J ), 1, - $ A( 1, J ), 1 ) + AJJ = DBLE( A( J, J ) ) - DBLE( ZDOTC( J-1, A( 1, J ), 1, + $ A( 1, J ), 1 ) ) IF( AJJ.LE.ZERO.OR.DISNAN( AJJ ) ) THEN A( J, J ) = AJJ GO TO 30 @@ -204,8 +201,8 @@ * * Compute L(J,J) and test for non-positive-definiteness. * - AJJ = DBLE( A( J, J ) ) - ZDOTC( J-1, A( J, 1 ), LDA, - $ A( J, 1 ), LDA ) + AJJ = DBLE( A( J, J ) ) - DBLE( ZDOTC( J-1, A( J, 1 ), LDA, + $ A( J, 1 ), LDA ) ) IF( AJJ.LE.ZERO.OR.DISNAN( AJJ ) ) THEN A( J, J ) = AJJ GO TO 30 diff --git a/lapack-netlib/SRC/zpotrf.f b/lapack-netlib/SRC/zpotrf.f index 044cb90d7..3b7018276 100644 --- a/lapack-netlib/SRC/zpotrf.f +++ b/lapack-netlib/SRC/zpotrf.f @@ -100,17 +100,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== SUBROUTINE ZPOTRF( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpotrf2.f b/lapack-netlib/SRC/zpotrf2.f index 85c434d47..859ddc75f 100644 --- a/lapack-netlib/SRC/zpotrf2.f +++ b/lapack-netlib/SRC/zpotrf2.f @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== RECURSIVE SUBROUTINE ZPOTRF2( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpotri.f b/lapack-netlib/SRC/zpotri.f index 68f61e87e..8c94eadc2 100644 --- a/lapack-netlib/SRC/zpotri.f +++ b/lapack-netlib/SRC/zpotri.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== SUBROUTINE ZPOTRI( UPLO, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpotrs.f b/lapack-netlib/SRC/zpotrs.f index b476bcb9d..78a1c3273 100644 --- a/lapack-netlib/SRC/zpotrs.f +++ b/lapack-netlib/SRC/zpotrs.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16POcomputational * * ===================================================================== SUBROUTINE ZPOTRS( UPLO, N, NRHS, A, LDA, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zppcon.f b/lapack-netlib/SRC/zppcon.f index 44d32e044..c569a497b 100644 --- a/lapack-netlib/SRC/zppcon.f +++ b/lapack-netlib/SRC/zppcon.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPPCON( UPLO, N, AP, ANORM, RCOND, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zppequ.f b/lapack-netlib/SRC/zppequ.f index 424e338f6..e2159e0f0 100644 --- a/lapack-netlib/SRC/zppequ.f +++ b/lapack-netlib/SRC/zppequ.f @@ -110,17 +110,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPPEQU( UPLO, N, AP, S, SCOND, AMAX, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpprfs.f b/lapack-netlib/SRC/zpprfs.f index ae6a76ead..769a6a0c0 100644 --- a/lapack-netlib/SRC/zpprfs.f +++ b/lapack-netlib/SRC/zpprfs.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPPRFS( UPLO, N, NRHS, AP, AFP, B, LDB, X, LDX, FERR, $ BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zppsv.f b/lapack-netlib/SRC/zppsv.f index 49b2e0be1..19536e204 100644 --- a/lapack-netlib/SRC/zppsv.f +++ b/lapack-netlib/SRC/zppsv.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERsolve * *> \par Further Details: @@ -144,10 +142,9 @@ * ===================================================================== SUBROUTINE ZPPSV( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zppsvx.f b/lapack-netlib/SRC/zppsvx.f index d52774838..f94badf78 100644 --- a/lapack-netlib/SRC/zppsvx.f +++ b/lapack-netlib/SRC/zppsvx.f @@ -283,8 +283,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16OTHERsolve * *> \par Further Details: @@ -311,10 +309,9 @@ SUBROUTINE ZPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB, $ X, LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/zpptrf.f b/lapack-netlib/SRC/zpptrf.f index 6e50b4682..a34d63913 100644 --- a/lapack-netlib/SRC/zpptrf.f +++ b/lapack-netlib/SRC/zpptrf.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -119,10 +117,9 @@ * ===================================================================== SUBROUTINE ZPPTRF( UPLO, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -192,8 +189,8 @@ * * Compute U(J,J) and test for non-positive-definiteness. * - AJJ = DBLE( AP( JJ ) ) - ZDOTC( J-1, AP( JC ), 1, AP( JC ), - $ 1 ) + AJJ = DBLE( AP( JJ ) ) - DBLE( ZDOTC( J-1, + $ AP( JC ), 1, AP( JC ), 1 ) ) IF( AJJ.LE.ZERO ) THEN AP( JJ ) = AJJ GO TO 30 diff --git a/lapack-netlib/SRC/zpptri.f b/lapack-netlib/SRC/zpptri.f index cde2f6dc7..a74466eb8 100644 --- a/lapack-netlib/SRC/zpptri.f +++ b/lapack-netlib/SRC/zpptri.f @@ -86,17 +86,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPPTRI( UPLO, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -164,7 +161,7 @@ JJ = JJ + J IF( J.GT.1 ) $ CALL ZHPR( 'Upper', J-1, ONE, AP( JC ), 1, AP ) - AJJ = AP( JJ ) + AJJ = DBLE( AP( JJ ) ) CALL ZDSCAL( J, AJJ, AP( JC ), 1 ) 10 CONTINUE * diff --git a/lapack-netlib/SRC/zpptrs.f b/lapack-netlib/SRC/zpptrs.f index 485613490..433213d5a 100644 --- a/lapack-netlib/SRC/zpptrs.f +++ b/lapack-netlib/SRC/zpptrs.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPPTRS( UPLO, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zpstf2.f b/lapack-netlib/SRC/zpstf2.f index 696d83f29..ef2536bd6 100644 --- a/lapack-netlib/SRC/zpstf2.f +++ b/lapack-netlib/SRC/zpstf2.f @@ -135,17 +135,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPSTF2( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION TOL diff --git a/lapack-netlib/SRC/zpstrf.f b/lapack-netlib/SRC/zpstrf.f index 2a2937c5d..577934d2c 100644 --- a/lapack-netlib/SRC/zpstrf.f +++ b/lapack-netlib/SRC/zpstrf.f @@ -135,17 +135,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZPSTRF( UPLO, N, A, LDA, PIV, RANK, TOL, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION TOL diff --git a/lapack-netlib/SRC/zptcon.f b/lapack-netlib/SRC/zptcon.f index d2b560f91..122a09198 100644 --- a/lapack-netlib/SRC/zptcon.f +++ b/lapack-netlib/SRC/zptcon.f @@ -102,8 +102,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16PTcomputational * *> \par Further Details: @@ -119,10 +117,9 @@ * ===================================================================== SUBROUTINE ZPTCON( N, D, E, ANORM, RCOND, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/zpteqr.f b/lapack-netlib/SRC/zpteqr.f index 0b443e18f..a81a6ad94 100644 --- a/lapack-netlib/SRC/zpteqr.f +++ b/lapack-netlib/SRC/zpteqr.f @@ -138,17 +138,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16PTcomputational * * ===================================================================== SUBROUTINE ZPTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/zptrfs.f b/lapack-netlib/SRC/zptrfs.f index f12ac3150..43e14d585 100644 --- a/lapack-netlib/SRC/zptrfs.f +++ b/lapack-netlib/SRC/zptrfs.f @@ -175,18 +175,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16PTcomputational * * ===================================================================== SUBROUTINE ZPTRFS( UPLO, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zptsv.f b/lapack-netlib/SRC/zptsv.f index 4ae2fcfbd..d53e17a34 100644 --- a/lapack-netlib/SRC/zptsv.f +++ b/lapack-netlib/SRC/zptsv.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16PTsolve * * ===================================================================== SUBROUTINE ZPTSV( N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/zptsvx.f b/lapack-netlib/SRC/zptsvx.f index 085fb2e57..4a40768f1 100644 --- a/lapack-netlib/SRC/zptsvx.f +++ b/lapack-netlib/SRC/zptsvx.f @@ -226,18 +226,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16PTsolve * * ===================================================================== SUBROUTINE ZPTSVX( FACT, N, NRHS, D, E, DF, EF, B, LDB, X, LDX, $ RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER FACT diff --git a/lapack-netlib/SRC/zpttrf.f b/lapack-netlib/SRC/zpttrf.f index d46a1c3b3..a106ec419 100644 --- a/lapack-netlib/SRC/zpttrf.f +++ b/lapack-netlib/SRC/zpttrf.f @@ -85,17 +85,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16PTcomputational * * ===================================================================== SUBROUTINE ZPTTRF( N, D, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/SRC/zpttrs.f b/lapack-netlib/SRC/zpttrs.f index 146a8e222..41c7c9ba7 100644 --- a/lapack-netlib/SRC/zpttrs.f +++ b/lapack-netlib/SRC/zpttrs.f @@ -114,17 +114,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16PTcomputational * * ===================================================================== SUBROUTINE ZPTTRS( UPLO, N, NRHS, D, E, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zptts2.f b/lapack-netlib/SRC/zptts2.f index 0d40d03d3..8ff6b1fe7 100644 --- a/lapack-netlib/SRC/zptts2.f +++ b/lapack-netlib/SRC/zptts2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16PTcomputational * * ===================================================================== SUBROUTINE ZPTTS2( IUPLO, N, NRHS, D, E, B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IUPLO, LDB, N, NRHS diff --git a/lapack-netlib/SRC/zrot.f b/lapack-netlib/SRC/zrot.f index f372df088..28fc8ec1d 100644 --- a/lapack-netlib/SRC/zrot.f +++ b/lapack-netlib/SRC/zrot.f @@ -58,7 +58,7 @@ *> \param[in] INCX *> \verbatim *> INCX is INTEGER -*> The increment between successive values of CY. INCX <> 0. +*> The increment between successive values of CX. INCX <> 0. *> \endverbatim *> *> \param[in,out] CY @@ -96,17 +96,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZROT( N, CX, INCX, CY, INCY, C, S ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/lapack-netlib/SRC/zspcon.f b/lapack-netlib/SRC/zspcon.f index eae8f9eb9..fa497bd05 100644 --- a/lapack-netlib/SRC/zspcon.f +++ b/lapack-netlib/SRC/zspcon.f @@ -111,17 +111,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZSPCON( UPLO, N, AP, IPIV, ANORM, RCOND, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zspmv.f b/lapack-netlib/SRC/zspmv.f index 94428010f..8a8d3a9d0 100644 --- a/lapack-netlib/SRC/zspmv.f +++ b/lapack-netlib/SRC/zspmv.f @@ -144,17 +144,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZSPMV( UPLO, N, ALPHA, AP, X, INCX, BETA, Y, INCY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zspr.f b/lapack-netlib/SRC/zspr.f index f91a99a32..549415fa3 100644 --- a/lapack-netlib/SRC/zspr.f +++ b/lapack-netlib/SRC/zspr.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * * ===================================================================== SUBROUTINE ZSPR( UPLO, N, ALPHA, X, INCX, AP ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsprfs.f b/lapack-netlib/SRC/zsprfs.f index 3474d7503..9985b5749 100644 --- a/lapack-netlib/SRC/zsprfs.f +++ b/lapack-netlib/SRC/zsprfs.f @@ -172,18 +172,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZSPRFS( UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zspsv.f b/lapack-netlib/SRC/zspsv.f index f4c79db3f..a1c13024b 100644 --- a/lapack-netlib/SRC/zspsv.f +++ b/lapack-netlib/SRC/zspsv.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERsolve * *> \par Further Details: @@ -162,10 +160,9 @@ * ===================================================================== SUBROUTINE ZSPSV( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zspsvx.f b/lapack-netlib/SRC/zspsvx.f index 8c4dc105c..2cd097565 100644 --- a/lapack-netlib/SRC/zspsvx.f +++ b/lapack-netlib/SRC/zspsvx.f @@ -249,8 +249,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16OTHERsolve * *> \par Further Details: @@ -277,10 +275,9 @@ SUBROUTINE ZSPSVX( FACT, UPLO, N, NRHS, AP, AFP, IPIV, B, LDB, X, $ LDX, RCOND, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/zsptrf.f b/lapack-netlib/SRC/zsptrf.f index 07c6eec4d..bad30b7a4 100644 --- a/lapack-netlib/SRC/zsptrf.f +++ b/lapack-netlib/SRC/zsptrf.f @@ -108,8 +108,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -158,10 +156,9 @@ * ===================================================================== SUBROUTINE ZSPTRF( UPLO, N, AP, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsptri.f b/lapack-netlib/SRC/zsptri.f index cb9efc839..ba590f661 100644 --- a/lapack-netlib/SRC/zsptri.f +++ b/lapack-netlib/SRC/zsptri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZSPTRI( UPLO, N, AP, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsptrs.f b/lapack-netlib/SRC/zsptrs.f index feb29bcee..2a16cb22a 100644 --- a/lapack-netlib/SRC/zsptrs.f +++ b/lapack-netlib/SRC/zsptrs.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZSPTRS( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zstedc.f b/lapack-netlib/SRC/zstedc.f index b6be431b0..74d390af7 100644 --- a/lapack-netlib/SRC/zstedc.f +++ b/lapack-netlib/SRC/zstedc.f @@ -198,8 +198,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -212,10 +210,9 @@ SUBROUTINE ZSTEDC( COMPZ, N, D, E, Z, LDZ, WORK, LWORK, RWORK, $ LRWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/zstegr.f b/lapack-netlib/SRC/zstegr.f index 5ad981096..ee43a0d21 100644 --- a/lapack-netlib/SRC/zstegr.f +++ b/lapack-netlib/SRC/zstegr.f @@ -49,7 +49,7 @@ *> eigenvalues. *> *> ZSTEGR is a compatibility wrapper around the improved ZSTEMR routine. -*> See DSTEMR for further details. +*> See ZSTEMR for further details. *> *> One important change is that the ABSTOL parameter no longer provides any *> benefit and hence is no longer used. @@ -249,8 +249,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -265,10 +263,9 @@ $ ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, $ LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/zstein.f b/lapack-netlib/SRC/zstein.f index ff8384ad4..9be9d981c 100644 --- a/lapack-netlib/SRC/zstein.f +++ b/lapack-netlib/SRC/zstein.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZSTEIN( N, D, E, M, W, IBLOCK, ISPLIT, Z, LDZ, WORK, $ IWORK, IFAIL, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDZ, M, N diff --git a/lapack-netlib/SRC/zstemr.f b/lapack-netlib/SRC/zstemr.f index 8685542de..b034198de 100644 --- a/lapack-netlib/SRC/zstemr.f +++ b/lapack-netlib/SRC/zstemr.f @@ -320,8 +320,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -338,10 +336,9 @@ $ M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, $ IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER JOBZ, RANGE diff --git a/lapack-netlib/SRC/zsteqr.f b/lapack-netlib/SRC/zsteqr.f index ac4789068..47f4004e8 100644 --- a/lapack-netlib/SRC/zsteqr.f +++ b/lapack-netlib/SRC/zsteqr.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZSTEQR( COMPZ, N, D, E, Z, LDZ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPZ diff --git a/lapack-netlib/SRC/zsycon.f b/lapack-netlib/SRC/zsycon.f index 98ec83e37..5b3fef621 100644 --- a/lapack-netlib/SRC/zsycon.f +++ b/lapack-netlib/SRC/zsycon.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYCON( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsycon_3.f b/lapack-netlib/SRC/zsycon_3.f index 33bd23849..25c8b5e08 100644 --- a/lapack-netlib/SRC/zsycon_3.f +++ b/lapack-netlib/SRC/zsycon_3.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -166,10 +164,9 @@ SUBROUTINE ZSYCON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsycon_rook.f b/lapack-netlib/SRC/zsycon_rook.f index c7c0c4385..1346f8b86 100644 --- a/lapack-netlib/SRC/zsycon_rook.f +++ b/lapack-netlib/SRC/zsycon_rook.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -139,10 +137,9 @@ SUBROUTINE ZSYCON_ROOK( UPLO, N, A, LDA, IPIV, ANORM, RCOND, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsyconv.f b/lapack-netlib/SRC/zsyconv.f index 94235ef57..e6a1d006c 100644 --- a/lapack-netlib/SRC/zsyconv.f +++ b/lapack-netlib/SRC/zsyconv.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/zsyconvf.f b/lapack-netlib/SRC/zsyconvf.f index 2d5ce882e..eb49b0f3d 100644 --- a/lapack-netlib/SRC/zsyconvf.f +++ b/lapack-netlib/SRC/zsyconvf.f @@ -38,7 +38,7 @@ *> ZSYCONVF converts the factorization output format used in *> ZSYTRF provided on entry in parameter A into the factorization *> output format used in ZSYTRF_RK (or ZSYTRF_BK) that is stored -*> on exit in parameters A and E. It also coverts in place details of +*> on exit in parameters A and E. It also converts in place details of *> the intechanges stored in IPIV from the format used in ZSYTRF into *> the format used in ZSYTRF_RK (or ZSYTRF_BK). *> @@ -47,7 +47,7 @@ *> converts the factorization output format used in ZSYTRF_RK *> (or ZSYTRF_BK) provided on entry in parameters A and E into *> the factorization output format used in ZSYTRF that is stored -*> on exit in parameter A. It also coverts in place details of +*> on exit in parameter A. It also converts in place details of *> the intechanges stored in IPIV from the format used in ZSYTRF_RK *> (or ZSYTRF_BK) into the format used in ZSYTRF. *> @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -209,10 +207,9 @@ * ===================================================================== SUBROUTINE ZSYCONVF( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/zsyconvf_rook.f b/lapack-netlib/SRC/zsyconvf_rook.f index 410d2eb34..3cfa694c3 100644 --- a/lapack-netlib/SRC/zsyconvf_rook.f +++ b/lapack-netlib/SRC/zsyconvf_rook.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -200,10 +198,9 @@ * ===================================================================== SUBROUTINE ZSYCONVF_ROOK( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO, WAY diff --git a/lapack-netlib/SRC/zsyequb.f b/lapack-netlib/SRC/zsyequb.f index 1cf411968..84d5330ad 100644 --- a/lapack-netlib/SRC/zsyequb.f +++ b/lapack-netlib/SRC/zsyequb.f @@ -117,8 +117,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * *> \par References: @@ -132,10 +130,9 @@ * ===================================================================== SUBROUTINE ZSYEQUB( UPLO, N, A, LDA, S, SCOND, AMAX, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, N @@ -266,7 +263,7 @@ * avg = s^T beta / n AVG = 0.0D0 DO I = 1, N - AVG = AVG + S( I )*WORK( I ) + AVG = AVG + S( I ) * DBLE( WORK( I ) ) END DO AVG = AVG / N @@ -283,8 +280,8 @@ T = CABS1( A( I, I ) ) SI = S( I ) C2 = ( N-1 ) * T - C1 = ( N-2 ) * ( WORK( I ) - T*SI ) - C0 = -(T*SI)*SI + 2*WORK( I )*SI - N*AVG + C1 = ( N-2 ) * ( DBLE( WORK( I ) ) - T*SI ) + C0 = -(T*SI)*SI + 2 * DBLE( WORK( I ) ) * SI - N*AVG D = C1*C1 - 4*C0*C2 IF ( D .LE. 0 ) THEN @@ -319,7 +316,7 @@ END DO END IF - AVG = AVG + ( U + WORK( I ) ) * D / N + AVG = AVG + ( U + DBLE( WORK( I ) ) ) * D / N S( I ) = SI END DO END DO diff --git a/lapack-netlib/SRC/zsymv.f b/lapack-netlib/SRC/zsymv.f index 926a05f25..d54620e26 100644 --- a/lapack-netlib/SRC/zsymv.f +++ b/lapack-netlib/SRC/zsymv.f @@ -150,17 +150,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYauxiliary * * ===================================================================== SUBROUTINE ZSYMV( UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y, INCY ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsyr.f b/lapack-netlib/SRC/zsyr.f index 2bed66371..27b559c90 100644 --- a/lapack-netlib/SRC/zsyr.f +++ b/lapack-netlib/SRC/zsyr.f @@ -128,17 +128,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYauxiliary * * ===================================================================== SUBROUTINE ZSYR( UPLO, N, ALPHA, X, INCX, A, LDA ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsyrfs.f b/lapack-netlib/SRC/zsyrfs.f index c114f40c0..e62d7f8a7 100644 --- a/lapack-netlib/SRC/zsyrfs.f +++ b/lapack-netlib/SRC/zsyrfs.f @@ -184,18 +184,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYRFS( UPLO, N, NRHS, A, LDA, AF, LDAF, IPIV, B, LDB, $ X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsyrfsx.f b/lapack-netlib/SRC/zsyrfsx.f index d086510d8..b938ef0ea 100644 --- a/lapack-netlib/SRC/zsyrfsx.f +++ b/lapack-netlib/SRC/zsyrfsx.f @@ -124,7 +124,7 @@ *> The factored form of the matrix A. AF contains the block *> diagonal matrix D and the multipliers used to obtain the *> factor U or L from the factorization A = U*D*U**T or A = -*> L*D*L**T as computed by DSYTRF. +*> L*D*L**T as computed by ZSYTRF. *> \endverbatim *> *> \param[in] LDAF @@ -137,7 +137,7 @@ *> \verbatim *> IPIV is INTEGER array, dimension (N) *> Details of the interchanges and the block structure of D -*> as determined by DSYTRF. +*> as determined by ZSYTRF. *> \endverbatim *> *> \param[in,out] S @@ -171,7 +171,7 @@ *> \param[in,out] X *> \verbatim *> X is COMPLEX*16 array, dimension (LDX,NRHS) -*> On entry, the solution matrix X, as computed by DGETRS. +*> On entry, the solution matrix X, as computed by ZGETRS. *> On exit, the improved solution matrix X. *> \endverbatim *> @@ -392,8 +392,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16SYcomputational * * ===================================================================== @@ -402,10 +400,9 @@ $ ERR_BNDS_NORM, ERR_BNDS_COMP, NPARAMS, PARAMS, $ WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER UPLO, EQUED diff --git a/lapack-netlib/SRC/zsysv.f b/lapack-netlib/SRC/zsysv.f index 2ff196ca8..ed173dadc 100644 --- a/lapack-netlib/SRC/zsysv.f +++ b/lapack-netlib/SRC/zsysv.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYsolve * * ===================================================================== SUBROUTINE ZSYSV( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -226,7 +223,7 @@ LWKOPT = 1 ELSE CALL ZSYTRF( UPLO, N, A, LDA, IPIV, WORK, -1, INFO ) - LWKOPT = WORK(1) + LWKOPT = DBLE( WORK(1) ) END IF WORK( 1 ) = LWKOPT END IF diff --git a/lapack-netlib/SRC/zsysv_aa.f b/lapack-netlib/SRC/zsysv_aa.f index 4e87bd105..3a3af5009 100644 --- a/lapack-netlib/SRC/zsysv_aa.f +++ b/lapack-netlib/SRC/zsysv_aa.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYsolve * * ===================================================================== SUBROUTINE ZSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.8.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsysv_aa_2stage.f b/lapack-netlib/SRC/zsysv_aa_2stage.f index 923eaaec0..4f19630a9 100644 --- a/lapack-netlib/SRC/zsysv_aa_2stage.f +++ b/lapack-netlib/SRC/zsysv_aa_2stage.f @@ -7,11 +7,11 @@ * *> \htmlonly *> Download ZSYSV_AA_2STAGE + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -177,8 +177,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== @@ -186,10 +184,9 @@ $ IPIV, IPIV2, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zsysv_rk.f b/lapack-netlib/SRC/zsysv_rk.f index 8cc79a728..df828ee33 100644 --- a/lapack-netlib/SRC/zsysv_rk.f +++ b/lapack-netlib/SRC/zsysv_rk.f @@ -205,8 +205,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYsolve * *> \par Contributors: @@ -228,10 +226,9 @@ SUBROUTINE ZSYSV_RK( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -283,7 +280,7 @@ LWKOPT = 1 ELSE CALL ZSYTRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, -1, INFO ) - LWKOPT = WORK(1) + LWKOPT = DBLE( WORK(1) ) END IF WORK( 1 ) = LWKOPT END IF diff --git a/lapack-netlib/SRC/zsysv_rook.f b/lapack-netlib/SRC/zsysv_rook.f index f1448e9dc..7c9fb4bf6 100644 --- a/lapack-netlib/SRC/zsysv_rook.f +++ b/lapack-netlib/SRC/zsysv_rook.f @@ -181,8 +181,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYsolve * *> \par Contributors: @@ -204,10 +202,9 @@ SUBROUTINE ZSYSV_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, $ LWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -259,7 +256,7 @@ LWKOPT = 1 ELSE CALL ZSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, -1, INFO ) - LWKOPT = WORK(1) + LWKOPT = DBLE( WORK(1) ) END IF WORK( 1 ) = LWKOPT END IF diff --git a/lapack-netlib/SRC/zsysvx.f b/lapack-netlib/SRC/zsysvx.f index ebebe2e46..91c6adb79 100644 --- a/lapack-netlib/SRC/zsysvx.f +++ b/lapack-netlib/SRC/zsysvx.f @@ -276,8 +276,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16SYsolve * * ===================================================================== @@ -285,10 +283,9 @@ $ LDB, X, LDX, RCOND, FERR, BERR, WORK, LWORK, $ RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER FACT, UPLO diff --git a/lapack-netlib/SRC/zsysvxx.f b/lapack-netlib/SRC/zsysvxx.f index e29439385..5cbc15d9e 100644 --- a/lapack-netlib/SRC/zsysvxx.f +++ b/lapack-netlib/SRC/zsysvxx.f @@ -185,7 +185,7 @@ *> If FACT = 'F', then AF is an input argument and on entry *> contains the block diagonal matrix D and the multipliers *> used to obtain the factor U or L from the factorization A = -*> U*D*U**T or A = L*D*L**T as computed by DSYTRF. +*> U*D*U**T or A = L*D*L**T as computed by ZSYTRF. *> *> If FACT = 'N', then AF is an output argument and on exit *> returns the block diagonal matrix D and the multipliers @@ -204,7 +204,7 @@ *> IPIV is INTEGER array, dimension (N) *> If FACT = 'F', then IPIV is an input argument and on entry *> contains details of the interchanges and the block -*> structure of D, as determined by DSYTRF. If IPIV(k) > 0, +*> structure of D, as determined by ZSYTRF. If IPIV(k) > 0, *> then rows and columns k and IPIV(k) were interchanged and *> D(k,k) is a 1-by-1 diagonal block. If UPLO = 'U' and *> IPIV(k) = IPIV(k-1) < 0, then rows and columns k-1 and @@ -215,7 +215,7 @@ *> *> If FACT = 'N', then IPIV is an output argument and on exit *> contains details of the interchanges and the block -*> structure of D, as determined by DSYTRF. +*> structure of D, as determined by ZSYTRF. *> \endverbatim *> *> \param[in,out] EQUED @@ -496,8 +496,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16SYsolve * * ===================================================================== @@ -506,10 +504,9 @@ $ N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP, $ NPARAMS, PARAMS, WORK, RWORK, INFO ) * -* -- LAPACK driver routine (version 3.7.0) -- +* -- LAPACK driver routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER EQUED, FACT, UPLO diff --git a/lapack-netlib/SRC/zsyswapr.f b/lapack-netlib/SRC/zsyswapr.f index ea79c8fc0..1f1a87857 100644 --- a/lapack-netlib/SRC/zsyswapr.f +++ b/lapack-netlib/SRC/zsyswapr.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYauxiliary * * ===================================================================== SUBROUTINE ZSYSWAPR( UPLO, N, A, LDA, I1, I2) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytf2.f b/lapack-netlib/SRC/zsytf2.f index 766d61c83..7542a0de1 100644 --- a/lapack-netlib/SRC/zsytf2.f +++ b/lapack-netlib/SRC/zsytf2.f @@ -127,8 +127,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * *> \par Further Details: @@ -191,10 +189,9 @@ * ===================================================================== SUBROUTINE ZSYTF2( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytf2_rk.f b/lapack-netlib/SRC/zsytf2_rk.f index 4ae1a4a22..d0dd3a278 100644 --- a/lapack-netlib/SRC/zsytf2_rk.f +++ b/lapack-netlib/SRC/zsytf2_rk.f @@ -208,8 +208,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * *> \par Further Details: @@ -241,10 +239,9 @@ * ===================================================================== SUBROUTINE ZSYTF2_RK( UPLO, N, A, LDA, E, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytf2_rook.f b/lapack-netlib/SRC/zsytf2_rook.f index cf964ae8b..cbfb57e26 100644 --- a/lapack-netlib/SRC/zsytf2_rook.f +++ b/lapack-netlib/SRC/zsytf2_rook.f @@ -129,8 +129,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16SYcomputational * *> \par Further Details: @@ -194,10 +192,9 @@ * ===================================================================== SUBROUTINE ZSYTF2_ROOK( UPLO, N, A, LDA, IPIV, INFO ) * -* -- LAPACK computational routine (version 3.5.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytrf.f b/lapack-netlib/SRC/zsytrf.f index 54e22cca1..a775a8758 100644 --- a/lapack-netlib/SRC/zsytrf.f +++ b/lapack-netlib/SRC/zsytrf.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * *> \par Further Details: @@ -182,10 +180,9 @@ * ===================================================================== SUBROUTINE ZSYTRF( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytrf_aa.f b/lapack-netlib/SRC/zsytrf_aa.f index e547c6a60..73d257cfe 100644 --- a/lapack-netlib/SRC/zsytrf_aa.f +++ b/lapack-netlib/SRC/zsytrf_aa.f @@ -125,17 +125,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRF_AA( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * @@ -460,6 +457,7 @@ END IF * 20 CONTINUE + WORK( 1 ) = LWKOPT RETURN * * End of ZSYTRF_AA diff --git a/lapack-netlib/SRC/zsytrf_aa_2stage.f b/lapack-netlib/SRC/zsytrf_aa_2stage.f index 67a1c1f6f..b731cb7a2 100644 --- a/lapack-netlib/SRC/zsytrf_aa_2stage.f +++ b/lapack-netlib/SRC/zsytrf_aa_2stage.f @@ -7,11 +7,11 @@ * *> \htmlonly *> Download ZSYTRF_AA_2STAGE + dependencies -*> +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -152,18 +152,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRF_AA_2STAGE( UPLO, N, A, LDA, TB, LTB, IPIV, $ IPIV2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zsytrf_rk.f b/lapack-netlib/SRC/zsytrf_rk.f index 2fabf9d1a..3b398ce6c 100644 --- a/lapack-netlib/SRC/zsytrf_rk.f +++ b/lapack-netlib/SRC/zsytrf_rk.f @@ -229,8 +229,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * *> \par Further Details: @@ -259,10 +257,9 @@ SUBROUTINE ZSYTRF_RK( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytrf_rook.f b/lapack-netlib/SRC/zsytrf_rook.f index 3fe69b334..84a654fb8 100644 --- a/lapack-netlib/SRC/zsytrf_rook.f +++ b/lapack-netlib/SRC/zsytrf_rook.f @@ -146,8 +146,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16SYcomputational * *> \par Further Details: @@ -208,10 +206,9 @@ * ===================================================================== SUBROUTINE ZSYTRF_ROOK( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytri.f b/lapack-netlib/SRC/zsytri.f index 233026a12..32c7bf5cb 100644 --- a/lapack-netlib/SRC/zsytri.f +++ b/lapack-netlib/SRC/zsytri.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRI( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytri2.f b/lapack-netlib/SRC/zsytri2.f index 9929eb2c6..5417377f0 100644 --- a/lapack-netlib/SRC/zsytri2.f +++ b/lapack-netlib/SRC/zsytri2.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRI2( UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytri2x.f b/lapack-netlib/SRC/zsytri2x.f index 4feb4d563..61814ae6d 100644 --- a/lapack-netlib/SRC/zsytri2x.f +++ b/lapack-netlib/SRC/zsytri2x.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRI2X( UPLO, N, A, LDA, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO @@ -234,7 +231,7 @@ DO WHILE ( K .LE. N ) IF( IPIV( K ).GT.0 ) THEN * 1 x 1 diagonal NNB - WORK(K,INVD) = 1/ A( K, K ) + WORK(K,INVD) = ONE / A( K, K ) WORK(K,INVD+1) = 0 K=K+1 ELSE @@ -411,7 +408,7 @@ DO WHILE ( K .GE. 1 ) IF( IPIV( K ).GT.0 ) THEN * 1 x 1 diagonal NNB - WORK(K,INVD) = 1/ A( K, K ) + WORK(K,INVD) = ONE / A( K, K ) WORK(K,INVD+1) = 0 K=K-1 ELSE diff --git a/lapack-netlib/SRC/zsytri_3.f b/lapack-netlib/SRC/zsytri_3.f index dc38e8547..4503703d3 100644 --- a/lapack-netlib/SRC/zsytri_3.f +++ b/lapack-netlib/SRC/zsytri_3.f @@ -152,8 +152,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -170,10 +168,9 @@ SUBROUTINE ZSYTRI_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytri_3x.f b/lapack-netlib/SRC/zsytri_3x.f index a94392923..5bbd8e309 100644 --- a/lapack-netlib/SRC/zsytri_3x.f +++ b/lapack-netlib/SRC/zsytri_3x.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -159,10 +157,9 @@ * ===================================================================== SUBROUTINE ZSYTRI_3X( UPLO, N, A, LDA, E, IPIV, WORK, NB, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytri_rook.f b/lapack-netlib/SRC/zsytri_rook.f index 77aba2540..41a2f040f 100644 --- a/lapack-netlib/SRC/zsytri_rook.f +++ b/lapack-netlib/SRC/zsytri_rook.f @@ -107,8 +107,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -129,10 +127,9 @@ * ===================================================================== SUBROUTINE ZSYTRI_ROOK( UPLO, N, A, LDA, IPIV, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytrs.f b/lapack-netlib/SRC/zsytrs.f index c9fcb4afc..81c27f72e 100644 --- a/lapack-netlib/SRC/zsytrs.f +++ b/lapack-netlib/SRC/zsytrs.f @@ -113,17 +113,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRS( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytrs2.f b/lapack-netlib/SRC/zsytrs2.f index 6e9cca425..38986f80a 100644 --- a/lapack-netlib/SRC/zsytrs2.f +++ b/lapack-netlib/SRC/zsytrs2.f @@ -124,18 +124,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRS2( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytrs_3.f b/lapack-netlib/SRC/zsytrs_3.f index 673687532..b9e5cbac1 100644 --- a/lapack-netlib/SRC/zsytrs_3.f +++ b/lapack-netlib/SRC/zsytrs_3.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -165,10 +163,9 @@ SUBROUTINE ZSYTRS_3( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zsytrs_aa.f b/lapack-netlib/SRC/zsytrs_aa.f index 0f0664009..4dbd06776 100644 --- a/lapack-netlib/SRC/zsytrs_aa.f +++ b/lapack-netlib/SRC/zsytrs_aa.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRS_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zsytrs_aa_2stage.f b/lapack-netlib/SRC/zsytrs_aa_2stage.f index bf060b2d3..d43f0fa12 100644 --- a/lapack-netlib/SRC/zsytrs_aa_2stage.f +++ b/lapack-netlib/SRC/zsytrs_aa_2stage.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZSYTRS_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, $ IPIV, IPIV2, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zsytrs_rook.f b/lapack-netlib/SRC/zsytrs_rook.f index 093433636..c66a72379 100644 --- a/lapack-netlib/SRC/zsytrs_rook.f +++ b/lapack-netlib/SRC/zsytrs_rook.f @@ -113,8 +113,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -136,10 +134,9 @@ SUBROUTINE ZSYTRS_ROOK( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ztbcon.f b/lapack-netlib/SRC/ztbcon.f index ceff2b914..ed1f3df9f 100644 --- a/lapack-netlib/SRC/ztbcon.f +++ b/lapack-netlib/SRC/ztbcon.f @@ -135,18 +135,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTBCON( NORM, UPLO, DIAG, N, KD, AB, LDAB, RCOND, WORK, $ RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/ztbrfs.f b/lapack-netlib/SRC/ztbrfs.f index 50d9a57be..0bd186566 100644 --- a/lapack-netlib/SRC/ztbrfs.f +++ b/lapack-netlib/SRC/ztbrfs.f @@ -180,18 +180,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTBRFS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ztbtrs.f b/lapack-netlib/SRC/ztbtrs.f index 06de7d788..e12a7e798 100644 --- a/lapack-netlib/SRC/ztbtrs.f +++ b/lapack-netlib/SRC/ztbtrs.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTBTRS( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ztfsm.f b/lapack-netlib/SRC/ztfsm.f index 8d4af937a..538da4f07 100644 --- a/lapack-netlib/SRC/ztfsm.f +++ b/lapack-netlib/SRC/ztfsm.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -298,10 +296,9 @@ SUBROUTINE ZTFSM( TRANSR, SIDE, UPLO, TRANS, DIAG, M, N, ALPHA, A, $ B, LDB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, DIAG, SIDE, TRANS, UPLO diff --git a/lapack-netlib/SRC/ztftri.f b/lapack-netlib/SRC/ztftri.f index 4bc5cfec1..7fbd81cdd 100644 --- a/lapack-netlib/SRC/ztftri.f +++ b/lapack-netlib/SRC/ztftri.f @@ -106,8 +106,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -221,10 +219,9 @@ * ===================================================================== SUBROUTINE ZTFTRI( TRANSR, UPLO, DIAG, N, A, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO, DIAG diff --git a/lapack-netlib/SRC/ztfttp.f b/lapack-netlib/SRC/ztfttp.f index f402ca165..9f5c4866a 100644 --- a/lapack-netlib/SRC/ztfttp.f +++ b/lapack-netlib/SRC/ztfttp.f @@ -93,8 +93,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -208,10 +206,9 @@ * ===================================================================== SUBROUTINE ZTFTTP( TRANSR, UPLO, N, ARF, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/ztfttr.f b/lapack-netlib/SRC/ztfttr.f index 39c7e54c6..511aca336 100644 --- a/lapack-netlib/SRC/ztfttr.f +++ b/lapack-netlib/SRC/ztfttr.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -216,10 +214,9 @@ * ===================================================================== SUBROUTINE ZTFTTR( TRANSR, UPLO, N, ARF, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/ztgevc.f b/lapack-netlib/SRC/ztgevc.f index 447fc1aef..23bd36ddb 100644 --- a/lapack-netlib/SRC/ztgevc.f +++ b/lapack-netlib/SRC/ztgevc.f @@ -211,18 +211,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16GEcomputational * * ===================================================================== SUBROUTINE ZTGEVC( SIDE, HOWMNY, SELECT, N, S, LDS, P, LDP, VL, $ LDVL, VR, LDVR, MM, M, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/ztgex2.f b/lapack-netlib/SRC/ztgex2.f index ba80d7162..3c3705c66 100644 --- a/lapack-netlib/SRC/ztgex2.f +++ b/lapack-netlib/SRC/ztgex2.f @@ -153,8 +153,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEauxiliary * *> \par Further Details: @@ -190,10 +188,9 @@ SUBROUTINE ZTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, J1, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.1) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ @@ -218,10 +215,10 @@ PARAMETER ( WANDS = .TRUE. ) * .. * .. Local Scalars .. - LOGICAL DTRONG, WEAK + LOGICAL STRONG, WEAK INTEGER I, M - DOUBLE PRECISION CQ, CZ, EPS, SA, SB, SCALE, SMLNUM, SS, SUM, - $ THRESH, WS + DOUBLE PRECISION CQ, CZ, EPS, SA, SB, SCALE, SMLNUM, SUM, + $ THRESHA, THRESHB COMPLEX*16 CDUM, F, G, SQ, SZ * .. * .. Local Arrays .. @@ -248,7 +245,7 @@ * M = LDST WEAK = .FALSE. - DTRONG = .FALSE. + STRONG = .FALSE. * * Make a local copy of selected block in (A, B) * @@ -263,8 +260,12 @@ SUM = DBLE( CONE ) CALL ZLACPY( 'Full', M, M, S, LDST, WORK, M ) CALL ZLACPY( 'Full', M, M, T, LDST, WORK( M*M+1 ), M ) - CALL ZLASSQ( 2*M*M, WORK, 1, SCALE, SUM ) + CALL ZLASSQ( M*M, WORK, 1, SCALE, SUM ) SA = SCALE*SQRT( SUM ) + SCALE = DBLE( CZERO ) + SUM = DBLE( CONE ) + CALL ZLASSQ( M*M, WORK(M*M+1), 1, SCALE, SUM ) + SB = SCALE*SQRT( SUM ) * * THRES has been changed from * THRESH = MAX( TEN*EPS*SA, SMLNUM ) @@ -274,15 +275,16 @@ * "Bug" reported by Ondra Kamenik, confirmed by Julie Langou, fixed by * Jim Demmel and Guillaume Revy. See forum post 1783. * - THRESH = MAX( TWENTY*EPS*SA, SMLNUM ) + THRESHA = MAX( TWENTY*EPS*SA, SMLNUM ) + THRESHB = MAX( TWENTY*EPS*SB, SMLNUM ) * * Compute unitary QL and RQ that swap 1-by-1 and 1-by-1 blocks * using Givens rotations and perform the swap tentatively. * F = S( 2, 2 )*T( 1, 1 ) - T( 2, 2 )*S( 1, 1 ) G = S( 2, 2 )*T( 1, 2 ) - T( 2, 2 )*S( 1, 2 ) - SA = ABS( S( 2, 2 ) ) - SB = ABS( T( 2, 2 ) ) + SA = ABS( S( 2, 2 ) ) * ABS( T( 1, 1 ) ) + SB = ABS( S( 1, 1 ) ) * ABS( T( 2, 2 ) ) CALL ZLARTG( G, F, CZ, SZ, CDUM ) SZ = -SZ CALL ZROT( 2, S( 1, 1 ), 1, S( 1, 2 ), 1, CZ, DCONJG( SZ ) ) @@ -295,17 +297,20 @@ CALL ZROT( 2, S( 1, 1 ), LDST, S( 2, 1 ), LDST, CQ, SQ ) CALL ZROT( 2, T( 1, 1 ), LDST, T( 2, 1 ), LDST, CQ, SQ ) * -* Weak stability test: |S21| + |T21| <= O(EPS F-norm((S, T))) +* Weak stability test: |S21| <= O(EPS F-norm((A))) +* and |T21| <= O(EPS F-norm((B))) * - WS = ABS( S( 2, 1 ) ) + ABS( T( 2, 1 ) ) - WEAK = WS.LE.THRESH + WEAK = ABS( S( 2, 1 ) ).LE.THRESHA .AND. + $ ABS( T( 2, 1 ) ).LE.THRESHB IF( .NOT.WEAK ) $ GO TO 20 * IF( WANDS ) THEN * * Strong stability test: -* F-norm((A-QL**H*S*QR, B-QL**H*T*QR)) <= O(EPS*F-norm((A, B))) +* F-norm((A-QL**H*S*QR)) <= O(EPS*F-norm((A))) +* and +* F-norm((B-QL**H*T*QR)) <= O(EPS*F-norm((B))) * CALL ZLACPY( 'Full', M, M, S, LDST, WORK, M ) CALL ZLACPY( 'Full', M, M, T, LDST, WORK( M*M+1 ), M ) @@ -321,10 +326,14 @@ 10 CONTINUE SCALE = DBLE( CZERO ) SUM = DBLE( CONE ) - CALL ZLASSQ( 2*M*M, WORK, 1, SCALE, SUM ) - SS = SCALE*SQRT( SUM ) - DTRONG = SS.LE.THRESH - IF( .NOT.DTRONG ) + CALL ZLASSQ( M*M, WORK, 1, SCALE, SUM ) + SA = SCALE*SQRT( SUM ) + SCALE = DBLE( CZERO ) + SUM = DBLE( CONE ) + CALL ZLASSQ( M*M, WORK(M*M+1), 1, SCALE, SUM ) + SB = SCALE*SQRT( SUM ) + STRONG = SA.LE.THRESHA .AND. SB.LE.THRESHB + IF( .NOT.STRONG ) $ GO TO 20 END IF * diff --git a/lapack-netlib/SRC/ztgexc.f b/lapack-netlib/SRC/ztgexc.f index 7eac54cab..55677317c 100644 --- a/lapack-netlib/SRC/ztgexc.f +++ b/lapack-netlib/SRC/ztgexc.f @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16GEcomputational * *> \par Contributors: @@ -200,10 +198,9 @@ SUBROUTINE ZTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z, $ LDZ, IFST, ILST, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/lapack-netlib/SRC/ztgsen.f b/lapack-netlib/SRC/ztgsen.f index cb4afd5e8..25a5c6f4e 100644 --- a/lapack-netlib/SRC/ztgsen.f +++ b/lapack-netlib/SRC/ztgsen.f @@ -290,8 +290,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -433,10 +431,9 @@ $ ALPHA, BETA, Q, LDQ, Z, LDZ, M, PL, PR, DIF, $ WORK, LWORK, IWORK, LIWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL WANTQ, WANTZ diff --git a/lapack-netlib/SRC/ztgsja.f b/lapack-netlib/SRC/ztgsja.f index c80e33158..c1c5abdb1 100644 --- a/lapack-netlib/SRC/ztgsja.f +++ b/lapack-netlib/SRC/ztgsja.f @@ -351,8 +351,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -379,10 +377,9 @@ $ LDB, TOLA, TOLB, ALPHA, BETA, U, LDU, V, LDV, $ Q, LDQ, WORK, NCYCLE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOBQ, JOBU, JOBV diff --git a/lapack-netlib/SRC/ztgsna.f b/lapack-netlib/SRC/ztgsna.f index 77cbdcda0..11743eb2d 100644 --- a/lapack-netlib/SRC/ztgsna.f +++ b/lapack-netlib/SRC/ztgsna.f @@ -213,8 +213,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -311,10 +309,9 @@ $ LDVL, VR, LDVR, S, DIF, MM, M, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/lapack-netlib/SRC/ztgsy2.f b/lapack-netlib/SRC/ztgsy2.f index 028ddfd3d..ee26b5e7b 100644 --- a/lapack-netlib/SRC/ztgsy2.f +++ b/lapack-netlib/SRC/ztgsy2.f @@ -244,8 +244,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYauxiliary * *> \par Contributors: @@ -259,10 +257,9 @@ $ LDD, E, LDE, F, LDF, SCALE, RDSUM, RDSCAL, $ INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/ztgsyl.f b/lapack-netlib/SRC/ztgsyl.f index 2122a09ca..f613671c9 100644 --- a/lapack-netlib/SRC/ztgsyl.f +++ b/lapack-netlib/SRC/ztgsyl.f @@ -217,7 +217,7 @@ *> If 0 < SCALE < 1, C and F hold the solutions R and L, resp., *> to a slightly perturbed system but the input matrices A, B, *> D and E have not been changed. If SCALE = 0, R and L will -*> hold the solutions to the homogenious system with C = F = 0. +*> hold the solutions to the homogeneous system with C = F = 0. *> \endverbatim *> *> \param[out] WORK @@ -260,8 +260,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * *> \par Contributors: @@ -295,10 +293,9 @@ $ LDD, E, LDE, F, LDF, SCALE, DIF, WORK, LWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/SRC/ztpcon.f b/lapack-netlib/SRC/ztpcon.f index 41f1ae42c..e5d0b071d 100644 --- a/lapack-netlib/SRC/ztpcon.f +++ b/lapack-netlib/SRC/ztpcon.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTPCON( NORM, UPLO, DIAG, N, AP, RCOND, WORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/ztplqt.f b/lapack-netlib/SRC/ztplqt.f index bbf001044..a27d5e13a 100644 --- a/lapack-netlib/SRC/ztplqt.f +++ b/lapack-netlib/SRC/ztplqt.f @@ -6,12 +6,12 @@ * http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DTPQRT + dependencies -*> +*> Download ZTPLQT + dependencies +*> *> [TGZ] -*> +*> *> [ZIP] -*> +*> *> [TXT] *> \endhtmlonly * @@ -34,7 +34,7 @@ *> *> \verbatim *> -*> DTPLQT computes a blocked LQ factorization of a complex +*> ZTPLQT computes a blocked LQ 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. @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ SUBROUTINE ZTPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, MB diff --git a/lapack-netlib/SRC/ztplqt2.f b/lapack-netlib/SRC/ztplqt2.f index 9fecfddfd..777e5f57e 100644 --- a/lapack-netlib/SRC/ztplqt2.f +++ b/lapack-netlib/SRC/ztplqt2.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -177,10 +175,9 @@ * ===================================================================== SUBROUTINE ZTPLQT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/lapack-netlib/SRC/ztpmlqt.f b/lapack-netlib/SRC/ztpmlqt.f index cc333f5a2..c63c05bf8 100644 --- a/lapack-netlib/SRC/ztpmlqt.f +++ b/lapack-netlib/SRC/ztpmlqt.f @@ -36,7 +36,7 @@ *> *> \verbatim *> -*> ZTPMLQT applies a complex orthogonal matrix Q obtained from a +*> ZTPMLQT applies a complex unitary 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 @@ -55,7 +55,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -89,7 +89,7 @@ *> MB is INTEGER *> The block size used for the storage of T. K >= MB >= 1. *> This must be the same value of MB used to generate T -*> in DTPLQT. +*> in ZTPLQT. *> \endverbatim *> *> \param[in] V @@ -97,22 +97,20 @@ *> V is COMPLEX*16 array, dimension (LDV,K) *> The i-th row must contain the vector which defines the *> elementary reflector H(i), for i = 1,2,...,k, as returned by -*> DTPLQT in B. See Further Details. +*> ZTPLQT in B. See Further Details. *> \endverbatim *> *> \param[in] LDV *> \verbatim *> LDV is INTEGER -*> The leading dimension of the array V. -*> If SIDE = 'L', LDV >= max(1,M); -*> if SIDE = 'R', LDV >= max(1,N). +*> The leading dimension of the array V. LDV >= K. *> \endverbatim *> *> \param[in] T *> \verbatim *> T is COMPLEX*16 array, dimension (LDT,K) *> The upper triangular factors of the block reflectors -*> as returned by DTPLQT, stored as a MB-by-K matrix. +*> as returned by ZTPLQT, stored as a MB-by-K matrix. *> \endverbatim *> *> \param[in] LDT @@ -135,8 +133,8 @@ *> \verbatim *> LDA is INTEGER *> The leading dimension of the array A. -*> If SIDE = 'L', LDC >= max(1,K); -*> If SIDE = 'R', LDC >= max(1,M). +*> If SIDE = 'L', LDA >= max(1,K); +*> If SIDE = 'R', LDA >= max(1,M). *> \endverbatim *> *> \param[in,out] B @@ -175,8 +173,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -201,7 +197,7 @@ *> *> If SIDE = 'R': C = [A B] where A is M-by-K, B is M-by-N and V is K-by-N. *> -*> The real orthogonal matrix Q is formed from V and T. +*> The complex unitary matrix Q is formed from V and T. *> *> If TRANS='N' and SIDE='L', C is on exit replaced with Q * C. *> @@ -216,10 +212,9 @@ SUBROUTINE ZTPMLQT( SIDE, TRANS, M, N, K, L, MB, V, LDV, T, LDT, $ A, LDA, B, LDB, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/ztpmqrt.f b/lapack-netlib/SRC/ztpmqrt.f index 530dca458..a31bca76f 100644 --- a/lapack-netlib/SRC/ztpmqrt.f +++ b/lapack-netlib/SRC/ztpmqrt.f @@ -55,7 +55,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -175,8 +175,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -216,10 +214,9 @@ SUBROUTINE ZTPMQRT( SIDE, TRANS, M, N, K, L, NB, V, LDV, T, LDT, $ A, LDA, B, LDB, WORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/ztpqrt.f b/lapack-netlib/SRC/ztpqrt.f index c6f186bd0..83ff7409c 100644 --- a/lapack-netlib/SRC/ztpqrt.f +++ b/lapack-netlib/SRC/ztpqrt.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ SUBROUTINE ZTPQRT( M, N, L, NB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, NB diff --git a/lapack-netlib/SRC/ztpqrt2.f b/lapack-netlib/SRC/ztpqrt2.f index 2d9300b60..651ac4533 100644 --- a/lapack-netlib/SRC/ztpqrt2.f +++ b/lapack-netlib/SRC/ztpqrt2.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -173,10 +171,9 @@ * ===================================================================== SUBROUTINE ZTPQRT2( M, N, L, A, LDA, B, LDB, T, LDT, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L diff --git a/lapack-netlib/SRC/ztprfb.f b/lapack-netlib/SRC/ztprfb.f index f96c237ee..2edbd0566 100644 --- a/lapack-netlib/SRC/ztprfb.f +++ b/lapack-netlib/SRC/ztprfb.f @@ -194,8 +194,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERauxiliary * *> \par Further Details: @@ -251,10 +249,9 @@ 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.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIRECT, SIDE, STOREV, TRANS diff --git a/lapack-netlib/SRC/ztprfs.f b/lapack-netlib/SRC/ztprfs.f index d6a29d40c..485694a56 100644 --- a/lapack-netlib/SRC/ztprfs.f +++ b/lapack-netlib/SRC/ztprfs.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTPRFS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ztptri.f b/lapack-netlib/SRC/ztptri.f index 35388194c..31284ad63 100644 --- a/lapack-netlib/SRC/ztptri.f +++ b/lapack-netlib/SRC/ztptri.f @@ -91,8 +91,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -117,10 +115,9 @@ * ===================================================================== SUBROUTINE ZTPTRI( UPLO, DIAG, N, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/ztptrs.f b/lapack-netlib/SRC/ztptrs.f index c1a852c7b..2d7093313 100644 --- a/lapack-netlib/SRC/ztptrs.f +++ b/lapack-netlib/SRC/ztptrs.f @@ -123,17 +123,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTPTRS( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ztpttf.f b/lapack-netlib/SRC/ztpttf.f index 9dfc795ee..bdd107d4d 100644 --- a/lapack-netlib/SRC/ztpttf.f +++ b/lapack-netlib/SRC/ztpttf.f @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -207,10 +205,9 @@ * ===================================================================== SUBROUTINE ZTPTTF( TRANSR, UPLO, N, AP, ARF, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/ztpttr.f b/lapack-netlib/SRC/ztpttr.f index 17ebc0a25..1529e0251 100644 --- a/lapack-netlib/SRC/ztpttr.f +++ b/lapack-netlib/SRC/ztpttr.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTPTTR( UPLO, N, AP, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ztrcon.f b/lapack-netlib/SRC/ztrcon.f index e7cc1968d..051ab1b7c 100644 --- a/lapack-netlib/SRC/ztrcon.f +++ b/lapack-netlib/SRC/ztrcon.f @@ -129,18 +129,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTRCON( NORM, UPLO, DIAG, N, A, LDA, RCOND, WORK, $ RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, NORM, UPLO diff --git a/lapack-netlib/SRC/ztrevc.f b/lapack-netlib/SRC/ztrevc.f index ea925dda8..38411757d 100644 --- a/lapack-netlib/SRC/ztrevc.f +++ b/lapack-netlib/SRC/ztrevc.f @@ -196,8 +196,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -218,10 +216,9 @@ SUBROUTINE ZTREVC( SIDE, HOWMNY, SELECT, N, T, LDT, VL, LDVL, VR, $ LDVR, MM, M, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE diff --git a/lapack-netlib/SRC/ztrevc3.f b/lapack-netlib/SRC/ztrevc3.f index 36f7d8274..6300e80ae 100644 --- a/lapack-netlib/SRC/ztrevc3.f +++ b/lapack-netlib/SRC/ztrevc3.f @@ -222,10 +222,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* @precisions fortran z -> c -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -247,10 +243,9 @@ $ LDVR, MM, M, WORK, LWORK, RWORK, LRWORK, INFO) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER HOWMNY, SIDE @@ -291,13 +286,13 @@ $ ZGEMM, DLABAD, ZLASET, ZLACPY * .. * .. Intrinsic Functions .. - INTRINSIC ABS, DBLE, DCMPLX, CONJG, AIMAG, MAX + INTRINSIC ABS, DBLE, DCMPLX, CONJG, DIMAG, MAX * .. * .. Statement Functions .. DOUBLE PRECISION CABS1 * .. * .. Statement Function definitions .. - CABS1( CDUM ) = ABS( DBLE( CDUM ) ) + ABS( AIMAG( CDUM ) ) + CABS1( CDUM ) = ABS( DBLE( CDUM ) ) + ABS( DIMAG( CDUM ) ) * .. * .. Executable Statements .. * diff --git a/lapack-netlib/SRC/ztrexc.f b/lapack-netlib/SRC/ztrexc.f index 4cf352e64..b92e63efa 100644 --- a/lapack-netlib/SRC/ztrexc.f +++ b/lapack-netlib/SRC/ztrexc.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ diff --git a/lapack-netlib/SRC/ztrrfs.f b/lapack-netlib/SRC/ztrrfs.f index 42c2592e4..8c1a4c069 100644 --- a/lapack-netlib/SRC/ztrrfs.f +++ b/lapack-netlib/SRC/ztrrfs.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTRRFS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, FERR, BERR, WORK, RWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ztrsen.f b/lapack-netlib/SRC/ztrsen.f index e033ca523..33f7e5b95 100644 --- a/lapack-netlib/SRC/ztrsen.f +++ b/lapack-netlib/SRC/ztrsen.f @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -264,10 +262,9 @@ SUBROUTINE ZTRSEN( JOB, COMPQ, SELECT, N, T, LDT, Q, LDQ, W, M, S, $ SEP, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER COMPQ, JOB diff --git a/lapack-netlib/SRC/ztrsna.f b/lapack-netlib/SRC/ztrsna.f index 97a42a516..eaa2ef717 100644 --- a/lapack-netlib/SRC/ztrsna.f +++ b/lapack-netlib/SRC/ztrsna.f @@ -197,8 +197,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -249,10 +247,9 @@ $ LDVR, S, SEP, MM, M, WORK, LDWORK, RWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER HOWMNY, JOB diff --git a/lapack-netlib/SRC/ztrsyl.f b/lapack-netlib/SRC/ztrsyl.f index 6fd0354a8..27e21dd9d 100644 --- a/lapack-netlib/SRC/ztrsyl.f +++ b/lapack-netlib/SRC/ztrsyl.f @@ -149,18 +149,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16SYcomputational * * ===================================================================== SUBROUTINE ZTRSYL( TRANA, TRANB, ISGN, M, N, A, LDA, B, LDB, C, $ LDC, SCALE, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANA, TRANB diff --git a/lapack-netlib/SRC/ztrti2.f b/lapack-netlib/SRC/ztrti2.f index 87b871793..d9249d21c 100644 --- a/lapack-netlib/SRC/ztrti2.f +++ b/lapack-netlib/SRC/ztrti2.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTRTI2( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/ztrtri.f b/lapack-netlib/SRC/ztrtri.f index cb5bd450d..6b9134dfb 100644 --- a/lapack-netlib/SRC/ztrtri.f +++ b/lapack-netlib/SRC/ztrtri.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTRTRI( UPLO, DIAG, N, A, LDA, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/SRC/ztrtrs.f b/lapack-netlib/SRC/ztrtrs.f index a5c36bc64..ad7f965e2 100644 --- a/lapack-netlib/SRC/ztrtrs.f +++ b/lapack-netlib/SRC/ztrtrs.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTRTRS( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/SRC/ztrttf.f b/lapack-netlib/SRC/ztrttf.f index f18312b08..277d72456 100644 --- a/lapack-netlib/SRC/ztrttf.f +++ b/lapack-netlib/SRC/ztrttf.f @@ -101,8 +101,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -216,10 +214,9 @@ * ===================================================================== SUBROUTINE ZTRTTF( TRANSR, UPLO, N, A, LDA, ARF, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSR, UPLO diff --git a/lapack-netlib/SRC/ztrttp.f b/lapack-netlib/SRC/ztrttp.f index 52663b582..ba9e8ce91 100644 --- a/lapack-netlib/SRC/ztrttp.f +++ b/lapack-netlib/SRC/ztrttp.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZTRTTP( UPLO, N, A, LDA, AP, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/ztzrzf.f b/lapack-netlib/SRC/ztzrzf.f index d806dc073..46d39e749 100644 --- a/lapack-netlib/SRC/ztzrzf.f +++ b/lapack-netlib/SRC/ztzrzf.f @@ -116,8 +116,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -143,7 +141,7 @@ *> V = ( I 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, +*> is the output stored in A on exit from ZTZRZF, *> and tau(k) is the kth element of the array TAU. *> *> \endverbatim @@ -151,10 +149,9 @@ * ===================================================================== SUBROUTINE ZTZRZF( M, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER INFO, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zunbdb.f b/lapack-netlib/SRC/zunbdb.f index d06dacd86..281ec6e45 100644 --- a/lapack-netlib/SRC/zunbdb.f +++ b/lapack-netlib/SRC/zunbdb.f @@ -255,8 +255,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -287,10 +285,9 @@ $ X21, LDX21, X22, LDX22, THETA, PHI, TAUP1, $ TAUP2, TAUQ1, TAUQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIGNS, TRANS diff --git a/lapack-netlib/SRC/zunbdb1.f b/lapack-netlib/SRC/zunbdb1.f index 039d160c1..767788a74 100644 --- a/lapack-netlib/SRC/zunbdb1.f +++ b/lapack-netlib/SRC/zunbdb1.f @@ -174,8 +174,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -203,10 +201,9 @@ SUBROUTINE ZUNBDB1( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/zunbdb2.f b/lapack-netlib/SRC/zunbdb2.f index 8bfca46f6..412d8d8d0 100644 --- a/lapack-netlib/SRC/zunbdb2.f +++ b/lapack-netlib/SRC/zunbdb2.f @@ -172,8 +172,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -201,10 +199,9 @@ SUBROUTINE ZUNBDB2( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/zunbdb3.f b/lapack-netlib/SRC/zunbdb3.f index 523aee55d..74083e41a 100644 --- a/lapack-netlib/SRC/zunbdb3.f +++ b/lapack-netlib/SRC/zunbdb3.f @@ -172,8 +172,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -201,10 +199,9 @@ SUBROUTINE ZUNBDB3( M, P, Q, X11, LDX11, X21, LDX21, THETA, PHI, $ TAUP1, TAUP2, TAUQ1, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/zunbdb4.f b/lapack-netlib/SRC/zunbdb4.f index 026f5a558..b1fcd8bd0 100644 --- a/lapack-netlib/SRC/zunbdb4.f +++ b/lapack-netlib/SRC/zunbdb4.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complex16OTHERcomputational * *> \par Further Details: @@ -213,10 +211,9 @@ $ TAUP1, TAUP2, TAUQ1, PHANTOM, WORK, LWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.8.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INFO, LWORK, M, P, Q, LDX11, LDX21 diff --git a/lapack-netlib/SRC/zunbdb5.f b/lapack-netlib/SRC/zunbdb5.f index be708b794..23174fe50 100644 --- a/lapack-netlib/SRC/zunbdb5.f +++ b/lapack-netlib/SRC/zunbdb5.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNBDB5( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, $ LDQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, diff --git a/lapack-netlib/SRC/zunbdb6.f b/lapack-netlib/SRC/zunbdb6.f index c4ccbfb10..ec681b597 100644 --- a/lapack-netlib/SRC/zunbdb6.f +++ b/lapack-netlib/SRC/zunbdb6.f @@ -146,18 +146,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2, $ LDQ2, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. INTEGER INCX1, INCX2, INFO, LDQ1, LDQ2, LWORK, M1, M2, diff --git a/lapack-netlib/SRC/zuncsd.f b/lapack-netlib/SRC/zuncsd.f index db53f93d8..cc45bbc70 100644 --- a/lapack-netlib/SRC/zuncsd.f +++ b/lapack-netlib/SRC/zuncsd.f @@ -308,8 +308,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== @@ -320,10 +318,9 @@ $ LDV2T, WORK, LWORK, RWORK, LRWORK, $ IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS diff --git a/lapack-netlib/SRC/zuncsd2by1.f b/lapack-netlib/SRC/zuncsd2by1.f index 56285a191..2d861c2cc 100644 --- a/lapack-netlib/SRC/zuncsd2by1.f +++ b/lapack-netlib/SRC/zuncsd2by1.f @@ -189,9 +189,10 @@ *> The dimension of the array WORK. *> *> 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 -*> message related to LWORK is issued by XERBLA. +*> only calculates the optimal size of the WORK and RWORK +*> arrays, returns this value as the first entry of the WORK +*> and RWORK array, respectively, and no error message related +*> to LWORK or LRWORK is issued by XERBLA. *> \endverbatim *> *> \param[out] RWORK @@ -211,9 +212,10 @@ *> 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 -*> message related to LRWORK is issued by XERBLA. +*> only calculates the optimal size of the WORK and RWORK +*> arrays, returns this value as the first entry of the WORK +*> and RWORK array, respectively, and no error message related +*> to LWORK or LRWORK is issued by XERBLA. *> \endverbatim * *> \param[out] IWORK @@ -244,8 +246,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date July 2012 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== @@ -254,10 +254,9 @@ $ LDV1T, WORK, LWORK, RWORK, LRWORK, IWORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* July 2012 * * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T @@ -312,7 +311,7 @@ WANTU1 = LSAME( JOBU1, 'Y' ) WANTU2 = LSAME( JOBU2, 'Y' ) WANTV1T = LSAME( JOBV1T, 'Y' ) - LQUERY = LWORK .EQ. -1 + LQUERY = ( LWORK.EQ.-1 ) .OR. ( LRWORK.EQ.-1 ) * IF( M .LT. 0 ) THEN INFO = -4 @@ -511,6 +510,9 @@ IF( LWORK .LT. LWORKMIN .AND. .NOT.LQUERY ) THEN INFO = -19 END IF + IF( LRWORK .LT. LRWORKMIN .AND. .NOT.LQUERY ) THEN + INFO = -21 + END IF END IF IF( INFO .NE. 0 ) THEN CALL XERBLA( 'ZUNCSD2BY1', -INFO ) @@ -564,8 +566,8 @@ $ RWORK(IPHI), U1, LDU1, U2, LDU2, V1T, LDV1T, CDUM, $ 1, RWORK(IB11D), RWORK(IB11E), RWORK(IB12D), $ RWORK(IB12E), RWORK(IB21D), RWORK(IB21E), - $ RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), LBBCSD, - $ CHILDINFO ) + $ RWORK(IB22D), RWORK(IB22E), RWORK(IBBCSD), + $ LRWORK-IBBCSD+1, CHILDINFO ) * * Permute rows and columns to place zero submatrices in * preferred positions @@ -706,6 +708,9 @@ * * Accumulate Householder reflectors * + IF( WANTU2 .AND. M-P .GT. 0 ) THEN + CALL ZCOPY( M-P, WORK(IORBDB+P), 1, U2, 1 ) + END IF IF( WANTU1 .AND. P .GT. 0 ) THEN CALL ZCOPY( P, WORK(IORBDB), 1, U1, 1 ) DO J = 2, P @@ -717,7 +722,6 @@ $ WORK(IORGQR), LORGQR, CHILDINFO ) END IF IF( WANTU2 .AND. M-P .GT. 0 ) THEN - CALL ZCOPY( M-P, WORK(IORBDB+P), 1, U2, 1 ) DO J = 2, M-P U2(1,J) = ZERO END DO diff --git a/lapack-netlib/SRC/zung2l.f b/lapack-netlib/SRC/zung2l.f index 1a48c4d6b..add5cb946 100644 --- a/lapack-netlib/SRC/zung2l.f +++ b/lapack-netlib/SRC/zung2l.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNG2L( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/zung2r.f b/lapack-netlib/SRC/zung2r.f index 4a3fed0f0..2823b7ebd 100644 --- a/lapack-netlib/SRC/zung2r.f +++ b/lapack-netlib/SRC/zung2r.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNG2R( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/zungbr.f b/lapack-netlib/SRC/zungbr.f index c1c35822c..3dfca43be 100644 --- a/lapack-netlib/SRC/zungbr.f +++ b/lapack-netlib/SRC/zungbr.f @@ -150,17 +150,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16GBcomputational * * ===================================================================== SUBROUTINE ZUNGBR( VECT, M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER VECT @@ -236,7 +233,7 @@ END IF END IF END IF - LWKOPT = WORK( 1 ) + LWKOPT = DBLE( WORK( 1 ) ) LWKOPT = MAX (LWKOPT, MN) END IF * diff --git a/lapack-netlib/SRC/zunghr.f b/lapack-netlib/SRC/zunghr.f index 084ecebcd..c112db193 100644 --- a/lapack-netlib/SRC/zunghr.f +++ b/lapack-netlib/SRC/zunghr.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNGHR( N, ILO, IHI, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LWORK, N diff --git a/lapack-netlib/SRC/zungl2.f b/lapack-netlib/SRC/zungl2.f index 0774cc440..e7a0b5960 100644 --- a/lapack-netlib/SRC/zungl2.f +++ b/lapack-netlib/SRC/zungl2.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNGL2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/zunglq.f b/lapack-netlib/SRC/zunglq.f index b0e502832..aca6bc6e7 100644 --- a/lapack-netlib/SRC/zunglq.f +++ b/lapack-netlib/SRC/zunglq.f @@ -120,17 +120,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zungql.f b/lapack-netlib/SRC/zungql.f index c63a47db5..1804ca65f 100644 --- a/lapack-netlib/SRC/zungql.f +++ b/lapack-netlib/SRC/zungql.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zungqr.f b/lapack-netlib/SRC/zungqr.f index 5f95b64e8..b3f2c4507 100644 --- a/lapack-netlib/SRC/zungqr.f +++ b/lapack-netlib/SRC/zungqr.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zungr2.f b/lapack-netlib/SRC/zungr2.f index c65149dd6..034ff4fe4 100644 --- a/lapack-netlib/SRC/zungr2.f +++ b/lapack-netlib/SRC/zungr2.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNGR2( M, N, K, A, LDA, TAU, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, M, N diff --git a/lapack-netlib/SRC/zungrq.f b/lapack-netlib/SRC/zungrq.f index 56cd3271f..40b3b2392 100644 --- a/lapack-netlib/SRC/zungrq.f +++ b/lapack-netlib/SRC/zungrq.f @@ -121,17 +121,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, LWORK, M, N diff --git a/lapack-netlib/SRC/zungtr.f b/lapack-netlib/SRC/zungtr.f index 728854332..01e100a8c 100644 --- a/lapack-netlib/SRC/zungtr.f +++ b/lapack-netlib/SRC/zungtr.f @@ -116,17 +116,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNGTR( UPLO, N, A, LDA, TAU, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zungtsqr.f b/lapack-netlib/SRC/zungtsqr.f index 7b04e9a29..4f2d7dfdd 100644 --- a/lapack-netlib/SRC/zungtsqr.f +++ b/lapack-netlib/SRC/zungtsqr.f @@ -13,7 +13,8 @@ *> [ZIP] *> *> [TXT] -*> +*> \endhtmlonly +* * Definition: * =========== * @@ -59,7 +60,7 @@ *> \param[in] MB *> \verbatim *> MB is INTEGER -*> The row block size used by DLATSQR to return +*> The row block size used by ZLATSQR to return *> arrays A and T. MB > N. *> (Note that if MB > M, then M is used instead of MB *> as the row block size). @@ -155,9 +156,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* -*> \ingroup comlex16OTHERcomputational +*> \ingroup complex16OTHERcomputational * *> \par Contributors: * ================== @@ -175,10 +174,9 @@ $ INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, LWORK, M, N, MB, NB diff --git a/lapack-netlib/SRC/zunhr_col.f b/lapack-netlib/SRC/zunhr_col.f index 71039fddb..3c7b2deb1 100644 --- a/lapack-netlib/SRC/zunhr_col.f +++ b/lapack-netlib/SRC/zunhr_col.f @@ -12,8 +12,9 @@ *> *> [ZIP] *> -*> [TXT] -*> +*> [TXT] \endhtmlonly +* * Definition: * =========== * @@ -112,7 +113,7 @@ *> blocks (same format as the output T in ZGEQRT). *> The matrix T and the matrix V stored on output in A *> implicitly define Q_out. NOTE: The lower triangles -*> below the upper-triangular blcoks will be filled with +*> below the upper-triangular blocks will be filled with *> zeros. See Further Details. *> \endverbatim *> @@ -217,11 +218,11 @@ *> If Q_in is the result of doing a QR factorization *> B = Q_in * R_in, then: *> -*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = O_out * R_out. +*> B = (Q_out*S) * R_in = Q_out * (S * R_in) = Q_out * R_out. *> *> So if one wants to interpret Q_out as the result -*> of the QR factorization of B, then corresponding R_out -*> should be obtained by R_out = S * R_in, i.e. some rows of R_in +*> of the QR factorization of B, then the corresponding R_out +*> should be equal to R_out = S * R_in, i.e. some rows of R_in *> should be multiplied by -1. *> *> For the details of the algorithm, see [1]. @@ -240,8 +241,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -259,10 +258,9 @@ SUBROUTINE ZUNHR_COL( M, N, NB, A, LDA, T, LDT, D, INFO ) IMPLICIT NONE * -* -- LAPACK computational routine (version 3.9.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDT, M, N, NB diff --git a/lapack-netlib/SRC/zunm22.f b/lapack-netlib/SRC/zunm22.f index f612e8fac..cedcea73a 100644 --- a/lapack-netlib/SRC/zunm22.f +++ b/lapack-netlib/SRC/zunm22.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complexOTHERcomputational * * ===================================================================== SUBROUTINE ZUNM22( SIDE, TRANS, M, N, N1, N2, Q, LDQ, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.1) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * IMPLICIT NONE * diff --git a/lapack-netlib/SRC/zunm2l.f b/lapack-netlib/SRC/zunm2l.f index 7e9a5cb71..48c2dbfc0 100644 --- a/lapack-netlib/SRC/zunm2l.f +++ b/lapack-netlib/SRC/zunm2l.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNM2L( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/zunm2r.f b/lapack-netlib/SRC/zunm2r.f index e59caf965..aec5a8bca 100644 --- a/lapack-netlib/SRC/zunm2r.f +++ b/lapack-netlib/SRC/zunm2r.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/zunmbr.f b/lapack-netlib/SRC/zunmbr.f index 727aaeba1..b43e881b2 100644 --- a/lapack-netlib/SRC/zunmbr.f +++ b/lapack-netlib/SRC/zunmbr.f @@ -188,18 +188,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNMBR( VECT, SIDE, TRANS, M, N, K, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, VECT @@ -241,13 +238,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M - END IF - IF( M.EQ.0 .OR. N.EQ.0 ) THEN - NW = 0 + NW = MAX( 1, M ) END IF IF( .NOT.APPLYQ .AND. .NOT.LSAME( VECT, 'P' ) ) THEN INFO = -1 @@ -267,12 +261,12 @@ INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * IF( INFO.EQ.0 ) THEN - IF( NW.GT.0 ) THEN + IF( M.GT.0 .AND. N.GT.0 ) THEN IF( APPLYQ ) THEN IF( LEFT ) THEN NB = ILAENV( 1, 'ZUNMQR', SIDE // TRANS, M-1, N, M-1, @@ -290,7 +284,7 @@ $ -1 ) END IF END IF - LWKOPT = MAX( 1, NW*NB ) + LWKOPT = NW*NB ELSE LWKOPT = 1 END IF diff --git a/lapack-netlib/SRC/zunmhr.f b/lapack-netlib/SRC/zunmhr.f index 49b7943e8..9ece71c5e 100644 --- a/lapack-netlib/SRC/zunmhr.f +++ b/lapack-netlib/SRC/zunmhr.f @@ -170,18 +170,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNMHR( SIDE, TRANS, M, N, ILO, IHI, A, LDA, TAU, C, $ LDC, WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -221,10 +218,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -243,7 +240,7 @@ INFO = -8 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -11 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -13 END IF * @@ -253,7 +250,7 @@ ELSE NB = ILAENV( 1, 'ZUNMQR', SIDE // TRANS, M, NH, NH, -1 ) END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/zunml2.f b/lapack-netlib/SRC/zunml2.f index cb1eaf229..f47f768b0 100644 --- a/lapack-netlib/SRC/zunml2.f +++ b/lapack-netlib/SRC/zunml2.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/zunmlq.f b/lapack-netlib/SRC/zunmlq.f index c12c06312..f2fb31544 100644 --- a/lapack-netlib/SRC/zunmlq.f +++ b/lapack-netlib/SRC/zunmlq.f @@ -159,18 +159,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNMLQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -217,10 +214,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -236,7 +233,7 @@ INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -246,7 +243,7 @@ * NB = MIN( NBMAX, ILAENV( 1, 'ZUNMLQ', SIDE // TRANS, M, N, K, $ -1 ) ) - LWKOPT = MAX( 1, NW )*NB + TSIZE + LWKOPT = NW*NB + TSIZE WORK( 1 ) = LWKOPT END IF * @@ -267,7 +264,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'ZUNMLQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/zunmql.f b/lapack-netlib/SRC/zunmql.f index abdc0e5db..06353a0c7 100644 --- a/lapack-netlib/SRC/zunmql.f +++ b/lapack-netlib/SRC/zunmql.f @@ -64,7 +64,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -136,7 +136,7 @@ *> The dimension of the array WORK. *> If SIDE = 'L', LWORK >= max(1,N); *> if SIDE = 'R', LWORK >= max(1,M). -*> For good performance, LWORK should genreally be larger. +*> For good performance, LWORK should generally be larger. *> *> If LWORK = -1, then a workspace query is assumed; the routine *> only calculates the optimal size of the WORK array, returns @@ -159,18 +159,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNMQL( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -269,7 +266,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'ZUNMQL', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/zunmqr.f b/lapack-netlib/SRC/zunmqr.f index e60f10a82..2ae205f4f 100644 --- a/lapack-netlib/SRC/zunmqr.f +++ b/lapack-netlib/SRC/zunmqr.f @@ -159,18 +159,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNMQR( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -216,10 +213,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -235,7 +232,7 @@ INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -245,7 +242,7 @@ * NB = MIN( NBMAX, ILAENV( 1, 'ZUNMQR', SIDE // TRANS, M, N, K, $ -1 ) ) - LWKOPT = MAX( 1, NW )*NB + TSIZE + LWKOPT = NW*NB + TSIZE WORK( 1 ) = LWKOPT END IF * @@ -266,7 +263,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'ZUNMQR', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/zunmr2.f b/lapack-netlib/SRC/zunmr2.f index 0a77773e3..3685e9c7c 100644 --- a/lapack-netlib/SRC/zunmr2.f +++ b/lapack-netlib/SRC/zunmr2.f @@ -151,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNMR2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/zunmr3.f b/lapack-netlib/SRC/zunmr3.f index 138a3c054..72d23fa43 100644 --- a/lapack-netlib/SRC/zunmr3.f +++ b/lapack-netlib/SRC/zunmr3.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -178,10 +176,9 @@ SUBROUTINE ZUNMR3( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS diff --git a/lapack-netlib/SRC/zunmrq.f b/lapack-netlib/SRC/zunmrq.f index 0d246de21..e14e93bf2 100644 --- a/lapack-netlib/SRC/zunmrq.f +++ b/lapack-netlib/SRC/zunmrq.f @@ -64,7 +64,7 @@ *> \verbatim *> TRANS is CHARACTER*1 *> = 'N': No transpose, apply Q; -*> = 'C': Transpose, apply Q**H. +*> = 'C': Conjugate transpose, apply Q**H. *> \endverbatim *> *> \param[in] M @@ -159,18 +159,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNMRQ( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -270,7 +267,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'ZUNMRQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/zunmrz.f b/lapack-netlib/SRC/zunmrz.f index 71609f3e6..1ec553284 100644 --- a/lapack-netlib/SRC/zunmrz.f +++ b/lapack-netlib/SRC/zunmrz.f @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * *> \par Contributors: @@ -187,10 +185,9 @@ SUBROUTINE ZUNMRZ( SIDE, TRANS, M, N, K, L, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS @@ -298,7 +295,7 @@ NBMIN = 2 LDWORK = NW IF( NB.GT.1 .AND. NB.LT.K ) THEN - IF( LWORK.LT.NW*NB+TSIZE ) THEN + IF( LWORK.LT.LWKOPT ) THEN NB = (LWORK-TSIZE) / LDWORK NBMIN = MAX( 2, ILAENV( 2, 'ZUNMRQ', SIDE // TRANS, M, N, K, $ -1 ) ) diff --git a/lapack-netlib/SRC/zunmtr.f b/lapack-netlib/SRC/zunmtr.f index 1c857030f..441a7c2bc 100644 --- a/lapack-netlib/SRC/zunmtr.f +++ b/lapack-netlib/SRC/zunmtr.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUNMTR( SIDE, UPLO, TRANS, M, N, A, LDA, TAU, C, LDC, $ WORK, LWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, UPLO @@ -214,10 +211,10 @@ * IF( LEFT ) THEN NQ = M - NW = N + NW = MAX( 1, N ) ELSE NQ = N - NW = M + NW = MAX( 1, M ) END IF IF( .NOT.LEFT .AND. .NOT.LSAME( SIDE, 'R' ) ) THEN INFO = -1 @@ -234,7 +231,7 @@ INFO = -7 ELSE IF( LDC.LT.MAX( 1, M ) ) THEN INFO = -10 - ELSE IF( LWORK.LT.MAX( 1, NW ) .AND. .NOT.LQUERY ) THEN + ELSE IF( LWORK.LT.NW .AND. .NOT.LQUERY ) THEN INFO = -12 END IF * @@ -256,7 +253,7 @@ $ -1 ) END IF END IF - LWKOPT = MAX( 1, NW )*NB + LWKOPT = NW*NB WORK( 1 ) = LWKOPT END IF * diff --git a/lapack-netlib/SRC/zupgtr.f b/lapack-netlib/SRC/zupgtr.f index eeff36418..38fca7151 100644 --- a/lapack-netlib/SRC/zupgtr.f +++ b/lapack-netlib/SRC/zupgtr.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUPGTR( UPLO, N, AP, TAU, Q, LDQ, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/SRC/zupmtr.f b/lapack-netlib/SRC/zupmtr.f index a2efa6e66..c19580026 100644 --- a/lapack-netlib/SRC/zupmtr.f +++ b/lapack-netlib/SRC/zupmtr.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16OTHERcomputational * * ===================================================================== SUBROUTINE ZUPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER SIDE, TRANS, UPLO From 7c84a9f7be842aca263b626cbad6057d56b70e9c Mon Sep 17 00:00:00 2001 From: martin-frbg Date: Thu, 21 Apr 2022 22:43:29 +0200 Subject: [PATCH 02/10] update suffix rules --- lapack-netlib/SRC/Makefile | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/lapack-netlib/SRC/Makefile b/lapack-netlib/SRC/Makefile index 1371be655..4cd13a38b 100644 --- a/lapack-netlib/SRC/Makefile +++ b/lapack-netlib/SRC/Makefile @@ -59,13 +59,20 @@ include $(TOPSRCDIR)/make.inc ifneq ($(C_LAPACK), 1) $(info fortran... C_LAPACK ist $(C_LAPACK)) +ALLMOD = la_xisnan.mod la_constants.mod + .SUFFIXES: -.SUFFIXES: .f .o -.f.o: +.SUFFIXES: .f .F .f90 .F90 .o .mod +%.o: %.f $(ALLMOD) + $(FC) $(FFLAGS) -c -o $@ $< +%.o: %.F $(ALLMOD) + $(FC) $(FFLAGS) -c -o $@ $< +%.o: %.f90 $(ALLMOD) $(FC) $(FFLAGS) -c -o $@ $< -.SUFFIXES: .F .o -.F.o: +%.o: %.F90 $(ALLMOD) $(FC) $(FFLAGS) -c -o $@ $< +.o.mod: + @true else $(info C_LAPACK ist $(C_LAPACK)) .SUFFIXES: .c .o From 920199c577004cee28f207b08685bcca9502ea1a Mon Sep 17 00:00:00 2001 From: martin-frbg Date: Thu, 21 Apr 2022 23:31:02 +0200 Subject: [PATCH 03/10] fix module build and d/sroundup_lwork --- lapack-netlib/SRC/Makefile | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/lapack-netlib/SRC/Makefile b/lapack-netlib/SRC/Makefile index 4cd13a38b..03e89974d 100644 --- a/lapack-netlib/SRC/Makefile +++ b/lapack-netlib/SRC/Makefile @@ -63,7 +63,7 @@ ALLMOD = la_xisnan.mod la_constants.mod .SUFFIXES: .SUFFIXES: .f .F .f90 .F90 .o .mod -%.o: %.f $(ALLMOD) +%.o: %.f $(FC) $(FFLAGS) -c -o $@ $< %.o: %.F $(ALLMOD) $(FC) $(FFLAGS) -c -o $@ $< @@ -73,6 +73,7 @@ ALLMOD = la_xisnan.mod la_constants.mod $(FC) $(FFLAGS) -c -o $@ $< .o.mod: @true + else $(info C_LAPACK ist $(C_LAPACK)) .SUFFIXES: .c .o @@ -102,7 +103,7 @@ SCLAUX = \ slaset.o slasq1.o slasq2.o slasq3.o slasq4.o slasq5.o slasq6.o \ slasr.o slasrt.o slassq.o slasv2.o spttrf.o sstebz.o sstedc.o \ ssteqr.o ssterf.o slaisnan.o sisnan.o \ - slartgp.o slartgs.o scombssq.o \ + slartgp.o slartgs.o scombssq.o ../INSTALL/sroundup_lwork.o \ ../INSTALL/second_$(TIMER).o endif @@ -124,7 +125,7 @@ DZLAUX = \ dlaset.o dlasq1.o dlasq2.o dlasq3.o dlasq4.o dlasq5.o dlasq6.o \ dlasr.o dlasrt.o dlassq.o dlasv2.o dpttrf.o dstebz.o dstedc.o \ dsteqr.o dsterf.o dlaisnan.o disnan.o \ - dlartgp.o dlartgs.o \ + dlartgp.o dlartgs.o ../INSTALL/droundup_lwork.o \ ../INSTALL/dlamch.o ../INSTALL/dsecnd_$(TIMER).o endif @@ -672,6 +673,11 @@ sla_wwaddw.o: sla_wwaddw.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< dla_wwaddw.o: dla_wwaddw.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< cla_wwaddw.o: cla_wwaddw.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< zla_wwaddw.o: zla_wwaddw.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< +# Modules +la_xisnan.o: la_xisnan.F90 la_constants.mod + $(FC) $(FFLAGS) -c -o $@ $< +la_constants.o: la_constants.f90 + $(FC) $(FFLAGS) -c -o $@ $< else slaruv.o: slaruv.c ; $(CC) $(CFLAGS) -c -o $@ $< dlaruv.o: dlaruv.c ; $(CC) $(CFLAGS) -c -o $@ $< From aea3d366f532013959d6ed471d0ac9fbc3940cbf Mon Sep 17 00:00:00 2001 From: martin-frbg Date: Fri, 22 Apr 2022 09:27:37 +0200 Subject: [PATCH 04/10] Add dummy C versions of the 3.10.1 ?laqz codes for C_LAPACK --- lapack-netlib/SRC/claqz0.c | 381 +++++++++++++++++++++++++++++++++++++ lapack-netlib/SRC/claqz1.c | 381 +++++++++++++++++++++++++++++++++++++ lapack-netlib/SRC/claqz2.c | 381 +++++++++++++++++++++++++++++++++++++ lapack-netlib/SRC/claqz3.c | 381 +++++++++++++++++++++++++++++++++++++ lapack-netlib/SRC/dlaqz0.c | 381 +++++++++++++++++++++++++++++++++++++ lapack-netlib/SRC/dlaqz1.c | 381 +++++++++++++++++++++++++++++++++++++ lapack-netlib/SRC/dlaqz2.c | 381 +++++++++++++++++++++++++++++++++++++ lapack-netlib/SRC/dlaqz3.c | 381 +++++++++++++++++++++++++++++++++++++ lapack-netlib/SRC/dlaqz4.c | 381 +++++++++++++++++++++++++++++++++++++ lapack-netlib/SRC/slaqz0.c | 381 +++++++++++++++++++++++++++++++++++++ lapack-netlib/SRC/slaqz1.c | 381 +++++++++++++++++++++++++++++++++++++ lapack-netlib/SRC/slaqz2.c | 381 +++++++++++++++++++++++++++++++++++++ lapack-netlib/SRC/slaqz3.c | 381 +++++++++++++++++++++++++++++++++++++ lapack-netlib/SRC/slaqz4.c | 381 +++++++++++++++++++++++++++++++++++++ lapack-netlib/SRC/zlaqz0.c | 381 +++++++++++++++++++++++++++++++++++++ lapack-netlib/SRC/zlaqz1.c | 381 +++++++++++++++++++++++++++++++++++++ lapack-netlib/SRC/zlaqz2.c | 381 +++++++++++++++++++++++++++++++++++++ lapack-netlib/SRC/zlaqz3.c | 381 +++++++++++++++++++++++++++++++++++++ 18 files changed, 6858 insertions(+) create mode 100644 lapack-netlib/SRC/claqz0.c create mode 100644 lapack-netlib/SRC/claqz1.c create mode 100644 lapack-netlib/SRC/claqz2.c create mode 100644 lapack-netlib/SRC/claqz3.c create mode 100644 lapack-netlib/SRC/dlaqz0.c create mode 100644 lapack-netlib/SRC/dlaqz1.c create mode 100644 lapack-netlib/SRC/dlaqz2.c create mode 100644 lapack-netlib/SRC/dlaqz3.c create mode 100644 lapack-netlib/SRC/dlaqz4.c create mode 100644 lapack-netlib/SRC/slaqz0.c create mode 100644 lapack-netlib/SRC/slaqz1.c create mode 100644 lapack-netlib/SRC/slaqz2.c create mode 100644 lapack-netlib/SRC/slaqz3.c create mode 100644 lapack-netlib/SRC/slaqz4.c create mode 100644 lapack-netlib/SRC/zlaqz0.c create mode 100644 lapack-netlib/SRC/zlaqz1.c create mode 100644 lapack-netlib/SRC/zlaqz2.c create mode 100644 lapack-netlib/SRC/zlaqz3.c diff --git a/lapack-netlib/SRC/claqz0.c b/lapack-netlib/SRC/claqz0.c new file mode 100644 index 000000000..d05923a46 --- /dev/null +++ b/lapack-netlib/SRC/claqz0.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i Date: Fri, 22 Apr 2022 12:28:15 +0200 Subject: [PATCH 05/10] Add dummy C versions of ?roundup_lwork for C_LAPACK --- lapack-netlib/INSTALL/droundup_lwork.c | 381 +++++++++++++++++++++++++ lapack-netlib/INSTALL/sroundup_lwork.c | 381 +++++++++++++++++++++++++ 2 files changed, 762 insertions(+) create mode 100644 lapack-netlib/INSTALL/droundup_lwork.c create mode 100644 lapack-netlib/INSTALL/sroundup_lwork.c diff --git a/lapack-netlib/INSTALL/droundup_lwork.c b/lapack-netlib/INSTALL/droundup_lwork.c new file mode 100644 index 000000000..d05923a46 --- /dev/null +++ b/lapack-netlib/INSTALL/droundup_lwork.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i Date: Fri, 22 Apr 2022 13:09:12 +0200 Subject: [PATCH 06/10] Add dummy C files for 3.10.1 modules --- lapack-netlib/SRC/la_constants.c | 381 +++++++++++++++++++++++++++++++ lapack-netlib/SRC/la_xisnan.c | 381 +++++++++++++++++++++++++++++++ 2 files changed, 762 insertions(+) create mode 100644 lapack-netlib/SRC/la_constants.c create mode 100644 lapack-netlib/SRC/la_xisnan.c diff --git a/lapack-netlib/SRC/la_constants.c b/lapack-netlib/SRC/la_constants.c new file mode 100644 index 000000000..d05923a46 --- /dev/null +++ b/lapack-netlib/SRC/la_constants.c @@ -0,0 +1,381 @@ +/* f2c.h -- Standard Fortran to C header file */ + +/** barf [ba:rf] 2. "He suggested using FORTRAN, and everybody barfed." + + - From The Shogakukan DICTIONARY OF NEW ENGLISH (Second edition) */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +#include +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i +#include +#include +#include +#include +#ifdef complex +#undef complex +#endif +#ifdef I +#undef I +#endif + +typedef int integer; +typedef unsigned int uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +static inline _Complex float Cf(complex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex double Cd(doublecomplex *z) {return z->r + z->i*_Complex_I;} +static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} +static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} +#define pCf(z) (*_pCf(z)) +#define pCd(z) (*_pCd(z)) +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +typedef int flag; +typedef int ftnlen; +typedef int ftnint; + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (fabs(x)) +#define f2cmin(a,b) ((a) <= (b) ? (a) : (b)) +#define f2cmax(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (f2cmin(a,b)) +#define dmax(a,b) (f2cmax(a,b)) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +#define abort_() { sig_die("Fortran abort routine called", 1); } +#define c_abs(z) (cabsf(Cf(z))) +#define c_cos(R,Z) { pCf(R)=ccos(Cf(Z)); } +#define c_div(c, a, b) {pCf(c) = Cf(a)/Cf(b);} +#define z_div(c, a, b) {pCd(c) = Cd(a)/Cd(b);} +#define c_exp(R, Z) {pCf(R) = cexpf(Cf(Z));} +#define c_log(R, Z) {pCf(R) = clogf(Cf(Z));} +#define c_sin(R, Z) {pCf(R) = csinf(Cf(Z));} +//#define c_sqrt(R, Z) {*(R) = csqrtf(Cf(Z));} +#define c_sqrt(R, Z) {pCf(R) = csqrtf(Cf(Z));} +#define d_abs(x) (fabs(*(x))) +#define d_acos(x) (acos(*(x))) +#define d_asin(x) (asin(*(x))) +#define d_atan(x) (atan(*(x))) +#define d_atn2(x, y) (atan2(*(x),*(y))) +#define d_cnjg(R, Z) { pCd(R) = conj(Cd(Z)); } +#define r_cnjg(R, Z) { pCf(R) = conj(Cf(Z)); } +#define d_cos(x) (cos(*(x))) +#define d_cosh(x) (cosh(*(x))) +#define d_dim(__a, __b) ( *(__a) > *(__b) ? *(__a) - *(__b) : 0.0 ) +#define d_exp(x) (exp(*(x))) +#define d_imag(z) (cimag(Cd(z))) +#define r_imag(z) (cimag(Cf(z))) +#define d_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define r_int(__x) (*(__x)>0 ? floor(*(__x)) : -floor(- *(__x))) +#define d_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define r_lg10(x) ( 0.43429448190325182765 * log(*(x)) ) +#define d_log(x) (log(*(x))) +#define d_mod(x, y) (fmod(*(x), *(y))) +#define u_nint(__x) ((__x)>=0 ? floor((__x) + .5) : -floor(.5 - (__x))) +#define d_nint(x) u_nint(*(x)) +#define u_sign(__a,__b) ((__b) >= 0 ? ((__a) >= 0 ? (__a) : -(__a)) : -((__a) >= 0 ? (__a) : -(__a))) +#define d_sign(a,b) u_sign(*(a),*(b)) +#define r_sign(a,b) u_sign(*(a),*(b)) +#define d_sin(x) (sin(*(x))) +#define d_sinh(x) (sinh(*(x))) +#define d_sqrt(x) (sqrt(*(x))) +#define d_tan(x) (tan(*(x))) +#define d_tanh(x) (tanh(*(x))) +#define i_abs(x) abs(*(x)) +#define i_dnnt(x) ((integer)u_nint(*(x))) +#define i_len(s, n) (n) +#define i_nint(x) ((integer)u_nint(*(x))) +#define i_sign(a,b) ((integer)u_sign((integer)*(a),(integer)*(b))) +#define pow_dd(ap, bp) ( pow(*(ap), *(bp))) +#define pow_si(B,E) spow_ui(*(B),*(E)) +#define pow_ri(B,E) spow_ui(*(B),*(E)) +#define pow_di(B,E) dpow_ui(*(B),*(E)) +#define pow_zi(p, a, b) {pCd(p) = zpow_ui(Cd(a), *(b));} +#define pow_ci(p, a, b) {pCf(p) = cpow_ui(Cf(a), *(b));} +#define pow_zz(R,A,B) {pCd(R) = cpow(Cd(A),*(B));} +#define s_cat(lpp, rpp, rnp, np, llp) { ftnlen i, nc, ll; char *f__rp, *lp; ll = (llp); lp = (lpp); for(i=0; i < (int)*(np); ++i) { nc = ll; if((rnp)[i] < nc) nc = (rnp)[i]; ll -= nc; f__rp = (rpp)[i]; while(--nc >= 0) *lp++ = *(f__rp)++; } while(--ll >= 0) *lp++ = ' '; } +#define s_cmp(a,b,c,d) ((integer)strncmp((a),(b),f2cmin((c),(d)))) +#define s_copy(A,B,C,D) { int __i,__m; for (__i=0, __m=f2cmin((C),(D)); __i<__m && (B)[__i] != 0; ++__i) (A)[__i] = (B)[__i]; } +#define sig_die(s, kill) { exit(1); } +#define s_stop(s, n) {exit(0);} +static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; +#define z_abs(z) (cabs(Cd(z))) +#define z_exp(R, Z) {pCd(R) = cexp(Cd(Z));} +#define z_sqrt(R, Z) {pCd(R) = csqrt(Cd(Z));} +#define myexit_() break; +#define mycycle_() continue; +#define myceiling_(w) ceil(w) +#define myhuge_(w) HUGE_VAL +//#define mymaxloc_(w,s,e,n) {if (sizeof(*(w)) == sizeof(double)) dmaxloc_((w),*(s),*(e),n); else dmaxloc_((w),*(s),*(e),n);} +#define mymaxloc_(w,s,e,n) dmaxloc_(w,*(s),*(e),n) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef logical (*L_fp)(...); +#else +typedef logical (*L_fp)(); +#endif + +static float spow_ui(float x, integer n) { + float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static double dpow_ui(double x, integer n) { + double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex float cpow_ui(_Complex float x, integer n) { + _Complex float pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static _Complex double zpow_ui(_Complex double x, integer n) { + _Complex double pow=1.0; unsigned long int u; + if(n != 0) { + if(n < 0) n = -n, x = 1/x; + for(u = n; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer pow_ii(integer x, integer n) { + integer pow; unsigned long int u; + if (n <= 0) { + if (n == 0 || x == 1) pow = 1; + else if (x != -1) pow = x == 0 ? 1/x : 0; + else n = -n; + } + if ((n > 0) || !(n == 0 || x == 1 || x != -1)) { + u = n; + for(pow = 1; ; ) { + if(u & 01) pow *= x; + if(u >>= 1) x *= x; + else break; + } + } + return pow; +} +static integer dmaxloc_(double *w, integer s, integer e, integer *n) +{ + double m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static integer smaxloc_(float *w, integer s, integer e, integer *n) +{ + float m; integer i, mi; + for(m=w[s-1], mi=s, i=s+1; i<=e; i++) + if (w[i-1]>m) mi=i ,m=w[i-1]; + return mi-s+1; +} +static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) { + integer n = *n_, incx = *incx_, incy = *incy_, i; + _Complex float zdotc = 0.0; + if (incx == 1 && incy == 1) { + for (i=0;i Date: Wed, 11 May 2022 18:40:55 +0200 Subject: [PATCH 07/10] Update the LAPACK testsuite to match 3.10.1 --- lapack-netlib/TESTING/EIG/CMakeLists.txt | 6 +- lapack-netlib/TESTING/EIG/Makefile | 12 +- lapack-netlib/TESTING/EIG/alahdg.f | 5 +- lapack-netlib/TESTING/EIG/alareq.f | 5 +- lapack-netlib/TESTING/EIG/alarqg.f | 5 +- lapack-netlib/TESTING/EIG/alasmg.f | 5 +- lapack-netlib/TESTING/EIG/alasum.f | 5 +- lapack-netlib/TESTING/EIG/alasvm.f | 5 +- lapack-netlib/TESTING/EIG/cbdt01.f | 28 ++- lapack-netlib/TESTING/EIG/cbdt02.f | 10 +- lapack-netlib/TESTING/EIG/cbdt03.f | 5 +- lapack-netlib/TESTING/EIG/cbdt05.f | 5 +- lapack-netlib/TESTING/EIG/cchkbb.f | 3 - lapack-netlib/TESTING/EIG/cchkbd.f | 5 +- lapack-netlib/TESTING/EIG/cchkbk.f | 5 +- lapack-netlib/TESTING/EIG/cchkbl.f | 5 +- lapack-netlib/TESTING/EIG/cchkec.f | 5 +- lapack-netlib/TESTING/EIG/cchkee.F | 5 +- lapack-netlib/TESTING/EIG/cchkgg.f | 5 +- lapack-netlib/TESTING/EIG/cchkgk.f | 5 +- lapack-netlib/TESTING/EIG/cchkgl.f | 5 +- lapack-netlib/TESTING/EIG/cchkhb.f | 5 +- lapack-netlib/TESTING/EIG/cchkhb2stg.f | 51 +++-- lapack-netlib/TESTING/EIG/cchkhs.f | 5 +- lapack-netlib/TESTING/EIG/cchkst.f | 5 +- lapack-netlib/TESTING/EIG/cchkst2stg.f | 24 +- lapack-netlib/TESTING/EIG/cckcsd.f | 10 +- lapack-netlib/TESTING/EIG/cckglm.f | 5 +- lapack-netlib/TESTING/EIG/cckgqr.f | 5 +- lapack-netlib/TESTING/EIG/cckgsv.f | 45 +++- lapack-netlib/TESTING/EIG/ccklse.f | 5 +- lapack-netlib/TESTING/EIG/ccsdts.f | 12 +- lapack-netlib/TESTING/EIG/cdrges.f | 5 +- lapack-netlib/TESTING/EIG/cdrges3.f | 13 +- lapack-netlib/TESTING/EIG/cdrgev.f | 7 +- lapack-netlib/TESTING/EIG/cdrgev3.f | 13 +- lapack-netlib/TESTING/EIG/cdrgsx.f | 5 +- lapack-netlib/TESTING/EIG/cdrgvx.f | 5 +- lapack-netlib/TESTING/EIG/cdrvbd.f | 5 +- lapack-netlib/TESTING/EIG/cdrves.f | 5 +- lapack-netlib/TESTING/EIG/cdrvev.f | 5 +- lapack-netlib/TESTING/EIG/cdrvsg.f | 5 +- lapack-netlib/TESTING/EIG/cdrvsg2stg.f | 5 +- lapack-netlib/TESTING/EIG/cdrvst.f | 5 +- lapack-netlib/TESTING/EIG/cdrvst2stg.f | 5 +- lapack-netlib/TESTING/EIG/cdrvsx.f | 5 +- lapack-netlib/TESTING/EIG/cdrvvx.f | 5 +- lapack-netlib/TESTING/EIG/cerrbd.f | 5 +- lapack-netlib/TESTING/EIG/cerrec.f | 5 +- lapack-netlib/TESTING/EIG/cerred.f | 5 +- lapack-netlib/TESTING/EIG/cerrgg.f | 15 +- lapack-netlib/TESTING/EIG/cerrhs.f | 5 +- lapack-netlib/TESTING/EIG/cerrst.f | 5 +- lapack-netlib/TESTING/EIG/cget02.f | 28 +-- lapack-netlib/TESTING/EIG/cget10.f | 5 +- lapack-netlib/TESTING/EIG/cget22.f | 8 +- lapack-netlib/TESTING/EIG/cget23.f | 5 +- lapack-netlib/TESTING/EIG/cget24.f | 5 +- lapack-netlib/TESTING/EIG/cget35.f | 5 +- lapack-netlib/TESTING/EIG/cget36.f | 5 +- lapack-netlib/TESTING/EIG/cget37.f | 5 +- lapack-netlib/TESTING/EIG/cget38.f | 5 +- lapack-netlib/TESTING/EIG/cget51.f | 5 +- lapack-netlib/TESTING/EIG/cget52.f | 9 +- lapack-netlib/TESTING/EIG/cget54.f | 5 +- lapack-netlib/TESTING/EIG/cglmts.f | 5 +- lapack-netlib/TESTING/EIG/cgqrts.f | 5 +- lapack-netlib/TESTING/EIG/cgrqts.f | 5 +- lapack-netlib/TESTING/EIG/cgsvts3.f | 5 +- lapack-netlib/TESTING/EIG/chbt21.f | 5 +- lapack-netlib/TESTING/EIG/chet21.f | 5 +- lapack-netlib/TESTING/EIG/chet22.f | 5 +- lapack-netlib/TESTING/EIG/chkxer.f | 7 +- lapack-netlib/TESTING/EIG/chpt21.f | 5 +- lapack-netlib/TESTING/EIG/chst01.f | 5 +- lapack-netlib/TESTING/EIG/clarfy.f | 5 +- lapack-netlib/TESTING/EIG/clarhs.f | 14 +- lapack-netlib/TESTING/EIG/clatm4.f | 5 +- lapack-netlib/TESTING/EIG/clctes.f | 5 +- lapack-netlib/TESTING/EIG/clctsx.f | 5 +- lapack-netlib/TESTING/EIG/clsets.f | 5 +- lapack-netlib/TESTING/EIG/csbmv.f | 5 +- lapack-netlib/TESTING/EIG/csgt01.f | 5 +- lapack-netlib/TESTING/EIG/cslect.f | 5 +- lapack-netlib/TESTING/EIG/cstt21.f | 5 +- lapack-netlib/TESTING/EIG/cstt22.f | 5 +- lapack-netlib/TESTING/EIG/cunt01.f | 5 +- lapack-netlib/TESTING/EIG/cunt03.f | 5 +- lapack-netlib/TESTING/EIG/dbdt01.f | 28 ++- lapack-netlib/TESTING/EIG/dbdt02.f | 10 +- lapack-netlib/TESTING/EIG/dbdt03.f | 5 +- lapack-netlib/TESTING/EIG/dbdt04.f | 5 +- lapack-netlib/TESTING/EIG/dbdt05.f | 7 +- lapack-netlib/TESTING/EIG/dchkbb.f | 3 - lapack-netlib/TESTING/EIG/dchkbd.f | 5 +- lapack-netlib/TESTING/EIG/dchkbk.f | 5 +- lapack-netlib/TESTING/EIG/dchkbl.f | 5 +- lapack-netlib/TESTING/EIG/dchkec.f | 25 ++- lapack-netlib/TESTING/EIG/dchkee.F | 5 +- lapack-netlib/TESTING/EIG/dchkgg.f | 5 +- lapack-netlib/TESTING/EIG/dchkgk.f | 5 +- lapack-netlib/TESTING/EIG/dchkgl.f | 5 +- lapack-netlib/TESTING/EIG/dchkhs.f | 5 +- lapack-netlib/TESTING/EIG/dchksb.f | 5 +- lapack-netlib/TESTING/EIG/dchksb2stg.f | 47 ++-- lapack-netlib/TESTING/EIG/dchkst.f | 5 +- lapack-netlib/TESTING/EIG/dchkst2stg.f | 13 +- lapack-netlib/TESTING/EIG/dckcsd.f | 10 +- lapack-netlib/TESTING/EIG/dckglm.f | 5 +- lapack-netlib/TESTING/EIG/dckgqr.f | 5 +- lapack-netlib/TESTING/EIG/dckgsv.f | 5 +- lapack-netlib/TESTING/EIG/dcklse.f | 5 +- lapack-netlib/TESTING/EIG/dcsdts.f | 12 +- lapack-netlib/TESTING/EIG/ddrges.f | 5 +- lapack-netlib/TESTING/EIG/ddrges3.f | 13 +- lapack-netlib/TESTING/EIG/ddrgev.f | 5 +- lapack-netlib/TESTING/EIG/ddrgev3.f | 66 ++++-- lapack-netlib/TESTING/EIG/ddrgsx.f | 5 +- lapack-netlib/TESTING/EIG/ddrgvx.f | 5 +- lapack-netlib/TESTING/EIG/ddrvbd.f | 5 +- lapack-netlib/TESTING/EIG/ddrves.f | 5 +- lapack-netlib/TESTING/EIG/ddrvev.f | 5 +- lapack-netlib/TESTING/EIG/ddrvsg.f | 5 +- lapack-netlib/TESTING/EIG/ddrvsg2stg.f | 5 +- lapack-netlib/TESTING/EIG/ddrvst.f | 5 +- lapack-netlib/TESTING/EIG/ddrvst2stg.f | 11 +- lapack-netlib/TESTING/EIG/ddrvsx.f | 5 +- lapack-netlib/TESTING/EIG/ddrvvx.f | 5 +- lapack-netlib/TESTING/EIG/derrbd.f | 5 +- lapack-netlib/TESTING/EIG/derrec.f | 5 +- lapack-netlib/TESTING/EIG/derred.f | 5 +- lapack-netlib/TESTING/EIG/derrgg.f | 20 +- lapack-netlib/TESTING/EIG/derrhs.f | 5 +- lapack-netlib/TESTING/EIG/derrst.f | 5 +- lapack-netlib/TESTING/EIG/dget02.f | 29 +-- lapack-netlib/TESTING/EIG/dget10.f | 5 +- lapack-netlib/TESTING/EIG/dget22.f | 8 +- lapack-netlib/TESTING/EIG/dget23.f | 5 +- lapack-netlib/TESTING/EIG/dget24.f | 5 +- lapack-netlib/TESTING/EIG/dget31.f | 5 +- lapack-netlib/TESTING/EIG/dget32.f | 5 +- lapack-netlib/TESTING/EIG/dget33.f | 5 +- lapack-netlib/TESTING/EIG/dget34.f | 7 +- lapack-netlib/TESTING/EIG/dget35.f | 5 +- lapack-netlib/TESTING/EIG/dget36.f | 5 +- lapack-netlib/TESTING/EIG/dget37.f | 5 +- lapack-netlib/TESTING/EIG/dget38.f | 5 +- lapack-netlib/TESTING/EIG/dget39.f | 5 +- lapack-netlib/TESTING/EIG/dget40.f | 223 +++++++++++++++++++ lapack-netlib/TESTING/EIG/dget51.f | 5 +- lapack-netlib/TESTING/EIG/dget52.f | 11 +- lapack-netlib/TESTING/EIG/dget53.f | 5 +- lapack-netlib/TESTING/EIG/dget54.f | 5 +- lapack-netlib/TESTING/EIG/dglmts.f | 5 +- lapack-netlib/TESTING/EIG/dgqrts.f | 5 +- lapack-netlib/TESTING/EIG/dgrqts.f | 5 +- lapack-netlib/TESTING/EIG/dgsvts3.f | 5 +- lapack-netlib/TESTING/EIG/dhst01.f | 5 +- lapack-netlib/TESTING/EIG/dlafts.f | 5 +- lapack-netlib/TESTING/EIG/dlahd2.f | 5 +- lapack-netlib/TESTING/EIG/dlarfy.f | 5 +- lapack-netlib/TESTING/EIG/dlarhs.f | 16 +- lapack-netlib/TESTING/EIG/dlasum.f | 5 +- lapack-netlib/TESTING/EIG/dlatb9.f | 5 +- lapack-netlib/TESTING/EIG/dlatm4.f | 5 +- lapack-netlib/TESTING/EIG/dlctes.f | 5 +- lapack-netlib/TESTING/EIG/dlctsx.f | 5 +- lapack-netlib/TESTING/EIG/dlsets.f | 5 +- lapack-netlib/TESTING/EIG/dort01.f | 5 +- lapack-netlib/TESTING/EIG/dort03.f | 5 +- lapack-netlib/TESTING/EIG/dsbt21.f | 5 +- lapack-netlib/TESTING/EIG/dsgt01.f | 7 +- lapack-netlib/TESTING/EIG/dslect.f | 5 +- lapack-netlib/TESTING/EIG/dspt21.f | 5 +- lapack-netlib/TESTING/EIG/dstech.f | 5 +- lapack-netlib/TESTING/EIG/dstect.f | 5 +- lapack-netlib/TESTING/EIG/dstt21.f | 5 +- lapack-netlib/TESTING/EIG/dstt22.f | 5 +- lapack-netlib/TESTING/EIG/dsvdch.f | 5 +- lapack-netlib/TESTING/EIG/dsvdct.f | 5 +- lapack-netlib/TESTING/EIG/dsxt1.f | 5 +- lapack-netlib/TESTING/EIG/dsyt21.f | 5 +- lapack-netlib/TESTING/EIG/dsyt22.f | 5 +- lapack-netlib/TESTING/EIG/ilaenv.f | 8 +- lapack-netlib/TESTING/EIG/sbdt01.f | 28 ++- lapack-netlib/TESTING/EIG/sbdt02.f | 10 +- lapack-netlib/TESTING/EIG/sbdt03.f | 5 +- lapack-netlib/TESTING/EIG/sbdt04.f | 5 +- lapack-netlib/TESTING/EIG/sbdt05.f | 7 +- lapack-netlib/TESTING/EIG/schkbb.f | 3 - lapack-netlib/TESTING/EIG/schkbd.f | 5 +- lapack-netlib/TESTING/EIG/schkbk.f | 5 +- lapack-netlib/TESTING/EIG/schkbl.f | 5 +- lapack-netlib/TESTING/EIG/schkec.f | 21 +- lapack-netlib/TESTING/EIG/schkee.F | 5 +- lapack-netlib/TESTING/EIG/schkgg.f | 5 +- lapack-netlib/TESTING/EIG/schkgk.f | 5 +- lapack-netlib/TESTING/EIG/schkgl.f | 5 +- lapack-netlib/TESTING/EIG/schkhs.f | 5 +- lapack-netlib/TESTING/EIG/schksb.f | 5 +- lapack-netlib/TESTING/EIG/schksb2stg.f | 51 +++-- lapack-netlib/TESTING/EIG/schkst.f | 5 +- lapack-netlib/TESTING/EIG/schkst2stg.f | 17 +- lapack-netlib/TESTING/EIG/sckcsd.f | 13 +- lapack-netlib/TESTING/EIG/sckglm.f | 5 +- lapack-netlib/TESTING/EIG/sckgqr.f | 5 +- lapack-netlib/TESTING/EIG/sckgsv.f | 5 +- lapack-netlib/TESTING/EIG/scklse.f | 5 +- lapack-netlib/TESTING/EIG/scsdts.f | 12 +- lapack-netlib/TESTING/EIG/sdrges.f | 5 +- lapack-netlib/TESTING/EIG/sdrges3.f | 13 +- lapack-netlib/TESTING/EIG/sdrgev.f | 5 +- lapack-netlib/TESTING/EIG/sdrgev3.f | 13 +- lapack-netlib/TESTING/EIG/sdrgsx.f | 5 +- lapack-netlib/TESTING/EIG/sdrgvx.f | 5 +- lapack-netlib/TESTING/EIG/sdrvbd.f | 5 +- lapack-netlib/TESTING/EIG/sdrves.f | 5 +- lapack-netlib/TESTING/EIG/sdrvev.f | 5 +- lapack-netlib/TESTING/EIG/sdrvsg.f | 5 +- lapack-netlib/TESTING/EIG/sdrvsg2stg.f | 5 +- lapack-netlib/TESTING/EIG/sdrvst.f | 5 +- lapack-netlib/TESTING/EIG/sdrvst2stg.f | 5 +- lapack-netlib/TESTING/EIG/sdrvsx.f | 5 +- lapack-netlib/TESTING/EIG/sdrvvx.f | 5 +- lapack-netlib/TESTING/EIG/serrbd.f | 5 +- lapack-netlib/TESTING/EIG/serrec.f | 5 +- lapack-netlib/TESTING/EIG/serred.f | 5 +- lapack-netlib/TESTING/EIG/serrgg.f | 15 +- lapack-netlib/TESTING/EIG/serrhs.f | 5 +- lapack-netlib/TESTING/EIG/serrst.f | 5 +- lapack-netlib/TESTING/EIG/sget02.f | 29 +-- lapack-netlib/TESTING/EIG/sget10.f | 5 +- lapack-netlib/TESTING/EIG/sget22.f | 8 +- lapack-netlib/TESTING/EIG/sget23.f | 5 +- lapack-netlib/TESTING/EIG/sget24.f | 5 +- lapack-netlib/TESTING/EIG/sget31.f | 5 +- lapack-netlib/TESTING/EIG/sget32.f | 5 +- lapack-netlib/TESTING/EIG/sget33.f | 5 +- lapack-netlib/TESTING/EIG/sget34.f | 5 +- lapack-netlib/TESTING/EIG/sget35.f | 5 +- lapack-netlib/TESTING/EIG/sget36.f | 5 +- lapack-netlib/TESTING/EIG/sget37.f | 5 +- lapack-netlib/TESTING/EIG/sget38.f | 5 +- lapack-netlib/TESTING/EIG/sget39.f | 5 +- lapack-netlib/TESTING/EIG/sget40.f | 223 +++++++++++++++++++ lapack-netlib/TESTING/EIG/sget51.f | 5 +- lapack-netlib/TESTING/EIG/sget52.f | 11 +- lapack-netlib/TESTING/EIG/sget53.f | 5 +- lapack-netlib/TESTING/EIG/sget54.f | 5 +- lapack-netlib/TESTING/EIG/sglmts.f | 5 +- lapack-netlib/TESTING/EIG/sgqrts.f | 5 +- lapack-netlib/TESTING/EIG/sgrqts.f | 5 +- lapack-netlib/TESTING/EIG/sgsvts3.f | 5 +- lapack-netlib/TESTING/EIG/shst01.f | 5 +- lapack-netlib/TESTING/EIG/slafts.f | 5 +- lapack-netlib/TESTING/EIG/slahd2.f | 5 +- lapack-netlib/TESTING/EIG/slarfy.f | 5 +- lapack-netlib/TESTING/EIG/slarhs.f | 16 +- lapack-netlib/TESTING/EIG/slasum.f | 6 +- lapack-netlib/TESTING/EIG/slatb9.f | 5 +- lapack-netlib/TESTING/EIG/slatm4.f | 5 +- lapack-netlib/TESTING/EIG/slctes.f | 5 +- lapack-netlib/TESTING/EIG/slctsx.f | 5 +- lapack-netlib/TESTING/EIG/slsets.f | 5 +- lapack-netlib/TESTING/EIG/sort01.f | 5 +- lapack-netlib/TESTING/EIG/sort03.f | 5 +- lapack-netlib/TESTING/EIG/ssbt21.f | 5 +- lapack-netlib/TESTING/EIG/ssgt01.f | 5 +- lapack-netlib/TESTING/EIG/sslect.f | 5 +- lapack-netlib/TESTING/EIG/sspt21.f | 5 +- lapack-netlib/TESTING/EIG/sstech.f | 5 +- lapack-netlib/TESTING/EIG/sstect.f | 5 +- lapack-netlib/TESTING/EIG/sstt21.f | 5 +- lapack-netlib/TESTING/EIG/sstt22.f | 5 +- lapack-netlib/TESTING/EIG/ssvdch.f | 5 +- lapack-netlib/TESTING/EIG/ssvdct.f | 5 +- lapack-netlib/TESTING/EIG/ssxt1.f | 5 +- lapack-netlib/TESTING/EIG/ssyt21.f | 5 +- lapack-netlib/TESTING/EIG/ssyt22.f | 5 +- lapack-netlib/TESTING/EIG/xerbla.f | 5 +- lapack-netlib/TESTING/EIG/xlaenv.f | 5 +- lapack-netlib/TESTING/EIG/zbdt01.f | 28 ++- lapack-netlib/TESTING/EIG/zbdt02.f | 10 +- lapack-netlib/TESTING/EIG/zbdt03.f | 5 +- lapack-netlib/TESTING/EIG/zbdt05.f | 5 +- lapack-netlib/TESTING/EIG/zchkbb.f | 3 - lapack-netlib/TESTING/EIG/zchkbd.f | 5 +- lapack-netlib/TESTING/EIG/zchkbk.f | 5 +- lapack-netlib/TESTING/EIG/zchkbl.f | 5 +- lapack-netlib/TESTING/EIG/zchkec.f | 5 +- lapack-netlib/TESTING/EIG/zchkee.F | 5 +- lapack-netlib/TESTING/EIG/zchkgg.f | 5 +- lapack-netlib/TESTING/EIG/zchkgk.f | 5 +- lapack-netlib/TESTING/EIG/zchkgl.f | 5 +- lapack-netlib/TESTING/EIG/zchkhb.f | 5 +- lapack-netlib/TESTING/EIG/zchkhb2stg.f | 48 ++-- lapack-netlib/TESTING/EIG/zchkhs.f | 5 +- lapack-netlib/TESTING/EIG/zchkst.f | 5 +- lapack-netlib/TESTING/EIG/zchkst2stg.f | 16 +- lapack-netlib/TESTING/EIG/zckcsd.f | 10 +- lapack-netlib/TESTING/EIG/zckglm.f | 5 +- lapack-netlib/TESTING/EIG/zckgqr.f | 5 +- lapack-netlib/TESTING/EIG/zckgsv.f | 5 +- lapack-netlib/TESTING/EIG/zcklse.f | 5 +- lapack-netlib/TESTING/EIG/zcsdts.f | 12 +- lapack-netlib/TESTING/EIG/zdrges.f | 5 +- lapack-netlib/TESTING/EIG/zdrges3.f | 13 +- lapack-netlib/TESTING/EIG/zdrgev.f | 5 +- lapack-netlib/TESTING/EIG/zdrgev3.f | 13 +- lapack-netlib/TESTING/EIG/zdrgsx.f | 5 +- lapack-netlib/TESTING/EIG/zdrgvx.f | 5 +- lapack-netlib/TESTING/EIG/zdrvbd.f | 5 +- lapack-netlib/TESTING/EIG/zdrves.f | 5 +- lapack-netlib/TESTING/EIG/zdrvev.f | 5 +- lapack-netlib/TESTING/EIG/zdrvsg.f | 5 +- lapack-netlib/TESTING/EIG/zdrvsg2stg.f | 5 +- lapack-netlib/TESTING/EIG/zdrvst.f | 5 +- lapack-netlib/TESTING/EIG/zdrvst2stg.f | 5 +- lapack-netlib/TESTING/EIG/zdrvsx.f | 5 +- lapack-netlib/TESTING/EIG/zdrvvx.f | 5 +- lapack-netlib/TESTING/EIG/zerrbd.f | 5 +- lapack-netlib/TESTING/EIG/zerrec.f | 5 +- lapack-netlib/TESTING/EIG/zerred.f | 5 +- lapack-netlib/TESTING/EIG/zerrgg.f | 15 +- lapack-netlib/TESTING/EIG/zerrhs.f | 5 +- lapack-netlib/TESTING/EIG/zerrst.f | 5 +- lapack-netlib/TESTING/EIG/zget02.f | 28 +-- lapack-netlib/TESTING/EIG/zget10.f | 5 +- lapack-netlib/TESTING/EIG/zget22.f | 8 +- lapack-netlib/TESTING/EIG/zget23.f | 5 +- lapack-netlib/TESTING/EIG/zget24.f | 5 +- lapack-netlib/TESTING/EIG/zget35.f | 5 +- lapack-netlib/TESTING/EIG/zget36.f | 5 +- lapack-netlib/TESTING/EIG/zget37.f | 5 +- lapack-netlib/TESTING/EIG/zget38.f | 5 +- lapack-netlib/TESTING/EIG/zget51.f | 5 +- lapack-netlib/TESTING/EIG/zget52.f | 9 +- lapack-netlib/TESTING/EIG/zget54.f | 5 +- lapack-netlib/TESTING/EIG/zglmts.f | 5 +- lapack-netlib/TESTING/EIG/zgqrts.f | 5 +- lapack-netlib/TESTING/EIG/zgrqts.f | 5 +- lapack-netlib/TESTING/EIG/zgsvts3.f | 5 +- lapack-netlib/TESTING/EIG/zhbt21.f | 5 +- lapack-netlib/TESTING/EIG/zhet21.f | 5 +- lapack-netlib/TESTING/EIG/zhet22.f | 5 +- lapack-netlib/TESTING/EIG/zhpt21.f | 5 +- lapack-netlib/TESTING/EIG/zhst01.f | 5 +- lapack-netlib/TESTING/EIG/zlarfy.f | 5 +- lapack-netlib/TESTING/EIG/zlarhs.f | 14 +- lapack-netlib/TESTING/EIG/zlatm4.f | 5 +- lapack-netlib/TESTING/EIG/zlctes.f | 5 +- lapack-netlib/TESTING/EIG/zlctsx.f | 5 +- lapack-netlib/TESTING/EIG/zlsets.f | 5 +- lapack-netlib/TESTING/EIG/zsbmv.f | 5 +- lapack-netlib/TESTING/EIG/zsgt01.f | 7 +- lapack-netlib/TESTING/EIG/zslect.f | 5 +- lapack-netlib/TESTING/EIG/zstt21.f | 5 +- lapack-netlib/TESTING/EIG/zstt22.f | 5 +- lapack-netlib/TESTING/EIG/zunt01.f | 5 +- lapack-netlib/TESTING/EIG/zunt03.f | 5 +- lapack-netlib/TESTING/LIN/CMakeLists.txt | 3 +- lapack-netlib/TESTING/LIN/Makefile | 20 +- lapack-netlib/TESTING/LIN/aladhd.f | 5 +- lapack-netlib/TESTING/LIN/alaerh.f | 5 +- lapack-netlib/TESTING/LIN/alaesm.f | 5 +- lapack-netlib/TESTING/LIN/alahd.f | 36 ++- lapack-netlib/TESTING/LIN/alareq.f | 5 +- lapack-netlib/TESTING/LIN/alasum.f | 5 +- lapack-netlib/TESTING/LIN/alasvm.f | 5 +- lapack-netlib/TESTING/LIN/cchkeq.f | 5 +- lapack-netlib/TESTING/LIN/cchkgb.f | 11 +- lapack-netlib/TESTING/LIN/cchkge.f | 7 +- lapack-netlib/TESTING/LIN/cchkgt.f | 5 +- lapack-netlib/TESTING/LIN/cchkhe.f | 7 +- lapack-netlib/TESTING/LIN/cchkhe_aa.f | 8 +- lapack-netlib/TESTING/LIN/cchkhe_aa_2stage.f | 10 +- lapack-netlib/TESTING/LIN/cchkhe_rk.f | 9 +- lapack-netlib/TESTING/LIN/cchkhe_rook.f | 7 +- lapack-netlib/TESTING/LIN/cchkhp.f | 5 +- lapack-netlib/TESTING/LIN/cchklq.f | 5 +- lapack-netlib/TESTING/LIN/cchklqt.f | 7 +- lapack-netlib/TESTING/LIN/cchklqtp.f | 7 +- lapack-netlib/TESTING/LIN/cchkpb.f | 7 +- lapack-netlib/TESTING/LIN/cchkpo.f | 7 +- lapack-netlib/TESTING/LIN/cchkpp.f | 5 +- lapack-netlib/TESTING/LIN/cchkps.f | 7 +- lapack-netlib/TESTING/LIN/cchkpt.f | 5 +- lapack-netlib/TESTING/LIN/cchkq3.f | 5 +- lapack-netlib/TESTING/LIN/cchkql.f | 5 +- lapack-netlib/TESTING/LIN/cchkqr.f | 5 +- lapack-netlib/TESTING/LIN/cchkqrt.f | 7 +- lapack-netlib/TESTING/LIN/cchkqrtp.f | 7 +- lapack-netlib/TESTING/LIN/cchkrfp.f | 5 +- lapack-netlib/TESTING/LIN/cchkrq.f | 5 +- lapack-netlib/TESTING/LIN/cchksp.f | 5 +- lapack-netlib/TESTING/LIN/cchksy.f | 7 +- lapack-netlib/TESTING/LIN/cchksy_aa.f | 9 +- lapack-netlib/TESTING/LIN/cchksy_aa_2stage.f | 7 +- lapack-netlib/TESTING/LIN/cchksy_rk.f | 9 +- lapack-netlib/TESTING/LIN/cchksy_rook.f | 7 +- lapack-netlib/TESTING/LIN/cchktb.f | 5 +- lapack-netlib/TESTING/LIN/cchktp.f | 5 +- lapack-netlib/TESTING/LIN/cchktr.f | 5 +- lapack-netlib/TESTING/LIN/cchktsqr.f | 9 +- lapack-netlib/TESTING/LIN/cchktz.f | 5 +- lapack-netlib/TESTING/LIN/cchkunhr_col.f | 2 +- lapack-netlib/TESTING/LIN/cdrvgb.f | 11 +- lapack-netlib/TESTING/LIN/cdrvgbx.f | 16 +- lapack-netlib/TESTING/LIN/cdrvge.f | 5 +- lapack-netlib/TESTING/LIN/cdrvgex.f | 7 +- lapack-netlib/TESTING/LIN/cdrvgt.f | 5 +- lapack-netlib/TESTING/LIN/cdrvhe.f | 5 +- lapack-netlib/TESTING/LIN/cdrvhe_aa.f | 5 +- lapack-netlib/TESTING/LIN/cdrvhe_aa_2stage.f | 5 +- lapack-netlib/TESTING/LIN/cdrvhe_rk.f | 7 +- lapack-netlib/TESTING/LIN/cdrvhe_rook.f | 5 +- lapack-netlib/TESTING/LIN/cdrvhex.f | 7 +- lapack-netlib/TESTING/LIN/cdrvhp.f | 5 +- lapack-netlib/TESTING/LIN/cdrvls.f | 5 +- lapack-netlib/TESTING/LIN/cdrvpb.f | 5 +- lapack-netlib/TESTING/LIN/cdrvpo.f | 5 +- lapack-netlib/TESTING/LIN/cdrvpox.f | 7 +- lapack-netlib/TESTING/LIN/cdrvpp.f | 5 +- lapack-netlib/TESTING/LIN/cdrvpt.f | 5 +- lapack-netlib/TESTING/LIN/cdrvrf1.f | 5 +- lapack-netlib/TESTING/LIN/cdrvrf2.f | 5 +- lapack-netlib/TESTING/LIN/cdrvrf3.f | 9 +- lapack-netlib/TESTING/LIN/cdrvrf4.f | 5 +- lapack-netlib/TESTING/LIN/cdrvrfp.f | 5 +- lapack-netlib/TESTING/LIN/cdrvsp.f | 5 +- lapack-netlib/TESTING/LIN/cdrvsy.f | 5 +- lapack-netlib/TESTING/LIN/cdrvsy_aa.f | 7 +- lapack-netlib/TESTING/LIN/cdrvsy_aa_2stage.f | 7 +- lapack-netlib/TESTING/LIN/cdrvsy_rk.f | 7 +- lapack-netlib/TESTING/LIN/cdrvsy_rook.f | 5 +- lapack-netlib/TESTING/LIN/cdrvsyx.f | 7 +- lapack-netlib/TESTING/LIN/cebchvxx.f | 6 +- lapack-netlib/TESTING/LIN/cerrge.f | 5 +- lapack-netlib/TESTING/LIN/cerrgex.f | 7 +- lapack-netlib/TESTING/LIN/cerrgt.f | 5 +- lapack-netlib/TESTING/LIN/cerrhe.f | 5 +- lapack-netlib/TESTING/LIN/cerrhex.f | 7 +- lapack-netlib/TESTING/LIN/cerrlq.f | 5 +- lapack-netlib/TESTING/LIN/cerrlqt.f | 5 +- lapack-netlib/TESTING/LIN/cerrlqtp.f | 7 +- lapack-netlib/TESTING/LIN/cerrls.f | 5 +- lapack-netlib/TESTING/LIN/cerrpo.f | 5 +- lapack-netlib/TESTING/LIN/cerrpox.f | 7 +- lapack-netlib/TESTING/LIN/cerrps.f | 5 +- lapack-netlib/TESTING/LIN/cerrql.f | 5 +- lapack-netlib/TESTING/LIN/cerrqp.f | 5 +- lapack-netlib/TESTING/LIN/cerrqr.f | 5 +- lapack-netlib/TESTING/LIN/cerrqrt.f | 5 +- lapack-netlib/TESTING/LIN/cerrqrtp.f | 7 +- lapack-netlib/TESTING/LIN/cerrrfp.f | 5 +- lapack-netlib/TESTING/LIN/cerrrq.f | 5 +- lapack-netlib/TESTING/LIN/cerrsy.f | 5 +- lapack-netlib/TESTING/LIN/cerrsyx.f | 7 +- lapack-netlib/TESTING/LIN/cerrtr.f | 5 +- lapack-netlib/TESTING/LIN/cerrtsqr.f | 67 +++++- lapack-netlib/TESTING/LIN/cerrtz.f | 5 +- lapack-netlib/TESTING/LIN/cerrunhr_col.f | 7 +- lapack-netlib/TESTING/LIN/cerrvx.f | 5 +- lapack-netlib/TESTING/LIN/cerrvxx.f | 7 +- lapack-netlib/TESTING/LIN/cgbt01.f | 5 +- lapack-netlib/TESTING/LIN/cgbt02.f | 81 +++++-- lapack-netlib/TESTING/LIN/cgbt05.f | 7 +- lapack-netlib/TESTING/LIN/cgelqs.f | 5 +- lapack-netlib/TESTING/LIN/cgennd.f | 5 +- lapack-netlib/TESTING/LIN/cgeqls.f | 5 +- lapack-netlib/TESTING/LIN/cgeqrs.f | 5 +- lapack-netlib/TESTING/LIN/cgerqs.f | 5 +- lapack-netlib/TESTING/LIN/cget01.f | 5 +- lapack-netlib/TESTING/LIN/cget02.f | 30 +-- lapack-netlib/TESTING/LIN/cget03.f | 5 +- lapack-netlib/TESTING/LIN/cget04.f | 5 +- lapack-netlib/TESTING/LIN/cget07.f | 5 +- lapack-netlib/TESTING/LIN/cgtt01.f | 5 +- lapack-netlib/TESTING/LIN/cgtt02.f | 13 +- lapack-netlib/TESTING/LIN/cgtt05.f | 5 +- lapack-netlib/TESTING/LIN/chet01.f | 5 +- lapack-netlib/TESTING/LIN/chet01_3.f | 5 +- lapack-netlib/TESTING/LIN/chet01_aa.f | 6 +- lapack-netlib/TESTING/LIN/chet01_rook.f | 5 +- lapack-netlib/TESTING/LIN/chkxer.f | 7 +- lapack-netlib/TESTING/LIN/chpt01.f | 5 +- lapack-netlib/TESTING/LIN/clahilb.f | 5 +- lapack-netlib/TESTING/LIN/claipd.f | 5 +- lapack-netlib/TESTING/LIN/claptm.f | 5 +- lapack-netlib/TESTING/LIN/clarhs.f | 14 +- lapack-netlib/TESTING/LIN/clatb4.f | 5 +- lapack-netlib/TESTING/LIN/clatb5.f | 7 +- lapack-netlib/TESTING/LIN/clatsp.f | 5 +- lapack-netlib/TESTING/LIN/clatsy.f | 5 +- lapack-netlib/TESTING/LIN/clattb.f | 5 +- lapack-netlib/TESTING/LIN/clattp.f | 5 +- lapack-netlib/TESTING/LIN/clattr.f | 5 +- lapack-netlib/TESTING/LIN/clavhe.f | 5 +- lapack-netlib/TESTING/LIN/clavhe_rook.f | 5 +- lapack-netlib/TESTING/LIN/clavhp.f | 5 +- lapack-netlib/TESTING/LIN/clavsp.f | 5 +- lapack-netlib/TESTING/LIN/clavsy.f | 5 +- lapack-netlib/TESTING/LIN/clavsy_rook.f | 5 +- lapack-netlib/TESTING/LIN/clqt01.f | 5 +- lapack-netlib/TESTING/LIN/clqt02.f | 5 +- lapack-netlib/TESTING/LIN/clqt03.f | 5 +- lapack-netlib/TESTING/LIN/clqt04.f | 5 +- lapack-netlib/TESTING/LIN/clqt05.f | 5 +- lapack-netlib/TESTING/LIN/cpbt01.f | 5 +- lapack-netlib/TESTING/LIN/cpbt02.f | 5 +- lapack-netlib/TESTING/LIN/cpbt05.f | 5 +- lapack-netlib/TESTING/LIN/cpot01.f | 21 +- lapack-netlib/TESTING/LIN/cpot02.f | 5 +- lapack-netlib/TESTING/LIN/cpot03.f | 5 +- lapack-netlib/TESTING/LIN/cpot05.f | 5 +- lapack-netlib/TESTING/LIN/cppt01.f | 5 +- lapack-netlib/TESTING/LIN/cppt02.f | 5 +- lapack-netlib/TESTING/LIN/cppt03.f | 5 +- lapack-netlib/TESTING/LIN/cppt05.f | 5 +- lapack-netlib/TESTING/LIN/cpst01.f | 5 +- lapack-netlib/TESTING/LIN/cptt01.f | 5 +- lapack-netlib/TESTING/LIN/cptt02.f | 5 +- lapack-netlib/TESTING/LIN/cptt05.f | 5 +- lapack-netlib/TESTING/LIN/cqlt01.f | 5 +- lapack-netlib/TESTING/LIN/cqlt02.f | 5 +- lapack-netlib/TESTING/LIN/cqlt03.f | 5 +- lapack-netlib/TESTING/LIN/cqpt01.f | 5 +- lapack-netlib/TESTING/LIN/cqrt01.f | 5 +- lapack-netlib/TESTING/LIN/cqrt01p.f | 5 +- lapack-netlib/TESTING/LIN/cqrt02.f | 5 +- lapack-netlib/TESTING/LIN/cqrt03.f | 5 +- lapack-netlib/TESTING/LIN/cqrt04.f | 5 +- lapack-netlib/TESTING/LIN/cqrt05.f | 5 +- lapack-netlib/TESTING/LIN/cqrt11.f | 5 +- lapack-netlib/TESTING/LIN/cqrt12.f | 5 +- lapack-netlib/TESTING/LIN/cqrt13.f | 5 +- lapack-netlib/TESTING/LIN/cqrt14.f | 6 +- lapack-netlib/TESTING/LIN/cqrt15.f | 5 +- lapack-netlib/TESTING/LIN/cqrt16.f | 5 +- lapack-netlib/TESTING/LIN/cqrt17.f | 23 +- lapack-netlib/TESTING/LIN/crqt01.f | 5 +- lapack-netlib/TESTING/LIN/crqt02.f | 5 +- lapack-netlib/TESTING/LIN/crqt03.f | 5 +- lapack-netlib/TESTING/LIN/crzt01.f | 5 +- lapack-netlib/TESTING/LIN/crzt02.f | 5 +- lapack-netlib/TESTING/LIN/csbmv.f | 5 +- lapack-netlib/TESTING/LIN/cspt01.f | 5 +- lapack-netlib/TESTING/LIN/cspt02.f | 5 +- lapack-netlib/TESTING/LIN/cspt03.f | 5 +- lapack-netlib/TESTING/LIN/csyt01.f | 5 +- lapack-netlib/TESTING/LIN/csyt01_3.f | 5 +- lapack-netlib/TESTING/LIN/csyt01_aa.f | 9 +- lapack-netlib/TESTING/LIN/csyt01_rook.f | 5 +- lapack-netlib/TESTING/LIN/csyt02.f | 5 +- lapack-netlib/TESTING/LIN/csyt03.f | 5 +- lapack-netlib/TESTING/LIN/ctbt02.f | 25 +-- lapack-netlib/TESTING/LIN/ctbt03.f | 5 +- lapack-netlib/TESTING/LIN/ctbt05.f | 5 +- lapack-netlib/TESTING/LIN/ctbt06.f | 5 +- lapack-netlib/TESTING/LIN/ctpt01.f | 5 +- lapack-netlib/TESTING/LIN/ctpt02.f | 31 ++- lapack-netlib/TESTING/LIN/ctpt03.f | 5 +- lapack-netlib/TESTING/LIN/ctpt05.f | 5 +- lapack-netlib/TESTING/LIN/ctpt06.f | 5 +- lapack-netlib/TESTING/LIN/ctrt01.f | 5 +- lapack-netlib/TESTING/LIN/ctrt02.f | 29 +-- lapack-netlib/TESTING/LIN/ctrt03.f | 5 +- lapack-netlib/TESTING/LIN/ctrt05.f | 5 +- lapack-netlib/TESTING/LIN/ctrt06.f | 5 +- lapack-netlib/TESTING/LIN/ctsqr01.f | 5 +- lapack-netlib/TESTING/LIN/dchkab.f | 5 +- lapack-netlib/TESTING/LIN/dchkeq.f | 5 +- lapack-netlib/TESTING/LIN/dchkgb.f | 11 +- lapack-netlib/TESTING/LIN/dchkge.f | 7 +- lapack-netlib/TESTING/LIN/dchkgt.f | 5 +- lapack-netlib/TESTING/LIN/dchklq.f | 5 +- lapack-netlib/TESTING/LIN/dchklqt.f | 7 +- lapack-netlib/TESTING/LIN/dchklqtp.f | 7 +- lapack-netlib/TESTING/LIN/dchkorhr_col.f | 2 +- lapack-netlib/TESTING/LIN/dchkpb.f | 7 +- lapack-netlib/TESTING/LIN/dchkpo.f | 7 +- lapack-netlib/TESTING/LIN/dchkpp.f | 5 +- lapack-netlib/TESTING/LIN/dchkps.f | 7 +- lapack-netlib/TESTING/LIN/dchkpt.f | 5 +- lapack-netlib/TESTING/LIN/dchkq3.f | 5 +- lapack-netlib/TESTING/LIN/dchkql.f | 5 +- lapack-netlib/TESTING/LIN/dchkqr.f | 5 +- lapack-netlib/TESTING/LIN/dchkqrt.f | 7 +- lapack-netlib/TESTING/LIN/dchkqrtp.f | 7 +- lapack-netlib/TESTING/LIN/dchkrfp.f | 5 +- lapack-netlib/TESTING/LIN/dchkrq.f | 5 +- lapack-netlib/TESTING/LIN/dchksp.f | 5 +- lapack-netlib/TESTING/LIN/dchksy.f | 7 +- lapack-netlib/TESTING/LIN/dchksy_aa.f | 9 +- lapack-netlib/TESTING/LIN/dchksy_aa_2stage.f | 9 +- lapack-netlib/TESTING/LIN/dchksy_rk.f | 9 +- lapack-netlib/TESTING/LIN/dchksy_rook.f | 7 +- lapack-netlib/TESTING/LIN/dchktb.f | 5 +- lapack-netlib/TESTING/LIN/dchktp.f | 5 +- lapack-netlib/TESTING/LIN/dchktr.f | 5 +- lapack-netlib/TESTING/LIN/dchktsqr.f | 9 +- lapack-netlib/TESTING/LIN/dchktz.f | 5 +- lapack-netlib/TESTING/LIN/ddrvab.f | 5 +- lapack-netlib/TESTING/LIN/ddrvac.f | 5 +- lapack-netlib/TESTING/LIN/ddrvgb.f | 11 +- lapack-netlib/TESTING/LIN/ddrvgbx.f | 15 +- lapack-netlib/TESTING/LIN/ddrvge.f | 5 +- lapack-netlib/TESTING/LIN/ddrvgex.f | 7 +- lapack-netlib/TESTING/LIN/ddrvgt.f | 5 +- lapack-netlib/TESTING/LIN/ddrvls.f | 5 +- lapack-netlib/TESTING/LIN/ddrvpb.f | 5 +- lapack-netlib/TESTING/LIN/ddrvpo.f | 5 +- lapack-netlib/TESTING/LIN/ddrvpox.f | 7 +- lapack-netlib/TESTING/LIN/ddrvpp.f | 5 +- lapack-netlib/TESTING/LIN/ddrvpt.f | 5 +- lapack-netlib/TESTING/LIN/ddrvrf1.f | 5 +- lapack-netlib/TESTING/LIN/ddrvrf2.f | 5 +- lapack-netlib/TESTING/LIN/ddrvrf3.f | 9 +- lapack-netlib/TESTING/LIN/ddrvrf4.f | 5 +- lapack-netlib/TESTING/LIN/ddrvrfp.f | 10 +- lapack-netlib/TESTING/LIN/ddrvsp.f | 5 +- lapack-netlib/TESTING/LIN/ddrvsy.f | 5 +- lapack-netlib/TESTING/LIN/ddrvsy_aa.f | 7 +- lapack-netlib/TESTING/LIN/ddrvsy_aa_2stage.f | 5 +- lapack-netlib/TESTING/LIN/ddrvsy_rk.f | 7 +- lapack-netlib/TESTING/LIN/ddrvsy_rook.f | 5 +- lapack-netlib/TESTING/LIN/ddrvsyx.f | 7 +- lapack-netlib/TESTING/LIN/debchvxx.f | 6 +- lapack-netlib/TESTING/LIN/derrab.f | 5 +- lapack-netlib/TESTING/LIN/derrac.f | 5 +- lapack-netlib/TESTING/LIN/derrge.f | 5 +- lapack-netlib/TESTING/LIN/derrgex.f | 7 +- lapack-netlib/TESTING/LIN/derrgt.f | 5 +- lapack-netlib/TESTING/LIN/derrlq.f | 5 +- lapack-netlib/TESTING/LIN/derrlqt.f | 5 +- lapack-netlib/TESTING/LIN/derrlqtp.f | 7 +- lapack-netlib/TESTING/LIN/derrls.f | 5 +- lapack-netlib/TESTING/LIN/derrorhr_col.f | 7 +- lapack-netlib/TESTING/LIN/derrpo.f | 5 +- lapack-netlib/TESTING/LIN/derrpox.f | 7 +- lapack-netlib/TESTING/LIN/derrps.f | 5 +- lapack-netlib/TESTING/LIN/derrql.f | 5 +- lapack-netlib/TESTING/LIN/derrqp.f | 5 +- lapack-netlib/TESTING/LIN/derrqr.f | 5 +- lapack-netlib/TESTING/LIN/derrqrt.f | 5 +- lapack-netlib/TESTING/LIN/derrqrtp.f | 7 +- lapack-netlib/TESTING/LIN/derrrfp.f | 5 +- lapack-netlib/TESTING/LIN/derrrq.f | 5 +- lapack-netlib/TESTING/LIN/derrsy.f | 5 +- lapack-netlib/TESTING/LIN/derrsyx.f | 7 +- lapack-netlib/TESTING/LIN/derrtr.f | 5 +- lapack-netlib/TESTING/LIN/derrtsqr.f | 67 +++++- lapack-netlib/TESTING/LIN/derrtz.f | 5 +- lapack-netlib/TESTING/LIN/derrvx.f | 5 +- lapack-netlib/TESTING/LIN/derrvxx.f | 7 +- lapack-netlib/TESTING/LIN/dgbt01.f | 5 +- lapack-netlib/TESTING/LIN/dgbt02.f | 79 +++++-- lapack-netlib/TESTING/LIN/dgbt05.f | 5 +- lapack-netlib/TESTING/LIN/dgelqs.f | 5 +- lapack-netlib/TESTING/LIN/dgennd.f | 5 +- lapack-netlib/TESTING/LIN/dgeqls.f | 5 +- lapack-netlib/TESTING/LIN/dgeqrs.f | 5 +- lapack-netlib/TESTING/LIN/dgerqs.f | 5 +- lapack-netlib/TESTING/LIN/dget01.f | 5 +- lapack-netlib/TESTING/LIN/dget02.f | 31 +-- lapack-netlib/TESTING/LIN/dget03.f | 5 +- lapack-netlib/TESTING/LIN/dget04.f | 5 +- lapack-netlib/TESTING/LIN/dget06.f | 5 +- lapack-netlib/TESTING/LIN/dget07.f | 5 +- lapack-netlib/TESTING/LIN/dget08.f | 7 +- lapack-netlib/TESTING/LIN/dgtt01.f | 5 +- lapack-netlib/TESTING/LIN/dgtt02.f | 18 +- lapack-netlib/TESTING/LIN/dgtt05.f | 5 +- lapack-netlib/TESTING/LIN/dlahilb.f | 5 +- lapack-netlib/TESTING/LIN/dlaord.f | 5 +- lapack-netlib/TESTING/LIN/dlaptm.f | 5 +- lapack-netlib/TESTING/LIN/dlarhs.f | 16 +- lapack-netlib/TESTING/LIN/dlatb4.f | 5 +- lapack-netlib/TESTING/LIN/dlatb5.f | 5 +- lapack-netlib/TESTING/LIN/dlattb.f | 5 +- lapack-netlib/TESTING/LIN/dlattp.f | 5 +- lapack-netlib/TESTING/LIN/dlattr.f | 5 +- lapack-netlib/TESTING/LIN/dlavsp.f | 5 +- lapack-netlib/TESTING/LIN/dlavsy.f | 5 +- lapack-netlib/TESTING/LIN/dlavsy_rook.f | 5 +- lapack-netlib/TESTING/LIN/dlqt01.f | 5 +- lapack-netlib/TESTING/LIN/dlqt02.f | 5 +- lapack-netlib/TESTING/LIN/dlqt03.f | 5 +- lapack-netlib/TESTING/LIN/dlqt04.f | 5 +- lapack-netlib/TESTING/LIN/dlqt05.f | 5 +- lapack-netlib/TESTING/LIN/dpbt01.f | 5 +- lapack-netlib/TESTING/LIN/dpbt02.f | 5 +- lapack-netlib/TESTING/LIN/dpbt05.f | 5 +- lapack-netlib/TESTING/LIN/dpot01.f | 21 +- lapack-netlib/TESTING/LIN/dpot02.f | 5 +- lapack-netlib/TESTING/LIN/dpot03.f | 5 +- lapack-netlib/TESTING/LIN/dpot05.f | 5 +- lapack-netlib/TESTING/LIN/dpot06.f | 5 +- lapack-netlib/TESTING/LIN/dppt01.f | 5 +- lapack-netlib/TESTING/LIN/dppt02.f | 5 +- lapack-netlib/TESTING/LIN/dppt03.f | 5 +- lapack-netlib/TESTING/LIN/dppt05.f | 5 +- lapack-netlib/TESTING/LIN/dpst01.f | 5 +- lapack-netlib/TESTING/LIN/dptt01.f | 5 +- lapack-netlib/TESTING/LIN/dptt02.f | 5 +- lapack-netlib/TESTING/LIN/dptt05.f | 5 +- lapack-netlib/TESTING/LIN/dqlt01.f | 5 +- lapack-netlib/TESTING/LIN/dqlt02.f | 5 +- lapack-netlib/TESTING/LIN/dqlt03.f | 5 +- lapack-netlib/TESTING/LIN/dqpt01.f | 5 +- lapack-netlib/TESTING/LIN/dqrt01.f | 5 +- lapack-netlib/TESTING/LIN/dqrt01p.f | 5 +- lapack-netlib/TESTING/LIN/dqrt02.f | 5 +- lapack-netlib/TESTING/LIN/dqrt03.f | 5 +- lapack-netlib/TESTING/LIN/dqrt04.f | 5 +- lapack-netlib/TESTING/LIN/dqrt05.f | 5 +- lapack-netlib/TESTING/LIN/dqrt11.f | 5 +- lapack-netlib/TESTING/LIN/dqrt12.f | 5 +- lapack-netlib/TESTING/LIN/dqrt13.f | 5 +- lapack-netlib/TESTING/LIN/dqrt14.f | 6 +- lapack-netlib/TESTING/LIN/dqrt15.f | 5 +- lapack-netlib/TESTING/LIN/dqrt16.f | 5 +- lapack-netlib/TESTING/LIN/dqrt17.f | 23 +- lapack-netlib/TESTING/LIN/drqt01.f | 5 +- lapack-netlib/TESTING/LIN/drqt02.f | 5 +- lapack-netlib/TESTING/LIN/drqt03.f | 5 +- lapack-netlib/TESTING/LIN/drzt01.f | 5 +- lapack-netlib/TESTING/LIN/drzt02.f | 5 +- lapack-netlib/TESTING/LIN/dspt01.f | 5 +- lapack-netlib/TESTING/LIN/dsyt01.f | 5 +- lapack-netlib/TESTING/LIN/dsyt01_3.f | 5 +- lapack-netlib/TESTING/LIN/dsyt01_aa.f | 9 +- lapack-netlib/TESTING/LIN/dsyt01_rook.f | 5 +- lapack-netlib/TESTING/LIN/dtbt02.f | 25 +-- lapack-netlib/TESTING/LIN/dtbt03.f | 5 +- lapack-netlib/TESTING/LIN/dtbt05.f | 5 +- lapack-netlib/TESTING/LIN/dtbt06.f | 5 +- lapack-netlib/TESTING/LIN/dtplqt.f | 5 +- lapack-netlib/TESTING/LIN/dtpt01.f | 5 +- lapack-netlib/TESTING/LIN/dtpt02.f | 30 ++- lapack-netlib/TESTING/LIN/dtpt03.f | 5 +- lapack-netlib/TESTING/LIN/dtpt05.f | 5 +- lapack-netlib/TESTING/LIN/dtpt06.f | 5 +- lapack-netlib/TESTING/LIN/dtrt01.f | 5 +- lapack-netlib/TESTING/LIN/dtrt02.f | 29 ++- lapack-netlib/TESTING/LIN/dtrt03.f | 5 +- lapack-netlib/TESTING/LIN/dtrt05.f | 5 +- lapack-netlib/TESTING/LIN/dtrt06.f | 5 +- lapack-netlib/TESTING/LIN/dtsqr01.f | 5 +- lapack-netlib/TESTING/LIN/icopy.f | 5 +- lapack-netlib/TESTING/LIN/ilaenv.f | 5 +- lapack-netlib/TESTING/LIN/schkeq.f | 5 +- lapack-netlib/TESTING/LIN/schkgb.f | 11 +- lapack-netlib/TESTING/LIN/schkge.f | 7 +- lapack-netlib/TESTING/LIN/schkgt.f | 5 +- lapack-netlib/TESTING/LIN/schklq.f | 5 +- lapack-netlib/TESTING/LIN/schklqt.f | 7 +- lapack-netlib/TESTING/LIN/schklqtp.f | 7 +- lapack-netlib/TESTING/LIN/schkorhr_col.f | 2 +- lapack-netlib/TESTING/LIN/schkpb.f | 7 +- lapack-netlib/TESTING/LIN/schkpo.f | 7 +- lapack-netlib/TESTING/LIN/schkpp.f | 5 +- lapack-netlib/TESTING/LIN/schkps.f | 7 +- lapack-netlib/TESTING/LIN/schkpt.f | 5 +- lapack-netlib/TESTING/LIN/schkq3.f | 5 +- lapack-netlib/TESTING/LIN/schkql.f | 5 +- lapack-netlib/TESTING/LIN/schkqr.f | 5 +- lapack-netlib/TESTING/LIN/schkqrt.f | 7 +- lapack-netlib/TESTING/LIN/schkqrtp.f | 7 +- lapack-netlib/TESTING/LIN/schkrfp.f | 5 +- lapack-netlib/TESTING/LIN/schkrq.f | 5 +- lapack-netlib/TESTING/LIN/schksp.f | 5 +- lapack-netlib/TESTING/LIN/schksy.f | 7 +- lapack-netlib/TESTING/LIN/schksy_aa.f | 7 +- lapack-netlib/TESTING/LIN/schksy_aa_2stage.f | 9 +- lapack-netlib/TESTING/LIN/schksy_rk.f | 9 +- lapack-netlib/TESTING/LIN/schksy_rook.f | 7 +- lapack-netlib/TESTING/LIN/schktb.f | 5 +- lapack-netlib/TESTING/LIN/schktp.f | 5 +- lapack-netlib/TESTING/LIN/schktr.f | 5 +- lapack-netlib/TESTING/LIN/schktsqr.f | 9 +- lapack-netlib/TESTING/LIN/schktz.f | 5 +- lapack-netlib/TESTING/LIN/sdrvgb.f | 11 +- lapack-netlib/TESTING/LIN/sdrvgbx.f | 15 +- lapack-netlib/TESTING/LIN/sdrvge.f | 5 +- lapack-netlib/TESTING/LIN/sdrvgex.f | 7 +- lapack-netlib/TESTING/LIN/sdrvgt.f | 5 +- lapack-netlib/TESTING/LIN/sdrvls.f | 5 +- lapack-netlib/TESTING/LIN/sdrvpb.f | 5 +- lapack-netlib/TESTING/LIN/sdrvpo.f | 5 +- lapack-netlib/TESTING/LIN/sdrvpox.f | 7 +- lapack-netlib/TESTING/LIN/sdrvpp.f | 5 +- lapack-netlib/TESTING/LIN/sdrvpt.f | 5 +- lapack-netlib/TESTING/LIN/sdrvrf1.f | 5 +- lapack-netlib/TESTING/LIN/sdrvrf2.f | 5 +- lapack-netlib/TESTING/LIN/sdrvrf3.f | 9 +- lapack-netlib/TESTING/LIN/sdrvrf4.f | 5 +- lapack-netlib/TESTING/LIN/sdrvrfp.f | 10 +- lapack-netlib/TESTING/LIN/sdrvsp.f | 5 +- lapack-netlib/TESTING/LIN/sdrvsy.f | 5 +- lapack-netlib/TESTING/LIN/sdrvsy_aa.f | 5 +- lapack-netlib/TESTING/LIN/sdrvsy_aa_2stage.f | 5 +- lapack-netlib/TESTING/LIN/sdrvsy_rk.f | 7 +- lapack-netlib/TESTING/LIN/sdrvsy_rook.f | 5 +- lapack-netlib/TESTING/LIN/sdrvsyx.f | 7 +- lapack-netlib/TESTING/LIN/sebchvxx.f | 6 +- lapack-netlib/TESTING/LIN/serrge.f | 5 +- lapack-netlib/TESTING/LIN/serrgex.f | 7 +- lapack-netlib/TESTING/LIN/serrgt.f | 5 +- lapack-netlib/TESTING/LIN/serrlq.f | 5 +- lapack-netlib/TESTING/LIN/serrlqt.f | 5 +- lapack-netlib/TESTING/LIN/serrlqtp.f | 7 +- lapack-netlib/TESTING/LIN/serrls.f | 5 +- lapack-netlib/TESTING/LIN/serrorhr_col.f | 7 +- lapack-netlib/TESTING/LIN/serrpo.f | 5 +- lapack-netlib/TESTING/LIN/serrpox.f | 7 +- lapack-netlib/TESTING/LIN/serrps.f | 5 +- lapack-netlib/TESTING/LIN/serrql.f | 5 +- lapack-netlib/TESTING/LIN/serrqp.f | 5 +- lapack-netlib/TESTING/LIN/serrqr.f | 5 +- lapack-netlib/TESTING/LIN/serrqrt.f | 5 +- lapack-netlib/TESTING/LIN/serrqrtp.f | 7 +- lapack-netlib/TESTING/LIN/serrrfp.f | 5 +- lapack-netlib/TESTING/LIN/serrrq.f | 5 +- lapack-netlib/TESTING/LIN/serrsy.f | 5 +- lapack-netlib/TESTING/LIN/serrsyx.f | 7 +- lapack-netlib/TESTING/LIN/serrtr.f | 5 +- lapack-netlib/TESTING/LIN/serrtsqr.f | 67 +++++- lapack-netlib/TESTING/LIN/serrtz.f | 5 +- lapack-netlib/TESTING/LIN/serrvx.f | 5 +- lapack-netlib/TESTING/LIN/serrvxx.f | 7 +- lapack-netlib/TESTING/LIN/sgbt01.f | 5 +- lapack-netlib/TESTING/LIN/sgbt02.f | 79 +++++-- lapack-netlib/TESTING/LIN/sgbt05.f | 5 +- lapack-netlib/TESTING/LIN/sgelqs.f | 5 +- lapack-netlib/TESTING/LIN/sgennd.f | 5 +- lapack-netlib/TESTING/LIN/sgeqls.f | 5 +- lapack-netlib/TESTING/LIN/sgeqrs.f | 5 +- lapack-netlib/TESTING/LIN/sgerqs.f | 5 +- lapack-netlib/TESTING/LIN/sget01.f | 5 +- lapack-netlib/TESTING/LIN/sget02.f | 31 +-- lapack-netlib/TESTING/LIN/sget03.f | 5 +- lapack-netlib/TESTING/LIN/sget04.f | 5 +- lapack-netlib/TESTING/LIN/sget06.f | 5 +- lapack-netlib/TESTING/LIN/sget07.f | 5 +- lapack-netlib/TESTING/LIN/sgtt01.f | 5 +- lapack-netlib/TESTING/LIN/sgtt02.f | 18 +- lapack-netlib/TESTING/LIN/sgtt05.f | 5 +- lapack-netlib/TESTING/LIN/slahilb.f | 5 +- lapack-netlib/TESTING/LIN/slaord.f | 5 +- lapack-netlib/TESTING/LIN/slaptm.f | 5 +- lapack-netlib/TESTING/LIN/slarhs.f | 16 +- lapack-netlib/TESTING/LIN/slatb4.f | 5 +- lapack-netlib/TESTING/LIN/slatb5.f | 5 +- lapack-netlib/TESTING/LIN/slattb.f | 5 +- lapack-netlib/TESTING/LIN/slattp.f | 5 +- lapack-netlib/TESTING/LIN/slattr.f | 5 +- lapack-netlib/TESTING/LIN/slavsp.f | 5 +- lapack-netlib/TESTING/LIN/slavsy.f | 5 +- lapack-netlib/TESTING/LIN/slavsy_rook.f | 5 +- lapack-netlib/TESTING/LIN/slqt01.f | 5 +- lapack-netlib/TESTING/LIN/slqt02.f | 5 +- lapack-netlib/TESTING/LIN/slqt03.f | 5 +- lapack-netlib/TESTING/LIN/slqt04.f | 5 +- lapack-netlib/TESTING/LIN/slqt05.f | 13 +- lapack-netlib/TESTING/LIN/spbt01.f | 5 +- lapack-netlib/TESTING/LIN/spbt02.f | 5 +- lapack-netlib/TESTING/LIN/spbt05.f | 5 +- lapack-netlib/TESTING/LIN/spot01.f | 21 +- lapack-netlib/TESTING/LIN/spot02.f | 5 +- lapack-netlib/TESTING/LIN/spot03.f | 5 +- lapack-netlib/TESTING/LIN/spot05.f | 5 +- lapack-netlib/TESTING/LIN/sppt01.f | 5 +- lapack-netlib/TESTING/LIN/sppt02.f | 5 +- lapack-netlib/TESTING/LIN/sppt03.f | 5 +- lapack-netlib/TESTING/LIN/sppt05.f | 5 +- lapack-netlib/TESTING/LIN/spst01.f | 5 +- lapack-netlib/TESTING/LIN/sptt01.f | 5 +- lapack-netlib/TESTING/LIN/sptt02.f | 5 +- lapack-netlib/TESTING/LIN/sptt05.f | 5 +- lapack-netlib/TESTING/LIN/sqlt01.f | 5 +- lapack-netlib/TESTING/LIN/sqlt02.f | 5 +- lapack-netlib/TESTING/LIN/sqlt03.f | 5 +- lapack-netlib/TESTING/LIN/sqpt01.f | 5 +- lapack-netlib/TESTING/LIN/sqrt01.f | 5 +- lapack-netlib/TESTING/LIN/sqrt01p.f | 5 +- lapack-netlib/TESTING/LIN/sqrt02.f | 5 +- lapack-netlib/TESTING/LIN/sqrt03.f | 5 +- lapack-netlib/TESTING/LIN/sqrt04.f | 5 +- lapack-netlib/TESTING/LIN/sqrt05.f | 5 +- lapack-netlib/TESTING/LIN/sqrt11.f | 5 +- lapack-netlib/TESTING/LIN/sqrt12.f | 5 +- lapack-netlib/TESTING/LIN/sqrt13.f | 5 +- lapack-netlib/TESTING/LIN/sqrt14.f | 6 +- lapack-netlib/TESTING/LIN/sqrt15.f | 5 +- lapack-netlib/TESTING/LIN/sqrt16.f | 5 +- lapack-netlib/TESTING/LIN/sqrt17.f | 23 +- lapack-netlib/TESTING/LIN/srqt01.f | 5 +- lapack-netlib/TESTING/LIN/srqt02.f | 5 +- lapack-netlib/TESTING/LIN/srqt03.f | 5 +- lapack-netlib/TESTING/LIN/srzt01.f | 5 +- lapack-netlib/TESTING/LIN/srzt02.f | 5 +- lapack-netlib/TESTING/LIN/sspt01.f | 5 +- lapack-netlib/TESTING/LIN/ssyt01.f | 5 +- lapack-netlib/TESTING/LIN/ssyt01_3.f | 5 +- lapack-netlib/TESTING/LIN/ssyt01_aa.f | 6 +- lapack-netlib/TESTING/LIN/ssyt01_rook.f | 5 +- lapack-netlib/TESTING/LIN/stbt02.f | 25 +-- lapack-netlib/TESTING/LIN/stbt03.f | 5 +- lapack-netlib/TESTING/LIN/stbt05.f | 5 +- lapack-netlib/TESTING/LIN/stbt06.f | 5 +- lapack-netlib/TESTING/LIN/stplqt.f | 22 +- lapack-netlib/TESTING/LIN/stpt01.f | 5 +- lapack-netlib/TESTING/LIN/stpt02.f | 30 ++- lapack-netlib/TESTING/LIN/stpt03.f | 5 +- lapack-netlib/TESTING/LIN/stpt05.f | 5 +- lapack-netlib/TESTING/LIN/stpt06.f | 5 +- lapack-netlib/TESTING/LIN/strt01.f | 5 +- lapack-netlib/TESTING/LIN/strt02.f | 29 ++- lapack-netlib/TESTING/LIN/strt03.f | 5 +- lapack-netlib/TESTING/LIN/strt05.f | 5 +- lapack-netlib/TESTING/LIN/strt06.f | 5 +- lapack-netlib/TESTING/LIN/stsqr01.f | 5 +- lapack-netlib/TESTING/LIN/xerbla.f | 5 +- lapack-netlib/TESTING/LIN/xlaenv.f | 5 +- lapack-netlib/TESTING/LIN/zchkab.f | 5 +- lapack-netlib/TESTING/LIN/zchkeq.f | 5 +- lapack-netlib/TESTING/LIN/zchkgb.f | 13 +- lapack-netlib/TESTING/LIN/zchkge.f | 7 +- lapack-netlib/TESTING/LIN/zchkgt.f | 5 +- lapack-netlib/TESTING/LIN/zchkhe.f | 7 +- lapack-netlib/TESTING/LIN/zchkhe_aa.f | 8 +- lapack-netlib/TESTING/LIN/zchkhe_aa_2stage.f | 9 +- lapack-netlib/TESTING/LIN/zchkhe_rk.f | 9 +- lapack-netlib/TESTING/LIN/zchkhe_rook.f | 7 +- lapack-netlib/TESTING/LIN/zchkhp.f | 5 +- lapack-netlib/TESTING/LIN/zchklq.f | 7 +- lapack-netlib/TESTING/LIN/zchklqt.f | 7 +- lapack-netlib/TESTING/LIN/zchklqtp.f | 7 +- lapack-netlib/TESTING/LIN/zchkpb.f | 7 +- lapack-netlib/TESTING/LIN/zchkpo.f | 7 +- lapack-netlib/TESTING/LIN/zchkpp.f | 5 +- lapack-netlib/TESTING/LIN/zchkps.f | 7 +- lapack-netlib/TESTING/LIN/zchkpt.f | 5 +- lapack-netlib/TESTING/LIN/zchkq3.f | 5 +- lapack-netlib/TESTING/LIN/zchkql.f | 7 +- lapack-netlib/TESTING/LIN/zchkqr.f | 7 +- lapack-netlib/TESTING/LIN/zchkqrt.f | 7 +- lapack-netlib/TESTING/LIN/zchkqrtp.f | 7 +- lapack-netlib/TESTING/LIN/zchkrfp.f | 5 +- lapack-netlib/TESTING/LIN/zchkrq.f | 7 +- lapack-netlib/TESTING/LIN/zchksp.f | 5 +- lapack-netlib/TESTING/LIN/zchksy.f | 7 +- lapack-netlib/TESTING/LIN/zchksy_aa.f | 7 +- lapack-netlib/TESTING/LIN/zchksy_aa_2stage.f | 7 +- lapack-netlib/TESTING/LIN/zchksy_rk.f | 9 +- lapack-netlib/TESTING/LIN/zchksy_rook.f | 7 +- lapack-netlib/TESTING/LIN/zchktb.f | 5 +- lapack-netlib/TESTING/LIN/zchktp.f | 5 +- lapack-netlib/TESTING/LIN/zchktr.f | 5 +- lapack-netlib/TESTING/LIN/zchktsqr.f | 9 +- lapack-netlib/TESTING/LIN/zchktz.f | 5 +- lapack-netlib/TESTING/LIN/zchkunhr_col.f | 2 +- lapack-netlib/TESTING/LIN/zdrvab.f | 5 +- lapack-netlib/TESTING/LIN/zdrvac.f | 5 +- lapack-netlib/TESTING/LIN/zdrvgb.f | 11 +- lapack-netlib/TESTING/LIN/zdrvgbx.f | 16 +- lapack-netlib/TESTING/LIN/zdrvge.f | 5 +- lapack-netlib/TESTING/LIN/zdrvgex.f | 7 +- lapack-netlib/TESTING/LIN/zdrvgt.f | 5 +- lapack-netlib/TESTING/LIN/zdrvhe.f | 5 +- lapack-netlib/TESTING/LIN/zdrvhe_aa.f | 5 +- lapack-netlib/TESTING/LIN/zdrvhe_aa_2stage.f | 5 +- lapack-netlib/TESTING/LIN/zdrvhe_rk.f | 7 +- lapack-netlib/TESTING/LIN/zdrvhe_rook.f | 5 +- lapack-netlib/TESTING/LIN/zdrvhex.f | 7 +- lapack-netlib/TESTING/LIN/zdrvhp.f | 5 +- lapack-netlib/TESTING/LIN/zdrvls.f | 5 +- lapack-netlib/TESTING/LIN/zdrvpb.f | 5 +- lapack-netlib/TESTING/LIN/zdrvpo.f | 5 +- lapack-netlib/TESTING/LIN/zdrvpox.f | 7 +- lapack-netlib/TESTING/LIN/zdrvpp.f | 5 +- lapack-netlib/TESTING/LIN/zdrvpt.f | 5 +- lapack-netlib/TESTING/LIN/zdrvrf1.f | 5 +- lapack-netlib/TESTING/LIN/zdrvrf2.f | 5 +- lapack-netlib/TESTING/LIN/zdrvrf3.f | 9 +- lapack-netlib/TESTING/LIN/zdrvrf4.f | 5 +- lapack-netlib/TESTING/LIN/zdrvrfp.f | 5 +- lapack-netlib/TESTING/LIN/zdrvsp.f | 5 +- lapack-netlib/TESTING/LIN/zdrvsy.f | 5 +- lapack-netlib/TESTING/LIN/zdrvsy_aa.f | 5 +- lapack-netlib/TESTING/LIN/zdrvsy_aa_2stage.f | 5 +- lapack-netlib/TESTING/LIN/zdrvsy_rk.f | 7 +- lapack-netlib/TESTING/LIN/zdrvsy_rook.f | 5 +- lapack-netlib/TESTING/LIN/zdrvsyx.f | 7 +- lapack-netlib/TESTING/LIN/zebchvxx.f | 6 +- lapack-netlib/TESTING/LIN/zerrab.f | 5 +- lapack-netlib/TESTING/LIN/zerrac.f | 5 +- lapack-netlib/TESTING/LIN/zerrge.f | 5 +- lapack-netlib/TESTING/LIN/zerrgex.f | 7 +- lapack-netlib/TESTING/LIN/zerrgt.f | 5 +- lapack-netlib/TESTING/LIN/zerrhe.f | 5 +- lapack-netlib/TESTING/LIN/zerrhex.f | 7 +- lapack-netlib/TESTING/LIN/zerrlq.f | 5 +- lapack-netlib/TESTING/LIN/zerrlqt.f | 5 +- lapack-netlib/TESTING/LIN/zerrlqtp.f | 7 +- lapack-netlib/TESTING/LIN/zerrls.f | 5 +- lapack-netlib/TESTING/LIN/zerrpo.f | 5 +- lapack-netlib/TESTING/LIN/zerrpox.f | 7 +- lapack-netlib/TESTING/LIN/zerrps.f | 5 +- lapack-netlib/TESTING/LIN/zerrql.f | 5 +- lapack-netlib/TESTING/LIN/zerrqp.f | 5 +- lapack-netlib/TESTING/LIN/zerrqr.f | 5 +- lapack-netlib/TESTING/LIN/zerrqrt.f | 5 +- lapack-netlib/TESTING/LIN/zerrqrtp.f | 7 +- lapack-netlib/TESTING/LIN/zerrrfp.f | 5 +- lapack-netlib/TESTING/LIN/zerrrq.f | 5 +- lapack-netlib/TESTING/LIN/zerrsy.f | 5 +- lapack-netlib/TESTING/LIN/zerrsyx.f | 7 +- lapack-netlib/TESTING/LIN/zerrtr.f | 5 +- lapack-netlib/TESTING/LIN/zerrtsqr.f | 69 +++++- lapack-netlib/TESTING/LIN/zerrtz.f | 5 +- lapack-netlib/TESTING/LIN/zerrunhr_col.f | 7 +- lapack-netlib/TESTING/LIN/zerrvx.f | 5 +- lapack-netlib/TESTING/LIN/zerrvxx.f | 7 +- lapack-netlib/TESTING/LIN/zgbt01.f | 5 +- lapack-netlib/TESTING/LIN/zgbt02.f | 81 +++++-- lapack-netlib/TESTING/LIN/zgbt05.f | 7 +- lapack-netlib/TESTING/LIN/zgelqs.f | 5 +- lapack-netlib/TESTING/LIN/zgennd.f | 5 +- lapack-netlib/TESTING/LIN/zgeqls.f | 5 +- lapack-netlib/TESTING/LIN/zgeqrs.f | 5 +- lapack-netlib/TESTING/LIN/zgerqs.f | 5 +- lapack-netlib/TESTING/LIN/zget01.f | 5 +- lapack-netlib/TESTING/LIN/zget02.f | 30 +-- lapack-netlib/TESTING/LIN/zget03.f | 5 +- lapack-netlib/TESTING/LIN/zget04.f | 5 +- lapack-netlib/TESTING/LIN/zget07.f | 5 +- lapack-netlib/TESTING/LIN/zget08.f | 7 +- lapack-netlib/TESTING/LIN/zgtt01.f | 5 +- lapack-netlib/TESTING/LIN/zgtt02.f | 13 +- lapack-netlib/TESTING/LIN/zgtt05.f | 5 +- lapack-netlib/TESTING/LIN/zhet01.f | 5 +- lapack-netlib/TESTING/LIN/zhet01_3.f | 5 +- lapack-netlib/TESTING/LIN/zhet01_aa.f | 6 +- lapack-netlib/TESTING/LIN/zhet01_rook.f | 5 +- lapack-netlib/TESTING/LIN/zhpt01.f | 5 +- lapack-netlib/TESTING/LIN/zlahilb.f | 5 +- lapack-netlib/TESTING/LIN/zlaipd.f | 5 +- lapack-netlib/TESTING/LIN/zlaptm.f | 5 +- lapack-netlib/TESTING/LIN/zlarhs.f | 14 +- lapack-netlib/TESTING/LIN/zlatb4.f | 5 +- lapack-netlib/TESTING/LIN/zlatb5.f | 5 +- lapack-netlib/TESTING/LIN/zlatsp.f | 5 +- lapack-netlib/TESTING/LIN/zlatsy.f | 5 +- lapack-netlib/TESTING/LIN/zlattb.f | 5 +- lapack-netlib/TESTING/LIN/zlattp.f | 5 +- lapack-netlib/TESTING/LIN/zlattr.f | 5 +- lapack-netlib/TESTING/LIN/zlavhe.f | 5 +- lapack-netlib/TESTING/LIN/zlavhe_rook.f | 5 +- lapack-netlib/TESTING/LIN/zlavhp.f | 5 +- lapack-netlib/TESTING/LIN/zlavsp.f | 5 +- lapack-netlib/TESTING/LIN/zlavsy.f | 5 +- lapack-netlib/TESTING/LIN/zlavsy_rook.f | 5 +- lapack-netlib/TESTING/LIN/zlqt01.f | 5 +- lapack-netlib/TESTING/LIN/zlqt02.f | 5 +- lapack-netlib/TESTING/LIN/zlqt03.f | 5 +- lapack-netlib/TESTING/LIN/zlqt04.f | 5 +- lapack-netlib/TESTING/LIN/zlqt05.f | 5 +- lapack-netlib/TESTING/LIN/zpbt01.f | 5 +- lapack-netlib/TESTING/LIN/zpbt02.f | 5 +- lapack-netlib/TESTING/LIN/zpbt05.f | 5 +- lapack-netlib/TESTING/LIN/zpot01.f | 21 +- lapack-netlib/TESTING/LIN/zpot02.f | 5 +- lapack-netlib/TESTING/LIN/zpot03.f | 5 +- lapack-netlib/TESTING/LIN/zpot05.f | 5 +- lapack-netlib/TESTING/LIN/zpot06.f | 5 +- lapack-netlib/TESTING/LIN/zppt01.f | 5 +- lapack-netlib/TESTING/LIN/zppt02.f | 5 +- lapack-netlib/TESTING/LIN/zppt03.f | 5 +- lapack-netlib/TESTING/LIN/zppt05.f | 5 +- lapack-netlib/TESTING/LIN/zpst01.f | 5 +- lapack-netlib/TESTING/LIN/zptt01.f | 5 +- lapack-netlib/TESTING/LIN/zptt02.f | 5 +- lapack-netlib/TESTING/LIN/zptt05.f | 5 +- lapack-netlib/TESTING/LIN/zqlt01.f | 5 +- lapack-netlib/TESTING/LIN/zqlt02.f | 5 +- lapack-netlib/TESTING/LIN/zqlt03.f | 5 +- lapack-netlib/TESTING/LIN/zqpt01.f | 5 +- lapack-netlib/TESTING/LIN/zqrt01.f | 5 +- lapack-netlib/TESTING/LIN/zqrt01p.f | 5 +- lapack-netlib/TESTING/LIN/zqrt02.f | 5 +- lapack-netlib/TESTING/LIN/zqrt03.f | 5 +- lapack-netlib/TESTING/LIN/zqrt04.f | 5 +- lapack-netlib/TESTING/LIN/zqrt05.f | 5 +- lapack-netlib/TESTING/LIN/zqrt11.f | 5 +- lapack-netlib/TESTING/LIN/zqrt12.f | 5 +- lapack-netlib/TESTING/LIN/zqrt13.f | 5 +- lapack-netlib/TESTING/LIN/zqrt14.f | 6 +- lapack-netlib/TESTING/LIN/zqrt15.f | 5 +- lapack-netlib/TESTING/LIN/zqrt16.f | 5 +- lapack-netlib/TESTING/LIN/zqrt17.f | 23 +- lapack-netlib/TESTING/LIN/zrqt01.f | 5 +- lapack-netlib/TESTING/LIN/zrqt02.f | 5 +- lapack-netlib/TESTING/LIN/zrqt03.f | 5 +- lapack-netlib/TESTING/LIN/zrzt01.f | 5 +- lapack-netlib/TESTING/LIN/zrzt02.f | 5 +- lapack-netlib/TESTING/LIN/zsbmv.f | 5 +- lapack-netlib/TESTING/LIN/zspt01.f | 5 +- lapack-netlib/TESTING/LIN/zspt02.f | 5 +- lapack-netlib/TESTING/LIN/zspt03.f | 5 +- lapack-netlib/TESTING/LIN/zsyt01.f | 5 +- lapack-netlib/TESTING/LIN/zsyt01_3.f | 5 +- lapack-netlib/TESTING/LIN/zsyt01_aa.f | 9 +- lapack-netlib/TESTING/LIN/zsyt01_rook.f | 5 +- lapack-netlib/TESTING/LIN/zsyt02.f | 5 +- lapack-netlib/TESTING/LIN/zsyt03.f | 5 +- lapack-netlib/TESTING/LIN/ztbt02.f | 25 +-- lapack-netlib/TESTING/LIN/ztbt03.f | 5 +- lapack-netlib/TESTING/LIN/ztbt05.f | 5 +- lapack-netlib/TESTING/LIN/ztbt06.f | 5 +- lapack-netlib/TESTING/LIN/ztpt01.f | 5 +- lapack-netlib/TESTING/LIN/ztpt02.f | 31 ++- lapack-netlib/TESTING/LIN/ztpt03.f | 5 +- lapack-netlib/TESTING/LIN/ztpt05.f | 5 +- lapack-netlib/TESTING/LIN/ztpt06.f | 5 +- lapack-netlib/TESTING/LIN/ztrt01.f | 5 +- lapack-netlib/TESTING/LIN/ztrt02.f | 29 +-- lapack-netlib/TESTING/LIN/ztrt03.f | 5 +- lapack-netlib/TESTING/LIN/ztrt05.f | 5 +- lapack-netlib/TESTING/LIN/ztrt06.f | 5 +- lapack-netlib/TESTING/LIN/ztsqr01.f | 5 +- lapack-netlib/TESTING/MATGEN/Makefile | 19 +- lapack-netlib/TESTING/MATGEN/clagge.f | 5 +- lapack-netlib/TESTING/MATGEN/claghe.f | 5 +- lapack-netlib/TESTING/MATGEN/clagsy.f | 5 +- lapack-netlib/TESTING/MATGEN/clahilb.f | 5 +- lapack-netlib/TESTING/MATGEN/clakf2.f | 5 +- lapack-netlib/TESTING/MATGEN/clarge.f | 5 +- lapack-netlib/TESTING/MATGEN/clarnd.f | 7 +- lapack-netlib/TESTING/MATGEN/claror.f | 5 +- lapack-netlib/TESTING/MATGEN/clarot.f | 5 +- lapack-netlib/TESTING/MATGEN/clatm1.f | 5 +- lapack-netlib/TESTING/MATGEN/clatm2.f | 5 +- lapack-netlib/TESTING/MATGEN/clatm3.f | 5 +- lapack-netlib/TESTING/MATGEN/clatm5.f | 5 +- lapack-netlib/TESTING/MATGEN/clatm6.f | 5 +- lapack-netlib/TESTING/MATGEN/clatme.f | 5 +- lapack-netlib/TESTING/MATGEN/clatmr.f | 5 +- lapack-netlib/TESTING/MATGEN/clatms.f | 7 +- lapack-netlib/TESTING/MATGEN/clatmt.f | 7 +- lapack-netlib/TESTING/MATGEN/dlagge.f | 5 +- lapack-netlib/TESTING/MATGEN/dlagsy.f | 5 +- lapack-netlib/TESTING/MATGEN/dlahilb.f | 5 +- lapack-netlib/TESTING/MATGEN/dlakf2.f | 5 +- lapack-netlib/TESTING/MATGEN/dlaran.f | 5 +- lapack-netlib/TESTING/MATGEN/dlarge.f | 5 +- lapack-netlib/TESTING/MATGEN/dlarnd.f | 7 +- lapack-netlib/TESTING/MATGEN/dlaror.f | 5 +- lapack-netlib/TESTING/MATGEN/dlarot.f | 5 +- lapack-netlib/TESTING/MATGEN/dlatm1.f | 5 +- lapack-netlib/TESTING/MATGEN/dlatm2.f | 5 +- lapack-netlib/TESTING/MATGEN/dlatm3.f | 5 +- lapack-netlib/TESTING/MATGEN/dlatm5.f | 5 +- lapack-netlib/TESTING/MATGEN/dlatm6.f | 5 +- lapack-netlib/TESTING/MATGEN/dlatm7.f | 5 +- lapack-netlib/TESTING/MATGEN/dlatme.f | 5 +- lapack-netlib/TESTING/MATGEN/dlatmr.f | 5 +- lapack-netlib/TESTING/MATGEN/dlatms.f | 7 +- lapack-netlib/TESTING/MATGEN/dlatmt.f | 7 +- lapack-netlib/TESTING/MATGEN/slagge.f | 5 +- lapack-netlib/TESTING/MATGEN/slagsy.f | 5 +- lapack-netlib/TESTING/MATGEN/slahilb.f | 5 +- lapack-netlib/TESTING/MATGEN/slakf2.f | 5 +- lapack-netlib/TESTING/MATGEN/slaran.f | 5 +- lapack-netlib/TESTING/MATGEN/slarge.f | 5 +- lapack-netlib/TESTING/MATGEN/slarnd.f | 7 +- lapack-netlib/TESTING/MATGEN/slaror.f | 5 +- lapack-netlib/TESTING/MATGEN/slarot.f | 5 +- lapack-netlib/TESTING/MATGEN/slatm1.f | 5 +- lapack-netlib/TESTING/MATGEN/slatm2.f | 5 +- lapack-netlib/TESTING/MATGEN/slatm3.f | 5 +- lapack-netlib/TESTING/MATGEN/slatm5.f | 5 +- lapack-netlib/TESTING/MATGEN/slatm6.f | 5 +- lapack-netlib/TESTING/MATGEN/slatm7.f | 5 +- lapack-netlib/TESTING/MATGEN/slatme.f | 5 +- lapack-netlib/TESTING/MATGEN/slatmr.f | 5 +- lapack-netlib/TESTING/MATGEN/slatms.f | 7 +- lapack-netlib/TESTING/MATGEN/slatmt.f | 7 +- lapack-netlib/TESTING/MATGEN/zlagge.f | 5 +- lapack-netlib/TESTING/MATGEN/zlaghe.f | 5 +- lapack-netlib/TESTING/MATGEN/zlagsy.f | 5 +- lapack-netlib/TESTING/MATGEN/zlahilb.f | 5 +- lapack-netlib/TESTING/MATGEN/zlakf2.f | 5 +- lapack-netlib/TESTING/MATGEN/zlarge.f | 5 +- lapack-netlib/TESTING/MATGEN/zlarnd.f | 7 +- lapack-netlib/TESTING/MATGEN/zlaror.f | 5 +- lapack-netlib/TESTING/MATGEN/zlarot.f | 5 +- lapack-netlib/TESTING/MATGEN/zlatm1.f | 5 +- lapack-netlib/TESTING/MATGEN/zlatm2.f | 5 +- lapack-netlib/TESTING/MATGEN/zlatm3.f | 5 +- lapack-netlib/TESTING/MATGEN/zlatm5.f | 5 +- lapack-netlib/TESTING/MATGEN/zlatm6.f | 5 +- lapack-netlib/TESTING/MATGEN/zlatme.f | 5 +- lapack-netlib/TESTING/MATGEN/zlatmr.f | 5 +- lapack-netlib/TESTING/MATGEN/zlatms.f | 7 +- lapack-netlib/TESTING/MATGEN/zlatmt.f | 7 +- lapack-netlib/TESTING/ced.in | 6 +- lapack-netlib/TESTING/dbal.in | 2 +- lapack-netlib/TESTING/dec.in | 155 +++++++++++++ lapack-netlib/TESTING/ded.in | 6 +- lapack-netlib/TESTING/sec.in | 164 ++++++++++++++ lapack-netlib/TESTING/sed.in | 6 +- lapack-netlib/TESTING/zed.in | 6 +- 1214 files changed, 3605 insertions(+), 5706 deletions(-) create mode 100644 lapack-netlib/TESTING/EIG/dget40.f create mode 100644 lapack-netlib/TESTING/EIG/sget40.f diff --git a/lapack-netlib/TESTING/EIG/CMakeLists.txt b/lapack-netlib/TESTING/EIG/CMakeLists.txt index 10c25a446..5993233bd 100644 --- a/lapack-netlib/TESTING/EIG/CMakeLists.txt +++ b/lapack-netlib/TESTING/EIG/CMakeLists.txt @@ -36,7 +36,7 @@ set(SEIGTST schkee.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 + sget37.f sget38.f sget39.f sget40.f sget51.f sget52.f sget53.f sget54.f sglmts.f sgqrts.f sgrqts.f sgsvts3.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 @@ -73,7 +73,7 @@ set(DEIGTST dchkee.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 + dget37.f dget38.f dget39.f dget40.f dget51.f dget52.f dget53.f dget54.f dglmts.f dgqrts.f dgrqts.f dgsvts3.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 @@ -98,7 +98,7 @@ set(ZEIGTST zchkee.F macro(add_eig_executable name) add_executable(${name} ${ARGN}) - target_link_libraries(${name} openblas${SUFFIX64_UNDERSCORE}) + target_link_libraries(${name} ${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES}) endmacro() if(BUILD_SINGLE) diff --git a/lapack-netlib/TESTING/EIG/Makefile b/lapack-netlib/TESTING/EIG/Makefile index a292e4496..e7b803abe 100644 --- a/lapack-netlib/TESTING/EIG/Makefile +++ b/lapack-netlib/TESTING/EIG/Makefile @@ -58,7 +58,7 @@ SEIGTST = schkee.o \ serrbd.o serrec.o serred.o serrgg.o serrhs.o serrst.o \ sget02.o sget10.o sget22.o sget23.o sget24.o sget31.o \ sget32.o sget33.o sget34.o sget35.o sget36.o \ - sget37.o sget38.o sget39.o sget51.o sget52.o sget53.o \ + sget37.o sget38.o sget39.o sget40.o sget51.o sget52.o sget53.o \ sget54.o sglmts.o sgqrts.o sgrqts.o sgsvts3.o \ shst01.o slarfy.o slarhs.o slatm4.o slctes.o slctsx.o slsets.o sort01.o \ sort03.o ssbt21.o ssgt01.o sslect.o sspt21.o sstt21.o \ @@ -95,7 +95,7 @@ DEIGTST = dchkee.o \ derrbd.o derrec.o derred.o derrgg.o derrhs.o derrst.o \ dget02.o dget10.o dget22.o dget23.o dget24.o dget31.o \ dget32.o dget33.o dget34.o dget35.o dget36.o \ - dget37.o dget38.o dget39.o dget51.o dget52.o dget53.o \ + dget37.o dget38.o dget39.o dget40.o dget51.o dget52.o dget53.o \ dget54.o dglmts.o dgqrts.o dgrqts.o dgsvts3.o \ dhst01.o dlarfy.o dlarhs.o dlatm4.o dlctes.o dlctsx.o dlsets.o dort01.o \ dort03.o dsbt21.o dsgt01.o dslect.o dspt21.o dstt21.o \ @@ -128,16 +128,16 @@ double: xeigtstd complex16: xeigtstz xeigtsts: $(SEIGTST) $(SCIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB) - $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ xeigtstc: $(CEIGTST) $(SCIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB) - $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ xeigtstd: $(DEIGTST) $(DZIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB) - $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ xeigtstz: $(ZEIGTST) $(DZIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB) - $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ $(AEIGTST): $(FRC) $(SCIGTST): $(FRC) diff --git a/lapack-netlib/TESTING/EIG/alahdg.f b/lapack-netlib/TESTING/EIG/alahdg.f index aec76fd91..597ee4b7a 100644 --- a/lapack-netlib/TESTING/EIG/alahdg.f +++ b/lapack-netlib/TESTING/EIG/alahdg.f @@ -55,17 +55,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_eig * * ===================================================================== SUBROUTINE ALAHDG( IOUNIT, PATH ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/alareq.f b/lapack-netlib/TESTING/EIG/alareq.f index a65e4d05e..2585a686a 100644 --- a/lapack-netlib/TESTING/EIG/alareq.f +++ b/lapack-netlib/TESTING/EIG/alareq.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_eig * * ===================================================================== SUBROUTINE ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/alarqg.f b/lapack-netlib/TESTING/EIG/alarqg.f index e9f9e832d..6e2e6e7ec 100644 --- a/lapack-netlib/TESTING/EIG/alarqg.f +++ b/lapack-netlib/TESTING/EIG/alarqg.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_eig * * ===================================================================== SUBROUTINE ALARQG( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/alasmg.f b/lapack-netlib/TESTING/EIG/alasmg.f index d01f326ba..ba586d703 100644 --- a/lapack-netlib/TESTING/EIG/alasmg.f +++ b/lapack-netlib/TESTING/EIG/alasmg.f @@ -66,17 +66,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_eig * * ===================================================================== SUBROUTINE ALASMG( TYPE, NOUT, NFAIL, NRUN, NERRS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 TYPE diff --git a/lapack-netlib/TESTING/EIG/alasum.f b/lapack-netlib/TESTING/EIG/alasum.f index d527082c5..9144a9c08 100644 --- a/lapack-netlib/TESTING/EIG/alasum.f +++ b/lapack-netlib/TESTING/EIG/alasum.f @@ -66,17 +66,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_eig * * ===================================================================== SUBROUTINE ALASUM( TYPE, NOUT, NFAIL, NRUN, NERRS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 TYPE diff --git a/lapack-netlib/TESTING/EIG/alasvm.f b/lapack-netlib/TESTING/EIG/alasvm.f index 54d67e4cc..118315d1d 100644 --- a/lapack-netlib/TESTING/EIG/alasvm.f +++ b/lapack-netlib/TESTING/EIG/alasvm.f @@ -66,17 +66,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_eig * * ===================================================================== SUBROUTINE ALASVM( TYPE, NOUT, NFAIL, NRUN, NERRS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 TYPE diff --git a/lapack-netlib/TESTING/EIG/cbdt01.f b/lapack-netlib/TESTING/EIG/cbdt01.f index e7d08d874..f5633bdc3 100644 --- a/lapack-netlib/TESTING/EIG/cbdt01.f +++ b/lapack-netlib/TESTING/EIG/cbdt01.f @@ -28,13 +28,13 @@ *> \verbatim *> *> CBDT01 reconstructs a general matrix A from its bidiagonal form -*> A = Q * B * P' -*> where Q (m by min(m,n)) and P' (min(m,n) by n) are unitary +*> A = Q * B * P**H +*> where Q (m by min(m,n)) and P**H (min(m,n) by n) are unitary *> matrices and B is bidiagonal. *> *> The test ratio to test the reduction is -*> RESID = norm( A - Q * B * PT ) / ( n * norm(A) * EPS ) -*> where PT = P' and EPS is the machine precision. +*> RESID = norm(A - Q * B * P**H) / ( n * norm(A) * EPS ) +*> where EPS is the machine precision. *> \endverbatim * * Arguments: @@ -49,7 +49,7 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrices A and P'. +*> The number of columns of the matrices A and P**H. *> \endverbatim *> *> \param[in] KD @@ -78,7 +78,7 @@ *> \verbatim *> Q is COMPLEX array, dimension (LDQ,N) *> The m by min(m,n) unitary matrix Q in the reduction -*> A = Q * B * P'. +*> A = Q * B * P**H. *> \endverbatim *> *> \param[in] LDQ @@ -103,8 +103,8 @@ *> \param[in] PT *> \verbatim *> PT is COMPLEX array, dimension (LDPT,N) -*> The min(m,n) by n unitary matrix P' in the reduction -*> A = Q * B * P'. +*> The min(m,n) by n unitary matrix P**H in the reduction +*> A = Q * B * P**H. *> \endverbatim *> *> \param[in] LDPT @@ -127,7 +127,8 @@ *> \param[out] RESID *> \verbatim *> RESID is REAL -*> The test ratio: norm(A - Q * B * P') / ( n * norm(A) * EPS ) +*> The test ratio: +*> norm(A - Q * B * P**H) / ( n * norm(A) * EPS ) *> \endverbatim * * Authors: @@ -138,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KD, LDA, LDPT, LDQ, M, N @@ -190,7 +188,7 @@ RETURN END IF * -* Compute A - Q * B * P' one column at a time. +* Compute A - Q * B * P**H one column at a time. * RESID = ZERO IF( KD.NE.0 ) THEN @@ -268,7 +266,7 @@ END IF END IF * -* Compute norm(A - Q * B * P') / ( n * norm(A) * EPS ) +* Compute norm(A - Q * B * P**H) / ( n * norm(A) * EPS ) * ANORM = CLANGE( '1', M, N, A, LDA, RWORK ) EPS = SLAMCH( 'Precision' ) diff --git a/lapack-netlib/TESTING/EIG/cbdt02.f b/lapack-netlib/TESTING/EIG/cbdt02.f index c2d6bd7d7..8aafefd22 100644 --- a/lapack-netlib/TESTING/EIG/cbdt02.f +++ b/lapack-netlib/TESTING/EIG/cbdt02.f @@ -27,7 +27,8 @@ *> *> \verbatim *> -*> CBDT02 tests the change of basis C = U' * B by computing the residual +*> CBDT02 tests the change of basis C = U**H * B by computing the +*> residual *> *> RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ), *> @@ -66,7 +67,7 @@ *> \param[in] C *> \verbatim *> C is COMPLEX array, dimension (LDC,N) -*> The m by n matrix C, assumed to contain U' * B. +*> The m by n matrix C, assumed to contain U**H * B. *> \endverbatim *> *> \param[in] LDC @@ -111,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDC, LDU, M, N diff --git a/lapack-netlib/TESTING/EIG/cbdt03.f b/lapack-netlib/TESTING/EIG/cbdt03.f index d4f7d7a5d..631929b34 100644 --- a/lapack-netlib/TESTING/EIG/cbdt03.f +++ b/lapack-netlib/TESTING/EIG/cbdt03.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/cbdt05.f b/lapack-netlib/TESTING/EIG/cbdt05.f index 4ed157431..9b711fe01 100644 --- a/lapack-netlib/TESTING/EIG/cbdt05.f +++ b/lapack-netlib/TESTING/EIG/cbdt05.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE CBDT05( M, N, A, LDA, S, NS, U, LDU, $ VT, LDVT, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDU, LDVT, M, N, NS diff --git a/lapack-netlib/TESTING/EIG/cchkbb.f b/lapack-netlib/TESTING/EIG/cchkbb.f index f4a95fa65..d48d6c780 100644 --- a/lapack-netlib/TESTING/EIG/cchkbb.f +++ b/lapack-netlib/TESTING/EIG/cchkbb.f @@ -351,8 +351,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -364,7 +362,6 @@ * -- LAPACK test routine (input) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/cchkbd.f b/lapack-netlib/TESTING/EIG/cchkbd.f index a3c5b6027..12fc0d332 100644 --- a/lapack-netlib/TESTING/EIG/cchkbd.f +++ b/lapack-netlib/TESTING/EIG/cchkbd.f @@ -405,8 +405,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -415,10 +413,9 @@ $ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, $ RWORK, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, diff --git a/lapack-netlib/TESTING/EIG/cchkbk.f b/lapack-netlib/TESTING/EIG/cchkbk.f index 58e120942..6b9b0e24c 100644 --- a/lapack-netlib/TESTING/EIG/cchkbk.f +++ b/lapack-netlib/TESTING/EIG/cchkbk.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CCHKBK( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/cchkbl.f b/lapack-netlib/TESTING/EIG/cchkbl.f index 02671ffe4..894abd490 100644 --- a/lapack-netlib/TESTING/EIG/cchkbl.f +++ b/lapack-netlib/TESTING/EIG/cchkbl.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CCHKBL( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/cchkec.f b/lapack-netlib/TESTING/EIG/cchkec.f index 4f6fbc3cd..6727a0954 100644 --- a/lapack-netlib/TESTING/EIG/cchkec.f +++ b/lapack-netlib/TESTING/EIG/cchkec.f @@ -68,17 +68,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CCHKEC( THRESH, TSTERR, NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/EIG/cchkee.F b/lapack-netlib/TESTING/EIG/cchkee.F index ef9f71ec9..7c6f58087 100644 --- a/lapack-netlib/TESTING/EIG/cchkee.F +++ b/lapack-netlib/TESTING/EIG/cchkee.F @@ -1027,8 +1027,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -1038,10 +1036,9 @@ use omp_lib #endif * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/EIG/cchkgg.f b/lapack-netlib/TESTING/EIG/cchkgg.f index fb9c2bcdf..8938bb657 100644 --- a/lapack-netlib/TESTING/EIG/cchkgg.f +++ b/lapack-netlib/TESTING/EIG/cchkgg.f @@ -492,8 +492,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -503,10 +501,9 @@ $ ALPHA3, BETA3, EVECTL, EVECTR, WORK, LWORK, $ RWORK, LLWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL TSTDIF diff --git a/lapack-netlib/TESTING/EIG/cchkgk.f b/lapack-netlib/TESTING/EIG/cchkgk.f index 34035e184..39228d35e 100644 --- a/lapack-netlib/TESTING/EIG/cchkgk.f +++ b/lapack-netlib/TESTING/EIG/cchkgk.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CCHKGK( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/cchkgl.f b/lapack-netlib/TESTING/EIG/cchkgl.f index 73aceed27..a44254835 100644 --- a/lapack-netlib/TESTING/EIG/cchkgl.f +++ b/lapack-netlib/TESTING/EIG/cchkgl.f @@ -46,17 +46,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CCHKGL( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/cchkhb.f b/lapack-netlib/TESTING/EIG/cchkhb.f index eb6cb7da5..4c12df9f2 100644 --- a/lapack-netlib/TESTING/EIG/cchkhb.f +++ b/lapack-netlib/TESTING/EIG/cchkhb.f @@ -289,8 +289,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -298,10 +296,9 @@ $ THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, $ LWORK, RWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, diff --git a/lapack-netlib/TESTING/EIG/cchkhb2stg.f b/lapack-netlib/TESTING/EIG/cchkhb2stg.f index 100f133ab..1a11ac5ea 100644 --- a/lapack-netlib/TESTING/EIG/cchkhb2stg.f +++ b/lapack-netlib/TESTING/EIG/cchkhb2stg.f @@ -1,4 +1,4 @@ -*> \brief \b CCHKHBSTG +*> \brief \b CCHKHB2STG * * =========== DOCUMENTATION =========== * @@ -8,7 +8,7 @@ * Definition: * =========== * -* SUBROUTINE CCHKHBSTG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, +* SUBROUTINE CCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, * ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1, * D2, D3, U, LDU, WORK, LWORK, RWORK RESULT, * INFO ) @@ -21,7 +21,8 @@ * .. Array Arguments .. * LOGICAL DOTYPE( * ) * INTEGER ISEED( 4 ), KK( * ), NN( * ) -* REAL RESULT( * ), RWORK( * ), SD( * ), SE( * ) +* REAL RESULT( * ), RWORK( * ), SD( * ), SE( * ), +* $ D1( * ), D2( * ), D3( * ) * COMPLEX A( LDA, * ), U( LDU, * ), WORK( * ) * .. * @@ -31,18 +32,18 @@ *> *> \verbatim *> -*> CCHKHBSTG tests the reduction of a Hermitian band matrix to tridiagonal +*> CCHKHB2STG tests the reduction of a Hermitian band matrix to tridiagonal *> from, used with the Hermitian eigenvalue problem. *> *> CHBTRD factors a Hermitian band matrix A as U S U* , where * means *> conjugate transpose, S is symmetric tridiagonal, and U is unitary. *> CHBTRD can use either just the lower or just the upper triangle -*> of A; CCHKHBSTG checks both cases. +*> of A; CCHKHB2STG checks both cases. *> *> CHETRD_HB2ST factors a Hermitian band matrix A as U S U* , *> where * means conjugate transpose, S is symmetric tridiagonal, and U is *> unitary. CHETRD_HB2ST can use either just the lower or just -*> the upper triangle of A; CCHKHBSTG checks both cases. +*> the upper triangle of A; CCHKHB2STG checks both cases. *> *> DSTEQR factors S as Z D1 Z'. *> D1 is the matrix of eigenvalues computed when Z is not computed @@ -52,7 +53,7 @@ *> D3 is the matrix of eigenvalues computed when Z is not computed *> and from the S resulting of DSYTRD_SB2ST "L". *> -*> When CCHKHBSTG is called, a number of matrix "sizes" ("n's"), a number +*> When CCHKHB2STG is called, a number of matrix "sizes" ("n's"), a number *> of bandwidths ("k's"), and a number of matrix "types" are *> specified. For each size ("n"), each bandwidth ("k") less than or *> equal to "n", and each type of matrix, one matrix will be generated @@ -126,7 +127,7 @@ *> \verbatim *> NSIZES is INTEGER *> The number of sizes of matrices to use. If it is zero, -*> CCHKHBSTG does nothing. It must be at least zero. +*> CCHKHB2STG does nothing. It must be at least zero. *> \endverbatim *> *> \param[in] NN @@ -141,7 +142,7 @@ *> \verbatim *> NWDTHS is INTEGER *> The number of bandwidths to use. If it is zero, -*> CCHKHBSTG does nothing. It must be at least zero. +*> CCHKHB2STG does nothing. It must be at least zero. *> \endverbatim *> *> \param[in] KK @@ -154,7 +155,7 @@ *> \param[in] NTYPES *> \verbatim *> NTYPES is INTEGER -*> The number of elements in DOTYPE. If it is zero, CCHKHBSTG +*> The number of elements in DOTYPE. If it is zero, CCHKHB2STG *> does nothing. It must be at least zero. If it is MAXTYP+1 *> and NSIZES is 1, then an additional type, MAXTYP+1 is *> defined, which is to use whatever matrix is in A. This @@ -184,7 +185,7 @@ *> congruential sequence limited to small integers, and so *> should produce machine independent random numbers. The *> values of ISEED are changed on exit, and can be used in the -*> next call to CCHKHBSTG to continue the same random number +*> next call to CCHKHB2STG to continue the same random number *> sequence. *> \endverbatim *> @@ -235,6 +236,23 @@ *> computed by CHBTRD. *> \endverbatim *> +*> \param[out] D1 +*> \verbatim +*> D1 is REAL array, dimension (max(NN)) +*> Used store eigenvalues resulting from the tridiagonal +*> form using the DSBTRD. +*> \endverbatim +*> +*> \param[out] D2 +*> \verbatim +*> D2 is REAL array, dimension (max(NN)) +*> \endverbatim +*> +*> \param[out] D3 +*> \verbatim +*> D3 is REAL array, dimension (max(NN)) +*> \endverbatim +*> *> \param[out] U *> \verbatim *> U is COMPLEX array, dimension (LDU, max(NN)) @@ -313,8 +331,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_eig * * ===================================================================== @@ -323,10 +339,9 @@ $ D2, D3, U, LDU, WORK, LWORK, RWORK, RESULT, $ INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, @@ -432,7 +447,7 @@ END IF * IF( INFO.NE.0 ) THEN - CALL XERBLA( 'CCHKHBSTG', -INFO ) + CALL XERBLA( 'CCHKHB2STG', -INFO ) RETURN END IF * @@ -837,7 +852,7 @@ CALL SLASUM( 'CHB', NOUNIT, NERRS, NTESTT ) RETURN * - 9999 FORMAT( ' CCHKHBSTG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', + 9999 FORMAT( ' CCHKHB2STG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', $ I6, ', JTYPE=', I6, ', ISEED=(', 3( I5, ',' ), I5, ')' ) 9998 FORMAT( / 1X, A3, $ ' -- Complex Hermitian Banded Tridiagonal Reduction Routines' @@ -873,6 +888,6 @@ 9993 FORMAT( ' N=', I5, ', K=', I4, ', seed=', 4( I4, ',' ), ' type ', $ I2, ', test(', I2, ')=', G10.3 ) * -* End of CCHKHBSTG +* End of CCHKHB2STG * END diff --git a/lapack-netlib/TESTING/EIG/cchkhs.f b/lapack-netlib/TESTING/EIG/cchkhs.f index 446938993..65f1fc82d 100644 --- a/lapack-netlib/TESTING/EIG/cchkhs.f +++ b/lapack-netlib/TESTING/EIG/cchkhs.f @@ -401,8 +401,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -412,10 +410,9 @@ $ WORK, NWORK, RWORK, IWORK, SELECT, RESULT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK diff --git a/lapack-netlib/TESTING/EIG/cchkst.f b/lapack-netlib/TESTING/EIG/cchkst.f index 2d25f3fb1..95747d051 100644 --- a/lapack-netlib/TESTING/EIG/cchkst.f +++ b/lapack-netlib/TESTING/EIG/cchkst.f @@ -593,8 +593,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -604,10 +602,9 @@ $ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/cchkst2stg.f b/lapack-netlib/TESTING/EIG/cchkst2stg.f index 8c7f962b7..e4deb8ac8 100644 --- a/lapack-netlib/TESTING/EIG/cchkst2stg.f +++ b/lapack-netlib/TESTING/EIG/cchkst2stg.f @@ -614,8 +614,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -625,10 +623,9 @@ $ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, @@ -690,7 +687,7 @@ $ XERBLA, CCOPY, CHET21, CHETRD, CHPT21, CHPTRD, $ CLACPY, CLASET, CLATMR, CLATMS, CPTEQR, CSTEDC, $ CSTEMR, CSTEIN, CSTEQR, CSTT21, CSTT22, CUNGTR, - $ CUPGTR, CHETRD_2STAGE + $ CUPGTR, CHETRD_2STAGE, SLASET * .. * .. Intrinsic Functions .. INTRINSIC ABS, REAL, CONJG, INT, LOG, MAX, MIN, SQRT @@ -1014,8 +1011,8 @@ * the one from above. Compare it with D1 computed * using the 1-stage. * - CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N ) - CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N ) + CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, N ) + CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, N ) CALL CLACPY( 'U', N, N, A, LDA, V, LDU ) LH = MAX(1, 4*N) LW = LWORK - LH @@ -1048,8 +1045,8 @@ * the one from above. Compare it with D1 computed * using the 1-stage. * - CALL DLASET( 'Full', N, 1, ZERO, ZERO, SD, N ) - CALL DLASET( 'Full', N, 1, ZERO, ZERO, SE, N ) + CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, N ) + CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, N ) CALL CLACPY( 'L', N, N, A, LDA, V, LDU ) CALL CHETRD_2STAGE( 'N', "L", N, V, LDU, SD, SE, TAU, $ WORK, LH, WORK( LH+1 ), LW, IINFO ) @@ -1075,7 +1072,6 @@ END IF END IF * -* * Do Tests 3 and 4 which are similar to 11 and 12 but with the * D1 computed using the standard 1-stage reduction as reference * @@ -1738,7 +1734,6 @@ END IF END IF * -* * Do test 28 * TEMP2 = TWO*( TWO*N-ONE )*ULP* @@ -1795,7 +1790,6 @@ * * Do Tests 29 and 30 * -* * Call CSTEMR to compute D2, do tests. * * Compute D2 @@ -1835,7 +1829,6 @@ RESULT( 31 ) = TEMP2 / MAX( UNFL, $ ULP*MAX( TEMP1, TEMP2 ) ) * -* * Call CSTEMR(V,V) to compute D1 and Z, do tests. * * Compute D1 and Z @@ -1937,7 +1930,6 @@ RESULT( 34 ) = ZERO END IF * -* * Call CSTEMR(V,A) to compute D1 and Z, do tests. * * Compute D1 and Z @@ -1994,7 +1986,7 @@ END IF END IF * -* Do Test 34 +* Do Test 37 * TEMP1 = ZERO TEMP2 = ZERO @@ -2013,7 +2005,6 @@ * * End of Loop -- Check for RESULT(j) > THRESH * -* * Print out tests which fail. * DO 290 JR = 1, NTEST @@ -2088,6 +2079,7 @@ $ 4( I4, ',' ), ' result ', I3, ' is', 1P, E10.3 ) * 9987 FORMAT( / 'Test performed: see CCHKST2STG for details.', / ) +* * End of CCHKST2STG * END diff --git a/lapack-netlib/TESTING/EIG/cckcsd.f b/lapack-netlib/TESTING/EIG/cckcsd.f index 9524cb30b..3c19827b2 100644 --- a/lapack-netlib/TESTING/EIG/cckcsd.f +++ b/lapack-netlib/TESTING/EIG/cckcsd.f @@ -175,8 +175,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -184,10 +182,9 @@ $ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, $ WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT @@ -208,13 +205,14 @@ PARAMETER ( NTESTS = 15 ) INTEGER NTYPES PARAMETER ( NTYPES = 4 ) - REAL GAPDIGIT, ORTH, PIOVER2, REALONE, REALZERO, TEN + REAL GAPDIGIT, ORTH, REALONE, REALZERO, TEN PARAMETER ( GAPDIGIT = 10.0E0, ORTH = 1.0E-4, - $ PIOVER2 = 1.57079632679489662E0, $ REALONE = 1.0E0, REALZERO = 0.0E0, $ TEN = 10.0E0 ) COMPLEX ONE, ZERO PARAMETER ( ONE = (1.0E0,0.0E0), ZERO = (0.0E0,0.0E0) ) + REAL PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210E0 ) * .. * .. Local Scalars .. LOGICAL FIRSTT diff --git a/lapack-netlib/TESTING/EIG/cckglm.f b/lapack-netlib/TESTING/EIG/cckglm.f index 33d55123a..badddb63b 100644 --- a/lapack-netlib/TESTING/EIG/cckglm.f +++ b/lapack-netlib/TESTING/EIG/cckglm.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -168,10 +166,9 @@ $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT diff --git a/lapack-netlib/TESTING/EIG/cckgqr.f b/lapack-netlib/TESTING/EIG/cckgqr.f index 05b5f4a60..574d07181 100644 --- a/lapack-netlib/TESTING/EIG/cckgqr.f +++ b/lapack-netlib/TESTING/EIG/cckgqr.f @@ -202,8 +202,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -211,10 +209,9 @@ $ THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, $ BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP diff --git a/lapack-netlib/TESTING/EIG/cckgsv.f b/lapack-netlib/TESTING/EIG/cckgsv.f index 93e11ecaa..f3204e294 100644 --- a/lapack-netlib/TESTING/EIG/cckgsv.f +++ b/lapack-netlib/TESTING/EIG/cckgsv.f @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -198,10 +196,9 @@ $ NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, $ IWORK, WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT @@ -229,7 +226,7 @@ CHARACTER*3 PATH INTEGER I, IINFO, IM, IMAT, KLA, KLB, KUA, KUB, LDA, $ LDB, LDQ, LDR, LDU, LDV, LWORK, M, MODEA, - $ MODEB, N, NFAIL, NRUN, NT, P + $ MODEB, N, NFAIL, NRUN, NT, P, K, L REAL ANORM, BNORM, CNDNMA, CNDNMB * .. * .. Local Arrays .. @@ -260,6 +257,43 @@ LDR = NMAX LWORK = NMAX*NMAX * +* Specific cases +* +* Test: https://github.com/Reference-LAPACK/lapack/issues/411#issue-608776973 +* + M = 6 + P = 6 + N = 6 + A(1:M*N) = CMPLX(1.E0, 0.E0) + B(1:M*N) = CMPLX(0.E0, 0.E0) + B(1+0*M) = CMPLX(9.E19, 0.E0) + B(2+1*M) = CMPLX(9.E18, 0.E0) + B(3+2*M) = CMPLX(9.E17, 0.E0) + B(4+3*M) = CMPLX(9.E16, 0.E0) + B(5+4*M) = CMPLX(9.E15, 0.E0) + B(6+5*M) = CMPLX(9.E14, 0.E0) + CALL CGGSVD3('N','N','N', M, P, N, K, L, A, M, B, M, + $ ALPHA, BETA, U, 1, V, 1, Q, 1, + $ WORK, M*N, RWORK, IWORK, INFO) +* +* Print information there is a NAN in BETA + DO 40 I = 1, L + IF( BETA(I).NE.BETA(I) ) THEN + INFO = -I + EXIT + END IF + 40 CONTINUE + IF( INFO.LT.0 ) THEN + IF( NFAIL.EQ.0 .AND. FIRSTT ) THEN + FIRSTT = .FALSE. + CALL ALAHDG( NOUT, PATH ) + END IF + WRITE( NOUT, FMT = 9997 ) -INFO + NFAIL = NFAIL + 1 + END IF + NRUN = NRUN + 1 + INFO = 0 +* * Do for each value of M in MVAL. * DO 30 IM = 1, NM @@ -335,6 +369,7 @@ 9999 FORMAT( ' CLATMS in CCKGSV INFO = ', I5 ) 9998 FORMAT( ' M=', I4, ' P=', I4, ', N=', I4, ', type ', I2, $ ', test ', I2, ', ratio=', G13.6 ) + 9997 FORMAT( ' FOUND NaN in BETA(', I4,')' ) RETURN * * End of CCKGSV diff --git a/lapack-netlib/TESTING/EIG/ccklse.f b/lapack-netlib/TESTING/EIG/ccklse.f index 13e85e117..d9cff9bcb 100644 --- a/lapack-netlib/TESTING/EIG/ccklse.f +++ b/lapack-netlib/TESTING/EIG/ccklse.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -168,10 +166,9 @@ $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT diff --git a/lapack-netlib/TESTING/EIG/ccsdts.f b/lapack-netlib/TESTING/EIG/ccsdts.f index e2dd21812..9a2aa91e6 100644 --- a/lapack-netlib/TESTING/EIG/ccsdts.f +++ b/lapack-netlib/TESTING/EIG/ccsdts.f @@ -220,8 +220,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -229,10 +227,9 @@ $ LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q @@ -248,11 +245,12 @@ * ===================================================================== * * .. Parameters .. - REAL PIOVER2, REALONE, REALZERO - PARAMETER ( PIOVER2 = 1.57079632679489662E0, - $ REALONE = 1.0E0, REALZERO = 0.0E0 ) + REAL REALONE, REALZERO + PARAMETER ( REALONE = 1.0E0, REALZERO = 0.0E0 ) COMPLEX ZERO, ONE PARAMETER ( ZERO = (0.0E0,0.0E0), ONE = (1.0E0,0.0E0) ) + REAL PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210E0 ) * .. * .. Local Scalars .. INTEGER I, INFO, R diff --git a/lapack-netlib/TESTING/EIG/cdrges.f b/lapack-netlib/TESTING/EIG/cdrges.f index d6e28f284..b28b190f5 100644 --- a/lapack-netlib/TESTING/EIG/cdrges.f +++ b/lapack-netlib/TESTING/EIG/cdrges.f @@ -372,8 +372,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -381,10 +379,9 @@ $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA, $ BETA, WORK, LWORK, RWORK, RESULT, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES diff --git a/lapack-netlib/TESTING/EIG/cdrges3.f b/lapack-netlib/TESTING/EIG/cdrges3.f index cea7f8b75..dd1d9ed5c 100644 --- a/lapack-netlib/TESTING/EIG/cdrges3.f +++ b/lapack-netlib/TESTING/EIG/cdrges3.f @@ -372,8 +372,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date February 2015 -* *> \ingroup complex_eig * * ===================================================================== @@ -382,10 +380,9 @@ $ BETA, WORK, LWORK, RWORK, RESULT, BWORK, $ INFO ) * -* -- LAPACK test routine (version 3.6.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2015 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES @@ -744,6 +741,14 @@ RSUB = 5 END IF * +* Call XLAENV to set the parameters used in CLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Call CGGES3 to compute H, T, Q, Z, alpha, and beta. * CALL CLACPY( 'Full', N, N, A, LDA, S, LDA ) diff --git a/lapack-netlib/TESTING/EIG/cdrgev.f b/lapack-netlib/TESTING/EIG/cdrgev.f index 2a8ce8f70..0e4d131c8 100644 --- a/lapack-netlib/TESTING/EIG/cdrgev.f +++ b/lapack-netlib/TESTING/EIG/cdrgev.f @@ -69,7 +69,7 @@ *> *> VL(i) denotes the i-th column of VL. *> -*> (3) max over all left eigenvalue/-vector pairs (alpha/beta,r) of +*> (3) max over all right eigenvalue/-vector pairs (alpha/beta,r) of *> *> | (beta A - alpha B) * VR | / ( ulp max(|beta A|, |alpha B|) ) *> @@ -389,8 +389,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -399,10 +397,9 @@ $ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, RWORK, $ RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/cdrgev3.f b/lapack-netlib/TESTING/EIG/cdrgev3.f index 13fb366e4..fbb74cf70 100644 --- a/lapack-netlib/TESTING/EIG/cdrgev3.f +++ b/lapack-netlib/TESTING/EIG/cdrgev3.f @@ -389,8 +389,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date January 2015 -* *> \ingroup complex_eig * * ===================================================================== @@ -399,10 +397,9 @@ $ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, $ RWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.6.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* January 2015 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, @@ -736,6 +733,14 @@ RESULT( I ) = -ONE 110 CONTINUE * +* Call XLAENV to set the parameters used in CLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Call CGGEV3 to compute eigenvalues and eigenvectors. * CALL CLACPY( ' ', N, N, A, LDA, S, LDA ) diff --git a/lapack-netlib/TESTING/EIG/cdrgsx.f b/lapack-netlib/TESTING/EIG/cdrgsx.f index 746946d07..c5baeef5e 100644 --- a/lapack-netlib/TESTING/EIG/cdrgsx.f +++ b/lapack-netlib/TESTING/EIG/cdrgsx.f @@ -340,8 +340,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -349,10 +347,9 @@ $ AI, BI, Z, Q, ALPHA, BETA, C, LDC, S, WORK, $ LWORK, RWORK, IWORK, LIWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, diff --git a/lapack-netlib/TESTING/EIG/cdrgvx.f b/lapack-netlib/TESTING/EIG/cdrgvx.f index bed8e472f..830a39d86 100644 --- a/lapack-netlib/TESTING/EIG/cdrgvx.f +++ b/lapack-netlib/TESTING/EIG/cdrgvx.f @@ -288,8 +288,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -298,10 +296,9 @@ $ S, STRU, DIF, DIFTRU, WORK, LWORK, RWORK, $ IWORK, LIWORK, RESULT, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, diff --git a/lapack-netlib/TESTING/EIG/cdrvbd.f b/lapack-netlib/TESTING/EIG/cdrvbd.f index 7b7b01b47..97ee21728 100644 --- a/lapack-netlib/TESTING/EIG/cdrvbd.f +++ b/lapack-netlib/TESTING/EIG/cdrvbd.f @@ -391,8 +391,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -401,10 +399,9 @@ $ SSAV, E, WORK, LWORK, RWORK, IWORK, NOUNIT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/EIG/cdrves.f b/lapack-netlib/TESTING/EIG/cdrves.f index 3e4a7ff3f..81a44a583 100644 --- a/lapack-netlib/TESTING/EIG/cdrves.f +++ b/lapack-netlib/TESTING/EIG/cdrves.f @@ -369,8 +369,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -378,10 +376,9 @@ $ NOUNIT, A, LDA, H, HT, W, WT, VS, LDVS, RESULT, $ WORK, NWORK, RWORK, IWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK diff --git a/lapack-netlib/TESTING/EIG/cdrvev.f b/lapack-netlib/TESTING/EIG/cdrvev.f index d1e289bf4..6a834b6d9 100644 --- a/lapack-netlib/TESTING/EIG/cdrvev.f +++ b/lapack-netlib/TESTING/EIG/cdrvev.f @@ -381,8 +381,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -391,10 +389,9 @@ $ LRE, LDLRE, RESULT, WORK, NWORK, RWORK, IWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/cdrvsg.f b/lapack-netlib/TESTING/EIG/cdrvsg.f index 7e34ad0db..a93933a27 100644 --- a/lapack-netlib/TESTING/EIG/cdrvsg.f +++ b/lapack-netlib/TESTING/EIG/cdrvsg.f @@ -360,8 +360,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -370,10 +368,9 @@ $ BP, WORK, NWORK, RWORK, LRWORK, IWORK, LIWORK, $ RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/cdrvsg2stg.f b/lapack-netlib/TESTING/EIG/cdrvsg2stg.f index 3b7156b42..8b8553773 100644 --- a/lapack-netlib/TESTING/EIG/cdrvsg2stg.f +++ b/lapack-netlib/TESTING/EIG/cdrvsg2stg.f @@ -366,8 +366,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -378,10 +376,9 @@ * IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/cdrvst.f b/lapack-netlib/TESTING/EIG/cdrvst.f index dbf1e011a..9c129c0e8 100644 --- a/lapack-netlib/TESTING/EIG/cdrvst.f +++ b/lapack-netlib/TESTING/EIG/cdrvst.f @@ -328,8 +328,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -338,10 +336,9 @@ $ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK, $ IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/cdrvst2stg.f b/lapack-netlib/TESTING/EIG/cdrvst2stg.f index 095bd7885..954c7fb87 100644 --- a/lapack-netlib/TESTING/EIG/cdrvst2stg.f +++ b/lapack-netlib/TESTING/EIG/cdrvst2stg.f @@ -328,8 +328,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_eig * * ===================================================================== @@ -338,10 +336,9 @@ $ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK, $ IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/cdrvsx.f b/lapack-netlib/TESTING/EIG/cdrvsx.f index 9def66306..0265ff271 100644 --- a/lapack-netlib/TESTING/EIG/cdrvsx.f +++ b/lapack-netlib/TESTING/EIG/cdrvsx.f @@ -425,8 +425,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -435,10 +433,9 @@ $ LDVS, VS1, RESULT, WORK, LWORK, RWORK, BWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/cdrvvx.f b/lapack-netlib/TESTING/EIG/cdrvvx.f index 37a29ec4e..f1f5a0bac 100644 --- a/lapack-netlib/TESTING/EIG/cdrvvx.f +++ b/lapack-netlib/TESTING/EIG/cdrvvx.f @@ -485,8 +485,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -496,10 +494,9 @@ $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, $ WORK, NWORK, RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/cerrbd.f b/lapack-netlib/TESTING/EIG/cerrbd.f index 6cb7f6552..76503ae09 100644 --- a/lapack-netlib/TESTING/EIG/cerrbd.f +++ b/lapack-netlib/TESTING/EIG/cerrbd.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CERRBD( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/cerrec.f b/lapack-netlib/TESTING/EIG/cerrec.f index 13176fecf..650ab2b6e 100644 --- a/lapack-netlib/TESTING/EIG/cerrec.f +++ b/lapack-netlib/TESTING/EIG/cerrec.f @@ -49,17 +49,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CERREC( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/cerred.f b/lapack-netlib/TESTING/EIG/cerred.f index a0ceff76e..98d157080 100644 --- a/lapack-netlib/TESTING/EIG/cerred.f +++ b/lapack-netlib/TESTING/EIG/cerred.f @@ -63,17 +63,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CERRED( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/cerrgg.f b/lapack-netlib/TESTING/EIG/cerrgg.f index 5a53d2343..3839b5f2c 100644 --- a/lapack-netlib/TESTING/EIG/cerrgg.f +++ b/lapack-netlib/TESTING/EIG/cerrgg.f @@ -50,17 +50,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CERRGG( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -100,7 +97,7 @@ $ CGGLSE, CGGQRF, CGGRQF, CHGEQZ, $ CHKXER, CTGEVC, CTGEXC, CTGSEN, CTGSJA, CTGSNA, $ CTGSYL, CUNCSD, CGGES3, CGGEV3, CGGHD3, - $ CGGSVD3, CGGSVP3 + $ CGGSVD3, CGGSVP3, XLAENV * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -138,6 +135,14 @@ NT = 0 LWORK = 1 * +* Call XLAENV to set the parameters used in CLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Test error exits for the GG path. * IF( LSAMEN( 2, C2, 'GG' ) ) THEN diff --git a/lapack-netlib/TESTING/EIG/cerrhs.f b/lapack-netlib/TESTING/EIG/cerrhs.f index ccd47a3bf..0568a6d78 100644 --- a/lapack-netlib/TESTING/EIG/cerrhs.f +++ b/lapack-netlib/TESTING/EIG/cerrhs.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CERRHS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/cerrst.f b/lapack-netlib/TESTING/EIG/cerrst.f index 4aa5aebe3..eef34b44b 100644 --- a/lapack-netlib/TESTING/EIG/cerrst.f +++ b/lapack-netlib/TESTING/EIG/cerrst.f @@ -54,17 +54,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CERRST( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/cget02.f b/lapack-netlib/TESTING/EIG/cget02.f index 1b7f6b384..ac5fedaea 100644 --- a/lapack-netlib/TESTING/EIG/cget02.f +++ b/lapack-netlib/TESTING/EIG/cget02.f @@ -28,9 +28,10 @@ *> \verbatim *> *> CGET02 computes the residual for a solution of a system of linear -*> equations A*x = b or A'*x = b: -*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ), -*> where EPS is the machine epsilon. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the +*> machine epsilon. *> \endverbatim * * Arguments: @@ -40,9 +41,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A^T*x = b, where A^T is the transpose of A -*> = 'C': A^H*x = b, where A^H is the conjugate transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -114,7 +115,7 @@ *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -125,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS @@ -191,19 +189,23 @@ * Exit with RESID = 1/EPS if ANORM = 0. * EPS = SLAMCH( 'Epsilon' ) + IF( LSAME( TRANS, 'N' ) ) THEN ANORM = CLANGE( '1', M, N, A, LDA, RWORK ) + ELSE + ANORM = CLANGE( 'I', M, N, A, LDA, RWORK ) + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN END IF * -* Compute B - A*X (or B - A'*X ) and store in B. +* Compute B - op(A)*X and store in B. * CALL CGEMM( TRANS, 'No transpose', N1, NRHS, N2, -CONE, A, LDA, X, $ LDX, CONE, B, LDB ) * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) . +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) . * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/EIG/cget10.f b/lapack-netlib/TESTING/EIG/cget10.f index 0b8186454..9e6b34ba8 100644 --- a/lapack-netlib/TESTING/EIG/cget10.f +++ b/lapack-netlib/TESTING/EIG/cget10.f @@ -92,17 +92,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET10( M, N, A, LDA, B, LDB, WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, M, N diff --git a/lapack-netlib/TESTING/EIG/cget22.f b/lapack-netlib/TESTING/EIG/cget22.f index 91aec3a3f..2f0896741 100644 --- a/lapack-netlib/TESTING/EIG/cget22.f +++ b/lapack-netlib/TESTING/EIG/cget22.f @@ -125,6 +125,7 @@ *> RESULT is REAL array, dimension (2) *> RESULT(1) = | A E - E W | / ( |A| |E| ulp ) *> RESULT(2) = max | m-norm(E(j)) - 1 | / ( n ulp ) +*> j *> \endverbatim * * Authors: @@ -135,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, W, $ WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSA, TRANSE, TRANSW @@ -299,7 +297,7 @@ RESULT( 1 ) = ( ERRNRM / ANORM ) / ULP ELSE IF( ANORM.LT.ONE ) THEN - RESULT( 1 ) = ( MIN( ERRNRM, ANORM ) / ANORM ) / ULP + RESULT( 1 ) = ONE / ULP ELSE RESULT( 1 ) = MIN( ERRNRM / ANORM, ONE ) / ULP END IF diff --git a/lapack-netlib/TESTING/EIG/cget23.f b/lapack-netlib/TESTING/EIG/cget23.f index 1a2d4fb48..b4a8c4631 100644 --- a/lapack-netlib/TESTING/EIG/cget23.f +++ b/lapack-netlib/TESTING/EIG/cget23.f @@ -357,8 +357,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -368,10 +366,9 @@ $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, $ WORK, LWORK, RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL COMP diff --git a/lapack-netlib/TESTING/EIG/cget24.f b/lapack-netlib/TESTING/EIG/cget24.f index e97003a2f..4674b6226 100644 --- a/lapack-netlib/TESTING/EIG/cget24.f +++ b/lapack-netlib/TESTING/EIG/cget24.f @@ -325,8 +325,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== @@ -335,10 +333,9 @@ $ RCDVIN, NSLCT, ISLCT, ISRT, RESULT, WORK, $ LWORK, RWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL COMP diff --git a/lapack-netlib/TESTING/EIG/cget35.f b/lapack-netlib/TESTING/EIG/cget35.f index 241f3ea30..4f03ab9ee 100644 --- a/lapack-netlib/TESTING/EIG/cget35.f +++ b/lapack-netlib/TESTING/EIG/cget35.f @@ -77,17 +77,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET35( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NIN, NINFO diff --git a/lapack-netlib/TESTING/EIG/cget36.f b/lapack-netlib/TESTING/EIG/cget36.f index 4b46f3bc3..7f943f256 100644 --- a/lapack-netlib/TESTING/EIG/cget36.f +++ b/lapack-netlib/TESTING/EIG/cget36.f @@ -78,17 +78,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET36( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NIN, NINFO diff --git a/lapack-netlib/TESTING/EIG/cget37.f b/lapack-netlib/TESTING/EIG/cget37.f index 536e4ca3e..c2a6589f3 100644 --- a/lapack-netlib/TESTING/EIG/cget37.f +++ b/lapack-netlib/TESTING/EIG/cget37.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET37( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, NIN diff --git a/lapack-netlib/TESTING/EIG/cget38.f b/lapack-netlib/TESTING/EIG/cget38.f index bbf920934..9925f3fd7 100644 --- a/lapack-netlib/TESTING/EIG/cget38.f +++ b/lapack-netlib/TESTING/EIG/cget38.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET38( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, NIN diff --git a/lapack-netlib/TESTING/EIG/cget51.f b/lapack-netlib/TESTING/EIG/cget51.f index ec58086d4..3781c6a88 100644 --- a/lapack-netlib/TESTING/EIG/cget51.f +++ b/lapack-netlib/TESTING/EIG/cget51.f @@ -147,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ITYPE, LDA, LDB, LDU, LDV, N diff --git a/lapack-netlib/TESTING/EIG/cget52.f b/lapack-netlib/TESTING/EIG/cget52.f index d0debc535..30bf6ba39 100644 --- a/lapack-netlib/TESTING/EIG/cget52.f +++ b/lapack-netlib/TESTING/EIG/cget52.f @@ -153,18 +153,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA, $ WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LEFT @@ -237,7 +234,7 @@ BETMAX = SAFMAX / MAX( ONE, ANORM ) * * Compute error matrix. -* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B| |b(i) A| ) +* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B|, |b(i) A| ) * DO 10 JVEC = 1, N ALPHAI = ALPHA( JVEC ) @@ -277,7 +274,7 @@ DO 20 J = 1, N TEMP1 = MAX( TEMP1, ABS1( E( J, JVEC ) ) ) 20 CONTINUE - ENRMER = MAX( ENRMER, TEMP1-ONE ) + ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) ) 30 CONTINUE * * Compute RESULT(2) : the normalization error in E. diff --git a/lapack-netlib/TESTING/EIG/cget54.f b/lapack-netlib/TESTING/EIG/cget54.f index 955a23400..ce8376fc6 100644 --- a/lapack-netlib/TESTING/EIG/cget54.f +++ b/lapack-netlib/TESTING/EIG/cget54.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, $ LDV, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N diff --git a/lapack-netlib/TESTING/EIG/cglmts.f b/lapack-netlib/TESTING/EIG/cglmts.f index 101c07601..ecf8699f2 100644 --- a/lapack-netlib/TESTING/EIG/cglmts.f +++ b/lapack-netlib/TESTING/EIG/cglmts.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, $ X, U, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, P, N diff --git a/lapack-netlib/TESTING/EIG/cgqrts.f b/lapack-netlib/TESTING/EIG/cgqrts.f index a1d8b807c..6a5bcc2d4 100644 --- a/lapack-netlib/TESTING/EIG/cgqrts.f +++ b/lapack-netlib/TESTING/EIG/cgqrts.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, P, N diff --git a/lapack-netlib/TESTING/EIG/cgrqts.f b/lapack-netlib/TESTING/EIG/cgrqts.f index e024c78a0..103820ec1 100644 --- a/lapack-netlib/TESTING/EIG/cgrqts.f +++ b/lapack-netlib/TESTING/EIG/cgrqts.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, P, N diff --git a/lapack-netlib/TESTING/EIG/cgsvts3.f b/lapack-netlib/TESTING/EIG/cgsvts3.f index 7e6e4352a..699f14b1c 100644 --- a/lapack-netlib/TESTING/EIG/cgsvts3.f +++ b/lapack-netlib/TESTING/EIG/cgsvts3.f @@ -200,8 +200,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup complex_eig * * ===================================================================== @@ -209,10 +207,9 @@ $ LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, $ LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/chbt21.f b/lapack-netlib/TESTING/EIG/chbt21.f index 76eb7d115..b41936aa5 100644 --- a/lapack-netlib/TESTING/EIG/chbt21.f +++ b/lapack-netlib/TESTING/EIG/chbt21.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CHBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/chet21.f b/lapack-netlib/TESTING/EIG/chet21.f index d5c4f1348..a274681c9 100644 --- a/lapack-netlib/TESTING/EIG/chet21.f +++ b/lapack-netlib/TESTING/EIG/chet21.f @@ -206,18 +206,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CHET21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, $ LDV, TAU, WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/chet22.f b/lapack-netlib/TESTING/EIG/chet22.f index 354387f2a..27f22e9a4 100644 --- a/lapack-netlib/TESTING/EIG/chet22.f +++ b/lapack-netlib/TESTING/EIG/chet22.f @@ -153,18 +153,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CHET22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, $ V, LDV, TAU, WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/chkxer.f b/lapack-netlib/TESTING/EIG/chkxer.f index 26d6e4688..fd00bb65a 100644 --- a/lapack-netlib/TESTING/EIG/chkxer.f +++ b/lapack-netlib/TESTING/EIG/chkxer.f @@ -34,17 +34,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LERR, OK @@ -66,6 +63,6 @@ 9999 FORMAT( ' *** Illegal value of parameter number ', I2, $ ' not detected by ', A6, ' ***' ) * -* End of CHKXER. +* End of CHKXER * END diff --git a/lapack-netlib/TESTING/EIG/chpt21.f b/lapack-netlib/TESTING/EIG/chpt21.f index f20921bd9..bc342ca35 100644 --- a/lapack-netlib/TESTING/EIG/chpt21.f +++ b/lapack-netlib/TESTING/EIG/chpt21.f @@ -220,18 +220,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CHPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, $ TAU, WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/chst01.f b/lapack-netlib/TESTING/EIG/chst01.f index f0c428c88..286daee2c 100644 --- a/lapack-netlib/TESTING/EIG/chst01.f +++ b/lapack-netlib/TESTING/EIG/chst01.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, $ LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N diff --git a/lapack-netlib/TESTING/EIG/clarfy.f b/lapack-netlib/TESTING/EIG/clarfy.f index a5743858c..80329cab4 100644 --- a/lapack-netlib/TESTING/EIG/clarfy.f +++ b/lapack-netlib/TESTING/EIG/clarfy.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/clarhs.f b/lapack-netlib/TESTING/EIG/clarhs.f index 1143be85d..2d70abe21 100644 --- a/lapack-netlib/TESTING/EIG/clarhs.f +++ b/lapack-netlib/TESTING/EIG/clarhs.f @@ -30,8 +30,7 @@ *> CLARHS chooses a set of NRHS random solution vectors and sets *> up the right hand sides for the linear system *> op( A ) * X = B, -*> where op( A ) may be A, A**T (transpose of A), or A**H (conjugate -*> transpose of A). +*> where op(A) = A, A**T or A**H, depending on TRANS. *> \endverbatim * * Arguments: @@ -85,9 +84,9 @@ *> TRANS is CHARACTER*1 *> Used only if A is nonsymmetric; specifies the operation *> applied to the matrix A. -*> = 'N': B := A * X -*> = 'T': B := A**T * X -*> = 'C': B := A**H * X +*> = 'N': B := A * X (No transpose) +*> = 'T': B := A**T * X (Transpose) +*> = 'C': B := A**H * X (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -201,18 +200,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS, UPLO, XTYPE diff --git a/lapack-netlib/TESTING/EIG/clatm4.f b/lapack-netlib/TESTING/EIG/clatm4.f index 833234f99..12d0c6318 100644 --- a/lapack-netlib/TESTING/EIG/clatm4.f +++ b/lapack-netlib/TESTING/EIG/clatm4.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, $ TRIANG, IDIST, ISEED, A, LDA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL RSIGN diff --git a/lapack-netlib/TESTING/EIG/clctes.f b/lapack-netlib/TESTING/EIG/clctes.f index 6a7e71c4d..9bf95cbc4 100644 --- a/lapack-netlib/TESTING/EIG/clctes.f +++ b/lapack-netlib/TESTING/EIG/clctes.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== LOGICAL FUNCTION CLCTES( Z, D ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. COMPLEX D, Z diff --git a/lapack-netlib/TESTING/EIG/clctsx.f b/lapack-netlib/TESTING/EIG/clctsx.f index fbf19e40b..39c5cf321 100644 --- a/lapack-netlib/TESTING/EIG/clctsx.f +++ b/lapack-netlib/TESTING/EIG/clctsx.f @@ -50,17 +50,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== LOGICAL FUNCTION CLCTSX( ALPHA, BETA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. COMPLEX ALPHA, BETA diff --git a/lapack-netlib/TESTING/EIG/clsets.f b/lapack-netlib/TESTING/EIG/clsets.f index 13e037df6..2124a9e09 100644 --- a/lapack-netlib/TESTING/EIG/clsets.f +++ b/lapack-netlib/TESTING/EIG/clsets.f @@ -147,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, $ D, DF, X, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, P, N diff --git a/lapack-netlib/TESTING/EIG/csbmv.f b/lapack-netlib/TESTING/EIG/csbmv.f index dc1b2330d..567ea4517 100644 --- a/lapack-netlib/TESTING/EIG/csbmv.f +++ b/lapack-netlib/TESTING/EIG/csbmv.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/csgt01.f b/lapack-netlib/TESTING/EIG/csgt01.f index e6d6bb3e2..828669d48 100644 --- a/lapack-netlib/TESTING/EIG/csgt01.f +++ b/lapack-netlib/TESTING/EIG/csgt01.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, $ WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/cslect.f b/lapack-netlib/TESTING/EIG/cslect.f index 1092b630a..be324ec3c 100644 --- a/lapack-netlib/TESTING/EIG/cslect.f +++ b/lapack-netlib/TESTING/EIG/cslect.f @@ -49,17 +49,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_eig * * ===================================================================== LOGICAL FUNCTION CSLECT( Z ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. COMPLEX Z diff --git a/lapack-netlib/TESTING/EIG/cstt21.f b/lapack-netlib/TESTING/EIG/cstt21.f index 3fdfa1675..58f426961 100644 --- a/lapack-netlib/TESTING/EIG/cstt21.f +++ b/lapack-netlib/TESTING/EIG/cstt21.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, RWORK, $ RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KBAND, LDU, N diff --git a/lapack-netlib/TESTING/EIG/cstt22.f b/lapack-netlib/TESTING/EIG/cstt22.f index 2db3736e8..bd09f6302 100644 --- a/lapack-netlib/TESTING/EIG/cstt22.f +++ b/lapack-netlib/TESTING/EIG/cstt22.f @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, $ LDWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KBAND, LDU, LDWORK, M, N diff --git a/lapack-netlib/TESTING/EIG/cunt01.f b/lapack-netlib/TESTING/EIG/cunt01.f index 20c568218..d8928954f 100644 --- a/lapack-netlib/TESTING/EIG/cunt01.f +++ b/lapack-netlib/TESTING/EIG/cunt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CUNT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER ROWCOL diff --git a/lapack-netlib/TESTING/EIG/cunt03.f b/lapack-netlib/TESTING/EIG/cunt03.f index 8e1fd207f..56165f954 100644 --- a/lapack-netlib/TESTING/EIG/cunt03.f +++ b/lapack-netlib/TESTING/EIG/cunt03.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_eig * * ===================================================================== SUBROUTINE CUNT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, $ RWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*( * ) RC diff --git a/lapack-netlib/TESTING/EIG/dbdt01.f b/lapack-netlib/TESTING/EIG/dbdt01.f index 4b2219e5d..69e0b5ffc 100644 --- a/lapack-netlib/TESTING/EIG/dbdt01.f +++ b/lapack-netlib/TESTING/EIG/dbdt01.f @@ -27,13 +27,13 @@ *> \verbatim *> *> DBDT01 reconstructs a general matrix A from its bidiagonal form -*> A = Q * B * P' -*> where Q (m by min(m,n)) and P' (min(m,n) by n) are orthogonal +*> A = Q * B * P**T +*> where Q (m by min(m,n)) and P**T (min(m,n) by n) are orthogonal *> matrices and B is bidiagonal. *> *> The test ratio to test the reduction is -*> RESID = norm( A - Q * B * PT ) / ( n * norm(A) * EPS ) -*> where PT = P' and EPS is the machine precision. +*> RESID = norm(A - Q * B * P**T) / ( n * norm(A) * EPS ) +*> where EPS is the machine precision. *> \endverbatim * * Arguments: @@ -48,7 +48,7 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrices A and P'. +*> The number of columns of the matrices A and P**T. *> \endverbatim *> *> \param[in] KD @@ -77,7 +77,7 @@ *> \verbatim *> Q is DOUBLE PRECISION array, dimension (LDQ,N) *> The m by min(m,n) orthogonal matrix Q in the reduction -*> A = Q * B * P'. +*> A = Q * B * P**T. *> \endverbatim *> *> \param[in] LDQ @@ -102,8 +102,8 @@ *> \param[in] PT *> \verbatim *> PT is DOUBLE PRECISION array, dimension (LDPT,N) -*> The min(m,n) by n orthogonal matrix P' in the reduction -*> A = Q * B * P'. +*> The min(m,n) by n orthogonal matrix P**T in the reduction +*> A = Q * B * P**T. *> \endverbatim *> *> \param[in] LDPT @@ -121,7 +121,8 @@ *> \param[out] RESID *> \verbatim *> RESID is DOUBLE PRECISION -*> The test ratio: norm(A - Q * B * P') / ( n * norm(A) * EPS ) +*> The test ratio: +*> norm(A - Q * B * P**T) / ( n * norm(A) * EPS ) *> \endverbatim * * Authors: @@ -132,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KD, LDA, LDPT, LDQ, M, N @@ -183,7 +181,7 @@ RETURN END IF * -* Compute A - Q * B * P' one column at a time. +* Compute A - Q * B * P**T one column at a time. * RESID = ZERO IF( KD.NE.0 ) THEN @@ -261,7 +259,7 @@ END IF END IF * -* Compute norm(A - Q * B * P') / ( n * norm(A) * EPS ) +* Compute norm(A - Q * B * P**T) / ( n * norm(A) * EPS ) * ANORM = DLANGE( '1', M, N, A, LDA, WORK ) EPS = DLAMCH( 'Precision' ) diff --git a/lapack-netlib/TESTING/EIG/dbdt02.f b/lapack-netlib/TESTING/EIG/dbdt02.f index 2f7c8c1f9..76e3ff713 100644 --- a/lapack-netlib/TESTING/EIG/dbdt02.f +++ b/lapack-netlib/TESTING/EIG/dbdt02.f @@ -25,7 +25,8 @@ *> *> \verbatim *> -*> DBDT02 tests the change of basis C = U' * B by computing the residual +*> DBDT02 tests the change of basis C = U**H * B by computing the +*> residual *> *> RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ), *> @@ -64,7 +65,7 @@ *> \param[in] C *> \verbatim *> C is DOUBLE PRECISION array, dimension (LDC,N) -*> The m by n matrix C, assumed to contain U' * B. +*> The m by n matrix C, assumed to contain U**H * B. *> \endverbatim *> *> \param[in] LDC @@ -104,17 +105,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDC, LDU, M, N diff --git a/lapack-netlib/TESTING/EIG/dbdt03.f b/lapack-netlib/TESTING/EIG/dbdt03.f index 80c047331..8af6162c9 100644 --- a/lapack-netlib/TESTING/EIG/dbdt03.f +++ b/lapack-netlib/TESTING/EIG/dbdt03.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/dbdt04.f b/lapack-netlib/TESTING/EIG/dbdt04.f index 494442cc9..1c0713555 100644 --- a/lapack-netlib/TESTING/EIG/dbdt04.f +++ b/lapack-netlib/TESTING/EIG/dbdt04.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/dbdt05.f b/lapack-netlib/TESTING/EIG/dbdt05.f index 356bb5fc8..e4e6fcac6 100644 --- a/lapack-netlib/TESTING/EIG/dbdt05.f +++ b/lapack-netlib/TESTING/EIG/dbdt05.f @@ -1,3 +1,5 @@ +*> \brief \b DBDT05 +* * =========== DOCUMENTATION =========== * * Online html documentation available at @@ -117,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU, $ VT, LDVT, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDU, LDVT, M, N, NS diff --git a/lapack-netlib/TESTING/EIG/dchkbb.f b/lapack-netlib/TESTING/EIG/dchkbb.f index 51a29585b..9fec99728 100644 --- a/lapack-netlib/TESTING/EIG/dchkbb.f +++ b/lapack-netlib/TESTING/EIG/dchkbb.f @@ -345,8 +345,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -358,7 +356,6 @@ * -- LAPACK test routine (input) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/dchkbd.f b/lapack-netlib/TESTING/EIG/dchkbd.f index 0557574d3..a24acfab2 100644 --- a/lapack-netlib/TESTING/EIG/dchkbd.f +++ b/lapack-netlib/TESTING/EIG/dchkbd.f @@ -483,8 +483,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -493,10 +491,9 @@ $ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, $ IWORK, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, diff --git a/lapack-netlib/TESTING/EIG/dchkbk.f b/lapack-netlib/TESTING/EIG/dchkbk.f index 2accd4bfd..364b8f6b1 100644 --- a/lapack-netlib/TESTING/EIG/dchkbk.f +++ b/lapack-netlib/TESTING/EIG/dchkbk.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DCHKBK( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/dchkbl.f b/lapack-netlib/TESTING/EIG/dchkbl.f index 403d4edc5..7237dacf2 100644 --- a/lapack-netlib/TESTING/EIG/dchkbl.f +++ b/lapack-netlib/TESTING/EIG/dchkbl.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DCHKBL( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/dchkec.f b/lapack-netlib/TESTING/EIG/dchkec.f index 0b0f7c1e3..854961884 100644 --- a/lapack-netlib/TESTING/EIG/dchkec.f +++ b/lapack-netlib/TESTING/EIG/dchkec.f @@ -24,7 +24,7 @@ *> *> DCHKEC tests eigen- condition estimation routines *> DLALN2, DLASY2, DLANV2, DLAQTR, DLAEXC, -*> DTRSYL, DTREXC, DTRSNA, DTRSEN +*> DTRSYL, DTREXC, DTRSNA, DTRSEN, DTGEXC *> *> In all cases, the routine runs through a fixed set of numerical *> examples, subjects them to various tests, and compares the test @@ -69,17 +69,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DCHKEC( THRESH, TSTERR, NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -95,9 +92,9 @@ INTEGER KLAEXC, KLALN2, KLANV2, KLAQTR, KLASY2, KTREXC, $ KTRSEN, KTRSNA, KTRSYL, LLAEXC, LLALN2, LLANV2, $ LLAQTR, LLASY2, LTREXC, LTRSYL, NLANV2, NLAQTR, - $ NLASY2, NTESTS, NTRSYL + $ NLASY2, NTESTS, NTRSYL, KTGEXC, NTGEXC, LTGEXC DOUBLE PRECISION EPS, RLAEXC, RLALN2, RLANV2, RLAQTR, RLASY2, - $ RTREXC, RTRSYL, SFMIN + $ RTREXC, RTRSYL, SFMIN, RTGEXC * .. * .. Local Arrays .. INTEGER LTRSEN( 3 ), LTRSNA( 3 ), NLAEXC( 2 ), @@ -107,7 +104,7 @@ * .. * .. External Subroutines .. EXTERNAL DERREC, DGET31, DGET32, DGET33, DGET34, DGET35, - $ DGET36, DGET37, DGET38, DGET39 + $ DGET36, DGET37, DGET38, DGET39, DGET40 * .. * .. External Functions .. DOUBLE PRECISION DLAMCH @@ -189,9 +186,15 @@ OK = .FALSE. WRITE( NOUT, FMT = 9991 )RLAQTR, LLAQTR, NLAQTR, KLAQTR END IF +* + CALL DGET40( RTGEXC, LTGEXC, NTGEXC, KTGEXC, NIN ) + IF( RTGEXC.GT.THRESH ) THEN + OK = .FALSE. + WRITE( NOUT, FMT = 9986 )RTGEXC, LTGEXC, NTGEXC, KTGEXC + END IF * NTESTS = KLALN2 + KLASY2 + KLANV2 + KLAEXC + KTRSYL + KTREXC + - $ KTRSNA + KTRSEN + KLAQTR + $ KTRSNA + KTRSEN + KLAQTR + KTGEXC IF( OK ) $ WRITE( NOUT, FMT = 9990 )PATH, NTESTS * @@ -218,11 +221,13 @@ $ 'old ( ', I6, ' tests run)' ) 9989 FORMAT( ' Tests of the Nonsymmetric eigenproblem condition estim', $ 'ation routines', / ' DLALN2, DLASY2, DLANV2, DLAEXC, DTRS', - $ 'YL, DTREXC, DTRSNA, DTRSEN, DLAQTR', / ) + $ 'YL, DTREXC, DTRSNA, DTRSEN, DLAQTR, DTGEXC', / ) 9988 FORMAT( ' Relative machine precision (EPS) = ', D16.6, / ' Safe ', $ 'minimum (SFMIN) = ', D16.6, / ) 9987 FORMAT( ' Routines pass computational tests if test ratio is les', $ 's than', F8.2, / / ) + 9986 FORMAT( ' Error in DTGEXC: RMAX =', D12.3, / ' LMAX = ', I8, ' N', + $ 'INFO=', I8, ' KNT=', I8 ) * * End of DCHKEC * diff --git a/lapack-netlib/TESTING/EIG/dchkee.F b/lapack-netlib/TESTING/EIG/dchkee.F index 89b6958fe..2b8e0b371 100644 --- a/lapack-netlib/TESTING/EIG/dchkee.F +++ b/lapack-netlib/TESTING/EIG/dchkee.F @@ -1033,8 +1033,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -1044,10 +1042,9 @@ use omp_lib #endif * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/EIG/dchkgg.f b/lapack-netlib/TESTING/EIG/dchkgg.f index 912ca4ae0..15e1360ea 100644 --- a/lapack-netlib/TESTING/EIG/dchkgg.f +++ b/lapack-netlib/TESTING/EIG/dchkgg.f @@ -500,8 +500,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -511,10 +509,9 @@ $ BETA1, ALPHR3, ALPHI3, BETA3, EVECTL, EVECTR, $ WORK, LWORK, LLWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL TSTDIF diff --git a/lapack-netlib/TESTING/EIG/dchkgk.f b/lapack-netlib/TESTING/EIG/dchkgk.f index 85c7325d4..9ba567d74 100644 --- a/lapack-netlib/TESTING/EIG/dchkgk.f +++ b/lapack-netlib/TESTING/EIG/dchkgk.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DCHKGK( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/dchkgl.f b/lapack-netlib/TESTING/EIG/dchkgl.f index d7fd0cadc..60fee9870 100644 --- a/lapack-netlib/TESTING/EIG/dchkgl.f +++ b/lapack-netlib/TESTING/EIG/dchkgl.f @@ -46,17 +46,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DCHKGL( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/dchkhs.f b/lapack-netlib/TESTING/EIG/dchkhs.f index 375a70e9a..2e5749896 100644 --- a/lapack-netlib/TESTING/EIG/dchkhs.f +++ b/lapack-netlib/TESTING/EIG/dchkhs.f @@ -401,8 +401,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -412,10 +410,9 @@ $ EVECTY, EVECTX, UU, TAU, WORK, NWORK, IWORK, $ SELECT, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK diff --git a/lapack-netlib/TESTING/EIG/dchksb.f b/lapack-netlib/TESTING/EIG/dchksb.f index b95e595de..86f849b77 100644 --- a/lapack-netlib/TESTING/EIG/dchksb.f +++ b/lapack-netlib/TESTING/EIG/dchksb.f @@ -284,8 +284,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -293,10 +291,9 @@ $ THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, $ LWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, diff --git a/lapack-netlib/TESTING/EIG/dchksb2stg.f b/lapack-netlib/TESTING/EIG/dchksb2stg.f index 88f6e18d3..878da8b6f 100644 --- a/lapack-netlib/TESTING/EIG/dchksb2stg.f +++ b/lapack-netlib/TESTING/EIG/dchksb2stg.f @@ -1,4 +1,4 @@ -*> \brief \b DCHKSBSTG +*> \brief \b DCHKSB2STG * * =========== DOCUMENTATION =========== * @@ -21,6 +21,7 @@ * LOGICAL DOTYPE( * ) * INTEGER ISEED( 4 ), KK( * ), NN( * ) * DOUBLE PRECISION A( LDA, * ), RESULT( * ), SD( * ), SE( * ), +* $ D1( * ), D2( * ), D3( * ), * $ U( LDU, * ), WORK( * ) * .. * @@ -30,18 +31,18 @@ *> *> \verbatim *> -*> DCHKSBSTG tests the reduction of a symmetric band matrix to tridiagonal +*> DCHKSB2STG tests the reduction of a symmetric band matrix to tridiagonal *> form, used with the symmetric eigenvalue problem. *> *> DSBTRD factors a symmetric band matrix A as U S U' , where ' means *> transpose, S is symmetric tridiagonal, and U is orthogonal. *> DSBTRD can use either just the lower or just the upper triangle -*> of A; DCHKSBSTG checks both cases. +*> of A; DCHKSB2STG checks both cases. *> *> DSYTRD_SB2ST factors a symmetric band matrix A as U S U' , *> where ' means transpose, S is symmetric tridiagonal, and U is *> orthogonal. DSYTRD_SB2ST can use either just the lower or just -*> the upper triangle of A; DCHKSBSTG checks both cases. +*> the upper triangle of A; DCHKSB2STG checks both cases. *> *> DSTEQR factors S as Z D1 Z'. *> D1 is the matrix of eigenvalues computed when Z is not computed @@ -51,7 +52,7 @@ *> D3 is the matrix of eigenvalues computed when Z is not computed *> and from the S resulting of DSYTRD_SB2ST "L". *> -*> When DCHKSBSTG is called, a number of matrix "sizes" ("n's"), a number +*> When DCHKSB2STG is called, a number of matrix "sizes" ("n's"), a number *> of bandwidths ("k's"), and a number of matrix "types" are *> specified. For each size ("n"), each bandwidth ("k") less than or *> equal to "n", and each type of matrix, one matrix will be generated @@ -125,7 +126,7 @@ *> \verbatim *> NSIZES is INTEGER *> The number of sizes of matrices to use. If it is zero, -*> DCHKSBSTG does nothing. It must be at least zero. +*> DCHKSB2STG does nothing. It must be at least zero. *> \endverbatim *> *> \param[in] NN @@ -140,7 +141,7 @@ *> \verbatim *> NWDTHS is INTEGER *> The number of bandwidths to use. If it is zero, -*> DCHKSBSTG does nothing. It must be at least zero. +*> DCHKSB2STG does nothing. It must be at least zero. *> \endverbatim *> *> \param[in] KK @@ -153,7 +154,7 @@ *> \param[in] NTYPES *> \verbatim *> NTYPES is INTEGER -*> The number of elements in DOTYPE. If it is zero, DCHKSBSTG +*> The number of elements in DOTYPE. If it is zero, DCHKSB2STG *> does nothing. It must be at least zero. If it is MAXTYP+1 *> and NSIZES is 1, then an additional type, MAXTYP+1 is *> defined, which is to use whatever matrix is in A. This @@ -183,7 +184,7 @@ *> congruential sequence limited to small integers, and so *> should produce machine independent random numbers. The *> values of ISEED are changed on exit, and can be used in the -*> next call to DCHKSBSTG to continue the same random number +*> next call to DCHKSB2STG to continue the same random number *> sequence. *> \endverbatim *> @@ -234,6 +235,21 @@ *> computed by DSBTRD. *> \endverbatim *> +*> \param[out] D1 +*> \verbatim +*> D1 is DOUBLE PRECISION array, dimension (max(NN)) +*> \endverbatim +*> +*> \param[out] D2 +*> \verbatim +*> D2 is DOUBLE PRECISION array, dimension (max(NN)) +*> \endverbatim +*> +*> \param[out] D3 +*> \verbatim +*> D3 is DOUBLE PRECISION array, dimension (max(NN)) +*> \endverbatim +*> *> \param[out] U *> \verbatim *> U is DOUBLE PRECISION array, dimension (LDU, max(NN)) @@ -307,8 +323,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_eig * * ===================================================================== @@ -316,10 +330,9 @@ $ ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1, $ D2, D3, U, LDU, WORK, LWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, @@ -422,7 +435,7 @@ END IF * IF( INFO.NE.0 ) THEN - CALL XERBLA( 'DCHKSBSTG', -INFO ) + CALL XERBLA( 'DCHKSB2STG', -INFO ) RETURN END IF * @@ -827,12 +840,12 @@ CALL DLASUM( 'DSB', NOUNIT, NERRS, NTESTT ) RETURN * - 9999 FORMAT( ' DCHKSBSTG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', + 9999 FORMAT( ' DCHKSB2STG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', $ I6, ', JTYPE=', I6, ', ISEED=(', 3( I5, ',' ), I5, ')' ) * 9998 FORMAT( / 1X, A3, $ ' -- Real Symmetric Banded Tridiagonal Reduction Routines' ) - 9997 FORMAT( ' Matrix types (see DCHKSBSTG for details): ' ) + 9997 FORMAT( ' Matrix types (see DCHKSB2STG for details): ' ) * 9996 FORMAT( / ' Special Matrices:', $ / ' 1=Zero matrix. ', @@ -863,6 +876,6 @@ 9993 FORMAT( ' N=', I5, ', K=', I4, ', seed=', 4( I4, ',' ), ' type ', $ I2, ', test(', I2, ')=', G10.3 ) * -* End of DCHKSBSTG +* End of DCHKSB2STG * END diff --git a/lapack-netlib/TESTING/EIG/dchkst.f b/lapack-netlib/TESTING/EIG/dchkst.f index 1b4d85f79..2e04f68c5 100644 --- a/lapack-netlib/TESTING/EIG/dchkst.f +++ b/lapack-netlib/TESTING/EIG/dchkst.f @@ -581,8 +581,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -591,10 +589,9 @@ $ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, $ LWORK, IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/dchkst2stg.f b/lapack-netlib/TESTING/EIG/dchkst2stg.f index 7115175c2..2c98b802d 100644 --- a/lapack-netlib/TESTING/EIG/dchkst2stg.f +++ b/lapack-netlib/TESTING/EIG/dchkst2stg.f @@ -602,8 +602,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -612,10 +610,9 @@ $ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, $ LWORK, IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, @@ -1058,7 +1055,6 @@ END IF END IF * -* * Do Tests 3 and 4 which are similar to 11 and 12 but with the * D1 computed using the standard 1-stage reduction as reference * @@ -1718,7 +1714,6 @@ END IF END IF * -* * Do test 28 * TEMP2 = TWO*( TWO*N-ONE )*ULP* @@ -1817,7 +1812,6 @@ RESULT( 31 ) = TEMP2 / MAX( UNFL, $ ULP*MAX( TEMP1, TEMP2 ) ) * -* * Call DSTEMR(V,V) to compute D1 and Z, do tests. * * Compute D1 and Z @@ -1919,7 +1913,6 @@ RESULT( 34 ) = ZERO END IF * -* * Call DSTEMR(V,A) to compute D1 and Z, do tests. * * Compute D1 and Z @@ -1976,7 +1969,7 @@ END IF END IF * -* Do Test 34 +* Do Test 37 * TEMP1 = ZERO TEMP2 = ZERO @@ -1995,7 +1988,6 @@ * * End of Loop -- Check for RESULT(j) > THRESH * -* * Print out tests which fail. * DO 290 JR = 1, NTEST @@ -2063,6 +2055,7 @@ $ ', test(', I2, ')=', G10.3 ) * 9988 FORMAT( / 'Test performed: see DCHKST2STG for details.', / ) +* * End of DCHKST2STG * END diff --git a/lapack-netlib/TESTING/EIG/dckcsd.f b/lapack-netlib/TESTING/EIG/dckcsd.f index 063a5ef5c..90ba75b4c 100644 --- a/lapack-netlib/TESTING/EIG/dckcsd.f +++ b/lapack-netlib/TESTING/EIG/dckcsd.f @@ -175,8 +175,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -184,10 +182,9 @@ $ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, $ WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT @@ -208,11 +205,12 @@ PARAMETER ( NTESTS = 15 ) INTEGER NTYPES PARAMETER ( NTYPES = 4 ) - DOUBLE PRECISION GAPDIGIT, ONE, ORTH, PIOVER2, TEN, ZERO + DOUBLE PRECISION GAPDIGIT, ONE, ORTH, TEN, ZERO PARAMETER ( GAPDIGIT = 18.0D0, ONE = 1.0D0, $ ORTH = 1.0D-12, - $ PIOVER2 = 1.57079632679489662D0, $ TEN = 10.0D0, ZERO = 0.0D0 ) + DOUBLE PRECISION PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210D0 ) * .. * .. Local Scalars .. LOGICAL FIRSTT diff --git a/lapack-netlib/TESTING/EIG/dckglm.f b/lapack-netlib/TESTING/EIG/dckglm.f index a47e9dbe1..389ba4932 100644 --- a/lapack-netlib/TESTING/EIG/dckglm.f +++ b/lapack-netlib/TESTING/EIG/dckglm.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -167,10 +165,9 @@ $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT diff --git a/lapack-netlib/TESTING/EIG/dckgqr.f b/lapack-netlib/TESTING/EIG/dckgqr.f index eb86643fc..a810facc0 100644 --- a/lapack-netlib/TESTING/EIG/dckgqr.f +++ b/lapack-netlib/TESTING/EIG/dckgqr.f @@ -201,8 +201,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -210,10 +208,9 @@ $ THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, $ BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP diff --git a/lapack-netlib/TESTING/EIG/dckgsv.f b/lapack-netlib/TESTING/EIG/dckgsv.f index bc57ff841..3b60dde6b 100644 --- a/lapack-netlib/TESTING/EIG/dckgsv.f +++ b/lapack-netlib/TESTING/EIG/dckgsv.f @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -198,10 +196,9 @@ $ NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, $ IWORK, WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT diff --git a/lapack-netlib/TESTING/EIG/dcklse.f b/lapack-netlib/TESTING/EIG/dcklse.f index 7d9b3f594..b2dbbf1e5 100644 --- a/lapack-netlib/TESTING/EIG/dcklse.f +++ b/lapack-netlib/TESTING/EIG/dcklse.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -167,10 +165,9 @@ $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT diff --git a/lapack-netlib/TESTING/EIG/dcsdts.f b/lapack-netlib/TESTING/EIG/dcsdts.f index 14ffc7814..a671a8a25 100644 --- a/lapack-netlib/TESTING/EIG/dcsdts.f +++ b/lapack-netlib/TESTING/EIG/dcsdts.f @@ -220,8 +220,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -229,10 +227,9 @@ $ LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q @@ -248,11 +245,12 @@ * ===================================================================== * * .. Parameters .. - DOUBLE PRECISION PIOVER2, REALONE, REALZERO - PARAMETER ( PIOVER2 = 1.57079632679489662D0, - $ REALONE = 1.0D0, REALZERO = 0.0D0 ) + DOUBLE PRECISION REALONE, REALZERO + PARAMETER ( REALONE = 1.0D0, REALZERO = 0.0D0 ) DOUBLE PRECISION ZERO, ONE PARAMETER ( ZERO = 0.0D0, ONE = 1.0D0 ) + DOUBLE PRECISION PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210D0 ) * .. * .. Local Scalars .. INTEGER I, INFO, R diff --git a/lapack-netlib/TESTING/EIG/ddrges.f b/lapack-netlib/TESTING/EIG/ddrges.f index 035ba04d0..abb10547a 100644 --- a/lapack-netlib/TESTING/EIG/ddrges.f +++ b/lapack-netlib/TESTING/EIG/ddrges.f @@ -393,8 +393,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -403,10 +401,9 @@ $ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES diff --git a/lapack-netlib/TESTING/EIG/ddrges3.f b/lapack-netlib/TESTING/EIG/ddrges3.f index 3b23deebe..770ae09c0 100644 --- a/lapack-netlib/TESTING/EIG/ddrges3.f +++ b/lapack-netlib/TESTING/EIG/ddrges3.f @@ -393,8 +393,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date February 2015 -* *> \ingroup double_eig * * ===================================================================== @@ -403,10 +401,9 @@ $ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, $ INFO ) * -* -- LAPACK test routine (version 3.6.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2015 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES @@ -749,6 +746,14 @@ RSUB = 5 END IF * +* Call XLAENV to set the parameters used in DLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Call DGGES3 to compute H, T, Q, Z, alpha, and beta. * CALL DLACPY( 'Full', N, N, A, LDA, S, LDA ) diff --git a/lapack-netlib/TESTING/EIG/ddrgev.f b/lapack-netlib/TESTING/EIG/ddrgev.f index c587e66ab..536ab36e1 100644 --- a/lapack-netlib/TESTING/EIG/ddrgev.f +++ b/lapack-netlib/TESTING/EIG/ddrgev.f @@ -398,8 +398,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -408,10 +406,9 @@ $ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, $ WORK, LWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/ddrgev3.f b/lapack-netlib/TESTING/EIG/ddrgev3.f index 1c60e4434..20a64361c 100644 --- a/lapack-netlib/TESTING/EIG/ddrgev3.f +++ b/lapack-netlib/TESTING/EIG/ddrgev3.f @@ -398,8 +398,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date February 2015 -* *> \ingroup double_eig * * ===================================================================== @@ -408,10 +406,9 @@ $ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, $ WORK, LWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.6.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2015 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, @@ -434,7 +431,7 @@ DOUBLE PRECISION ZERO, ONE PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0 ) INTEGER MAXTYP - PARAMETER ( MAXTYP = 26 ) + PARAMETER ( MAXTYP = 27 ) * .. * .. Local Scalars .. LOGICAL BADNN @@ -465,26 +462,26 @@ INTRINSIC ABS, DBLE, MAX, MIN, SIGN * .. * .. Data statements .. - DATA KCLASS / 15*1, 10*2, 1*3 / + DATA KCLASS / 15*1, 10*2, 1*3, 1*4 / DATA KZ1 / 0, 1, 2, 1, 3, 3 / DATA KZ2 / 0, 0, 1, 2, 1, 1 / DATA KADD / 0, 0, 0, 0, 3, 2 / DATA KATYPE / 0, 1, 0, 1, 2, 3, 4, 1, 4, 4, 1, 1, 4, - $ 4, 4, 2, 4, 5, 8, 7, 9, 4*4, 0 / + $ 4, 4, 2, 4, 5, 8, 7, 9, 4*4, 0, 0 / DATA KBTYPE / 0, 0, 1, 1, 2, -3, 1, 4, 1, 1, 4, 4, - $ 1, 1, -4, 2, -4, 8*8, 0 / + $ 1, 1, -4, 2, -4, 8*8, 0, 0 / DATA KAZERO / 6*1, 2, 1, 2*2, 2*1, 2*2, 3, 1, 3, - $ 4*5, 4*3, 1 / + $ 4*5, 4*3, 1, 1 / DATA KBZERO / 6*1, 1, 2, 2*1, 2*2, 2*1, 4, 1, 4, - $ 4*6, 4*4, 1 / + $ 4*6, 4*4, 1, 1 / DATA KAMAGN / 8*1, 2, 3, 2, 3, 2, 3, 7*1, 2, 3, 3, - $ 2, 1 / + $ 2, 1, 3 / DATA KBMAGN / 8*1, 3, 2, 3, 2, 2, 3, 7*1, 3, 2, 3, - $ 2, 1 / - DATA KTRIAN / 16*0, 10*1 / + $ 2, 1, 3 / + DATA KTRIAN / 16*0, 11*1 / DATA IASIGN / 6*0, 2, 0, 2*2, 2*0, 3*2, 0, 2, 3*0, - $ 5*2, 0 / - DATA IBSIGN / 7*0, 2, 2*0, 2*2, 2*0, 2, 0, 2, 9*0 / + $ 5*2, 2*0 / + DATA IBSIGN / 7*0, 2, 2*0, 2*2, 2*0, 2, 0, 2, 10*0 / * .. * .. Executable Statements .. * @@ -591,7 +588,8 @@ * Description of control parameters: * * KZLASS: =1 means w/o rotation, =2 means w/ rotation, -* =3 means random. +* =3 means random, =4 means random generalized +* upper Hessenberg. * KATYPE: the "type" to be passed to DLATM4 for computing A. * KAZERO: the pattern of zeros on the diagonal for A: * =1: ( xxx ), =2: (0, xxx ) =3: ( 0, 0, xxx, 0 ), @@ -705,7 +703,7 @@ IF( IERR.NE.0 ) $ GO TO 90 END IF - ELSE + ELSE IF (KCLASS( JTYPE ).EQ.3) THEN * * Random matrices * @@ -717,6 +715,32 @@ $ DLARND( 2, ISEED ) 70 CONTINUE 80 CONTINUE + ELSE +* +* Random upper Hessenberg pencil with singular B +* + DO 81 JC = 1, N + DO 71 JR = 1, min( JC + 1, N) + A( JR, JC ) = RMAGN( KAMAGN( JTYPE ) )* + $ DLARND( 2, ISEED ) + 71 CONTINUE + DO 72 JR = JC + 2, N + A( JR, JC ) = ZERO + 72 CONTINUE + 81 CONTINUE + DO 82 JC = 1, N + DO 73 JR = 1, JC + B( JR, JC ) = RMAGN( KAMAGN( JTYPE ) )* + $ DLARND( 2, ISEED ) + 73 CONTINUE + DO 74 JR = JC + 1, N + B( JR, JC ) = ZERO + 74 CONTINUE + 82 CONTINUE + DO 83 JC = 1, N, 4 + B( JC, JC ) = ZERO + 83 CONTINUE + END IF * 90 CONTINUE @@ -734,6 +758,14 @@ RESULT( I ) = -ONE 110 CONTINUE * +* Call XLAENV to set the parameters used in DLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Call DGGEV3 to compute eigenvalues and eigenvectors. * CALL DLACPY( ' ', N, N, A, LDA, S, LDA ) diff --git a/lapack-netlib/TESTING/EIG/ddrgsx.f b/lapack-netlib/TESTING/EIG/ddrgsx.f index 7fe9dfc14..b3f5e23f4 100644 --- a/lapack-netlib/TESTING/EIG/ddrgsx.f +++ b/lapack-netlib/TESTING/EIG/ddrgsx.f @@ -350,8 +350,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -359,10 +357,9 @@ $ BI, Z, Q, ALPHAR, ALPHAI, BETA, C, LDC, S, $ WORK, LWORK, IWORK, LIWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, diff --git a/lapack-netlib/TESTING/EIG/ddrgvx.f b/lapack-netlib/TESTING/EIG/ddrgvx.f index 32d08b5d7..c63762134 100644 --- a/lapack-netlib/TESTING/EIG/ddrgvx.f +++ b/lapack-netlib/TESTING/EIG/ddrgvx.f @@ -290,8 +290,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_eig * * ===================================================================== @@ -300,10 +298,9 @@ $ RSCALE, S, DTRU, DIF, DIFTRU, WORK, LWORK, $ IWORK, LIWORK, RESULT, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, diff --git a/lapack-netlib/TESTING/EIG/ddrvbd.f b/lapack-netlib/TESTING/EIG/ddrvbd.f index bd4ae60da..ce83234bf 100644 --- a/lapack-netlib/TESTING/EIG/ddrvbd.f +++ b/lapack-netlib/TESTING/EIG/ddrvbd.f @@ -357,8 +357,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -368,10 +366,9 @@ * IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LDVT, LWORK, NOUT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/ddrves.f b/lapack-netlib/TESTING/EIG/ddrves.f index 2904b633a..d2c2218b0 100644 --- a/lapack-netlib/TESTING/EIG/ddrves.f +++ b/lapack-netlib/TESTING/EIG/ddrves.f @@ -379,8 +379,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -388,10 +386,9 @@ $ NOUNIT, A, LDA, H, HT, WR, WI, WRT, WIT, VS, $ LDVS, RESULT, WORK, NWORK, IWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK diff --git a/lapack-netlib/TESTING/EIG/ddrvev.f b/lapack-netlib/TESTING/EIG/ddrvev.f index a3e6a2023..3b39fa977 100644 --- a/lapack-netlib/TESTING/EIG/ddrvev.f +++ b/lapack-netlib/TESTING/EIG/ddrvev.f @@ -396,8 +396,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -406,10 +404,9 @@ $ VR, LDVR, LRE, LDLRE, RESULT, WORK, NWORK, $ IWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/ddrvsg.f b/lapack-netlib/TESTING/EIG/ddrvsg.f index de094fcd8..0b49c8404 100644 --- a/lapack-netlib/TESTING/EIG/ddrvsg.f +++ b/lapack-netlib/TESTING/EIG/ddrvsg.f @@ -346,8 +346,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -355,10 +353,9 @@ $ NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, $ BP, WORK, NWORK, IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/ddrvsg2stg.f b/lapack-netlib/TESTING/EIG/ddrvsg2stg.f index 700e4f74d..196c6b48e 100644 --- a/lapack-netlib/TESTING/EIG/ddrvsg2stg.f +++ b/lapack-netlib/TESTING/EIG/ddrvsg2stg.f @@ -352,8 +352,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -364,10 +362,9 @@ * IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/ddrvst.f b/lapack-netlib/TESTING/EIG/ddrvst.f index efa75406f..a25077018 100644 --- a/lapack-netlib/TESTING/EIG/ddrvst.f +++ b/lapack-netlib/TESTING/EIG/ddrvst.f @@ -443,8 +443,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -453,10 +451,9 @@ $ WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK, $ IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/ddrvst2stg.f b/lapack-netlib/TESTING/EIG/ddrvst2stg.f index 489c385a1..c9a2632bb 100644 --- a/lapack-netlib/TESTING/EIG/ddrvst2stg.f +++ b/lapack-netlib/TESTING/EIG/ddrvst2stg.f @@ -443,8 +443,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -453,10 +451,9 @@ $ WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK, $ IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, @@ -2796,7 +2793,7 @@ c LIWEDC = 12 RESULT( NTEST ) = ULPINV RESULT( NTEST+1 ) = ULPINV RESULT( NTEST+2 ) = ULPINV - GO TO 700 + GO TO 1720 END IF END IF * @@ -2823,13 +2820,13 @@ c LIWEDC = 12 RETURN ELSE RESULT( NTEST ) = ULPINV - GO TO 700 + GO TO 1720 END IF END IF * IF( M3.EQ.0 .AND. N.GT.0 ) THEN RESULT( NTEST ) = ULPINV - GO TO 700 + GO TO 1720 END IF * * Do test 78 (or +54) diff --git a/lapack-netlib/TESTING/EIG/ddrvsx.f b/lapack-netlib/TESTING/EIG/ddrvsx.f index 9006f1a92..c032a4a0c 100644 --- a/lapack-netlib/TESTING/EIG/ddrvsx.f +++ b/lapack-netlib/TESTING/EIG/ddrvsx.f @@ -444,8 +444,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -454,10 +452,9 @@ $ WIT, WRTMP, WITMP, VS, LDVS, VS1, RESULT, WORK, $ LWORK, IWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/ddrvvx.f b/lapack-netlib/TESTING/EIG/ddrvvx.f index b088f6cc3..cbb78d2b6 100644 --- a/lapack-netlib/TESTING/EIG/ddrvvx.f +++ b/lapack-netlib/TESTING/EIG/ddrvvx.f @@ -510,8 +510,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -521,10 +519,9 @@ $ RCDVIN, RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, $ RESULT, WORK, NWORK, IWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/derrbd.f b/lapack-netlib/TESTING/EIG/derrbd.f index 934eb2066..914274ff2 100644 --- a/lapack-netlib/TESTING/EIG/derrbd.f +++ b/lapack-netlib/TESTING/EIG/derrbd.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DERRBD( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/derrec.f b/lapack-netlib/TESTING/EIG/derrec.f index dc0828e0c..d5863ad42 100644 --- a/lapack-netlib/TESTING/EIG/derrec.f +++ b/lapack-netlib/TESTING/EIG/derrec.f @@ -49,17 +49,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DERREC( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/derred.f b/lapack-netlib/TESTING/EIG/derred.f index 94264e256..6df517825 100644 --- a/lapack-netlib/TESTING/EIG/derred.f +++ b/lapack-netlib/TESTING/EIG/derred.f @@ -63,17 +63,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DERRED( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/derrgg.f b/lapack-netlib/TESTING/EIG/derrgg.f index 5671e9447..6fc61b872 100644 --- a/lapack-netlib/TESTING/EIG/derrgg.f +++ b/lapack-netlib/TESTING/EIG/derrgg.f @@ -50,17 +50,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DERRGG( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -99,7 +96,7 @@ $ DGGHRD, DGGLSE, DGGQRF, DGGRQF, $ DHGEQZ, DORCSD, DTGEVC, DTGEXC, DTGSEN, DTGSJA, $ DTGSNA, DTGSYL, DGGHD3, DGGES3, DGGEV3, - $ DGGSVD3, DGGSVP3 + $ DGGSVD3, DGGSVP3, XLAENV * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -137,6 +134,14 @@ NT = 0 LWORK = 1 * +* Call XLAENV to set the parameters used in CLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Test error exits for the GG path. * IF( LSAMEN( 2, C2, 'GG' ) ) THEN @@ -872,6 +877,11 @@ * * DGGEV3 * + CALL XLAENV( 12, 20 ) + CALL XLAENV( 13, 4 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) SRNAMT = 'DGGEV3 ' INFOT = 1 CALL DGGEV3( '/', 'N', 1, A, 1, B, 1, R1, R2, R3, Q, 1, U, 1, diff --git a/lapack-netlib/TESTING/EIG/derrhs.f b/lapack-netlib/TESTING/EIG/derrhs.f index a8a2b865e..fec41c0f0 100644 --- a/lapack-netlib/TESTING/EIG/derrhs.f +++ b/lapack-netlib/TESTING/EIG/derrhs.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DERRHS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/derrst.f b/lapack-netlib/TESTING/EIG/derrst.f index a544cfbfb..f297e5a7d 100644 --- a/lapack-netlib/TESTING/EIG/derrst.f +++ b/lapack-netlib/TESTING/EIG/derrst.f @@ -54,17 +54,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DERRST( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/dget02.f b/lapack-netlib/TESTING/EIG/dget02.f index a0337eeec..d286029a0 100644 --- a/lapack-netlib/TESTING/EIG/dget02.f +++ b/lapack-netlib/TESTING/EIG/dget02.f @@ -28,9 +28,11 @@ *> \verbatim *> *> DGET02 computes the residual for a solution of a system of linear -*> equations A*x = b or A'*x = b: -*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ), -*> where EPS is the machine epsilon. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A or A**T, depending on TRANS, and EPS is the +*> machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -40,9 +42,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A'*x = b, where A' is the transpose of A -*> = 'C': A'*x = b, where A' is the transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -114,7 +116,7 @@ *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -125,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS @@ -189,19 +188,23 @@ * Exit with RESID = 1/EPS if ANORM = 0. * EPS = DLAMCH( 'Epsilon' ) + IF( LSAME( TRANS, 'N' ) ) THEN ANORM = DLANGE( '1', M, N, A, LDA, RWORK ) + ELSE + ANORM = DLANGE( 'I', M, N, A, LDA, RWORK ) + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN END IF * -* Compute B - A*X (or B - A'*X ) and store in B. +* Compute B - op(A)*X and store in B. * CALL DGEMM( TRANS, 'No transpose', N1, NRHS, N2, -ONE, A, LDA, X, $ LDX, ONE, B, LDB ) * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) . +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) . * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/EIG/dget10.f b/lapack-netlib/TESTING/EIG/dget10.f index e0b3577d6..684172f6b 100644 --- a/lapack-netlib/TESTING/EIG/dget10.f +++ b/lapack-netlib/TESTING/EIG/dget10.f @@ -86,17 +86,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET10( M, N, A, LDA, B, LDB, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, M, N diff --git a/lapack-netlib/TESTING/EIG/dget22.f b/lapack-netlib/TESTING/EIG/dget22.f index ff7ba15aa..e19552ff7 100644 --- a/lapack-netlib/TESTING/EIG/dget22.f +++ b/lapack-netlib/TESTING/EIG/dget22.f @@ -149,6 +149,7 @@ *> RESULT is DOUBLE PRECISION array, dimension (2) *> RESULT(1) = | A E - E W | / ( |A| |E| ulp ) *> RESULT(2) = max | m-norm(E(j)) - 1 | / ( n ulp ) +*> j *> \endverbatim * * Authors: @@ -159,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, WR, $ WI, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSA, TRANSE, TRANSW @@ -366,7 +364,7 @@ RESULT( 1 ) = ( ERRNRM / ANORM ) / ULP ELSE IF( ANORM.LT.ONE ) THEN - RESULT( 1 ) = ( MIN( ERRNRM, ANORM ) / ANORM ) / ULP + RESULT( 1 ) = ONE / ULP ELSE RESULT( 1 ) = MIN( ERRNRM / ANORM, ONE ) / ULP END IF diff --git a/lapack-netlib/TESTING/EIG/dget23.f b/lapack-netlib/TESTING/EIG/dget23.f index 8c801aeee..215166904 100644 --- a/lapack-netlib/TESTING/EIG/dget23.f +++ b/lapack-netlib/TESTING/EIG/dget23.f @@ -367,8 +367,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -378,10 +376,9 @@ $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, $ WORK, LWORK, IWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL COMP diff --git a/lapack-netlib/TESTING/EIG/dget24.f b/lapack-netlib/TESTING/EIG/dget24.f index a3c01756c..eeb9109e9 100644 --- a/lapack-netlib/TESTING/EIG/dget24.f +++ b/lapack-netlib/TESTING/EIG/dget24.f @@ -333,8 +333,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -343,10 +341,9 @@ $ LDVS, VS1, RCDEIN, RCDVIN, NSLCT, ISLCT, $ RESULT, WORK, LWORK, IWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL COMP diff --git a/lapack-netlib/TESTING/EIG/dget31.f b/lapack-netlib/TESTING/EIG/dget31.f index 267ed7798..b952a91d2 100644 --- a/lapack-netlib/TESTING/EIG/dget31.f +++ b/lapack-netlib/TESTING/EIG/dget31.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET31( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX diff --git a/lapack-netlib/TESTING/EIG/dget32.f b/lapack-netlib/TESTING/EIG/dget32.f index 59fccf068..faf1773bb 100644 --- a/lapack-netlib/TESTING/EIG/dget32.f +++ b/lapack-netlib/TESTING/EIG/dget32.f @@ -75,17 +75,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET32( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NINFO diff --git a/lapack-netlib/TESTING/EIG/dget33.f b/lapack-netlib/TESTING/EIG/dget33.f index eb6b4516d..c4f3b69ce 100644 --- a/lapack-netlib/TESTING/EIG/dget33.f +++ b/lapack-netlib/TESTING/EIG/dget33.f @@ -69,17 +69,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET33( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NINFO diff --git a/lapack-netlib/TESTING/EIG/dget34.f b/lapack-netlib/TESTING/EIG/dget34.f index d3939f765..67f0df99f 100644 --- a/lapack-netlib/TESTING/EIG/dget34.f +++ b/lapack-netlib/TESTING/EIG/dget34.f @@ -36,7 +36,7 @@ *> offdiagonal with differing signs) and A1 and C1 are returned with the *> same properties. *> -*> The test code verifies these last last assertions, as well as that +*> The test code verifies these last assertions, as well as that *> the residual in the above equation is small. *> \endverbatim * @@ -75,17 +75,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET34( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX diff --git a/lapack-netlib/TESTING/EIG/dget35.f b/lapack-netlib/TESTING/EIG/dget35.f index c5d4dece5..a7908fca2 100644 --- a/lapack-netlib/TESTING/EIG/dget35.f +++ b/lapack-netlib/TESTING/EIG/dget35.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET35( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NINFO diff --git a/lapack-netlib/TESTING/EIG/dget36.f b/lapack-netlib/TESTING/EIG/dget36.f index 83bed283a..8725ae2e4 100644 --- a/lapack-netlib/TESTING/EIG/dget36.f +++ b/lapack-netlib/TESTING/EIG/dget36.f @@ -81,17 +81,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET36( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NIN diff --git a/lapack-netlib/TESTING/EIG/dget37.f b/lapack-netlib/TESTING/EIG/dget37.f index 2a4132c6a..fbdf50be2 100644 --- a/lapack-netlib/TESTING/EIG/dget37.f +++ b/lapack-netlib/TESTING/EIG/dget37.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET37( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, NIN diff --git a/lapack-netlib/TESTING/EIG/dget38.f b/lapack-netlib/TESTING/EIG/dget38.f index c677e3175..a0fb6daec 100644 --- a/lapack-netlib/TESTING/EIG/dget38.f +++ b/lapack-netlib/TESTING/EIG/dget38.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET38( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, NIN diff --git a/lapack-netlib/TESTING/EIG/dget39.f b/lapack-netlib/TESTING/EIG/dget39.f index 17e66c8e6..773d39c71 100644 --- a/lapack-netlib/TESTING/EIG/dget39.f +++ b/lapack-netlib/TESTING/EIG/dget39.f @@ -96,17 +96,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET39( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NINFO diff --git a/lapack-netlib/TESTING/EIG/dget40.f b/lapack-netlib/TESTING/EIG/dget40.f new file mode 100644 index 000000000..4d087f524 --- /dev/null +++ b/lapack-netlib/TESTING/EIG/dget40.f @@ -0,0 +1,223 @@ +*> \brief \b DGET40 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +* Definition: +* =========== +* +* SUBROUTINE DGET40( RMAX, LMAX, NINFO, KNT, NIN ) +* +* .. Scalar Arguments .. +* INTEGER KNT, LMAX, NIN +* DOUBLE PRECISION RMAX +* .. +* .. Array Arguments .. +* INTEGER NINFO( 3 ) +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> DGET40 tests DTGEXC, a routine for swapping adjacent blocks (either +*> 1 by 1 or 2 by 2) on the diagonal of a pencil in real generalized Schur form. +*> Thus, DTGEXC computes an orthogonal matrices Q and Z such that +*> +*> Q' * ( [ A B ], [ D E ] ) * Z = ( [ C1 B1 ], [ F1 E1 ] ) +*> ( [ 0 C ] [ F ] ) ( [ 0 A1 ] [ D1] ) +*> +*> where (C1,F1) is similar to (C,F) and (A1,D1) is similar to (A,D). +*> Both (A,D) and (C,F) are assumed to be in standard form +*> and (A1,D1) and (C1,F1) are returned with the +*> same properties. +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[out] RMAX +*> \verbatim +*> RMAX is DOUBLE PRECISION +*> Value of the largest test ratio. +*> \endverbatim +*> +*> \param[out] LMAX +*> \verbatim +*> LMAX is INTEGER +*> Example number where largest test ratio achieved. +*> \endverbatim +*> +*> \param[out] NINFO +*> \verbatim +*> NINFO is INTEGER(3) +*> Number of examples where INFO is nonzero. +*> \endverbatim +*> +*> \param[out] KNT +*> \verbatim +*> KNT is INTEGER +*> Total number of examples tested. +*> \endverbatim +*> +*> \param[out] NIN +*> \verbatim +*> NINFO is INTEGER +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. +* +*> \ingroup double_eig +* +* ===================================================================== + SUBROUTINE DGET40( RMAX, LMAX, NINFO, KNT, NIN ) +* +* -- LAPACK test routine -- +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +* +* .. Scalar Arguments .. + INTEGER KNT, LMAX, NIN + DOUBLE PRECISION RMAX +* .. +* .. Array Arguments .. + INTEGER NINFO( 3 ) +* .. +* +* ===================================================================== +* +* .. Parameters .. + DOUBLE PRECISION ZERO, ONE + PARAMETER ( ZERO = 0.0D0, ONE = 1.0D0 ) + INTEGER LDT, LWORK + PARAMETER ( LDT = 10, LWORK = 100 + 4*LDT + 16 ) +* .. +* .. Local Scalars .. + INTEGER I, IFST, IFST1, IFST2, IFSTSV, ILST, ILST1, + $ ILST2, ILSTSV, INFO1, INFO2, J, LOC, N + DOUBLE PRECISION EPS, RES +* .. +* .. Local Arrays .. + DOUBLE PRECISION Q( LDT, LDT ), Z( LDT, LDT ), RESULT( 4 ), + $ T( LDT, LDT ), T1( LDT, LDT ), T2( LDT, LDT ), + $ S( LDT, LDT ), S1( LDT, LDT ), S2( LDT, LDT ), + $ TMP( LDT, LDT ), WORK( LWORK ) +* .. +* .. External Functions .. + DOUBLE PRECISION DLAMCH + EXTERNAL DLAMCH +* .. +* .. External Subroutines .. + EXTERNAL DHST01, DLACPY, DLASET, DTGEXC +* .. +* .. Intrinsic Functions .. + INTRINSIC ABS, SIGN +* .. +* .. Executable Statements .. +* + EPS = DLAMCH( 'P' ) + RMAX = ZERO + LMAX = 0 + KNT = 0 + NINFO( 1 ) = 0 + NINFO( 2 ) = 0 + NINFO( 3 ) = 0 +* +* Read input data until N=0 +* + 10 CONTINUE + READ( NIN, FMT = * )N, IFST, ILST + IF( N.EQ.0 ) + $ RETURN + KNT = KNT + 1 + DO 20 I = 1, N + READ( NIN, FMT = * )( TMP( I, J ), J = 1, N ) + 20 CONTINUE + CALL DLACPY( 'F', N, N, TMP, LDT, T, LDT ) + CALL DLACPY( 'F', N, N, TMP, LDT, T1, LDT ) + CALL DLACPY( 'F', N, N, TMP, LDT, T2, LDT ) + DO 25 I = 1, N + READ( NIN, FMT = * )( TMP( I, J ), J = 1, N ) + 25 CONTINUE + CALL DLACPY( 'F', N, N, TMP, LDT, S, LDT ) + CALL DLACPY( 'F', N, N, TMP, LDT, S1, LDT ) + CALL DLACPY( 'F', N, N, TMP, LDT, S2, LDT ) + IFSTSV = IFST + ILSTSV = ILST + IFST1 = IFST + ILST1 = ILST + IFST2 = IFST + ILST2 = ILST + RES = ZERO +* +* Test without accumulating Q and Z +* + CALL DLASET( 'Full', N, N, ZERO, ONE, Q, LDT ) + CALL DLASET( 'Full', N, N, ZERO, ONE, Z, LDT ) + CALL DTGEXC( .FALSE., .FALSE., N, T1, LDT, S1, LDT, Q, LDT, + $ Z, LDT, IFST1, ILST1, WORK, LWORK, INFO1 ) + DO 40 I = 1, N + DO 30 J = 1, N + IF( I.EQ.J .AND. Q( I, J ).NE.ONE ) + $ RES = RES + ONE / EPS + IF( I.NE.J .AND. Q( I, J ).NE.ZERO ) + $ RES = RES + ONE / EPS + IF( I.EQ.J .AND. Z( I, J ).NE.ONE ) + $ RES = RES + ONE / EPS + IF( I.NE.J .AND. Z( I, J ).NE.ZERO ) + $ RES = RES + ONE / EPS + 30 CONTINUE + 40 CONTINUE +* +* Test with accumulating Q +* + CALL DLASET( 'Full', N, N, ZERO, ONE, Q, LDT ) + CALL DLASET( 'Full', N, N, ZERO, ONE, Z, LDT ) + CALL DTGEXC( .TRUE., .TRUE., N, T2, LDT, S2, LDT, Q, LDT, + $ Z, LDT, IFST2, ILST2, WORK, LWORK, INFO2 ) +* +* Compare T1 with T2 and S1 with S2 +* + DO 60 I = 1, N + DO 50 J = 1, N + IF( T1( I, J ).NE.T2( I, J ) ) + $ RES = RES + ONE / EPS + IF( S1( I, J ).NE.S2( I, J ) ) + $ RES = RES + ONE / EPS + 50 CONTINUE + 60 CONTINUE + IF( IFST1.NE.IFST2 ) + $ RES = RES + ONE / EPS + IF( ILST1.NE.ILST2 ) + $ RES = RES + ONE / EPS + IF( INFO1.NE.INFO2 ) + $ RES = RES + ONE / EPS +* +* Test orthogonality of Q and Z and backward error on T2 and S2 +* + CALL DGET51( 1, N, T, LDT, T2, LDT, Q, LDT, Z, LDT, WORK, + $ RESULT( 1 ) ) + CALL DGET51( 1, N, S, LDT, S2, LDT, Q, LDT, Z, LDT, WORK, + $ RESULT( 2 ) ) + CALL DGET51( 3, N, T, LDT, T2, LDT, Q, LDT, Q, LDT, WORK, + $ RESULT( 3 ) ) + CALL DGET51( 3, N, T, LDT, T2, LDT, Z, LDT, Z, LDT, WORK, + $ RESULT( 4 ) ) + RES = RES + RESULT( 1 ) + RESULT( 2 ) + RESULT( 3 ) + RESULT( 4 ) +* +* Read next matrix pair +* + GO TO 10 +* +* End of DGET40 +* + END diff --git a/lapack-netlib/TESTING/EIG/dget51.f b/lapack-netlib/TESTING/EIG/dget51.f index 530da5b50..27a403016 100644 --- a/lapack-netlib/TESTING/EIG/dget51.f +++ b/lapack-netlib/TESTING/EIG/dget51.f @@ -141,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, $ RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ITYPE, LDA, LDB, LDU, LDV, N diff --git a/lapack-netlib/TESTING/EIG/dget52.f b/lapack-netlib/TESTING/EIG/dget52.f index e236fccb1..68196f5f3 100644 --- a/lapack-netlib/TESTING/EIG/dget52.f +++ b/lapack-netlib/TESTING/EIG/dget52.f @@ -191,18 +191,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR, $ ALPHAI, BETA, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LEFT @@ -266,7 +263,7 @@ BETMAX = SAFMAX / MAX( ONE, ANORM ) * * Compute error matrix. -* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B| |b(i) A| ) +* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B|, |b(i) A| ) * ILCPLX = .FALSE. DO 10 JVEC = 1, N @@ -360,14 +357,14 @@ DO 20 J = 1, N TEMP1 = MAX( TEMP1, ABS( E( J, JVEC ) ) ) 20 CONTINUE - ENRMER = MAX( ENRMER, TEMP1-ONE ) + ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) ) ELSE ILCPLX = .TRUE. DO 30 J = 1, N TEMP1 = MAX( TEMP1, ABS( E( J, JVEC ) )+ $ ABS( E( J, JVEC+1 ) ) ) 30 CONTINUE - ENRMER = MAX( ENRMER, TEMP1-ONE ) + ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) ) END IF END IF 40 CONTINUE diff --git a/lapack-netlib/TESTING/EIG/dget53.f b/lapack-netlib/TESTING/EIG/dget53.f index 9cacb3540..ca0e830a7 100644 --- a/lapack-netlib/TESTING/EIG/dget53.f +++ b/lapack-netlib/TESTING/EIG/dget53.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET53( A, LDA, B, LDB, SCALE, WR, WI, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB diff --git a/lapack-netlib/TESTING/EIG/dget54.f b/lapack-netlib/TESTING/EIG/dget54.f index 172daabe9..5ea593310 100644 --- a/lapack-netlib/TESTING/EIG/dget54.f +++ b/lapack-netlib/TESTING/EIG/dget54.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, $ LDV, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N diff --git a/lapack-netlib/TESTING/EIG/dglmts.f b/lapack-netlib/TESTING/EIG/dglmts.f index 1f40fe499..0286a757c 100644 --- a/lapack-netlib/TESTING/EIG/dglmts.f +++ b/lapack-netlib/TESTING/EIG/dglmts.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, X, U, $ WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/dgqrts.f b/lapack-netlib/TESTING/EIG/dgqrts.f index 34f0bab56..4ea8a0ec9 100644 --- a/lapack-netlib/TESTING/EIG/dgqrts.f +++ b/lapack-netlib/TESTING/EIG/dgqrts.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/dgrqts.f b/lapack-netlib/TESTING/EIG/dgrqts.f index 4e38b0a74..c69aeee23 100644 --- a/lapack-netlib/TESTING/EIG/dgrqts.f +++ b/lapack-netlib/TESTING/EIG/dgrqts.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/dgsvts3.f b/lapack-netlib/TESTING/EIG/dgsvts3.f index 131aa81bc..8a0ebac03 100644 --- a/lapack-netlib/TESTING/EIG/dgsvts3.f +++ b/lapack-netlib/TESTING/EIG/dgsvts3.f @@ -201,8 +201,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup double_eig * * ===================================================================== @@ -210,10 +208,9 @@ $ LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, $ LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/dhst01.f b/lapack-netlib/TESTING/EIG/dhst01.f index 9e7ae0201..79925881b 100644 --- a/lapack-netlib/TESTING/EIG/dhst01.f +++ b/lapack-netlib/TESTING/EIG/dhst01.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, $ LWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N diff --git a/lapack-netlib/TESTING/EIG/dlafts.f b/lapack-netlib/TESTING/EIG/dlafts.f index 634c52c1b..64a0bfc52 100644 --- a/lapack-netlib/TESTING/EIG/dlafts.f +++ b/lapack-netlib/TESTING/EIG/dlafts.f @@ -91,18 +91,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DLAFTS( TYPE, M, N, IMAT, NTESTS, RESULT, ISEED, $ THRESH, IOUNIT, IE ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 TYPE diff --git a/lapack-netlib/TESTING/EIG/dlahd2.f b/lapack-netlib/TESTING/EIG/dlahd2.f index efb32c917..a6c65635f 100644 --- a/lapack-netlib/TESTING/EIG/dlahd2.f +++ b/lapack-netlib/TESTING/EIG/dlahd2.f @@ -58,17 +58,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DLAHD2( IOUNIT, PATH ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/dlarfy.f b/lapack-netlib/TESTING/EIG/dlarfy.f index a0b0ebb31..dc0e328e7 100644 --- a/lapack-netlib/TESTING/EIG/dlarfy.f +++ b/lapack-netlib/TESTING/EIG/dlarfy.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/dlarhs.f b/lapack-netlib/TESTING/EIG/dlarhs.f index 74b22792a..58bee151b 100644 --- a/lapack-netlib/TESTING/EIG/dlarhs.f +++ b/lapack-netlib/TESTING/EIG/dlarhs.f @@ -30,7 +30,7 @@ *> DLARHS chooses a set of NRHS random solution vectors and sets *> up the right hand sides for the linear system *> op( A ) * X = B, -*> where op( A ) may be A or A' (transpose of A). +*> where op(A) = A or A**T, depending on TRANS. *> \endverbatim * * Arguments: @@ -79,10 +79,11 @@ *> \param[in] TRANS *> \verbatim *> TRANS is CHARACTER*1 -*> Specifies the operation applied to the matrix A. -*> = 'N': System is A * x = b -*> = 'T': System is A'* x = b -*> = 'C': System is A'* x = b +*> Used only if A is nonsymmetric; specifies the operation +*> applied to the matrix A. +*> = 'N': B := A * X (No transpose) +*> = 'T': B := A**T * X (Transpose) +*> = 'C': B := A**H * X (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -196,18 +197,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS, UPLO, XTYPE diff --git a/lapack-netlib/TESTING/EIG/dlasum.f b/lapack-netlib/TESTING/EIG/dlasum.f index 555c405a1..d5b8717b4 100644 --- a/lapack-netlib/TESTING/EIG/dlasum.f +++ b/lapack-netlib/TESTING/EIG/dlasum.f @@ -36,17 +36,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DLASUM( TYPE, IOUNIT, IE, NRUN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 TYPE diff --git a/lapack-netlib/TESTING/EIG/dlatb9.f b/lapack-netlib/TESTING/EIG/dlatb9.f index 42ce5a07a..70647889b 100644 --- a/lapack-netlib/TESTING/EIG/dlatb9.f +++ b/lapack-netlib/TESTING/EIG/dlatb9.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== @@ -170,10 +168,9 @@ $ ANORM, BNORM, MODEA, MODEB, CNDNMA, CNDNMB, $ DISTA, DISTB ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DISTA, DISTB, TYPE diff --git a/lapack-netlib/TESTING/EIG/dlatm4.f b/lapack-netlib/TESTING/EIG/dlatm4.f index 04de323d5..266c10ff1 100644 --- a/lapack-netlib/TESTING/EIG/dlatm4.f +++ b/lapack-netlib/TESTING/EIG/dlatm4.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DLATM4( ITYPE, N, NZ1, NZ2, ISIGN, AMAGN, RCOND, $ TRIANG, IDIST, ISEED, A, LDA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, ISIGN, ITYPE, LDA, N, NZ1, NZ2 diff --git a/lapack-netlib/TESTING/EIG/dlctes.f b/lapack-netlib/TESTING/EIG/dlctes.f index 082c4514e..039dfb2aa 100644 --- a/lapack-netlib/TESTING/EIG/dlctes.f +++ b/lapack-netlib/TESTING/EIG/dlctes.f @@ -61,17 +61,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== LOGICAL FUNCTION DLCTES( ZR, ZI, D ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. DOUBLE PRECISION D, ZI, ZR diff --git a/lapack-netlib/TESTING/EIG/dlctsx.f b/lapack-netlib/TESTING/EIG/dlctsx.f index f852b60a7..878262070 100644 --- a/lapack-netlib/TESTING/EIG/dlctsx.f +++ b/lapack-netlib/TESTING/EIG/dlctsx.f @@ -58,17 +58,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== LOGICAL FUNCTION DLCTSX( AR, AI, BETA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION AI, AR, BETA diff --git a/lapack-netlib/TESTING/EIG/dlsets.f b/lapack-netlib/TESTING/EIG/dlsets.f index f2303614c..3616183a5 100644 --- a/lapack-netlib/TESTING/EIG/dlsets.f +++ b/lapack-netlib/TESTING/EIG/dlsets.f @@ -143,18 +143,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, D, DF, $ X, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/dort01.f b/lapack-netlib/TESTING/EIG/dort01.f index 32694bd07..eb1d7a7ec 100644 --- a/lapack-netlib/TESTING/EIG/dort01.f +++ b/lapack-netlib/TESTING/EIG/dort01.f @@ -109,17 +109,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DORT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER ROWCOL diff --git a/lapack-netlib/TESTING/EIG/dort03.f b/lapack-netlib/TESTING/EIG/dort03.f index 46f34574f..a7ce1588e 100644 --- a/lapack-netlib/TESTING/EIG/dort03.f +++ b/lapack-netlib/TESTING/EIG/dort03.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DORT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, $ RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*( * ) RC diff --git a/lapack-netlib/TESTING/EIG/dsbt21.f b/lapack-netlib/TESTING/EIG/dsbt21.f index 54795623b..33a0c807b 100644 --- a/lapack-netlib/TESTING/EIG/dsbt21.f +++ b/lapack-netlib/TESTING/EIG/dsbt21.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, $ RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/dsgt01.f b/lapack-netlib/TESTING/EIG/dsgt01.f index bb3e42b4c..db76456c6 100644 --- a/lapack-netlib/TESTING/EIG/dsgt01.f +++ b/lapack-netlib/TESTING/EIG/dsgt01.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, $ WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -240,6 +237,6 @@ * RETURN * -* End of DDGT01 +* End of DSGT01 * END diff --git a/lapack-netlib/TESTING/EIG/dslect.f b/lapack-netlib/TESTING/EIG/dslect.f index af5846799..e2ef8df88 100644 --- a/lapack-netlib/TESTING/EIG/dslect.f +++ b/lapack-netlib/TESTING/EIG/dslect.f @@ -55,17 +55,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_eig * * ===================================================================== LOGICAL FUNCTION DSLECT( ZR, ZI ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. DOUBLE PRECISION ZI, ZR diff --git a/lapack-netlib/TESTING/EIG/dspt21.f b/lapack-netlib/TESTING/EIG/dspt21.f index 4b1d360c5..7fba320f4 100644 --- a/lapack-netlib/TESTING/EIG/dspt21.f +++ b/lapack-netlib/TESTING/EIG/dspt21.f @@ -213,18 +213,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, $ TAU, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/dstech.f b/lapack-netlib/TESTING/EIG/dstech.f index 23ae8e575..00a1406ea 100644 --- a/lapack-netlib/TESTING/EIG/dstech.f +++ b/lapack-netlib/TESTING/EIG/dstech.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSTECH( N, A, B, EIG, TOL, WORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/TESTING/EIG/dstect.f b/lapack-netlib/TESTING/EIG/dstect.f index 1a8aef33b..d23f8dc4b 100644 --- a/lapack-netlib/TESTING/EIG/dstect.f +++ b/lapack-netlib/TESTING/EIG/dstect.f @@ -75,17 +75,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSTECT( N, A, B, SHIFT, NUM ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, NUM diff --git a/lapack-netlib/TESTING/EIG/dstt21.f b/lapack-netlib/TESTING/EIG/dstt21.f index 9d289ffc7..6eca6e6b7 100644 --- a/lapack-netlib/TESTING/EIG/dstt21.f +++ b/lapack-netlib/TESTING/EIG/dstt21.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, $ RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KBAND, LDU, N diff --git a/lapack-netlib/TESTING/EIG/dstt22.f b/lapack-netlib/TESTING/EIG/dstt22.f index 5cdc056c9..fc68590cf 100644 --- a/lapack-netlib/TESTING/EIG/dstt22.f +++ b/lapack-netlib/TESTING/EIG/dstt22.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, $ LDWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KBAND, LDU, LDWORK, M, N diff --git a/lapack-netlib/TESTING/EIG/dsvdch.f b/lapack-netlib/TESTING/EIG/dsvdch.f index 9f3129dd2..58cfb5cb6 100644 --- a/lapack-netlib/TESTING/EIG/dsvdch.f +++ b/lapack-netlib/TESTING/EIG/dsvdch.f @@ -90,17 +90,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSVDCH( N, S, E, SVD, TOL, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/TESTING/EIG/dsvdct.f b/lapack-netlib/TESTING/EIG/dsvdct.f index ddb1ebf68..6f87c5712 100644 --- a/lapack-netlib/TESTING/EIG/dsvdct.f +++ b/lapack-netlib/TESTING/EIG/dsvdct.f @@ -80,17 +80,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSVDCT( N, S, E, SHIFT, NUM ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, NUM diff --git a/lapack-netlib/TESTING/EIG/dsxt1.f b/lapack-netlib/TESTING/EIG/dsxt1.f index 6d482c2fe..97b323ca0 100644 --- a/lapack-netlib/TESTING/EIG/dsxt1.f +++ b/lapack-netlib/TESTING/EIG/dsxt1.f @@ -98,18 +98,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== DOUBLE PRECISION FUNCTION DSXT1( IJOB, D1, N1, D2, N2, ABSTOL, $ ULP, UNFL ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IJOB, N1, N2 diff --git a/lapack-netlib/TESTING/EIG/dsyt21.f b/lapack-netlib/TESTING/EIG/dsyt21.f index e00bd0db2..86c506902 100644 --- a/lapack-netlib/TESTING/EIG/dsyt21.f +++ b/lapack-netlib/TESTING/EIG/dsyt21.f @@ -199,18 +199,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSYT21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, $ LDV, TAU, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/dsyt22.f b/lapack-netlib/TESTING/EIG/dsyt22.f index 09e4aeb82..5a98f9095 100644 --- a/lapack-netlib/TESTING/EIG/dsyt22.f +++ b/lapack-netlib/TESTING/EIG/dsyt22.f @@ -149,18 +149,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE DSYT22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, $ V, LDV, TAU, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/ilaenv.f b/lapack-netlib/TESTING/EIG/ilaenv.f index d99f52ea9..2b6c6f091 100644 --- a/lapack-netlib/TESTING/EIG/ilaenv.f +++ b/lapack-netlib/TESTING/EIG/ilaenv.f @@ -122,8 +122,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup OTHERauxiliary * *> \par Further Details: @@ -153,10 +151,9 @@ INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, $ N4 ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*( * ) NAME, OPTS @@ -297,6 +294,9 @@ C ILAENV = 0 END IF * RETURN +* +* End of ILAENV2STAGE +* END INTEGER FUNCTION IPARMQ( ISPEC, NAME, OPTS, N, ILO, IHI, LWORK ) * diff --git a/lapack-netlib/TESTING/EIG/sbdt01.f b/lapack-netlib/TESTING/EIG/sbdt01.f index 7523e1b5b..fdc30a51e 100644 --- a/lapack-netlib/TESTING/EIG/sbdt01.f +++ b/lapack-netlib/TESTING/EIG/sbdt01.f @@ -27,13 +27,13 @@ *> \verbatim *> *> SBDT01 reconstructs a general matrix A from its bidiagonal form -*> A = Q * B * P' -*> where Q (m by min(m,n)) and P' (min(m,n) by n) are orthogonal +*> A = Q * B * P**T +*> where Q (m by min(m,n)) and P**T (min(m,n) by n) are orthogonal *> matrices and B is bidiagonal. *> *> The test ratio to test the reduction is -*> RESID = norm( A - Q * B * PT ) / ( n * norm(A) * EPS ) -*> where PT = P' and EPS is the machine precision. +*> RESID = norm(A - Q * B * P**T) / ( n * norm(A) * EPS ) +*> where EPS is the machine precision. *> \endverbatim * * Arguments: @@ -48,7 +48,7 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrices A and P'. +*> The number of columns of the matrices A and P**T. *> \endverbatim *> *> \param[in] KD @@ -77,7 +77,7 @@ *> \verbatim *> Q is REAL array, dimension (LDQ,N) *> The m by min(m,n) orthogonal matrix Q in the reduction -*> A = Q * B * P'. +*> A = Q * B * P**T. *> \endverbatim *> *> \param[in] LDQ @@ -102,8 +102,8 @@ *> \param[in] PT *> \verbatim *> PT is REAL array, dimension (LDPT,N) -*> The min(m,n) by n orthogonal matrix P' in the reduction -*> A = Q * B * P'. +*> The min(m,n) by n orthogonal matrix P**T in the reduction +*> A = Q * B * P**T. *> \endverbatim *> *> \param[in] LDPT @@ -121,7 +121,8 @@ *> \param[out] RESID *> \verbatim *> RESID is REAL -*> The test ratio: norm(A - Q * B * P') / ( n * norm(A) * EPS ) +*> The test ratio: +*> norm(A - Q * B * P**T) / ( n * norm(A) * EPS ) *> \endverbatim * * Authors: @@ -132,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KD, LDA, LDPT, LDQ, M, N @@ -183,7 +181,7 @@ RETURN END IF * -* Compute A - Q * B * P' one column at a time. +* Compute A - Q * B * P**T one column at a time. * RESID = ZERO IF( KD.NE.0 ) THEN @@ -261,7 +259,7 @@ END IF END IF * -* Compute norm(A - Q * B * P') / ( n * norm(A) * EPS ) +* Compute norm(A - Q * B * P**T) / ( n * norm(A) * EPS ) * ANORM = SLANGE( '1', M, N, A, LDA, WORK ) EPS = SLAMCH( 'Precision' ) diff --git a/lapack-netlib/TESTING/EIG/sbdt02.f b/lapack-netlib/TESTING/EIG/sbdt02.f index b31e64935..1cf8a2272 100644 --- a/lapack-netlib/TESTING/EIG/sbdt02.f +++ b/lapack-netlib/TESTING/EIG/sbdt02.f @@ -25,7 +25,8 @@ *> *> \verbatim *> -*> SBDT02 tests the change of basis C = U' * B by computing the residual +*> SBDT02 tests the change of basis C = U**H * B by computing the +*> residual *> *> RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ), *> @@ -64,7 +65,7 @@ *> \param[in] C *> \verbatim *> C is REAL array, dimension (LDC,N) -*> The m by n matrix C, assumed to contain U' * B. +*> The m by n matrix C, assumed to contain U**H * B. *> \endverbatim *> *> \param[in] LDC @@ -104,17 +105,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDC, LDU, M, N diff --git a/lapack-netlib/TESTING/EIG/sbdt03.f b/lapack-netlib/TESTING/EIG/sbdt03.f index 73e58cea7..1956325e9 100644 --- a/lapack-netlib/TESTING/EIG/sbdt03.f +++ b/lapack-netlib/TESTING/EIG/sbdt03.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/sbdt04.f b/lapack-netlib/TESTING/EIG/sbdt04.f index c41987635..a97cc28c1 100644 --- a/lapack-netlib/TESTING/EIG/sbdt04.f +++ b/lapack-netlib/TESTING/EIG/sbdt04.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE SBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/sbdt05.f b/lapack-netlib/TESTING/EIG/sbdt05.f index e3e79e91e..121c35a90 100644 --- a/lapack-netlib/TESTING/EIG/sbdt05.f +++ b/lapack-netlib/TESTING/EIG/sbdt05.f @@ -1,3 +1,5 @@ +*> \brief \b SBDT05 +* * =========== DOCUMENTATION =========== * * Online html documentation available at @@ -117,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE SBDT05( M, N, A, LDA, S, NS, U, LDU, $ VT, LDVT, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDU, LDVT, M, N, NS diff --git a/lapack-netlib/TESTING/EIG/schkbb.f b/lapack-netlib/TESTING/EIG/schkbb.f index 55f18c0af..a3d48d737 100644 --- a/lapack-netlib/TESTING/EIG/schkbb.f +++ b/lapack-netlib/TESTING/EIG/schkbb.f @@ -345,8 +345,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -358,7 +356,6 @@ * -- LAPACK test routine (input) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/schkbd.f b/lapack-netlib/TESTING/EIG/schkbd.f index 4da7798fb..ba19cddd2 100644 --- a/lapack-netlib/TESTING/EIG/schkbd.f +++ b/lapack-netlib/TESTING/EIG/schkbd.f @@ -483,8 +483,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -493,10 +491,9 @@ $ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, $ IWORK, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, diff --git a/lapack-netlib/TESTING/EIG/schkbk.f b/lapack-netlib/TESTING/EIG/schkbk.f index 37a636bc2..182401757 100644 --- a/lapack-netlib/TESTING/EIG/schkbk.f +++ b/lapack-netlib/TESTING/EIG/schkbk.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SCHKBK( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/schkbl.f b/lapack-netlib/TESTING/EIG/schkbl.f index ebce7cd83..e0634603b 100644 --- a/lapack-netlib/TESTING/EIG/schkbl.f +++ b/lapack-netlib/TESTING/EIG/schkbl.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SCHKBL( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/schkec.f b/lapack-netlib/TESTING/EIG/schkec.f index d4dff03ea..e6123e1ad 100644 --- a/lapack-netlib/TESTING/EIG/schkec.f +++ b/lapack-netlib/TESTING/EIG/schkec.f @@ -24,7 +24,7 @@ *> *> SCHKEC tests eigen- condition estimation routines *> SLALN2, SLASY2, SLANV2, SLAQTR, SLAEXC, -*> STRSYL, STREXC, STRSNA, STRSEN +*> STRSYL, STREXC, STRSNA, STRSEN, STGEXC *> *> In all cases, the routine runs through a fixed set of numerical *> examples, subjects them to various tests, and compares the test @@ -69,17 +69,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SCHKEC( THRESH, TSTERR, NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -95,9 +92,9 @@ INTEGER KLAEXC, KLALN2, KLANV2, KLAQTR, KLASY2, KTREXC, $ KTRSEN, KTRSNA, KTRSYL, LLAEXC, LLALN2, LLANV2, $ LLAQTR, LLASY2, LTREXC, LTRSYL, NLANV2, NLAQTR, - $ NLASY2, NTESTS, NTRSYL + $ NLASY2, NTESTS, NTRSYL, KTGEXC, NTGEXC, LTGEXC REAL EPS, RLAEXC, RLALN2, RLANV2, RLAQTR, RLASY2, - $ RTREXC, RTRSYL, SFMIN + $ RTREXC, RTRSYL, SFMIN, RTGEXC * .. * .. Local Arrays .. INTEGER LTRSEN( 3 ), LTRSNA( 3 ), NLAEXC( 2 ), @@ -107,7 +104,7 @@ * .. * .. External Subroutines .. EXTERNAL SERREC, SGET31, SGET32, SGET33, SGET34, SGET35, - $ SGET36, SGET37, SGET38, SGET39 + $ SGET36, SGET37, SGET38, SGET39, SGET40 * .. * .. External Functions .. REAL SLAMCH @@ -189,6 +186,12 @@ OK = .FALSE. WRITE( NOUT, FMT = 9991 )RLAQTR, LLAQTR, NLAQTR, KLAQTR END IF +* + CALL SGET40( RTGEXC, LTGEXC, NTGEXC, KTGEXC, NIN ) + IF( RTGEXC.GT.THRESH ) THEN + OK = .FALSE. + WRITE( NOUT, FMT = 9986 )RTGEXC, LTGEXC, NTGEXC, KTGEXC + END IF * NTESTS = KLALN2 + KLASY2 + KLANV2 + KLAEXC + KTRSYL + KTREXC + $ KTRSNA + KTRSEN + KLAQTR @@ -223,6 +226,8 @@ $ 'minimum (SFMIN) = ', E16.6, / ) 9987 FORMAT( ' Routines pass computational tests if test ratio is les', $ 's than', F8.2, / / ) + 9986 FORMAT( ' Error in STGEXC: RMAX =', E12.3, / ' LMAX = ', I8, ' N', + $ 'INFO=', I8, ' KNT=', I8 ) * * End of SCHKEC * diff --git a/lapack-netlib/TESTING/EIG/schkee.F b/lapack-netlib/TESTING/EIG/schkee.F index b58433959..bf04b5e5b 100644 --- a/lapack-netlib/TESTING/EIG/schkee.F +++ b/lapack-netlib/TESTING/EIG/schkee.F @@ -1033,8 +1033,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -1044,10 +1042,9 @@ use omp_lib #endif * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/EIG/schkgg.f b/lapack-netlib/TESTING/EIG/schkgg.f index 6b18a68ba..fff2a6c2e 100644 --- a/lapack-netlib/TESTING/EIG/schkgg.f +++ b/lapack-netlib/TESTING/EIG/schkgg.f @@ -500,8 +500,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -511,10 +509,9 @@ $ BETA1, ALPHR3, ALPHI3, BETA3, EVECTL, EVECTR, $ WORK, LWORK, LLWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL TSTDIF diff --git a/lapack-netlib/TESTING/EIG/schkgk.f b/lapack-netlib/TESTING/EIG/schkgk.f index 6d86a1380..d8d98ca96 100644 --- a/lapack-netlib/TESTING/EIG/schkgk.f +++ b/lapack-netlib/TESTING/EIG/schkgk.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SCHKGK( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/schkgl.f b/lapack-netlib/TESTING/EIG/schkgl.f index 51b6ff8f7..5ce99d90a 100644 --- a/lapack-netlib/TESTING/EIG/schkgl.f +++ b/lapack-netlib/TESTING/EIG/schkgl.f @@ -46,17 +46,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SCHKGL( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/schkhs.f b/lapack-netlib/TESTING/EIG/schkhs.f index fab38c2be..ab0e90138 100644 --- a/lapack-netlib/TESTING/EIG/schkhs.f +++ b/lapack-netlib/TESTING/EIG/schkhs.f @@ -401,8 +401,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -412,10 +410,9 @@ $ EVECTY, EVECTX, UU, TAU, WORK, NWORK, IWORK, $ SELECT, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK diff --git a/lapack-netlib/TESTING/EIG/schksb.f b/lapack-netlib/TESTING/EIG/schksb.f index e68a95cb5..b93e9e680 100644 --- a/lapack-netlib/TESTING/EIG/schksb.f +++ b/lapack-netlib/TESTING/EIG/schksb.f @@ -284,8 +284,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -293,10 +291,9 @@ $ THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, $ LWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, diff --git a/lapack-netlib/TESTING/EIG/schksb2stg.f b/lapack-netlib/TESTING/EIG/schksb2stg.f index 7308bb690..5de920497 100644 --- a/lapack-netlib/TESTING/EIG/schksb2stg.f +++ b/lapack-netlib/TESTING/EIG/schksb2stg.f @@ -1,4 +1,4 @@ -*> \brief \b SCHKSBSTG +*> \brief \b SCHKSB2STG * * =========== DOCUMENTATION =========== * @@ -21,6 +21,7 @@ * LOGICAL DOTYPE( * ) * INTEGER ISEED( 4 ), KK( * ), NN( * ) * REAL A( LDA, * ), RESULT( * ), SD( * ), SE( * ), +* $ D1( * ), D2( * ), D3( * ), * $ U( LDU, * ), WORK( * ) * .. * @@ -30,18 +31,18 @@ *> *> \verbatim *> -*> SCHKSBSTG tests the reduction of a symmetric band matrix to tridiagonal +*> SCHKSB2STG tests the reduction of a symmetric band matrix to tridiagonal *> form, used with the symmetric eigenvalue problem. *> *> SSBTRD factors a symmetric band matrix A as U S U' , where ' means *> transpose, S is symmetric tridiagonal, and U is orthogonal. *> SSBTRD can use either just the lower or just the upper triangle -*> of A; SCHKSBSTG checks both cases. +*> of A; SCHKSB2STG checks both cases. *> *> SSYTRD_SB2ST factors a symmetric band matrix A as U S U' , *> where ' means transpose, S is symmetric tridiagonal, and U is *> orthogonal. SSYTRD_SB2ST can use either just the lower or just -*> the upper triangle of A; SCHKSBSTG checks both cases. +*> the upper triangle of A; SCHKSB2STG checks both cases. *> *> SSTEQR factors S as Z D1 Z'. *> D1 is the matrix of eigenvalues computed when Z is not computed @@ -51,7 +52,7 @@ *> D3 is the matrix of eigenvalues computed when Z is not computed *> and from the S resulting of SSYTRD_SB2ST "L". *> -*> When SCHKSBSTG is called, a number of matrix "sizes" ("n's"), a number +*> When SCHKSB2STG is called, a number of matrix "sizes" ("n's"), a number *> of bandwidths ("k's"), and a number of matrix "types" are *> specified. For each size ("n"), each bandwidth ("k") less than or *> equal to "n", and each type of matrix, one matrix will be generated @@ -125,7 +126,7 @@ *> \verbatim *> NSIZES is INTEGER *> The number of sizes of matrices to use. If it is zero, -*> SCHKSBSTG does nothing. It must be at least zero. +*> SCHKSB2STG does nothing. It must be at least zero. *> \endverbatim *> *> \param[in] NN @@ -140,7 +141,7 @@ *> \verbatim *> NWDTHS is INTEGER *> The number of bandwidths to use. If it is zero, -*> SCHKSBSTG does nothing. It must be at least zero. +*> SCHKSB2STG does nothing. It must be at least zero. *> \endverbatim *> *> \param[in] KK @@ -153,7 +154,7 @@ *> \param[in] NTYPES *> \verbatim *> NTYPES is INTEGER -*> The number of elements in DOTYPE. If it is zero, SCHKSBSTG +*> The number of elements in DOTYPE. If it is zero, SCHKSB2STG *> does nothing. It must be at least zero. If it is MAXTYP+1 *> and NSIZES is 1, then an additional type, MAXTYP+1 is *> defined, which is to use whatever matrix is in A. This @@ -183,7 +184,7 @@ *> congruential sequence limited to small integers, and so *> should produce machine independent random numbers. The *> values of ISEED are changed on exit, and can be used in the -*> next call to SCHKSBSTG to continue the same random number +*> next call to SCHKSB2STG to continue the same random number *> sequence. *> \endverbatim *> @@ -234,6 +235,21 @@ *> computed by SSBTRD. *> \endverbatim *> +*> \param[out] D1 +*> \verbatim +*> D1 is REAL array, dimension (max(NN)) +*> \endverbatim +*> +*> \param[out] D2 +*> \verbatim +*> D2 is REAL array, dimension (max(NN)) +*> \endverbatim +*> +*> \param[out] D3 +*> \verbatim +*> D3 is REAL array, dimension (max(NN)) +*> \endverbatim +*> *> \param[out] U *> \verbatim *> U is REAL array, dimension (LDU, max(NN)) @@ -307,8 +323,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup single_eig * * ===================================================================== @@ -316,10 +330,9 @@ $ ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1, $ D2, D3, U, LDU, WORK, LWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, @@ -422,7 +435,7 @@ END IF * IF( INFO.NE.0 ) THEN - CALL XERBLA( 'SCHKSBSTG', -INFO ) + CALL XERBLA( 'SCHKSB2STG', -INFO ) RETURN END IF * @@ -743,8 +756,8 @@ * the one from above. Compare it with D1 computed * using the SSBTRD. * - CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 ) - CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 ) + CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, N ) + CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, N ) CALL SLACPY( ' ', K+1, N, A, LDA, U, LDU ) LH = MAX(1, 4*N) LW = LWORK - LH @@ -827,12 +840,12 @@ CALL SLASUM( 'SSB', NOUNIT, NERRS, NTESTT ) RETURN * - 9999 FORMAT( ' SCHKSBSTG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', + 9999 FORMAT( ' SCHKSB2STG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', $ I6, ', JTYPE=', I6, ', ISEED=(', 3( I5, ',' ), I5, ')' ) * 9998 FORMAT( / 1X, A3, $ ' -- Real Symmetric Banded Tridiagonal Reduction Routines' ) - 9997 FORMAT( ' Matrix types (see SCHKSBSTG for details): ' ) + 9997 FORMAT( ' Matrix types (see SCHKSB2STG for details): ' ) * 9996 FORMAT( / ' Special Matrices:', $ / ' 1=Zero matrix. ', @@ -863,6 +876,6 @@ 9993 FORMAT( ' N=', I5, ', K=', I4, ', seed=', 4( I4, ',' ), ' type ', $ I2, ', test(', I2, ')=', G10.3 ) * -* End of SCHKSBSTG +* End of SCHKSB2STG * END diff --git a/lapack-netlib/TESTING/EIG/schkst.f b/lapack-netlib/TESTING/EIG/schkst.f index a851bbbbf..10622d77a 100644 --- a/lapack-netlib/TESTING/EIG/schkst.f +++ b/lapack-netlib/TESTING/EIG/schkst.f @@ -581,8 +581,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -591,10 +589,9 @@ $ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, $ LWORK, IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/schkst2stg.f b/lapack-netlib/TESTING/EIG/schkst2stg.f index 83edb9dce..ac5a3fc39 100644 --- a/lapack-netlib/TESTING/EIG/schkst2stg.f +++ b/lapack-netlib/TESTING/EIG/schkst2stg.f @@ -602,8 +602,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -612,10 +610,9 @@ $ WA1, WA2, WA3, WR, U, LDU, V, VP, TAU, Z, WORK, $ LWORK, IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, @@ -1032,8 +1029,8 @@ * the one from above. Compare it with D1 computed * using the 1-stage. * - CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, 1 ) - CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, 1 ) + CALL SLASET( 'Full', N, 1, ZERO, ZERO, SD, N ) + CALL SLASET( 'Full', N, 1, ZERO, ZERO, SE, N ) CALL SLACPY( "L", N, N, A, LDA, V, LDU ) CALL SSYTRD_2STAGE( 'N', "L", N, V, LDU, SD, SE, TAU, $ WORK, LH, WORK( LH+1 ), LW, IINFO ) @@ -1058,7 +1055,6 @@ END IF END IF * -* * Do Tests 3 and 4 which are similar to 11 and 12 but with the * D1 computed using the standard 1-stage reduction as reference * @@ -1718,7 +1714,6 @@ END IF END IF * -* * Do test 28 * TEMP2 = TWO*( TWO*N-ONE )*ULP* @@ -1817,7 +1812,6 @@ RESULT( 31 ) = TEMP2 / MAX( UNFL, $ ULP*MAX( TEMP1, TEMP2 ) ) * -* * Call SSTEMR(V,V) to compute D1 and Z, do tests. * * Compute D1 and Z @@ -1919,7 +1913,6 @@ RESULT( 34 ) = ZERO END IF * -* * Call SSTEMR(V,A) to compute D1 and Z, do tests. * * Compute D1 and Z @@ -1976,7 +1969,7 @@ END IF END IF * -* Do Test 34 +* Do Test 37 * TEMP1 = ZERO TEMP2 = ZERO @@ -1995,7 +1988,6 @@ * * End of Loop -- Check for RESULT(j) > THRESH * -* * Print out tests which fail. * DO 290 JR = 1, NTEST @@ -2063,6 +2055,7 @@ $ ', test(', I2, ')=', G10.3 ) * 9988 FORMAT( / 'Test performed: see SCHKST2STG for details.', / ) +* * End of SCHKST2STG * END diff --git a/lapack-netlib/TESTING/EIG/sckcsd.f b/lapack-netlib/TESTING/EIG/sckcsd.f index be91eed51..d8158779b 100644 --- a/lapack-netlib/TESTING/EIG/sckcsd.f +++ b/lapack-netlib/TESTING/EIG/sckcsd.f @@ -175,8 +175,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -184,10 +182,9 @@ $ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, $ WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT @@ -208,11 +205,11 @@ PARAMETER ( NTESTS = 15 ) INTEGER NTYPES PARAMETER ( NTYPES = 4 ) - REAL GAPDIGIT, ONE, ORTH, PIOVER2, TEN, ZERO + REAL GAPDIGIT, ONE, ORTH, TEN, ZERO PARAMETER ( GAPDIGIT = 10.0E0, ONE = 1.0E0, - $ ORTH = 1.0E-4, - $ PIOVER2 = 1.57079632679489662E0, - $ TEN = 10.0E0, ZERO = 0.0E0 ) + $ ORTH = 1.0E-4, TEN = 10.0E0, ZERO = 0.0E0 ) + REAL PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210E0 ) * .. * .. Local Scalars .. LOGICAL FIRSTT diff --git a/lapack-netlib/TESTING/EIG/sckglm.f b/lapack-netlib/TESTING/EIG/sckglm.f index 0ac104615..167cb61de 100644 --- a/lapack-netlib/TESTING/EIG/sckglm.f +++ b/lapack-netlib/TESTING/EIG/sckglm.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -167,10 +165,9 @@ $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT diff --git a/lapack-netlib/TESTING/EIG/sckgqr.f b/lapack-netlib/TESTING/EIG/sckgqr.f index 73656315b..919879504 100644 --- a/lapack-netlib/TESTING/EIG/sckgqr.f +++ b/lapack-netlib/TESTING/EIG/sckgqr.f @@ -201,8 +201,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -210,10 +208,9 @@ $ THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, $ BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP diff --git a/lapack-netlib/TESTING/EIG/sckgsv.f b/lapack-netlib/TESTING/EIG/sckgsv.f index 6e2b76e7b..20838b5ba 100644 --- a/lapack-netlib/TESTING/EIG/sckgsv.f +++ b/lapack-netlib/TESTING/EIG/sckgsv.f @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -198,10 +196,9 @@ $ NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, $ IWORK, WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT diff --git a/lapack-netlib/TESTING/EIG/scklse.f b/lapack-netlib/TESTING/EIG/scklse.f index daf1145d5..123217688 100644 --- a/lapack-netlib/TESTING/EIG/scklse.f +++ b/lapack-netlib/TESTING/EIG/scklse.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -167,10 +165,9 @@ $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT diff --git a/lapack-netlib/TESTING/EIG/scsdts.f b/lapack-netlib/TESTING/EIG/scsdts.f index 8ddf119c1..1debe8341 100644 --- a/lapack-netlib/TESTING/EIG/scsdts.f +++ b/lapack-netlib/TESTING/EIG/scsdts.f @@ -220,8 +220,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -229,10 +227,9 @@ $ LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q @@ -248,11 +245,12 @@ * ===================================================================== * * .. Parameters .. - REAL PIOVER2, REALONE, REALZERO - PARAMETER ( PIOVER2 = 1.57079632679489662E0, - $ REALONE = 1.0E0, REALZERO = 0.0E0 ) + REAL REALONE, REALZERO + PARAMETER ( REALONE = 1.0E0, REALZERO = 0.0E0 ) REAL ZERO, ONE PARAMETER ( ZERO = 0.0E0, ONE = 1.0E0 ) + REAL PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210E0 ) * .. * .. Local Scalars .. INTEGER I, INFO, R diff --git a/lapack-netlib/TESTING/EIG/sdrges.f b/lapack-netlib/TESTING/EIG/sdrges.f index 4e98bfff0..73d23125c 100644 --- a/lapack-netlib/TESTING/EIG/sdrges.f +++ b/lapack-netlib/TESTING/EIG/sdrges.f @@ -393,8 +393,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -403,10 +401,9 @@ $ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES diff --git a/lapack-netlib/TESTING/EIG/sdrges3.f b/lapack-netlib/TESTING/EIG/sdrges3.f index 90351f6df..9c8272578 100644 --- a/lapack-netlib/TESTING/EIG/sdrges3.f +++ b/lapack-netlib/TESTING/EIG/sdrges3.f @@ -393,8 +393,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date February 2015 -* *> \ingroup single_eig * * ===================================================================== @@ -403,10 +401,9 @@ $ ALPHAI, BETA, WORK, LWORK, RESULT, BWORK, $ INFO ) * -* -- LAPACK test routine (version 3.6.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2015 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES @@ -749,6 +746,14 @@ RSUB = 5 END IF * +* Call XLAENV to set the parameters used in SLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Call SGGES3 to compute H, T, Q, Z, alpha, and beta. * CALL SLACPY( 'Full', N, N, A, LDA, S, LDA ) diff --git a/lapack-netlib/TESTING/EIG/sdrgev.f b/lapack-netlib/TESTING/EIG/sdrgev.f index d3f8a06ac..5254a9723 100644 --- a/lapack-netlib/TESTING/EIG/sdrgev.f +++ b/lapack-netlib/TESTING/EIG/sdrgev.f @@ -398,8 +398,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -408,10 +406,9 @@ $ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, $ WORK, LWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/sdrgev3.f b/lapack-netlib/TESTING/EIG/sdrgev3.f index 9492d43bf..1b1d82292 100644 --- a/lapack-netlib/TESTING/EIG/sdrgev3.f +++ b/lapack-netlib/TESTING/EIG/sdrgev3.f @@ -398,8 +398,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date February 2015 -* *> \ingroup single_eig * * ===================================================================== @@ -408,10 +406,9 @@ $ ALPHAR, ALPHAI, BETA, ALPHR1, ALPHI1, BETA1, $ WORK, LWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.6.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2015 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, @@ -734,6 +731,14 @@ RESULT( I ) = -ONE 110 CONTINUE * +* Call XLAENV to set the parameters used in SLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Call SGGEV3 to compute eigenvalues and eigenvectors. * CALL SLACPY( ' ', N, N, A, LDA, S, LDA ) diff --git a/lapack-netlib/TESTING/EIG/sdrgsx.f b/lapack-netlib/TESTING/EIG/sdrgsx.f index 58e63e793..ce0d59214 100644 --- a/lapack-netlib/TESTING/EIG/sdrgsx.f +++ b/lapack-netlib/TESTING/EIG/sdrgsx.f @@ -350,8 +350,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -359,10 +357,9 @@ $ AI, BI, Z, Q, ALPHAR, ALPHAI, BETA, C, LDC, S, $ WORK, LWORK, IWORK, LIWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, diff --git a/lapack-netlib/TESTING/EIG/sdrgvx.f b/lapack-netlib/TESTING/EIG/sdrgvx.f index b6cc91dc4..f6da720ad 100644 --- a/lapack-netlib/TESTING/EIG/sdrgvx.f +++ b/lapack-netlib/TESTING/EIG/sdrgvx.f @@ -291,8 +291,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -301,10 +299,9 @@ $ RSCALE, S, STRU, DIF, DIFTRU, WORK, LWORK, $ IWORK, LIWORK, RESULT, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, diff --git a/lapack-netlib/TESTING/EIG/sdrvbd.f b/lapack-netlib/TESTING/EIG/sdrvbd.f index 101c8ba09..de6d5a412 100644 --- a/lapack-netlib/TESTING/EIG/sdrvbd.f +++ b/lapack-netlib/TESTING/EIG/sdrvbd.f @@ -357,8 +357,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -366,10 +364,9 @@ $ A, LDA, U, LDU, VT, LDVT, ASAV, USAV, VTSAV, S, $ SSAV, E, WORK, LWORK, IWORK, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/EIG/sdrves.f b/lapack-netlib/TESTING/EIG/sdrves.f index 64cd86118..4e3dc0a6d 100644 --- a/lapack-netlib/TESTING/EIG/sdrves.f +++ b/lapack-netlib/TESTING/EIG/sdrves.f @@ -379,8 +379,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -388,10 +386,9 @@ $ NOUNIT, A, LDA, H, HT, WR, WI, WRT, WIT, VS, $ LDVS, RESULT, WORK, NWORK, IWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK diff --git a/lapack-netlib/TESTING/EIG/sdrvev.f b/lapack-netlib/TESTING/EIG/sdrvev.f index 4888bc8bf..6d5e34bf6 100644 --- a/lapack-netlib/TESTING/EIG/sdrvev.f +++ b/lapack-netlib/TESTING/EIG/sdrvev.f @@ -396,8 +396,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -406,10 +404,9 @@ $ VR, LDVR, LRE, LDLRE, RESULT, WORK, NWORK, $ IWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/sdrvsg.f b/lapack-netlib/TESTING/EIG/sdrvsg.f index c6eeec6d9..4a57223c8 100644 --- a/lapack-netlib/TESTING/EIG/sdrvsg.f +++ b/lapack-netlib/TESTING/EIG/sdrvsg.f @@ -346,8 +346,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -355,10 +353,9 @@ $ NOUNIT, A, LDA, B, LDB, D, Z, LDZ, AB, BB, AP, $ BP, WORK, NWORK, IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/sdrvsg2stg.f b/lapack-netlib/TESTING/EIG/sdrvsg2stg.f index 66ba8c4dd..ebd169977 100644 --- a/lapack-netlib/TESTING/EIG/sdrvsg2stg.f +++ b/lapack-netlib/TESTING/EIG/sdrvsg2stg.f @@ -352,8 +352,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_eig * * ===================================================================== @@ -364,10 +362,9 @@ * IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDZ, LIWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/sdrvst.f b/lapack-netlib/TESTING/EIG/sdrvst.f index 00e14f396..ea0cf66f9 100644 --- a/lapack-netlib/TESTING/EIG/sdrvst.f +++ b/lapack-netlib/TESTING/EIG/sdrvst.f @@ -443,8 +443,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -453,10 +451,9 @@ $ WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK, $ IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/sdrvst2stg.f b/lapack-netlib/TESTING/EIG/sdrvst2stg.f index 32a3de05f..a13a58b48 100644 --- a/lapack-netlib/TESTING/EIG/sdrvst2stg.f +++ b/lapack-netlib/TESTING/EIG/sdrvst2stg.f @@ -443,8 +443,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -453,10 +451,9 @@ $ WA2, WA3, U, LDU, V, TAU, Z, WORK, LWORK, $ IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/sdrvsx.f b/lapack-netlib/TESTING/EIG/sdrvsx.f index 25ca8b1c5..b6f772f5b 100644 --- a/lapack-netlib/TESTING/EIG/sdrvsx.f +++ b/lapack-netlib/TESTING/EIG/sdrvsx.f @@ -444,8 +444,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -454,10 +452,9 @@ $ WIT, WRTMP, WITMP, VS, LDVS, VS1, RESULT, WORK, $ LWORK, IWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/sdrvvx.f b/lapack-netlib/TESTING/EIG/sdrvvx.f index 1c574e736..70e59bcea 100644 --- a/lapack-netlib/TESTING/EIG/sdrvvx.f +++ b/lapack-netlib/TESTING/EIG/sdrvvx.f @@ -509,8 +509,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -520,10 +518,9 @@ $ RCDVIN, RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, $ RESULT, WORK, NWORK, IWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/serrbd.f b/lapack-netlib/TESTING/EIG/serrbd.f index 96f51dfe8..f8962596c 100644 --- a/lapack-netlib/TESTING/EIG/serrbd.f +++ b/lapack-netlib/TESTING/EIG/serrbd.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SERRBD( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/serrec.f b/lapack-netlib/TESTING/EIG/serrec.f index 6414a8200..249f0e642 100644 --- a/lapack-netlib/TESTING/EIG/serrec.f +++ b/lapack-netlib/TESTING/EIG/serrec.f @@ -49,17 +49,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SERREC( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/serred.f b/lapack-netlib/TESTING/EIG/serred.f index 7d3772e84..b52aa1624 100644 --- a/lapack-netlib/TESTING/EIG/serred.f +++ b/lapack-netlib/TESTING/EIG/serred.f @@ -63,17 +63,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SERRED( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/serrgg.f b/lapack-netlib/TESTING/EIG/serrgg.f index 5025103eb..7824f8618 100644 --- a/lapack-netlib/TESTING/EIG/serrgg.f +++ b/lapack-netlib/TESTING/EIG/serrgg.f @@ -50,17 +50,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SERRGG( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -99,7 +96,7 @@ $ SGGHRD, SGGLSE, SGGQRF, SGGRQF, $ SHGEQZ, SORCSD, STGEVC, STGEXC, STGSEN, STGSJA, $ STGSNA, STGSYL, SGGES3, SGGEV3, SGGHD3, - $ SGGSVD3, SGGSVP3 + $ SGGSVD3, SGGSVP3, XLAENV * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -137,6 +134,14 @@ NT = 0 LWORK = 1 * +* Call XLAENV to set the parameters used in CLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Test error exits for the GG path. * IF( LSAMEN( 2, C2, 'GG' ) ) THEN diff --git a/lapack-netlib/TESTING/EIG/serrhs.f b/lapack-netlib/TESTING/EIG/serrhs.f index b78267cc8..8f0ff98a1 100644 --- a/lapack-netlib/TESTING/EIG/serrhs.f +++ b/lapack-netlib/TESTING/EIG/serrhs.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SERRHS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/serrst.f b/lapack-netlib/TESTING/EIG/serrst.f index 7e5383866..afb6d4faf 100644 --- a/lapack-netlib/TESTING/EIG/serrst.f +++ b/lapack-netlib/TESTING/EIG/serrst.f @@ -54,17 +54,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SERRST( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/sget02.f b/lapack-netlib/TESTING/EIG/sget02.f index a47b901d3..5b205ff87 100644 --- a/lapack-netlib/TESTING/EIG/sget02.f +++ b/lapack-netlib/TESTING/EIG/sget02.f @@ -28,9 +28,11 @@ *> \verbatim *> *> SGET02 computes the residual for a solution of a system of linear -*> equations A*x = b or A'*x = b: -*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ), -*> where EPS is the machine epsilon. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A or A**T, depending on TRANS, and EPS is the +*> machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -40,9 +42,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A'*x = b, where A' is the transpose of A -*> = 'C': A'*x = b, where A' is the transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -114,7 +116,7 @@ *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -125,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS @@ -189,19 +188,23 @@ * Exit with RESID = 1/EPS if ANORM = 0. * EPS = SLAMCH( 'Epsilon' ) + IF( LSAME( TRANS, 'N' ) ) THEN ANORM = SLANGE( '1', M, N, A, LDA, RWORK ) + ELSE + ANORM = SLANGE( 'I', M, N, A, LDA, RWORK ) + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN END IF * -* Compute B - A*X (or B - A'*X ) and store in B. +* Compute B - op(A)*X and store in B. * CALL SGEMM( TRANS, 'No transpose', N1, NRHS, N2, -ONE, A, LDA, X, $ LDX, ONE, B, LDB ) * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) . +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) . * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/EIG/sget10.f b/lapack-netlib/TESTING/EIG/sget10.f index 8c489d58a..cbec05bf6 100644 --- a/lapack-netlib/TESTING/EIG/sget10.f +++ b/lapack-netlib/TESTING/EIG/sget10.f @@ -86,17 +86,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET10( M, N, A, LDA, B, LDB, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, M, N diff --git a/lapack-netlib/TESTING/EIG/sget22.f b/lapack-netlib/TESTING/EIG/sget22.f index 1fcd2b095..ddfc2592f 100644 --- a/lapack-netlib/TESTING/EIG/sget22.f +++ b/lapack-netlib/TESTING/EIG/sget22.f @@ -149,6 +149,7 @@ *> RESULT is REAL array, dimension (2) *> RESULT(1) = | A E - E W | / ( |A| |E| ulp ) *> RESULT(2) = max | m-norm(E(j)) - 1 | / ( n ulp ) +*> j *> \endverbatim * * Authors: @@ -159,18 +160,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, WR, $ WI, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSA, TRANSE, TRANSW @@ -366,7 +364,7 @@ RESULT( 1 ) = ( ERRNRM / ANORM ) / ULP ELSE IF( ANORM.LT.ONE ) THEN - RESULT( 1 ) = ( MIN( ERRNRM, ANORM ) / ANORM ) / ULP + RESULT( 1 ) = ONE / ULP ELSE RESULT( 1 ) = MIN( ERRNRM / ANORM, ONE ) / ULP END IF diff --git a/lapack-netlib/TESTING/EIG/sget23.f b/lapack-netlib/TESTING/EIG/sget23.f index ac936bc89..827578181 100644 --- a/lapack-netlib/TESTING/EIG/sget23.f +++ b/lapack-netlib/TESTING/EIG/sget23.f @@ -367,8 +367,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -378,10 +376,9 @@ $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, $ WORK, LWORK, IWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL COMP diff --git a/lapack-netlib/TESTING/EIG/sget24.f b/lapack-netlib/TESTING/EIG/sget24.f index e0b75ff0f..fef876255 100644 --- a/lapack-netlib/TESTING/EIG/sget24.f +++ b/lapack-netlib/TESTING/EIG/sget24.f @@ -333,8 +333,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -343,10 +341,9 @@ $ LDVS, VS1, RCDEIN, RCDVIN, NSLCT, ISLCT, $ RESULT, WORK, LWORK, IWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL COMP diff --git a/lapack-netlib/TESTING/EIG/sget31.f b/lapack-netlib/TESTING/EIG/sget31.f index 00b05ad77..e6214007b 100644 --- a/lapack-netlib/TESTING/EIG/sget31.f +++ b/lapack-netlib/TESTING/EIG/sget31.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET31( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX diff --git a/lapack-netlib/TESTING/EIG/sget32.f b/lapack-netlib/TESTING/EIG/sget32.f index 60547e034..7a0efd082 100644 --- a/lapack-netlib/TESTING/EIG/sget32.f +++ b/lapack-netlib/TESTING/EIG/sget32.f @@ -75,17 +75,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET32( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NINFO diff --git a/lapack-netlib/TESTING/EIG/sget33.f b/lapack-netlib/TESTING/EIG/sget33.f index c1859f4e4..48cee8d44 100644 --- a/lapack-netlib/TESTING/EIG/sget33.f +++ b/lapack-netlib/TESTING/EIG/sget33.f @@ -69,17 +69,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET33( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NINFO diff --git a/lapack-netlib/TESTING/EIG/sget34.f b/lapack-netlib/TESTING/EIG/sget34.f index 87c7ac99a..27f705ca3 100644 --- a/lapack-netlib/TESTING/EIG/sget34.f +++ b/lapack-netlib/TESTING/EIG/sget34.f @@ -75,17 +75,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET34( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX diff --git a/lapack-netlib/TESTING/EIG/sget35.f b/lapack-netlib/TESTING/EIG/sget35.f index 919a6469f..46c8b699f 100644 --- a/lapack-netlib/TESTING/EIG/sget35.f +++ b/lapack-netlib/TESTING/EIG/sget35.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET35( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NINFO diff --git a/lapack-netlib/TESTING/EIG/sget36.f b/lapack-netlib/TESTING/EIG/sget36.f index bf419869c..47eae95e4 100644 --- a/lapack-netlib/TESTING/EIG/sget36.f +++ b/lapack-netlib/TESTING/EIG/sget36.f @@ -81,17 +81,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET36( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NIN diff --git a/lapack-netlib/TESTING/EIG/sget37.f b/lapack-netlib/TESTING/EIG/sget37.f index 7e63f9bdf..eb10424bf 100644 --- a/lapack-netlib/TESTING/EIG/sget37.f +++ b/lapack-netlib/TESTING/EIG/sget37.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET37( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, NIN diff --git a/lapack-netlib/TESTING/EIG/sget38.f b/lapack-netlib/TESTING/EIG/sget38.f index ca3475bf9..636dfb70e 100644 --- a/lapack-netlib/TESTING/EIG/sget38.f +++ b/lapack-netlib/TESTING/EIG/sget38.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET38( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, NIN diff --git a/lapack-netlib/TESTING/EIG/sget39.f b/lapack-netlib/TESTING/EIG/sget39.f index f6c0f7e7c..dbcabf9d7 100644 --- a/lapack-netlib/TESTING/EIG/sget39.f +++ b/lapack-netlib/TESTING/EIG/sget39.f @@ -96,17 +96,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET39( RMAX, LMAX, NINFO, KNT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NINFO diff --git a/lapack-netlib/TESTING/EIG/sget40.f b/lapack-netlib/TESTING/EIG/sget40.f new file mode 100644 index 000000000..1fd3d400d --- /dev/null +++ b/lapack-netlib/TESTING/EIG/sget40.f @@ -0,0 +1,223 @@ +*> \brief \b SGET40 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +* Definition: +* =========== +* +* SUBROUTINE SGET40( RMAX, LMAX, NINFO, KNT, NIN ) +* +* .. Scalar Arguments .. +* INTEGER KNT, LMAX, NIN +* REAL RMAX +* .. +* .. Array Arguments .. +* INTEGER NINFO( 3 ) +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> SGET40 tests STGEXC, a routine for swapping adjacent blocks (either +*> 1 by 1 or 2 by 2) on the diagonal of a pencil in real generalized Schur form. +*> Thus, STGEXC computes an orthogonal matrices Q and Z such that +*> +*> Q' * ( [ A B ], [ D E ] ) * Z = ( [ C1 B1 ], [ F1 E1 ] ) +*> ( [ 0 C ] [ F ] ) ( [ 0 A1 ] [ D1] ) +*> +*> where (C1,F1) is similar to (C,F) and (A1,D1) is similar to (A,D). +*> Both (A,D) and (C,F) are assumed to be in standard form +*> and (A1,D1) and (C1,F1) are returned with the +*> same properties. +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[out] RMAX +*> \verbatim +*> RMAX is REAL +*> Value of the largest test ratio. +*> \endverbatim +*> +*> \param[out] LMAX +*> \verbatim +*> LMAX is INTEGER +*> Example number where largest test ratio achieved. +*> \endverbatim +*> +*> \param[out] NINFO +*> \verbatim +*> NINFO is INTEGER +*> Number of examples where INFO is nonzero. +*> \endverbatim +*> +*> \param[out] KNT +*> \verbatim +*> KNT is INTEGER +*> Total number of examples tested. +*> \endverbatim +*> +*> \param[out] NIN +*> \verbatim +*> NINFO is INTEGER +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. +* +*> \ingroup double_eig +* +* ===================================================================== + SUBROUTINE SGET40( RMAX, LMAX, NINFO, KNT, NIN ) +* +* -- LAPACK test routine -- +* -- LAPACK is a software package provided by Univ. of Tennessee, -- +* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- +* +* .. Scalar Arguments .. + INTEGER KNT, LMAX, NIN + REAL RMAX +* .. +* .. Array Arguments .. + INTEGER NINFO( 3 ) +* .. +* +* ===================================================================== +* +* .. Parameters .. + REAL ZERO, ONE + PARAMETER ( ZERO = 0.0, ONE = 1.0 ) + INTEGER LDT, LWORK + PARAMETER ( LDT = 10, LWORK = 100 + 4*LDT + 16 ) +* .. +* .. Local Scalars .. + INTEGER I, IFST, IFST1, IFST2, IFSTSV, ILST, ILST1, + $ ILST2, ILSTSV, INFO1, INFO2, J, LOC, N + REAL EPS, RES +* .. +* .. Local Arrays .. + REAL Q( LDT, LDT ), Z( LDT, LDT ), RESULT( 4 ), + $ T( LDT, LDT ), T1( LDT, LDT ), T2( LDT, LDT ), + $ S( LDT, LDT ), S1( LDT, LDT ), S2( LDT, LDT ), + $ TMP( LDT, LDT ), WORK( LWORK ) +* .. +* .. External Functions .. + REAL SLAMCH + EXTERNAL SLAMCH +* .. +* .. External Subroutines .. + EXTERNAL SGET51, SLACPY, SLASET, STGEXC +* .. +* .. Intrinsic Functions .. + INTRINSIC ABS, SIGN +* .. +* .. Executable Statements .. +* + EPS = SLAMCH( 'P' ) + RMAX = ZERO + LMAX = 0 + KNT = 0 + NINFO( 1 ) = 0 + NINFO( 2 ) = 0 + NINFO( 3 ) = 0 +* +* Read input data until N=0 +* + 10 CONTINUE + READ( NIN, FMT = * )N, IFST, ILST + IF( N.EQ.0 ) + $ RETURN + KNT = KNT + 1 + DO 20 I = 1, N + READ( NIN, FMT = * )( TMP( I, J ), J = 1, N ) + 20 CONTINUE + CALL SLACPY( 'F', N, N, TMP, LDT, T, LDT ) + CALL SLACPY( 'F', N, N, TMP, LDT, T1, LDT ) + CALL SLACPY( 'F', N, N, TMP, LDT, T2, LDT ) + DO 25 I = 1, N + READ( NIN, FMT = * )( TMP( I, J ), J = 1, N ) + 25 CONTINUE + CALL SLACPY( 'F', N, N, TMP, LDT, S, LDT ) + CALL SLACPY( 'F', N, N, TMP, LDT, S1, LDT ) + CALL SLACPY( 'F', N, N, TMP, LDT, S2, LDT ) + IFSTSV = IFST + ILSTSV = ILST + IFST1 = IFST + ILST1 = ILST + IFST2 = IFST + ILST2 = ILST + RES = ZERO +* +* Test without accumulating Q and Z +* + CALL SLASET( 'Full', N, N, ZERO, ONE, Q, LDT ) + CALL SLASET( 'Full', N, N, ZERO, ONE, Z, LDT ) + CALL STGEXC( .FALSE., .FALSE., N, T1, LDT, S1, LDT, Q, LDT, + $ Z, LDT, IFST1, ILST1, WORK, LWORK, INFO1 ) + DO 40 I = 1, N + DO 30 J = 1, N + IF( I.EQ.J .AND. Q( I, J ).NE.ONE ) + $ RES = RES + ONE / EPS + IF( I.NE.J .AND. Q( I, J ).NE.ZERO ) + $ RES = RES + ONE / EPS + IF( I.EQ.J .AND. Z( I, J ).NE.ONE ) + $ RES = RES + ONE / EPS + IF( I.NE.J .AND. Z( I, J ).NE.ZERO ) + $ RES = RES + ONE / EPS + 30 CONTINUE + 40 CONTINUE +* +* Test with accumulating Q +* + CALL SLASET( 'Full', N, N, ZERO, ONE, Q, LDT ) + CALL SLASET( 'Full', N, N, ZERO, ONE, Z, LDT ) + CALL STGEXC( .TRUE., .TRUE., N, T2, LDT, S2, LDT, Q, LDT, + $ Z, LDT, IFST2, ILST2, WORK, LWORK, INFO2 ) +* +* Compare T1 with T2 and S1 with S2 +* + DO 60 I = 1, N + DO 50 J = 1, N + IF( T1( I, J ).NE.T2( I, J ) ) + $ RES = RES + ONE / EPS + IF( S1( I, J ).NE.S2( I, J ) ) + $ RES = RES + ONE / EPS + 50 CONTINUE + 60 CONTINUE + IF( IFST1.NE.IFST2 ) + $ RES = RES + ONE / EPS + IF( ILST1.NE.ILST2 ) + $ RES = RES + ONE / EPS + IF( INFO1.NE.INFO2 ) + $ RES = RES + ONE / EPS +* +* Test orthogonality of Q and Z and backward error on T2 and S2 +* + CALL SGET51( 1, N, T, LDT, T2, LDT, Q, LDT, Z, LDT, WORK, + $ RESULT( 1 ) ) + CALL SGET51( 1, N, S, LDT, S2, LDT, Q, LDT, Z, LDT, WORK, + $ RESULT( 2 ) ) + CALL SGET51( 3, N, T, LDT, T2, LDT, Q, LDT, Q, LDT, WORK, + $ RESULT( 3 ) ) + CALL SGET51( 3, N, T, LDT, T2, LDT, Z, LDT, Z, LDT, WORK, + $ RESULT( 4 ) ) + RES = RES + RESULT( 1 ) + RESULT( 2 ) + RESULT( 3 ) + RESULT( 4 ) +* +* Read next matrix pair +* + GO TO 10 +* +* End of SGET40 +* + END diff --git a/lapack-netlib/TESTING/EIG/sget51.f b/lapack-netlib/TESTING/EIG/sget51.f index 750cc7ce1..2067b8c3d 100644 --- a/lapack-netlib/TESTING/EIG/sget51.f +++ b/lapack-netlib/TESTING/EIG/sget51.f @@ -141,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, $ RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ITYPE, LDA, LDB, LDU, LDV, N diff --git a/lapack-netlib/TESTING/EIG/sget52.f b/lapack-netlib/TESTING/EIG/sget52.f index 135ab1903..9f5412602 100644 --- a/lapack-netlib/TESTING/EIG/sget52.f +++ b/lapack-netlib/TESTING/EIG/sget52.f @@ -191,18 +191,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHAR, $ ALPHAI, BETA, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LEFT @@ -266,7 +263,7 @@ BETMAX = SAFMAX / MAX( ONE, ANORM ) * * Compute error matrix. -* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B| |b(i) A| ) +* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B|, |b(i) A| ) * ILCPLX = .FALSE. DO 10 JVEC = 1, N @@ -360,14 +357,14 @@ DO 20 J = 1, N TEMP1 = MAX( TEMP1, ABS( E( J, JVEC ) ) ) 20 CONTINUE - ENRMER = MAX( ENRMER, TEMP1-ONE ) + ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) ) ELSE ILCPLX = .TRUE. DO 30 J = 1, N TEMP1 = MAX( TEMP1, ABS( E( J, JVEC ) )+ $ ABS( E( J, JVEC+1 ) ) ) 30 CONTINUE - ENRMER = MAX( ENRMER, TEMP1-ONE ) + ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) ) END IF END IF 40 CONTINUE diff --git a/lapack-netlib/TESTING/EIG/sget53.f b/lapack-netlib/TESTING/EIG/sget53.f index 0811db75f..11decbe82 100644 --- a/lapack-netlib/TESTING/EIG/sget53.f +++ b/lapack-netlib/TESTING/EIG/sget53.f @@ -119,17 +119,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET53( A, LDA, B, LDB, SCALE, WR, WI, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB diff --git a/lapack-netlib/TESTING/EIG/sget54.f b/lapack-netlib/TESTING/EIG/sget54.f index adc5886ba..8d73a2913 100644 --- a/lapack-netlib/TESTING/EIG/sget54.f +++ b/lapack-netlib/TESTING/EIG/sget54.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, $ LDV, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N diff --git a/lapack-netlib/TESTING/EIG/sglmts.f b/lapack-netlib/TESTING/EIG/sglmts.f index 1ae58da70..0859b3e0d 100644 --- a/lapack-netlib/TESTING/EIG/sglmts.f +++ b/lapack-netlib/TESTING/EIG/sglmts.f @@ -141,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, $ X, U, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, P, N diff --git a/lapack-netlib/TESTING/EIG/sgqrts.f b/lapack-netlib/TESTING/EIG/sgqrts.f index 2ed6dfc47..eacdc858f 100644 --- a/lapack-netlib/TESTING/EIG/sgqrts.f +++ b/lapack-netlib/TESTING/EIG/sgqrts.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, P, N diff --git a/lapack-netlib/TESTING/EIG/sgrqts.f b/lapack-netlib/TESTING/EIG/sgrqts.f index 0e26783c6..005adcacc 100644 --- a/lapack-netlib/TESTING/EIG/sgrqts.f +++ b/lapack-netlib/TESTING/EIG/sgrqts.f @@ -169,18 +169,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, P, N diff --git a/lapack-netlib/TESTING/EIG/sgsvts3.f b/lapack-netlib/TESTING/EIG/sgsvts3.f index 50ccd378b..b9b87be8c 100644 --- a/lapack-netlib/TESTING/EIG/sgsvts3.f +++ b/lapack-netlib/TESTING/EIG/sgsvts3.f @@ -201,8 +201,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup single_eig * * ===================================================================== @@ -210,10 +208,9 @@ $ LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, $ LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/shst01.f b/lapack-netlib/TESTING/EIG/shst01.f index 50fd36185..97b14c211 100644 --- a/lapack-netlib/TESTING/EIG/shst01.f +++ b/lapack-netlib/TESTING/EIG/shst01.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, $ LWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N diff --git a/lapack-netlib/TESTING/EIG/slafts.f b/lapack-netlib/TESTING/EIG/slafts.f index 008c118ad..7bbb389d3 100644 --- a/lapack-netlib/TESTING/EIG/slafts.f +++ b/lapack-netlib/TESTING/EIG/slafts.f @@ -91,18 +91,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SLAFTS( TYPE, M, N, IMAT, NTESTS, RESULT, ISEED, $ THRESH, IOUNIT, IE ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 TYPE diff --git a/lapack-netlib/TESTING/EIG/slahd2.f b/lapack-netlib/TESTING/EIG/slahd2.f index 440f95891..401c247b7 100644 --- a/lapack-netlib/TESTING/EIG/slahd2.f +++ b/lapack-netlib/TESTING/EIG/slahd2.f @@ -58,17 +58,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SLAHD2( IOUNIT, PATH ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/slarfy.f b/lapack-netlib/TESTING/EIG/slarfy.f index 340c54413..c2a819fe1 100644 --- a/lapack-netlib/TESTING/EIG/slarfy.f +++ b/lapack-netlib/TESTING/EIG/slarfy.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/slarhs.f b/lapack-netlib/TESTING/EIG/slarhs.f index 1e73842e3..01b1d2879 100644 --- a/lapack-netlib/TESTING/EIG/slarhs.f +++ b/lapack-netlib/TESTING/EIG/slarhs.f @@ -30,7 +30,7 @@ *> SLARHS chooses a set of NRHS random solution vectors and sets *> up the right hand sides for the linear system *> op( A ) * X = B, -*> where op( A ) may be A or A' (transpose of A). +*> where op(A) = A or A**T, depending on TRANS. *> \endverbatim * * Arguments: @@ -79,10 +79,11 @@ *> \param[in] TRANS *> \verbatim *> TRANS is CHARACTER*1 -*> Specifies the operation applied to the matrix A. -*> = 'N': System is A * x = b -*> = 'T': System is A'* x = b -*> = 'C': System is A'* x = b +*> Used only if A is nonsymmetric; specifies the operation +*> applied to the matrix A. +*> = 'N': B := A * X (No transpose) +*> = 'T': B := A**T * X (Transpose) +*> = 'C': B := A**H * X (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -196,18 +197,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS, UPLO, XTYPE diff --git a/lapack-netlib/TESTING/EIG/slasum.f b/lapack-netlib/TESTING/EIG/slasum.f index 58fd58081..fa1e43388 100644 --- a/lapack-netlib/TESTING/EIG/slasum.f +++ b/lapack-netlib/TESTING/EIG/slasum.f @@ -33,17 +33,15 @@ * \author Univ. of Colorado Denver * \author NAG Ltd. * -* \date December 2016 -* + * \ingroup single_eig * * ===================================================================== SUBROUTINE SLASUM( TYPE, IOUNIT, IE, NRUN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 TYPE diff --git a/lapack-netlib/TESTING/EIG/slatb9.f b/lapack-netlib/TESTING/EIG/slatb9.f index 49fb16288..f8638a46a 100644 --- a/lapack-netlib/TESTING/EIG/slatb9.f +++ b/lapack-netlib/TESTING/EIG/slatb9.f @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== @@ -170,10 +168,9 @@ $ KLB, KUB, ANORM, BNORM, MODEA, MODEB, $ CNDNMA, CNDNMB, DISTA, DISTB ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DISTA, DISTB, TYPE diff --git a/lapack-netlib/TESTING/EIG/slatm4.f b/lapack-netlib/TESTING/EIG/slatm4.f index 3607c04ba..3c40de70f 100644 --- a/lapack-netlib/TESTING/EIG/slatm4.f +++ b/lapack-netlib/TESTING/EIG/slatm4.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SLATM4( ITYPE, N, NZ1, NZ2, ISIGN, AMAGN, RCOND, $ TRIANG, IDIST, ISEED, A, LDA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, ISIGN, ITYPE, LDA, N, NZ1, NZ2 diff --git a/lapack-netlib/TESTING/EIG/slctes.f b/lapack-netlib/TESTING/EIG/slctes.f index 8753d43a2..d5dec3fef 100644 --- a/lapack-netlib/TESTING/EIG/slctes.f +++ b/lapack-netlib/TESTING/EIG/slctes.f @@ -61,17 +61,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== LOGICAL FUNCTION SLCTES( ZR, ZI, D ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. REAL D, ZI, ZR diff --git a/lapack-netlib/TESTING/EIG/slctsx.f b/lapack-netlib/TESTING/EIG/slctsx.f index 084d2a8bb..d650baed9 100644 --- a/lapack-netlib/TESTING/EIG/slctsx.f +++ b/lapack-netlib/TESTING/EIG/slctsx.f @@ -58,17 +58,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== LOGICAL FUNCTION SLCTSX( AR, AI, BETA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL AI, AR, BETA diff --git a/lapack-netlib/TESTING/EIG/slsets.f b/lapack-netlib/TESTING/EIG/slsets.f index ad483bcd0..0fb66decf 100644 --- a/lapack-netlib/TESTING/EIG/slsets.f +++ b/lapack-netlib/TESTING/EIG/slsets.f @@ -147,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, $ D, DF, X, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, P, N diff --git a/lapack-netlib/TESTING/EIG/sort01.f b/lapack-netlib/TESTING/EIG/sort01.f index d013c70c5..c8fb5ff6e 100644 --- a/lapack-netlib/TESTING/EIG/sort01.f +++ b/lapack-netlib/TESTING/EIG/sort01.f @@ -109,17 +109,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SORT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER ROWCOL diff --git a/lapack-netlib/TESTING/EIG/sort03.f b/lapack-netlib/TESTING/EIG/sort03.f index 09a941487..3ca35705a 100644 --- a/lapack-netlib/TESTING/EIG/sort03.f +++ b/lapack-netlib/TESTING/EIG/sort03.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SORT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, $ RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*( * ) RC diff --git a/lapack-netlib/TESTING/EIG/ssbt21.f b/lapack-netlib/TESTING/EIG/ssbt21.f index 7ef5ad9b3..f4b4fbe0c 100644 --- a/lapack-netlib/TESTING/EIG/ssbt21.f +++ b/lapack-netlib/TESTING/EIG/ssbt21.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, $ RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/ssgt01.f b/lapack-netlib/TESTING/EIG/ssgt01.f index e4af48ddb..b606422a6 100644 --- a/lapack-netlib/TESTING/EIG/ssgt01.f +++ b/lapack-netlib/TESTING/EIG/ssgt01.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, $ WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/sslect.f b/lapack-netlib/TESTING/EIG/sslect.f index 5a85e2520..1880f02a6 100644 --- a/lapack-netlib/TESTING/EIG/sslect.f +++ b/lapack-netlib/TESTING/EIG/sslect.f @@ -55,17 +55,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup single_eig * * ===================================================================== LOGICAL FUNCTION SSLECT( ZR, ZI ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. REAL ZI, ZR diff --git a/lapack-netlib/TESTING/EIG/sspt21.f b/lapack-netlib/TESTING/EIG/sspt21.f index 4ecb04c0e..6945f142e 100644 --- a/lapack-netlib/TESTING/EIG/sspt21.f +++ b/lapack-netlib/TESTING/EIG/sspt21.f @@ -213,18 +213,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, $ TAU, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/sstech.f b/lapack-netlib/TESTING/EIG/sstech.f index d383e47ce..f05e1efa0 100644 --- a/lapack-netlib/TESTING/EIG/sstech.f +++ b/lapack-netlib/TESTING/EIG/sstech.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSTECH( N, A, B, EIG, TOL, WORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/TESTING/EIG/sstect.f b/lapack-netlib/TESTING/EIG/sstect.f index 314d0f68e..94a265369 100644 --- a/lapack-netlib/TESTING/EIG/sstect.f +++ b/lapack-netlib/TESTING/EIG/sstect.f @@ -75,17 +75,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSTECT( N, A, B, SHIFT, NUM ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, NUM diff --git a/lapack-netlib/TESTING/EIG/sstt21.f b/lapack-netlib/TESTING/EIG/sstt21.f index 5045d7f0f..90984502d 100644 --- a/lapack-netlib/TESTING/EIG/sstt21.f +++ b/lapack-netlib/TESTING/EIG/sstt21.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, $ RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KBAND, LDU, N diff --git a/lapack-netlib/TESTING/EIG/sstt22.f b/lapack-netlib/TESTING/EIG/sstt22.f index 0a65e4d5d..f07405fb7 100644 --- a/lapack-netlib/TESTING/EIG/sstt22.f +++ b/lapack-netlib/TESTING/EIG/sstt22.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, $ LDWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KBAND, LDU, LDWORK, M, N diff --git a/lapack-netlib/TESTING/EIG/ssvdch.f b/lapack-netlib/TESTING/EIG/ssvdch.f index 73654f7cf..e85181b14 100644 --- a/lapack-netlib/TESTING/EIG/ssvdch.f +++ b/lapack-netlib/TESTING/EIG/ssvdch.f @@ -90,17 +90,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSVDCH( N, S, E, SVD, TOL, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, N diff --git a/lapack-netlib/TESTING/EIG/ssvdct.f b/lapack-netlib/TESTING/EIG/ssvdct.f index 8db20bad7..9b6aad315 100644 --- a/lapack-netlib/TESTING/EIG/ssvdct.f +++ b/lapack-netlib/TESTING/EIG/ssvdct.f @@ -80,17 +80,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSVDCT( N, S, E, SHIFT, NUM ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N, NUM diff --git a/lapack-netlib/TESTING/EIG/ssxt1.f b/lapack-netlib/TESTING/EIG/ssxt1.f index 858ef8c6f..3fa6d6bb8 100644 --- a/lapack-netlib/TESTING/EIG/ssxt1.f +++ b/lapack-netlib/TESTING/EIG/ssxt1.f @@ -98,18 +98,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== REAL FUNCTION SSXT1( IJOB, D1, N1, D2, N2, ABSTOL, $ ULP, UNFL ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IJOB, N1, N2 diff --git a/lapack-netlib/TESTING/EIG/ssyt21.f b/lapack-netlib/TESTING/EIG/ssyt21.f index fc7ca6a2a..b14fdf67b 100644 --- a/lapack-netlib/TESTING/EIG/ssyt21.f +++ b/lapack-netlib/TESTING/EIG/ssyt21.f @@ -199,18 +199,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSYT21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, $ LDV, TAU, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/ssyt22.f b/lapack-netlib/TESTING/EIG/ssyt22.f index 38fc3e555..2319bb2db 100644 --- a/lapack-netlib/TESTING/EIG/ssyt22.f +++ b/lapack-netlib/TESTING/EIG/ssyt22.f @@ -149,18 +149,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_eig * * ===================================================================== SUBROUTINE SSYT22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, $ V, LDV, TAU, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/xerbla.f b/lapack-netlib/TESTING/EIG/xerbla.f index d57f6bcf8..e5fd23715 100644 --- a/lapack-netlib/TESTING/EIG/xerbla.f +++ b/lapack-netlib/TESTING/EIG/xerbla.f @@ -52,8 +52,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_eig * *> \par Further Details: @@ -75,10 +73,9 @@ * ===================================================================== SUBROUTINE XERBLA( SRNAME, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*(*) SRNAME diff --git a/lapack-netlib/TESTING/EIG/xlaenv.f b/lapack-netlib/TESTING/EIG/xlaenv.f index e973bc2cb..23b6c7567 100644 --- a/lapack-netlib/TESTING/EIG/xlaenv.f +++ b/lapack-netlib/TESTING/EIG/xlaenv.f @@ -74,17 +74,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_eig * * ===================================================================== SUBROUTINE XLAENV( ISPEC, NVALUE ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ISPEC, NVALUE diff --git a/lapack-netlib/TESTING/EIG/zbdt01.f b/lapack-netlib/TESTING/EIG/zbdt01.f index ead9f1050..afe2fa89a 100644 --- a/lapack-netlib/TESTING/EIG/zbdt01.f +++ b/lapack-netlib/TESTING/EIG/zbdt01.f @@ -28,13 +28,13 @@ *> \verbatim *> *> ZBDT01 reconstructs a general matrix A from its bidiagonal form -*> A = Q * B * P' -*> where Q (m by min(m,n)) and P' (min(m,n) by n) are unitary +*> A = Q * B * P**H +*> where Q (m by min(m,n)) and P**H (min(m,n) by n) are unitary *> matrices and B is bidiagonal. *> *> The test ratio to test the reduction is -*> RESID = norm( A - Q * B * PT ) / ( n * norm(A) * EPS ) -*> where PT = P' and EPS is the machine precision. +*> RESID = norm(A - Q * B * P**H) / ( n * norm(A) * EPS ) +*> where EPS is the machine precision. *> \endverbatim * * Arguments: @@ -49,7 +49,7 @@ *> \param[in] N *> \verbatim *> N is INTEGER -*> The number of columns of the matrices A and P'. +*> The number of columns of the matrices A and P**H. *> \endverbatim *> *> \param[in] KD @@ -78,7 +78,7 @@ *> \verbatim *> Q is COMPLEX*16 array, dimension (LDQ,N) *> The m by min(m,n) unitary matrix Q in the reduction -*> A = Q * B * P'. +*> A = Q * B * P**H. *> \endverbatim *> *> \param[in] LDQ @@ -103,8 +103,8 @@ *> \param[in] PT *> \verbatim *> PT is COMPLEX*16 array, dimension (LDPT,N) -*> The min(m,n) by n unitary matrix P' in the reduction -*> A = Q * B * P'. +*> The min(m,n) by n unitary matrix P**H in the reduction +*> A = Q * B * P**H. *> \endverbatim *> *> \param[in] LDPT @@ -127,7 +127,8 @@ *> \param[out] RESID *> \verbatim *> RESID is DOUBLE PRECISION -*> The test ratio: norm(A - Q * B * P') / ( n * norm(A) * EPS ) +*> The test ratio: +*> norm(A - Q * B * P**H) / ( n * norm(A) * EPS ) *> \endverbatim * * Authors: @@ -138,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZBDT01( M, N, KD, A, LDA, Q, LDQ, D, E, PT, LDPT, WORK, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KD, LDA, LDPT, LDQ, M, N @@ -190,7 +188,7 @@ RETURN END IF * -* Compute A - Q * B * P' one column at a time. +* Compute A - Q * B * P**H one column at a time. * RESID = ZERO IF( KD.NE.0 ) THEN @@ -268,7 +266,7 @@ END IF END IF * -* Compute norm(A - Q * B * P') / ( n * norm(A) * EPS ) +* Compute norm(A - Q * B * P**H) / ( n * norm(A) * EPS ) * ANORM = ZLANGE( '1', M, N, A, LDA, RWORK ) EPS = DLAMCH( 'Precision' ) diff --git a/lapack-netlib/TESTING/EIG/zbdt02.f b/lapack-netlib/TESTING/EIG/zbdt02.f index 2101a2e0c..27117a7d1 100644 --- a/lapack-netlib/TESTING/EIG/zbdt02.f +++ b/lapack-netlib/TESTING/EIG/zbdt02.f @@ -27,7 +27,8 @@ *> *> \verbatim *> -*> ZBDT02 tests the change of basis C = U' * B by computing the residual +*> ZBDT02 tests the change of basis C = U**H * B by computing the +*> residual *> *> RESID = norm( B - U * C ) / ( max(m,n) * norm(B) * EPS ), *> @@ -66,7 +67,7 @@ *> \param[in] C *> \verbatim *> C is COMPLEX*16 array, dimension (LDC,N) -*> The m by n matrix C, assumed to contain U' * B. +*> The m by n matrix C, assumed to contain U**H * B. *> \endverbatim *> *> \param[in] LDC @@ -111,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZBDT02( M, N, B, LDB, C, LDC, U, LDU, WORK, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDC, LDU, M, N diff --git a/lapack-netlib/TESTING/EIG/zbdt03.f b/lapack-netlib/TESTING/EIG/zbdt03.f index 079d4ffb0..289e55585 100644 --- a/lapack-netlib/TESTING/EIG/zbdt03.f +++ b/lapack-netlib/TESTING/EIG/zbdt03.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZBDT03( UPLO, N, KD, D, E, U, LDU, S, VT, LDVT, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/zbdt05.f b/lapack-netlib/TESTING/EIG/zbdt05.f index f262351e4..c6298e7e3 100644 --- a/lapack-netlib/TESTING/EIG/zbdt05.f +++ b/lapack-netlib/TESTING/EIG/zbdt05.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_eig * * ===================================================================== SUBROUTINE ZBDT05( M, N, A, LDA, S, NS, U, LDU, $ VT, LDVT, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDU, LDVT, M, N, NS diff --git a/lapack-netlib/TESTING/EIG/zchkbb.f b/lapack-netlib/TESTING/EIG/zchkbb.f index 877caffa5..b9e165ce8 100644 --- a/lapack-netlib/TESTING/EIG/zchkbb.f +++ b/lapack-netlib/TESTING/EIG/zchkbb.f @@ -351,8 +351,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -364,7 +362,6 @@ * -- LAPACK test routine (input) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDAB, LDC, LDP, LDQ, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/zchkbd.f b/lapack-netlib/TESTING/EIG/zchkbd.f index b3d560554..034cf57cf 100644 --- a/lapack-netlib/TESTING/EIG/zchkbd.f +++ b/lapack-netlib/TESTING/EIG/zchkbd.f @@ -405,8 +405,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -415,10 +413,9 @@ $ Y, Z, Q, LDQ, PT, LDPT, U, VT, WORK, LWORK, $ RWORK, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDPT, LDQ, LDX, LWORK, NOUT, NRHS, diff --git a/lapack-netlib/TESTING/EIG/zchkbk.f b/lapack-netlib/TESTING/EIG/zchkbk.f index 4f9f43cc9..206e9c2b9 100644 --- a/lapack-netlib/TESTING/EIG/zchkbk.f +++ b/lapack-netlib/TESTING/EIG/zchkbk.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZCHKBK( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/zchkbl.f b/lapack-netlib/TESTING/EIG/zchkbl.f index 6e0a18118..f623bc311 100644 --- a/lapack-netlib/TESTING/EIG/zchkbl.f +++ b/lapack-netlib/TESTING/EIG/zchkbl.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZCHKBL( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/zchkec.f b/lapack-netlib/TESTING/EIG/zchkec.f index 86643969b..1e1c29e0d 100644 --- a/lapack-netlib/TESTING/EIG/zchkec.f +++ b/lapack-netlib/TESTING/EIG/zchkec.f @@ -68,17 +68,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZCHKEC( THRESH, TSTERR, NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/EIG/zchkee.F b/lapack-netlib/TESTING/EIG/zchkee.F index fb418a43b..b14127553 100644 --- a/lapack-netlib/TESTING/EIG/zchkee.F +++ b/lapack-netlib/TESTING/EIG/zchkee.F @@ -1027,8 +1027,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -1038,10 +1036,9 @@ use omp_lib #endif * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/EIG/zchkgg.f b/lapack-netlib/TESTING/EIG/zchkgg.f index 2f99d76f3..5e6797f50 100644 --- a/lapack-netlib/TESTING/EIG/zchkgg.f +++ b/lapack-netlib/TESTING/EIG/zchkgg.f @@ -492,8 +492,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -503,10 +501,9 @@ $ ALPHA3, BETA3, EVECTL, EVECTR, WORK, LWORK, $ RWORK, LLWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. LOGICAL TSTDIF diff --git a/lapack-netlib/TESTING/EIG/zchkgk.f b/lapack-netlib/TESTING/EIG/zchkgk.f index 56a34fe0c..083841177 100644 --- a/lapack-netlib/TESTING/EIG/zchkgk.f +++ b/lapack-netlib/TESTING/EIG/zchkgk.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZCHKGK( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/zchkgl.f b/lapack-netlib/TESTING/EIG/zchkgl.f index 48afa62a1..27c8babc9 100644 --- a/lapack-netlib/TESTING/EIG/zchkgl.f +++ b/lapack-netlib/TESTING/EIG/zchkgl.f @@ -46,17 +46,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZCHKGL( NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NIN, NOUT diff --git a/lapack-netlib/TESTING/EIG/zchkhb.f b/lapack-netlib/TESTING/EIG/zchkhb.f index a4c658ff3..080ce8170 100644 --- a/lapack-netlib/TESTING/EIG/zchkhb.f +++ b/lapack-netlib/TESTING/EIG/zchkhb.f @@ -289,8 +289,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -298,10 +296,9 @@ $ THRESH, NOUNIT, A, LDA, SD, SE, U, LDU, WORK, $ LWORK, RWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, diff --git a/lapack-netlib/TESTING/EIG/zchkhb2stg.f b/lapack-netlib/TESTING/EIG/zchkhb2stg.f index 05434e4e3..786df7882 100644 --- a/lapack-netlib/TESTING/EIG/zchkhb2stg.f +++ b/lapack-netlib/TESTING/EIG/zchkhb2stg.f @@ -1,4 +1,4 @@ -*> \brief \b ZCHKHBSTG +*> \brief \b ZCHKHB2STG * * =========== DOCUMENTATION =========== * @@ -8,7 +8,7 @@ * Definition: * =========== * -* SUBROUTINE ZCHKHBSTG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, +* SUBROUTINE ZCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, * ISEED, THRESH, NOUNIT, A, LDA, SD, SE, D1, * D2, D3, U, LDU, WORK, LWORK, RWORK RESULT, * INFO ) @@ -21,7 +21,8 @@ * .. Array Arguments .. * LOGICAL DOTYPE( * ) * INTEGER ISEED( 4 ), KK( * ), NN( * ) -* DOUBLE PRECISION RESULT( * ), RWORK( * ), SD( * ), SE( * ) +* DOUBLE PRECISION RESULT( * ), RWORK( * ), SD( * ), SE( * ), +* $ D1( * ), D2( * ), D3( * ) * COMPLEX*16 A( LDA, * ), U( LDU, * ), WORK( * ) * .. * @@ -31,18 +32,18 @@ *> *> \verbatim *> -*> ZCHKHBSTG tests the reduction of a Hermitian band matrix to tridiagonal +*> ZCHKHB2STG tests the reduction of a Hermitian band matrix to tridiagonal *> from, used with the Hermitian eigenvalue problem. *> *> ZHBTRD factors a Hermitian band matrix A as U S U* , where * means *> conjugate transpose, S is symmetric tridiagonal, and U is unitary. *> ZHBTRD can use either just the lower or just the upper triangle -*> of A; ZCHKHBSTG checks both cases. +*> of A; ZCHKHB2STG checks both cases. *> *> ZHETRD_HB2ST factors a Hermitian band matrix A as U S U* , *> where * means conjugate transpose, S is symmetric tridiagonal, and U is *> unitary. ZHETRD_HB2ST can use either just the lower or just -*> the upper triangle of A; ZCHKHBSTG checks both cases. +*> the upper triangle of A; ZCHKHB2STG checks both cases. *> *> DSTEQR factors S as Z D1 Z'. *> D1 is the matrix of eigenvalues computed when Z is not computed @@ -52,7 +53,7 @@ *> D3 is the matrix of eigenvalues computed when Z is not computed *> and from the S resulting of DSYTRD_SB2ST "L". *> -*> When ZCHKHBSTG is called, a number of matrix "sizes" ("n's"), a number +*> When ZCHKHB2STG is called, a number of matrix "sizes" ("n's"), a number *> of bandwidths ("k's"), and a number of matrix "types" are *> specified. For each size ("n"), each bandwidth ("k") less than or *> equal to "n", and each type of matrix, one matrix will be generated @@ -126,7 +127,7 @@ *> \verbatim *> NSIZES is INTEGER *> The number of sizes of matrices to use. If it is zero, -*> ZCHKHBSTG does nothing. It must be at least zero. +*> ZCHKHB2STG does nothing. It must be at least zero. *> \endverbatim *> *> \param[in] NN @@ -141,7 +142,7 @@ *> \verbatim *> NWDTHS is INTEGER *> The number of bandwidths to use. If it is zero, -*> ZCHKHBSTG does nothing. It must be at least zero. +*> ZCHKHB2STG does nothing. It must be at least zero. *> \endverbatim *> *> \param[in] KK @@ -154,7 +155,7 @@ *> \param[in] NTYPES *> \verbatim *> NTYPES is INTEGER -*> The number of elements in DOTYPE. If it is zero, ZCHKHBSTG +*> The number of elements in DOTYPE. If it is zero, ZCHKHB2STG *> does nothing. It must be at least zero. If it is MAXTYP+1 *> and NSIZES is 1, then an additional type, MAXTYP+1 is *> defined, which is to use whatever matrix is in A. This @@ -184,7 +185,7 @@ *> congruential sequence limited to small integers, and so *> should produce machine independent random numbers. The *> values of ISEED are changed on exit, and can be used in the -*> next call to ZCHKHBSTG to continue the same random number +*> next call to ZCHKHB2STG to continue the same random number *> sequence. *> \endverbatim *> @@ -235,6 +236,20 @@ *> computed by ZHBTRD. *> \endverbatim *> +*> \param[out] D1 +*> \verbatim +*> D1 is DOUBLE PRECISION array, dimension (max(NN)) +*> \endverbatim +*> +*> \param[out] D2 +*> \verbatim +*> D2 is DOUBLE PRECISION array, dimension (max(NN)) +*> \endverbatim +*>*> \param[out] D3 +*> \verbatim +*> D3 is DOUBLE PRECISION array, dimension (max(NN)) +*> \endverbatim +*> *> \param[out] U *> \verbatim *> U is COMPLEX*16 array, dimension (LDU, max(NN)) @@ -313,8 +328,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_eig * * ===================================================================== @@ -323,10 +336,9 @@ $ D2, D3, U, LDU, WORK, LWORK, RWORK, RESULT, $ INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LWORK, NOUNIT, NSIZES, NTYPES, @@ -432,7 +444,7 @@ END IF * IF( INFO.NE.0 ) THEN - CALL XERBLA( 'ZCHKHBSTG', -INFO ) + CALL XERBLA( 'ZCHKHB2STG', -INFO ) RETURN END IF * @@ -837,7 +849,7 @@ CALL DLASUM( 'ZHB', NOUNIT, NERRS, NTESTT ) RETURN * - 9999 FORMAT( ' ZCHKHBSTG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', + 9999 FORMAT( ' ZCHKHB2STG: ', A, ' returned INFO=', I6, '.', / 9X, 'N=', $ I6, ', JTYPE=', I6, ', ISEED=(', 3( I5, ',' ), I5, ')' ) 9998 FORMAT( / 1X, A3, $ ' -- Complex Hermitian Banded Tridiagonal Reduction Routines' @@ -873,6 +885,6 @@ 9993 FORMAT( ' N=', I5, ', K=', I4, ', seed=', 4( I4, ',' ), ' type ', $ I2, ', test(', I2, ')=', G10.3 ) * -* End of ZCHKHBSTG +* End of ZCHKHB2STG * END diff --git a/lapack-netlib/TESTING/EIG/zchkhs.f b/lapack-netlib/TESTING/EIG/zchkhs.f index ec89b44f9..52962a041 100644 --- a/lapack-netlib/TESTING/EIG/zchkhs.f +++ b/lapack-netlib/TESTING/EIG/zchkhs.f @@ -401,8 +401,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -412,10 +410,9 @@ $ WORK, NWORK, RWORK, IWORK, SELECT, RESULT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, NOUNIT, NSIZES, NTYPES, NWORK diff --git a/lapack-netlib/TESTING/EIG/zchkst.f b/lapack-netlib/TESTING/EIG/zchkst.f index cd45e98e1..60496dde1 100644 --- a/lapack-netlib/TESTING/EIG/zchkst.f +++ b/lapack-netlib/TESTING/EIG/zchkst.f @@ -593,8 +593,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -604,10 +602,9 @@ $ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/zchkst2stg.f b/lapack-netlib/TESTING/EIG/zchkst2stg.f index 4eadca4f3..b1ef80816 100644 --- a/lapack-netlib/TESTING/EIG/zchkst2stg.f +++ b/lapack-netlib/TESTING/EIG/zchkst2stg.f @@ -614,8 +614,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -625,10 +623,9 @@ $ LWORK, RWORK, LRWORK, IWORK, LIWORK, RESULT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, @@ -690,7 +687,7 @@ $ XERBLA, ZCOPY, ZHET21, ZHETRD, ZHPT21, ZHPTRD, $ ZLACPY, ZLASET, ZLATMR, ZLATMS, ZPTEQR, ZSTEDC, $ ZSTEMR, ZSTEIN, ZSTEQR, ZSTT21, ZSTT22, ZUNGTR, - $ ZUPGTR, ZHETRD_2STAGE + $ ZUPGTR, ZHETRD_2STAGE, DLASET * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, DCONJG, INT, LOG, MAX, MIN, SQRT @@ -1075,7 +1072,6 @@ END IF END IF * -* * Do Tests 3 and 4 which are similar to 11 and 12 but with the * D1 computed using the standard 1-stage reduction as reference * @@ -1738,7 +1734,6 @@ END IF END IF * -* * Do test 28 * TEMP2 = TWO*( TWO*N-ONE )*ULP* @@ -1795,7 +1790,6 @@ * * Do Tests 29 and 30 * -* * Call ZSTEMR to compute D2, do tests. * * Compute D2 @@ -1835,7 +1829,6 @@ RESULT( 31 ) = TEMP2 / MAX( UNFL, $ ULP*MAX( TEMP1, TEMP2 ) ) * -* * Call ZSTEMR(V,V) to compute D1 and Z, do tests. * * Compute D1 and Z @@ -1937,7 +1930,6 @@ RESULT( 34 ) = ZERO END IF * -* * Call ZSTEMR(V,A) to compute D1 and Z, do tests. * * Compute D1 and Z @@ -1994,7 +1986,7 @@ END IF END IF * -* Do Test 34 +* Do Test 37 * TEMP1 = ZERO TEMP2 = ZERO @@ -2013,7 +2005,6 @@ * * End of Loop -- Check for RESULT(j) > THRESH * -* * Print out tests which fail. * DO 290 JR = 1, NTEST @@ -2088,6 +2079,7 @@ $ 4( I4, ',' ), ' result ', I3, ' is', 1P, D10.3 ) * 9987 FORMAT( / 'Test performed: see ZCHKST2STG for details.', / ) +* * End of ZCHKST2STG * END diff --git a/lapack-netlib/TESTING/EIG/zckcsd.f b/lapack-netlib/TESTING/EIG/zckcsd.f index 92760337c..c37831657 100644 --- a/lapack-netlib/TESTING/EIG/zckcsd.f +++ b/lapack-netlib/TESTING/EIG/zckcsd.f @@ -175,8 +175,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -184,10 +182,9 @@ $ MMAX, X, XF, U1, U2, V1T, V2T, THETA, IWORK, $ WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, MMAX, NOUT @@ -208,13 +205,14 @@ PARAMETER ( NTESTS = 15 ) INTEGER NTYPES PARAMETER ( NTYPES = 4 ) - DOUBLE PRECISION GAPDIGIT, ORTH, PIOVER2, REALONE, REALZERO, TEN + DOUBLE PRECISION GAPDIGIT, ORTH, REALONE, REALZERO, TEN PARAMETER ( GAPDIGIT = 18.0D0, ORTH = 1.0D-12, - $ PIOVER2 = 1.57079632679489662D0, $ REALONE = 1.0D0, REALZERO = 0.0D0, $ TEN = 10.0D0 ) COMPLEX*16 ONE, ZERO PARAMETER ( ONE = (1.0D0,0.0D0), ZERO = (0.0D0,0.0D0) ) + DOUBLE PRECISION PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210D0 ) * .. * .. Local Scalars .. LOGICAL FIRSTT diff --git a/lapack-netlib/TESTING/EIG/zckglm.f b/lapack-netlib/TESTING/EIG/zckglm.f index 565c74791..ff8101bb9 100644 --- a/lapack-netlib/TESTING/EIG/zckglm.f +++ b/lapack-netlib/TESTING/EIG/zckglm.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -168,10 +166,9 @@ $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT diff --git a/lapack-netlib/TESTING/EIG/zckgqr.f b/lapack-netlib/TESTING/EIG/zckgqr.f index 2d137785b..769d0f8b0 100644 --- a/lapack-netlib/TESTING/EIG/zckgqr.f +++ b/lapack-netlib/TESTING/EIG/zckgqr.f @@ -202,8 +202,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -211,10 +209,9 @@ $ THRESH, NMAX, A, AF, AQ, AR, TAUA, B, BF, BZ, $ BT, BWK, TAUB, WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, NMAX, NN, NOUT, NP diff --git a/lapack-netlib/TESTING/EIG/zckgsv.f b/lapack-netlib/TESTING/EIG/zckgsv.f index 32352fc06..800aa5edd 100644 --- a/lapack-netlib/TESTING/EIG/zckgsv.f +++ b/lapack-netlib/TESTING/EIG/zckgsv.f @@ -189,8 +189,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -198,10 +196,9 @@ $ NMAX, A, AF, B, BF, U, V, Q, ALPHA, BETA, R, $ IWORK, WORK, RWORK, NIN, NOUT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NM, NMATS, NMAX, NOUT diff --git a/lapack-netlib/TESTING/EIG/zcklse.f b/lapack-netlib/TESTING/EIG/zcklse.f index e38a4c0a8..26b0298e3 100644 --- a/lapack-netlib/TESTING/EIG/zcklse.f +++ b/lapack-netlib/TESTING/EIG/zcklse.f @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -168,10 +166,9 @@ $ NMAX, A, AF, B, BF, X, WORK, RWORK, NIN, NOUT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, NIN, NMATS, NMAX, NN, NOUT diff --git a/lapack-netlib/TESTING/EIG/zcsdts.f b/lapack-netlib/TESTING/EIG/zcsdts.f index c5fd68eb9..c96cb1613 100644 --- a/lapack-netlib/TESTING/EIG/zcsdts.f +++ b/lapack-netlib/TESTING/EIG/zcsdts.f @@ -220,8 +220,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -229,10 +227,9 @@ $ LDV1T, V2T, LDV2T, THETA, IWORK, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDX, LDU1, LDU2, LDV1T, LDV2T, LWORK, M, P, Q @@ -248,11 +245,12 @@ * ===================================================================== * * .. Parameters .. - DOUBLE PRECISION PIOVER2, REALONE, REALZERO - PARAMETER ( PIOVER2 = 1.57079632679489662D0, - $ REALONE = 1.0D0, REALZERO = 0.0D0 ) + DOUBLE PRECISION REALONE, REALZERO + PARAMETER ( REALONE = 1.0D0, REALZERO = 0.0D0 ) COMPLEX*16 ZERO, ONE PARAMETER ( ZERO = (0.0D0,0.0D0), ONE = (1.0D0,0.0D0) ) + DOUBLE PRECISION PIOVER2 + PARAMETER ( PIOVER2 = 1.57079632679489661923132169163975144210D0 ) * .. * .. Local Scalars .. INTEGER I, INFO, R diff --git a/lapack-netlib/TESTING/EIG/zdrges.f b/lapack-netlib/TESTING/EIG/zdrges.f index c09984e09..580573814 100644 --- a/lapack-netlib/TESTING/EIG/zdrges.f +++ b/lapack-netlib/TESTING/EIG/zdrges.f @@ -372,8 +372,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -381,10 +379,9 @@ $ NOUNIT, A, LDA, B, S, T, Q, LDQ, Z, ALPHA, $ BETA, WORK, LWORK, RWORK, RESULT, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES diff --git a/lapack-netlib/TESTING/EIG/zdrges3.f b/lapack-netlib/TESTING/EIG/zdrges3.f index 2b3be003c..b678e4704 100644 --- a/lapack-netlib/TESTING/EIG/zdrges3.f +++ b/lapack-netlib/TESTING/EIG/zdrges3.f @@ -372,8 +372,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date February 2015 -* *> \ingroup complex16_eig * * ===================================================================== @@ -382,10 +380,9 @@ $ BETA, WORK, LWORK, RWORK, RESULT, BWORK, $ INFO ) * -* -- LAPACK test routine (version 3.6.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2015 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LWORK, NOUNIT, NSIZES, NTYPES @@ -744,6 +741,14 @@ RSUB = 5 END IF * +* Call XLAENV to set the parameters used in ZLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Call ZGGES3 to compute H, T, Q, Z, alpha, and beta. * CALL ZLACPY( 'Full', N, N, A, LDA, S, LDA ) diff --git a/lapack-netlib/TESTING/EIG/zdrgev.f b/lapack-netlib/TESTING/EIG/zdrgev.f index 2588816a5..e7389183b 100644 --- a/lapack-netlib/TESTING/EIG/zdrgev.f +++ b/lapack-netlib/TESTING/EIG/zdrgev.f @@ -389,8 +389,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -399,10 +397,9 @@ $ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, RWORK, $ RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/zdrgev3.f b/lapack-netlib/TESTING/EIG/zdrgev3.f index 11e8562d7..4ccc98776 100644 --- a/lapack-netlib/TESTING/EIG/zdrgev3.f +++ b/lapack-netlib/TESTING/EIG/zdrgev3.f @@ -389,8 +389,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date February 2015 -* *> \ingroup complex16_eig * * ===================================================================== @@ -399,10 +397,9 @@ $ ALPHA, BETA, ALPHA1, BETA1, WORK, LWORK, $ RWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.6.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* February 2015 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDQ, LDQE, LWORK, NOUNIT, NSIZES, @@ -736,6 +733,14 @@ RESULT( I ) = -ONE 110 CONTINUE * +* Call XLAENV to set the parameters used in ZLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Call ZGGEV3 to compute eigenvalues and eigenvectors. * CALL ZLACPY( ' ', N, N, A, LDA, S, LDA ) diff --git a/lapack-netlib/TESTING/EIG/zdrgsx.f b/lapack-netlib/TESTING/EIG/zdrgsx.f index f5821e520..096ed3c22 100644 --- a/lapack-netlib/TESTING/EIG/zdrgsx.f +++ b/lapack-netlib/TESTING/EIG/zdrgsx.f @@ -340,8 +340,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -349,10 +347,9 @@ $ BI, Z, Q, ALPHA, BETA, C, LDC, S, WORK, LWORK, $ RWORK, IWORK, LIWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDC, LIWORK, LWORK, NCMAX, NIN, diff --git a/lapack-netlib/TESTING/EIG/zdrgvx.f b/lapack-netlib/TESTING/EIG/zdrgvx.f index 4a6956451..72e0303fb 100644 --- a/lapack-netlib/TESTING/EIG/zdrgvx.f +++ b/lapack-netlib/TESTING/EIG/zdrgvx.f @@ -287,8 +287,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -297,10 +295,9 @@ $ S, DTRU, DIF, DIFTRU, WORK, LWORK, RWORK, $ IWORK, LIWORK, RESULT, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, INFO, LDA, LIWORK, LWORK, NIN, NOUT, diff --git a/lapack-netlib/TESTING/EIG/zdrvbd.f b/lapack-netlib/TESTING/EIG/zdrvbd.f index 105e9dff7..916dbf722 100644 --- a/lapack-netlib/TESTING/EIG/zdrvbd.f +++ b/lapack-netlib/TESTING/EIG/zdrvbd.f @@ -391,8 +391,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -401,10 +399,9 @@ $ SSAV, E, WORK, LWORK, RWORK, IWORK, NOUNIT, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/EIG/zdrves.f b/lapack-netlib/TESTING/EIG/zdrves.f index 7a625e1b7..d3f237c23 100644 --- a/lapack-netlib/TESTING/EIG/zdrves.f +++ b/lapack-netlib/TESTING/EIG/zdrves.f @@ -369,8 +369,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -378,10 +376,9 @@ $ NOUNIT, A, LDA, H, HT, W, WT, VS, LDVS, RESULT, $ WORK, NWORK, RWORK, IWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDVS, NOUNIT, NSIZES, NTYPES, NWORK diff --git a/lapack-netlib/TESTING/EIG/zdrvev.f b/lapack-netlib/TESTING/EIG/zdrvev.f index e818f7ea6..4fbb10e10 100644 --- a/lapack-netlib/TESTING/EIG/zdrvev.f +++ b/lapack-netlib/TESTING/EIG/zdrvev.f @@ -381,8 +381,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -391,10 +389,9 @@ $ LRE, LDLRE, RESULT, WORK, NWORK, RWORK, IWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/zdrvsg.f b/lapack-netlib/TESTING/EIG/zdrvsg.f index 8238dceef..336514a3f 100644 --- a/lapack-netlib/TESTING/EIG/zdrvsg.f +++ b/lapack-netlib/TESTING/EIG/zdrvsg.f @@ -360,8 +360,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -370,10 +368,9 @@ $ BP, WORK, NWORK, RWORK, LRWORK, IWORK, LIWORK, $ RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/zdrvsg2stg.f b/lapack-netlib/TESTING/EIG/zdrvsg2stg.f index 8929b33c4..4bdf2849e 100644 --- a/lapack-netlib/TESTING/EIG/zdrvsg2stg.f +++ b/lapack-netlib/TESTING/EIG/zdrvsg2stg.f @@ -366,8 +366,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -378,10 +376,9 @@ * IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDZ, LIWORK, LRWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/zdrvst.f b/lapack-netlib/TESTING/EIG/zdrvst.f index cf2dc03ed..384e58de1 100644 --- a/lapack-netlib/TESTING/EIG/zdrvst.f +++ b/lapack-netlib/TESTING/EIG/zdrvst.f @@ -328,8 +328,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -338,10 +336,9 @@ $ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK, $ IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/zdrvst2stg.f b/lapack-netlib/TESTING/EIG/zdrvst2stg.f index de072c9a3..4a88e5218 100644 --- a/lapack-netlib/TESTING/EIG/zdrvst2stg.f +++ b/lapack-netlib/TESTING/EIG/zdrvst2stg.f @@ -328,8 +328,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_eig * * ===================================================================== @@ -338,10 +336,9 @@ $ LDU, V, TAU, Z, WORK, LWORK, RWORK, LRWORK, $ IWORK, LIWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDU, LIWORK, LRWORK, LWORK, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/zdrvsx.f b/lapack-netlib/TESTING/EIG/zdrvsx.f index ba3ffab6c..ac7a2d6eb 100644 --- a/lapack-netlib/TESTING/EIG/zdrvsx.f +++ b/lapack-netlib/TESTING/EIG/zdrvsx.f @@ -425,8 +425,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -435,10 +433,9 @@ $ LDVS, VS1, RESULT, WORK, LWORK, RWORK, BWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDVS, LWORK, NIUNIT, NOUNIT, NSIZES, diff --git a/lapack-netlib/TESTING/EIG/zdrvvx.f b/lapack-netlib/TESTING/EIG/zdrvvx.f index 9492e0623..830313c72 100644 --- a/lapack-netlib/TESTING/EIG/zdrvvx.f +++ b/lapack-netlib/TESTING/EIG/zdrvvx.f @@ -485,8 +485,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -496,10 +494,9 @@ $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, $ WORK, NWORK, RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDLRE, LDVL, LDVR, NIUNIT, NOUNIT, diff --git a/lapack-netlib/TESTING/EIG/zerrbd.f b/lapack-netlib/TESTING/EIG/zerrbd.f index f44ef4098..f1dde9266 100644 --- a/lapack-netlib/TESTING/EIG/zerrbd.f +++ b/lapack-netlib/TESTING/EIG/zerrbd.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZERRBD( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/zerrec.f b/lapack-netlib/TESTING/EIG/zerrec.f index a35a0de2f..dc6129da9 100644 --- a/lapack-netlib/TESTING/EIG/zerrec.f +++ b/lapack-netlib/TESTING/EIG/zerrec.f @@ -49,17 +49,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZERREC( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/zerred.f b/lapack-netlib/TESTING/EIG/zerred.f index 013dc16c5..d1219c02b 100644 --- a/lapack-netlib/TESTING/EIG/zerred.f +++ b/lapack-netlib/TESTING/EIG/zerred.f @@ -63,17 +63,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZERRED( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/zerrgg.f b/lapack-netlib/TESTING/EIG/zerrgg.f index 0e3a861df..26e8df983 100644 --- a/lapack-netlib/TESTING/EIG/zerrgg.f +++ b/lapack-netlib/TESTING/EIG/zerrgg.f @@ -50,17 +50,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZERRGG( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -100,7 +97,7 @@ $ ZGGHRD, ZGGLSE, ZGGQRF, ZGGRQF, $ ZHGEQZ, ZTGEVC, ZTGEXC, ZTGSEN, ZTGSJA, ZTGSNA, $ ZTGSYL, ZUNCSD, ZGGES3, ZGGEV3, ZGGHD3, - $ ZGGSVD3, ZGGSVP3 + $ ZGGSVD3, ZGGSVP3, XLAENV * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -138,6 +135,14 @@ NT = 0 LWORK = 1 * +* Call XLAENV to set the parameters used in CLAQZ0 +* + CALL XLAENV( 12, 10 ) + CALL XLAENV( 13, 12 ) + CALL XLAENV( 14, 13 ) + CALL XLAENV( 15, 2 ) + CALL XLAENV( 17, 10 ) +* * Test error exits for the GG path. * IF( LSAMEN( 2, C2, 'GG' ) ) THEN diff --git a/lapack-netlib/TESTING/EIG/zerrhs.f b/lapack-netlib/TESTING/EIG/zerrhs.f index 4949ceaa5..582338947 100644 --- a/lapack-netlib/TESTING/EIG/zerrhs.f +++ b/lapack-netlib/TESTING/EIG/zerrhs.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZERRHS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/zerrst.f b/lapack-netlib/TESTING/EIG/zerrst.f index b906c96df..5b0e6f820 100644 --- a/lapack-netlib/TESTING/EIG/zerrst.f +++ b/lapack-netlib/TESTING/EIG/zerrst.f @@ -55,17 +55,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZERRST( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/EIG/zget02.f b/lapack-netlib/TESTING/EIG/zget02.f index efea82567..1b1ea3d42 100644 --- a/lapack-netlib/TESTING/EIG/zget02.f +++ b/lapack-netlib/TESTING/EIG/zget02.f @@ -28,9 +28,10 @@ *> \verbatim *> *> ZGET02 computes the residual for a solution of a system of linear -*> equations A*x = b or A'*x = b: -*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ), -*> where EPS is the machine epsilon. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the +*> machine epsilon. *> \endverbatim * * Arguments: @@ -40,9 +41,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A^T*x = b, where A^T is the transpose of A -*> = 'C': A^H*x = b, where A^H is the conjugate transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -114,7 +115,7 @@ *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -125,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS @@ -191,19 +189,23 @@ * Exit with RESID = 1/EPS if ANORM = 0. * EPS = DLAMCH( 'Epsilon' ) + IF( LSAME( TRANS, 'N' ) ) THEN ANORM = ZLANGE( '1', M, N, A, LDA, RWORK ) + ELSE + ANORM = ZLANGE( 'I', M, N, A, LDA, RWORK ) + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN END IF * -* Compute B - A*X (or B - A'*X ) and store in B. +* Compute B - op(A)*X and store in B. * CALL ZGEMM( TRANS, 'No transpose', N1, NRHS, N2, -CONE, A, LDA, X, $ LDX, CONE, B, LDB ) * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) . +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) . * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/EIG/zget10.f b/lapack-netlib/TESTING/EIG/zget10.f index ee7fcbb51..4442fc8ec 100644 --- a/lapack-netlib/TESTING/EIG/zget10.f +++ b/lapack-netlib/TESTING/EIG/zget10.f @@ -92,17 +92,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET10( M, N, A, LDA, B, LDB, WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, M, N diff --git a/lapack-netlib/TESTING/EIG/zget22.f b/lapack-netlib/TESTING/EIG/zget22.f index 68e16baaa..73ed0ac34 100644 --- a/lapack-netlib/TESTING/EIG/zget22.f +++ b/lapack-netlib/TESTING/EIG/zget22.f @@ -125,6 +125,7 @@ *> RESULT is DOUBLE PRECISION array, dimension (2) *> RESULT(1) = | A E - E W | / ( |A| |E| ulp ) *> RESULT(2) = max | m-norm(E(j)) - 1 | / ( n ulp ) +*> j *> \endverbatim * * Authors: @@ -135,18 +136,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET22( TRANSA, TRANSE, TRANSW, N, A, LDA, E, LDE, W, $ WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANSA, TRANSE, TRANSW @@ -299,7 +297,7 @@ RESULT( 1 ) = ( ERRNRM / ANORM ) / ULP ELSE IF( ANORM.LT.ONE ) THEN - RESULT( 1 ) = ( MIN( ERRNRM, ANORM ) / ANORM ) / ULP + RESULT( 1 ) = ONE / ULP ELSE RESULT( 1 ) = MIN( ERRNRM / ANORM, ONE ) / ULP END IF diff --git a/lapack-netlib/TESTING/EIG/zget23.f b/lapack-netlib/TESTING/EIG/zget23.f index 39fe15299..fc48a5e1b 100644 --- a/lapack-netlib/TESTING/EIG/zget23.f +++ b/lapack-netlib/TESTING/EIG/zget23.f @@ -357,8 +357,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -368,10 +366,9 @@ $ RCONDE, RCNDE1, RCDEIN, SCALE, SCALE1, RESULT, $ WORK, LWORK, RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL COMP diff --git a/lapack-netlib/TESTING/EIG/zget24.f b/lapack-netlib/TESTING/EIG/zget24.f index 1641a018c..670611e91 100644 --- a/lapack-netlib/TESTING/EIG/zget24.f +++ b/lapack-netlib/TESTING/EIG/zget24.f @@ -325,8 +325,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== @@ -335,10 +333,9 @@ $ RCDVIN, NSLCT, ISLCT, ISRT, RESULT, WORK, $ LWORK, RWORK, BWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL COMP diff --git a/lapack-netlib/TESTING/EIG/zget35.f b/lapack-netlib/TESTING/EIG/zget35.f index 2ea73a2c5..5da48bcb0 100644 --- a/lapack-netlib/TESTING/EIG/zget35.f +++ b/lapack-netlib/TESTING/EIG/zget35.f @@ -77,17 +77,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET35( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NIN, NINFO diff --git a/lapack-netlib/TESTING/EIG/zget36.f b/lapack-netlib/TESTING/EIG/zget36.f index d5bc06ea9..c7a79b99f 100644 --- a/lapack-netlib/TESTING/EIG/zget36.f +++ b/lapack-netlib/TESTING/EIG/zget36.f @@ -78,17 +78,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET36( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, LMAX, NIN, NINFO diff --git a/lapack-netlib/TESTING/EIG/zget37.f b/lapack-netlib/TESTING/EIG/zget37.f index 85aaf7949..63680e855 100644 --- a/lapack-netlib/TESTING/EIG/zget37.f +++ b/lapack-netlib/TESTING/EIG/zget37.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET37( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, NIN diff --git a/lapack-netlib/TESTING/EIG/zget38.f b/lapack-netlib/TESTING/EIG/zget38.f index c88a383bd..43b538fcf 100644 --- a/lapack-netlib/TESTING/EIG/zget38.f +++ b/lapack-netlib/TESTING/EIG/zget38.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET38( RMAX, LMAX, NINFO, KNT, NIN ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KNT, NIN diff --git a/lapack-netlib/TESTING/EIG/zget51.f b/lapack-netlib/TESTING/EIG/zget51.f index e019127a3..7b2ea679a 100644 --- a/lapack-netlib/TESTING/EIG/zget51.f +++ b/lapack-netlib/TESTING/EIG/zget51.f @@ -147,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET51( ITYPE, N, A, LDA, B, LDB, U, LDU, V, LDV, WORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ITYPE, LDA, LDB, LDU, LDV, N diff --git a/lapack-netlib/TESTING/EIG/zget52.f b/lapack-netlib/TESTING/EIG/zget52.f index 75126d33d..e22939a6c 100644 --- a/lapack-netlib/TESTING/EIG/zget52.f +++ b/lapack-netlib/TESTING/EIG/zget52.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET52( LEFT, N, A, LDA, B, LDB, E, LDE, ALPHA, BETA, $ WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LEFT @@ -238,7 +235,7 @@ BETMAX = SAFMAX / MAX( ONE, ANORM ) * * Compute error matrix. -* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B| |b(i) A| ) +* Column i = ( b(i) A - a(i) B ) E(i) / max( |a(i) B|, |b(i) A| ) * DO 10 JVEC = 1, N ALPHAI = ALPHA( JVEC ) @@ -278,7 +275,7 @@ DO 20 J = 1, N TEMP1 = MAX( TEMP1, ABS1( E( J, JVEC ) ) ) 20 CONTINUE - ENRMER = MAX( ENRMER, TEMP1-ONE ) + ENRMER = MAX( ENRMER, ABS( TEMP1-ONE ) ) 30 CONTINUE * * Compute RESULT(2) : the normalization error in E. diff --git a/lapack-netlib/TESTING/EIG/zget54.f b/lapack-netlib/TESTING/EIG/zget54.f index 106e29074..6ac622018 100644 --- a/lapack-netlib/TESTING/EIG/zget54.f +++ b/lapack-netlib/TESTING/EIG/zget54.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGET54( N, A, LDA, B, LDB, S, LDS, T, LDT, U, LDU, V, $ LDV, WORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDS, LDT, LDU, LDV, N diff --git a/lapack-netlib/TESTING/EIG/zglmts.f b/lapack-netlib/TESTING/EIG/zglmts.f index 344ae3a09..63664241d 100644 --- a/lapack-netlib/TESTING/EIG/zglmts.f +++ b/lapack-netlib/TESTING/EIG/zglmts.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, X, U, $ WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/zgqrts.f b/lapack-netlib/TESTING/EIG/zgqrts.f index c963dee93..7d331414a 100644 --- a/lapack-netlib/TESTING/EIG/zgqrts.f +++ b/lapack-netlib/TESTING/EIG/zgqrts.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/zgrqts.f b/lapack-netlib/TESTING/EIG/zgrqts.f index 3a1473723..f62b23a6f 100644 --- a/lapack-netlib/TESTING/EIG/zgrqts.f +++ b/lapack-netlib/TESTING/EIG/zgrqts.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZGRQTS( M, P, N, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, $ BWK, LDB, TAUB, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/zgsvts3.f b/lapack-netlib/TESTING/EIG/zgsvts3.f index fa9bb38d9..729a6f3ce 100644 --- a/lapack-netlib/TESTING/EIG/zgsvts3.f +++ b/lapack-netlib/TESTING/EIG/zgsvts3.f @@ -200,8 +200,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date August 2015 -* *> \ingroup complex16_eig * * ===================================================================== @@ -209,10 +207,9 @@ $ LDV, Q, LDQ, ALPHA, BETA, R, LDR, IWORK, WORK, $ LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* August 2015 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDQ, LDR, LDU, LDV, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/zhbt21.f b/lapack-netlib/TESTING/EIG/zhbt21.f index 68125854c..cedf8344f 100644 --- a/lapack-netlib/TESTING/EIG/zhbt21.f +++ b/lapack-netlib/TESTING/EIG/zhbt21.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZHBT21( UPLO, N, KA, KS, A, LDA, D, E, U, LDU, WORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/zhet21.f b/lapack-netlib/TESTING/EIG/zhet21.f index cb854a850..d254f85e9 100644 --- a/lapack-netlib/TESTING/EIG/zhet21.f +++ b/lapack-netlib/TESTING/EIG/zhet21.f @@ -206,18 +206,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZHET21( ITYPE, UPLO, N, KBAND, A, LDA, D, E, U, LDU, V, $ LDV, TAU, WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/zhet22.f b/lapack-netlib/TESTING/EIG/zhet22.f index 8ef73aef3..6606d250b 100644 --- a/lapack-netlib/TESTING/EIG/zhet22.f +++ b/lapack-netlib/TESTING/EIG/zhet22.f @@ -153,18 +153,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZHET22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, $ V, LDV, TAU, WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/zhpt21.f b/lapack-netlib/TESTING/EIG/zhpt21.f index 825d387c7..70734dafe 100644 --- a/lapack-netlib/TESTING/EIG/zhpt21.f +++ b/lapack-netlib/TESTING/EIG/zhpt21.f @@ -220,18 +220,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZHPT21( ITYPE, UPLO, N, KBAND, AP, D, E, U, LDU, VP, $ TAU, WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/zhst01.f b/lapack-netlib/TESTING/EIG/zhst01.f index b98045fab..ebb1c4895 100644 --- a/lapack-netlib/TESTING/EIG/zhst01.f +++ b/lapack-netlib/TESTING/EIG/zhst01.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZHST01( N, ILO, IHI, A, LDA, H, LDH, Q, LDQ, WORK, $ LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IHI, ILO, LDA, LDH, LDQ, LWORK, N diff --git a/lapack-netlib/TESTING/EIG/zlarfy.f b/lapack-netlib/TESTING/EIG/zlarfy.f index 57605731b..e0cb2f979 100644 --- a/lapack-netlib/TESTING/EIG/zlarfy.f +++ b/lapack-netlib/TESTING/EIG/zlarfy.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZLARFY( UPLO, N, V, INCV, TAU, C, LDC, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/zlarhs.f b/lapack-netlib/TESTING/EIG/zlarhs.f index f2fe47e9b..f5b03dbff 100644 --- a/lapack-netlib/TESTING/EIG/zlarhs.f +++ b/lapack-netlib/TESTING/EIG/zlarhs.f @@ -30,8 +30,7 @@ *> ZLARHS chooses a set of NRHS random solution vectors and sets *> up the right hand sides for the linear system *> op( A ) * X = B, -*> where op( A ) may be A, A**T (transpose of A), or A**H (conjugate -*> transpose of A). +*> where op(A) = A, A**T, or A**H, depending on TRANS. *> \endverbatim * * Arguments: @@ -85,9 +84,9 @@ *> TRANS is CHARACTER*1 *> Used only if A is nonsymmetric; specifies the operation *> applied to the matrix A. -*> = 'N': B := A * X -*> = 'T': B := A**T * X -*> = 'C': B := A**H * X +*> = 'N': B := A * X (No transpose) +*> = 'T': B := A**T * X (Transpose) +*> = 'C': B := A**H * X (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -201,18 +200,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS, UPLO, XTYPE diff --git a/lapack-netlib/TESTING/EIG/zlatm4.f b/lapack-netlib/TESTING/EIG/zlatm4.f index 429404f2f..122399387 100644 --- a/lapack-netlib/TESTING/EIG/zlatm4.f +++ b/lapack-netlib/TESTING/EIG/zlatm4.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZLATM4( ITYPE, N, NZ1, NZ2, RSIGN, AMAGN, RCOND, $ TRIANG, IDIST, ISEED, A, LDA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL RSIGN diff --git a/lapack-netlib/TESTING/EIG/zlctes.f b/lapack-netlib/TESTING/EIG/zlctes.f index 4b471b751..a7ac8b067 100644 --- a/lapack-netlib/TESTING/EIG/zlctes.f +++ b/lapack-netlib/TESTING/EIG/zlctes.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== LOGICAL FUNCTION ZLCTES( Z, D ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. COMPLEX*16 D, Z diff --git a/lapack-netlib/TESTING/EIG/zlctsx.f b/lapack-netlib/TESTING/EIG/zlctsx.f index 9f30e61fe..95d3e1325 100644 --- a/lapack-netlib/TESTING/EIG/zlctsx.f +++ b/lapack-netlib/TESTING/EIG/zlctsx.f @@ -50,17 +50,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== LOGICAL FUNCTION ZLCTSX( ALPHA, BETA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. COMPLEX*16 ALPHA, BETA diff --git a/lapack-netlib/TESTING/EIG/zlsets.f b/lapack-netlib/TESTING/EIG/zlsets.f index 6f324ea80..8c8ff01b2 100644 --- a/lapack-netlib/TESTING/EIG/zlsets.f +++ b/lapack-netlib/TESTING/EIG/zlsets.f @@ -143,18 +143,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, D, DF, $ X, WORK, LWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, P diff --git a/lapack-netlib/TESTING/EIG/zsbmv.f b/lapack-netlib/TESTING/EIG/zsbmv.f index 643882550..ad8baee59 100644 --- a/lapack-netlib/TESTING/EIG/zsbmv.f +++ b/lapack-netlib/TESTING/EIG/zsbmv.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/EIG/zsgt01.f b/lapack-netlib/TESTING/EIG/zsgt01.f index e512253db..97e10fcea 100644 --- a/lapack-netlib/TESTING/EIG/zsgt01.f +++ b/lapack-netlib/TESTING/EIG/zsgt01.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZSGT01( ITYPE, UPLO, N, M, A, LDA, B, LDB, Z, LDZ, D, $ WORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -250,6 +247,6 @@ * RETURN * -* End of CDGT01 +* End of ZDGT01 * END diff --git a/lapack-netlib/TESTING/EIG/zslect.f b/lapack-netlib/TESTING/EIG/zslect.f index 519c7764f..ec6ff4e01 100644 --- a/lapack-netlib/TESTING/EIG/zslect.f +++ b/lapack-netlib/TESTING/EIG/zslect.f @@ -49,17 +49,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_eig * * ===================================================================== LOGICAL FUNCTION ZSLECT( Z ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. COMPLEX*16 Z diff --git a/lapack-netlib/TESTING/EIG/zstt21.f b/lapack-netlib/TESTING/EIG/zstt21.f index f2e32a12e..4df1f7fe2 100644 --- a/lapack-netlib/TESTING/EIG/zstt21.f +++ b/lapack-netlib/TESTING/EIG/zstt21.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZSTT21( N, KBAND, AD, AE, SD, SE, U, LDU, WORK, RWORK, $ RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KBAND, LDU, N diff --git a/lapack-netlib/TESTING/EIG/zstt22.f b/lapack-netlib/TESTING/EIG/zstt22.f index c0f684fc3..b21773b16 100644 --- a/lapack-netlib/TESTING/EIG/zstt22.f +++ b/lapack-netlib/TESTING/EIG/zstt22.f @@ -137,18 +137,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZSTT22( N, M, KBAND, AD, AE, SD, SE, U, LDU, WORK, $ LDWORK, RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KBAND, LDU, LDWORK, M, N diff --git a/lapack-netlib/TESTING/EIG/zunt01.f b/lapack-netlib/TESTING/EIG/zunt01.f index d2d64227f..040c88f44 100644 --- a/lapack-netlib/TESTING/EIG/zunt01.f +++ b/lapack-netlib/TESTING/EIG/zunt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZUNT01( ROWCOL, M, N, U, LDU, WORK, LWORK, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER ROWCOL diff --git a/lapack-netlib/TESTING/EIG/zunt03.f b/lapack-netlib/TESTING/EIG/zunt03.f index 4560410a3..2ab2cde0d 100644 --- a/lapack-netlib/TESTING/EIG/zunt03.f +++ b/lapack-netlib/TESTING/EIG/zunt03.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_eig * * ===================================================================== SUBROUTINE ZUNT03( RC, MU, MV, N, K, U, LDU, V, LDV, WORK, LWORK, $ RWORK, RESULT, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*( * ) RC diff --git a/lapack-netlib/TESTING/LIN/CMakeLists.txt b/lapack-netlib/TESTING/LIN/CMakeLists.txt index fc55b8a96..2c3e2a5fd 100644 --- a/lapack-netlib/TESTING/LIN/CMakeLists.txt +++ b/lapack-netlib/TESTING/LIN/CMakeLists.txt @@ -239,8 +239,7 @@ set(ZLINTSTRFP zchkrfp.f zdrvrfp.f zdrvrf1.f zdrvrf2.f zdrvrf3.f zdrvrf4.f zerrr macro(add_lin_executable name) add_executable(${name} ${ARGN}) - target_link_libraries(${name} openblas${SUFFIX64_UNDERSCORE}) -#${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES}) + target_link_libraries(${name} ${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES}) endmacro() if(BUILD_SINGLE) diff --git a/lapack-netlib/TESTING/LIN/Makefile b/lapack-netlib/TESTING/LIN/Makefile index 54b26455e..8be813c8c 100644 --- a/lapack-netlib/TESTING/LIN/Makefile +++ b/lapack-netlib/TESTING/LIN/Makefile @@ -270,34 +270,34 @@ proto-complex: xlintstrfc proto-complex16: xlintstzc xlintstrfz xlintsts: $(ALINTST) $(SLINTST) $(SCLNTST) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(XBLASLIB) $(BLASLIB) - $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ xlintstc: $(ALINTST) $(CLINTST) $(SCLNTST) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(XBLASLIB) $(BLASLIB) - $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ xlintstd: $(ALINTST) $(DLINTST) $(DZLNTST) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(XBLASLIB) $(BLASLIB) - $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ xlintstz: $(ALINTST) $(ZLINTST) $(DZLNTST) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(XBLASLIB) $(BLASLIB) - $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ xlintstds: $(DSLINTST) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(BLASLIB) - $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ xlintstzc: $(ZCLINTST) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(BLASLIB) - $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ xlintstrfs: $(SLINTSTRFP) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(BLASLIB) - $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ xlintstrfd: $(DLINTSTRFP) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(BLASLIB) - $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ xlintstrfc: $(CLINTSTRFP) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(BLASLIB) - $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ xlintstrfz: $(ZLINTSTRFP) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(BLASLIB) - $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ $(ALINTST): $(FRC) $(SCLNTST): $(FRC) diff --git a/lapack-netlib/TESTING/LIN/aladhd.f b/lapack-netlib/TESTING/LIN/aladhd.f index a31621db2..f2a1c3951 100644 --- a/lapack-netlib/TESTING/LIN/aladhd.f +++ b/lapack-netlib/TESTING/LIN/aladhd.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_lin * * ===================================================================== SUBROUTINE ALADHD( IOUNIT, PATH ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/alaerh.f b/lapack-netlib/TESTING/LIN/alaerh.f index 5677940c8..1845888a6 100644 --- a/lapack-netlib/TESTING/LIN/alaerh.f +++ b/lapack-netlib/TESTING/LIN/alaerh.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_lin * * ===================================================================== SUBROUTINE ALAERH( PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU, $ N5, IMAT, NFAIL, NERRS, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/alaesm.f b/lapack-netlib/TESTING/LIN/alaesm.f index 6e01f2490..391da22d4 100644 --- a/lapack-netlib/TESTING/LIN/alaesm.f +++ b/lapack-netlib/TESTING/LIN/alaesm.f @@ -56,17 +56,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_lin * * ===================================================================== SUBROUTINE ALAESM( PATH, OK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL OK diff --git a/lapack-netlib/TESTING/LIN/alahd.f b/lapack-netlib/TESTING/LIN/alahd.f index 8f4cd58da..2cc0fba06 100644 --- a/lapack-netlib/TESTING/LIN/alahd.f +++ b/lapack-netlib/TESTING/LIN/alahd.f @@ -86,6 +86,8 @@ *> _QS: QR variants *> _QT: QRT (general matrices) *> _QX: QRT (triangular-pentagonal matrices) +*> _TS: QR routines for tall-skinny and short-wide matrices +*> _HH: Householder reconstruction for tall-skinny matrices *> The first character must be one of S, D, C, or Z (C or Z only *> if complex). *> \endverbatim @@ -98,17 +100,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_lin * * ===================================================================== SUBROUTINE ALAHD( IOUNIT, PATH ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -708,7 +707,7 @@ * ELSE IF( LSAMEN( 2, P2, 'TS' ) ) THEN * -* QRT (triangular-pentagonal) +* TS: QR routines for tall-skinny and short-wide matrices * WRITE( IOUNIT, FMT = 8004 ) PATH WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' ) @@ -718,6 +717,19 @@ WRITE( IOUNIT, FMT = 8038 ) 4 WRITE( IOUNIT, FMT = 8039 ) 5 WRITE( IOUNIT, FMT = 8040 ) 6 +* + ELSE IF( LSAMEN( 2, P2, 'HH' ) ) THEN +* +* HH: Householder reconstruction for tall-skinny matrices +* + WRITE( IOUNIT, FMT = 8005 ) PATH + WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' ) + WRITE( IOUNIT, FMT = 8050 ) 1 + WRITE( IOUNIT, FMT = 8051 ) 2 + WRITE( IOUNIT, FMT = 8052 ) 3 + WRITE( IOUNIT, FMT = 8053 ) 4 + WRITE( IOUNIT, FMT = 8054 ) 5 + WRITE( IOUNIT, FMT = 8055 ) 6 * ELSE * @@ -763,7 +775,9 @@ 8003 FORMAT( / 1X, A3, ': LQT factorization for ', $ 'triangular-pentagonal matrices' ) 8004 FORMAT( / 1X, A3, ': TS factorization for ', - $ 'tall-skiny or short-wide matrices' ) + $ 'tall-skinny or short-wide matrices' ) + 8005 FORMAT( / 1X, A3, ': Householder recostruction from TSQR', + $ ' factorization output ', /,' for tall-skinny matrices.' ) * * GE matrix types * @@ -1036,7 +1050,7 @@ 9929 FORMAT( ' Test ratios (1-3: ', A1, 'TZRZF):' ) 9920 FORMAT( 3X, ' 7-10: same as 3-6', 3X, ' 11-14: same as 3-6' ) 9921 FORMAT( ' Test ratios:', / ' (1-2: ', A1, 'GELS, 3-6: ', A1, - $ 'GELSY, 7-10: ', A1, 'GELSS, 11-14: ', A1, 'GELSD, 15-16: ' + $ 'GELSY, 7-10: ', A1, 'GELSS, 11-14: ', A1, 'GELSD, 15-16: ', $ A1, 'GETSLS)') 9928 FORMAT( 7X, 'where ALPHA = ( 1 + SQRT( 17 ) ) / 8' ) 9927 FORMAT( 3X, I2, ': ABS( Largest element in L )', / 12X, @@ -1081,6 +1095,14 @@ 8039 FORMAT(3X,I2,': norm( C*Q - C*Q ) / ( (M+N) * norm(C) * EPS )' ) 8040 FORMAT(3X,I2, $ ': norm( C*Q'' - C*Q'' ) / ( (M+N) * norm(C) * EPS )') +* + 8050 FORMAT(3X,I2,': norm( R - Q''*A ) / ( M * norm(A) * EPS )' ) + 8051 FORMAT(3X,I2,': norm( I - Q''*Q ) / ( M * EPS )' ) + 8052 FORMAT(3X,I2,': norm( Q*C - Q*C ) / ( M * norm(C) * EPS )' ) + 8053 FORMAT(3X,I2,': norm( Q''*C - Q''*C ) / ( M * norm(C) * EPS )') + 8054 FORMAT(3X,I2,': norm( C*Q - C*Q ) / ( M * norm(C) * EPS )' ) + 8055 FORMAT(3X,I2,': norm( C*Q'' - C*Q'' ) / ( M * norm(C) * EPS )') + * RETURN * diff --git a/lapack-netlib/TESTING/LIN/alareq.f b/lapack-netlib/TESTING/LIN/alareq.f index e1b084deb..db18775eb 100644 --- a/lapack-netlib/TESTING/LIN/alareq.f +++ b/lapack-netlib/TESTING/LIN/alareq.f @@ -83,17 +83,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_lin * * ===================================================================== SUBROUTINE ALAREQ( PATH, NMATS, DOTYPE, NTYPES, NIN, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/alasum.f b/lapack-netlib/TESTING/LIN/alasum.f index bd5d3af9b..432b8df45 100644 --- a/lapack-netlib/TESTING/LIN/alasum.f +++ b/lapack-netlib/TESTING/LIN/alasum.f @@ -66,17 +66,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_lin * * ===================================================================== SUBROUTINE ALASUM( TYPE, NOUT, NFAIL, NRUN, NERRS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 TYPE diff --git a/lapack-netlib/TESTING/LIN/alasvm.f b/lapack-netlib/TESTING/LIN/alasvm.f index 3fcbcca38..d9e500013 100644 --- a/lapack-netlib/TESTING/LIN/alasvm.f +++ b/lapack-netlib/TESTING/LIN/alasvm.f @@ -66,17 +66,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_lin * * ===================================================================== SUBROUTINE ALASVM( TYPE, NOUT, NFAIL, NRUN, NERRS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 TYPE diff --git a/lapack-netlib/TESTING/LIN/cchkeq.f b/lapack-netlib/TESTING/LIN/cchkeq.f index 7c79d68f8..e2f092fc6 100644 --- a/lapack-netlib/TESTING/LIN/cchkeq.f +++ b/lapack-netlib/TESTING/LIN/cchkeq.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CCHKEQ( THRESH, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NOUT diff --git a/lapack-netlib/TESTING/LIN/cchkgb.f b/lapack-netlib/TESTING/LIN/cchkgb.f index 4a3f187a1..9bb6f29b7 100644 --- a/lapack-netlib/TESTING/LIN/cchkgb.f +++ b/lapack-netlib/TESTING/LIN/cchkgb.f @@ -160,7 +160,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is REAL array, dimension -*> (max(NMAX,2*NSMAX)) +*> (NMAX+2*NSMAX) *> \endverbatim *> *> \param[out] IWORK @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -191,10 +189,9 @@ $ NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -566,7 +563,7 @@ END IF * *+ TEST 2: -* Solve and compute residual for A * X = B. +* Solve and compute residual for op(A) * X = B. * SRNAMT = 'CLARHS' CALL CLARHS( PATH, XTYPE, ' ', TRANS, N, @@ -592,7 +589,7 @@ $ WORK, LDB ) CALL CGBT02( TRANS, M, N, KL, KU, NRHS, A, $ LDA, X, LDB, WORK, LDB, - $ RESULT( 2 ) ) + $ RWORK, RESULT( 2 ) ) * *+ TEST 3: * Check solution from generated exact diff --git a/lapack-netlib/TESTING/LIN/cchkge.f b/lapack-netlib/TESTING/LIN/cchkge.f index 3fe22d0ef..0ee1c85c5 100644 --- a/lapack-netlib/TESTING/LIN/cchkge.f +++ b/lapack-netlib/TESTING/LIN/cchkge.f @@ -78,7 +78,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -177,8 +177,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -186,10 +184,9 @@ $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkgt.f b/lapack-netlib/TESTING/LIN/cchkgt.f index a6780400c..b6fd5e4b5 100644 --- a/lapack-netlib/TESTING/LIN/cchkgt.f +++ b/lapack-netlib/TESTING/LIN/cchkgt.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkhe.f b/lapack-netlib/TESTING/LIN/cchkhe.f index 72dd71f66..1ff025757 100644 --- a/lapack-netlib/TESTING/LIN/cchkhe.f +++ b/lapack-netlib/TESTING/LIN/cchkhe.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== @@ -171,10 +169,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkhe_aa.f b/lapack-netlib/TESTING/LIN/cchkhe_aa.f index 8dd551a72..487f9941e 100644 --- a/lapack-netlib/TESTING/LIN/cchkhe_aa.f +++ b/lapack-netlib/TESTING/LIN/cchkhe_aa.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,9 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* *> \ingroup complex_lin * * ===================================================================== @@ -172,10 +169,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/LIN/cchkhe_aa_2stage.f b/lapack-netlib/TESTING/LIN/cchkhe_aa_2stage.f index 06b2134fa..30a61261f 100644 --- a/lapack-netlib/TESTING/LIN/cchkhe_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/cchkhe_aa_2stage.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,9 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* *> \ingroup complex_lin * * ===================================================================== @@ -173,10 +170,9 @@ $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * @@ -579,6 +575,6 @@ c NT = 1 $ I6 ) RETURN * -* End of CCHKSY_AA_2STAGE +* End of CCHKHE_AA_2STAGE * END diff --git a/lapack-netlib/TESTING/LIN/cchkhe_rk.f b/lapack-netlib/TESTING/LIN/cchkhe_rk.f index 24a4f3785..4f9801f88 100644 --- a/lapack-netlib/TESTING/LIN/cchkhe_rk.f +++ b/lapack-netlib/TESTING/LIN/cchkhe_rk.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -177,10 +175,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -493,7 +490,7 @@ CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) SRNAMT = 'CHETRI_3' * -* Another reason that we need to compute the invesrse +* Another reason that we need to compute the inverse * is that CPOT03 produces RCONDC which is used later * in TEST6 and TEST7. * diff --git a/lapack-netlib/TESTING/LIN/cchkhe_rook.f b/lapack-netlib/TESTING/LIN/cchkhe_rook.f index ace7844f8..72a4a1d4d 100644 --- a/lapack-netlib/TESTING/LIN/cchkhe_rook.f +++ b/lapack-netlib/TESTING/LIN/cchkhe_rook.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -172,10 +170,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkhp.f b/lapack-netlib/TESTING/LIN/cchkhp.f index d07bfd24a..8d7cf477a 100644 --- a/lapack-netlib/TESTING/LIN/cchkhp.f +++ b/lapack-netlib/TESTING/LIN/cchkhp.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -164,10 +162,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchklq.f b/lapack-netlib/TESTING/LIN/cchklq.f index a407203f0..54107d047 100644 --- a/lapack-netlib/TESTING/LIN/cchklq.f +++ b/lapack-netlib/TESTING/LIN/cchklq.f @@ -187,8 +187,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -196,10 +194,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchklqt.f b/lapack-netlib/TESTING/LIN/cchklqt.f index 8dfd394c6..7ec8b2c62 100644 --- a/lapack-netlib/TESTING/LIN/cchklqt.f +++ b/lapack-netlib/TESTING/LIN/cchklqt.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchklqtp.f b/lapack-netlib/TESTING/LIN/cchklqtp.f index 1ecc1072d..987c0c365 100644 --- a/lapack-netlib/TESTING/LIN/cchklqtp.f +++ b/lapack-netlib/TESTING/LIN/cchklqtp.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkpb.f b/lapack-netlib/TESTING/LIN/cchkpb.f index 8517168fe..4d1ab6f4f 100644 --- a/lapack-netlib/TESTING/LIN/cchkpb.f +++ b/lapack-netlib/TESTING/LIN/cchkpb.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -168,10 +166,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkpo.f b/lapack-netlib/TESTING/LIN/cchkpo.f index 93ad9c34f..8cf85bf6e 100644 --- a/lapack-netlib/TESTING/LIN/cchkpo.f +++ b/lapack-netlib/TESTING/LIN/cchkpo.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -168,10 +166,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkpp.f b/lapack-netlib/TESTING/LIN/cchkpp.f index 9d7a8b5c6..8b736e52b 100644 --- a/lapack-netlib/TESTING/LIN/cchkpp.f +++ b/lapack-netlib/TESTING/LIN/cchkpp.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -159,10 +157,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkps.f b/lapack-netlib/TESTING/LIN/cchkps.f index cf1da91bf..d77ffc026 100644 --- a/lapack-netlib/TESTING/LIN/cchkps.f +++ b/lapack-netlib/TESTING/LIN/cchkps.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the block size NB. *> \endverbatim *> @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -154,10 +152,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL THRESH diff --git a/lapack-netlib/TESTING/LIN/cchkpt.f b/lapack-netlib/TESTING/LIN/cchkpt.f index a1c28af76..2ec802064 100644 --- a/lapack-netlib/TESTING/LIN/cchkpt.f +++ b/lapack-netlib/TESTING/LIN/cchkpt.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, D, E, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkq3.f b/lapack-netlib/TESTING/LIN/cchkq3.f index 10c29e14e..e06565539 100644 --- a/lapack-netlib/TESTING/LIN/cchkq3.f +++ b/lapack-netlib/TESTING/LIN/cchkq3.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -158,10 +156,9 @@ $ THRESH, A, COPYA, S, TAU, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NM, NN, NNB, NOUT diff --git a/lapack-netlib/TESTING/LIN/cchkql.f b/lapack-netlib/TESTING/LIN/cchkql.f index 12b7ceded..34c6ca6a7 100644 --- a/lapack-netlib/TESTING/LIN/cchkql.f +++ b/lapack-netlib/TESTING/LIN/cchkql.f @@ -187,8 +187,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -196,10 +194,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkqr.f b/lapack-netlib/TESTING/LIN/cchkqr.f index 7c9ded012..7ea178eaf 100644 --- a/lapack-netlib/TESTING/LIN/cchkqr.f +++ b/lapack-netlib/TESTING/LIN/cchkqr.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -201,10 +199,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkqrt.f b/lapack-netlib/TESTING/LIN/cchkqrt.f index 6f5552bb3..7aeb6df4b 100644 --- a/lapack-netlib/TESTING/LIN/cchkqrt.f +++ b/lapack-netlib/TESTING/LIN/cchkqrt.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -103,10 +101,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkqrtp.f b/lapack-netlib/TESTING/LIN/cchkqrtp.f index 3d8dd2a38..6820c9004 100644 --- a/lapack-netlib/TESTING/LIN/cchkqrtp.f +++ b/lapack-netlib/TESTING/LIN/cchkqrtp.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -103,10 +101,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkrfp.f b/lapack-netlib/TESTING/LIN/cchkrfp.f index 6a692f71d..58d55c31c 100644 --- a/lapack-netlib/TESTING/LIN/cchkrfp.f +++ b/lapack-netlib/TESTING/LIN/cchkrfp.f @@ -52,17 +52,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex_lin * * ===================================================================== PROGRAM CCHKRFP * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/LIN/cchkrq.f b/lapack-netlib/TESTING/LIN/cchkrq.f index 9a42dc135..48050c51f 100644 --- a/lapack-netlib/TESTING/LIN/cchkrq.f +++ b/lapack-netlib/TESTING/LIN/cchkrq.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -201,10 +199,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchksp.f b/lapack-netlib/TESTING/LIN/cchksp.f index 5109ac740..584cf426c 100644 --- a/lapack-netlib/TESTING/LIN/cchksp.f +++ b/lapack-netlib/TESTING/LIN/cchksp.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -164,10 +162,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchksy.f b/lapack-netlib/TESTING/LIN/cchksy.f index d25417f7a..c933f0c96 100644 --- a/lapack-netlib/TESTING/LIN/cchksy.f +++ b/lapack-netlib/TESTING/LIN/cchksy.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== @@ -171,10 +169,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchksy_aa.f b/lapack-netlib/TESTING/LIN/cchksy_aa.f index 3a38d87a4..015d5a68e 100644 --- a/lapack-netlib/TESTING/LIN/cchksy_aa.f +++ b/lapack-netlib/TESTING/LIN/cchksy_aa.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -161,10 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* @generated from LIN/dchksy_aa.f, fortran d -> c, Wed Nov 16 21:34:18 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -172,10 +168,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/LIN/cchksy_aa_2stage.f b/lapack-netlib/TESTING/LIN/cchksy_aa_2stage.f index c17ae54e6..bede7cca5 100644 --- a/lapack-netlib/TESTING/LIN/cchksy_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/cchksy_aa_2stage.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex_lin * * ===================================================================== @@ -172,10 +170,9 @@ $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/LIN/cchksy_rk.f b/lapack-netlib/TESTING/LIN/cchksy_rk.f index 9475bb753..f4954054f 100644 --- a/lapack-netlib/TESTING/LIN/cchksy_rk.f +++ b/lapack-netlib/TESTING/LIN/cchksy_rk.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -177,10 +175,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -505,7 +502,7 @@ CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) SRNAMT = 'CSYTRI_3' * -* Another reason that we need to compute the invesrse +* Another reason that we need to compute the inverse * is that CSYT03 produces RCONDC which is used later * in TEST6 and TEST7. * diff --git a/lapack-netlib/TESTING/LIN/cchksy_rook.f b/lapack-netlib/TESTING/LIN/cchksy_rook.f index 84802f3b8..203108980 100644 --- a/lapack-netlib/TESTING/LIN/cchksy_rook.f +++ b/lapack-netlib/TESTING/LIN/cchksy_rook.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -172,10 +170,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchktb.f b/lapack-netlib/TESTING/LIN/cchktb.f index 027e3ecd8..865b9de32 100644 --- a/lapack-netlib/TESTING/LIN/cchktb.f +++ b/lapack-netlib/TESTING/LIN/cchktb.f @@ -141,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, AB, AINV, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchktp.f b/lapack-netlib/TESTING/LIN/cchktp.f index 98c4b080b..18242ff54 100644 --- a/lapack-netlib/TESTING/LIN/cchktp.f +++ b/lapack-netlib/TESTING/LIN/cchktp.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -151,10 +149,9 @@ $ NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchktr.f b/lapack-netlib/TESTING/LIN/cchktr.f index ec731b73d..ce1ecf761 100644 --- a/lapack-netlib/TESTING/LIN/cchktr.f +++ b/lapack-netlib/TESTING/LIN/cchktr.f @@ -154,8 +154,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -163,10 +161,9 @@ $ THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, $ WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchktsqr.f b/lapack-netlib/TESTING/LIN/cchktsqr.f index 62b6ce434..0a85d7cf1 100644 --- a/lapack-netlib/TESTING/LIN/cchktsqr.f +++ b/lapack-netlib/TESTING/LIN/cchktsqr.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -254,6 +251,6 @@ $ ', NB=', I5,' test(', I2, ')=', G12.5 ) RETURN * -* End of CCHKQRT +* End of CCHKTSQR * END diff --git a/lapack-netlib/TESTING/LIN/cchktz.f b/lapack-netlib/TESTING/LIN/cchktz.f index 4926773a6..192b1c390 100644 --- a/lapack-netlib/TESTING/LIN/cchktz.f +++ b/lapack-netlib/TESTING/LIN/cchktz.f @@ -129,18 +129,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, $ COPYA, S, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cchkunhr_col.f b/lapack-netlib/TESTING/LIN/cchkunhr_col.f index 0d6a9063d..b2f233e25 100644 --- a/lapack-netlib/TESTING/LIN/cchkunhr_col.f +++ b/lapack-netlib/TESTING/LIN/cchkunhr_col.f @@ -82,7 +82,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> diff --git a/lapack-netlib/TESTING/LIN/cdrvgb.f b/lapack-netlib/TESTING/LIN/cdrvgb.f index 42e26028a..389725eae 100644 --- a/lapack-netlib/TESTING/LIN/cdrvgb.f +++ b/lapack-netlib/TESTING/LIN/cdrvgb.f @@ -141,7 +141,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is REAL array, dimension -*> (max(NMAX,2*NRHS)) +*> (NMAX+2*NRHS) *> \endverbatim *> *> \param[out] IWORK @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -172,10 +170,9 @@ $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -585,7 +582,8 @@ $ WORK, LDB ) CALL CGBT02( 'No transpose', N, N, KL, $ KU, NRHS, A, LDA, X, LDB, - $ WORK, LDB, RESULT( 2 ) ) + $ WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact * solution. @@ -702,6 +700,7 @@ $ WORK, LDB ) CALL CGBT02( TRANS, N, N, KL, KU, NRHS, $ ASAV, LDA, X, LDB, WORK, LDB, + $ RWORK( 2*NRHS+1 ), $ RESULT( 2 ) ) * * Check solution from generated exact diff --git a/lapack-netlib/TESTING/LIN/cdrvgbx.f b/lapack-netlib/TESTING/LIN/cdrvgbx.f index b043c1089..68ff66e07 100644 --- a/lapack-netlib/TESTING/LIN/cdrvgbx.f +++ b/lapack-netlib/TESTING/LIN/cdrvgbx.f @@ -144,7 +144,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is REAL array, dimension -*> (max(NMAX,2*NRHS)) +*> (max(2*NMAX,NMAX+2*NRHS)) *> \endverbatim *> *> \param[out] IWORK @@ -166,8 +166,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -175,10 +173,9 @@ $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -593,7 +590,8 @@ $ WORK, LDB ) CALL CGBT02( 'No transpose', N, N, KL, $ KU, NRHS, A, LDA, X, LDB, - $ WORK, LDB, RESULT( 2 ) ) + $ WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact * solution. @@ -711,6 +709,7 @@ $ WORK, LDB ) CALL CGBT02( TRANS, N, N, KL, KU, NRHS, $ ASAV, LDA, X, LDB, WORK, LDB, + $ RWORK( 2*NRHS+1 ), $ RESULT( 2 ) ) * * Check solution from generated exact @@ -900,7 +899,8 @@ c write(*,*) 'begin cgbsvxx testing' CALL CLACPY( 'Full', N, NRHS, BSAV, LDB, WORK, $ LDB ) CALL CGBT02( TRANS, N, N, KL, KU, NRHS, ASAV, - $ LDA, X, LDB, WORK, LDB, RESULT( 2 ) ) + $ LDA, X, LDB, WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact solution. * @@ -1030,6 +1030,6 @@ c write(*,*) 'begin cgbsvxx testing' * RETURN * -* End of CDRVGB +* End of CDRVGBX * END diff --git a/lapack-netlib/TESTING/LIN/cdrvge.f b/lapack-netlib/TESTING/LIN/cdrvge.f index 054e7e84e..386bd3108 100644 --- a/lapack-netlib/TESTING/LIN/cdrvge.f +++ b/lapack-netlib/TESTING/LIN/cdrvge.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -164,10 +162,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvgex.f b/lapack-netlib/TESTING/LIN/cdrvgex.f index 9b075908f..d989261db 100644 --- a/lapack-netlib/TESTING/LIN/cdrvgex.f +++ b/lapack-netlib/TESTING/LIN/cdrvgex.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex_lin * * ===================================================================== @@ -167,10 +165,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -892,6 +889,6 @@ $ G12.5 ) RETURN * -* End of CDRVGE +* End of CDRVGEX * END diff --git a/lapack-netlib/TESTING/LIN/cdrvgt.f b/lapack-netlib/TESTING/LIN/cdrvgt.f index 8d431efc5..8d43f640f 100644 --- a/lapack-netlib/TESTING/LIN/cdrvgt.f +++ b/lapack-netlib/TESTING/LIN/cdrvgt.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvhe.f b/lapack-netlib/TESTING/LIN/cdrvhe.f index 9d5beb843..de7851e0f 100644 --- a/lapack-netlib/TESTING/LIN/cdrvhe.f +++ b/lapack-netlib/TESTING/LIN/cdrvhe.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== @@ -153,10 +151,9 @@ $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvhe_aa.f b/lapack-netlib/TESTING/LIN/cdrvhe_aa.f index d56aa45b0..70c4a7e31 100644 --- a/lapack-netlib/TESTING/LIN/cdrvhe_aa.f +++ b/lapack-netlib/TESTING/LIN/cdrvhe_aa.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex_lin * * ===================================================================== @@ -153,10 +151,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvhe_aa_2stage.f b/lapack-netlib/TESTING/LIN/cdrvhe_aa_2stage.f index 959258e1f..51cef512d 100644 --- a/lapack-netlib/TESTING/LIN/cdrvhe_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/cdrvhe_aa_2stage.f @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex_lin * * ===================================================================== @@ -155,10 +153,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvhe_rk.f b/lapack-netlib/TESTING/LIN/cdrvhe_rk.f index f410277b4..72669ccd1 100644 --- a/lapack-netlib/TESTING/LIN/cdrvhe_rk.f +++ b/lapack-netlib/TESTING/LIN/cdrvhe_rk.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -158,10 +156,9 @@ $ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -414,7 +411,7 @@ CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) LWORK = (N+NB+1)*(NB+3) * -* We need to copute the invesrse to compute +* We need to compute the inverse to compute * RCONDC that is used later in TEST3. * CALL CSYTRI_3( UPLO, N, AINV, LDA, E, IWORK, diff --git a/lapack-netlib/TESTING/LIN/cdrvhe_rook.f b/lapack-netlib/TESTING/LIN/cdrvhe_rook.f index 6110aadf9..d2f3cb797 100644 --- a/lapack-netlib/TESTING/LIN/cdrvhe_rook.f +++ b/lapack-netlib/TESTING/LIN/cdrvhe_rook.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== @@ -153,10 +151,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvhex.f b/lapack-netlib/TESTING/LIN/cdrvhex.f index c6604c392..940ad416d 100644 --- a/lapack-netlib/TESTING/LIN/cdrvhex.f +++ b/lapack-netlib/TESTING/LIN/cdrvhex.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex_lin * * ===================================================================== @@ -157,10 +155,9 @@ $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -718,6 +715,6 @@ $ ', type ', I2, ', test ', I2, ', ratio =', G12.5 ) RETURN * -* End of CDRVHE +* End of CDRVHEX * END diff --git a/lapack-netlib/TESTING/LIN/cdrvhp.f b/lapack-netlib/TESTING/LIN/cdrvhp.f index 875c894fe..27ff71c5e 100644 --- a/lapack-netlib/TESTING/LIN/cdrvhp.f +++ b/lapack-netlib/TESTING/LIN/cdrvhp.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -157,10 +155,9 @@ $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvls.f b/lapack-netlib/TESTING/LIN/cdrvls.f index f43c10b72..7fe189e5f 100644 --- a/lapack-netlib/TESTING/LIN/cdrvls.f +++ b/lapack-netlib/TESTING/LIN/cdrvls.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_lin * * ===================================================================== @@ -192,10 +190,9 @@ $ NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, $ COPYB, C, S, COPYS, NOUT ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvpb.f b/lapack-netlib/TESTING/LIN/cdrvpb.f index fb43d7f73..7f8a84628 100644 --- a/lapack-netlib/TESTING/LIN/cdrvpb.f +++ b/lapack-netlib/TESTING/LIN/cdrvpb.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -159,10 +157,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvpo.f b/lapack-netlib/TESTING/LIN/cdrvpo.f index 8f484d6de..88cca10df 100644 --- a/lapack-netlib/TESTING/LIN/cdrvpo.f +++ b/lapack-netlib/TESTING/LIN/cdrvpo.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -159,10 +157,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvpox.f b/lapack-netlib/TESTING/LIN/cdrvpox.f index cc08095d6..4103b543e 100644 --- a/lapack-netlib/TESTING/LIN/cdrvpox.f +++ b/lapack-netlib/TESTING/LIN/cdrvpox.f @@ -153,8 +153,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -162,10 +160,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -734,6 +731,6 @@ $ G12.5 ) RETURN * -* End of CDRVPO +* End of CDRVPOX * END diff --git a/lapack-netlib/TESTING/LIN/cdrvpp.f b/lapack-netlib/TESTING/LIN/cdrvpp.f index 5e38c1850..c2fa2eb76 100644 --- a/lapack-netlib/TESTING/LIN/cdrvpp.f +++ b/lapack-netlib/TESTING/LIN/cdrvpp.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -159,10 +157,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvpt.f b/lapack-netlib/TESTING/LIN/cdrvpt.f index 926f22378..41a868b74 100644 --- a/lapack-netlib/TESTING/LIN/cdrvpt.f +++ b/lapack-netlib/TESTING/LIN/cdrvpt.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, $ E, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvrf1.f b/lapack-netlib/TESTING/LIN/cdrvrf1.f index eb3949807..dec82def2 100644 --- a/lapack-netlib/TESTING/LIN/cdrvrf1.f +++ b/lapack-netlib/TESTING/LIN/cdrvrf1.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/cdrvrf2.f b/lapack-netlib/TESTING/LIN/cdrvrf2.f index d1b9c8752..774e3880f 100644 --- a/lapack-netlib/TESTING/LIN/cdrvrf2.f +++ b/lapack-netlib/TESTING/LIN/cdrvrf2.f @@ -82,17 +82,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/cdrvrf3.f b/lapack-netlib/TESTING/LIN/cdrvrf3.f index 2c71d0fc5..1ca816979 100644 --- a/lapack-netlib/TESTING/LIN/cdrvrf3.f +++ b/lapack-netlib/TESTING/LIN/cdrvrf3.f @@ -111,18 +111,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, + S_WORK_CLANGE, C_WORK_CGEQRF, TAU ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT @@ -259,8 +256,8 @@ * Generate A our NA--by--NA triangular * 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 +* do want A to be well conditioned! To get +* a well-conditioned triangular matrix, we * take the R factor of the QR/LQ factorization * of a random matrix. * diff --git a/lapack-netlib/TESTING/LIN/cdrvrf4.f b/lapack-netlib/TESTING/LIN/cdrvrf4.f index d3e6a39c8..047c1760b 100644 --- a/lapack-netlib/TESTING/LIN/cdrvrf4.f +++ b/lapack-netlib/TESTING/LIN/cdrvrf4.f @@ -106,18 +106,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, + LDA, S_WORK_CLANGE ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, LDC, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/cdrvrfp.f b/lapack-netlib/TESTING/LIN/cdrvrfp.f index 362a0e7cb..cffa28d5f 100644 --- a/lapack-netlib/TESTING/LIN/cdrvrfp.f +++ b/lapack-netlib/TESTING/LIN/cdrvrfp.f @@ -232,8 +232,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -244,10 +242,9 @@ + C_WORK_CPOT03, S_WORK_CLATMS, S_WORK_CLANHE, + S_WORK_CPOT01, S_WORK_CPOT02, S_WORK_CPOT03 ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NN, NNS, NNT, NOUT diff --git a/lapack-netlib/TESTING/LIN/cdrvsp.f b/lapack-netlib/TESTING/LIN/cdrvsp.f index 169ebaa5a..d7a9748d1 100644 --- a/lapack-netlib/TESTING/LIN/cdrvsp.f +++ b/lapack-netlib/TESTING/LIN/cdrvsp.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -157,10 +155,9 @@ $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvsy.f b/lapack-netlib/TESTING/LIN/cdrvsy.f index 475e90200..27a697e8b 100644 --- a/lapack-netlib/TESTING/LIN/cdrvsy.f +++ b/lapack-netlib/TESTING/LIN/cdrvsy.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== @@ -153,10 +151,9 @@ $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvsy_aa.f b/lapack-netlib/TESTING/LIN/cdrvsy_aa.f index a9e53de4f..7814d3ae6 100644 --- a/lapack-netlib/TESTING/LIN/cdrvsy_aa.f +++ b/lapack-netlib/TESTING/LIN/cdrvsy_aa.f @@ -144,10 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* @generated from LIN/ddrvsy_aa.f, fortran d -> c, Thu Nov 17 12:14:51 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -155,10 +151,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvsy_aa_2stage.f b/lapack-netlib/TESTING/LIN/cdrvsy_aa_2stage.f index 2b766bcbd..3059a4c9c 100644 --- a/lapack-netlib/TESTING/LIN/cdrvsy_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/cdrvsy_aa_2stage.f @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex_lin * * ===================================================================== @@ -155,10 +153,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -485,6 +482,6 @@ c NT = 2 $ ', test ', I2, ', ratio =', G12.5 ) RETURN * -* End of SDRVSY_AA_2STAGE +* End of CSDRVSY_AA_2STAGE * END diff --git a/lapack-netlib/TESTING/LIN/cdrvsy_rk.f b/lapack-netlib/TESTING/LIN/cdrvsy_rk.f index d3ed8c0a9..baa9e178d 100644 --- a/lapack-netlib/TESTING/LIN/cdrvsy_rk.f +++ b/lapack-netlib/TESTING/LIN/cdrvsy_rk.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -157,10 +155,9 @@ $ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -423,7 +420,7 @@ CALL CLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) LWORK = (N+NB+1)*(NB+3) * -* We need to copute the invesrse to compute +* We need to compute the inverse to compute * RCONDC that is used later in TEST3. * CALL CSYTRI_3( UPLO, N, AINV, LDA, E, IWORK, diff --git a/lapack-netlib/TESTING/LIN/cdrvsy_rook.f b/lapack-netlib/TESTING/LIN/cdrvsy_rook.f index 4dab87576..4dc04c029 100644 --- a/lapack-netlib/TESTING/LIN/cdrvsy_rook.f +++ b/lapack-netlib/TESTING/LIN/cdrvsy_rook.f @@ -143,8 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== @@ -152,10 +150,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/cdrvsyx.f b/lapack-netlib/TESTING/LIN/cdrvsyx.f index cc4f754ce..309f7f870 100644 --- a/lapack-netlib/TESTING/LIN/cdrvsyx.f +++ b/lapack-netlib/TESTING/LIN/cdrvsyx.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex_lin * * ===================================================================== @@ -157,10 +155,9 @@ $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -724,6 +721,6 @@ $ ', type ', I2, ', test ', I2, ', ratio =', G12.5 ) RETURN * -* End of CDRVSY +* End of CDRVSYX * END diff --git a/lapack-netlib/TESTING/LIN/cebchvxx.f b/lapack-netlib/TESTING/LIN/cebchvxx.f index 00f92f4e3..a10a8f6f7 100644 --- a/lapack-netlib/TESTING/LIN/cebchvxx.f +++ b/lapack-netlib/TESTING/LIN/cebchvxx.f @@ -89,8 +89,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -504,5 +502,7 @@ c$$$ WRITE(*,*) 8000 FORMAT( ' C', A2, 'SVXX: N =', I2, ', INFO = ', I3, $ ', ORCOND = ', G12.5, ', real RCOND = ', G12.5 ) - +* +* End of CEBCHVXX +* END diff --git a/lapack-netlib/TESTING/LIN/cerrge.f b/lapack-netlib/TESTING/LIN/cerrge.f index 93f26f9dc..1fcf656f7 100644 --- a/lapack-netlib/TESTING/LIN/cerrge.f +++ b/lapack-netlib/TESTING/LIN/cerrge.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRGE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrgex.f b/lapack-netlib/TESTING/LIN/cerrgex.f index 02230245b..9858faeaa 100644 --- a/lapack-netlib/TESTING/LIN/cerrgex.f +++ b/lapack-netlib/TESTING/LIN/cerrgex.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRGE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -560,6 +557,6 @@ * RETURN * -* End of CERRGE +* End of CERRGEX * END diff --git a/lapack-netlib/TESTING/LIN/cerrgt.f b/lapack-netlib/TESTING/LIN/cerrgt.f index f95db6706..c342133eb 100644 --- a/lapack-netlib/TESTING/LIN/cerrgt.f +++ b/lapack-netlib/TESTING/LIN/cerrgt.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRGT( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrhe.f b/lapack-netlib/TESTING/LIN/cerrhe.f index 9e8daa219..d0c5cf6b5 100644 --- a/lapack-netlib/TESTING/LIN/cerrhe.f +++ b/lapack-netlib/TESTING/LIN/cerrhe.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRHE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrhex.f b/lapack-netlib/TESTING/LIN/cerrhex.f index e10a5404f..b6c889798 100644 --- a/lapack-netlib/TESTING/LIN/cerrhex.f +++ b/lapack-netlib/TESTING/LIN/cerrhex.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRHE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -609,6 +606,6 @@ * RETURN * -* End of CERRHE +* End of CERRHEX * END diff --git a/lapack-netlib/TESTING/LIN/cerrlq.f b/lapack-netlib/TESTING/LIN/cerrlq.f index 822380c9a..1036835b4 100644 --- a/lapack-netlib/TESTING/LIN/cerrlq.f +++ b/lapack-netlib/TESTING/LIN/cerrlq.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRLQ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrlqt.f b/lapack-netlib/TESTING/LIN/cerrlqt.f index 6e2d8b321..4ee50cd6c 100644 --- a/lapack-netlib/TESTING/LIN/cerrlqt.f +++ b/lapack-netlib/TESTING/LIN/cerrlqt.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE CERRLQT( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrlqtp.f b/lapack-netlib/TESTING/LIN/cerrlqtp.f index 7786dc1d3..a4e7f9d48 100644 --- a/lapack-netlib/TESTING/LIN/cerrlqtp.f +++ b/lapack-netlib/TESTING/LIN/cerrlqtp.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE CERRLQTP( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -220,6 +217,6 @@ * RETURN * -* End of CERRLQT +* End of CERRLQTP * END diff --git a/lapack-netlib/TESTING/LIN/cerrls.f b/lapack-netlib/TESTING/LIN/cerrls.f index 5510b1c5e..48e44ad86 100644 --- a/lapack-netlib/TESTING/LIN/cerrls.f +++ b/lapack-netlib/TESTING/LIN/cerrls.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRLS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrpo.f b/lapack-netlib/TESTING/LIN/cerrpo.f index 19f7afbad..40ebe5220 100644 --- a/lapack-netlib/TESTING/LIN/cerrpo.f +++ b/lapack-netlib/TESTING/LIN/cerrpo.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRPO( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrpox.f b/lapack-netlib/TESTING/LIN/cerrpox.f index eee3726eb..2973a1da5 100644 --- a/lapack-netlib/TESTING/LIN/cerrpox.f +++ b/lapack-netlib/TESTING/LIN/cerrpox.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRPO( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -532,6 +529,6 @@ * RETURN * -* End of CERRPO +* End of CERRPOX * END diff --git a/lapack-netlib/TESTING/LIN/cerrps.f b/lapack-netlib/TESTING/LIN/cerrps.f index f9aa3cf14..6b19424bc 100644 --- a/lapack-netlib/TESTING/LIN/cerrps.f +++ b/lapack-netlib/TESTING/LIN/cerrps.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRPS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/cerrql.f b/lapack-netlib/TESTING/LIN/cerrql.f index 716417b8c..50f97d4dc 100644 --- a/lapack-netlib/TESTING/LIN/cerrql.f +++ b/lapack-netlib/TESTING/LIN/cerrql.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRQL( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrqp.f b/lapack-netlib/TESTING/LIN/cerrqp.f index 3ed463ad8..a2188a71a 100644 --- a/lapack-netlib/TESTING/LIN/cerrqp.f +++ b/lapack-netlib/TESTING/LIN/cerrqp.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRQP( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrqr.f b/lapack-netlib/TESTING/LIN/cerrqr.f index e124d0f81..21cf22936 100644 --- a/lapack-netlib/TESTING/LIN/cerrqr.f +++ b/lapack-netlib/TESTING/LIN/cerrqr.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRQR( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrqrt.f b/lapack-netlib/TESTING/LIN/cerrqrt.f index f391a9b32..48ca7df40 100644 --- a/lapack-netlib/TESTING/LIN/cerrqrt.f +++ b/lapack-netlib/TESTING/LIN/cerrqrt.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRQRT( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrqrtp.f b/lapack-netlib/TESTING/LIN/cerrqrtp.f index 34e2ecd39..eec35b3bd 100644 --- a/lapack-netlib/TESTING/LIN/cerrqrtp.f +++ b/lapack-netlib/TESTING/LIN/cerrqrtp.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRQRTP( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -224,6 +221,6 @@ * RETURN * -* End of CERRQRT +* End of CERRQRTP * END diff --git a/lapack-netlib/TESTING/LIN/cerrrfp.f b/lapack-netlib/TESTING/LIN/cerrrfp.f index da02a8885..4f2196c32 100644 --- a/lapack-netlib/TESTING/LIN/cerrrfp.f +++ b/lapack-netlib/TESTING/LIN/cerrrfp.f @@ -45,17 +45,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRRFP( NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/cerrrq.f b/lapack-netlib/TESTING/LIN/cerrrq.f index bcacdc349..2c8c5978f 100644 --- a/lapack-netlib/TESTING/LIN/cerrrq.f +++ b/lapack-netlib/TESTING/LIN/cerrrq.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRRQ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrsy.f b/lapack-netlib/TESTING/LIN/cerrsy.f index 17c9f36fb..a236d2d18 100644 --- a/lapack-netlib/TESTING/LIN/cerrsy.f +++ b/lapack-netlib/TESTING/LIN/cerrsy.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRSY( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrsyx.f b/lapack-netlib/TESTING/LIN/cerrsyx.f index 617354fab..34972668e 100644 --- a/lapack-netlib/TESTING/LIN/cerrsyx.f +++ b/lapack-netlib/TESTING/LIN/cerrsyx.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRSY( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -607,6 +604,6 @@ * RETURN * -* End of CERRSY +* End of CERRSYX * END diff --git a/lapack-netlib/TESTING/LIN/cerrtr.f b/lapack-netlib/TESTING/LIN/cerrtr.f index a06c0d751..db65edd88 100644 --- a/lapack-netlib/TESTING/LIN/cerrtr.f +++ b/lapack-netlib/TESTING/LIN/cerrtr.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRTR( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrtsqr.f b/lapack-netlib/TESTING/LIN/cerrtsqr.f index b9d6ce3c3..165c8d681 100644 --- a/lapack-netlib/TESTING/LIN/cerrtsqr.f +++ b/lapack-netlib/TESTING/LIN/cerrtsqr.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Zenver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE CERRTSQR( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -73,7 +70,7 @@ PARAMETER ( NMAX = 2 ) * .. * .. Local Scalars .. - INTEGER I, INFO, J, NB + INTEGER I, INFO, J, MB, NB * .. * .. Local Arrays .. COMPLEX A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ), @@ -133,6 +130,35 @@ CALL CGEQR( 3, 2, A, 3, TAU, 8, W, 0, INFO ) CALL CHKXER( 'CGEQR', INFOT, NOUT, LERR, OK ) * +* CLATSQR +* + MB = 1 + NB = 1 + SRNAMT = 'CLATSQR' + INFOT = 1 + CALL CLATSQR( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL CLATSQR( 1, 2, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK ) + CALL CLATSQR( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL CLATSQR( 2, 1, -1, NB, A, 2, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 4 + CALL CLATSQR( 2, 1, MB, 2, A, 2, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 6 + CALL CLATSQR( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL CLATSQR( 2, 1, MB, NB, A, 2, TAU, 0, W, 1, INFO ) + CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL CLATSQR( 2, 1, MB, NB, A, 2, TAU, 2, W, 0, INFO ) + CALL CHKXER( 'CLATSQR', INFOT, NOUT, LERR, OK ) +* * CGEMQR * TAU(1)=1 @@ -192,6 +218,37 @@ CALL CGELQ( 2, 3, A, 3, TAU, 8, W, 0, INFO ) CALL CHKXER( 'CGELQ', INFOT, NOUT, LERR, OK ) * +* CLASWLQ +* + MB = 1 + NB = 1 + SRNAMT = 'CLASWLQ' + INFOT = 1 + CALL CLASWLQ( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL CLASWLQ( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK ) + CALL CLASWLQ( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL CLASWLQ( 1, 2, -1, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK ) + CALL CLASWLQ( 1, 1, 2, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 4 + CALL CLASWLQ( 1, 2, MB, -1, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 6 + CALL CLASWLQ( 1, 2, MB, NB, A, 0, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL CLASWLQ( 1, 2, MB, NB, A, 1, TAU, 0, W, 1, INFO ) + CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL CLASWLQ( 1, 2, MB, NB, A, 1, TAU, 1, W, 0, INFO ) + CALL CHKXER( 'CLASWLQ', INFOT, NOUT, LERR, OK ) +* * CGEMLQ * TAU(1)=1 diff --git a/lapack-netlib/TESTING/LIN/cerrtz.f b/lapack-netlib/TESTING/LIN/cerrtz.f index c6649cf87..4c81279ab 100644 --- a/lapack-netlib/TESTING/LIN/cerrtz.f +++ b/lapack-netlib/TESTING/LIN/cerrtz.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRTZ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrunhr_col.f b/lapack-netlib/TESTING/LIN/cerrunhr_col.f index 8fd58a683..8a5a820c7 100644 --- a/lapack-netlib/TESTING/LIN/cerrunhr_col.f +++ b/lapack-netlib/TESTING/LIN/cerrunhr_col.f @@ -22,7 +22,7 @@ *> \verbatim *> *> CERRUNHR_COL tests the error exits for CUNHR_COL that does -*> Householder reconstruction from the ouput of tall-skinny +*> Householder reconstruction from the output of tall-skinny *> factorization CLATSQR. *> \endverbatim * @@ -49,18 +49,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRUNHR_COL( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.9.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. CHARACTER(LEN=3) PATH diff --git a/lapack-netlib/TESTING/LIN/cerrvx.f b/lapack-netlib/TESTING/LIN/cerrvx.f index 7f929f07f..701abd161 100644 --- a/lapack-netlib/TESTING/LIN/cerrvx.f +++ b/lapack-netlib/TESTING/LIN/cerrvx.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRVX( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/cerrvxx.f b/lapack-netlib/TESTING/LIN/cerrvxx.f index 33bad4f9f..8fdd36f7c 100644 --- a/lapack-netlib/TESTING/LIN/cerrvxx.f +++ b/lapack-netlib/TESTING/LIN/cerrvxx.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CERRVX( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -1267,6 +1264,6 @@ * RETURN * -* End of CERRVX +* End of CERRVXX * END diff --git a/lapack-netlib/TESTING/LIN/cgbt01.f b/lapack-netlib/TESTING/LIN/cgbt01.f index 947ca3f73..277b0b1ab 100644 --- a/lapack-netlib/TESTING/LIN/cgbt01.f +++ b/lapack-netlib/TESTING/LIN/cgbt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KL, KU, LDA, LDAFAC, M, N diff --git a/lapack-netlib/TESTING/LIN/cgbt02.f b/lapack-netlib/TESTING/LIN/cgbt02.f index b478fff2d..775827da9 100644 --- a/lapack-netlib/TESTING/LIN/cgbt02.f +++ b/lapack-netlib/TESTING/LIN/cgbt02.f @@ -9,7 +9,7 @@ * =========== * * SUBROUTINE CGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, -* LDB, RESID ) +* LDB, RWORK, RESID ) * * .. Scalar Arguments .. * CHARACTER TRANS @@ -17,6 +17,7 @@ * REAL RESID * .. * .. Array Arguments .. +* REAL RWORK( * ) * COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. * @@ -27,9 +28,10 @@ *> \verbatim *> *> CGBT02 computes the residual for a solution of a banded system of -*> equations A*x = b or A'*x = b: -*> RESID = norm( B - A*X ) / ( norm(A) * norm(X) * EPS). -*> where EPS is the machine precision. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the +*> machine epsilon. *> \endverbatim * * Arguments: @@ -39,9 +41,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A'*x = b, where A' is the transpose of A -*> = 'C': A'*x = b, where A' is the transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -116,11 +118,18 @@ *> LDB >= max(1,M); if TRANS = 'T' or 'C', LDB >= max(1,N). *> \endverbatim *> +*> \param[out] RWORK +*> \verbatim +*> RWORK is REAL array, dimension (MAX(1,LRWORK)), +*> where LRWORK >= M when TRANS = 'T' or 'C'; otherwise, RWORK +*> is not referenced. +*> \endverbatim +* *> \param[out] RESID *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -131,18 +140,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, - $ LDB, RESID ) + $ LDB, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -150,6 +156,7 @@ REAL RESID * .. * .. Array Arguments .. + REAL RWORK( * ) COMPLEX A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. * @@ -163,18 +170,25 @@ * .. * .. Local Scalars .. INTEGER I1, I2, J, KD, N1 - REAL ANORM, BNORM, EPS, XNORM + REAL ANORM, BNORM, EPS, TEMP, XNORM + COMPLEX CDUM * .. * .. External Functions .. - LOGICAL LSAME + LOGICAL LSAME, SISNAN REAL SCASUM, SLAMCH - EXTERNAL LSAME, SCASUM, SLAMCH + EXTERNAL LSAME, SCASUM, SISNAN, SLAMCH * .. * .. External Subroutines .. EXTERNAL CGBMV * .. +* .. Statement Functions .. + REAL CABS1 +* .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC ABS, AIMAG, MAX, MIN, REAL +* .. +* .. Statement Function definitions .. + CABS1( CDUM ) = ABS( REAL( CDUM ) ) + ABS( AIMAG( CDUM ) ) * .. * .. Executable Statements .. * @@ -188,13 +202,38 @@ * Exit with RESID = 1/EPS if ANORM = 0. * EPS = SLAMCH( 'Epsilon' ) - KD = KU + 1 ANORM = ZERO + IF( LSAME( TRANS, 'N' ) ) THEN +* +* Find norm1(A). +* + KD = KU + 1 DO 10 J = 1, N I1 = MAX( KD+1-J, 1 ) I2 = MIN( KD+M-J, KL+KD ) - ANORM = MAX( ANORM, SCASUM( I2-I1+1, A( I1, J ), 1 ) ) + IF( I2.GE.I1 ) THEN + TEMP = SCASUM( I2-I1+1, A( I1, J ), 1 ) + IF( ANORM.LT.TEMP .OR. SISNAN( TEMP ) ) ANORM = TEMP + END IF 10 CONTINUE + ELSE +* +* Find normI(A). +* + DO 12 I1 = 1, M + RWORK( I1 ) = ZERO + 12 CONTINUE + DO 16 J = 1, N + KD = KU + 1 - J + DO 14 I1 = MAX( 1, J-KU ), MIN( M, J+KL ) + RWORK( I1 ) = RWORK( I1 ) + CABS1( A( KD+I1, J ) ) + 14 CONTINUE + 16 CONTINUE + DO 18 I1 = 1, M + TEMP = RWORK( I1 ) + IF( ANORM.LT.TEMP .OR. SISNAN( TEMP ) ) ANORM = TEMP + 18 CONTINUE + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN @@ -206,7 +245,7 @@ N1 = M END IF * -* Compute B - A*X (or B - A'*X ) +* Compute B - op(A)*X * DO 20 J = 1, NRHS CALL CGBMV( TRANS, M, N, KL, KU, -CONE, A, LDA, X( 1, J ), 1, @@ -214,7 +253,7 @@ 20 CONTINUE * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). * RESID = ZERO DO 30 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/cgbt05.f b/lapack-netlib/TESTING/LIN/cgbt05.f index a6cfe3a09..a2748594d 100644 --- a/lapack-netlib/TESTING/LIN/cgbt05.f +++ b/lapack-netlib/TESTING/LIN/cgbt05.f @@ -30,7 +30,7 @@ *> CGBT05 tests the error bounds from iterative refinement for the *> computed solution to a system of equations op(A)*X = B, where A is a *> general band matrix of order n with kl subdiagonals and ku -*> superdiagonals and op(A) = A or A**T, depending on TRANS. +*> superdiagonals and op(A) = A, A**T, or A**H, depending on TRANS. *> *> RESLTS(1) = test of the error bound *> = norm(X - XACT) / ( norm(X) * FERR ) @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/cgelqs.f b/lapack-netlib/TESTING/LIN/cgelqs.f index ee08c9b62..47e17a583 100644 --- a/lapack-netlib/TESTING/LIN/cgelqs.f +++ b/lapack-netlib/TESTING/LIN/cgelqs.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/cgennd.f b/lapack-netlib/TESTING/LIN/cgennd.f index 5b8fefa7d..9667d2473 100644 --- a/lapack-netlib/TESTING/LIN/cgennd.f +++ b/lapack-netlib/TESTING/LIN/cgennd.f @@ -61,17 +61,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== LOGICAL FUNCTION CGENND (M, N, A, LDA) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/TESTING/LIN/cgeqls.f b/lapack-netlib/TESTING/LIN/cgeqls.f index b1d36107c..75351220d 100644 --- a/lapack-netlib/TESTING/LIN/cgeqls.f +++ b/lapack-netlib/TESTING/LIN/cgeqls.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/cgeqrs.f b/lapack-netlib/TESTING/LIN/cgeqrs.f index 76982924c..13ac7f74f 100644 --- a/lapack-netlib/TESTING/LIN/cgeqrs.f +++ b/lapack-netlib/TESTING/LIN/cgeqrs.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/cgerqs.f b/lapack-netlib/TESTING/LIN/cgerqs.f index 5603ed478..32cc5a89a 100644 --- a/lapack-netlib/TESTING/LIN/cgerqs.f +++ b/lapack-netlib/TESTING/LIN/cgerqs.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/cget01.f b/lapack-netlib/TESTING/LIN/cget01.f index ef84e3fad..8020512c4 100644 --- a/lapack-netlib/TESTING/LIN/cget01.f +++ b/lapack-netlib/TESTING/LIN/cget01.f @@ -100,18 +100,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDAFAC, M, N diff --git a/lapack-netlib/TESTING/LIN/cget02.f b/lapack-netlib/TESTING/LIN/cget02.f index 8fe416458..8be6fe072 100644 --- a/lapack-netlib/TESTING/LIN/cget02.f +++ b/lapack-netlib/TESTING/LIN/cget02.f @@ -28,9 +28,10 @@ *> \verbatim *> *> CGET02 computes the residual for a solution of a system of linear -*> equations A*x = b or A'*x = b: -*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ), -*> where EPS is the machine epsilon. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the +*> machine epsilon. *> \endverbatim * * Arguments: @@ -40,9 +41,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A^T*x = b, where A^T is the transpose of A -*> = 'C': A^H*x = b, where A^H is the conjugate transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -95,7 +96,7 @@ *> B is COMPLEX array, dimension (LDB,NRHS) *> On entry, the right hand side vectors for the system of *> linear equations. -*> On exit, B is overwritten with the difference B - A*X. +*> On exit, B is overwritten with the difference B - op(A)*X. *> \endverbatim *> *> \param[in] LDB @@ -114,7 +115,7 @@ *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -125,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -191,19 +189,23 @@ * Exit with RESID = 1/EPS if ANORM = 0. * EPS = SLAMCH( 'Epsilon' ) + IF( LSAME( TRANS, 'N' ) ) THEN ANORM = CLANGE( '1', M, N, A, LDA, RWORK ) + ELSE + ANORM = CLANGE( 'I', M, N, A, LDA, RWORK ) + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN END IF * -* Compute B - A*X (or B - A'*X ) and store in B. +* Compute B - op(A)*X and store in B. * CALL CGEMM( TRANS, 'No transpose', N1, NRHS, N2, -CONE, A, LDA, X, $ LDX, CONE, B, LDB ) * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) . +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) . * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/cget03.f b/lapack-netlib/TESTING/LIN/cget03.f index d08c51250..b55435a23 100644 --- a/lapack-netlib/TESTING/LIN/cget03.f +++ b/lapack-netlib/TESTING/LIN/cget03.f @@ -102,18 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, $ RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDAINV, LDWORK, N diff --git a/lapack-netlib/TESTING/LIN/cget04.f b/lapack-netlib/TESTING/LIN/cget04.f index a4c8c25af..9aba9910f 100644 --- a/lapack-netlib/TESTING/LIN/cget04.f +++ b/lapack-netlib/TESTING/LIN/cget04.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDX, LDXACT, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/cget07.f b/lapack-netlib/TESTING/LIN/cget07.f index f64f6dd8c..5e51dca5a 100644 --- a/lapack-netlib/TESTING/LIN/cget07.f +++ b/lapack-netlib/TESTING/LIN/cget07.f @@ -158,18 +158,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, CHKFERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/cgtt01.f b/lapack-netlib/TESTING/LIN/cgtt01.f index 425c8c805..e504515c5 100644 --- a/lapack-netlib/TESTING/LIN/cgtt01.f +++ b/lapack-netlib/TESTING/LIN/cgtt01.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, $ LDWORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDWORK, N diff --git a/lapack-netlib/TESTING/LIN/cgtt02.f b/lapack-netlib/TESTING/LIN/cgtt02.f index 658cca323..702e66eed 100644 --- a/lapack-netlib/TESTING/LIN/cgtt02.f +++ b/lapack-netlib/TESTING/LIN/cgtt02.f @@ -29,7 +29,7 @@ *> *> CGTT02 computes the residual for the solution to a tridiagonal *> system of equations: -*> RESID = norm(B - op(A)*X) / (norm(A) * norm(X) * EPS), +*> RESID = norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS), *> where EPS is the machine epsilon. *> \endverbatim * @@ -105,7 +105,7 @@ *> \param[out] RESID *> \verbatim *> RESID is REAL -*> norm(B - op(A)*X) / (norm(A) * norm(X) * EPS) +*> norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS) *> \endverbatim * * Authors: @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -169,7 +166,7 @@ $ RETURN * * Compute the maximum over the number of right hand sides of -* norm(B - op(A)*X) / ( norm(A) * norm(X) * EPS ). +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = CLANGT( '1', N, DL, D, DU ) @@ -185,7 +182,7 @@ RETURN END IF * -* Compute B - op(A)*X. +* Compute B - op(A)*X and store in B. * CALL CLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B, $ LDB ) diff --git a/lapack-netlib/TESTING/LIN/cgtt05.f b/lapack-netlib/TESTING/LIN/cgtt05.f index 9e6722e96..2467cf7c4 100644 --- a/lapack-netlib/TESTING/LIN/cgtt05.f +++ b/lapack-netlib/TESTING/LIN/cgtt05.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/chet01.f b/lapack-netlib/TESTING/LIN/chet01.f index fe08a49fd..4fc12ed65 100644 --- a/lapack-netlib/TESTING/LIN/chet01.f +++ b/lapack-netlib/TESTING/LIN/chet01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CHET01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/chet01_3.f b/lapack-netlib/TESTING/LIN/chet01_3.f index a1b63ae71..58104a357 100644 --- a/lapack-netlib/TESTING/LIN/chet01_3.f +++ b/lapack-netlib/TESTING/LIN/chet01_3.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CHET01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/chet01_aa.f b/lapack-netlib/TESTING/LIN/chet01_aa.f index 3301a317c..8f4ab84e7 100644 --- a/lapack-netlib/TESTING/LIN/chet01_aa.f +++ b/lapack-netlib/TESTING/LIN/chet01_aa.f @@ -116,19 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/chet01_rook.f b/lapack-netlib/TESTING/LIN/chet01_rook.f index 1dddc7dd3..30aa976a0 100644 --- a/lapack-netlib/TESTING/LIN/chet01_rook.f +++ b/lapack-netlib/TESTING/LIN/chet01_rook.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CHET01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/chkxer.f b/lapack-netlib/TESTING/LIN/chkxer.f index cca9ddb31..d2b2c636a 100644 --- a/lapack-netlib/TESTING/LIN/chkxer.f +++ b/lapack-netlib/TESTING/LIN/chkxer.f @@ -34,17 +34,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL LERR, OK @@ -66,6 +63,6 @@ 9999 FORMAT( ' *** Illegal value of parameter number ', I2, $ ' not detected by ', A6, ' ***' ) * -* End of CHKXER. +* End of CHKXER * END diff --git a/lapack-netlib/TESTING/LIN/chpt01.f b/lapack-netlib/TESTING/LIN/chpt01.f index ecb0bebcd..9ed6b7f44 100644 --- a/lapack-netlib/TESTING/LIN/chpt01.f +++ b/lapack-netlib/TESTING/LIN/chpt01.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CHPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/clahilb.f b/lapack-netlib/TESTING/LIN/clahilb.f index c54884b9f..ba05c5740 100644 --- a/lapack-netlib/TESTING/LIN/clahilb.f +++ b/lapack-netlib/TESTING/LIN/clahilb.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER N, NRHS, LDA, LDX, LDB, INFO diff --git a/lapack-netlib/TESTING/LIN/claipd.f b/lapack-netlib/TESTING/LIN/claipd.f index acc0c5b94..958639c0e 100644 --- a/lapack-netlib/TESTING/LIN/claipd.f +++ b/lapack-netlib/TESTING/LIN/claipd.f @@ -76,17 +76,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLAIPD( N, A, INDA, VINDA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INDA, N, VINDA diff --git a/lapack-netlib/TESTING/LIN/claptm.f b/lapack-netlib/TESTING/LIN/claptm.f index 74eb32853..52febe033 100644 --- a/lapack-netlib/TESTING/LIN/claptm.f +++ b/lapack-netlib/TESTING/LIN/claptm.f @@ -121,18 +121,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLAPTM( UPLO, N, NRHS, ALPHA, D, E, X, LDX, BETA, B, $ LDB ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/clarhs.f b/lapack-netlib/TESTING/LIN/clarhs.f index 8b2b31bf8..f0dd2ad91 100644 --- a/lapack-netlib/TESTING/LIN/clarhs.f +++ b/lapack-netlib/TESTING/LIN/clarhs.f @@ -30,8 +30,7 @@ *> CLARHS chooses a set of NRHS random solution vectors and sets *> up the right hand sides for the linear system *> op( A ) * X = B, -*> where op( A ) may be A, A**T (transpose of A), or A**H (conjugate -*> transpose of A). +*> where op(A) = A, A**T, or A**H, depending on TRANS. *> \endverbatim * * Arguments: @@ -85,9 +84,9 @@ *> TRANS is CHARACTER*1 *> Used only if A is nonsymmetric; specifies the operation *> applied to the matrix A. -*> = 'N': B := A * X -*> = 'T': B := A**T * X -*> = 'C': B := A**H * X +*> = 'N': B := A * X (No transpose) +*> = 'T': B := A**T * X (Transpose) +*> = 'C': B := A**H * X (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -201,18 +200,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS, UPLO, XTYPE diff --git a/lapack-netlib/TESTING/LIN/clatb4.f b/lapack-netlib/TESTING/LIN/clatb4.f index a87491db9..eeb0f03a9 100644 --- a/lapack-netlib/TESTING/LIN/clatb4.f +++ b/lapack-netlib/TESTING/LIN/clatb4.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, TYPE diff --git a/lapack-netlib/TESTING/LIN/clatb5.f b/lapack-netlib/TESTING/LIN/clatb5.f index f6a0b5ace..16f27656e 100644 --- a/lapack-netlib/TESTING/LIN/clatb5.f +++ b/lapack-netlib/TESTING/LIN/clatb5.f @@ -106,18 +106,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL ANORM, CNDNUM @@ -229,6 +226,6 @@ * RETURN * -* End of SLATB5 +* End of CLATB5 * END diff --git a/lapack-netlib/TESTING/LIN/clatsp.f b/lapack-netlib/TESTING/LIN/clatsp.f index 8d6df94df..79bc010ec 100644 --- a/lapack-netlib/TESTING/LIN/clatsp.f +++ b/lapack-netlib/TESTING/LIN/clatsp.f @@ -77,17 +77,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLATSP( UPLO, N, X, ISEED ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/clatsy.f b/lapack-netlib/TESTING/LIN/clatsy.f index 4a4260b05..111c64998 100644 --- a/lapack-netlib/TESTING/LIN/clatsy.f +++ b/lapack-netlib/TESTING/LIN/clatsy.f @@ -82,17 +82,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLATSY( UPLO, N, X, LDX, ISEED ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/clattb.f b/lapack-netlib/TESTING/LIN/clattb.f index 4127f8189..c5a21f51f 100644 --- a/lapack-netlib/TESTING/LIN/clattb.f +++ b/lapack-netlib/TESTING/LIN/clattb.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, $ LDAB, B, WORK, RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/clattp.f b/lapack-netlib/TESTING/LIN/clattp.f index e118520dc..82f0585df 100644 --- a/lapack-netlib/TESTING/LIN/clattp.f +++ b/lapack-netlib/TESTING/LIN/clattp.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, AP, B, WORK, $ RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/clattr.f b/lapack-netlib/TESTING/LIN/clattr.f index d959692f8..c26e2f902 100644 --- a/lapack-netlib/TESTING/LIN/clattr.f +++ b/lapack-netlib/TESTING/LIN/clattr.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, $ WORK, RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/clavhe.f b/lapack-netlib/TESTING/LIN/clavhe.f index 0a5016778..838c32121 100644 --- a/lapack-netlib/TESTING/LIN/clavhe.f +++ b/lapack-netlib/TESTING/LIN/clavhe.f @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLAVHE( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, $ LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/clavhe_rook.f b/lapack-netlib/TESTING/LIN/clavhe_rook.f index 6fca41618..9d14637ac 100644 --- a/lapack-netlib/TESTING/LIN/clavhe_rook.f +++ b/lapack-netlib/TESTING/LIN/clavhe_rook.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLAVHE_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, $ B, LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/clavhp.f b/lapack-netlib/TESTING/LIN/clavhp.f index 1d0176cbc..5715e87f0 100644 --- a/lapack-netlib/TESTING/LIN/clavhp.f +++ b/lapack-netlib/TESTING/LIN/clavhp.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLAVHP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/clavsp.f b/lapack-netlib/TESTING/LIN/clavsp.f index 311f0b4e1..f23c4d9e5 100644 --- a/lapack-netlib/TESTING/LIN/clavsp.f +++ b/lapack-netlib/TESTING/LIN/clavsp.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/clavsy.f b/lapack-netlib/TESTING/LIN/clavsy.f index c4d885cc0..f78fef795 100644 --- a/lapack-netlib/TESTING/LIN/clavsy.f +++ b/lapack-netlib/TESTING/LIN/clavsy.f @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLAVSY( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, $ LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/clavsy_rook.f b/lapack-netlib/TESTING/LIN/clavsy_rook.f index 73f6e9acc..604e2de65 100644 --- a/lapack-netlib/TESTING/LIN/clavsy_rook.f +++ b/lapack-netlib/TESTING/LIN/clavsy_rook.f @@ -147,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLAVSY_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, $ B, LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/clqt01.f b/lapack-netlib/TESTING/LIN/clqt01.f index a62de24a8..b302d3541 100644 --- a/lapack-netlib/TESTING/LIN/clqt01.f +++ b/lapack-netlib/TESTING/LIN/clqt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/clqt02.f b/lapack-netlib/TESTING/LIN/clqt02.f index 9b0c86eec..24eb05399 100644 --- a/lapack-netlib/TESTING/LIN/clqt02.f +++ b/lapack-netlib/TESTING/LIN/clqt02.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/clqt03.f b/lapack-netlib/TESTING/LIN/clqt03.f index 22c299a08..56706ab30 100644 --- a/lapack-netlib/TESTING/LIN/clqt03.f +++ b/lapack-netlib/TESTING/LIN/clqt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/clqt04.f b/lapack-netlib/TESTING/LIN/clqt04.f index 7581fe5fa..97bae6768 100644 --- a/lapack-netlib/TESTING/LIN/clqt04.f +++ b/lapack-netlib/TESTING/LIN/clqt04.f @@ -66,18 +66,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE CLQT04(M,N,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER M, N, NB diff --git a/lapack-netlib/TESTING/LIN/clqt05.f b/lapack-netlib/TESTING/LIN/clqt05.f index e6595a782..47e335869 100644 --- a/lapack-netlib/TESTING/LIN/clqt05.f +++ b/lapack-netlib/TESTING/LIN/clqt05.f @@ -73,18 +73,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE CLQT05(M,N,L,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER LWORK, M, N, L, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/cpbt01.f b/lapack-netlib/TESTING/LIN/cpbt01.f index 6b0e140e7..33c80666d 100644 --- a/lapack-netlib/TESTING/LIN/cpbt01.f +++ b/lapack-netlib/TESTING/LIN/cpbt01.f @@ -112,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cpbt02.f b/lapack-netlib/TESTING/LIN/cpbt02.f index 35d22eecd..d84f38e82 100644 --- a/lapack-netlib/TESTING/LIN/cpbt02.f +++ b/lapack-netlib/TESTING/LIN/cpbt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cpbt05.f b/lapack-netlib/TESTING/LIN/cpbt05.f index afe67695a..6e1a7b119 100644 --- a/lapack-netlib/TESTING/LIN/cpbt05.f +++ b/lapack-netlib/TESTING/LIN/cpbt05.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cpot01.f b/lapack-netlib/TESTING/LIN/cpot01.f index 4de30b46b..00e195dd6 100644 --- a/lapack-netlib/TESTING/LIN/cpot01.f +++ b/lapack-netlib/TESTING/LIN/cpot01.f @@ -67,10 +67,10 @@ *> \param[in,out] AFAC *> \verbatim *> AFAC is COMPLEX array, dimension (LDAFAC,N) -*> On entry, the factor L or U from the L*L' or U'*U +*> On entry, the factor L or U from the L * L**H or U**H * U *> factorization of A. -*> Overwritten with the reconstructed matrix, and then with the -*> difference L*L' - A (or U'*U - A). +*> Overwritten with the reconstructed matrix, and then with +*> the difference L * L**H - A (or U**H * U - A). *> \endverbatim *> *> \param[in] LDAFAC @@ -87,8 +87,8 @@ *> \param[out] RESID *> \verbatim *> RESID is REAL -*> If UPLO = 'L', norm(L*L' - A) / ( N * norm(A) * EPS ) -*> If UPLO = 'U', norm(U'*U - A) / ( N * norm(A) * EPS ) +*> If UPLO = 'L', norm(L * L**H - A) / ( N * norm(A) * EPS ) +*> If UPLO = 'U', norm(U**H * U - A) / ( N * norm(A) * EPS ) *> \endverbatim * * Authors: @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -172,7 +169,7 @@ END IF 10 CONTINUE * -* Compute the product U'*U, overwriting U. +* Compute the product U**H * U, overwriting U. * IF( LSAME( UPLO, 'U' ) ) THEN DO 20 K = N, 1, -1 @@ -189,7 +186,7 @@ * 20 CONTINUE * -* Compute the product L*L', overwriting L. +* Compute the product L * L**H, overwriting L. * ELSE DO 30 K = N, 1, -1 @@ -209,7 +206,7 @@ 30 CONTINUE END IF * -* Compute the difference L*L' - A (or U'*U - A). +* Compute the difference L * L**H - A (or U**H * U - A). * IF( LSAME( UPLO, 'U' ) ) THEN DO 50 J = 1, N diff --git a/lapack-netlib/TESTING/LIN/cpot02.f b/lapack-netlib/TESTING/LIN/cpot02.f index 3c9657650..9578e4b0d 100644 --- a/lapack-netlib/TESTING/LIN/cpot02.f +++ b/lapack-netlib/TESTING/LIN/cpot02.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cpot03.f b/lapack-netlib/TESTING/LIN/cpot03.f index 9faee7466..1f6fc9bc4 100644 --- a/lapack-netlib/TESTING/LIN/cpot03.f +++ b/lapack-netlib/TESTING/LIN/cpot03.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, $ RWORK, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cpot05.f b/lapack-netlib/TESTING/LIN/cpot05.f index 438d73c3b..436a15dfe 100644 --- a/lapack-netlib/TESTING/LIN/cpot05.f +++ b/lapack-netlib/TESTING/LIN/cpot05.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cppt01.f b/lapack-netlib/TESTING/LIN/cppt01.f index c75c085dd..3a761a4c7 100644 --- a/lapack-netlib/TESTING/LIN/cppt01.f +++ b/lapack-netlib/TESTING/LIN/cppt01.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPPT01( UPLO, N, A, AFAC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cppt02.f b/lapack-netlib/TESTING/LIN/cppt02.f index 29336a676..ac5a8dbca 100644 --- a/lapack-netlib/TESTING/LIN/cppt02.f +++ b/lapack-netlib/TESTING/LIN/cppt02.f @@ -115,18 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cppt03.f b/lapack-netlib/TESTING/LIN/cppt03.f index 175ced173..3383d2437 100644 --- a/lapack-netlib/TESTING/LIN/cppt03.f +++ b/lapack-netlib/TESTING/LIN/cppt03.f @@ -102,18 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cppt05.f b/lapack-netlib/TESTING/LIN/cppt05.f index 1e279bf35..685e823e5 100644 --- a/lapack-netlib/TESTING/LIN/cppt05.f +++ b/lapack-netlib/TESTING/LIN/cppt05.f @@ -149,18 +149,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cpst01.f b/lapack-netlib/TESTING/LIN/cpst01.f index d446c0123..26da4b394 100644 --- a/lapack-netlib/TESTING/LIN/cpst01.f +++ b/lapack-netlib/TESTING/LIN/cpst01.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, $ PIV, RWORK, RESID, RANK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL RESID diff --git a/lapack-netlib/TESTING/LIN/cptt01.f b/lapack-netlib/TESTING/LIN/cptt01.f index b3a242b28..e4520ec3d 100644 --- a/lapack-netlib/TESTING/LIN/cptt01.f +++ b/lapack-netlib/TESTING/LIN/cptt01.f @@ -85,17 +85,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPTT01( N, D, E, DF, EF, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N diff --git a/lapack-netlib/TESTING/LIN/cptt02.f b/lapack-netlib/TESTING/LIN/cptt02.f index c86ab097f..da4f0e854 100644 --- a/lapack-netlib/TESTING/LIN/cptt02.f +++ b/lapack-netlib/TESTING/LIN/cptt02.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPTT02( UPLO, N, NRHS, D, E, X, LDX, B, LDB, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cptt05.f b/lapack-netlib/TESTING/LIN/cptt05.f index 88ae655bf..9762c6841 100644 --- a/lapack-netlib/TESTING/LIN/cptt05.f +++ b/lapack-netlib/TESTING/LIN/cptt05.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, $ FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDX, LDXACT, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/cqlt01.f b/lapack-netlib/TESTING/LIN/cqlt01.f index 884f9c200..2a8fe6b78 100644 --- a/lapack-netlib/TESTING/LIN/cqlt01.f +++ b/lapack-netlib/TESTING/LIN/cqlt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/cqlt02.f b/lapack-netlib/TESTING/LIN/cqlt02.f index 42af6b9e1..fc4685aa5 100644 --- a/lapack-netlib/TESTING/LIN/cqlt02.f +++ b/lapack-netlib/TESTING/LIN/cqlt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/cqlt03.f b/lapack-netlib/TESTING/LIN/cqlt03.f index ef1ff2cec..fb1bea003 100644 --- a/lapack-netlib/TESTING/LIN/cqlt03.f +++ b/lapack-netlib/TESTING/LIN/cqlt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/cqpt01.f b/lapack-netlib/TESTING/LIN/cqpt01.f index aa9ff4d91..79fc2dc66 100644 --- a/lapack-netlib/TESTING/LIN/cqpt01.f +++ b/lapack-netlib/TESTING/LIN/cqpt01.f @@ -112,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== REAL FUNCTION CQPT01( M, N, K, A, AF, LDA, TAU, JPVT, $ WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/cqrt01.f b/lapack-netlib/TESTING/LIN/cqrt01.f index 6f7420b19..714edc9c7 100644 --- a/lapack-netlib/TESTING/LIN/cqrt01.f +++ b/lapack-netlib/TESTING/LIN/cqrt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/cqrt01p.f b/lapack-netlib/TESTING/LIN/cqrt01p.f index 814c22dbf..4f12f28c5 100644 --- a/lapack-netlib/TESTING/LIN/cqrt01p.f +++ b/lapack-netlib/TESTING/LIN/cqrt01p.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/cqrt02.f b/lapack-netlib/TESTING/LIN/cqrt02.f index 39f0f3e1a..62f176cd8 100644 --- a/lapack-netlib/TESTING/LIN/cqrt02.f +++ b/lapack-netlib/TESTING/LIN/cqrt02.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/cqrt03.f b/lapack-netlib/TESTING/LIN/cqrt03.f index 03d7077ab..08bb826c7 100644 --- a/lapack-netlib/TESTING/LIN/cqrt03.f +++ b/lapack-netlib/TESTING/LIN/cqrt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/cqrt04.f b/lapack-netlib/TESTING/LIN/cqrt04.f index 1b289417d..711bf70cf 100644 --- a/lapack-netlib/TESTING/LIN/cqrt04.f +++ b/lapack-netlib/TESTING/LIN/cqrt04.f @@ -66,18 +66,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQRT04(M,N,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER M, N, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/cqrt05.f b/lapack-netlib/TESTING/LIN/cqrt05.f index b6ce21da7..d33ecc7c8 100644 --- a/lapack-netlib/TESTING/LIN/cqrt05.f +++ b/lapack-netlib/TESTING/LIN/cqrt05.f @@ -73,18 +73,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQRT05(M,N,L,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER LWORK, M, N, L, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/cqrt11.f b/lapack-netlib/TESTING/LIN/cqrt11.f index 7445059a4..494d5e9cd 100644 --- a/lapack-netlib/TESTING/LIN/cqrt11.f +++ b/lapack-netlib/TESTING/LIN/cqrt11.f @@ -91,17 +91,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== REAL FUNCTION CQRT11( M, K, A, LDA, TAU, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M diff --git a/lapack-netlib/TESTING/LIN/cqrt12.f b/lapack-netlib/TESTING/LIN/cqrt12.f index 5659d2b36..4c29423ae 100644 --- a/lapack-netlib/TESTING/LIN/cqrt12.f +++ b/lapack-netlib/TESTING/LIN/cqrt12.f @@ -89,18 +89,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== REAL FUNCTION CQRT12( M, N, A, LDA, S, WORK, LWORK, $ RWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/cqrt13.f b/lapack-netlib/TESTING/LIN/cqrt13.f index 3368858be..6b2f42aab 100644 --- a/lapack-netlib/TESTING/LIN/cqrt13.f +++ b/lapack-netlib/TESTING/LIN/cqrt13.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, M, N, SCALE diff --git a/lapack-netlib/TESTING/LIN/cqrt14.f b/lapack-netlib/TESTING/LIN/cqrt14.f index b2a31e99d..474af0ed5 100644 --- a/lapack-netlib/TESTING/LIN/cqrt14.f +++ b/lapack-netlib/TESTING/LIN/cqrt14.f @@ -108,18 +108,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== REAL FUNCTION CQRT14( TRANS, M, N, NRHS, A, LDA, X, $ LDX, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -200,7 +197,6 @@ IF( XNRM.NE.ZERO ) $ CALL CLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS, $ WORK( N*LDWORK+1 ), LDWORK, INFO ) - ANRM = CLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK ) * * Compute QR factorization of X * diff --git a/lapack-netlib/TESTING/LIN/cqrt15.f b/lapack-netlib/TESTING/LIN/cqrt15.f index d01f3a7ca..f766bb4df 100644 --- a/lapack-netlib/TESTING/LIN/cqrt15.f +++ b/lapack-netlib/TESTING/LIN/cqrt15.f @@ -141,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, $ RANK, NORMA, NORMB, ISEED, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE diff --git a/lapack-netlib/TESTING/LIN/cqrt16.f b/lapack-netlib/TESTING/LIN/cqrt16.f index 84ee5f426..a11b319c1 100644 --- a/lapack-netlib/TESTING/LIN/cqrt16.f +++ b/lapack-netlib/TESTING/LIN/cqrt16.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/cqrt17.f b/lapack-netlib/TESTING/LIN/cqrt17.f index 1fe28d6fe..5cea02709 100644 --- a/lapack-netlib/TESTING/LIN/cqrt17.f +++ b/lapack-netlib/TESTING/LIN/cqrt17.f @@ -28,12 +28,15 @@ *> *> CQRT17 computes the ratio *> -*> || R'*op(A) ||/(||A||*alpha*max(M,N,NRHS)*eps) +*> norm(R**H * op(A)) / ( norm(A) * alpha * max(M,N,NRHS) * EPS ), *> -*> where R = op(A)*X - B, op(A) is A or A', and +*> where R = B - op(A)*X, op(A) is A or A**H, depending on TRANS, EPS +*> is the machine epsilon, and *> -*> alpha = ||B|| if IRESID = 1 (zero-residual problem) -*> alpha = ||R|| if IRESID = 2 (otherwise). +*> alpha = norm(B) if IRESID = 1 (zero-residual problem) +*> alpha = norm(R) if IRESID = 2 (otherwise). +*> +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -44,7 +47,7 @@ *> TRANS is CHARACTER*1 *> Specifies whether or not the transpose of A is used. *> = 'N': No transpose, op(A) = A. -*> = 'C': Conjugate transpose, op(A) = A'. +*> = 'C': Conjugate transpose, op(A) = A**H. *> \endverbatim *> *> \param[in] IRESID @@ -142,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== REAL FUNCTION CQRT17( TRANS, IRESID, M, N, NRHS, A, $ LDA, X, LDX, B, LDB, C, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -172,7 +172,7 @@ * .. * .. Local Scalars .. INTEGER INFO, ISCL, NCOLS, NROWS - REAL BIGNUM, ERR, NORMA, NORMB, NORMRS, SMLNUM + REAL ERR, NORMA, NORMB, NORMRS, SMLNUM * .. * .. Local Arrays .. REAL RWORK( 1 ) @@ -213,7 +213,6 @@ * NORMA = CLANGE( 'One-norm', M, N, A, LDA, RWORK ) SMLNUM = SLAMCH( 'Safe minimum' ) / SLAMCH( 'Precision' ) - BIGNUM = ONE / SMLNUM ISCL = 0 * * compute residual and scale it @@ -228,7 +227,7 @@ $ INFO ) END IF * -* compute R'*A +* compute R**H * op(A) * CALL CGEMM( 'Conjugate transpose', TRANS, NRHS, NCOLS, NROWS, $ CMPLX( ONE ), C, LDB, A, LDA, CMPLX( ZERO ), WORK, diff --git a/lapack-netlib/TESTING/LIN/crqt01.f b/lapack-netlib/TESTING/LIN/crqt01.f index f80361c5e..23d0c96b3 100644 --- a/lapack-netlib/TESTING/LIN/crqt01.f +++ b/lapack-netlib/TESTING/LIN/crqt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/crqt02.f b/lapack-netlib/TESTING/LIN/crqt02.f index d9501e546..8625c2f91 100644 --- a/lapack-netlib/TESTING/LIN/crqt02.f +++ b/lapack-netlib/TESTING/LIN/crqt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/crqt03.f b/lapack-netlib/TESTING/LIN/crqt03.f index 92f5cbe5c..b3d25d2a8 100644 --- a/lapack-netlib/TESTING/LIN/crqt03.f +++ b/lapack-netlib/TESTING/LIN/crqt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/crzt01.f b/lapack-netlib/TESTING/LIN/crzt01.f index 73141982a..6a75a8b31 100644 --- a/lapack-netlib/TESTING/LIN/crzt01.f +++ b/lapack-netlib/TESTING/LIN/crzt01.f @@ -90,18 +90,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== REAL FUNCTION CRZT01( M, N, A, AF, LDA, TAU, WORK, $ LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/crzt02.f b/lapack-netlib/TESTING/LIN/crzt02.f index 53a69457c..8c807c825 100644 --- a/lapack-netlib/TESTING/LIN/crzt02.f +++ b/lapack-netlib/TESTING/LIN/crzt02.f @@ -83,18 +83,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== REAL FUNCTION CRZT02( M, N, AF, LDA, TAU, WORK, $ LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/csbmv.f b/lapack-netlib/TESTING/LIN/csbmv.f index 776de784a..4ea747390 100644 --- a/lapack-netlib/TESTING/LIN/csbmv.f +++ b/lapack-netlib/TESTING/LIN/csbmv.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cspt01.f b/lapack-netlib/TESTING/LIN/cspt01.f index 5be698121..31c73e9e4 100644 --- a/lapack-netlib/TESTING/LIN/cspt01.f +++ b/lapack-netlib/TESTING/LIN/cspt01.f @@ -105,17 +105,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cspt02.f b/lapack-netlib/TESTING/LIN/cspt02.f index 263c07bdc..f4d1fd268 100644 --- a/lapack-netlib/TESTING/LIN/cspt02.f +++ b/lapack-netlib/TESTING/LIN/cspt02.f @@ -115,18 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/cspt03.f b/lapack-netlib/TESTING/LIN/cspt03.f index b15dad966..46b27df25 100644 --- a/lapack-netlib/TESTING/LIN/cspt03.f +++ b/lapack-netlib/TESTING/LIN/cspt03.f @@ -102,18 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSPT03( UPLO, N, A, AINV, WORK, LDW, RWORK, RCOND, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/csyt01.f b/lapack-netlib/TESTING/LIN/csyt01.f index ff068b2d1..cec8f34f9 100644 --- a/lapack-netlib/TESTING/LIN/csyt01.f +++ b/lapack-netlib/TESTING/LIN/csyt01.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSYT01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/csyt01_3.f b/lapack-netlib/TESTING/LIN/csyt01_3.f index 3f0f53251..f0b316cef 100644 --- a/lapack-netlib/TESTING/LIN/csyt01_3.f +++ b/lapack-netlib/TESTING/LIN/csyt01_3.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSYT01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/csyt01_aa.f b/lapack-netlib/TESTING/LIN/csyt01_aa.f index 3d35a42b9..9b0a0c5e4 100644 --- a/lapack-netlib/TESTING/LIN/csyt01_aa.f +++ b/lapack-netlib/TESTING/LIN/csyt01_aa.f @@ -116,20 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* -* @generated from LIN/dsyt01_aa.f, fortran d -> c, Thu Nov 17 13:01:50 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -260,6 +255,6 @@ * RETURN * -* End of CSYT01 +* End of CSYT01_AA * END diff --git a/lapack-netlib/TESTING/LIN/csyt01_rook.f b/lapack-netlib/TESTING/LIN/csyt01_rook.f index cea6f5e8b..f2ca4541a 100644 --- a/lapack-netlib/TESTING/LIN/csyt01_rook.f +++ b/lapack-netlib/TESTING/LIN/csyt01_rook.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSYT01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/csyt02.f b/lapack-netlib/TESTING/LIN/csyt02.f index 4707b3863..a4a3f99b4 100644 --- a/lapack-netlib/TESTING/LIN/csyt02.f +++ b/lapack-netlib/TESTING/LIN/csyt02.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSYT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/csyt03.f b/lapack-netlib/TESTING/LIN/csyt03.f index 92ed42502..f01e24c86 100644 --- a/lapack-netlib/TESTING/LIN/csyt03.f +++ b/lapack-netlib/TESTING/LIN/csyt03.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CSYT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, $ RWORK, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/ctbt02.f b/lapack-netlib/TESTING/LIN/ctbt02.f index adf12192b..bf58aa1da 100644 --- a/lapack-netlib/TESTING/LIN/ctbt02.f +++ b/lapack-netlib/TESTING/LIN/ctbt02.f @@ -29,13 +29,11 @@ *> \verbatim *> *> CTBT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b, A**T *x = b, or -*> A**H *x = b when A is a triangular band matrix. Here A**T denotes -*> the transpose of A, A**H denotes the conjugate transpose of A, and -*> x and b are N by NRHS matrices. The test ratio is the maximum over -*> the number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A, A**T, or A**H, and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, when A is a +*> triangular band matrix. The test ratio is the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A, A**T, or A**H, b is the column of B, x is the +*> solution vector, and EPS is the machine epsilon. *> \endverbatim * * Arguments: @@ -53,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A**T *x = b (Transpose) -*> = 'C': A**H *x = b (Conjugate transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] DIAG @@ -153,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, $ LDX, B, LDB, WORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -207,7 +202,7 @@ RETURN END IF * -* Compute the 1-norm of A or A'. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = CLANTB( '1', UPLO, DIAG, N, KD, AB, LDAB, RWORK ) diff --git a/lapack-netlib/TESTING/LIN/ctbt03.f b/lapack-netlib/TESTING/LIN/ctbt03.f index 404847b58..94ae9a77e 100644 --- a/lapack-netlib/TESTING/LIN/ctbt03.f +++ b/lapack-netlib/TESTING/LIN/ctbt03.f @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== @@ -177,10 +175,9 @@ $ SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctbt05.f b/lapack-netlib/TESTING/LIN/ctbt05.f index d3d23424b..b6060564d 100644 --- a/lapack-netlib/TESTING/LIN/ctbt05.f +++ b/lapack-netlib/TESTING/LIN/ctbt05.f @@ -181,18 +181,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctbt06.f b/lapack-netlib/TESTING/LIN/ctbt06.f index 0f40ec92d..c81b85489 100644 --- a/lapack-netlib/TESTING/LIN/ctbt06.f +++ b/lapack-netlib/TESTING/LIN/ctbt06.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, $ RWORK, RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctpt01.f b/lapack-netlib/TESTING/LIN/ctpt01.f index 1c3ecccb7..41a1f78f5 100644 --- a/lapack-netlib/TESTING/LIN/ctpt01.f +++ b/lapack-netlib/TESTING/LIN/ctpt01.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctpt02.f b/lapack-netlib/TESTING/LIN/ctpt02.f index afdd3a153..9c32d4206 100644 --- a/lapack-netlib/TESTING/LIN/ctpt02.f +++ b/lapack-netlib/TESTING/LIN/ctpt02.f @@ -28,14 +28,12 @@ *> \verbatim *> *> CTPT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b, A**T *x = b, or -*> A**H *x = b, when the triangular matrix A is stored in packed format. -*> Here A**T denotes the transpose of A, A**H denotes the conjugate -*> transpose of A, and x and b are N by NRHS matrices. The test ratio -*> is the maximum over the number of right hand sides of -*> the maximum over the number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A, A**T, or A**H, and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, when the +*> triangular matrix A is stored in packed format. The test ratio is +*> the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A, A**T, or A**H, b is the column of B, x is the +*> solution vector, and EPS is the machine epsilon. *> \endverbatim * * Arguments: @@ -53,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A**T *x = b (Transpose) -*> = 'C': A**H *x = b (Conjugate transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] DIAG @@ -130,7 +128,7 @@ *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +*> norm(op(A)*B - B) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -141,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, $ WORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -194,7 +189,7 @@ RETURN END IF * -* Compute the 1-norm of A or A**H. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = CLANTP( '1', UPLO, DIAG, N, AP, RWORK ) @@ -211,7 +206,7 @@ END IF * * Compute the maximum over the number of right hand sides of -* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/ctpt03.f b/lapack-netlib/TESTING/LIN/ctpt03.f index f038478cc..43ba50310 100644 --- a/lapack-netlib/TESTING/LIN/ctpt03.f +++ b/lapack-netlib/TESTING/LIN/ctpt03.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, $ TSCAL, X, LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctpt05.f b/lapack-netlib/TESTING/LIN/ctpt05.f index 49d17d90d..0f1f4ac1c 100644 --- a/lapack-netlib/TESTING/LIN/ctpt05.f +++ b/lapack-netlib/TESTING/LIN/ctpt05.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctpt06.f b/lapack-netlib/TESTING/LIN/ctpt06.f index 803c18f1c..20e8f81c7 100644 --- a/lapack-netlib/TESTING/LIN/ctpt06.f +++ b/lapack-netlib/TESTING/LIN/ctpt06.f @@ -105,17 +105,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, RWORK, RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctrt01.f b/lapack-netlib/TESTING/LIN/ctrt01.f index 6bd59e765..30c4f2138 100644 --- a/lapack-netlib/TESTING/LIN/ctrt01.f +++ b/lapack-netlib/TESTING/LIN/ctrt01.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctrt02.f b/lapack-netlib/TESTING/LIN/ctrt02.f index 205d12d8e..72f44af4c 100644 --- a/lapack-netlib/TESTING/LIN/ctrt02.f +++ b/lapack-netlib/TESTING/LIN/ctrt02.f @@ -29,13 +29,11 @@ *> \verbatim *> *> CTRT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b, A**T *x = b, -*> or A**H *x = b. Here A is a triangular matrix, A**T is the transpose -*> of A, A**H is the conjugate transpose of A, and x and b are N by NRHS -*> matrices. The test ratio is the maximum over the number of right -*> hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A, A**T, or A**H, and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, where A is a +*> triangular matrix. The test ratio is the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A, A**T, or A**H, b is the column of B, x is the +*> solution vector, and EPS is the machine epsilon. *> \endverbatim * * Arguments: @@ -53,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A**T *x = b (Transpose) -*> = 'C': A**H *x = b (Conjugate transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] DIAG @@ -138,7 +136,7 @@ *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -149,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, $ LDB, WORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -203,7 +198,7 @@ RETURN END IF * -* Compute the 1-norm of A or A**H. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = CLANTR( '1', UPLO, DIAG, N, N, A, LDA, RWORK ) @@ -220,7 +215,7 @@ END IF * * Compute the maximum over the number of right hand sides of -* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ) +* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ) * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/ctrt03.f b/lapack-netlib/TESTING/LIN/ctrt03.f index 3196f6a2d..b8f44aa05 100644 --- a/lapack-netlib/TESTING/LIN/ctrt03.f +++ b/lapack-netlib/TESTING/LIN/ctrt03.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, $ CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctrt05.f b/lapack-netlib/TESTING/LIN/ctrt05.f index 7f05f9c9f..0edb2d832 100644 --- a/lapack-netlib/TESTING/LIN/ctrt05.f +++ b/lapack-netlib/TESTING/LIN/ctrt05.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctrt06.f b/lapack-netlib/TESTING/LIN/ctrt06.f index 7dff47038..07a0ec73f 100644 --- a/lapack-netlib/TESTING/LIN/ctrt06.f +++ b/lapack-netlib/TESTING/LIN/ctrt06.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_lin * * ===================================================================== SUBROUTINE CTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, RWORK, $ RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ctsqr01.f b/lapack-netlib/TESTING/LIN/ctsqr01.f index 6d788ba41..0d91776f8 100644 --- a/lapack-netlib/TESTING/LIN/ctsqr01.f +++ b/lapack-netlib/TESTING/LIN/ctsqr01.f @@ -77,16 +77,13 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* * ===================================================================== SUBROUTINE CTSQR01(TSSW, M, N, MB, NB, RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER TSSW diff --git a/lapack-netlib/TESTING/LIN/dchkab.f b/lapack-netlib/TESTING/LIN/dchkab.f index dddc25acd..a6b8a0fe1 100644 --- a/lapack-netlib/TESTING/LIN/dchkab.f +++ b/lapack-netlib/TESTING/LIN/dchkab.f @@ -66,17 +66,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== PROGRAM DCHKAB * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/LIN/dchkeq.f b/lapack-netlib/TESTING/LIN/dchkeq.f index 89e141993..025ddabcf 100644 --- a/lapack-netlib/TESTING/LIN/dchkeq.f +++ b/lapack-netlib/TESTING/LIN/dchkeq.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DCHKEQ( THRESH, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NOUT diff --git a/lapack-netlib/TESTING/LIN/dchkgb.f b/lapack-netlib/TESTING/LIN/dchkgb.f index 4ae408bd3..fa8dce5cf 100644 --- a/lapack-netlib/TESTING/LIN/dchkgb.f +++ b/lapack-netlib/TESTING/LIN/dchkgb.f @@ -160,7 +160,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is DOUBLE PRECISION array, dimension -*> (max(NMAX,2*NSMAX)) +*> (NMAX+2*NSMAX) *> \endverbatim *> *> \param[out] IWORK @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -191,10 +189,9 @@ $ NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -566,7 +563,7 @@ END IF * *+ TEST 2: -* Solve and compute residual for A * X = B. +* Solve and compute residual for op(A) * X = B. * SRNAMT = 'DLARHS' CALL DLARHS( PATH, XTYPE, ' ', TRANS, N, @@ -592,7 +589,7 @@ $ WORK, LDB ) CALL DGBT02( TRANS, M, N, KL, KU, NRHS, A, $ LDA, X, LDB, WORK, LDB, - $ RESULT( 2 ) ) + $ RWORK, RESULT( 2 ) ) * *+ TEST 3: * Check solution from generated exact diff --git a/lapack-netlib/TESTING/LIN/dchkge.f b/lapack-netlib/TESTING/LIN/dchkge.f index 075b563a5..467667a42 100644 --- a/lapack-netlib/TESTING/LIN/dchkge.f +++ b/lapack-netlib/TESTING/LIN/dchkge.f @@ -77,7 +77,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -176,8 +176,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -185,10 +183,9 @@ $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkgt.f b/lapack-netlib/TESTING/LIN/dchkgt.f index 2d7e8baf4..ace78f00c 100644 --- a/lapack-netlib/TESTING/LIN/dchkgt.f +++ b/lapack-netlib/TESTING/LIN/dchkgt.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchklq.f b/lapack-netlib/TESTING/LIN/dchklq.f index b63d0361f..70af41fe0 100644 --- a/lapack-netlib/TESTING/LIN/dchklq.f +++ b/lapack-netlib/TESTING/LIN/dchklq.f @@ -187,8 +187,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -196,10 +194,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchklqt.f b/lapack-netlib/TESTING/LIN/dchklqt.f index 66eef0fd7..aa77d6a62 100644 --- a/lapack-netlib/TESTING/LIN/dchklqt.f +++ b/lapack-netlib/TESTING/LIN/dchklqt.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchklqtp.f b/lapack-netlib/TESTING/LIN/dchklqtp.f index 75940af59..d9251b1f0 100644 --- a/lapack-netlib/TESTING/LIN/dchklqtp.f +++ b/lapack-netlib/TESTING/LIN/dchklqtp.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkorhr_col.f b/lapack-netlib/TESTING/LIN/dchkorhr_col.f index 0e2d44d8d..a849f3910 100644 --- a/lapack-netlib/TESTING/LIN/dchkorhr_col.f +++ b/lapack-netlib/TESTING/LIN/dchkorhr_col.f @@ -82,7 +82,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> diff --git a/lapack-netlib/TESTING/LIN/dchkpb.f b/lapack-netlib/TESTING/LIN/dchkpb.f index a8557e5de..c5d51230e 100644 --- a/lapack-netlib/TESTING/LIN/dchkpb.f +++ b/lapack-netlib/TESTING/LIN/dchkpb.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -172,10 +170,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkpo.f b/lapack-netlib/TESTING/LIN/dchkpo.f index 3ce48f322..e9d5af186 100644 --- a/lapack-netlib/TESTING/LIN/dchkpo.f +++ b/lapack-netlib/TESTING/LIN/dchkpo.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -172,10 +170,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkpp.f b/lapack-netlib/TESTING/LIN/dchkpp.f index b19b766ff..3da13227a 100644 --- a/lapack-netlib/TESTING/LIN/dchkpp.f +++ b/lapack-netlib/TESTING/LIN/dchkpp.f @@ -154,8 +154,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -163,10 +161,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkps.f b/lapack-netlib/TESTING/LIN/dchkps.f index e1463bc97..1e4a9e58d 100644 --- a/lapack-netlib/TESTING/LIN/dchkps.f +++ b/lapack-netlib/TESTING/LIN/dchkps.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the block size NB. *> \endverbatim *> @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -154,10 +152,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION THRESH diff --git a/lapack-netlib/TESTING/LIN/dchkpt.f b/lapack-netlib/TESTING/LIN/dchkpt.f index 6cde31816..2869723f2 100644 --- a/lapack-netlib/TESTING/LIN/dchkpt.f +++ b/lapack-netlib/TESTING/LIN/dchkpt.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, D, E, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkq3.f b/lapack-netlib/TESTING/LIN/dchkq3.f index c275ee039..1fdf07252 100644 --- a/lapack-netlib/TESTING/LIN/dchkq3.f +++ b/lapack-netlib/TESTING/LIN/dchkq3.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -153,10 +151,9 @@ $ THRESH, A, COPYA, S, TAU, WORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NM, NN, NNB, NOUT diff --git a/lapack-netlib/TESTING/LIN/dchkql.f b/lapack-netlib/TESTING/LIN/dchkql.f index 878d874d2..595ca10a6 100644 --- a/lapack-netlib/TESTING/LIN/dchkql.f +++ b/lapack-netlib/TESTING/LIN/dchkql.f @@ -187,8 +187,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -196,10 +194,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkqr.f b/lapack-netlib/TESTING/LIN/dchkqr.f index 4ba27a93d..c729e61a9 100644 --- a/lapack-netlib/TESTING/LIN/dchkqr.f +++ b/lapack-netlib/TESTING/LIN/dchkqr.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -201,10 +199,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkqrt.f b/lapack-netlib/TESTING/LIN/dchkqrt.f index c74e78964..566f273d4 100644 --- a/lapack-netlib/TESTING/LIN/dchkqrt.f +++ b/lapack-netlib/TESTING/LIN/dchkqrt.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkqrtp.f b/lapack-netlib/TESTING/LIN/dchkqrtp.f index 716dbcd84..924ba7ea3 100644 --- a/lapack-netlib/TESTING/LIN/dchkqrtp.f +++ b/lapack-netlib/TESTING/LIN/dchkqrtp.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchkrfp.f b/lapack-netlib/TESTING/LIN/dchkrfp.f index cf59e88dc..e242e013d 100644 --- a/lapack-netlib/TESTING/LIN/dchkrfp.f +++ b/lapack-netlib/TESTING/LIN/dchkrfp.f @@ -52,17 +52,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== PROGRAM DCHKRFP * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/LIN/dchkrq.f b/lapack-netlib/TESTING/LIN/dchkrq.f index d820a91dd..028359d08 100644 --- a/lapack-netlib/TESTING/LIN/dchkrq.f +++ b/lapack-netlib/TESTING/LIN/dchkrq.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -201,10 +199,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchksp.f b/lapack-netlib/TESTING/LIN/dchksp.f index 6334a0510..f327ca7ce 100644 --- a/lapack-netlib/TESTING/LIN/dchksp.f +++ b/lapack-netlib/TESTING/LIN/dchksp.f @@ -154,8 +154,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -163,10 +161,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchksy.f b/lapack-netlib/TESTING/LIN/dchksy.f index d8981f735..8d127cd3b 100644 --- a/lapack-netlib/TESTING/LIN/dchksy.f +++ b/lapack-netlib/TESTING/LIN/dchksy.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup double_lin * * ===================================================================== @@ -170,10 +168,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchksy_aa.f b/lapack-netlib/TESTING/LIN/dchksy_aa.f index 8974cdec5..4c79ebbbf 100644 --- a/lapack-netlib/TESTING/LIN/dchksy_aa.f +++ b/lapack-netlib/TESTING/LIN/dchksy_aa.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -161,10 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* @precisions fortran d -> z c -* *> \ingroup double_lin * * ===================================================================== @@ -172,10 +168,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/LIN/dchksy_aa_2stage.f b/lapack-netlib/TESTING/LIN/dchksy_aa_2stage.f index f6d990d1c..bc4e77a5a 100644 --- a/lapack-netlib/TESTING/LIN/dchksy_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/dchksy_aa_2stage.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,10 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* @precisions fortran d -> z c -* *> \ingroup double_lin * * ===================================================================== @@ -173,10 +169,9 @@ $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/LIN/dchksy_rk.f b/lapack-netlib/TESTING/LIN/dchksy_rk.f index 2b5d7adec..701cb9ce6 100644 --- a/lapack-netlib/TESTING/LIN/dchksy_rk.f +++ b/lapack-netlib/TESTING/LIN/dchksy_rk.f @@ -63,7 +63,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -167,8 +167,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -176,10 +174,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -486,7 +483,7 @@ CALL DLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) SRNAMT = 'DSYTRI_3' * -* Another reason that we need to compute the invesrse +* Another reason that we need to compute the inverse * is that DPOT03 produces RCONDC which is used later * in TEST6 and TEST7. * diff --git a/lapack-netlib/TESTING/LIN/dchksy_rook.f b/lapack-netlib/TESTING/LIN/dchksy_rook.f index 0c001669c..03b16b78a 100644 --- a/lapack-netlib/TESTING/LIN/dchksy_rook.f +++ b/lapack-netlib/TESTING/LIN/dchksy_rook.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -171,10 +169,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchktb.f b/lapack-netlib/TESTING/LIN/dchktb.f index af50bf322..16d0aed32 100644 --- a/lapack-netlib/TESTING/LIN/dchktb.f +++ b/lapack-netlib/TESTING/LIN/dchktb.f @@ -146,8 +146,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -155,10 +153,9 @@ $ NMAX, AB, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchktp.f b/lapack-netlib/TESTING/LIN/dchktp.f index 58f78697f..9af6150ca 100644 --- a/lapack-netlib/TESTING/LIN/dchktp.f +++ b/lapack-netlib/TESTING/LIN/dchktp.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -157,10 +155,9 @@ $ NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchktr.f b/lapack-netlib/TESTING/LIN/dchktr.f index 5c0cd83b9..a4a1150c0 100644 --- a/lapack-netlib/TESTING/LIN/dchktr.f +++ b/lapack-netlib/TESTING/LIN/dchktr.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -167,10 +165,9 @@ $ THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, $ WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/dchktsqr.f b/lapack-netlib/TESTING/LIN/dchktsqr.f index 14119e6e5..27076b5c2 100644 --- a/lapack-netlib/TESTING/LIN/dchktsqr.f +++ b/lapack-netlib/TESTING/LIN/dchktsqr.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -254,6 +251,6 @@ $ ', NB=', I5,' test(', I2, ')=', G12.5 ) RETURN * -* End of DCHKQRT +* End of DCHKTSQR * END diff --git a/lapack-netlib/TESTING/LIN/dchktz.f b/lapack-netlib/TESTING/LIN/dchktz.f index 8a60d0541..efb468f00 100644 --- a/lapack-netlib/TESTING/LIN/dchktz.f +++ b/lapack-netlib/TESTING/LIN/dchktz.f @@ -124,18 +124,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, $ COPYA, S, TAU, WORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvab.f b/lapack-netlib/TESTING/LIN/ddrvab.f index 646bbff0d..9110d8334 100644 --- a/lapack-netlib/TESTING/LIN/ddrvab.f +++ b/lapack-netlib/TESTING/LIN/ddrvab.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -151,10 +149,9 @@ $ NSVAL, THRESH, NMAX, A, AFAC, B, $ X, WORK, RWORK, SWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NM, NMAX, NNS, NOUT diff --git a/lapack-netlib/TESTING/LIN/ddrvac.f b/lapack-netlib/TESTING/LIN/ddrvac.f index ee710dbf2..bd463cee4 100644 --- a/lapack-netlib/TESTING/LIN/ddrvac.f +++ b/lapack-netlib/TESTING/LIN/ddrvac.f @@ -135,8 +135,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -144,10 +142,9 @@ $ A, AFAC, B, X, WORK, $ RWORK, SWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NMAX, NM, NNS, NOUT diff --git a/lapack-netlib/TESTING/LIN/ddrvgb.f b/lapack-netlib/TESTING/LIN/ddrvgb.f index 7758a5978..ad323d5ec 100644 --- a/lapack-netlib/TESTING/LIN/ddrvgb.f +++ b/lapack-netlib/TESTING/LIN/ddrvgb.f @@ -141,7 +141,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is DOUBLE PRECISION array, dimension -*> (max(NMAX,2*NRHS)) +*> (NMAX+2*NRHS) *> \endverbatim *> *> \param[out] IWORK @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -172,10 +170,9 @@ $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -585,7 +582,8 @@ $ WORK, LDB ) CALL DGBT02( 'No transpose', N, N, KL, $ KU, NRHS, A, LDA, X, LDB, - $ WORK, LDB, RESULT( 2 ) ) + $ WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact * solution. @@ -702,6 +700,7 @@ $ WORK, LDB ) CALL DGBT02( TRANS, N, N, KL, KU, NRHS, $ ASAV, LDA, X, LDB, WORK, LDB, + $ RWORK( 2*NRHS+1 ), $ RESULT( 2 ) ) * * Check solution from generated exact diff --git a/lapack-netlib/TESTING/LIN/ddrvgbx.f b/lapack-netlib/TESTING/LIN/ddrvgbx.f index 4c76b44af..8a9fdb645 100644 --- a/lapack-netlib/TESTING/LIN/ddrvgbx.f +++ b/lapack-netlib/TESTING/LIN/ddrvgbx.f @@ -144,7 +144,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is DOUBLE PRECISION array, dimension -*> (max(NMAX,2*NRHS)) +*> (max(2*NMAX,NMAX+2*NRHS)) *> \endverbatim *> *> \param[out] IWORK @@ -166,8 +166,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -175,10 +173,9 @@ $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -593,7 +590,8 @@ $ WORK, LDB ) CALL DGBT02( 'No transpose', N, N, KL, $ KU, NRHS, A, LDA, X, LDB, - $ WORK, LDB, RESULT( 2 ) ) + $ WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact * solution. @@ -710,6 +708,7 @@ $ WORK, LDB ) CALL DGBT02( TRANS, N, N, KL, KU, NRHS, $ ASAV, LDA, X, LDB, WORK, LDB, + $ RWORK( 2*NRHS+1 ), $ RESULT( 2 ) ) * * Check solution from generated exact @@ -895,7 +894,7 @@ CALL DLACPY( 'Full', N, NRHS, BSAV, LDB, WORK, $ LDB ) CALL DGBT02( TRANS, N, N, KL, KU, NRHS, ASAV, - $ LDA, X, LDB, WORK, LDB, + $ LDA, X, LDB, WORK, LDB, RWORK, $ RESULT( 2 ) ) * * Check solution from generated exact solution. @@ -1024,6 +1023,6 @@ * RETURN * -* End of DDRVGB +* End of DDRVGBX * END diff --git a/lapack-netlib/TESTING/LIN/ddrvge.f b/lapack-netlib/TESTING/LIN/ddrvge.f index a4209138d..c079135a2 100644 --- a/lapack-netlib/TESTING/LIN/ddrvge.f +++ b/lapack-netlib/TESTING/LIN/ddrvge.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -164,10 +162,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvgex.f b/lapack-netlib/TESTING/LIN/ddrvgex.f index 228e886e9..53fa3ee74 100644 --- a/lapack-netlib/TESTING/LIN/ddrvgex.f +++ b/lapack-netlib/TESTING/LIN/ddrvgex.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== @@ -167,10 +165,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -889,6 +886,6 @@ $ G12.5 ) RETURN * -* End of DDRVGE +* End of DDRVGEX * END diff --git a/lapack-netlib/TESTING/LIN/ddrvgt.f b/lapack-netlib/TESTING/LIN/ddrvgt.f index 6da10336b..b1661e37b 100644 --- a/lapack-netlib/TESTING/LIN/ddrvgt.f +++ b/lapack-netlib/TESTING/LIN/ddrvgt.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvls.f b/lapack-netlib/TESTING/LIN/ddrvls.f index adfd71e09..b64930c10 100644 --- a/lapack-netlib/TESTING/LIN/ddrvls.f +++ b/lapack-netlib/TESTING/LIN/ddrvls.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_lin * * ===================================================================== @@ -192,10 +190,9 @@ $ NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, $ COPYB, C, S, COPYS, NOUT ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvpb.f b/lapack-netlib/TESTING/LIN/ddrvpb.f index 6b5695faf..6508de866 100644 --- a/lapack-netlib/TESTING/LIN/ddrvpb.f +++ b/lapack-netlib/TESTING/LIN/ddrvpb.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -164,10 +162,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvpo.f b/lapack-netlib/TESTING/LIN/ddrvpo.f index 2caddcea9..c5c8076e0 100644 --- a/lapack-netlib/TESTING/LIN/ddrvpo.f +++ b/lapack-netlib/TESTING/LIN/ddrvpo.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -164,10 +162,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvpox.f b/lapack-netlib/TESTING/LIN/ddrvpox.f index e093bbaa7..f23223ee1 100644 --- a/lapack-netlib/TESTING/LIN/ddrvpox.f +++ b/lapack-netlib/TESTING/LIN/ddrvpox.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -167,10 +165,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -731,6 +728,6 @@ $ G12.5 ) RETURN * -* End of DDRVPO +* End of DDRVPOX * END diff --git a/lapack-netlib/TESTING/LIN/ddrvpp.f b/lapack-netlib/TESTING/LIN/ddrvpp.f index dac2e2e59..15de557f9 100644 --- a/lapack-netlib/TESTING/LIN/ddrvpp.f +++ b/lapack-netlib/TESTING/LIN/ddrvpp.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -167,10 +165,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvpt.f b/lapack-netlib/TESTING/LIN/ddrvpt.f index eec5c7490..c0c2806ec 100644 --- a/lapack-netlib/TESTING/LIN/ddrvpt.f +++ b/lapack-netlib/TESTING/LIN/ddrvpt.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, $ E, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvrf1.f b/lapack-netlib/TESTING/LIN/ddrvrf1.f index dfb1941a6..08ab4895f 100644 --- a/lapack-netlib/TESTING/LIN/ddrvrf1.f +++ b/lapack-netlib/TESTING/LIN/ddrvrf1.f @@ -87,17 +87,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/ddrvrf2.f b/lapack-netlib/TESTING/LIN/ddrvrf2.f index 3d38ca042..6ed60b136 100644 --- a/lapack-netlib/TESTING/LIN/ddrvrf2.f +++ b/lapack-netlib/TESTING/LIN/ddrvrf2.f @@ -82,17 +82,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/ddrvrf3.f b/lapack-netlib/TESTING/LIN/ddrvrf3.f index 59d291817..1c5d74aea 100644 --- a/lapack-netlib/TESTING/LIN/ddrvrf3.f +++ b/lapack-netlib/TESTING/LIN/ddrvrf3.f @@ -110,18 +110,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, + D_WORK_DLANGE, D_WORK_DGEQRF, TAU ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT @@ -255,8 +252,8 @@ * Generate A our NA--by--NA triangular * 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 +* do want A to be well conditioned! To get +* a well-conditioned triangular matrix, we * take the R factor of the QR/LQ factorization * of a random matrix. * diff --git a/lapack-netlib/TESTING/LIN/ddrvrf4.f b/lapack-netlib/TESTING/LIN/ddrvrf4.f index 02b0bbaf7..260a1bcc6 100644 --- a/lapack-netlib/TESTING/LIN/ddrvrf4.f +++ b/lapack-netlib/TESTING/LIN/ddrvrf4.f @@ -110,18 +110,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, + LDA, D_WORK_DLANGE ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDC, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/ddrvrfp.f b/lapack-netlib/TESTING/LIN/ddrvrfp.f index 18ccbdfc4..0e6596920 100644 --- a/lapack-netlib/TESTING/LIN/ddrvrfp.f +++ b/lapack-netlib/TESTING/LIN/ddrvrfp.f @@ -203,11 +203,6 @@ *> D_TEMP_DPOT03 is DOUBLE PRECISION array, dimension ( NMAX*NMAX ) *> \endverbatim *> -*> \param[out] D_WORK_DLATMS -*> \verbatim -*> D_WORK_DLATMS is DOUBLE PRECISION array, dimension ( NMAX ) -*> \endverbatim -*> *> \param[out] D_WORK_DLANSY *> \verbatim *> D_WORK_DLANSY is DOUBLE PRECISION array, dimension ( NMAX ) @@ -231,8 +226,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -243,10 +236,9 @@ + D_TEMP_DPOT03, D_WORK_DLANSY, + D_WORK_DPOT02, D_WORK_DPOT03 ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NN, NNS, NNT, NOUT diff --git a/lapack-netlib/TESTING/LIN/ddrvsp.f b/lapack-netlib/TESTING/LIN/ddrvsp.f index a7c231614..a62561c66 100644 --- a/lapack-netlib/TESTING/LIN/ddrvsp.f +++ b/lapack-netlib/TESTING/LIN/ddrvsp.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -156,10 +154,9 @@ $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvsy.f b/lapack-netlib/TESTING/LIN/ddrvsy.f index ec94c4710..4eb3fa8e6 100644 --- a/lapack-netlib/TESTING/LIN/ddrvsy.f +++ b/lapack-netlib/TESTING/LIN/ddrvsy.f @@ -143,8 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup double_lin * * ===================================================================== @@ -152,10 +150,9 @@ $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvsy_aa.f b/lapack-netlib/TESTING/LIN/ddrvsy_aa.f index cf1b63841..0b8e46c71 100644 --- a/lapack-netlib/TESTING/LIN/ddrvsy_aa.f +++ b/lapack-netlib/TESTING/LIN/ddrvsy_aa.f @@ -143,10 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* @precisions fortran d -> z c -* *> \ingroup double_lin * * ===================================================================== @@ -154,10 +150,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvsy_aa_2stage.f b/lapack-netlib/TESTING/LIN/ddrvsy_aa_2stage.f index 898422654..91c9e8e9a 100644 --- a/lapack-netlib/TESTING/LIN/ddrvsy_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/ddrvsy_aa_2stage.f @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup double_lin * * ===================================================================== @@ -155,10 +153,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvsy_rk.f b/lapack-netlib/TESTING/LIN/ddrvsy_rk.f index 92811ce93..15b2c2b78 100644 --- a/lapack-netlib/TESTING/LIN/ddrvsy_rk.f +++ b/lapack-netlib/TESTING/LIN/ddrvsy_rk.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -156,10 +154,9 @@ $ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -411,7 +408,7 @@ CALL DLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) LWORK = (N+NB+1)*(NB+3) * -* We need to copute the invesrse to compute +* We need to compute the inverse to compute * RCONDC that is used later in TEST3. * CALL DSYTRI_3( UPLO, N, AINV, LDA, E, IWORK, diff --git a/lapack-netlib/TESTING/LIN/ddrvsy_rook.f b/lapack-netlib/TESTING/LIN/ddrvsy_rook.f index 670fc8cff..dcfea9450 100644 --- a/lapack-netlib/TESTING/LIN/ddrvsy_rook.f +++ b/lapack-netlib/TESTING/LIN/ddrvsy_rook.f @@ -143,8 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup double_lin * * ===================================================================== @@ -152,10 +150,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/ddrvsyx.f b/lapack-netlib/TESTING/LIN/ddrvsyx.f index ab2b541d7..51781ca98 100644 --- a/lapack-netlib/TESTING/LIN/ddrvsyx.f +++ b/lapack-netlib/TESTING/LIN/ddrvsyx.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -156,10 +154,9 @@ $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -707,6 +704,6 @@ $ ', type ', I2, ', test ', I2, ', ratio =', G12.5 ) RETURN * -* End of DDRVSY +* End of DDRVSYX * END diff --git a/lapack-netlib/TESTING/LIN/debchvxx.f b/lapack-netlib/TESTING/LIN/debchvxx.f index aef2b5ccf..e65b41808 100644 --- a/lapack-netlib/TESTING/LIN/debchvxx.f +++ b/lapack-netlib/TESTING/LIN/debchvxx.f @@ -89,8 +89,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -490,5 +488,7 @@ c$$$ WRITE(*,*) 8000 FORMAT( ' D', A2, 'SVXX: N =', I2, ', INFO = ', I3, $ ', ORCOND = ', G12.5, ', real RCOND = ', G12.5 ) - +* +* End of DEBCHVXX +* END diff --git a/lapack-netlib/TESTING/LIN/derrab.f b/lapack-netlib/TESTING/LIN/derrab.f index dd2662635..1ab97ef25 100644 --- a/lapack-netlib/TESTING/LIN/derrab.f +++ b/lapack-netlib/TESTING/LIN/derrab.f @@ -40,17 +40,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRAB( NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/derrac.f b/lapack-netlib/TESTING/LIN/derrac.f index 4ab5e899b..4db46ca59 100644 --- a/lapack-netlib/TESTING/LIN/derrac.f +++ b/lapack-netlib/TESTING/LIN/derrac.f @@ -40,17 +40,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRAC( NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/derrge.f b/lapack-netlib/TESTING/LIN/derrge.f index 027801ddd..fc80bbbcf 100644 --- a/lapack-netlib/TESTING/LIN/derrge.f +++ b/lapack-netlib/TESTING/LIN/derrge.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRGE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrgex.f b/lapack-netlib/TESTING/LIN/derrgex.f index 20f05fa4a..c54d82ce8 100644 --- a/lapack-netlib/TESTING/LIN/derrgex.f +++ b/lapack-netlib/TESTING/LIN/derrgex.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRGE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -560,6 +557,6 @@ * RETURN * -* End of DERRGE +* End of DERRGEX * END diff --git a/lapack-netlib/TESTING/LIN/derrgt.f b/lapack-netlib/TESTING/LIN/derrgt.f index 75b466a48..c4cebf2f8 100644 --- a/lapack-netlib/TESTING/LIN/derrgt.f +++ b/lapack-netlib/TESTING/LIN/derrgt.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRGT( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrlq.f b/lapack-netlib/TESTING/LIN/derrlq.f index ba297f5cf..d3cfcddd0 100644 --- a/lapack-netlib/TESTING/LIN/derrlq.f +++ b/lapack-netlib/TESTING/LIN/derrlq.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRLQ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrlqt.f b/lapack-netlib/TESTING/LIN/derrlqt.f index 68ff8c545..6653fa1e9 100644 --- a/lapack-netlib/TESTING/LIN/derrlqt.f +++ b/lapack-netlib/TESTING/LIN/derrlqt.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRLQT( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrlqtp.f b/lapack-netlib/TESTING/LIN/derrlqtp.f index 16129540a..5707a9ba0 100644 --- a/lapack-netlib/TESTING/LIN/derrlqtp.f +++ b/lapack-netlib/TESTING/LIN/derrlqtp.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRLQTP( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -220,6 +217,6 @@ * RETURN * -* End of DERRLQT +* End of DERRLQTP * END diff --git a/lapack-netlib/TESTING/LIN/derrls.f b/lapack-netlib/TESTING/LIN/derrls.f index 1be8830ba..a1f74dec2 100644 --- a/lapack-netlib/TESTING/LIN/derrls.f +++ b/lapack-netlib/TESTING/LIN/derrls.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRLS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrorhr_col.f b/lapack-netlib/TESTING/LIN/derrorhr_col.f index 6d545bc91..998f8a508 100644 --- a/lapack-netlib/TESTING/LIN/derrorhr_col.f +++ b/lapack-netlib/TESTING/LIN/derrorhr_col.f @@ -22,7 +22,7 @@ *> \verbatim *> *> DERRORHR_COL tests the error exits for DORHR_COL that does -*> Householder reconstruction from the ouput of tall-skinny +*> Householder reconstruction from the output of tall-skinny *> factorization DLATSQR. *> \endverbatim * @@ -49,18 +49,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRORHR_COL( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.9.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. CHARACTER(LEN=3) PATH diff --git a/lapack-netlib/TESTING/LIN/derrpo.f b/lapack-netlib/TESTING/LIN/derrpo.f index 6d613764a..8282119ef 100644 --- a/lapack-netlib/TESTING/LIN/derrpo.f +++ b/lapack-netlib/TESTING/LIN/derrpo.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRPO( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrpox.f b/lapack-netlib/TESTING/LIN/derrpox.f index 88d0c7e3a..c39cdd02f 100644 --- a/lapack-netlib/TESTING/LIN/derrpox.f +++ b/lapack-netlib/TESTING/LIN/derrpox.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRPO( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -526,6 +523,6 @@ * RETURN * -* End of DERRPO +* End of DERRPOX * END diff --git a/lapack-netlib/TESTING/LIN/derrps.f b/lapack-netlib/TESTING/LIN/derrps.f index 4d2bf3e83..378542c04 100644 --- a/lapack-netlib/TESTING/LIN/derrps.f +++ b/lapack-netlib/TESTING/LIN/derrps.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRPS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/derrql.f b/lapack-netlib/TESTING/LIN/derrql.f index 477c3ef1c..b9c50d9ab 100644 --- a/lapack-netlib/TESTING/LIN/derrql.f +++ b/lapack-netlib/TESTING/LIN/derrql.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRQL( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrqp.f b/lapack-netlib/TESTING/LIN/derrqp.f index 4f438feab..3f29bf60e 100644 --- a/lapack-netlib/TESTING/LIN/derrqp.f +++ b/lapack-netlib/TESTING/LIN/derrqp.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRQP( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrqr.f b/lapack-netlib/TESTING/LIN/derrqr.f index e1fe51cad..03155b133 100644 --- a/lapack-netlib/TESTING/LIN/derrqr.f +++ b/lapack-netlib/TESTING/LIN/derrqr.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRQR( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrqrt.f b/lapack-netlib/TESTING/LIN/derrqrt.f index 660e2ef53..9a15f0b1c 100644 --- a/lapack-netlib/TESTING/LIN/derrqrt.f +++ b/lapack-netlib/TESTING/LIN/derrqrt.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRQRT( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrqrtp.f b/lapack-netlib/TESTING/LIN/derrqrtp.f index 83be5aa3e..b7e7fe346 100644 --- a/lapack-netlib/TESTING/LIN/derrqrtp.f +++ b/lapack-netlib/TESTING/LIN/derrqrtp.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRQRTP( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -224,6 +221,6 @@ * RETURN * -* End of DERRQRT +* End of DERRQRTP * END diff --git a/lapack-netlib/TESTING/LIN/derrrfp.f b/lapack-netlib/TESTING/LIN/derrrfp.f index 8db8ebf0a..d1e07a6ef 100644 --- a/lapack-netlib/TESTING/LIN/derrrfp.f +++ b/lapack-netlib/TESTING/LIN/derrrfp.f @@ -45,17 +45,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRRFP( NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/derrrq.f b/lapack-netlib/TESTING/LIN/derrrq.f index d594a74bc..ae51d4c72 100644 --- a/lapack-netlib/TESTING/LIN/derrrq.f +++ b/lapack-netlib/TESTING/LIN/derrrq.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRRQ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrsy.f b/lapack-netlib/TESTING/LIN/derrsy.f index b511cdcc5..af15a4b8e 100644 --- a/lapack-netlib/TESTING/LIN/derrsy.f +++ b/lapack-netlib/TESTING/LIN/derrsy.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRSY( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrsyx.f b/lapack-netlib/TESTING/LIN/derrsyx.f index 0634209e5..c2d14caab 100644 --- a/lapack-netlib/TESTING/LIN/derrsyx.f +++ b/lapack-netlib/TESTING/LIN/derrsyx.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRSY( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -614,6 +611,6 @@ * RETURN * -* End of DERRSY +* End of DERRSYX * END diff --git a/lapack-netlib/TESTING/LIN/derrtr.f b/lapack-netlib/TESTING/LIN/derrtr.f index f709ba7e6..a667f0d2b 100644 --- a/lapack-netlib/TESTING/LIN/derrtr.f +++ b/lapack-netlib/TESTING/LIN/derrtr.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRTR( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrtsqr.f b/lapack-netlib/TESTING/LIN/derrtsqr.f index d1d0ff02d..f0d345149 100644 --- a/lapack-netlib/TESTING/LIN/derrtsqr.f +++ b/lapack-netlib/TESTING/LIN/derrtsqr.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRTSQR( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -73,7 +70,7 @@ PARAMETER ( NMAX = 2 ) * .. * .. Local Scalars .. - INTEGER I, INFO, J, NB + INTEGER I, INFO, J, MB, NB * .. * .. Local Arrays .. DOUBLE PRECISION A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ), @@ -133,6 +130,35 @@ CALL DGEQR( 3, 2, A, 3, TAU, 7, W, 0, INFO ) CALL CHKXER( 'DGEQR', INFOT, NOUT, LERR, OK ) * +* DLATSQR +* + MB = 1 + NB = 1 + SRNAMT = 'DLATSQR' + INFOT = 1 + CALL DLATSQR( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL DLATSQR( 1, 2, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK ) + CALL DLATSQR( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL DLATSQR( 2, 1, -1, NB, A, 2, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 4 + CALL DLATSQR( 2, 1, MB, 2, A, 2, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 6 + CALL DLATSQR( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL DLATSQR( 2, 1, MB, NB, A, 2, TAU, 0, W, 1, INFO ) + CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL DLATSQR( 2, 1, MB, NB, A, 2, TAU, 2, W, 0, INFO ) + CALL CHKXER( 'DLATSQR', INFOT, NOUT, LERR, OK ) +* * DGEMQR * TAU(1)=1 @@ -194,6 +220,37 @@ CALL DGELQ( 2, 3, A, 3, TAU, 7, W, 0, INFO ) CALL CHKXER( 'DGELQ', INFOT, NOUT, LERR, OK ) * +* DLASWLQ +* + MB = 1 + NB = 1 + SRNAMT = 'DLASWLQ' + INFOT = 1 + CALL DLASWLQ( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL DLASWLQ( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK ) + CALL DLASWLQ( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL DLASWLQ( 1, 2, -1, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK ) + CALL DLASWLQ( 1, 1, 2, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 4 + CALL DLASWLQ( 1, 2, MB, -1, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 6 + CALL DLASWLQ( 1, 2, MB, NB, A, 0, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL DLASWLQ( 1, 2, MB, NB, A, 1, TAU, 0, W, 1, INFO ) + CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL DLASWLQ( 1, 2, MB, NB, A, 1, TAU, 1, W, 0, INFO ) + CALL CHKXER( 'DLASWLQ', INFOT, NOUT, LERR, OK ) +* * DGEMLQ * TAU(1)=1 diff --git a/lapack-netlib/TESTING/LIN/derrtz.f b/lapack-netlib/TESTING/LIN/derrtz.f index 1980d1fa0..a43ae219c 100644 --- a/lapack-netlib/TESTING/LIN/derrtz.f +++ b/lapack-netlib/TESTING/LIN/derrtz.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRTZ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrvx.f b/lapack-netlib/TESTING/LIN/derrvx.f index fd1d038a6..447b00bc4 100644 --- a/lapack-netlib/TESTING/LIN/derrvx.f +++ b/lapack-netlib/TESTING/LIN/derrvx.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRVX( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/derrvxx.f b/lapack-netlib/TESTING/LIN/derrvxx.f index 6e96b32bd..dd2c5700d 100644 --- a/lapack-netlib/TESTING/LIN/derrvxx.f +++ b/lapack-netlib/TESTING/LIN/derrvxx.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DERRVX( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -1042,6 +1039,6 @@ * RETURN * -* End of DERRVX +* End of DERRVXX * END diff --git a/lapack-netlib/TESTING/LIN/dgbt01.f b/lapack-netlib/TESTING/LIN/dgbt01.f index 2515733f5..28f7200dd 100644 --- a/lapack-netlib/TESTING/LIN/dgbt01.f +++ b/lapack-netlib/TESTING/LIN/dgbt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KL, KU, LDA, LDAFAC, M, N diff --git a/lapack-netlib/TESTING/LIN/dgbt02.f b/lapack-netlib/TESTING/LIN/dgbt02.f index bc11ba7d4..cd13b7535 100644 --- a/lapack-netlib/TESTING/LIN/dgbt02.f +++ b/lapack-netlib/TESTING/LIN/dgbt02.f @@ -9,7 +9,7 @@ * =========== * * SUBROUTINE DGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, -* LDB, RESID ) +* LDB, RWORK, RESID ) * * .. Scalar Arguments .. * CHARACTER TRANS @@ -17,7 +17,8 @@ * DOUBLE PRECISION RESID * .. * .. Array Arguments .. -* DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ) +* DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ), +* RWORK( * ) * .. * * @@ -27,9 +28,11 @@ *> \verbatim *> *> DGBT02 computes the residual for a solution of a banded system of -*> equations A*x = b or A'*x = b: -*> RESID = norm( B - A*X ) / ( norm(A) * norm(X) * EPS). -*> where EPS is the machine precision. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A or A**T, depending on TRANS, and EPS is the +*> machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -39,9 +42,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A'*x = b, where A' is the transpose of A -*> = 'C': A'*x = b, where A' is the transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -116,11 +119,18 @@ *> LDB >= max(1,M); if TRANS = 'T' or 'C', LDB >= max(1,N). *> \endverbatim *> +*> \param[out] RWORK +*> \verbatim +*> RWORK is DOUBLE PRECISION array, dimension (MAX(1,LRWORK)), +*> where LRWORK >= M when TRANS = 'T' or 'C'; otherwise, RWORK +*> is not referenced. +*> \endverbatim +* *> \param[out] RESID *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -131,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, - $ LDB, RESID ) + $ LDB, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -150,7 +157,8 @@ DOUBLE PRECISION RESID * .. * .. Array Arguments .. - DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ) + DOUBLE PRECISION A( LDA, * ), B( LDB, * ), X( LDX, * ), + $ RWORK( * ) * .. * * ===================================================================== @@ -161,18 +169,18 @@ * .. * .. Local Scalars .. INTEGER I1, I2, J, KD, N1 - DOUBLE PRECISION ANORM, BNORM, EPS, XNORM + DOUBLE PRECISION ANORM, BNORM, EPS, TEMP, XNORM * .. * .. External Functions .. - LOGICAL LSAME + LOGICAL DISNAN, LSAME DOUBLE PRECISION DASUM, DLAMCH - EXTERNAL LSAME, DASUM, DLAMCH + EXTERNAL DASUM, DISNAN, DLAMCH, LSAME * .. * .. External Subroutines .. EXTERNAL DGBMV * .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC ABS, MAX, MIN * .. * .. Executable Statements .. * @@ -186,13 +194,38 @@ * Exit with RESID = 1/EPS if ANORM = 0. * EPS = DLAMCH( 'Epsilon' ) - KD = KU + 1 ANORM = ZERO + IF( LSAME( TRANS, 'N' ) ) THEN +* +* Find norm1(A). +* + KD = KU + 1 DO 10 J = 1, N I1 = MAX( KD+1-J, 1 ) I2 = MIN( KD+M-J, KL+KD ) - ANORM = MAX( ANORM, DASUM( I2-I1+1, A( I1, J ), 1 ) ) + IF( I2.GE.I1 ) THEN + TEMP = DASUM( I2-I1+1, A( I1, J ), 1 ) + IF( ANORM.LT.TEMP .OR. DISNAN( TEMP ) ) ANORM = TEMP + END IF 10 CONTINUE + ELSE +* +* Find normI(A). +* + DO 12 I1 = 1, M + RWORK( I1 ) = ZERO + 12 CONTINUE + DO 16 J = 1, N + KD = KU + 1 - J + DO 14 I1 = MAX( 1, J-KU ), MIN( M, J+KL ) + RWORK( I1 ) = RWORK( I1 ) + ABS( A( KD+I1, J ) ) + 14 CONTINUE + 16 CONTINUE + DO 18 I1 = 1, M + TEMP = RWORK( I1 ) + IF( ANORM.LT.TEMP .OR. DISNAN( TEMP ) ) ANORM = TEMP + 18 CONTINUE + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN @@ -204,7 +237,7 @@ N1 = M END IF * -* Compute B - A*X (or B - A'*X ) +* Compute B - op(A)*X * DO 20 J = 1, NRHS CALL DGBMV( TRANS, M, N, KL, KU, -ONE, A, LDA, X( 1, J ), 1, @@ -212,7 +245,7 @@ 20 CONTINUE * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). * RESID = ZERO DO 30 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/dgbt05.f b/lapack-netlib/TESTING/LIN/dgbt05.f index 1333abb9a..ba85eaf7d 100644 --- a/lapack-netlib/TESTING/LIN/dgbt05.f +++ b/lapack-netlib/TESTING/LIN/dgbt05.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/dgelqs.f b/lapack-netlib/TESTING/LIN/dgelqs.f index 46683ef12..ecbb5893c 100644 --- a/lapack-netlib/TESTING/LIN/dgelqs.f +++ b/lapack-netlib/TESTING/LIN/dgelqs.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/dgennd.f b/lapack-netlib/TESTING/LIN/dgennd.f index 986775af4..9b3ed260b 100644 --- a/lapack-netlib/TESTING/LIN/dgennd.f +++ b/lapack-netlib/TESTING/LIN/dgennd.f @@ -61,17 +61,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== LOGICAL FUNCTION DGENND (M, N, A, LDA) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/TESTING/LIN/dgeqls.f b/lapack-netlib/TESTING/LIN/dgeqls.f index 1ca418f1b..e84df53ec 100644 --- a/lapack-netlib/TESTING/LIN/dgeqls.f +++ b/lapack-netlib/TESTING/LIN/dgeqls.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/dgeqrs.f b/lapack-netlib/TESTING/LIN/dgeqrs.f index 83fddf4e1..bfb7bd8bb 100644 --- a/lapack-netlib/TESTING/LIN/dgeqrs.f +++ b/lapack-netlib/TESTING/LIN/dgeqrs.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/dgerqs.f b/lapack-netlib/TESTING/LIN/dgerqs.f index d3ea086fa..a89324964 100644 --- a/lapack-netlib/TESTING/LIN/dgerqs.f +++ b/lapack-netlib/TESTING/LIN/dgerqs.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/dget01.f b/lapack-netlib/TESTING/LIN/dget01.f index 88ed763b3..fad1c2211 100644 --- a/lapack-netlib/TESTING/LIN/dget01.f +++ b/lapack-netlib/TESTING/LIN/dget01.f @@ -99,18 +99,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDAFAC, M, N diff --git a/lapack-netlib/TESTING/LIN/dget02.f b/lapack-netlib/TESTING/LIN/dget02.f index 7b641b3b3..560cc50f7 100644 --- a/lapack-netlib/TESTING/LIN/dget02.f +++ b/lapack-netlib/TESTING/LIN/dget02.f @@ -28,9 +28,11 @@ *> \verbatim *> *> DGET02 computes the residual for a solution of a system of linear -*> equations A*x = b or A'*x = b: -*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ), -*> where EPS is the machine epsilon. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A or A**T, depending on TRANS, and EPS is the +*> machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -40,9 +42,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A'*x = b, where A' is the transpose of A -*> = 'C': A'*x = b, where A' is the transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -95,7 +97,7 @@ *> B is DOUBLE PRECISION array, dimension (LDB,NRHS) *> On entry, the right hand side vectors for the system of *> linear equations. -*> On exit, B is overwritten with the difference B - A*X. +*> On exit, B is overwritten with the difference B - op(A)*X. *> \endverbatim *> *> \param[in] LDB @@ -114,7 +116,7 @@ *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -125,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -189,19 +188,23 @@ * Exit with RESID = 1/EPS if ANORM = 0. * EPS = DLAMCH( 'Epsilon' ) + IF( LSAME( TRANS, 'N' ) ) THEN ANORM = DLANGE( '1', M, N, A, LDA, RWORK ) + ELSE + ANORM = DLANGE( 'I', M, N, A, LDA, RWORK ) + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN END IF * -* Compute B - A*X (or B - A'*X ) and store in B. +* Compute B - op(A)*X and store in B. * CALL DGEMM( TRANS, 'No transpose', N1, NRHS, N2, -ONE, A, LDA, X, $ LDX, ONE, B, LDB ) * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) . +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) . * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/dget03.f b/lapack-netlib/TESTING/LIN/dget03.f index 5b04c81ed..6486ff5d5 100644 --- a/lapack-netlib/TESTING/LIN/dget03.f +++ b/lapack-netlib/TESTING/LIN/dget03.f @@ -101,18 +101,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, $ RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDAINV, LDWORK, N diff --git a/lapack-netlib/TESTING/LIN/dget04.f b/lapack-netlib/TESTING/LIN/dget04.f index a5663f621..255f1dd10 100644 --- a/lapack-netlib/TESTING/LIN/dget04.f +++ b/lapack-netlib/TESTING/LIN/dget04.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDX, LDXACT, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/dget06.f b/lapack-netlib/TESTING/LIN/dget06.f index a056e1258..0e72c74e6 100644 --- a/lapack-netlib/TESTING/LIN/dget06.f +++ b/lapack-netlib/TESTING/LIN/dget06.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== DOUBLE PRECISION FUNCTION DGET06( RCOND, RCONDC ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION RCOND, RCONDC diff --git a/lapack-netlib/TESTING/LIN/dget07.f b/lapack-netlib/TESTING/LIN/dget07.f index cd56c0ffe..99dbe0c00 100644 --- a/lapack-netlib/TESTING/LIN/dget07.f +++ b/lapack-netlib/TESTING/LIN/dget07.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, CHKFERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/dget08.f b/lapack-netlib/TESTING/LIN/dget08.f index 731b3924d..5c82d7ba5 100644 --- a/lapack-netlib/TESTING/LIN/dget08.f +++ b/lapack-netlib/TESTING/LIN/dget08.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGET08( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -217,6 +214,6 @@ * RETURN * -* End of DGET02 +* End of DGET08 * END diff --git a/lapack-netlib/TESTING/LIN/dgtt01.f b/lapack-netlib/TESTING/LIN/dgtt01.f index 29f4b2574..3b5ff9e4c 100644 --- a/lapack-netlib/TESTING/LIN/dgtt01.f +++ b/lapack-netlib/TESTING/LIN/dgtt01.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, $ LDWORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDWORK, N diff --git a/lapack-netlib/TESTING/LIN/dgtt02.f b/lapack-netlib/TESTING/LIN/dgtt02.f index 956f0f761..b3268b138 100644 --- a/lapack-netlib/TESTING/LIN/dgtt02.f +++ b/lapack-netlib/TESTING/LIN/dgtt02.f @@ -29,8 +29,9 @@ *> *> DGTT02 computes the residual for the solution to a tridiagonal *> system of equations: -*> RESID = norm(B - op(A)*X) / (norm(A) * norm(X) * EPS), +*> RESID = norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS), *> where EPS is the machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -41,8 +42,8 @@ *> TRANS is CHARACTER *> Specifies the form of the residual. *> = 'N': B - A * X (No transpose) -*> = 'T': B - A'* X (Transpose) -*> = 'C': B - A'* X (Conjugate transpose = Transpose) +*> = 'T': B - A**T * X (Transpose) +*> = 'C': B - A**H * X (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] N @@ -105,7 +106,7 @@ *> \param[out] RESID *> \verbatim *> RESID is DOUBLE PRECISION -*> norm(B - op(A)*X) / (norm(A) * norm(X) * EPS) +*> norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS) *> \endverbatim * * Authors: @@ -116,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -169,7 +167,7 @@ $ RETURN * * Compute the maximum over the number of right hand sides of -* norm(B - op(A)*X) / ( norm(A) * norm(X) * EPS ). +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = DLANGT( '1', N, DL, D, DU ) @@ -185,7 +183,7 @@ RETURN END IF * -* Compute B - op(A)*X. +* Compute B - op(A)*X and store in B. * CALL DLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B, $ LDB ) diff --git a/lapack-netlib/TESTING/LIN/dgtt05.f b/lapack-netlib/TESTING/LIN/dgtt05.f index c39081f9e..d389ef166 100644 --- a/lapack-netlib/TESTING/LIN/dgtt05.f +++ b/lapack-netlib/TESTING/LIN/dgtt05.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/dlahilb.f b/lapack-netlib/TESTING/LIN/dlahilb.f index e115e335a..9590be53d 100644 --- a/lapack-netlib/TESTING/LIN/dlahilb.f +++ b/lapack-netlib/TESTING/LIN/dlahilb.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER N, NRHS, LDA, LDX, LDB, INFO diff --git a/lapack-netlib/TESTING/LIN/dlaord.f b/lapack-netlib/TESTING/LIN/dlaord.f index da3edb198..e5f7e3b50 100644 --- a/lapack-netlib/TESTING/LIN/dlaord.f +++ b/lapack-netlib/TESTING/LIN/dlaord.f @@ -66,17 +66,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLAORD( JOB, N, X, INCX ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/TESTING/LIN/dlaptm.f b/lapack-netlib/TESTING/LIN/dlaptm.f index 5c62ded10..24cbf6ab5 100644 --- a/lapack-netlib/TESTING/LIN/dlaptm.f +++ b/lapack-netlib/TESTING/LIN/dlaptm.f @@ -109,17 +109,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLAPTM( N, NRHS, ALPHA, D, E, X, LDX, BETA, B, LDB ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDX, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/dlarhs.f b/lapack-netlib/TESTING/LIN/dlarhs.f index f175cf893..9c3fe37d3 100644 --- a/lapack-netlib/TESTING/LIN/dlarhs.f +++ b/lapack-netlib/TESTING/LIN/dlarhs.f @@ -30,7 +30,7 @@ *> DLARHS chooses a set of NRHS random solution vectors and sets *> up the right hand sides for the linear system *> op( A ) * X = B, -*> where op( A ) may be A or A' (transpose of A). +*> where op(A) = A or A**T, depending on TRANS. *> \endverbatim * * Arguments: @@ -79,10 +79,11 @@ *> \param[in] TRANS *> \verbatim *> TRANS is CHARACTER*1 -*> Specifies the operation applied to the matrix A. -*> = 'N': System is A * x = b -*> = 'T': System is A'* x = b -*> = 'C': System is A'* x = b +*> Used only if A is nonsymmetric; specifies the operation +*> applied to the matrix A. +*> = 'N': B := A * X (No transpose) +*> = 'T': B := A**T * X (Transpose) +*> = 'C': B := A**H * X (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -196,18 +197,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS, UPLO, XTYPE diff --git a/lapack-netlib/TESTING/LIN/dlatb4.f b/lapack-netlib/TESTING/LIN/dlatb4.f index 6bdbe5597..8825d13e7 100644 --- a/lapack-netlib/TESTING/LIN/dlatb4.f +++ b/lapack-netlib/TESTING/LIN/dlatb4.f @@ -112,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, TYPE diff --git a/lapack-netlib/TESTING/LIN/dlatb5.f b/lapack-netlib/TESTING/LIN/dlatb5.f index 16a5642b3..9967bbad1 100644 --- a/lapack-netlib/TESTING/LIN/dlatb5.f +++ b/lapack-netlib/TESTING/LIN/dlatb5.f @@ -106,18 +106,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION ANORM, CNDNUM diff --git a/lapack-netlib/TESTING/LIN/dlattb.f b/lapack-netlib/TESTING/LIN/dlattb.f index e35067f12..e3f8c9c34 100644 --- a/lapack-netlib/TESTING/LIN/dlattb.f +++ b/lapack-netlib/TESTING/LIN/dlattb.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, $ LDAB, B, WORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dlattp.f b/lapack-netlib/TESTING/LIN/dlattp.f index 407bd0716..fef888859 100644 --- a/lapack-netlib/TESTING/LIN/dlattp.f +++ b/lapack-netlib/TESTING/LIN/dlattp.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, B, WORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dlattr.f b/lapack-netlib/TESTING/LIN/dlattr.f index 0e3a5ac6b..03f9bfae4 100644 --- a/lapack-netlib/TESTING/LIN/dlattr.f +++ b/lapack-netlib/TESTING/LIN/dlattr.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, $ WORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dlavsp.f b/lapack-netlib/TESTING/LIN/dlavsp.f index 758c415fb..3a5a85e9e 100644 --- a/lapack-netlib/TESTING/LIN/dlavsp.f +++ b/lapack-netlib/TESTING/LIN/dlavsp.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dlavsy.f b/lapack-netlib/TESTING/LIN/dlavsy.f index b512ff0ff..03e705871 100644 --- a/lapack-netlib/TESTING/LIN/dlavsy.f +++ b/lapack-netlib/TESTING/LIN/dlavsy.f @@ -147,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLAVSY( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, $ LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dlavsy_rook.f b/lapack-netlib/TESTING/LIN/dlavsy_rook.f index 7b0c2c152..f1994aee9 100644 --- a/lapack-netlib/TESTING/LIN/dlavsy_rook.f +++ b/lapack-netlib/TESTING/LIN/dlavsy_rook.f @@ -149,18 +149,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLAVSY_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, $ B, LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dlqt01.f b/lapack-netlib/TESTING/LIN/dlqt01.f index c17045f96..1ef7365c4 100644 --- a/lapack-netlib/TESTING/LIN/dlqt01.f +++ b/lapack-netlib/TESTING/LIN/dlqt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dlqt02.f b/lapack-netlib/TESTING/LIN/dlqt02.f index 55b5a6c89..158cd0b79 100644 --- a/lapack-netlib/TESTING/LIN/dlqt02.f +++ b/lapack-netlib/TESTING/LIN/dlqt02.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dlqt03.f b/lapack-netlib/TESTING/LIN/dlqt03.f index dc754554f..55ce022ce 100644 --- a/lapack-netlib/TESTING/LIN/dlqt03.f +++ b/lapack-netlib/TESTING/LIN/dlqt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dlqt04.f b/lapack-netlib/TESTING/LIN/dlqt04.f index b73248b62..ef7e67538 100644 --- a/lapack-netlib/TESTING/LIN/dlqt04.f +++ b/lapack-netlib/TESTING/LIN/dlqt04.f @@ -66,18 +66,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLQT04(M,N,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER M, N, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/dlqt05.f b/lapack-netlib/TESTING/LIN/dlqt05.f index ce2604e41..7d2a2a104 100644 --- a/lapack-netlib/TESTING/LIN/dlqt05.f +++ b/lapack-netlib/TESTING/LIN/dlqt05.f @@ -73,18 +73,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DLQT05(M,N,L,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER LWORK, M, N, L, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/dpbt01.f b/lapack-netlib/TESTING/LIN/dpbt01.f index 4acd74f5a..3d810dac1 100644 --- a/lapack-netlib/TESTING/LIN/dpbt01.f +++ b/lapack-netlib/TESTING/LIN/dpbt01.f @@ -111,18 +111,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dpbt02.f b/lapack-netlib/TESTING/LIN/dpbt02.f index 657cdc9f7..6abda62e0 100644 --- a/lapack-netlib/TESTING/LIN/dpbt02.f +++ b/lapack-netlib/TESTING/LIN/dpbt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dpbt05.f b/lapack-netlib/TESTING/LIN/dpbt05.f index 1ad4c0f6b..47e656be7 100644 --- a/lapack-netlib/TESTING/LIN/dpbt05.f +++ b/lapack-netlib/TESTING/LIN/dpbt05.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dpot01.f b/lapack-netlib/TESTING/LIN/dpot01.f index 8d84a1fe6..71e50f892 100644 --- a/lapack-netlib/TESTING/LIN/dpot01.f +++ b/lapack-netlib/TESTING/LIN/dpot01.f @@ -65,10 +65,10 @@ *> \param[in,out] AFAC *> \verbatim *> AFAC is DOUBLE PRECISION array, dimension (LDAFAC,N) -*> On entry, the factor L or U from the L*L' or U'*U +*> On entry, the factor L or U from the L * L**T or U**T * U *> factorization of A. -*> Overwritten with the reconstructed matrix, and then with the -*> difference L*L' - A (or U'*U - A). +*> Overwritten with the reconstructed matrix, and then with +*> the difference L * L**T - A (or U**T * U - A). *> \endverbatim *> *> \param[in] LDAFAC @@ -85,8 +85,8 @@ *> \param[out] RESID *> \verbatim *> RESID is DOUBLE PRECISION -*> If UPLO = 'L', norm(L*L' - A) / ( N * norm(A) * EPS ) -*> If UPLO = 'U', norm(U'*U - A) / ( N * norm(A) * EPS ) +*> If UPLO = 'L', norm(L * L**T - A) / ( N * norm(A) * EPS ) +*> If UPLO = 'U', norm(U**T * U - A) / ( N * norm(A) * EPS ) *> \endverbatim * * Authors: @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -157,7 +154,7 @@ RETURN END IF * -* Compute the product U'*U, overwriting U. +* Compute the product U**T * U, overwriting U. * IF( LSAME( UPLO, 'U' ) ) THEN DO 10 K = N, 1, -1 @@ -174,7 +171,7 @@ * 10 CONTINUE * -* Compute the product L*L', overwriting L. +* Compute the product L * L**T, overwriting L. * ELSE DO 20 K = N, 1, -1 @@ -194,7 +191,7 @@ 20 CONTINUE END IF * -* Compute the difference L*L' - A (or U'*U - A). +* Compute the difference L * L**T - A (or U**T * U - A). * IF( LSAME( UPLO, 'U' ) ) THEN DO 40 J = 1, N diff --git a/lapack-netlib/TESTING/LIN/dpot02.f b/lapack-netlib/TESTING/LIN/dpot02.f index 347b50378..6d87b89f5 100644 --- a/lapack-netlib/TESTING/LIN/dpot02.f +++ b/lapack-netlib/TESTING/LIN/dpot02.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dpot03.f b/lapack-netlib/TESTING/LIN/dpot03.f index d7a0cca92..2e506b623 100644 --- a/lapack-netlib/TESTING/LIN/dpot03.f +++ b/lapack-netlib/TESTING/LIN/dpot03.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, $ RWORK, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dpot05.f b/lapack-netlib/TESTING/LIN/dpot05.f index fa9490915..25a195bdd 100644 --- a/lapack-netlib/TESTING/LIN/dpot05.f +++ b/lapack-netlib/TESTING/LIN/dpot05.f @@ -156,18 +156,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dpot06.f b/lapack-netlib/TESTING/LIN/dpot06.f index 420662c1b..397ed19c2 100644 --- a/lapack-netlib/TESTING/LIN/dpot06.f +++ b/lapack-netlib/TESTING/LIN/dpot06.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPOT06( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dppt01.f b/lapack-netlib/TESTING/LIN/dppt01.f index 2ad9e6839..a357d0794 100644 --- a/lapack-netlib/TESTING/LIN/dppt01.f +++ b/lapack-netlib/TESTING/LIN/dppt01.f @@ -86,17 +86,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPPT01( UPLO, N, A, AFAC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dppt02.f b/lapack-netlib/TESTING/LIN/dppt02.f index de878137a..f854f9b18 100644 --- a/lapack-netlib/TESTING/LIN/dppt02.f +++ b/lapack-netlib/TESTING/LIN/dppt02.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dppt03.f b/lapack-netlib/TESTING/LIN/dppt03.f index edaec4446..9e24cf6b3 100644 --- a/lapack-netlib/TESTING/LIN/dppt03.f +++ b/lapack-netlib/TESTING/LIN/dppt03.f @@ -102,18 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dppt05.f b/lapack-netlib/TESTING/LIN/dppt05.f index 8d9dcc3ca..fefe2e923 100644 --- a/lapack-netlib/TESTING/LIN/dppt05.f +++ b/lapack-netlib/TESTING/LIN/dppt05.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dpst01.f b/lapack-netlib/TESTING/LIN/dpst01.f index d6b6da93d..ffe75d8a9 100644 --- a/lapack-netlib/TESTING/LIN/dpst01.f +++ b/lapack-netlib/TESTING/LIN/dpst01.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, $ PIV, RWORK, RESID, RANK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION RESID diff --git a/lapack-netlib/TESTING/LIN/dptt01.f b/lapack-netlib/TESTING/LIN/dptt01.f index 44c609cbd..2c6c440ff 100644 --- a/lapack-netlib/TESTING/LIN/dptt01.f +++ b/lapack-netlib/TESTING/LIN/dptt01.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPTT01( N, D, E, DF, EF, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N diff --git a/lapack-netlib/TESTING/LIN/dptt02.f b/lapack-netlib/TESTING/LIN/dptt02.f index a9e8bd620..a4802c696 100644 --- a/lapack-netlib/TESTING/LIN/dptt02.f +++ b/lapack-netlib/TESTING/LIN/dptt02.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPTT02( N, NRHS, D, E, X, LDX, B, LDB, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDX, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/dptt05.f b/lapack-netlib/TESTING/LIN/dptt05.f index 4a7aa6dc8..1cd2c4b66 100644 --- a/lapack-netlib/TESTING/LIN/dptt05.f +++ b/lapack-netlib/TESTING/LIN/dptt05.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, $ FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDX, LDXACT, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/dqlt01.f b/lapack-netlib/TESTING/LIN/dqlt01.f index 7bc66cb42..5a27350cb 100644 --- a/lapack-netlib/TESTING/LIN/dqlt01.f +++ b/lapack-netlib/TESTING/LIN/dqlt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dqlt02.f b/lapack-netlib/TESTING/LIN/dqlt02.f index 16a532b53..950cfe67b 100644 --- a/lapack-netlib/TESTING/LIN/dqlt02.f +++ b/lapack-netlib/TESTING/LIN/dqlt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dqlt03.f b/lapack-netlib/TESTING/LIN/dqlt03.f index 40c6638c5..bed6a00c8 100644 --- a/lapack-netlib/TESTING/LIN/dqlt03.f +++ b/lapack-netlib/TESTING/LIN/dqlt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dqpt01.f b/lapack-netlib/TESTING/LIN/dqpt01.f index b72eaaa77..8efbdc774 100644 --- a/lapack-netlib/TESTING/LIN/dqpt01.f +++ b/lapack-netlib/TESTING/LIN/dqpt01.f @@ -112,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== DOUBLE PRECISION FUNCTION DQPT01( M, N, K, A, AF, LDA, TAU, JPVT, $ WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dqrt01.f b/lapack-netlib/TESTING/LIN/dqrt01.f index fd411eb04..2ddd551ce 100644 --- a/lapack-netlib/TESTING/LIN/dqrt01.f +++ b/lapack-netlib/TESTING/LIN/dqrt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dqrt01p.f b/lapack-netlib/TESTING/LIN/dqrt01p.f index 6f9ba5ea9..7dc7668ce 100644 --- a/lapack-netlib/TESTING/LIN/dqrt01p.f +++ b/lapack-netlib/TESTING/LIN/dqrt01p.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dqrt02.f b/lapack-netlib/TESTING/LIN/dqrt02.f index 9008a4900..d0e4349d1 100644 --- a/lapack-netlib/TESTING/LIN/dqrt02.f +++ b/lapack-netlib/TESTING/LIN/dqrt02.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dqrt03.f b/lapack-netlib/TESTING/LIN/dqrt03.f index 9c957b02c..d156faca0 100644 --- a/lapack-netlib/TESTING/LIN/dqrt03.f +++ b/lapack-netlib/TESTING/LIN/dqrt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dqrt04.f b/lapack-netlib/TESTING/LIN/dqrt04.f index 5d9e10313..6a7baea0f 100644 --- a/lapack-netlib/TESTING/LIN/dqrt04.f +++ b/lapack-netlib/TESTING/LIN/dqrt04.f @@ -66,18 +66,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQRT04(M,N,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER M, N, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/dqrt05.f b/lapack-netlib/TESTING/LIN/dqrt05.f index 2e4610068..2badd6d49 100644 --- a/lapack-netlib/TESTING/LIN/dqrt05.f +++ b/lapack-netlib/TESTING/LIN/dqrt05.f @@ -73,18 +73,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQRT05(M,N,L,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER LWORK, M, N, L, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/dqrt11.f b/lapack-netlib/TESTING/LIN/dqrt11.f index fe29ca589..33c7fab37 100644 --- a/lapack-netlib/TESTING/LIN/dqrt11.f +++ b/lapack-netlib/TESTING/LIN/dqrt11.f @@ -91,17 +91,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== DOUBLE PRECISION FUNCTION DQRT11( M, K, A, LDA, TAU, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M diff --git a/lapack-netlib/TESTING/LIN/dqrt12.f b/lapack-netlib/TESTING/LIN/dqrt12.f index b8da5b623..278e01bf0 100644 --- a/lapack-netlib/TESTING/LIN/dqrt12.f +++ b/lapack-netlib/TESTING/LIN/dqrt12.f @@ -82,17 +82,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== DOUBLE PRECISION FUNCTION DQRT12( M, N, A, LDA, S, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dqrt13.f b/lapack-netlib/TESTING/LIN/dqrt13.f index 42947b2cb..203f62069 100644 --- a/lapack-netlib/TESTING/LIN/dqrt13.f +++ b/lapack-netlib/TESTING/LIN/dqrt13.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, M, N, SCALE diff --git a/lapack-netlib/TESTING/LIN/dqrt14.f b/lapack-netlib/TESTING/LIN/dqrt14.f index 9301e251f..fdfc96b98 100644 --- a/lapack-netlib/TESTING/LIN/dqrt14.f +++ b/lapack-netlib/TESTING/LIN/dqrt14.f @@ -108,18 +108,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== DOUBLE PRECISION FUNCTION DQRT14( TRANS, M, N, NRHS, A, LDA, X, $ LDX, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -200,7 +197,6 @@ IF( XNRM.NE.ZERO ) $ CALL DLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS, $ WORK( N*LDWORK+1 ), LDWORK, INFO ) - ANRM = DLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK ) * * Compute QR factorization of X * diff --git a/lapack-netlib/TESTING/LIN/dqrt15.f b/lapack-netlib/TESTING/LIN/dqrt15.f index 68cf0cc8c..1c5f9e47b 100644 --- a/lapack-netlib/TESTING/LIN/dqrt15.f +++ b/lapack-netlib/TESTING/LIN/dqrt15.f @@ -140,18 +140,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, $ RANK, NORMA, NORMB, ISEED, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE diff --git a/lapack-netlib/TESTING/LIN/dqrt16.f b/lapack-netlib/TESTING/LIN/dqrt16.f index 157f78e2f..cb4ba183a 100644 --- a/lapack-netlib/TESTING/LIN/dqrt16.f +++ b/lapack-netlib/TESTING/LIN/dqrt16.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/dqrt17.f b/lapack-netlib/TESTING/LIN/dqrt17.f index 78580dca1..ccbb3cff4 100644 --- a/lapack-netlib/TESTING/LIN/dqrt17.f +++ b/lapack-netlib/TESTING/LIN/dqrt17.f @@ -28,12 +28,15 @@ *> *> DQRT17 computes the ratio *> -*> || R'*op(A) ||/(||A||*alpha*max(M,N,NRHS)*eps) +*> norm(R**T * op(A)) / ( norm(A) * alpha * max(M,N,NRHS) * EPS ), *> -*> where R = op(A)*X - B, op(A) is A or A', and +*> where R = B - op(A)*X, op(A) is A or A**T, depending on TRANS, EPS +*> is the machine epsilon, and *> -*> alpha = ||B|| if IRESID = 1 (zero-residual problem) -*> alpha = ||R|| if IRESID = 2 (otherwise). +*> alpha = norm(B) if IRESID = 1 (zero-residual problem) +*> alpha = norm(R) if IRESID = 2 (otherwise). +*> +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -44,7 +47,7 @@ *> TRANS is CHARACTER*1 *> Specifies whether or not the transpose of A is used. *> = 'N': No transpose, op(A) = A. -*> = 'T': Transpose, op(A) = A'. +*> = 'T': Transpose, op(A) = A**T. *> \endverbatim *> *> \param[in] IRESID @@ -142,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== DOUBLE PRECISION FUNCTION DQRT17( TRANS, IRESID, M, N, NRHS, A, $ LDA, X, LDX, B, LDB, C, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -172,7 +172,7 @@ * .. * .. Local Scalars .. INTEGER INFO, ISCL, NCOLS, NROWS - DOUBLE PRECISION BIGNUM, ERR, NORMA, NORMB, NORMRS, SMLNUM + DOUBLE PRECISION ERR, NORMA, NORMB, NORMRS, SMLNUM * .. * .. Local Arrays .. DOUBLE PRECISION RWORK( 1 ) @@ -214,7 +214,6 @@ * NORMA = DLANGE( 'One-norm', M, N, A, LDA, RWORK ) SMLNUM = DLAMCH( 'Safe minimum' ) / DLAMCH( 'Precision' ) - BIGNUM = ONE / SMLNUM ISCL = 0 * * compute residual and scale it @@ -229,7 +228,7 @@ $ INFO ) END IF * -* compute R'*A +* compute R**T * op(A) * CALL DGEMM( 'Transpose', TRANS, NRHS, NCOLS, NROWS, ONE, C, LDB, $ A, LDA, ZERO, WORK, NRHS ) diff --git a/lapack-netlib/TESTING/LIN/drqt01.f b/lapack-netlib/TESTING/LIN/drqt01.f index d652b2a2b..936583ccb 100644 --- a/lapack-netlib/TESTING/LIN/drqt01.f +++ b/lapack-netlib/TESTING/LIN/drqt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/drqt02.f b/lapack-netlib/TESTING/LIN/drqt02.f index d10b5c117..7fbb6a6d4 100644 --- a/lapack-netlib/TESTING/LIN/drqt02.f +++ b/lapack-netlib/TESTING/LIN/drqt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/drqt03.f b/lapack-netlib/TESTING/LIN/drqt03.f index 7ec0d6c7f..1ddd76706 100644 --- a/lapack-netlib/TESTING/LIN/drqt03.f +++ b/lapack-netlib/TESTING/LIN/drqt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/drzt01.f b/lapack-netlib/TESTING/LIN/drzt01.f index 2108cd1c9..8e969aba7 100644 --- a/lapack-netlib/TESTING/LIN/drzt01.f +++ b/lapack-netlib/TESTING/LIN/drzt01.f @@ -90,18 +90,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== DOUBLE PRECISION FUNCTION DRZT01( M, N, A, AF, LDA, TAU, WORK, $ LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/drzt02.f b/lapack-netlib/TESTING/LIN/drzt02.f index de3f26621..5b028f799 100644 --- a/lapack-netlib/TESTING/LIN/drzt02.f +++ b/lapack-netlib/TESTING/LIN/drzt02.f @@ -83,18 +83,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== DOUBLE PRECISION FUNCTION DRZT02( M, N, AF, LDA, TAU, WORK, $ LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/dspt01.f b/lapack-netlib/TESTING/LIN/dspt01.f index f1bc904fd..e71d217ae 100644 --- a/lapack-netlib/TESTING/LIN/dspt01.f +++ b/lapack-netlib/TESTING/LIN/dspt01.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dsyt01.f b/lapack-netlib/TESTING/LIN/dsyt01.f index f61b9113c..cb918de00 100644 --- a/lapack-netlib/TESTING/LIN/dsyt01.f +++ b/lapack-netlib/TESTING/LIN/dsyt01.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DSYT01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dsyt01_3.f b/lapack-netlib/TESTING/LIN/dsyt01_3.f index a12425ee5..2a7d9d142 100644 --- a/lapack-netlib/TESTING/LIN/dsyt01_3.f +++ b/lapack-netlib/TESTING/LIN/dsyt01_3.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DSYT01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dsyt01_aa.f b/lapack-netlib/TESTING/LIN/dsyt01_aa.f index f008ecf2e..94770532c 100644 --- a/lapack-netlib/TESTING/LIN/dsyt01_aa.f +++ b/lapack-netlib/TESTING/LIN/dsyt01_aa.f @@ -116,20 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* -* @precisions fortran d -> z c -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -258,6 +253,6 @@ * RETURN * -* End of DSYT01 +* End of DSYT01_AA * END diff --git a/lapack-netlib/TESTING/LIN/dsyt01_rook.f b/lapack-netlib/TESTING/LIN/dsyt01_rook.f index cb6668b18..c7b6bc2aa 100644 --- a/lapack-netlib/TESTING/LIN/dsyt01_rook.f +++ b/lapack-netlib/TESTING/LIN/dsyt01_rook.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DSYT01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/dtbt02.f b/lapack-netlib/TESTING/LIN/dtbt02.f index f0f522a96..347fbcb9c 100644 --- a/lapack-netlib/TESTING/LIN/dtbt02.f +++ b/lapack-netlib/TESTING/LIN/dtbt02.f @@ -28,12 +28,12 @@ *> \verbatim *> *> DTBT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b or A' *x = b when -*> A is a triangular band matrix. Here A' is the transpose of A and -*> x and b are N by NRHS matrices. The test ratio is the maximum over -*> the number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A or A' and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, when A is a +*> triangular band matrix. The test ratio is the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A or A**T, b is the column of B, x is the solution +*> vector, and EPS is the machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -51,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A'*x = b (Transpose) -*> = 'C': A'*x = b (Conjugate transpose = Transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] DIAG @@ -146,18 +146,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, $ LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -199,7 +196,7 @@ RETURN END IF * -* Compute the 1-norm of A or A'. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = DLANTB( '1', UPLO, DIAG, N, KD, AB, LDAB, WORK ) diff --git a/lapack-netlib/TESTING/LIN/dtbt03.f b/lapack-netlib/TESTING/LIN/dtbt03.f index 3aedad654..04307fd3b 100644 --- a/lapack-netlib/TESTING/LIN/dtbt03.f +++ b/lapack-netlib/TESTING/LIN/dtbt03.f @@ -166,8 +166,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -175,10 +173,9 @@ $ SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtbt05.f b/lapack-netlib/TESTING/LIN/dtbt05.f index 3c2a5318c..0b2430d60 100644 --- a/lapack-netlib/TESTING/LIN/dtbt05.f +++ b/lapack-netlib/TESTING/LIN/dtbt05.f @@ -181,18 +181,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtbt06.f b/lapack-netlib/TESTING/LIN/dtbt06.f index 2fd11f0e9..2e87bdaa7 100644 --- a/lapack-netlib/TESTING/LIN/dtbt06.f +++ b/lapack-netlib/TESTING/LIN/dtbt06.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, $ WORK, RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtplqt.f b/lapack-netlib/TESTING/LIN/dtplqt.f index 9fcecc984..7952c0576 100644 --- a/lapack-netlib/TESTING/LIN/dtplqt.f +++ b/lapack-netlib/TESTING/LIN/dtplqt.f @@ -132,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -189,10 +187,9 @@ SUBROUTINE DTPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, MB diff --git a/lapack-netlib/TESTING/LIN/dtpt01.f b/lapack-netlib/TESTING/LIN/dtpt01.f index 504dca627..58309b17b 100644 --- a/lapack-netlib/TESTING/LIN/dtpt01.f +++ b/lapack-netlib/TESTING/LIN/dtpt01.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtpt02.f b/lapack-netlib/TESTING/LIN/dtpt02.f index 777fdfc3b..8b0b4a73d 100644 --- a/lapack-netlib/TESTING/LIN/dtpt02.f +++ b/lapack-netlib/TESTING/LIN/dtpt02.f @@ -27,12 +27,13 @@ *> \verbatim *> *> DTPT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b or A'*x = b when -*> the triangular matrix A is stored in packed format. Here A' is the -*> transpose of A and x and b are N by NRHS matrices. The test ratio is -*> the maximum over the number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A or A' and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, when the +*> triangular matrix A is stored in packed format. The test ratio is +*> the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A or A**T, b is the column of B, x is the solution +*> vector, and EPS is the machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -50,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A'*x = b (Transpose) -*> = 'C': A'*x = b (Conjugate transpose = Transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] DIAG @@ -122,7 +123,7 @@ *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -133,18 +134,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, $ WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -185,7 +183,7 @@ RETURN END IF * -* Compute the 1-norm of A or A'. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = DLANTP( '1', UPLO, DIAG, N, AP, WORK ) @@ -202,7 +200,7 @@ END IF * * Compute the maximum over the number of right hand sides of -* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/dtpt03.f b/lapack-netlib/TESTING/LIN/dtpt03.f index ad82e59e9..069836a0c 100644 --- a/lapack-netlib/TESTING/LIN/dtpt03.f +++ b/lapack-netlib/TESTING/LIN/dtpt03.f @@ -153,18 +153,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, $ TSCAL, X, LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtpt05.f b/lapack-netlib/TESTING/LIN/dtpt05.f index 458a42ec4..117acae01 100644 --- a/lapack-netlib/TESTING/LIN/dtpt05.f +++ b/lapack-netlib/TESTING/LIN/dtpt05.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtpt06.f b/lapack-netlib/TESTING/LIN/dtpt06.f index 3f7c68832..f5eb2a512 100644 --- a/lapack-netlib/TESTING/LIN/dtpt06.f +++ b/lapack-netlib/TESTING/LIN/dtpt06.f @@ -104,17 +104,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, WORK, RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtrt01.f b/lapack-netlib/TESTING/LIN/dtrt01.f index 3039a2be7..e5827fe78 100644 --- a/lapack-netlib/TESTING/LIN/dtrt01.f +++ b/lapack-netlib/TESTING/LIN/dtrt01.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, $ WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtrt02.f b/lapack-netlib/TESTING/LIN/dtrt02.f index ad7d9b963..6d22f688b 100644 --- a/lapack-netlib/TESTING/LIN/dtrt02.f +++ b/lapack-netlib/TESTING/LIN/dtrt02.f @@ -28,12 +28,12 @@ *> \verbatim *> *> DTRT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b or A'*x = b. -*> Here A is a triangular matrix, A' is the transpose of A, and x and b -*> are N by NRHS matrices. The test ratio is the maximum over the -*> number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A or A' and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, where A is a +*> triangular matrix. The test ratio is the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A or A**T, b is the column of B, x is the solution +*> vector, and EPS is the machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -51,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A'*x = b (Transpose) -*> = 'C': A'*x = b (Conjugate transpose = Transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] DIAG @@ -131,7 +131,7 @@ *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, $ LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -195,7 +192,7 @@ RETURN END IF * -* Compute the 1-norm of A or A'. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = DLANTR( '1', UPLO, DIAG, N, N, A, LDA, WORK ) @@ -212,7 +209,7 @@ END IF * * Compute the maximum over the number of right hand sides of -* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ) +* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ) * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/dtrt03.f b/lapack-netlib/TESTING/LIN/dtrt03.f index 067db391b..ef6a33f6a 100644 --- a/lapack-netlib/TESTING/LIN/dtrt03.f +++ b/lapack-netlib/TESTING/LIN/dtrt03.f @@ -161,18 +161,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, $ CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtrt05.f b/lapack-netlib/TESTING/LIN/dtrt05.f index f5ef13462..c03aa5bf9 100644 --- a/lapack-netlib/TESTING/LIN/dtrt05.f +++ b/lapack-netlib/TESTING/LIN/dtrt05.f @@ -173,18 +173,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtrt06.f b/lapack-netlib/TESTING/LIN/dtrt06.f index f4f861e42..276e5485f 100644 --- a/lapack-netlib/TESTING/LIN/dtrt06.f +++ b/lapack-netlib/TESTING/LIN/dtrt06.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, WORK, $ RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/dtsqr01.f b/lapack-netlib/TESTING/LIN/dtsqr01.f index 25bf58a81..85733be4c 100644 --- a/lapack-netlib/TESTING/LIN/dtsqr01.f +++ b/lapack-netlib/TESTING/LIN/dtsqr01.f @@ -77,18 +77,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE DTSQR01(TSSW, M, N, MB, NB, RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER TSSW diff --git a/lapack-netlib/TESTING/LIN/icopy.f b/lapack-netlib/TESTING/LIN/icopy.f index a518b0f0f..05bbf11fc 100644 --- a/lapack-netlib/TESTING/LIN/icopy.f +++ b/lapack-netlib/TESTING/LIN/icopy.f @@ -68,17 +68,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_lin * * ===================================================================== SUBROUTINE ICOPY( N, SX, INCX, SY, INCY ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INCX, INCY, N diff --git a/lapack-netlib/TESTING/LIN/ilaenv.f b/lapack-netlib/TESTING/LIN/ilaenv.f index 5f7f291aa..50c6a4c6c 100644 --- a/lapack-netlib/TESTING/LIN/ilaenv.f +++ b/lapack-netlib/TESTING/LIN/ilaenv.f @@ -119,8 +119,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup aux_lin * *> \par Further Details: @@ -150,10 +148,9 @@ INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, $ N4 ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*( * ) NAME, OPTS diff --git a/lapack-netlib/TESTING/LIN/schkeq.f b/lapack-netlib/TESTING/LIN/schkeq.f index 6381d9ddc..62898cf7a 100644 --- a/lapack-netlib/TESTING/LIN/schkeq.f +++ b/lapack-netlib/TESTING/LIN/schkeq.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SCHKEQ( THRESH, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NOUT diff --git a/lapack-netlib/TESTING/LIN/schkgb.f b/lapack-netlib/TESTING/LIN/schkgb.f index 724109b28..9ab8c0e01 100644 --- a/lapack-netlib/TESTING/LIN/schkgb.f +++ b/lapack-netlib/TESTING/LIN/schkgb.f @@ -160,7 +160,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is REAL array, dimension -*> (max(NMAX,2*NSMAX)) +*> (NMAX+2*NSMAX) *> \endverbatim *> *> \param[out] IWORK @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -191,10 +189,9 @@ $ NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -566,7 +563,7 @@ END IF * *+ TEST 2: -* Solve and compute residual for A * X = B. +* Solve and compute residual for op(A) * X = B. * SRNAMT = 'SLARHS' CALL SLARHS( PATH, XTYPE, ' ', TRANS, N, @@ -592,7 +589,7 @@ $ WORK, LDB ) CALL SGBT02( TRANS, M, N, KL, KU, NRHS, A, $ LDA, X, LDB, WORK, LDB, - $ RESULT( 2 ) ) + $ RWORK, RESULT( 2 ) ) * *+ TEST 3: * Check solution from generated exact diff --git a/lapack-netlib/TESTING/LIN/schkge.f b/lapack-netlib/TESTING/LIN/schkge.f index 2b8a77cc8..0921f7925 100644 --- a/lapack-netlib/TESTING/LIN/schkge.f +++ b/lapack-netlib/TESTING/LIN/schkge.f @@ -77,7 +77,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -176,8 +176,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup single_lin * * ===================================================================== @@ -185,10 +183,9 @@ $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkgt.f b/lapack-netlib/TESTING/LIN/schkgt.f index c2dce7bb8..0a538a614 100644 --- a/lapack-netlib/TESTING/LIN/schkgt.f +++ b/lapack-netlib/TESTING/LIN/schkgt.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schklq.f b/lapack-netlib/TESTING/LIN/schklq.f index 7084a040c..cd66e8d10 100644 --- a/lapack-netlib/TESTING/LIN/schklq.f +++ b/lapack-netlib/TESTING/LIN/schklq.f @@ -187,8 +187,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -196,10 +194,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schklqt.f b/lapack-netlib/TESTING/LIN/schklqt.f index 2daca557f..2230583ba 100644 --- a/lapack-netlib/TESTING/LIN/schklqt.f +++ b/lapack-netlib/TESTING/LIN/schklqt.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schklqtp.f b/lapack-netlib/TESTING/LIN/schklqtp.f index dbb44e020..20c0dd019 100644 --- a/lapack-netlib/TESTING/LIN/schklqtp.f +++ b/lapack-netlib/TESTING/LIN/schklqtp.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkorhr_col.f b/lapack-netlib/TESTING/LIN/schkorhr_col.f index f61b74902..9c91b8535 100644 --- a/lapack-netlib/TESTING/LIN/schkorhr_col.f +++ b/lapack-netlib/TESTING/LIN/schkorhr_col.f @@ -82,7 +82,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> diff --git a/lapack-netlib/TESTING/LIN/schkpb.f b/lapack-netlib/TESTING/LIN/schkpb.f index 257d592ec..fdad0d6df 100644 --- a/lapack-netlib/TESTING/LIN/schkpb.f +++ b/lapack-netlib/TESTING/LIN/schkpb.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -172,10 +170,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkpo.f b/lapack-netlib/TESTING/LIN/schkpo.f index d712b3851..ccfb9b7b2 100644 --- a/lapack-netlib/TESTING/LIN/schkpo.f +++ b/lapack-netlib/TESTING/LIN/schkpo.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -172,10 +170,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkpp.f b/lapack-netlib/TESTING/LIN/schkpp.f index 0f3422480..977c78548 100644 --- a/lapack-netlib/TESTING/LIN/schkpp.f +++ b/lapack-netlib/TESTING/LIN/schkpp.f @@ -154,8 +154,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -163,10 +161,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkps.f b/lapack-netlib/TESTING/LIN/schkps.f index bae34d27a..7bd70c452 100644 --- a/lapack-netlib/TESTING/LIN/schkps.f +++ b/lapack-netlib/TESTING/LIN/schkps.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the block size NB. *> \endverbatim *> @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -154,10 +152,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL THRESH diff --git a/lapack-netlib/TESTING/LIN/schkpt.f b/lapack-netlib/TESTING/LIN/schkpt.f index 08a99ab74..569a3f01b 100644 --- a/lapack-netlib/TESTING/LIN/schkpt.f +++ b/lapack-netlib/TESTING/LIN/schkpt.f @@ -138,18 +138,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, D, E, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkq3.f b/lapack-netlib/TESTING/LIN/schkq3.f index 8c10f6285..209683f48 100644 --- a/lapack-netlib/TESTING/LIN/schkq3.f +++ b/lapack-netlib/TESTING/LIN/schkq3.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -153,10 +151,9 @@ $ THRESH, A, COPYA, S, TAU, WORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NM, NN, NNB, NOUT diff --git a/lapack-netlib/TESTING/LIN/schkql.f b/lapack-netlib/TESTING/LIN/schkql.f index 817753dba..b68c9bcb0 100644 --- a/lapack-netlib/TESTING/LIN/schkql.f +++ b/lapack-netlib/TESTING/LIN/schkql.f @@ -187,8 +187,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -196,10 +194,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkqr.f b/lapack-netlib/TESTING/LIN/schkqr.f index 154607600..5c45ede9b 100644 --- a/lapack-netlib/TESTING/LIN/schkqr.f +++ b/lapack-netlib/TESTING/LIN/schkqr.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -201,10 +199,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkqrt.f b/lapack-netlib/TESTING/LIN/schkqrt.f index 9a3cc37d0..ed25a230d 100644 --- a/lapack-netlib/TESTING/LIN/schkqrt.f +++ b/lapack-netlib/TESTING/LIN/schkqrt.f @@ -74,7 +74,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -92,8 +92,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -101,10 +99,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkqrtp.f b/lapack-netlib/TESTING/LIN/schkqrtp.f index 32bae3b39..eee963c47 100644 --- a/lapack-netlib/TESTING/LIN/schkqrtp.f +++ b/lapack-netlib/TESTING/LIN/schkqrtp.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup single_lin * * ===================================================================== @@ -103,10 +101,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schkrfp.f b/lapack-netlib/TESTING/LIN/schkrfp.f index 066bca694..f3fdfa07f 100644 --- a/lapack-netlib/TESTING/LIN/schkrfp.f +++ b/lapack-netlib/TESTING/LIN/schkrfp.f @@ -52,17 +52,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup single_lin * * ===================================================================== PROGRAM SCHKRFP * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/LIN/schkrq.f b/lapack-netlib/TESTING/LIN/schkrq.f index 5c463dd1c..095fbbf9b 100644 --- a/lapack-netlib/TESTING/LIN/schkrq.f +++ b/lapack-netlib/TESTING/LIN/schkrq.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -201,10 +199,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schksp.f b/lapack-netlib/TESTING/LIN/schksp.f index 53cecd9e7..b3c45d1f2 100644 --- a/lapack-netlib/TESTING/LIN/schksp.f +++ b/lapack-netlib/TESTING/LIN/schksp.f @@ -154,8 +154,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -163,10 +161,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schksy.f b/lapack-netlib/TESTING/LIN/schksy.f index aee800a69..dc94b3492 100644 --- a/lapack-netlib/TESTING/LIN/schksy.f +++ b/lapack-netlib/TESTING/LIN/schksy.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup single_lin * * ===================================================================== @@ -170,10 +168,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schksy_aa.f b/lapack-netlib/TESTING/LIN/schksy_aa.f index 93be3bdd4..75b895bd4 100644 --- a/lapack-netlib/TESTING/LIN/schksy_aa.f +++ b/lapack-netlib/TESTING/LIN/schksy_aa.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -161,8 +161,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup real_lin * * ===================================================================== @@ -170,10 +168,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/LIN/schksy_aa_2stage.f b/lapack-netlib/TESTING/LIN/schksy_aa_2stage.f index 7cdcc9181..d3c27ae56 100644 --- a/lapack-netlib/TESTING/LIN/schksy_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/schksy_aa_2stage.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup real_lin * * ===================================================================== @@ -171,10 +169,9 @@ $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * @@ -567,6 +564,6 @@ $ I6 ) RETURN * -* End of DCHKSY_AA_2STAGE +* End of SCHKSY_AA_2STAGE * END diff --git a/lapack-netlib/TESTING/LIN/schksy_rk.f b/lapack-netlib/TESTING/LIN/schksy_rk.f index 5456150a6..932e6e186 100644 --- a/lapack-netlib/TESTING/LIN/schksy_rk.f +++ b/lapack-netlib/TESTING/LIN/schksy_rk.f @@ -63,7 +63,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -167,8 +167,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup double_lin * * ===================================================================== @@ -176,10 +174,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -486,7 +483,7 @@ CALL SLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) SRNAMT = 'SSYTRI_3' * -* Another reason that we need to compute the invesrse +* Another reason that we need to compute the inverse * is that SPOT03 produces RCONDC which is used later * in TEST6 and TEST7. * diff --git a/lapack-netlib/TESTING/LIN/schksy_rook.f b/lapack-netlib/TESTING/LIN/schksy_rook.f index 0d9e58fba..eb91eba4f 100644 --- a/lapack-netlib/TESTING/LIN/schksy_rook.f +++ b/lapack-netlib/TESTING/LIN/schksy_rook.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -171,10 +169,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schktb.f b/lapack-netlib/TESTING/LIN/schktb.f index deb83bf0a..cdbb622b1 100644 --- a/lapack-netlib/TESTING/LIN/schktb.f +++ b/lapack-netlib/TESTING/LIN/schktb.f @@ -146,8 +146,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -155,10 +153,9 @@ $ NMAX, AB, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schktp.f b/lapack-netlib/TESTING/LIN/schktp.f index 6f3a96f7e..ff05c1d97 100644 --- a/lapack-netlib/TESTING/LIN/schktp.f +++ b/lapack-netlib/TESTING/LIN/schktp.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -157,10 +155,9 @@ $ NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schktr.f b/lapack-netlib/TESTING/LIN/schktr.f index a9737e35c..66fa0bee7 100644 --- a/lapack-netlib/TESTING/LIN/schktr.f +++ b/lapack-netlib/TESTING/LIN/schktr.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -167,10 +165,9 @@ $ THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, $ WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/schktsqr.f b/lapack-netlib/TESTING/LIN/schktsqr.f index aa4d6f9c4..5d7aa2d37 100644 --- a/lapack-netlib/TESTING/LIN/schktsqr.f +++ b/lapack-netlib/TESTING/LIN/schktsqr.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -254,6 +251,6 @@ $ ', NB=', I5,' test(', I2, ')=', G12.5 ) RETURN * -* End of SCHKQRT +* End of SCHKTSQR * END diff --git a/lapack-netlib/TESTING/LIN/schktz.f b/lapack-netlib/TESTING/LIN/schktz.f index 92d671c87..85544542a 100644 --- a/lapack-netlib/TESTING/LIN/schktz.f +++ b/lapack-netlib/TESTING/LIN/schktz.f @@ -124,18 +124,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, $ COPYA, S, TAU, WORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvgb.f b/lapack-netlib/TESTING/LIN/sdrvgb.f index fc106ea51..d7c293ab6 100644 --- a/lapack-netlib/TESTING/LIN/sdrvgb.f +++ b/lapack-netlib/TESTING/LIN/sdrvgb.f @@ -141,7 +141,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is REAL array, dimension -*> (max(NMAX,2*NRHS)) +*> (NMAX+2*NRHS) *> \endverbatim *> *> \param[out] IWORK @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -172,10 +170,9 @@ $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -585,7 +582,8 @@ $ WORK, LDB ) CALL SGBT02( 'No transpose', N, N, KL, $ KU, NRHS, A, LDA, X, LDB, - $ WORK, LDB, RESULT( 2 ) ) + $ WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact * solution. @@ -702,6 +700,7 @@ $ WORK, LDB ) CALL SGBT02( TRANS, N, N, KL, KU, NRHS, $ ASAV, LDA, X, LDB, WORK, LDB, + $ RWORK( 2*NRHS+1 ), $ RESULT( 2 ) ) * * Check solution from generated exact diff --git a/lapack-netlib/TESTING/LIN/sdrvgbx.f b/lapack-netlib/TESTING/LIN/sdrvgbx.f index 45adc39db..342e25ac2 100644 --- a/lapack-netlib/TESTING/LIN/sdrvgbx.f +++ b/lapack-netlib/TESTING/LIN/sdrvgbx.f @@ -144,7 +144,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is REAL array, dimension -*> (max(NMAX,2*NRHS)) +*> (max(2*NMAX,NMAX+2*NRHS)) *> \endverbatim *> *> \param[out] IWORK @@ -166,8 +166,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -175,10 +173,9 @@ $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -593,7 +590,8 @@ $ WORK, LDB ) CALL SGBT02( 'No transpose', N, N, KL, $ KU, NRHS, A, LDA, X, LDB, - $ WORK, LDB, RESULT( 2 ) ) + $ WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact * solution. @@ -710,6 +708,7 @@ $ WORK, LDB ) CALL SGBT02( TRANS, N, N, KL, KU, NRHS, $ ASAV, LDA, X, LDB, WORK, LDB, + $ RWORK( 2*NRHS+1 ), $ RESULT( 2 ) ) * * Check solution from generated exact @@ -896,7 +895,7 @@ CALL SLACPY( 'Full', N, NRHS, BSAV, LDB, WORK, $ LDB ) CALL SGBT02( TRANS, N, N, KL, KU, NRHS, ASAV, - $ LDA, X, LDB, WORK, LDB, + $ LDA, X, LDB, WORK, LDB, RWORK, $ RESULT( 2 ) ) * * Check solution from generated exact solution. @@ -1027,6 +1026,6 @@ * RETURN * -* End of SDRVGB +* End of SDRVGBX * END diff --git a/lapack-netlib/TESTING/LIN/sdrvge.f b/lapack-netlib/TESTING/LIN/sdrvge.f index 8c08cddba..fa66d12c1 100644 --- a/lapack-netlib/TESTING/LIN/sdrvge.f +++ b/lapack-netlib/TESTING/LIN/sdrvge.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -164,10 +162,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvgex.f b/lapack-netlib/TESTING/LIN/sdrvgex.f index 1cc9f3c9f..a7a9984ff 100644 --- a/lapack-netlib/TESTING/LIN/sdrvgex.f +++ b/lapack-netlib/TESTING/LIN/sdrvgex.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup single_lin * * ===================================================================== @@ -167,10 +165,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -889,6 +886,6 @@ $ G12.5 ) RETURN * -* End of SDRVGE +* End of SDRVGEX * END diff --git a/lapack-netlib/TESTING/LIN/sdrvgt.f b/lapack-netlib/TESTING/LIN/sdrvgt.f index f93978021..6c3ad2d7b 100644 --- a/lapack-netlib/TESTING/LIN/sdrvgt.f +++ b/lapack-netlib/TESTING/LIN/sdrvgt.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvls.f b/lapack-netlib/TESTING/LIN/sdrvls.f index 649ca558c..b96451503 100644 --- a/lapack-netlib/TESTING/LIN/sdrvls.f +++ b/lapack-netlib/TESTING/LIN/sdrvls.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup single_lin * * ===================================================================== @@ -192,10 +190,9 @@ $ NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, $ COPYB, C, S, COPYS, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvpb.f b/lapack-netlib/TESTING/LIN/sdrvpb.f index ba018bc6d..e3e9ea373 100644 --- a/lapack-netlib/TESTING/LIN/sdrvpb.f +++ b/lapack-netlib/TESTING/LIN/sdrvpb.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -164,10 +162,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvpo.f b/lapack-netlib/TESTING/LIN/sdrvpo.f index d8d90cc3b..5ac638b0b 100644 --- a/lapack-netlib/TESTING/LIN/sdrvpo.f +++ b/lapack-netlib/TESTING/LIN/sdrvpo.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -164,10 +162,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvpox.f b/lapack-netlib/TESTING/LIN/sdrvpox.f index 23fc87d3c..ae3cf9bee 100644 --- a/lapack-netlib/TESTING/LIN/sdrvpox.f +++ b/lapack-netlib/TESTING/LIN/sdrvpox.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -167,10 +165,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -731,6 +728,6 @@ $ G12.5 ) RETURN * -* End of SDRVPO +* End of SDRVPOX * END diff --git a/lapack-netlib/TESTING/LIN/sdrvpp.f b/lapack-netlib/TESTING/LIN/sdrvpp.f index 33b7d0d20..bfabe72b7 100644 --- a/lapack-netlib/TESTING/LIN/sdrvpp.f +++ b/lapack-netlib/TESTING/LIN/sdrvpp.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -167,10 +165,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvpt.f b/lapack-netlib/TESTING/LIN/sdrvpt.f index e2ca6bcb8..00754141b 100644 --- a/lapack-netlib/TESTING/LIN/sdrvpt.f +++ b/lapack-netlib/TESTING/LIN/sdrvpt.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, $ E, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvrf1.f b/lapack-netlib/TESTING/LIN/sdrvrf1.f index 4aa978204..1567b2762 100644 --- a/lapack-netlib/TESTING/LIN/sdrvrf1.f +++ b/lapack-netlib/TESTING/LIN/sdrvrf1.f @@ -87,17 +87,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/sdrvrf2.f b/lapack-netlib/TESTING/LIN/sdrvrf2.f index 350f47e14..1d2c85edb 100644 --- a/lapack-netlib/TESTING/LIN/sdrvrf2.f +++ b/lapack-netlib/TESTING/LIN/sdrvrf2.f @@ -82,17 +82,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/sdrvrf3.f b/lapack-netlib/TESTING/LIN/sdrvrf3.f index aa8e4f1da..5faae2733 100644 --- a/lapack-netlib/TESTING/LIN/sdrvrf3.f +++ b/lapack-netlib/TESTING/LIN/sdrvrf3.f @@ -110,18 +110,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, + S_WORK_SLANGE, S_WORK_SGEQRF, TAU ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT @@ -255,8 +252,8 @@ * Generate A our NA--by--NA triangular * 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 +* do want A to be well conditioned! To get +* a well-conditioned triangular matrix, we * take the R factor of the QR/LQ factorization * of a random matrix. * diff --git a/lapack-netlib/TESTING/LIN/sdrvrf4.f b/lapack-netlib/TESTING/LIN/sdrvrf4.f index d811d049b..e4d08ccbb 100644 --- a/lapack-netlib/TESTING/LIN/sdrvrf4.f +++ b/lapack-netlib/TESTING/LIN/sdrvrf4.f @@ -110,18 +110,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, + LDA, S_WORK_SLANGE ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDC, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/sdrvrfp.f b/lapack-netlib/TESTING/LIN/sdrvrfp.f index c0eb4d564..fbbf8bc88 100644 --- a/lapack-netlib/TESTING/LIN/sdrvrfp.f +++ b/lapack-netlib/TESTING/LIN/sdrvrfp.f @@ -203,11 +203,6 @@ *> S_TEMP_SPOT03 is REAL array, dimension ( NMAX*NMAX ) *> \endverbatim *> -*> \param[out] S_WORK_SLATMS -*> \verbatim -*> S_WORK_SLATMS is REAL array, dimension ( NMAX ) -*> \endverbatim -*> *> \param[out] S_WORK_SLANSY *> \verbatim *> S_WORK_SLANSY is REAL array, dimension ( NMAX ) @@ -231,8 +226,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -243,10 +236,9 @@ + S_TEMP_SPOT03, S_WORK_SLANSY, + S_WORK_SPOT02, S_WORK_SPOT03 ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NN, NNS, NNT, NOUT diff --git a/lapack-netlib/TESTING/LIN/sdrvsp.f b/lapack-netlib/TESTING/LIN/sdrvsp.f index 12110cfa9..077f04135 100644 --- a/lapack-netlib/TESTING/LIN/sdrvsp.f +++ b/lapack-netlib/TESTING/LIN/sdrvsp.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -156,10 +154,9 @@ $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvsy.f b/lapack-netlib/TESTING/LIN/sdrvsy.f index 1e3abeda1..509522c42 100644 --- a/lapack-netlib/TESTING/LIN/sdrvsy.f +++ b/lapack-netlib/TESTING/LIN/sdrvsy.f @@ -143,8 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup single_lin * * ===================================================================== @@ -152,10 +150,9 @@ $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvsy_aa.f b/lapack-netlib/TESTING/LIN/sdrvsy_aa.f index e4357c45f..ff0c3ab8d 100644 --- a/lapack-netlib/TESTING/LIN/sdrvsy_aa.f +++ b/lapack-netlib/TESTING/LIN/sdrvsy_aa.f @@ -143,8 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup real_lin * * ===================================================================== @@ -152,10 +150,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvsy_aa_2stage.f b/lapack-netlib/TESTING/LIN/sdrvsy_aa_2stage.f index 70e8ff6b8..aff32bce9 100644 --- a/lapack-netlib/TESTING/LIN/sdrvsy_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/sdrvsy_aa_2stage.f @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup real_lin * * ===================================================================== @@ -155,10 +153,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvsy_rk.f b/lapack-netlib/TESTING/LIN/sdrvsy_rk.f index 83cb5dda0..6018126f6 100644 --- a/lapack-netlib/TESTING/LIN/sdrvsy_rk.f +++ b/lapack-netlib/TESTING/LIN/sdrvsy_rk.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -156,10 +154,9 @@ $ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -411,7 +408,7 @@ CALL SLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) LWORK = (N+NB+1)*(NB+3) * -* We need to copute the invesrse to compute +* We need to compute the inverse to compute * RCONDC that is used later in TEST3. * CALL SSYTRI_3( UPLO, N, AINV, LDA, E, IWORK, diff --git a/lapack-netlib/TESTING/LIN/sdrvsy_rook.f b/lapack-netlib/TESTING/LIN/sdrvsy_rook.f index e729dc51e..eebfea59b 100644 --- a/lapack-netlib/TESTING/LIN/sdrvsy_rook.f +++ b/lapack-netlib/TESTING/LIN/sdrvsy_rook.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup double_lin * * ===================================================================== @@ -153,10 +151,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/sdrvsyx.f b/lapack-netlib/TESTING/LIN/sdrvsyx.f index e314da2e0..26f300548 100644 --- a/lapack-netlib/TESTING/LIN/sdrvsyx.f +++ b/lapack-netlib/TESTING/LIN/sdrvsyx.f @@ -147,8 +147,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -156,10 +154,9 @@ $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -707,6 +704,6 @@ $ ', type ', I2, ', test ', I2, ', ratio =', G12.5 ) RETURN * -* End of SDRVSY +* End of SDRVSYX * END diff --git a/lapack-netlib/TESTING/LIN/sebchvxx.f b/lapack-netlib/TESTING/LIN/sebchvxx.f index 8a8e08665..2485a7fd7 100644 --- a/lapack-netlib/TESTING/LIN/sebchvxx.f +++ b/lapack-netlib/TESTING/LIN/sebchvxx.f @@ -89,8 +89,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -492,5 +490,7 @@ c$$$ WRITE(*,*) 8000 FORMAT( ' S', A2, 'SVXX: N =', I2, ', INFO = ', I3, $ ', ORCOND = ', G12.5, ', real RCOND = ', G12.5 ) - +* +* End of SEBCHVXX +* END diff --git a/lapack-netlib/TESTING/LIN/serrge.f b/lapack-netlib/TESTING/LIN/serrge.f index d4b1f701f..7ac5c926b 100644 --- a/lapack-netlib/TESTING/LIN/serrge.f +++ b/lapack-netlib/TESTING/LIN/serrge.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRGE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrgex.f b/lapack-netlib/TESTING/LIN/serrgex.f index ebeceae86..b6da20b5e 100644 --- a/lapack-netlib/TESTING/LIN/serrgex.f +++ b/lapack-netlib/TESTING/LIN/serrgex.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRGE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -560,6 +557,6 @@ * RETURN * -* End of SERRGE +* End of SERRGEX * END diff --git a/lapack-netlib/TESTING/LIN/serrgt.f b/lapack-netlib/TESTING/LIN/serrgt.f index 0fc54cab9..431e8bbd9 100644 --- a/lapack-netlib/TESTING/LIN/serrgt.f +++ b/lapack-netlib/TESTING/LIN/serrgt.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRGT( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrlq.f b/lapack-netlib/TESTING/LIN/serrlq.f index e184f006f..5bb0fe201 100644 --- a/lapack-netlib/TESTING/LIN/serrlq.f +++ b/lapack-netlib/TESTING/LIN/serrlq.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRLQ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrlqt.f b/lapack-netlib/TESTING/LIN/serrlqt.f index 6144ec625..2a5f9eee2 100644 --- a/lapack-netlib/TESTING/LIN/serrlqt.f +++ b/lapack-netlib/TESTING/LIN/serrlqt.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE SERRLQT( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrlqtp.f b/lapack-netlib/TESTING/LIN/serrlqtp.f index 4d0437d4f..e06f23f53 100644 --- a/lapack-netlib/TESTING/LIN/serrlqtp.f +++ b/lapack-netlib/TESTING/LIN/serrlqtp.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE SERRLQTP( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -220,6 +217,6 @@ * RETURN * -* End of SERRLQT +* End of SERRLQTP * END diff --git a/lapack-netlib/TESTING/LIN/serrls.f b/lapack-netlib/TESTING/LIN/serrls.f index f7912e1fb..e6ee4360f 100644 --- a/lapack-netlib/TESTING/LIN/serrls.f +++ b/lapack-netlib/TESTING/LIN/serrls.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRLS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrorhr_col.f b/lapack-netlib/TESTING/LIN/serrorhr_col.f index e8d81a99c..3b222273c 100644 --- a/lapack-netlib/TESTING/LIN/serrorhr_col.f +++ b/lapack-netlib/TESTING/LIN/serrorhr_col.f @@ -22,7 +22,7 @@ *> \verbatim *> *> SERRORHR_COL tests the error exits for SORHR_COL that does -*> Householder reconstruction from the ouput of tall-skinny +*> Householder reconstruction from the output of tall-skinny *> factorization SLATSQR. *> \endverbatim * @@ -49,18 +49,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup singlr_lin * * ===================================================================== SUBROUTINE SERRORHR_COL( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.9.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. CHARACTER(LEN=3) PATH diff --git a/lapack-netlib/TESTING/LIN/serrpo.f b/lapack-netlib/TESTING/LIN/serrpo.f index 8061514d8..4c07c8f87 100644 --- a/lapack-netlib/TESTING/LIN/serrpo.f +++ b/lapack-netlib/TESTING/LIN/serrpo.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRPO( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrpox.f b/lapack-netlib/TESTING/LIN/serrpox.f index 123f5b70b..6e81bf670 100644 --- a/lapack-netlib/TESTING/LIN/serrpox.f +++ b/lapack-netlib/TESTING/LIN/serrpox.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRPO( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -526,6 +523,6 @@ * RETURN * -* End of SERRPO +* End of SERRPOX * END diff --git a/lapack-netlib/TESTING/LIN/serrps.f b/lapack-netlib/TESTING/LIN/serrps.f index dc9cb29f5..669028b81 100644 --- a/lapack-netlib/TESTING/LIN/serrps.f +++ b/lapack-netlib/TESTING/LIN/serrps.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRPS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/serrql.f b/lapack-netlib/TESTING/LIN/serrql.f index 1b094be6e..e714aa076 100644 --- a/lapack-netlib/TESTING/LIN/serrql.f +++ b/lapack-netlib/TESTING/LIN/serrql.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRQL( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrqp.f b/lapack-netlib/TESTING/LIN/serrqp.f index 596f275f3..952c5ff4e 100644 --- a/lapack-netlib/TESTING/LIN/serrqp.f +++ b/lapack-netlib/TESTING/LIN/serrqp.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRQP( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrqr.f b/lapack-netlib/TESTING/LIN/serrqr.f index 3339a85ad..1ad40b7aa 100644 --- a/lapack-netlib/TESTING/LIN/serrqr.f +++ b/lapack-netlib/TESTING/LIN/serrqr.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRQR( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrqrt.f b/lapack-netlib/TESTING/LIN/serrqrt.f index 1df2c25c9..f243fd94c 100644 --- a/lapack-netlib/TESTING/LIN/serrqrt.f +++ b/lapack-netlib/TESTING/LIN/serrqrt.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRQRT( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrqrtp.f b/lapack-netlib/TESTING/LIN/serrqrtp.f index 211643b9b..af1d61675 100644 --- a/lapack-netlib/TESTING/LIN/serrqrtp.f +++ b/lapack-netlib/TESTING/LIN/serrqrtp.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRQRTP( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -224,6 +221,6 @@ * RETURN * -* End of SERRQRT +* End of SERRQRTP * END diff --git a/lapack-netlib/TESTING/LIN/serrrfp.f b/lapack-netlib/TESTING/LIN/serrrfp.f index 1956cca4b..2c7ee8ed6 100644 --- a/lapack-netlib/TESTING/LIN/serrrfp.f +++ b/lapack-netlib/TESTING/LIN/serrrfp.f @@ -45,17 +45,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRRFP( NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/serrrq.f b/lapack-netlib/TESTING/LIN/serrrq.f index c2cec4328..d8d9ea62b 100644 --- a/lapack-netlib/TESTING/LIN/serrrq.f +++ b/lapack-netlib/TESTING/LIN/serrrq.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRRQ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrsy.f b/lapack-netlib/TESTING/LIN/serrsy.f index fe9af2f41..c562b417b 100644 --- a/lapack-netlib/TESTING/LIN/serrsy.f +++ b/lapack-netlib/TESTING/LIN/serrsy.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRSY( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrsyx.f b/lapack-netlib/TESTING/LIN/serrsyx.f index 9249f104f..ed47c37bd 100644 --- a/lapack-netlib/TESTING/LIN/serrsyx.f +++ b/lapack-netlib/TESTING/LIN/serrsyx.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRSY( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -613,6 +610,6 @@ * RETURN * -* End of SERRSY +* End of SERRSYX * END diff --git a/lapack-netlib/TESTING/LIN/serrtr.f b/lapack-netlib/TESTING/LIN/serrtr.f index 0bc4a897c..f0d0a0ef2 100644 --- a/lapack-netlib/TESTING/LIN/serrtr.f +++ b/lapack-netlib/TESTING/LIN/serrtr.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRTR( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrtsqr.f b/lapack-netlib/TESTING/LIN/serrtsqr.f index 7f91a3c39..7f25f8b08 100644 --- a/lapack-netlib/TESTING/LIN/serrtsqr.f +++ b/lapack-netlib/TESTING/LIN/serrtsqr.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE SERRTSQR( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -73,7 +70,7 @@ PARAMETER ( NMAX = 2 ) * .. * .. Local Scalars .. - INTEGER I, INFO, J, NB + INTEGER I, INFO, J, MB, NB * .. * .. Local Arrays .. REAL A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ), @@ -133,6 +130,35 @@ CALL SGEQR( 3, 2, A, 3, TAU, 7, W, 0, INFO ) CALL CHKXER( 'SGEQR', INFOT, NOUT, LERR, OK ) * +* SLATSQR +* + MB = 1 + NB = 1 + SRNAMT = 'SLATSQR' + INFOT = 1 + CALL SLATSQR( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL SLATSQR( 1, 2, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK ) + CALL SLATSQR( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL SLATSQR( 2, 1, -1, NB, A, 2, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 4 + CALL SLATSQR( 2, 1, MB, 2, A, 2, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 6 + CALL SLATSQR( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL SLATSQR( 2, 1, MB, NB, A, 2, TAU, 0, W, 1, INFO ) + CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL SLATSQR( 2, 1, MB, NB, A, 2, TAU, 2, W, 0, INFO ) + CALL CHKXER( 'SLATSQR', INFOT, NOUT, LERR, OK ) +* * SGEMQR * TAU(1)=1 @@ -194,6 +220,37 @@ CALL SGELQ( 2, 3, A, 3, TAU, 7, W, 0, INFO ) CALL CHKXER( 'SGELQ', INFOT, NOUT, LERR, OK ) * +* SLASWLQ +* + MB = 1 + NB = 1 + SRNAMT = 'SLASWLQ' + INFOT = 1 + CALL SLASWLQ( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL SLASWLQ( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK ) + CALL SLASWLQ( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL SLASWLQ( 1, 2, -1, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK ) + CALL SLASWLQ( 1, 1, 2, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 4 + CALL SLASWLQ( 1, 2, MB, -1, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 6 + CALL SLASWLQ( 1, 2, MB, NB, A, 0, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL SLASWLQ( 1, 2, MB, NB, A, 1, TAU, 0, W, 1, INFO ) + CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL SLASWLQ( 1, 2, MB, NB, A, 1, TAU, 1, W, 0, INFO ) + CALL CHKXER( 'SLASWLQ', INFOT, NOUT, LERR, OK ) +* * SGEMLQ * TAU(1)=1 diff --git a/lapack-netlib/TESTING/LIN/serrtz.f b/lapack-netlib/TESTING/LIN/serrtz.f index f5897642b..457f7b743 100644 --- a/lapack-netlib/TESTING/LIN/serrtz.f +++ b/lapack-netlib/TESTING/LIN/serrtz.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRTZ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrvx.f b/lapack-netlib/TESTING/LIN/serrvx.f index 910bff1e5..c3db47332 100644 --- a/lapack-netlib/TESTING/LIN/serrvx.f +++ b/lapack-netlib/TESTING/LIN/serrvx.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRVX( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/serrvxx.f b/lapack-netlib/TESTING/LIN/serrvxx.f index 4d2cd9f38..d48c29a17 100644 --- a/lapack-netlib/TESTING/LIN/serrvxx.f +++ b/lapack-netlib/TESTING/LIN/serrvxx.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SERRVX( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -1036,6 +1033,6 @@ * RETURN * -* End of SERRVX +* End of SERRVXX * END diff --git a/lapack-netlib/TESTING/LIN/sgbt01.f b/lapack-netlib/TESTING/LIN/sgbt01.f index 2dd6d93b2..0f6129240 100644 --- a/lapack-netlib/TESTING/LIN/sgbt01.f +++ b/lapack-netlib/TESTING/LIN/sgbt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KL, KU, LDA, LDAFAC, M, N diff --git a/lapack-netlib/TESTING/LIN/sgbt02.f b/lapack-netlib/TESTING/LIN/sgbt02.f index 2be982a8a..ecdb438ff 100644 --- a/lapack-netlib/TESTING/LIN/sgbt02.f +++ b/lapack-netlib/TESTING/LIN/sgbt02.f @@ -9,7 +9,7 @@ * =========== * * SUBROUTINE SGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, -* LDB, RESID ) +* LDB, RWORK, RESID ) * * .. Scalar Arguments .. * CHARACTER TRANS @@ -17,7 +17,8 @@ * REAL RESID * .. * .. Array Arguments .. -* REAL A( LDA, * ), B( LDB, * ), X( LDX, * ) +* REAL A( LDA, * ), B( LDB, * ), X( LDX, * ), +* RWORK( * ) * .. * * @@ -27,9 +28,11 @@ *> \verbatim *> *> SGBT02 computes the residual for a solution of a banded system of -*> equations A*x = b or A'*x = b: -*> RESID = norm( B - A*X ) / ( norm(A) * norm(X) * EPS). -*> where EPS is the machine precision. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A or A**T, depending on TRANS, and EPS is the +*> machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -39,9 +42,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A'*x = b, where A' is the transpose of A -*> = 'C': A'*x = b, where A' is the transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -116,11 +119,18 @@ *> LDB >= max(1,M); if TRANS = 'T' or 'C', LDB >= max(1,N). *> \endverbatim *> +*> \param[out] RWORK +*> \verbatim +*> RWORK is REAL array, dimension (MAX(1,LRWORK)), +*> where LRWORK >= M when TRANS = 'T' or 'C'; otherwise, RWORK +*> is not referenced. +*> \endverbatim +* *> \param[out] RESID *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -131,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, - $ LDB, RESID ) + $ LDB, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -150,7 +157,8 @@ REAL RESID * .. * .. Array Arguments .. - REAL A( LDA, * ), B( LDB, * ), X( LDX, * ) + REAL A( LDA, * ), B( LDB, * ), X( LDX, * ), + $ RWORK( * ) * .. * * ===================================================================== @@ -161,18 +169,18 @@ * .. * .. Local Scalars .. INTEGER I1, I2, J, KD, N1 - REAL ANORM, BNORM, EPS, XNORM + REAL ANORM, BNORM, EPS, TEMP, XNORM * .. * .. External Functions .. - LOGICAL LSAME + LOGICAL LSAME, SISNAN REAL SASUM, SLAMCH - EXTERNAL LSAME, SASUM, SLAMCH + EXTERNAL LSAME, SASUM, SISNAN, SLAMCH * .. * .. External Subroutines .. EXTERNAL SGBMV * .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC ABS, MAX, MIN * .. * .. Executable Statements .. * @@ -186,13 +194,38 @@ * Exit with RESID = 1/EPS if ANORM = 0. * EPS = SLAMCH( 'Epsilon' ) - KD = KU + 1 ANORM = ZERO + IF( LSAME( TRANS, 'N' ) ) THEN +* +* Find norm1(A). +* + KD = KU + 1 DO 10 J = 1, N I1 = MAX( KD+1-J, 1 ) I2 = MIN( KD+M-J, KL+KD ) - ANORM = MAX( ANORM, SASUM( I2-I1+1, A( I1, J ), 1 ) ) + IF( I2.GE.I1 ) THEN + TEMP = SASUM( I2-I1+1, A( I1, J ), 1 ) + IF( ANORM.LT.TEMP .OR. SISNAN( TEMP ) ) ANORM = TEMP + END IF 10 CONTINUE + ELSE +* +* Find normI(A). +* + DO 12 I1 = 1, M + RWORK( I1 ) = ZERO + 12 CONTINUE + DO 16 J = 1, N + KD = KU + 1 - J + DO 14 I1 = MAX( 1, J-KU ), MIN( M, J+KL ) + RWORK( I1 ) = RWORK( I1 ) + ABS( A( KD+I1, J ) ) + 14 CONTINUE + 16 CONTINUE + DO 18 I1 = 1, M + TEMP = RWORK( I1 ) + IF( ANORM.LT.TEMP .OR. SISNAN( TEMP ) ) ANORM = TEMP + 18 CONTINUE + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN @@ -204,7 +237,7 @@ N1 = M END IF * -* Compute B - A*X (or B - A'*X ) +* Compute B - op(A)*X * DO 20 J = 1, NRHS CALL SGBMV( TRANS, M, N, KL, KU, -ONE, A, LDA, X( 1, J ), 1, @@ -212,7 +245,7 @@ 20 CONTINUE * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). * RESID = ZERO DO 30 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/sgbt05.f b/lapack-netlib/TESTING/LIN/sgbt05.f index 82c5a4a86..cfd6dd743 100644 --- a/lapack-netlib/TESTING/LIN/sgbt05.f +++ b/lapack-netlib/TESTING/LIN/sgbt05.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/sgelqs.f b/lapack-netlib/TESTING/LIN/sgelqs.f index cdffebdc8..83afb4690 100644 --- a/lapack-netlib/TESTING/LIN/sgelqs.f +++ b/lapack-netlib/TESTING/LIN/sgelqs.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/sgennd.f b/lapack-netlib/TESTING/LIN/sgennd.f index 894590991..a5a420fdb 100644 --- a/lapack-netlib/TESTING/LIN/sgennd.f +++ b/lapack-netlib/TESTING/LIN/sgennd.f @@ -61,17 +61,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== LOGICAL FUNCTION SGENND (M, N, A, LDA) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/TESTING/LIN/sgeqls.f b/lapack-netlib/TESTING/LIN/sgeqls.f index 19ae7c592..8215b6a5b 100644 --- a/lapack-netlib/TESTING/LIN/sgeqls.f +++ b/lapack-netlib/TESTING/LIN/sgeqls.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/sgeqrs.f b/lapack-netlib/TESTING/LIN/sgeqrs.f index 9ec64073d..ed1148910 100644 --- a/lapack-netlib/TESTING/LIN/sgeqrs.f +++ b/lapack-netlib/TESTING/LIN/sgeqrs.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/sgerqs.f b/lapack-netlib/TESTING/LIN/sgerqs.f index 5b04c5ae2..0c5c693af 100644 --- a/lapack-netlib/TESTING/LIN/sgerqs.f +++ b/lapack-netlib/TESTING/LIN/sgerqs.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/sget01.f b/lapack-netlib/TESTING/LIN/sget01.f index aa748e8f0..a8b013d14 100644 --- a/lapack-netlib/TESTING/LIN/sget01.f +++ b/lapack-netlib/TESTING/LIN/sget01.f @@ -99,18 +99,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDAFAC, M, N diff --git a/lapack-netlib/TESTING/LIN/sget02.f b/lapack-netlib/TESTING/LIN/sget02.f index 0f15ec0f2..0aa49ad4f 100644 --- a/lapack-netlib/TESTING/LIN/sget02.f +++ b/lapack-netlib/TESTING/LIN/sget02.f @@ -28,9 +28,11 @@ *> \verbatim *> *> SGET02 computes the residual for a solution of a system of linear -*> equations A*x = b or A'*x = b: -*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ), -*> where EPS is the machine epsilon. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A or A**T, depending on TRANS, and EPS is the +*> machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -40,9 +42,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A'*x = b, where A' is the transpose of A -*> = 'C': A'*x = b, where A' is the transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -95,7 +97,7 @@ *> B is REAL array, dimension (LDB,NRHS) *> On entry, the right hand side vectors for the system of *> linear equations. -*> On exit, B is overwritten with the difference B - A*X. +*> On exit, B is overwritten with the difference B - op(A)*X. *> \endverbatim *> *> \param[in] LDB @@ -114,7 +116,7 @@ *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -125,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -189,19 +188,23 @@ * Exit with RESID = 1/EPS if ANORM = 0. * EPS = SLAMCH( 'Epsilon' ) + IF( LSAME( TRANS, 'N' ) ) THEN ANORM = SLANGE( '1', M, N, A, LDA, RWORK ) + ELSE + ANORM = SLANGE( 'I', M, N, A, LDA, RWORK ) + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN END IF * -* Compute B - A*X (or B - A'*X ) and store in B. +* Compute B - op(A)*X and store in B. * CALL SGEMM( TRANS, 'No transpose', N1, NRHS, N2, -ONE, A, LDA, X, $ LDX, ONE, B, LDB ) * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) . +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) . * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/sget03.f b/lapack-netlib/TESTING/LIN/sget03.f index 8b4a2a384..b32f10489 100644 --- a/lapack-netlib/TESTING/LIN/sget03.f +++ b/lapack-netlib/TESTING/LIN/sget03.f @@ -101,18 +101,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, $ RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDAINV, LDWORK, N diff --git a/lapack-netlib/TESTING/LIN/sget04.f b/lapack-netlib/TESTING/LIN/sget04.f index 3873aabda..8c4fe9a89 100644 --- a/lapack-netlib/TESTING/LIN/sget04.f +++ b/lapack-netlib/TESTING/LIN/sget04.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDX, LDXACT, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/sget06.f b/lapack-netlib/TESTING/LIN/sget06.f index 420004b31..12b952e13 100644 --- a/lapack-netlib/TESTING/LIN/sget06.f +++ b/lapack-netlib/TESTING/LIN/sget06.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== REAL FUNCTION SGET06( RCOND, RCONDC ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL RCOND, RCONDC diff --git a/lapack-netlib/TESTING/LIN/sget07.f b/lapack-netlib/TESTING/LIN/sget07.f index 42c25cb1d..4333ad0b2 100644 --- a/lapack-netlib/TESTING/LIN/sget07.f +++ b/lapack-netlib/TESTING/LIN/sget07.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, CHKFERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/sgtt01.f b/lapack-netlib/TESTING/LIN/sgtt01.f index 5096f83cc..5d88c91f7 100644 --- a/lapack-netlib/TESTING/LIN/sgtt01.f +++ b/lapack-netlib/TESTING/LIN/sgtt01.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, $ LDWORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDWORK, N diff --git a/lapack-netlib/TESTING/LIN/sgtt02.f b/lapack-netlib/TESTING/LIN/sgtt02.f index 0a3915057..a4eb09f6b 100644 --- a/lapack-netlib/TESTING/LIN/sgtt02.f +++ b/lapack-netlib/TESTING/LIN/sgtt02.f @@ -29,8 +29,9 @@ *> *> SGTT02 computes the residual for the solution to a tridiagonal *> system of equations: -*> RESID = norm(B - op(A)*X) / (norm(A) * norm(X) * EPS), +*> RESID = norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS), *> where EPS is the machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -41,8 +42,8 @@ *> TRANS is CHARACTER *> Specifies the form of the residual. *> = 'N': B - A * X (No transpose) -*> = 'T': B - A'* X (Transpose) -*> = 'C': B - A'* X (Conjugate transpose = Transpose) +*> = 'T': B - A**T * X (Transpose) +*> = 'C': B - A**H * X (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] N @@ -105,7 +106,7 @@ *> \param[out] RESID *> \verbatim *> RESID is REAL -*> norm(B - op(A)*X) / (norm(A) * norm(X) * EPS) +*> norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS) *> \endverbatim * * Authors: @@ -116,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -169,7 +167,7 @@ $ RETURN * * Compute the maximum over the number of right hand sides of -* norm(B - op(A)*X) / ( norm(A) * norm(X) * EPS ). +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = SLANGT( '1', N, DL, D, DU ) @@ -185,7 +183,7 @@ RETURN END IF * -* Compute B - op(A)*X. +* Compute B - op(A)*X and store in B. * CALL SLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B, $ LDB ) diff --git a/lapack-netlib/TESTING/LIN/sgtt05.f b/lapack-netlib/TESTING/LIN/sgtt05.f index a55537f34..adf4089b5 100644 --- a/lapack-netlib/TESTING/LIN/sgtt05.f +++ b/lapack-netlib/TESTING/LIN/sgtt05.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/slahilb.f b/lapack-netlib/TESTING/LIN/slahilb.f index 7944f0e9d..cb3272d3b 100644 --- a/lapack-netlib/TESTING/LIN/slahilb.f +++ b/lapack-netlib/TESTING/LIN/slahilb.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER N, NRHS, LDA, LDX, LDB, INFO diff --git a/lapack-netlib/TESTING/LIN/slaord.f b/lapack-netlib/TESTING/LIN/slaord.f index 3d4553efe..06bccf02e 100644 --- a/lapack-netlib/TESTING/LIN/slaord.f +++ b/lapack-netlib/TESTING/LIN/slaord.f @@ -66,17 +66,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLAORD( JOB, N, X, INCX ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER JOB diff --git a/lapack-netlib/TESTING/LIN/slaptm.f b/lapack-netlib/TESTING/LIN/slaptm.f index cfc04200a..6b3ffdf8a 100644 --- a/lapack-netlib/TESTING/LIN/slaptm.f +++ b/lapack-netlib/TESTING/LIN/slaptm.f @@ -109,17 +109,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLAPTM( N, NRHS, ALPHA, D, E, X, LDX, BETA, B, LDB ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDX, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/slarhs.f b/lapack-netlib/TESTING/LIN/slarhs.f index 4d84cc67e..2d5bf8266 100644 --- a/lapack-netlib/TESTING/LIN/slarhs.f +++ b/lapack-netlib/TESTING/LIN/slarhs.f @@ -30,7 +30,7 @@ *> SLARHS chooses a set of NRHS random solution vectors and sets *> up the right hand sides for the linear system *> op( A ) * X = B, -*> where op( A ) may be A or A' (transpose of A). +*> where op(A) = A or A**T, depending on TRANS. *> \endverbatim * * Arguments: @@ -79,10 +79,11 @@ *> \param[in] TRANS *> \verbatim *> TRANS is CHARACTER*1 -*> Specifies the operation applied to the matrix A. -*> = 'N': System is A * x = b -*> = 'T': System is A'* x = b -*> = 'C': System is A'* x = b +*> Used only if A is nonsymmetric; specifies the operation +*> applied to the matrix A. +*> = 'N': B := A * X (No transpose) +*> = 'T': B := A**T * X (Transpose) +*> = 'C': B := A**H * X (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] M @@ -196,18 +197,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS, UPLO, XTYPE diff --git a/lapack-netlib/TESTING/LIN/slatb4.f b/lapack-netlib/TESTING/LIN/slatb4.f index 7be45ca0a..94d29db40 100644 --- a/lapack-netlib/TESTING/LIN/slatb4.f +++ b/lapack-netlib/TESTING/LIN/slatb4.f @@ -112,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, TYPE diff --git a/lapack-netlib/TESTING/LIN/slatb5.f b/lapack-netlib/TESTING/LIN/slatb5.f index be8e962f9..6eefee426 100644 --- a/lapack-netlib/TESTING/LIN/slatb5.f +++ b/lapack-netlib/TESTING/LIN/slatb5.f @@ -106,18 +106,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL ANORM, CNDNUM diff --git a/lapack-netlib/TESTING/LIN/slattb.f b/lapack-netlib/TESTING/LIN/slattb.f index 42655ac63..57e32b2db 100644 --- a/lapack-netlib/TESTING/LIN/slattb.f +++ b/lapack-netlib/TESTING/LIN/slattb.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, $ LDAB, B, WORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/slattp.f b/lapack-netlib/TESTING/LIN/slattp.f index adc99f368..24650bcc4 100644 --- a/lapack-netlib/TESTING/LIN/slattp.f +++ b/lapack-netlib/TESTING/LIN/slattp.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, B, WORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/slattr.f b/lapack-netlib/TESTING/LIN/slattr.f index 9896827f0..e1ffd9991 100644 --- a/lapack-netlib/TESTING/LIN/slattr.f +++ b/lapack-netlib/TESTING/LIN/slattr.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, $ WORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/slavsp.f b/lapack-netlib/TESTING/LIN/slavsp.f index 208a86c9f..e6580d37f 100644 --- a/lapack-netlib/TESTING/LIN/slavsp.f +++ b/lapack-netlib/TESTING/LIN/slavsp.f @@ -122,18 +122,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/slavsy.f b/lapack-netlib/TESTING/LIN/slavsy.f index 3c575e2d7..c0f0ee4a1 100644 --- a/lapack-netlib/TESTING/LIN/slavsy.f +++ b/lapack-netlib/TESTING/LIN/slavsy.f @@ -147,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLAVSY( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, $ LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/slavsy_rook.f b/lapack-netlib/TESTING/LIN/slavsy_rook.f index 55477bd96..d775e5e0e 100644 --- a/lapack-netlib/TESTING/LIN/slavsy_rook.f +++ b/lapack-netlib/TESTING/LIN/slavsy_rook.f @@ -149,18 +149,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLAVSY_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, $ B, LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/slqt01.f b/lapack-netlib/TESTING/LIN/slqt01.f index daaf33cab..9b868ac11 100644 --- a/lapack-netlib/TESTING/LIN/slqt01.f +++ b/lapack-netlib/TESTING/LIN/slqt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/slqt02.f b/lapack-netlib/TESTING/LIN/slqt02.f index 1db9c5bd9..d59a8a01c 100644 --- a/lapack-netlib/TESTING/LIN/slqt02.f +++ b/lapack-netlib/TESTING/LIN/slqt02.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/slqt03.f b/lapack-netlib/TESTING/LIN/slqt03.f index d625d3100..bc78a0fca 100644 --- a/lapack-netlib/TESTING/LIN/slqt03.f +++ b/lapack-netlib/TESTING/LIN/slqt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/slqt04.f b/lapack-netlib/TESTING/LIN/slqt04.f index 526bd5623..c0ba81f74 100644 --- a/lapack-netlib/TESTING/LIN/slqt04.f +++ b/lapack-netlib/TESTING/LIN/slqt04.f @@ -66,18 +66,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE SLQT04(M,N,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER M, N, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/slqt05.f b/lapack-netlib/TESTING/LIN/slqt05.f index 3f9e8e188..9afc37ef7 100644 --- a/lapack-netlib/TESTING/LIN/slqt05.f +++ b/lapack-netlib/TESTING/LIN/slqt05.f @@ -1,3 +1,10 @@ +*> \brief \b SLQT05 +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* * Definition: * =========== * @@ -13,7 +20,6 @@ * ============= *> *> \verbatim -*> *> SQRT05 tests STPLQT and STPMLQT. *> \endverbatim * @@ -66,18 +72,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE SLQT05(M,N,L,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER LWORK, M, N, L, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/spbt01.f b/lapack-netlib/TESTING/LIN/spbt01.f index 6aa3ccfee..7aae3a2c6 100644 --- a/lapack-netlib/TESTING/LIN/spbt01.f +++ b/lapack-netlib/TESTING/LIN/spbt01.f @@ -111,18 +111,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/spbt02.f b/lapack-netlib/TESTING/LIN/spbt02.f index 9676ef311..734306369 100644 --- a/lapack-netlib/TESTING/LIN/spbt02.f +++ b/lapack-netlib/TESTING/LIN/spbt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/spbt05.f b/lapack-netlib/TESTING/LIN/spbt05.f index 44466ac6e..14b68c109 100644 --- a/lapack-netlib/TESTING/LIN/spbt05.f +++ b/lapack-netlib/TESTING/LIN/spbt05.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/spot01.f b/lapack-netlib/TESTING/LIN/spot01.f index 930437271..a3c1af205 100644 --- a/lapack-netlib/TESTING/LIN/spot01.f +++ b/lapack-netlib/TESTING/LIN/spot01.f @@ -65,10 +65,10 @@ *> \param[in,out] AFAC *> \verbatim *> AFAC is REAL array, dimension (LDAFAC,N) -*> On entry, the factor L or U from the L*L' or U'*U +*> On entry, the factor L or U from the L * L**T or U**T * U *> factorization of A. -*> Overwritten with the reconstructed matrix, and then with the -*> difference L*L' - A (or U'*U - A). +*> Overwritten with the reconstructed matrix, and then with +*> the difference L * L**T - A (or U**T * U - A). *> \endverbatim *> *> \param[in] LDAFAC @@ -85,8 +85,8 @@ *> \param[out] RESID *> \verbatim *> RESID is REAL -*> If UPLO = 'L', norm(L*L' - A) / ( N * norm(A) * EPS ) -*> If UPLO = 'U', norm(U'*U - A) / ( N * norm(A) * EPS ) +*> If UPLO = 'L', norm(L * L**T - A) / ( N * norm(A) * EPS ) +*> If UPLO = 'U', norm(U**T * U - A) / ( N * norm(A) * EPS ) *> \endverbatim * * Authors: @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -157,7 +154,7 @@ RETURN END IF * -* Compute the product U'*U, overwriting U. +* Compute the product U**T * U, overwriting U. * IF( LSAME( UPLO, 'U' ) ) THEN DO 10 K = N, 1, -1 @@ -174,7 +171,7 @@ * 10 CONTINUE * -* Compute the product L*L', overwriting L. +* Compute the product L * L**T, overwriting L. * ELSE DO 20 K = N, 1, -1 @@ -194,7 +191,7 @@ 20 CONTINUE END IF * -* Compute the difference L*L' - A (or U'*U - A). +* Compute the difference L * L**T - A (or U**T * U - A). * IF( LSAME( UPLO, 'U' ) ) THEN DO 40 J = 1, N diff --git a/lapack-netlib/TESTING/LIN/spot02.f b/lapack-netlib/TESTING/LIN/spot02.f index 7c68e7c0d..08176a87e 100644 --- a/lapack-netlib/TESTING/LIN/spot02.f +++ b/lapack-netlib/TESTING/LIN/spot02.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/spot03.f b/lapack-netlib/TESTING/LIN/spot03.f index 424d43293..191b3139c 100644 --- a/lapack-netlib/TESTING/LIN/spot03.f +++ b/lapack-netlib/TESTING/LIN/spot03.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, $ RWORK, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/spot05.f b/lapack-netlib/TESTING/LIN/spot05.f index 6c10a3fae..7658ea385 100644 --- a/lapack-netlib/TESTING/LIN/spot05.f +++ b/lapack-netlib/TESTING/LIN/spot05.f @@ -156,18 +156,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/sppt01.f b/lapack-netlib/TESTING/LIN/sppt01.f index 97f9eb0fb..213b38b41 100644 --- a/lapack-netlib/TESTING/LIN/sppt01.f +++ b/lapack-netlib/TESTING/LIN/sppt01.f @@ -86,17 +86,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPPT01( UPLO, N, A, AFAC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/sppt02.f b/lapack-netlib/TESTING/LIN/sppt02.f index 8122e8eba..3e94585b0 100644 --- a/lapack-netlib/TESTING/LIN/sppt02.f +++ b/lapack-netlib/TESTING/LIN/sppt02.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/sppt03.f b/lapack-netlib/TESTING/LIN/sppt03.f index 2660249df..abb31cb4a 100644 --- a/lapack-netlib/TESTING/LIN/sppt03.f +++ b/lapack-netlib/TESTING/LIN/sppt03.f @@ -102,18 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/sppt05.f b/lapack-netlib/TESTING/LIN/sppt05.f index c9c6b687b..a56d0411d 100644 --- a/lapack-netlib/TESTING/LIN/sppt05.f +++ b/lapack-netlib/TESTING/LIN/sppt05.f @@ -148,18 +148,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/spst01.f b/lapack-netlib/TESTING/LIN/spst01.f index d7331c632..83084fba5 100644 --- a/lapack-netlib/TESTING/LIN/spst01.f +++ b/lapack-netlib/TESTING/LIN/spst01.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, $ PIV, RWORK, RESID, RANK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL RESID diff --git a/lapack-netlib/TESTING/LIN/sptt01.f b/lapack-netlib/TESTING/LIN/sptt01.f index 23e82546f..fef18dd2b 100644 --- a/lapack-netlib/TESTING/LIN/sptt01.f +++ b/lapack-netlib/TESTING/LIN/sptt01.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPTT01( N, D, E, DF, EF, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N diff --git a/lapack-netlib/TESTING/LIN/sptt02.f b/lapack-netlib/TESTING/LIN/sptt02.f index 5f0b08e1c..51a6a074a 100644 --- a/lapack-netlib/TESTING/LIN/sptt02.f +++ b/lapack-netlib/TESTING/LIN/sptt02.f @@ -97,17 +97,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPTT02( N, NRHS, D, E, X, LDX, B, LDB, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDX, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/sptt05.f b/lapack-netlib/TESTING/LIN/sptt05.f index fe78cdc30..ddbc40f13 100644 --- a/lapack-netlib/TESTING/LIN/sptt05.f +++ b/lapack-netlib/TESTING/LIN/sptt05.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, $ FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDX, LDXACT, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/sqlt01.f b/lapack-netlib/TESTING/LIN/sqlt01.f index 133aaba04..aa61e91a0 100644 --- a/lapack-netlib/TESTING/LIN/sqlt01.f +++ b/lapack-netlib/TESTING/LIN/sqlt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sqlt02.f b/lapack-netlib/TESTING/LIN/sqlt02.f index 6a52b0461..5d381b950 100644 --- a/lapack-netlib/TESTING/LIN/sqlt02.f +++ b/lapack-netlib/TESTING/LIN/sqlt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sqlt03.f b/lapack-netlib/TESTING/LIN/sqlt03.f index 355fc00d5..5c1bcdf66 100644 --- a/lapack-netlib/TESTING/LIN/sqlt03.f +++ b/lapack-netlib/TESTING/LIN/sqlt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sqpt01.f b/lapack-netlib/TESTING/LIN/sqpt01.f index e33d841fc..de0c80e53 100644 --- a/lapack-netlib/TESTING/LIN/sqpt01.f +++ b/lapack-netlib/TESTING/LIN/sqpt01.f @@ -112,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== REAL FUNCTION SQPT01( M, N, K, A, AF, LDA, TAU, JPVT, $ WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sqrt01.f b/lapack-netlib/TESTING/LIN/sqrt01.f index 43f0d83cf..6f1498903 100644 --- a/lapack-netlib/TESTING/LIN/sqrt01.f +++ b/lapack-netlib/TESTING/LIN/sqrt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sqrt01p.f b/lapack-netlib/TESTING/LIN/sqrt01p.f index a9de4ec34..f3a53013d 100644 --- a/lapack-netlib/TESTING/LIN/sqrt01p.f +++ b/lapack-netlib/TESTING/LIN/sqrt01p.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sqrt02.f b/lapack-netlib/TESTING/LIN/sqrt02.f index 3509d0311..72163f0a9 100644 --- a/lapack-netlib/TESTING/LIN/sqrt02.f +++ b/lapack-netlib/TESTING/LIN/sqrt02.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sqrt03.f b/lapack-netlib/TESTING/LIN/sqrt03.f index 9e19dd6d6..bf11ef258 100644 --- a/lapack-netlib/TESTING/LIN/sqrt03.f +++ b/lapack-netlib/TESTING/LIN/sqrt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sqrt04.f b/lapack-netlib/TESTING/LIN/sqrt04.f index d0fb6de35..b088ba43e 100644 --- a/lapack-netlib/TESTING/LIN/sqrt04.f +++ b/lapack-netlib/TESTING/LIN/sqrt04.f @@ -66,18 +66,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQRT04(M,N,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER M, N, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/sqrt05.f b/lapack-netlib/TESTING/LIN/sqrt05.f index 0c1d52761..21ec97c1f 100644 --- a/lapack-netlib/TESTING/LIN/sqrt05.f +++ b/lapack-netlib/TESTING/LIN/sqrt05.f @@ -73,18 +73,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQRT05(M,N,L,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER LWORK, M, N, L, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/sqrt11.f b/lapack-netlib/TESTING/LIN/sqrt11.f index eaffacbf0..d4422dacb 100644 --- a/lapack-netlib/TESTING/LIN/sqrt11.f +++ b/lapack-netlib/TESTING/LIN/sqrt11.f @@ -91,17 +91,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== REAL FUNCTION SQRT11( M, K, A, LDA, TAU, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M diff --git a/lapack-netlib/TESTING/LIN/sqrt12.f b/lapack-netlib/TESTING/LIN/sqrt12.f index c7c367011..2eab0ee0d 100644 --- a/lapack-netlib/TESTING/LIN/sqrt12.f +++ b/lapack-netlib/TESTING/LIN/sqrt12.f @@ -82,17 +82,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== REAL FUNCTION SQRT12( M, N, A, LDA, S, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sqrt13.f b/lapack-netlib/TESTING/LIN/sqrt13.f index 6d6583bc2..d77c5fa06 100644 --- a/lapack-netlib/TESTING/LIN/sqrt13.f +++ b/lapack-netlib/TESTING/LIN/sqrt13.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, M, N, SCALE diff --git a/lapack-netlib/TESTING/LIN/sqrt14.f b/lapack-netlib/TESTING/LIN/sqrt14.f index 6e8ac2f3e..64bdc8110 100644 --- a/lapack-netlib/TESTING/LIN/sqrt14.f +++ b/lapack-netlib/TESTING/LIN/sqrt14.f @@ -108,18 +108,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== REAL FUNCTION SQRT14( TRANS, M, N, NRHS, A, LDA, X, $ LDX, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -200,7 +197,6 @@ IF( XNRM.NE.ZERO ) $ CALL SLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS, $ WORK( N*LDWORK+1 ), LDWORK, INFO ) - ANRM = SLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK ) * * Compute QR factorization of X * diff --git a/lapack-netlib/TESTING/LIN/sqrt15.f b/lapack-netlib/TESTING/LIN/sqrt15.f index 2ead9fed3..5a6967abb 100644 --- a/lapack-netlib/TESTING/LIN/sqrt15.f +++ b/lapack-netlib/TESTING/LIN/sqrt15.f @@ -140,18 +140,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, $ RANK, NORMA, NORMB, ISEED, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE diff --git a/lapack-netlib/TESTING/LIN/sqrt16.f b/lapack-netlib/TESTING/LIN/sqrt16.f index 92e014087..1a5dbf785 100644 --- a/lapack-netlib/TESTING/LIN/sqrt16.f +++ b/lapack-netlib/TESTING/LIN/sqrt16.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/sqrt17.f b/lapack-netlib/TESTING/LIN/sqrt17.f index c7b543cb6..d2ff56bf1 100644 --- a/lapack-netlib/TESTING/LIN/sqrt17.f +++ b/lapack-netlib/TESTING/LIN/sqrt17.f @@ -28,12 +28,15 @@ *> *> SQRT17 computes the ratio *> -*> || R'*op(A) ||/(||A||*alpha*max(M,N,NRHS)*eps) +*> norm(R**T * op(A)) / ( norm(A) * alpha * max(M,N,NRHS) * EPS ), *> -*> where R = op(A)*X - B, op(A) is A or A', and +*> where R = B - op(A)*X, op(A) is A or A**T, depending on TRANS, EPS +*> is the machine epsilon, and *> -*> alpha = ||B|| if IRESID = 1 (zero-residual problem) -*> alpha = ||R|| if IRESID = 2 (otherwise). +*> alpha = norm(B) if IRESID = 1 (zero-residual problem) +*> alpha = norm(R) if IRESID = 2 (otherwise). +*> +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -44,7 +47,7 @@ *> TRANS is CHARACTER*1 *> Specifies whether or not the transpose of A is used. *> = 'N': No transpose, op(A) = A. -*> = 'T': Transpose, op(A) = A'. +*> = 'T': Transpose, op(A) = A**T. *> \endverbatim *> *> \param[in] IRESID @@ -142,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== REAL FUNCTION SQRT17( TRANS, IRESID, M, N, NRHS, A, $ LDA, X, LDX, B, LDB, C, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -172,7 +172,7 @@ * .. * .. Local Scalars .. INTEGER INFO, ISCL, NCOLS, NROWS - REAL BIGNUM, ERR, NORMA, NORMB, NORMRS, SMLNUM + REAL ERR, NORMA, NORMB, NORMRS, SMLNUM * .. * .. Local Arrays .. REAL RWORK( 1 ) @@ -214,7 +214,6 @@ * NORMA = SLANGE( 'One-norm', M, N, A, LDA, RWORK ) SMLNUM = SLAMCH( 'Safe minimum' ) / SLAMCH( 'Precision' ) - BIGNUM = ONE / SMLNUM ISCL = 0 * * compute residual and scale it @@ -229,7 +228,7 @@ $ INFO ) END IF * -* compute R'*A +* compute R**T * op(A) * CALL SGEMM( 'Transpose', TRANS, NRHS, NCOLS, NROWS, ONE, C, LDB, $ A, LDA, ZERO, WORK, NRHS ) diff --git a/lapack-netlib/TESTING/LIN/srqt01.f b/lapack-netlib/TESTING/LIN/srqt01.f index 993001964..07a040a15 100644 --- a/lapack-netlib/TESTING/LIN/srqt01.f +++ b/lapack-netlib/TESTING/LIN/srqt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/srqt02.f b/lapack-netlib/TESTING/LIN/srqt02.f index 2960d1667..ca0594f7a 100644 --- a/lapack-netlib/TESTING/LIN/srqt02.f +++ b/lapack-netlib/TESTING/LIN/srqt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/srqt03.f b/lapack-netlib/TESTING/LIN/srqt03.f index 0b3a8e3da..730d76d45 100644 --- a/lapack-netlib/TESTING/LIN/srqt03.f +++ b/lapack-netlib/TESTING/LIN/srqt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/srzt01.f b/lapack-netlib/TESTING/LIN/srzt01.f index 549bca2e0..4478c0506 100644 --- a/lapack-netlib/TESTING/LIN/srzt01.f +++ b/lapack-netlib/TESTING/LIN/srzt01.f @@ -90,18 +90,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== REAL FUNCTION SRZT01( M, N, A, AF, LDA, TAU, WORK, $ LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/srzt02.f b/lapack-netlib/TESTING/LIN/srzt02.f index 12f4018ff..cd76a7c62 100644 --- a/lapack-netlib/TESTING/LIN/srzt02.f +++ b/lapack-netlib/TESTING/LIN/srzt02.f @@ -83,18 +83,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== REAL FUNCTION SRZT02( M, N, AF, LDA, TAU, WORK, $ LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/sspt01.f b/lapack-netlib/TESTING/LIN/sspt01.f index ecd1d9178..05cac43f4 100644 --- a/lapack-netlib/TESTING/LIN/sspt01.f +++ b/lapack-netlib/TESTING/LIN/sspt01.f @@ -103,17 +103,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/ssyt01.f b/lapack-netlib/TESTING/LIN/ssyt01.f index f1fb0b9c3..b47ca7d2f 100644 --- a/lapack-netlib/TESTING/LIN/ssyt01.f +++ b/lapack-netlib/TESTING/LIN/ssyt01.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SSYT01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/ssyt01_3.f b/lapack-netlib/TESTING/LIN/ssyt01_3.f index 11ddea4c3..147553db9 100644 --- a/lapack-netlib/TESTING/LIN/ssyt01_3.f +++ b/lapack-netlib/TESTING/LIN/ssyt01_3.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SSYT01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/ssyt01_aa.f b/lapack-netlib/TESTING/LIN/ssyt01_aa.f index c0fee7154..470d45c3d 100644 --- a/lapack-netlib/TESTING/LIN/ssyt01_aa.f +++ b/lapack-netlib/TESTING/LIN/ssyt01_aa.f @@ -116,19 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* *> \ingroup real_lin * * ===================================================================== SUBROUTINE SSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/ssyt01_rook.f b/lapack-netlib/TESTING/LIN/ssyt01_rook.f index 129e9dafe..7f5803b00 100644 --- a/lapack-netlib/TESTING/LIN/ssyt01_rook.f +++ b/lapack-netlib/TESTING/LIN/ssyt01_rook.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE SSYT01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/stbt02.f b/lapack-netlib/TESTING/LIN/stbt02.f index a633098e8..f95b5d5f1 100644 --- a/lapack-netlib/TESTING/LIN/stbt02.f +++ b/lapack-netlib/TESTING/LIN/stbt02.f @@ -28,12 +28,12 @@ *> \verbatim *> *> STBT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b or A' *x = b when -*> A is a triangular band matrix. Here A' is the transpose of A and -*> x and b are N by NRHS matrices. The test ratio is the maximum over -*> the number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A or A' and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, when A is a +*> triangular band matrix. The test ratio is the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A or A**T, b is the column of B, x is the solution +*> vector, and EPS is the machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -51,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A'*x = b (Transpose) -*> = 'C': A'*x = b (Conjugate transpose = Transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] DIAG @@ -146,18 +146,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, $ LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -199,7 +196,7 @@ RETURN END IF * -* Compute the 1-norm of A or A'. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = SLANTB( '1', UPLO, DIAG, N, KD, AB, LDAB, WORK ) diff --git a/lapack-netlib/TESTING/LIN/stbt03.f b/lapack-netlib/TESTING/LIN/stbt03.f index 5c747ae90..3ae44926d 100644 --- a/lapack-netlib/TESTING/LIN/stbt03.f +++ b/lapack-netlib/TESTING/LIN/stbt03.f @@ -166,8 +166,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== @@ -175,10 +173,9 @@ $ SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/stbt05.f b/lapack-netlib/TESTING/LIN/stbt05.f index b19c34c39..60e39016c 100644 --- a/lapack-netlib/TESTING/LIN/stbt05.f +++ b/lapack-netlib/TESTING/LIN/stbt05.f @@ -181,18 +181,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/stbt06.f b/lapack-netlib/TESTING/LIN/stbt06.f index f80cf551c..8cd5fbc18 100644 --- a/lapack-netlib/TESTING/LIN/stbt06.f +++ b/lapack-netlib/TESTING/LIN/stbt06.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, $ WORK, RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/stplqt.f b/lapack-netlib/TESTING/LIN/stplqt.f index 30f827998..ba34f6bc5 100644 --- a/lapack-netlib/TESTING/LIN/stplqt.f +++ b/lapack-netlib/TESTING/LIN/stplqt.f @@ -1,3 +1,20 @@ +*> \brief \b STPLQT +* +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download STPLQT + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* * Definition: * =========== * @@ -115,8 +132,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup doubleOTHERcomputational * *> \par Further Details: @@ -172,10 +187,9 @@ SUBROUTINE STPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK, $ INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LDT, N, M, L, MB diff --git a/lapack-netlib/TESTING/LIN/stpt01.f b/lapack-netlib/TESTING/LIN/stpt01.f index 428821603..5e27083b4 100644 --- a/lapack-netlib/TESTING/LIN/stpt01.f +++ b/lapack-netlib/TESTING/LIN/stpt01.f @@ -101,17 +101,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STPT01( UPLO, DIAG, N, AP, AINVP, RCOND, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/stpt02.f b/lapack-netlib/TESTING/LIN/stpt02.f index a8e88b218..f81fa29b9 100644 --- a/lapack-netlib/TESTING/LIN/stpt02.f +++ b/lapack-netlib/TESTING/LIN/stpt02.f @@ -27,12 +27,13 @@ *> \verbatim *> *> STPT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b or A'*x = b when -*> the triangular matrix A is stored in packed format. Here A' is the -*> transpose of A and x and b are N by NRHS matrices. The test ratio is -*> the maximum over the number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A or A' and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, when the +*> triangular matrix A is stored in packed format. The test ratio is +*> the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A or A**T, b is the column of B, x is the solution +*> vector, and EPS is the machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -50,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A'*x = b (Transpose) -*> = 'C': A'*x = b (Conjugate transpose = Transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] DIAG @@ -122,7 +123,7 @@ *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -133,18 +134,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, $ WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -185,7 +183,7 @@ RETURN END IF * -* Compute the 1-norm of A or A'. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = SLANTP( '1', UPLO, DIAG, N, AP, WORK ) @@ -202,7 +200,7 @@ END IF * * Compute the maximum over the number of right hand sides of -* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/stpt03.f b/lapack-netlib/TESTING/LIN/stpt03.f index c32f8d9d0..9e844e797 100644 --- a/lapack-netlib/TESTING/LIN/stpt03.f +++ b/lapack-netlib/TESTING/LIN/stpt03.f @@ -153,18 +153,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, $ TSCAL, X, LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/stpt05.f b/lapack-netlib/TESTING/LIN/stpt05.f index 6e0e4680b..81abb969f 100644 --- a/lapack-netlib/TESTING/LIN/stpt05.f +++ b/lapack-netlib/TESTING/LIN/stpt05.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/stpt06.f b/lapack-netlib/TESTING/LIN/stpt06.f index d7bd082f0..117987dcc 100644 --- a/lapack-netlib/TESTING/LIN/stpt06.f +++ b/lapack-netlib/TESTING/LIN/stpt06.f @@ -104,17 +104,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, WORK, RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/strt01.f b/lapack-netlib/TESTING/LIN/strt01.f index 1e6af5b9d..08c2433ed 100644 --- a/lapack-netlib/TESTING/LIN/strt01.f +++ b/lapack-netlib/TESTING/LIN/strt01.f @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, $ WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/strt02.f b/lapack-netlib/TESTING/LIN/strt02.f index 14ba15bb7..26a95510a 100644 --- a/lapack-netlib/TESTING/LIN/strt02.f +++ b/lapack-netlib/TESTING/LIN/strt02.f @@ -28,12 +28,12 @@ *> \verbatim *> *> STRT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b or A'*x = b. -*> Here A is a triangular matrix, A' is the transpose of A, and x and b -*> are N by NRHS matrices. The test ratio is the maximum over the -*> number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A or A' and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, where A is a +*> triangular matrix. The test ratio is the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A or A**T, b is the column of B, x is the solution +*> vector, and EPS is the machine epsilon. +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -51,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A'*x = b (Transpose) -*> = 'C': A'*x = b (Conjugate transpose = Transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose = Transpose) *> \endverbatim *> *> \param[in] DIAG @@ -131,7 +131,7 @@ *> \verbatim *> RESID is REAL *> The maximum over the number of right hand sides of -*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, $ LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -195,7 +192,7 @@ RETURN END IF * -* Compute the 1-norm of A or A'. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = SLANTR( '1', UPLO, DIAG, N, N, A, LDA, WORK ) @@ -212,7 +209,7 @@ END IF * * Compute the maximum over the number of right hand sides of -* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ) +* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ) * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/strt03.f b/lapack-netlib/TESTING/LIN/strt03.f index 23d408a81..2e41076d4 100644 --- a/lapack-netlib/TESTING/LIN/strt03.f +++ b/lapack-netlib/TESTING/LIN/strt03.f @@ -161,18 +161,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, $ CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/strt05.f b/lapack-netlib/TESTING/LIN/strt05.f index 434ce9ad1..af4ebe34a 100644 --- a/lapack-netlib/TESTING/LIN/strt05.f +++ b/lapack-netlib/TESTING/LIN/strt05.f @@ -173,18 +173,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/strt06.f b/lapack-netlib/TESTING/LIN/strt06.f index 8d607339d..266e83543 100644 --- a/lapack-netlib/TESTING/LIN/strt06.f +++ b/lapack-netlib/TESTING/LIN/strt06.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup single_lin * * ===================================================================== SUBROUTINE STRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, WORK, $ RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/stsqr01.f b/lapack-netlib/TESTING/LIN/stsqr01.f index 8eb69eae7..683c165ae 100644 --- a/lapack-netlib/TESTING/LIN/stsqr01.f +++ b/lapack-netlib/TESTING/LIN/stsqr01.f @@ -77,18 +77,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE STSQR01(TSSW, M, N, MB, NB, RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER TSSW diff --git a/lapack-netlib/TESTING/LIN/xerbla.f b/lapack-netlib/TESTING/LIN/xerbla.f index b0e435a17..431339f78 100644 --- a/lapack-netlib/TESTING/LIN/xerbla.f +++ b/lapack-netlib/TESTING/LIN/xerbla.f @@ -52,8 +52,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_eig * *> \par Further Details: @@ -75,10 +73,9 @@ * ===================================================================== SUBROUTINE XERBLA( SRNAME, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*(*) SRNAME diff --git a/lapack-netlib/TESTING/LIN/xlaenv.f b/lapack-netlib/TESTING/LIN/xlaenv.f index 875459b85..c1720c7f1 100644 --- a/lapack-netlib/TESTING/LIN/xlaenv.f +++ b/lapack-netlib/TESTING/LIN/xlaenv.f @@ -71,17 +71,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup aux_lin * * ===================================================================== SUBROUTINE XLAENV( ISPEC, NVALUE ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER ISPEC, NVALUE diff --git a/lapack-netlib/TESTING/LIN/zchkab.f b/lapack-netlib/TESTING/LIN/zchkab.f index f15b46b2f..63274cabb 100644 --- a/lapack-netlib/TESTING/LIN/zchkab.f +++ b/lapack-netlib/TESTING/LIN/zchkab.f @@ -66,17 +66,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16_lin * * ===================================================================== PROGRAM ZCHKAB * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/LIN/zchkeq.f b/lapack-netlib/TESTING/LIN/zchkeq.f index 56797bf2b..214331d5a 100644 --- a/lapack-netlib/TESTING/LIN/zchkeq.f +++ b/lapack-netlib/TESTING/LIN/zchkeq.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZCHKEQ( THRESH, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NOUT diff --git a/lapack-netlib/TESTING/LIN/zchkgb.f b/lapack-netlib/TESTING/LIN/zchkgb.f index 70660eff6..3b0cd707a 100644 --- a/lapack-netlib/TESTING/LIN/zchkgb.f +++ b/lapack-netlib/TESTING/LIN/zchkgb.f @@ -78,7 +78,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -160,7 +160,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is DOUBLE PRECISION array, dimension -*> (max(NMAX,2*NSMAX)) +*> (NMAX+2*NSMAX) *> \endverbatim *> *> \param[out] IWORK @@ -182,8 +182,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -191,10 +189,9 @@ $ NSVAL, THRESH, TSTERR, A, LA, AFAC, LAFAC, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -566,7 +563,7 @@ END IF * *+ TEST 2: -* Solve and compute residual for A * X = B. +* Solve and compute residual for op(A) * X = B. * SRNAMT = 'ZLARHS' CALL ZLARHS( PATH, XTYPE, ' ', TRANS, N, @@ -592,7 +589,7 @@ $ WORK, LDB ) CALL ZGBT02( TRANS, M, N, KL, KU, NRHS, A, $ LDA, X, LDB, WORK, LDB, - $ RESULT( 2 ) ) + $ RWORK, RESULT( 2 ) ) * *+ TEST 3: * Check solution from generated exact diff --git a/lapack-netlib/TESTING/LIN/zchkge.f b/lapack-netlib/TESTING/LIN/zchkge.f index 41068f32a..d87759df5 100644 --- a/lapack-netlib/TESTING/LIN/zchkge.f +++ b/lapack-netlib/TESTING/LIN/zchkge.f @@ -78,7 +78,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -177,8 +177,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -186,10 +184,9 @@ $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkgt.f b/lapack-netlib/TESTING/LIN/zchkgt.f index 5d18a8e2b..b9a6ab7e4 100644 --- a/lapack-netlib/TESTING/LIN/zchkgt.f +++ b/lapack-netlib/TESTING/LIN/zchkgt.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZCHKGT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, AF, B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkhe.f b/lapack-netlib/TESTING/LIN/zchkhe.f index 0b5a1a1aa..e443eab04 100644 --- a/lapack-netlib/TESTING/LIN/zchkhe.f +++ b/lapack-netlib/TESTING/LIN/zchkhe.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== @@ -171,10 +169,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkhe_aa.f b/lapack-netlib/TESTING/LIN/zchkhe_aa.f index 4100801b7..1c4ee88e0 100644 --- a/lapack-netlib/TESTING/LIN/zchkhe_aa.f +++ b/lapack-netlib/TESTING/LIN/zchkhe_aa.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,9 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* -* *> \ingroup complex16_lin * * ===================================================================== @@ -172,10 +169,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/LIN/zchkhe_aa_2stage.f b/lapack-netlib/TESTING/LIN/zchkhe_aa_2stage.f index 43c5435af..381fac9f2 100644 --- a/lapack-netlib/TESTING/LIN/zchkhe_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/zchkhe_aa_2stage.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== @@ -172,10 +170,9 @@ $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * @@ -575,6 +572,6 @@ $ I6 ) RETURN * -* End of ZCHKSY_AA_2STAGE +* End of ZCHKHE_AA_2STAGE * END diff --git a/lapack-netlib/TESTING/LIN/zchkhe_rk.f b/lapack-netlib/TESTING/LIN/zchkhe_rk.f index a1ade8f91..63697d33a 100644 --- a/lapack-netlib/TESTING/LIN/zchkhe_rk.f +++ b/lapack-netlib/TESTING/LIN/zchkhe_rk.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -177,10 +175,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -493,7 +490,7 @@ CALL ZLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) SRNAMT = 'ZHETRI_3' * -* Another reason that we need to compute the invesrse +* Another reason that we need to compute the inverse * is that ZPOT03 produces RCONDC which is used later * in TEST6 and TEST7. * diff --git a/lapack-netlib/TESTING/LIN/zchkhe_rook.f b/lapack-netlib/TESTING/LIN/zchkhe_rook.f index 470c012ed..84f5a8422 100644 --- a/lapack-netlib/TESTING/LIN/zchkhe_rook.f +++ b/lapack-netlib/TESTING/LIN/zchkhe_rook.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -172,10 +170,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkhp.f b/lapack-netlib/TESTING/LIN/zchkhp.f index 08cfb10c8..6525ed65e 100644 --- a/lapack-netlib/TESTING/LIN/zchkhp.f +++ b/lapack-netlib/TESTING/LIN/zchkhp.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -164,10 +162,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchklq.f b/lapack-netlib/TESTING/LIN/zchklq.f index 2c7c6369b..371bb946b 100644 --- a/lapack-netlib/TESTING/LIN/zchklq.f +++ b/lapack-netlib/TESTING/LIN/zchklq.f @@ -32,7 +32,7 @@ *> *> \verbatim *> -*> ZCHKLQ tests ZGELQF, ZUNGLQ and CUNMLQ. +*> ZCHKLQ tests ZGELQF, ZUNGLQ and ZUNMLQ. *> \endverbatim * * Arguments: @@ -187,8 +187,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -196,10 +194,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchklqt.f b/lapack-netlib/TESTING/LIN/zchklqt.f index 0d23e1e57..680c1135e 100644 --- a/lapack-netlib/TESTING/LIN/zchklqt.f +++ b/lapack-netlib/TESTING/LIN/zchklqt.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchklqtp.f b/lapack-netlib/TESTING/LIN/zchklqtp.f index 9b76d1df6..75e3ddfb1 100644 --- a/lapack-netlib/TESTING/LIN/zchklqtp.f +++ b/lapack-netlib/TESTING/LIN/zchklqtp.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkpb.f b/lapack-netlib/TESTING/LIN/zchkpb.f index c9fb433ea..1ce8c3b88 100644 --- a/lapack-netlib/TESTING/LIN/zchkpb.f +++ b/lapack-netlib/TESTING/LIN/zchkpb.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -168,10 +166,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkpo.f b/lapack-netlib/TESTING/LIN/zchkpo.f index 5468b7281..93ea72163 100644 --- a/lapack-netlib/TESTING/LIN/zchkpo.f +++ b/lapack-netlib/TESTING/LIN/zchkpo.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -159,8 +159,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -168,10 +166,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkpp.f b/lapack-netlib/TESTING/LIN/zchkpp.f index 53b43d0aa..250b12359 100644 --- a/lapack-netlib/TESTING/LIN/zchkpp.f +++ b/lapack-netlib/TESTING/LIN/zchkpp.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -159,10 +157,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkps.f b/lapack-netlib/TESTING/LIN/zchkps.f index 9acb28ead..79fc951e2 100644 --- a/lapack-netlib/TESTING/LIN/zchkps.f +++ b/lapack-netlib/TESTING/LIN/zchkps.f @@ -64,7 +64,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the block size NB. *> \endverbatim *> @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -154,10 +152,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, PERM, PIV, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION THRESH diff --git a/lapack-netlib/TESTING/LIN/zchkpt.f b/lapack-netlib/TESTING/LIN/zchkpt.f index a4f8d8260..80e1690a7 100644 --- a/lapack-netlib/TESTING/LIN/zchkpt.f +++ b/lapack-netlib/TESTING/LIN/zchkpt.f @@ -139,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZCHKPT( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ A, D, E, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkq3.f b/lapack-netlib/TESTING/LIN/zchkq3.f index 63e3d64f3..33cd0fe15 100644 --- a/lapack-netlib/TESTING/LIN/zchkq3.f +++ b/lapack-netlib/TESTING/LIN/zchkq3.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -158,10 +156,9 @@ $ THRESH, A, COPYA, S, TAU, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NM, NN, NNB, NOUT diff --git a/lapack-netlib/TESTING/LIN/zchkql.f b/lapack-netlib/TESTING/LIN/zchkql.f index 0ce087549..0dbb345b0 100644 --- a/lapack-netlib/TESTING/LIN/zchkql.f +++ b/lapack-netlib/TESTING/LIN/zchkql.f @@ -32,7 +32,7 @@ *> *> \verbatim *> -*> ZCHKQL tests ZGEQLF, ZUNGQL and CUNMQL. +*> ZCHKQL tests ZGEQLF, ZUNGQL and ZUNMQL. *> \endverbatim * * Arguments: @@ -187,8 +187,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -196,10 +194,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AL, AC, $ B, X, XACT, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkqr.f b/lapack-netlib/TESTING/LIN/zchkqr.f index 3c9763fe3..a240d2da5 100644 --- a/lapack-netlib/TESTING/LIN/zchkqr.f +++ b/lapack-netlib/TESTING/LIN/zchkqr.f @@ -32,7 +32,7 @@ *> *> \verbatim *> -*> ZCHKQR tests ZGEQRF, ZUNGQR and CUNMQR. +*> ZCHKQR tests ZGEQRF, ZUNGQR and ZUNMQR. *> \endverbatim * * Arguments: @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -201,10 +199,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkqrt.f b/lapack-netlib/TESTING/LIN/zchkqrt.f index 61aad40f4..cb07af72c 100644 --- a/lapack-netlib/TESTING/LIN/zchkqrt.f +++ b/lapack-netlib/TESTING/LIN/zchkqrt.f @@ -75,7 +75,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -93,8 +93,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -102,10 +100,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkqrtp.f b/lapack-netlib/TESTING/LIN/zchkqrtp.f index 123eea63d..9337a6837 100644 --- a/lapack-netlib/TESTING/LIN/zchkqrtp.f +++ b/lapack-netlib/TESTING/LIN/zchkqrtp.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -103,10 +101,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkrfp.f b/lapack-netlib/TESTING/LIN/zchkrfp.f index ba5fd6166..1764f566e 100644 --- a/lapack-netlib/TESTING/LIN/zchkrfp.f +++ b/lapack-netlib/TESTING/LIN/zchkrfp.f @@ -52,17 +52,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16_lin * * ===================================================================== PROGRAM ZCHKRFP * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * ===================================================================== * diff --git a/lapack-netlib/TESTING/LIN/zchkrq.f b/lapack-netlib/TESTING/LIN/zchkrq.f index ef3bf3044..32347c697 100644 --- a/lapack-netlib/TESTING/LIN/zchkrq.f +++ b/lapack-netlib/TESTING/LIN/zchkrq.f @@ -32,7 +32,7 @@ *> *> \verbatim *> -*> ZCHKRQ tests ZGERQF, ZUNGRQ and CUNMRQ. +*> ZCHKRQ tests ZGERQF, ZUNGRQ and ZUNMRQ. *> \endverbatim * * Arguments: @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -201,10 +199,9 @@ $ NRHS, THRESH, TSTERR, NMAX, A, AF, AQ, AR, AC, $ B, X, XACT, TAU, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchksp.f b/lapack-netlib/TESTING/LIN/zchksp.f index 808e80eee..fbfc45eeb 100644 --- a/lapack-netlib/TESTING/LIN/zchksp.f +++ b/lapack-netlib/TESTING/LIN/zchksp.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -164,10 +162,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, RWORK, $ IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchksy.f b/lapack-netlib/TESTING/LIN/zchksy.f index d656ee221..7877eb7e2 100644 --- a/lapack-netlib/TESTING/LIN/zchksy.f +++ b/lapack-netlib/TESTING/LIN/zchksy.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== @@ -171,10 +169,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchksy_aa.f b/lapack-netlib/TESTING/LIN/zchksy_aa.f index 186a5b39d..9f53593d5 100644 --- a/lapack-netlib/TESTING/LIN/zchksy_aa.f +++ b/lapack-netlib/TESTING/LIN/zchksy_aa.f @@ -65,7 +65,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -162,8 +162,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== @@ -171,10 +169,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/LIN/zchksy_aa_2stage.f b/lapack-netlib/TESTING/LIN/zchksy_aa_2stage.f index 87fc47f71..4c8ff94f7 100644 --- a/lapack-netlib/TESTING/LIN/zchksy_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/zchksy_aa_2stage.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== @@ -172,10 +170,9 @@ $ NSVAL, THRESH, TSTERR, NMAX, A, AFAC, AINV, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * IMPLICIT NONE * diff --git a/lapack-netlib/TESTING/LIN/zchksy_rk.f b/lapack-netlib/TESTING/LIN/zchksy_rk.f index c72edc133..3a206b30d 100644 --- a/lapack-netlib/TESTING/LIN/zchksy_rk.f +++ b/lapack-netlib/TESTING/LIN/zchksy_rk.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -177,10 +175,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, E, AINV, B, $ X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -505,7 +502,7 @@ CALL ZLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) SRNAMT = 'ZSYTRI_3' * -* Another reason that we need to compute the invesrse +* Another reason that we need to compute the inverse * is that ZSYT03 produces RCONDC which is used later * in TEST6 and TEST7. * diff --git a/lapack-netlib/TESTING/LIN/zchksy_rook.f b/lapack-netlib/TESTING/LIN/zchksy_rook.f index d5e53121c..dcb5b6edd 100644 --- a/lapack-netlib/TESTING/LIN/zchksy_rook.f +++ b/lapack-netlib/TESTING/LIN/zchksy_rook.f @@ -66,7 +66,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -172,10 +170,9 @@ $ THRESH, TSTERR, NMAX, A, AFAC, AINV, B, X, $ XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchktb.f b/lapack-netlib/TESTING/LIN/zchktb.f index 5a0834029..e71978624 100644 --- a/lapack-netlib/TESTING/LIN/zchktb.f +++ b/lapack-netlib/TESTING/LIN/zchktb.f @@ -141,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZCHKTB( DOTYPE, NN, NVAL, NNS, NSVAL, THRESH, TSTERR, $ NMAX, AB, AINV, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchktp.f b/lapack-netlib/TESTING/LIN/zchktp.f index 9336e12ac..1798c24e7 100644 --- a/lapack-netlib/TESTING/LIN/zchktp.f +++ b/lapack-netlib/TESTING/LIN/zchktp.f @@ -142,8 +142,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -151,10 +149,9 @@ $ NMAX, AP, AINVP, B, X, XACT, WORK, RWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchktr.f b/lapack-netlib/TESTING/LIN/zchktr.f index 57634d86a..0a6f47b1e 100644 --- a/lapack-netlib/TESTING/LIN/zchktr.f +++ b/lapack-netlib/TESTING/LIN/zchktr.f @@ -154,8 +154,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -163,10 +161,9 @@ $ THRESH, TSTERR, NMAX, A, AINV, B, X, XACT, $ WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchktsqr.f b/lapack-netlib/TESTING/LIN/zchktsqr.f index 678b1772f..ca7828f1a 100644 --- a/lapack-netlib/TESTING/LIN/zchktsqr.f +++ b/lapack-netlib/TESTING/LIN/zchktsqr.f @@ -76,7 +76,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> @@ -94,8 +94,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup double_lin * * ===================================================================== @@ -103,10 +101,9 @@ $ NBVAL, NOUT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -254,6 +251,6 @@ $ ', NB=', I5,' test(', I2, ')=', G12.5 ) RETURN * -* End of ZCHKQRT +* End of ZCHKTSQR * END diff --git a/lapack-netlib/TESTING/LIN/zchktz.f b/lapack-netlib/TESTING/LIN/zchktz.f index fbdeabc92..754b2a33c 100644 --- a/lapack-netlib/TESTING/LIN/zchktz.f +++ b/lapack-netlib/TESTING/LIN/zchktz.f @@ -129,18 +129,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZCHKTZ( DOTYPE, NM, MVAL, NN, NVAL, THRESH, TSTERR, A, $ COPYA, S, TAU, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zchkunhr_col.f b/lapack-netlib/TESTING/LIN/zchkunhr_col.f index 395ea178a..a6ec2f0f8 100644 --- a/lapack-netlib/TESTING/LIN/zchkunhr_col.f +++ b/lapack-netlib/TESTING/LIN/zchkunhr_col.f @@ -82,7 +82,7 @@ *> *> \param[in] NBVAL *> \verbatim -*> NBVAL is INTEGER array, dimension (NBVAL) +*> NBVAL is INTEGER array, dimension (NNB) *> The values of the blocksize NB. *> \endverbatim *> diff --git a/lapack-netlib/TESTING/LIN/zdrvab.f b/lapack-netlib/TESTING/LIN/zdrvab.f index 78d779c67..130515959 100644 --- a/lapack-netlib/TESTING/LIN/zdrvab.f +++ b/lapack-netlib/TESTING/LIN/zdrvab.f @@ -143,8 +143,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -152,10 +150,9 @@ $ NSVAL, THRESH, NMAX, A, AFAC, B, $ X, WORK, RWORK, SWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NM, NMAX, NNS, NOUT diff --git a/lapack-netlib/TESTING/LIN/zdrvac.f b/lapack-netlib/TESTING/LIN/zdrvac.f index 08f4c227f..20f8eb1e5 100644 --- a/lapack-netlib/TESTING/LIN/zdrvac.f +++ b/lapack-netlib/TESTING/LIN/zdrvac.f @@ -136,8 +136,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -145,10 +143,9 @@ $ A, AFAC, B, X, WORK, $ RWORK, SWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NMAX, NM, NNS, NOUT diff --git a/lapack-netlib/TESTING/LIN/zdrvgb.f b/lapack-netlib/TESTING/LIN/zdrvgb.f index 6740a6fcf..aa5712c3b 100644 --- a/lapack-netlib/TESTING/LIN/zdrvgb.f +++ b/lapack-netlib/TESTING/LIN/zdrvgb.f @@ -141,7 +141,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is DOUBLE PRECISION array, dimension -*> (max(NMAX,2*NRHS)) +*> (NMAX+2*NRHS) *> \endverbatim *> *> \param[out] IWORK @@ -163,8 +163,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -172,10 +170,9 @@ $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -585,7 +582,8 @@ $ WORK, LDB ) CALL ZGBT02( 'No transpose', N, N, KL, $ KU, NRHS, A, LDA, X, LDB, - $ WORK, LDB, RESULT( 2 ) ) + $ WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact * solution. @@ -702,6 +700,7 @@ $ WORK, LDB ) CALL ZGBT02( TRANS, N, N, KL, KU, NRHS, $ ASAV, LDA, X, LDB, WORK, LDB, + $ RWORK( 2*NRHS+1 ), $ RESULT( 2 ) ) * * Check solution from generated exact diff --git a/lapack-netlib/TESTING/LIN/zdrvgbx.f b/lapack-netlib/TESTING/LIN/zdrvgbx.f index 9ab2100b7..9bf3560f2 100644 --- a/lapack-netlib/TESTING/LIN/zdrvgbx.f +++ b/lapack-netlib/TESTING/LIN/zdrvgbx.f @@ -144,7 +144,7 @@ *> \param[out] RWORK *> \verbatim *> RWORK is DOUBLE PRECISION array, dimension -*> (max(NMAX,2*NRHS)) +*> (max(2*NMAX,NMAX+2*NRHS)) *> \endverbatim *> *> \param[out] IWORK @@ -166,8 +166,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -175,10 +173,9 @@ $ AFB, LAFB, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -593,7 +590,8 @@ $ WORK, LDB ) CALL ZGBT02( 'No transpose', N, N, KL, $ KU, NRHS, A, LDA, X, LDB, - $ WORK, LDB, RESULT( 2 ) ) + $ WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact * solution. @@ -711,6 +709,7 @@ $ WORK, LDB ) CALL ZGBT02( TRANS, N, N, KL, KU, NRHS, $ ASAV, LDA, X, LDB, WORK, LDB, + $ RWORK( 2*NRHS+1 ), $ RESULT( 2 ) ) * * Check solution from generated exact @@ -900,7 +899,8 @@ c write(*,*) 'begin zgbsvxx testing' CALL ZLACPY( 'Full', N, NRHS, BSAV, LDB, WORK, $ LDB ) CALL ZGBT02( TRANS, N, N, KL, KU, NRHS, ASAV, - $ LDA, X, LDB, WORK, LDB, RESULT( 2 ) ) + $ LDA, X, LDB, WORK, LDB, RWORK, + $ RESULT( 2 ) ) * * Check solution from generated exact solution. * @@ -1030,6 +1030,6 @@ c write(*,*) 'begin zgbsvxx testing' * RETURN * -* End of ZDRVGB +* End of ZDRVGBX * END diff --git a/lapack-netlib/TESTING/LIN/zdrvge.f b/lapack-netlib/TESTING/LIN/zdrvge.f index 1edad5e70..f6ef2d19c 100644 --- a/lapack-netlib/TESTING/LIN/zdrvge.f +++ b/lapack-netlib/TESTING/LIN/zdrvge.f @@ -155,8 +155,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -164,10 +162,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvgex.f b/lapack-netlib/TESTING/LIN/zdrvgex.f index 1b784d31b..27d9105a3 100644 --- a/lapack-netlib/TESTING/LIN/zdrvgex.f +++ b/lapack-netlib/TESTING/LIN/zdrvgex.f @@ -158,8 +158,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16_lin * * ===================================================================== @@ -167,10 +165,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -892,6 +889,6 @@ $ G12.5 ) RETURN * -* End of ZDRVGE +* End of ZDRVGEX * END diff --git a/lapack-netlib/TESTING/LIN/zdrvgt.f b/lapack-netlib/TESTING/LIN/zdrvgt.f index d260012e8..d055e4bdb 100644 --- a/lapack-netlib/TESTING/LIN/zdrvgt.f +++ b/lapack-netlib/TESTING/LIN/zdrvgt.f @@ -131,18 +131,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZDRVGT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, AF, $ B, X, XACT, WORK, RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvhe.f b/lapack-netlib/TESTING/LIN/zdrvhe.f index ba8f28fa9..a4cc639b1 100644 --- a/lapack-netlib/TESTING/LIN/zdrvhe.f +++ b/lapack-netlib/TESTING/LIN/zdrvhe.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== @@ -153,10 +151,9 @@ $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvhe_aa.f b/lapack-netlib/TESTING/LIN/zdrvhe_aa.f index 326627e8c..34d8f2aaf 100644 --- a/lapack-netlib/TESTING/LIN/zdrvhe_aa.f +++ b/lapack-netlib/TESTING/LIN/zdrvhe_aa.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== @@ -153,10 +151,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvhe_aa_2stage.f b/lapack-netlib/TESTING/LIN/zdrvhe_aa_2stage.f index 655a8c788..9401867e0 100644 --- a/lapack-netlib/TESTING/LIN/zdrvhe_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/zdrvhe_aa_2stage.f @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== @@ -155,10 +153,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvhe_rk.f b/lapack-netlib/TESTING/LIN/zdrvhe_rk.f index 355260aad..2f34883d6 100644 --- a/lapack-netlib/TESTING/LIN/zdrvhe_rk.f +++ b/lapack-netlib/TESTING/LIN/zdrvhe_rk.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -158,10 +156,9 @@ $ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -415,7 +412,7 @@ CALL ZLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) LWORK = (N+NB+1)*(NB+3) * -* We need to copute the invesrse to compute +* We need to compute the inverse to compute * RCONDC that is used later in TEST3. * CALL ZHETRI_3( UPLO, N, AINV, LDA, E, IWORK, diff --git a/lapack-netlib/TESTING/LIN/zdrvhe_rook.f b/lapack-netlib/TESTING/LIN/zdrvhe_rook.f index 70fed11dd..59aed71be 100644 --- a/lapack-netlib/TESTING/LIN/zdrvhe_rook.f +++ b/lapack-netlib/TESTING/LIN/zdrvhe_rook.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== @@ -153,10 +151,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvhex.f b/lapack-netlib/TESTING/LIN/zdrvhex.f index 527114508..0f66d28e9 100644 --- a/lapack-netlib/TESTING/LIN/zdrvhex.f +++ b/lapack-netlib/TESTING/LIN/zdrvhex.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16_lin * * ===================================================================== @@ -157,10 +155,9 @@ $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -718,6 +715,6 @@ $ ', type ', I2, ', test ', I2, ', ratio =', G12.5 ) RETURN * -* End of ZDRVHE +* End of ZDRVHEX * END diff --git a/lapack-netlib/TESTING/LIN/zdrvhp.f b/lapack-netlib/TESTING/LIN/zdrvhp.f index 66bd76552..5c96c03e7 100644 --- a/lapack-netlib/TESTING/LIN/zdrvhp.f +++ b/lapack-netlib/TESTING/LIN/zdrvhp.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -157,10 +155,9 @@ $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvls.f b/lapack-netlib/TESTING/LIN/zdrvls.f index 1313c853b..2eab97905 100644 --- a/lapack-netlib/TESTING/LIN/zdrvls.f +++ b/lapack-netlib/TESTING/LIN/zdrvls.f @@ -183,8 +183,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_lin * * ===================================================================== @@ -192,10 +190,9 @@ $ NBVAL, NXVAL, THRESH, TSTERR, A, COPYA, B, $ COPYB, C, S, COPYS, NOUT ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvpb.f b/lapack-netlib/TESTING/LIN/zdrvpb.f index 264796452..a3eecb83e 100644 --- a/lapack-netlib/TESTING/LIN/zdrvpb.f +++ b/lapack-netlib/TESTING/LIN/zdrvpb.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -159,10 +157,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvpo.f b/lapack-netlib/TESTING/LIN/zdrvpo.f index 1308a1f58..3cc691c5b 100644 --- a/lapack-netlib/TESTING/LIN/zdrvpo.f +++ b/lapack-netlib/TESTING/LIN/zdrvpo.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -159,10 +157,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvpox.f b/lapack-netlib/TESTING/LIN/zdrvpox.f index 0bc2c89d8..d12405962 100644 --- a/lapack-netlib/TESTING/LIN/zdrvpox.f +++ b/lapack-netlib/TESTING/LIN/zdrvpox.f @@ -153,8 +153,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -162,10 +160,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -734,6 +731,6 @@ $ G12.5 ) RETURN * -* End of ZDRVPO +* End of ZDRVPOX * END diff --git a/lapack-netlib/TESTING/LIN/zdrvpp.f b/lapack-netlib/TESTING/LIN/zdrvpp.f index 82901e3ec..f63f7145d 100644 --- a/lapack-netlib/TESTING/LIN/zdrvpp.f +++ b/lapack-netlib/TESTING/LIN/zdrvpp.f @@ -150,8 +150,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -159,10 +157,9 @@ $ A, AFAC, ASAV, B, BSAV, X, XACT, S, WORK, $ RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvpt.f b/lapack-netlib/TESTING/LIN/zdrvpt.f index 5943c0637..14a9f76ba 100644 --- a/lapack-netlib/TESTING/LIN/zdrvpt.f +++ b/lapack-netlib/TESTING/LIN/zdrvpt.f @@ -132,18 +132,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZDRVPT( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, D, $ E, B, X, XACT, WORK, RWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvrf1.f b/lapack-netlib/TESTING/LIN/zdrvrf1.f index 6e468452a..0e54815fb 100644 --- a/lapack-netlib/TESTING/LIN/zdrvrf1.f +++ b/lapack-netlib/TESTING/LIN/zdrvrf1.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZDRVRF1( NOUT, NN, NVAL, THRESH, A, LDA, ARF, WORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/zdrvrf2.f b/lapack-netlib/TESTING/LIN/zdrvrf2.f index 2e95ce7cb..7f03e30ae 100644 --- a/lapack-netlib/TESTING/LIN/zdrvrf2.f +++ b/lapack-netlib/TESTING/LIN/zdrvrf2.f @@ -82,17 +82,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZDRVRF2( NOUT, NN, NVAL, A, LDA, ARF, AP, ASAV ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/zdrvrf3.f b/lapack-netlib/TESTING/LIN/zdrvrf3.f index 8bb9f2b94..7a44dba29 100644 --- a/lapack-netlib/TESTING/LIN/zdrvrf3.f +++ b/lapack-netlib/TESTING/LIN/zdrvrf3.f @@ -111,18 +111,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, + D_WORK_ZLANGE, Z_WORK_ZGEQRF, TAU ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, NN, NOUT @@ -259,8 +256,8 @@ * Generate A our NA--by--NA triangular * 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 +* do want A to be well conditioned! To get +* a well-conditioned triangular matrix, we * take the R factor of the QR/LQ factorization * of a random matrix. * diff --git a/lapack-netlib/TESTING/LIN/zdrvrf4.f b/lapack-netlib/TESTING/LIN/zdrvrf4.f index c264355a1..17c4a2d24 100644 --- a/lapack-netlib/TESTING/LIN/zdrvrf4.f +++ b/lapack-netlib/TESTING/LIN/zdrvrf4.f @@ -106,18 +106,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZDRVRF4( NOUT, NN, NVAL, THRESH, C1, C2, LDC, CRF, A, + LDA, D_WORK_ZLANGE ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER LDA, LDC, NN, NOUT diff --git a/lapack-netlib/TESTING/LIN/zdrvrfp.f b/lapack-netlib/TESTING/LIN/zdrvrfp.f index b299a487b..be6c13445 100644 --- a/lapack-netlib/TESTING/LIN/zdrvrfp.f +++ b/lapack-netlib/TESTING/LIN/zdrvrfp.f @@ -232,8 +232,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -244,10 +242,9 @@ + Z_WORK_ZPOT03, D_WORK_ZLATMS, D_WORK_ZLANHE, + D_WORK_ZPOT01, D_WORK_ZPOT02, D_WORK_ZPOT03 ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NN, NNS, NNT, NOUT diff --git a/lapack-netlib/TESTING/LIN/zdrvsp.f b/lapack-netlib/TESTING/LIN/zdrvsp.f index 94dd6553c..1b68711d7 100644 --- a/lapack-netlib/TESTING/LIN/zdrvsp.f +++ b/lapack-netlib/TESTING/LIN/zdrvsp.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -157,10 +155,9 @@ $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvsy.f b/lapack-netlib/TESTING/LIN/zdrvsy.f index 5e0c60e23..0e5623794 100644 --- a/lapack-netlib/TESTING/LIN/zdrvsy.f +++ b/lapack-netlib/TESTING/LIN/zdrvsy.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== @@ -153,10 +151,9 @@ $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvsy_aa.f b/lapack-netlib/TESTING/LIN/zdrvsy_aa.f index ae4c8a5aa..eaac75ed7 100644 --- a/lapack-netlib/TESTING/LIN/zdrvsy_aa.f +++ b/lapack-netlib/TESTING/LIN/zdrvsy_aa.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== @@ -153,10 +151,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvsy_aa_2stage.f b/lapack-netlib/TESTING/LIN/zdrvsy_aa_2stage.f index d93e44542..21497477c 100644 --- a/lapack-netlib/TESTING/LIN/zdrvsy_aa_2stage.f +++ b/lapack-netlib/TESTING/LIN/zdrvsy_aa_2stage.f @@ -145,8 +145,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== @@ -155,10 +153,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvsy_rk.f b/lapack-netlib/TESTING/LIN/zdrvsy_rk.f index 1cc983a2c..a27e891eb 100644 --- a/lapack-netlib/TESTING/LIN/zdrvsy_rk.f +++ b/lapack-netlib/TESTING/LIN/zdrvsy_rk.f @@ -149,8 +149,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -158,10 +156,9 @@ $ NMAX, A, AFAC, E, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -422,7 +419,7 @@ CALL ZLACPY( UPLO, N, N, AFAC, LDA, AINV, LDA ) LWORK = (N+NB+1)*(NB+3) * -* We need to copute the invesrse to compute +* We need to compute the inverse to compute * RCONDC that is used later in TEST3. * CALL ZSYTRI_3( UPLO, N, AINV, LDA, E, IWORK, diff --git a/lapack-netlib/TESTING/LIN/zdrvsy_rook.f b/lapack-netlib/TESTING/LIN/zdrvsy_rook.f index 11019bdf2..eba5faa81 100644 --- a/lapack-netlib/TESTING/LIN/zdrvsy_rook.f +++ b/lapack-netlib/TESTING/LIN/zdrvsy_rook.f @@ -144,8 +144,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -153,10 +151,9 @@ $ NMAX, A, AFAC, AINV, B, X, XACT, WORK, $ RWORK, IWORK, NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL TSTERR diff --git a/lapack-netlib/TESTING/LIN/zdrvsyx.f b/lapack-netlib/TESTING/LIN/zdrvsyx.f index e4556f150..5d2d741c0 100644 --- a/lapack-netlib/TESTING/LIN/zdrvsyx.f +++ b/lapack-netlib/TESTING/LIN/zdrvsyx.f @@ -148,8 +148,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16_lin * * ===================================================================== @@ -157,10 +155,9 @@ $ A, AFAC, AINV, B, X, XACT, WORK, RWORK, IWORK, $ NOUT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. LOGICAL TSTERR @@ -724,6 +721,6 @@ $ ', type ', I2, ', test ', I2, ', ratio =', G12.5 ) RETURN * -* End of ZDRVSY +* End of ZDRVSYX * END diff --git a/lapack-netlib/TESTING/LIN/zebchvxx.f b/lapack-netlib/TESTING/LIN/zebchvxx.f index 8437685a5..b57ce88ec 100644 --- a/lapack-netlib/TESTING/LIN/zebchvxx.f +++ b/lapack-netlib/TESTING/LIN/zebchvxx.f @@ -89,8 +89,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -504,5 +502,7 @@ c$$$ WRITE(*,*) 8000 FORMAT( ' Z', A2, 'SVXX: N =', I2, ', INFO = ', I3, $ ', ORCOND = ', G12.5, ', real RCOND = ', G12.5 ) - +* +* End of ZEBCHVXX +* END diff --git a/lapack-netlib/TESTING/LIN/zerrab.f b/lapack-netlib/TESTING/LIN/zerrab.f index 1d345a412..81bf019d9 100644 --- a/lapack-netlib/TESTING/LIN/zerrab.f +++ b/lapack-netlib/TESTING/LIN/zerrab.f @@ -40,17 +40,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRAB( NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/zerrac.f b/lapack-netlib/TESTING/LIN/zerrac.f index 0ba2b0e06..1d32450aa 100644 --- a/lapack-netlib/TESTING/LIN/zerrac.f +++ b/lapack-netlib/TESTING/LIN/zerrac.f @@ -40,17 +40,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRAC( NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/zerrge.f b/lapack-netlib/TESTING/LIN/zerrge.f index a106b3a36..6bf79f646 100644 --- a/lapack-netlib/TESTING/LIN/zerrge.f +++ b/lapack-netlib/TESTING/LIN/zerrge.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRGE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrgex.f b/lapack-netlib/TESTING/LIN/zerrgex.f index 8c0a9f43d..b20f0ce74 100644 --- a/lapack-netlib/TESTING/LIN/zerrgex.f +++ b/lapack-netlib/TESTING/LIN/zerrgex.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRGE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -562,6 +559,6 @@ * RETURN * -* End of ZERRGE +* End of ZERRGEX * END diff --git a/lapack-netlib/TESTING/LIN/zerrgt.f b/lapack-netlib/TESTING/LIN/zerrgt.f index 4a5ab934e..bfb760e08 100644 --- a/lapack-netlib/TESTING/LIN/zerrgt.f +++ b/lapack-netlib/TESTING/LIN/zerrgt.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRGT( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrhe.f b/lapack-netlib/TESTING/LIN/zerrhe.f index 5b2f30bdf..e49e5037c 100644 --- a/lapack-netlib/TESTING/LIN/zerrhe.f +++ b/lapack-netlib/TESTING/LIN/zerrhe.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRHE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrhex.f b/lapack-netlib/TESTING/LIN/zerrhex.f index 938c283e2..b6e8b77ef 100644 --- a/lapack-netlib/TESTING/LIN/zerrhex.f +++ b/lapack-netlib/TESTING/LIN/zerrhex.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRHE( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -612,6 +609,6 @@ * RETURN * -* End of ZERRHE +* End of ZERRHEX * END diff --git a/lapack-netlib/TESTING/LIN/zerrlq.f b/lapack-netlib/TESTING/LIN/zerrlq.f index 48d7aaa8e..d8e5a8fe8 100644 --- a/lapack-netlib/TESTING/LIN/zerrlq.f +++ b/lapack-netlib/TESTING/LIN/zerrlq.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRLQ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrlqt.f b/lapack-netlib/TESTING/LIN/zerrlqt.f index 2ca3d7121..de237f7b3 100644 --- a/lapack-netlib/TESTING/LIN/zerrlqt.f +++ b/lapack-netlib/TESTING/LIN/zerrlqt.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE ZERRLQT( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrlqtp.f b/lapack-netlib/TESTING/LIN/zerrlqtp.f index f78a311f6..4fed018fb 100644 --- a/lapack-netlib/TESTING/LIN/zerrlqtp.f +++ b/lapack-netlib/TESTING/LIN/zerrlqtp.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE ZERRLQTP( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -220,6 +217,6 @@ * RETURN * -* End of ZERRLQT +* End of ZERRLQTP * END diff --git a/lapack-netlib/TESTING/LIN/zerrls.f b/lapack-netlib/TESTING/LIN/zerrls.f index 2df87b66b..66e56c8c6 100644 --- a/lapack-netlib/TESTING/LIN/zerrls.f +++ b/lapack-netlib/TESTING/LIN/zerrls.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRLS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrpo.f b/lapack-netlib/TESTING/LIN/zerrpo.f index f53847a18..802377dd5 100644 --- a/lapack-netlib/TESTING/LIN/zerrpo.f +++ b/lapack-netlib/TESTING/LIN/zerrpo.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRPO( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrpox.f b/lapack-netlib/TESTING/LIN/zerrpox.f index fbd9ff391..2af8aeab9 100644 --- a/lapack-netlib/TESTING/LIN/zerrpox.f +++ b/lapack-netlib/TESTING/LIN/zerrpox.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRPO( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -534,6 +531,6 @@ * RETURN * -* End of ZERRPO +* End of ZERRPOX * END diff --git a/lapack-netlib/TESTING/LIN/zerrps.f b/lapack-netlib/TESTING/LIN/zerrps.f index 5c10dd859..86425c192 100644 --- a/lapack-netlib/TESTING/LIN/zerrps.f +++ b/lapack-netlib/TESTING/LIN/zerrps.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRPS( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/zerrql.f b/lapack-netlib/TESTING/LIN/zerrql.f index 2c20dfa85..ebbbb8f64 100644 --- a/lapack-netlib/TESTING/LIN/zerrql.f +++ b/lapack-netlib/TESTING/LIN/zerrql.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRQL( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrqp.f b/lapack-netlib/TESTING/LIN/zerrqp.f index e63b65a9d..5251d4522 100644 --- a/lapack-netlib/TESTING/LIN/zerrqp.f +++ b/lapack-netlib/TESTING/LIN/zerrqp.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRQP( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrqr.f b/lapack-netlib/TESTING/LIN/zerrqr.f index 88e46b0d9..114453d4c 100644 --- a/lapack-netlib/TESTING/LIN/zerrqr.f +++ b/lapack-netlib/TESTING/LIN/zerrqr.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRQR( PATH, NUNIT ) * -* -- LAPACK test routine ((version 3.7.0) -- +* -- LAPACK test routine (-- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrqrt.f b/lapack-netlib/TESTING/LIN/zerrqrt.f index 1f030ca05..64c20b08e 100644 --- a/lapack-netlib/TESTING/LIN/zerrqrt.f +++ b/lapack-netlib/TESTING/LIN/zerrqrt.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRQRT( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrqrtp.f b/lapack-netlib/TESTING/LIN/zerrqrtp.f index 6370e0454..19d2a4ca1 100644 --- a/lapack-netlib/TESTING/LIN/zerrqrtp.f +++ b/lapack-netlib/TESTING/LIN/zerrqrtp.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRQRTP( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -224,6 +221,6 @@ * RETURN * -* End of ZERRQRT +* End of ZERRQRTP * END diff --git a/lapack-netlib/TESTING/LIN/zerrrfp.f b/lapack-netlib/TESTING/LIN/zerrrfp.f index 0553c4079..e7916d50d 100644 --- a/lapack-netlib/TESTING/LIN/zerrrfp.f +++ b/lapack-netlib/TESTING/LIN/zerrrfp.f @@ -45,17 +45,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRRFP( NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER NUNIT diff --git a/lapack-netlib/TESTING/LIN/zerrrq.f b/lapack-netlib/TESTING/LIN/zerrrq.f index 36085c8b2..e1af3729c 100644 --- a/lapack-netlib/TESTING/LIN/zerrrq.f +++ b/lapack-netlib/TESTING/LIN/zerrrq.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRRQ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrsy.f b/lapack-netlib/TESTING/LIN/zerrsy.f index 642d748da..a50f9d24e 100644 --- a/lapack-netlib/TESTING/LIN/zerrsy.f +++ b/lapack-netlib/TESTING/LIN/zerrsy.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRSY( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrsyx.f b/lapack-netlib/TESTING/LIN/zerrsyx.f index 3152ba8e2..23d2a5a2b 100644 --- a/lapack-netlib/TESTING/LIN/zerrsyx.f +++ b/lapack-netlib/TESTING/LIN/zerrsyx.f @@ -51,17 +51,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRSY( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -611,6 +608,6 @@ * RETURN * -* End of ZERRSY +* End of ZERRSYX * END diff --git a/lapack-netlib/TESTING/LIN/zerrtr.f b/lapack-netlib/TESTING/LIN/zerrtr.f index e81d96cd9..098040ace 100644 --- a/lapack-netlib/TESTING/LIN/zerrtr.f +++ b/lapack-netlib/TESTING/LIN/zerrtr.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRTR( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrtsqr.f b/lapack-netlib/TESTING/LIN/zerrtsqr.f index 526ea0812..19f73fa7a 100644 --- a/lapack-netlib/TESTING/LIN/zerrtsqr.f +++ b/lapack-netlib/TESTING/LIN/zerrtsqr.f @@ -48,18 +48,15 @@ *> \author Univ. of Colorado Zenver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE ZERRTSQR( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -73,7 +70,7 @@ PARAMETER ( NMAX = 2 ) * .. * .. Local Scalars .. - INTEGER I, INFO, J, NB + INTEGER I, INFO, J, MB, NB * .. * .. Local Arrays .. COMPLEX*16 A( NMAX, NMAX ), T( NMAX, NMAX ), W( NMAX ), @@ -133,6 +130,35 @@ CALL ZGEQR( 3, 2, A, 3, TAU, 8, W, 0, INFO ) CALL CHKXER( 'ZGEQR', INFOT, NOUT, LERR, OK ) * +* ZLATSQR +* + MB = 1 + NB = 1 + SRNAMT = 'ZLATSQR' + INFOT = 1 + CALL ZLATSQR( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL ZLATSQR( 1, 2, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK ) + CALL ZLATSQR( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL ZLATSQR( 2, 1, -1, NB, A, 2, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 4 + CALL ZLATSQR( 2, 1, MB, 2, A, 2, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 6 + CALL ZLATSQR( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL ZLATSQR( 2, 1, MB, NB, A, 2, TAU, 0, W, 1, INFO ) + CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL ZLATSQR( 2, 1, MB, NB, A, 2, TAU, 2, W, 0, INFO ) + CALL CHKXER( 'ZLATSQR', INFOT, NOUT, LERR, OK ) +* * ZGEMQR * TAU(1)=1 @@ -192,6 +218,37 @@ CALL ZGELQ( 2, 3, A, 3, TAU, 8, W, 0, INFO ) CALL CHKXER( 'ZGELQ', INFOT, NOUT, LERR, OK ) * +* ZLASWLQ +* + MB = 1 + NB = 1 + SRNAMT = 'ZLASWLQ' + INFOT = 1 + CALL ZLASWLQ( -1, 0, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL ZLASWLQ( 2, 1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK ) + CALL ZLASWLQ( 0, -1, MB, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL ZLASWLQ( 1, 2, -1, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK ) + CALL ZLASWLQ( 1, 1, 2, NB, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 4 + CALL ZLASWLQ( 1, 2, MB, -1, A, 1, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 6 + CALL ZLASWLQ( 1, 2, MB, NB, A, 0, TAU, 1, W, 1, INFO ) + CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL ZLASWLQ( 1, 2, MB, NB, A, 1, TAU, 0, W, 1, INFO ) + CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK ) + INFOT = 10 + CALL ZLASWLQ( 1, 2, MB, NB, A, 1, TAU, 1, W, 0, INFO ) + CALL CHKXER( 'ZLASWLQ', INFOT, NOUT, LERR, OK ) +* * ZGEMLQ * TAU(1)=1 @@ -238,6 +295,6 @@ * RETURN * -* End of DERRTSQR +* End of ZERRTSQR * END diff --git a/lapack-netlib/TESTING/LIN/zerrtz.f b/lapack-netlib/TESTING/LIN/zerrtz.f index 5eb1cf291..693ec0cb1 100644 --- a/lapack-netlib/TESTING/LIN/zerrtz.f +++ b/lapack-netlib/TESTING/LIN/zerrtz.f @@ -47,17 +47,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRTZ( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrunhr_col.f b/lapack-netlib/TESTING/LIN/zerrunhr_col.f index 4fb62734d..6375d2834 100644 --- a/lapack-netlib/TESTING/LIN/zerrunhr_col.f +++ b/lapack-netlib/TESTING/LIN/zerrunhr_col.f @@ -22,7 +22,7 @@ *> \verbatim *> *> ZERRUNHR_COL tests the error exits for ZUNHR_COL that does -*> Householder reconstruction from the ouput of tall-skinny +*> Householder reconstruction from the output of tall-skinny *> factorization ZLATSQR. *> \endverbatim * @@ -49,18 +49,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2019 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRUNHR_COL( PATH, NUNIT ) IMPLICIT NONE * -* -- LAPACK test routine (version 3.9.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2019 * * .. Scalar Arguments .. CHARACTER(LEN=3) PATH diff --git a/lapack-netlib/TESTING/LIN/zerrvx.f b/lapack-netlib/TESTING/LIN/zerrvx.f index 7759384e6..ea7823df3 100644 --- a/lapack-netlib/TESTING/LIN/zerrvx.f +++ b/lapack-netlib/TESTING/LIN/zerrvx.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRVX( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. CHARACTER*3 PATH diff --git a/lapack-netlib/TESTING/LIN/zerrvxx.f b/lapack-netlib/TESTING/LIN/zerrvxx.f index bdaf44d8a..8fd920fcc 100644 --- a/lapack-netlib/TESTING/LIN/zerrvxx.f +++ b/lapack-netlib/TESTING/LIN/zerrvxx.f @@ -48,17 +48,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZERRVX( PATH, NUNIT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER*3 PATH @@ -1297,6 +1294,6 @@ * RETURN * -* End of ZERRVX +* End of ZERRVXX * END diff --git a/lapack-netlib/TESTING/LIN/zgbt01.f b/lapack-netlib/TESTING/LIN/zgbt01.f index 2d3e8ed1d..921919371 100644 --- a/lapack-netlib/TESTING/LIN/zgbt01.f +++ b/lapack-netlib/TESTING/LIN/zgbt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGBT01( M, N, KL, KU, A, LDA, AFAC, LDAFAC, IPIV, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER KL, KU, LDA, LDAFAC, M, N diff --git a/lapack-netlib/TESTING/LIN/zgbt02.f b/lapack-netlib/TESTING/LIN/zgbt02.f index 41f589d85..6acdb00aa 100644 --- a/lapack-netlib/TESTING/LIN/zgbt02.f +++ b/lapack-netlib/TESTING/LIN/zgbt02.f @@ -9,7 +9,7 @@ * =========== * * SUBROUTINE ZGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, -* LDB, RESID ) +* LDB, RWORK, RESID ) * * .. Scalar Arguments .. * CHARACTER TRANS @@ -17,6 +17,7 @@ * DOUBLE PRECISION RESID * .. * .. Array Arguments .. +* DOUBLE PRECISION RWORK( * ) * COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. * @@ -27,9 +28,10 @@ *> \verbatim *> *> ZGBT02 computes the residual for a solution of a banded system of -*> equations A*x = b or A'*x = b: -*> RESID = norm( B - A*X ) / ( norm(A) * norm(X) * EPS). -*> where EPS is the machine precision. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the +*> machine epsilon. *> \endverbatim * * Arguments: @@ -39,9 +41,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A'*x = b, where A' is the transpose of A -*> = 'C': A'*x = b, where A' is the transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -116,11 +118,18 @@ *> LDB >= max(1,M); if TRANS = 'T' or 'C', LDB >= max(1,N). *> \endverbatim *> +*> \param[out] RWORK +*> \verbatim +*> RWORK is DOUBLE PRECISION array, dimension (MAX(1,LRWORK)), +*> where LRWORK >= M when TRANS = 'T' or 'C'; otherwise, RWORK +*> is not referenced. +*> \endverbatim +* *> \param[out] RESID *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -131,18 +140,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGBT02( TRANS, M, N, KL, KU, NRHS, A, LDA, X, LDX, B, - $ LDB, RESID ) + $ LDB, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -150,6 +156,7 @@ DOUBLE PRECISION RESID * .. * .. Array Arguments .. + DOUBLE PRECISION RWORK( * ) COMPLEX*16 A( LDA, * ), B( LDB, * ), X( LDX, * ) * .. * @@ -163,18 +170,25 @@ * .. * .. Local Scalars .. INTEGER I1, I2, J, KD, N1 - DOUBLE PRECISION ANORM, BNORM, EPS, XNORM + DOUBLE PRECISION ANORM, BNORM, EPS, TEMP, XNORM + COMPLEX*16 ZDUM * .. * .. External Functions .. - LOGICAL LSAME + LOGICAL DISNAN, LSAME DOUBLE PRECISION DLAMCH, DZASUM - EXTERNAL LSAME, DLAMCH, DZASUM + EXTERNAL DISNAN, DLAMCH, DZASUM, LSAME * .. * .. External Subroutines .. EXTERNAL ZGBMV * .. +* .. Statement Functions .. + DOUBLE PRECISION CABS1 +* .. * .. Intrinsic Functions .. - INTRINSIC MAX, MIN + INTRINSIC ABS, DBLE, DIMAG, MAX, MIN +* .. +* .. Statement Function definitions .. + CABS1( ZDUM ) = ABS( DBLE( ZDUM ) ) + ABS( DIMAG( ZDUM ) ) * .. * .. Executable Statements .. * @@ -188,13 +202,38 @@ * Exit with RESID = 1/EPS if ANORM = 0. * EPS = DLAMCH( 'Epsilon' ) - KD = KU + 1 ANORM = ZERO + IF( LSAME( TRANS, 'N' ) ) THEN +* +* Find norm1(A). +* + KD = KU + 1 DO 10 J = 1, N I1 = MAX( KD+1-J, 1 ) I2 = MIN( KD+M-J, KL+KD ) - ANORM = MAX( ANORM, DZASUM( I2-I1+1, A( I1, J ), 1 ) ) + IF( I2.GE.I1 ) THEN + TEMP = DZASUM( I2-I1+1, A( I1, J ), 1 ) + IF( ANORM.LT.TEMP .OR. DISNAN( TEMP ) ) ANORM = TEMP + END IF 10 CONTINUE + ELSE +* +* Find normI(A). +* + DO 12 I1 = 1, M + RWORK( I1 ) = ZERO + 12 CONTINUE + DO 16 J = 1, N + KD = KU + 1 - J + DO 14 I1 = MAX( 1, J-KU ), MIN( M, J+KL ) + RWORK( I1 ) = RWORK( I1 ) + CABS1( A( KD+I1, J ) ) + 14 CONTINUE + 16 CONTINUE + DO 18 I1 = 1, M + TEMP = RWORK( I1 ) + IF( ANORM.LT.TEMP .OR. DISNAN( TEMP ) ) ANORM = TEMP + 18 CONTINUE + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN @@ -206,7 +245,7 @@ N1 = M END IF * -* Compute B - A*X (or B - A'*X ) +* Compute B - op(A)*X * DO 20 J = 1, NRHS CALL ZGBMV( TRANS, M, N, KL, KU, -CONE, A, LDA, X( 1, J ), 1, @@ -214,7 +253,7 @@ 20 CONTINUE * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). * RESID = ZERO DO 30 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/zgbt05.f b/lapack-netlib/TESTING/LIN/zgbt05.f index 87a1bdda6..0fe29c385 100644 --- a/lapack-netlib/TESTING/LIN/zgbt05.f +++ b/lapack-netlib/TESTING/LIN/zgbt05.f @@ -30,7 +30,7 @@ *> ZGBT05 tests the error bounds from iterative refinement for the *> computed solution to a system of equations op(A)*X = B, where A is a *> general band matrix of order n with kl subdiagonals and ku -*> superdiagonals and op(A) = A or A**T, depending on TRANS. +*> superdiagonals and op(A) = A, A**T, or A**H, depending on TRANS. *> *> RESLTS(1) = test of the error bound *> = norm(X - XACT) / ( norm(X) * FERR ) @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGBT05( TRANS, N, KL, KU, NRHS, AB, LDAB, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/zgelqs.f b/lapack-netlib/TESTING/LIN/zgelqs.f index 7545d015e..5f629f8c7 100644 --- a/lapack-netlib/TESTING/LIN/zgelqs.f +++ b/lapack-netlib/TESTING/LIN/zgelqs.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGELQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/zgennd.f b/lapack-netlib/TESTING/LIN/zgennd.f index 250835364..48c9ad726 100644 --- a/lapack-netlib/TESTING/LIN/zgennd.f +++ b/lapack-netlib/TESTING/LIN/zgennd.f @@ -61,17 +61,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== LOGICAL FUNCTION ZGENND (M, N, A, LDA) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER M, N, LDA diff --git a/lapack-netlib/TESTING/LIN/zgeqls.f b/lapack-netlib/TESTING/LIN/zgeqls.f index b668fac5d..ee3ec4938 100644 --- a/lapack-netlib/TESTING/LIN/zgeqls.f +++ b/lapack-netlib/TESTING/LIN/zgeqls.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGEQLS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/zgeqrs.f b/lapack-netlib/TESTING/LIN/zgeqrs.f index f0d020817..6583e3859 100644 --- a/lapack-netlib/TESTING/LIN/zgeqrs.f +++ b/lapack-netlib/TESTING/LIN/zgeqrs.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGEQRS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/zgerqs.f b/lapack-netlib/TESTING/LIN/zgerqs.f index d94a7a3dc..ca9f527f0 100644 --- a/lapack-netlib/TESTING/LIN/zgerqs.f +++ b/lapack-netlib/TESTING/LIN/zgerqs.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGERQS( M, N, NRHS, A, LDA, TAU, B, LDB, WORK, LWORK, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, LDB, LWORK, M, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/zget01.f b/lapack-netlib/TESTING/LIN/zget01.f index fc21b3bfa..e46229868 100644 --- a/lapack-netlib/TESTING/LIN/zget01.f +++ b/lapack-netlib/TESTING/LIN/zget01.f @@ -100,18 +100,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGET01( M, N, A, LDA, AFAC, LDAFAC, IPIV, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDAFAC, M, N diff --git a/lapack-netlib/TESTING/LIN/zget02.f b/lapack-netlib/TESTING/LIN/zget02.f index 764620a39..6ad1392c6 100644 --- a/lapack-netlib/TESTING/LIN/zget02.f +++ b/lapack-netlib/TESTING/LIN/zget02.f @@ -28,9 +28,10 @@ *> \verbatim *> *> ZGET02 computes the residual for a solution of a system of linear -*> equations A*x = b or A'*x = b: -*> RESID = norm(B - A*X) / ( norm(A) * norm(X) * EPS ), -*> where EPS is the machine epsilon. +*> equations op(A)*X = B: +*> RESID = norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ), +*> where op(A) = A, A**T, or A**H, depending on TRANS, and EPS is the +*> machine epsilon. *> \endverbatim * * Arguments: @@ -40,9 +41,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the form of the system of equations: -*> = 'N': A *x = b -*> = 'T': A^T*x = b, where A^T is the transpose of A -*> = 'C': A^H*x = b, where A^H is the conjugate transpose of A +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -95,7 +96,7 @@ *> B is COMPLEX*16 array, dimension (LDB,NRHS) *> On entry, the right hand side vectors for the system of *> linear equations. -*> On exit, B is overwritten with the difference B - A*X. +*> On exit, B is overwritten with the difference B - op(A)*X. *> \endverbatim *> *> \param[in] LDB @@ -114,7 +115,7 @@ *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(B - A*X) / ( norm(A) * norm(X) * EPS ). +*> norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -125,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGET02( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -191,19 +189,23 @@ * Exit with RESID = 1/EPS if ANORM = 0. * EPS = DLAMCH( 'Epsilon' ) + IF( LSAME( TRANS, 'N' ) ) THEN ANORM = ZLANGE( '1', M, N, A, LDA, RWORK ) + ELSE + ANORM = ZLANGE( 'I', M, N, A, LDA, RWORK ) + END IF IF( ANORM.LE.ZERO ) THEN RESID = ONE / EPS RETURN END IF * -* Compute B - A*X (or B - A'*X ) and store in B. +* Compute B - op(A)*X and store in B. * CALL ZGEMM( TRANS, 'No transpose', N1, NRHS, N2, -CONE, A, LDA, X, $ LDX, CONE, B, LDB ) * * Compute the maximum over the number of right hand sides of -* norm(B - A*X) / ( norm(A) * norm(X) * EPS ) . +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ) . * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/zget03.f b/lapack-netlib/TESTING/LIN/zget03.f index cb05ec442..74121aabc 100644 --- a/lapack-netlib/TESTING/LIN/zget03.f +++ b/lapack-netlib/TESTING/LIN/zget03.f @@ -102,18 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGET03( N, A, LDA, AINV, LDAINV, WORK, LDWORK, RWORK, $ RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDAINV, LDWORK, N diff --git a/lapack-netlib/TESTING/LIN/zget04.f b/lapack-netlib/TESTING/LIN/zget04.f index fe39a8351..fa0d23899 100644 --- a/lapack-netlib/TESTING/LIN/zget04.f +++ b/lapack-netlib/TESTING/LIN/zget04.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGET04( N, NRHS, X, LDX, XACT, LDXACT, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDX, LDXACT, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/zget07.f b/lapack-netlib/TESTING/LIN/zget07.f index d9a06a8d8..dc78e0bb6 100644 --- a/lapack-netlib/TESTING/LIN/zget07.f +++ b/lapack-netlib/TESTING/LIN/zget07.f @@ -158,18 +158,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGET07( TRANS, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, CHKFERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/zget08.f b/lapack-netlib/TESTING/LIN/zget08.f index 7d40ecfcc..32291170c 100644 --- a/lapack-netlib/TESTING/LIN/zget08.f +++ b/lapack-netlib/TESTING/LIN/zget08.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGET08( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -226,6 +223,6 @@ * RETURN * -* End of ZGET02 +* End of ZGET08 * END diff --git a/lapack-netlib/TESTING/LIN/zgtt01.f b/lapack-netlib/TESTING/LIN/zgtt01.f index c58c99d02..c63fdbc25 100644 --- a/lapack-netlib/TESTING/LIN/zgtt01.f +++ b/lapack-netlib/TESTING/LIN/zgtt01.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGTT01( N, DL, D, DU, DLF, DF, DUF, DU2, IPIV, WORK, $ LDWORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDWORK, N diff --git a/lapack-netlib/TESTING/LIN/zgtt02.f b/lapack-netlib/TESTING/LIN/zgtt02.f index acdd5b293..7362967be 100644 --- a/lapack-netlib/TESTING/LIN/zgtt02.f +++ b/lapack-netlib/TESTING/LIN/zgtt02.f @@ -29,7 +29,7 @@ *> *> ZGTT02 computes the residual for the solution to a tridiagonal *> system of equations: -*> RESID = norm(B - op(A)*X) / (norm(A) * norm(X) * EPS), +*> RESID = norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS), *> where EPS is the machine epsilon. *> \endverbatim * @@ -105,7 +105,7 @@ *> \param[out] RESID *> \verbatim *> RESID is DOUBLE PRECISION -*> norm(B - op(A)*X) / (norm(A) * norm(X) * EPS) +*> norm(B - op(A)*X) / (norm(op(A)) * norm(X) * EPS) *> \endverbatim * * Authors: @@ -116,18 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGTT02( TRANS, N, NRHS, DL, D, DU, X, LDX, B, LDB, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -169,7 +166,7 @@ $ RETURN * * Compute the maximum over the number of right hand sides of -* norm(B - op(A)*X) / ( norm(A) * norm(X) * EPS ). +* norm(B - op(A)*X) / ( norm(op(A)) * norm(X) * EPS ). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = ZLANGT( '1', N, DL, D, DU ) @@ -185,7 +182,7 @@ RETURN END IF * -* Compute B - op(A)*X. +* Compute B - op(A)*X and store in B. * CALL ZLAGTM( TRANS, N, NRHS, -ONE, DL, D, DU, X, LDX, ONE, B, $ LDB ) diff --git a/lapack-netlib/TESTING/LIN/zgtt05.f b/lapack-netlib/TESTING/LIN/zgtt05.f index 2dbf5f016..fc8b2f8d6 100644 --- a/lapack-netlib/TESTING/LIN/zgtt05.f +++ b/lapack-netlib/TESTING/LIN/zgtt05.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZGTT05( TRANS, N, NRHS, DL, D, DU, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/zhet01.f b/lapack-netlib/TESTING/LIN/zhet01.f index b8ec93ac9..b53296469 100644 --- a/lapack-netlib/TESTING/LIN/zhet01.f +++ b/lapack-netlib/TESTING/LIN/zhet01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZHET01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zhet01_3.f b/lapack-netlib/TESTING/LIN/zhet01_3.f index ba9955045..0a76404d6 100644 --- a/lapack-netlib/TESTING/LIN/zhet01_3.f +++ b/lapack-netlib/TESTING/LIN/zhet01_3.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZHET01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zhet01_aa.f b/lapack-netlib/TESTING/LIN/zhet01_aa.f index fc9feb86c..de6a7475c 100644 --- a/lapack-netlib/TESTING/LIN/zhet01_aa.f +++ b/lapack-netlib/TESTING/LIN/zhet01_aa.f @@ -116,19 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zhet01_rook.f b/lapack-netlib/TESTING/LIN/zhet01_rook.f index 8474c2577..88ccf4c1f 100644 --- a/lapack-netlib/TESTING/LIN/zhet01_rook.f +++ b/lapack-netlib/TESTING/LIN/zhet01_rook.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZHET01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zhpt01.f b/lapack-netlib/TESTING/LIN/zhpt01.f index dff63463a..5ac14fdcf 100644 --- a/lapack-netlib/TESTING/LIN/zhpt01.f +++ b/lapack-netlib/TESTING/LIN/zhpt01.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZHPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zlahilb.f b/lapack-netlib/TESTING/LIN/zlahilb.f index ba83af825..ffd98b4f8 100644 --- a/lapack-netlib/TESTING/LIN/zlahilb.f +++ b/lapack-netlib/TESTING/LIN/zlahilb.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. INTEGER N, NRHS, LDA, LDX, LDB, INFO diff --git a/lapack-netlib/TESTING/LIN/zlaipd.f b/lapack-netlib/TESTING/LIN/zlaipd.f index 5975ccf14..2e70cdf48 100644 --- a/lapack-netlib/TESTING/LIN/zlaipd.f +++ b/lapack-netlib/TESTING/LIN/zlaipd.f @@ -76,17 +76,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLAIPD( N, A, INDA, VINDA ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INDA, N, VINDA diff --git a/lapack-netlib/TESTING/LIN/zlaptm.f b/lapack-netlib/TESTING/LIN/zlaptm.f index 6d78a6d6c..818284bb0 100644 --- a/lapack-netlib/TESTING/LIN/zlaptm.f +++ b/lapack-netlib/TESTING/LIN/zlaptm.f @@ -121,18 +121,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLAPTM( UPLO, N, NRHS, ALPHA, D, E, X, LDX, BETA, B, $ LDB ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zlarhs.f b/lapack-netlib/TESTING/LIN/zlarhs.f index 9d1452840..f1a18c42f 100644 --- a/lapack-netlib/TESTING/LIN/zlarhs.f +++ b/lapack-netlib/TESTING/LIN/zlarhs.f @@ -30,8 +30,7 @@ *> ZLARHS chooses a set of NRHS random solution vectors and sets *> up the right hand sides for the linear system *> op( A ) * X = B, -*> where op( A ) may be A, A**T (transpose of A), or A**H (conjugate -*> transpose of A). +*> where op(A) = A, A**T, or A**H, depending on TRANS. *> \endverbatim * * Arguments: @@ -85,9 +84,9 @@ *> TRANS is CHARACTER*1 *> Used only if A is nonsymmetric; specifies the operation *> applied to the matrix A. -*> = 'N': B := A * X -*> = 'T': B := A**T * X -*> = 'C': B := A**H * X +*> = 'N': B := A * X (No transpose) +*> = 'T': B := A**T * X (Transpose) +*> = 'C': B := A**H * X (Conjugate transpose) *> \endverbatim *> *> \param[in] M @@ -201,18 +200,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLARHS( PATH, XTYPE, UPLO, TRANS, M, N, KL, KU, NRHS, $ A, LDA, X, LDX, B, LDB, ISEED, INFO ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER TRANS, UPLO, XTYPE diff --git a/lapack-netlib/TESTING/LIN/zlatb4.f b/lapack-netlib/TESTING/LIN/zlatb4.f index 15fab3e1d..a6977f4e9 100644 --- a/lapack-netlib/TESTING/LIN/zlatb4.f +++ b/lapack-netlib/TESTING/LIN/zlatb4.f @@ -113,18 +113,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLATB4( PATH, IMAT, M, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, TYPE diff --git a/lapack-netlib/TESTING/LIN/zlatb5.f b/lapack-netlib/TESTING/LIN/zlatb5.f index 2ccca75a8..446d05995 100644 --- a/lapack-netlib/TESTING/LIN/zlatb5.f +++ b/lapack-netlib/TESTING/LIN/zlatb5.f @@ -106,18 +106,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLATB5( PATH, IMAT, N, TYPE, KL, KU, ANORM, MODE, $ CNDNUM, DIST ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION ANORM, CNDNUM diff --git a/lapack-netlib/TESTING/LIN/zlatsp.f b/lapack-netlib/TESTING/LIN/zlatsp.f index e7e4c1c91..e10506295 100644 --- a/lapack-netlib/TESTING/LIN/zlatsp.f +++ b/lapack-netlib/TESTING/LIN/zlatsp.f @@ -77,17 +77,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLATSP( UPLO, N, X, ISEED ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zlatsy.f b/lapack-netlib/TESTING/LIN/zlatsy.f index 66b2b4fc4..d79c55227 100644 --- a/lapack-netlib/TESTING/LIN/zlatsy.f +++ b/lapack-netlib/TESTING/LIN/zlatsy.f @@ -82,17 +82,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLATSY( UPLO, N, X, LDX, ISEED ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zlattb.f b/lapack-netlib/TESTING/LIN/zlattb.f index 5c8176356..62b4bfa98 100644 --- a/lapack-netlib/TESTING/LIN/zlattb.f +++ b/lapack-netlib/TESTING/LIN/zlattb.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLATTB( IMAT, UPLO, TRANS, DIAG, ISEED, N, KD, AB, $ LDAB, B, WORK, RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/zlattp.f b/lapack-netlib/TESTING/LIN/zlattp.f index ef85a280b..b728852b5 100644 --- a/lapack-netlib/TESTING/LIN/zlattp.f +++ b/lapack-netlib/TESTING/LIN/zlattp.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLATTP( IMAT, UPLO, TRANS, DIAG, ISEED, N, AP, B, WORK, $ RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/zlattr.f b/lapack-netlib/TESTING/LIN/zlattr.f index 360aa816b..0b3857f02 100644 --- a/lapack-netlib/TESTING/LIN/zlattr.f +++ b/lapack-netlib/TESTING/LIN/zlattr.f @@ -130,18 +130,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLATTR( IMAT, UPLO, TRANS, DIAG, ISEED, N, A, LDA, B, $ WORK, RWORK, INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/zlavhe.f b/lapack-netlib/TESTING/LIN/zlavhe.f index bf58d7d74..90806f613 100644 --- a/lapack-netlib/TESTING/LIN/zlavhe.f +++ b/lapack-netlib/TESTING/LIN/zlavhe.f @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLAVHE( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, $ LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/zlavhe_rook.f b/lapack-netlib/TESTING/LIN/zlavhe_rook.f index b8e708f50..7a7e3686c 100644 --- a/lapack-netlib/TESTING/LIN/zlavhe_rook.f +++ b/lapack-netlib/TESTING/LIN/zlavhe_rook.f @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLAVHE_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, $ B, LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/zlavhp.f b/lapack-netlib/TESTING/LIN/zlavhp.f index 08c2b4759..9d0afefd0 100644 --- a/lapack-netlib/TESTING/LIN/zlavhp.f +++ b/lapack-netlib/TESTING/LIN/zlavhp.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLAVHP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/zlavsp.f b/lapack-netlib/TESTING/LIN/zlavsp.f index a248d01d9..eb296cb95 100644 --- a/lapack-netlib/TESTING/LIN/zlavsp.f +++ b/lapack-netlib/TESTING/LIN/zlavsp.f @@ -123,18 +123,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLAVSP( UPLO, TRANS, DIAG, N, NRHS, A, IPIV, B, LDB, $ INFO ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/zlavsy.f b/lapack-netlib/TESTING/LIN/zlavsy.f index 2f8ecd88f..b97148f9f 100644 --- a/lapack-netlib/TESTING/LIN/zlavsy.f +++ b/lapack-netlib/TESTING/LIN/zlavsy.f @@ -145,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLAVSY( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, B, $ LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/zlavsy_rook.f b/lapack-netlib/TESTING/LIN/zlavsy_rook.f index ed62f8f17..942d0f023 100644 --- a/lapack-netlib/TESTING/LIN/zlavsy_rook.f +++ b/lapack-netlib/TESTING/LIN/zlavsy_rook.f @@ -147,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLAVSY_ROOK( UPLO, TRANS, DIAG, N, NRHS, A, LDA, IPIV, $ B, LDB, INFO ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/zlqt01.f b/lapack-netlib/TESTING/LIN/zlqt01.f index 492c71c1f..c2a7f82ce 100644 --- a/lapack-netlib/TESTING/LIN/zlqt01.f +++ b/lapack-netlib/TESTING/LIN/zlqt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLQT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zlqt02.f b/lapack-netlib/TESTING/LIN/zlqt02.f index 9a1f35d68..c55d76ccd 100644 --- a/lapack-netlib/TESTING/LIN/zlqt02.f +++ b/lapack-netlib/TESTING/LIN/zlqt02.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLQT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zlqt03.f b/lapack-netlib/TESTING/LIN/zlqt03.f index bff040e76..0765b3cd6 100644 --- a/lapack-netlib/TESTING/LIN/zlqt03.f +++ b/lapack-netlib/TESTING/LIN/zlqt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZLQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zlqt04.f b/lapack-netlib/TESTING/LIN/zlqt04.f index 550432817..2e7a0e8ee 100644 --- a/lapack-netlib/TESTING/LIN/zlqt04.f +++ b/lapack-netlib/TESTING/LIN/zlqt04.f @@ -66,18 +66,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE ZLQT04(M,N,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER M, N, NB diff --git a/lapack-netlib/TESTING/LIN/zlqt05.f b/lapack-netlib/TESTING/LIN/zlqt05.f index 1b8fd1449..a795a50d1 100644 --- a/lapack-netlib/TESTING/LIN/zlqt05.f +++ b/lapack-netlib/TESTING/LIN/zlqt05.f @@ -73,18 +73,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup double_lin * * ===================================================================== SUBROUTINE ZLQT05(M,N,L,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER LWORK, M, N, L, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/zpbt01.f b/lapack-netlib/TESTING/LIN/zpbt01.f index 25783e807..fb7881ac7 100644 --- a/lapack-netlib/TESTING/LIN/zpbt01.f +++ b/lapack-netlib/TESTING/LIN/zpbt01.f @@ -112,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPBT01( UPLO, N, KD, A, LDA, AFAC, LDAFAC, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zpbt02.f b/lapack-netlib/TESTING/LIN/zpbt02.f index a8c1f383a..e4f832996 100644 --- a/lapack-netlib/TESTING/LIN/zpbt02.f +++ b/lapack-netlib/TESTING/LIN/zpbt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPBT02( UPLO, N, KD, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zpbt05.f b/lapack-netlib/TESTING/LIN/zpbt05.f index 489bdff50..03376e0ce 100644 --- a/lapack-netlib/TESTING/LIN/zpbt05.f +++ b/lapack-netlib/TESTING/LIN/zpbt05.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPBT05( UPLO, N, KD, NRHS, AB, LDAB, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zpot01.f b/lapack-netlib/TESTING/LIN/zpot01.f index 946c49438..d71445cd4 100644 --- a/lapack-netlib/TESTING/LIN/zpot01.f +++ b/lapack-netlib/TESTING/LIN/zpot01.f @@ -67,10 +67,10 @@ *> \param[in,out] AFAC *> \verbatim *> AFAC is COMPLEX*16 array, dimension (LDAFAC,N) -*> On entry, the factor L or U from the L*L' or U'*U +*> On entry, the factor L or U from the L * L**H or U**H * U *> factorization of A. -*> Overwritten with the reconstructed matrix, and then with the -*> difference L*L' - A (or U'*U - A). +*> Overwritten with the reconstructed matrix, and then with +*> the difference L * L**H - A (or U**H * U - A). *> \endverbatim *> *> \param[in] LDAFAC @@ -87,8 +87,8 @@ *> \param[out] RESID *> \verbatim *> RESID is DOUBLE PRECISION -*> If UPLO = 'L', norm(L*L' - A) / ( N * norm(A) * EPS ) -*> If UPLO = 'U', norm(U'*U - A) / ( N * norm(A) * EPS ) +*> If UPLO = 'L', norm(L * L**H - A) / ( N * norm(A) * EPS ) +*> If UPLO = 'U', norm(U**H * U - A) / ( N * norm(A) * EPS ) *> \endverbatim * * Authors: @@ -99,17 +99,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPOT01( UPLO, N, A, LDA, AFAC, LDAFAC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -172,7 +169,7 @@ END IF 10 CONTINUE * -* Compute the product U'*U, overwriting U. +* Compute the product U**H * U, overwriting U. * IF( LSAME( UPLO, 'U' ) ) THEN DO 20 K = N, 1, -1 @@ -189,7 +186,7 @@ * 20 CONTINUE * -* Compute the product L*L', overwriting L. +* Compute the product L * L**H, overwriting L. * ELSE DO 30 K = N, 1, -1 @@ -209,7 +206,7 @@ 30 CONTINUE END IF * -* Compute the difference L*L' - A (or U'*U - A). +* Compute the difference L * L**H - A (or U**H * U - A). * IF( LSAME( UPLO, 'U' ) ) THEN DO 50 J = 1, N diff --git a/lapack-netlib/TESTING/LIN/zpot02.f b/lapack-netlib/TESTING/LIN/zpot02.f index 61cc94db2..17b690400 100644 --- a/lapack-netlib/TESTING/LIN/zpot02.f +++ b/lapack-netlib/TESTING/LIN/zpot02.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPOT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zpot03.f b/lapack-netlib/TESTING/LIN/zpot03.f index 5978d2ea2..f3cbd1141 100644 --- a/lapack-netlib/TESTING/LIN/zpot03.f +++ b/lapack-netlib/TESTING/LIN/zpot03.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPOT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, $ RWORK, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zpot05.f b/lapack-netlib/TESTING/LIN/zpot05.f index 9c29990ea..35239083a 100644 --- a/lapack-netlib/TESTING/LIN/zpot05.f +++ b/lapack-netlib/TESTING/LIN/zpot05.f @@ -157,18 +157,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPOT05( UPLO, N, NRHS, A, LDA, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zpot06.f b/lapack-netlib/TESTING/LIN/zpot06.f index c773cd4c3..c97f43234 100644 --- a/lapack-netlib/TESTING/LIN/zpot06.f +++ b/lapack-netlib/TESTING/LIN/zpot06.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPOT06( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zppt01.f b/lapack-netlib/TESTING/LIN/zppt01.f index 74c6d5116..78ec595af 100644 --- a/lapack-netlib/TESTING/LIN/zppt01.f +++ b/lapack-netlib/TESTING/LIN/zppt01.f @@ -88,17 +88,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPPT01( UPLO, N, A, AFAC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zppt02.f b/lapack-netlib/TESTING/LIN/zppt02.f index 1b8b84159..40b71c969 100644 --- a/lapack-netlib/TESTING/LIN/zppt02.f +++ b/lapack-netlib/TESTING/LIN/zppt02.f @@ -115,18 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zppt03.f b/lapack-netlib/TESTING/LIN/zppt03.f index 94801d8f1..52c2590fa 100644 --- a/lapack-netlib/TESTING/LIN/zppt03.f +++ b/lapack-netlib/TESTING/LIN/zppt03.f @@ -102,18 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPPT03( UPLO, N, A, AINV, WORK, LDWORK, RWORK, RCOND, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zppt05.f b/lapack-netlib/TESTING/LIN/zppt05.f index 5ce08570b..ccde4a237 100644 --- a/lapack-netlib/TESTING/LIN/zppt05.f +++ b/lapack-netlib/TESTING/LIN/zppt05.f @@ -149,18 +149,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPPT05( UPLO, N, NRHS, AP, B, LDB, X, LDX, XACT, $ LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zpst01.f b/lapack-netlib/TESTING/LIN/zpst01.f index 3225b0ec2..691857219 100644 --- a/lapack-netlib/TESTING/LIN/zpst01.f +++ b/lapack-netlib/TESTING/LIN/zpst01.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPST01( UPLO, N, A, LDA, AFAC, LDAFAC, PERM, LDPERM, $ PIV, RWORK, RESID, RANK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION RESID diff --git a/lapack-netlib/TESTING/LIN/zptt01.f b/lapack-netlib/TESTING/LIN/zptt01.f index c9244a6cf..e842c7e46 100644 --- a/lapack-netlib/TESTING/LIN/zptt01.f +++ b/lapack-netlib/TESTING/LIN/zptt01.f @@ -85,17 +85,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPTT01( N, D, E, DF, EF, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER N diff --git a/lapack-netlib/TESTING/LIN/zptt02.f b/lapack-netlib/TESTING/LIN/zptt02.f index 90dec3bc9..6e3a8aed0 100644 --- a/lapack-netlib/TESTING/LIN/zptt02.f +++ b/lapack-netlib/TESTING/LIN/zptt02.f @@ -108,17 +108,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPTT02( UPLO, N, NRHS, D, E, X, LDX, B, LDB, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zptt05.f b/lapack-netlib/TESTING/LIN/zptt05.f index f7f2bd284..82d497e0e 100644 --- a/lapack-netlib/TESTING/LIN/zptt05.f +++ b/lapack-netlib/TESTING/LIN/zptt05.f @@ -142,18 +142,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZPTT05( N, NRHS, D, E, B, LDB, X, LDX, XACT, LDXACT, $ FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDB, LDX, LDXACT, N, NRHS diff --git a/lapack-netlib/TESTING/LIN/zqlt01.f b/lapack-netlib/TESTING/LIN/zqlt01.f index 5442fcae8..d5eef9ff4 100644 --- a/lapack-netlib/TESTING/LIN/zqlt01.f +++ b/lapack-netlib/TESTING/LIN/zqlt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQLT01( M, N, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zqlt02.f b/lapack-netlib/TESTING/LIN/zqlt02.f index 35adae930..1f84cfa5a 100644 --- a/lapack-netlib/TESTING/LIN/zqlt02.f +++ b/lapack-netlib/TESTING/LIN/zqlt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQLT02( M, N, K, A, AF, Q, L, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zqlt03.f b/lapack-netlib/TESTING/LIN/zqlt03.f index 6489fa924..a7d9b27ca 100644 --- a/lapack-netlib/TESTING/LIN/zqlt03.f +++ b/lapack-netlib/TESTING/LIN/zqlt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQLT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zqpt01.f b/lapack-netlib/TESTING/LIN/zqpt01.f index eea178a2e..4e53f92c8 100644 --- a/lapack-netlib/TESTING/LIN/zqpt01.f +++ b/lapack-netlib/TESTING/LIN/zqpt01.f @@ -112,18 +112,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== DOUBLE PRECISION FUNCTION ZQPT01( M, N, K, A, AF, LDA, TAU, JPVT, $ WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zqrt01.f b/lapack-netlib/TESTING/LIN/zqrt01.f index 4c55daf9d..4aa0aa59f 100644 --- a/lapack-netlib/TESTING/LIN/zqrt01.f +++ b/lapack-netlib/TESTING/LIN/zqrt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQRT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zqrt01p.f b/lapack-netlib/TESTING/LIN/zqrt01p.f index 676db6f27..eb991152c 100644 --- a/lapack-netlib/TESTING/LIN/zqrt01p.f +++ b/lapack-netlib/TESTING/LIN/zqrt01p.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQRT01P( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zqrt02.f b/lapack-netlib/TESTING/LIN/zqrt02.f index 9ca1e66cf..2dbefaf84 100644 --- a/lapack-netlib/TESTING/LIN/zqrt02.f +++ b/lapack-netlib/TESTING/LIN/zqrt02.f @@ -127,18 +127,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQRT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zqrt03.f b/lapack-netlib/TESTING/LIN/zqrt03.f index d809399bb..56b2e3b50 100644 --- a/lapack-netlib/TESTING/LIN/zqrt03.f +++ b/lapack-netlib/TESTING/LIN/zqrt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQRT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zqrt04.f b/lapack-netlib/TESTING/LIN/zqrt04.f index 580f86a6f..3ca7199ce 100644 --- a/lapack-netlib/TESTING/LIN/zqrt04.f +++ b/lapack-netlib/TESTING/LIN/zqrt04.f @@ -66,18 +66,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQRT04(M,N,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER M, N, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/zqrt05.f b/lapack-netlib/TESTING/LIN/zqrt05.f index 1985ea506..5677b7e76 100644 --- a/lapack-netlib/TESTING/LIN/zqrt05.f +++ b/lapack-netlib/TESTING/LIN/zqrt05.f @@ -73,18 +73,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQRT05(M,N,L,NB,RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. INTEGER LWORK, M, N, L, NB, LDT diff --git a/lapack-netlib/TESTING/LIN/zqrt11.f b/lapack-netlib/TESTING/LIN/zqrt11.f index c633df2f6..c3be59c36 100644 --- a/lapack-netlib/TESTING/LIN/zqrt11.f +++ b/lapack-netlib/TESTING/LIN/zqrt11.f @@ -91,17 +91,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== DOUBLE PRECISION FUNCTION ZQRT11( M, K, A, LDA, TAU, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M diff --git a/lapack-netlib/TESTING/LIN/zqrt12.f b/lapack-netlib/TESTING/LIN/zqrt12.f index 5428adbf3..0da6be157 100644 --- a/lapack-netlib/TESTING/LIN/zqrt12.f +++ b/lapack-netlib/TESTING/LIN/zqrt12.f @@ -89,18 +89,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== DOUBLE PRECISION FUNCTION ZQRT12( M, N, A, LDA, S, WORK, LWORK, $ RWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zqrt13.f b/lapack-netlib/TESTING/LIN/zqrt13.f index 4e693c14e..341ec1700 100644 --- a/lapack-netlib/TESTING/LIN/zqrt13.f +++ b/lapack-netlib/TESTING/LIN/zqrt13.f @@ -84,17 +84,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQRT13( SCALE, M, N, A, LDA, NORMA, ISEED ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, M, N, SCALE diff --git a/lapack-netlib/TESTING/LIN/zqrt14.f b/lapack-netlib/TESTING/LIN/zqrt14.f index 369efc07d..80c8ac56f 100644 --- a/lapack-netlib/TESTING/LIN/zqrt14.f +++ b/lapack-netlib/TESTING/LIN/zqrt14.f @@ -108,18 +108,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== DOUBLE PRECISION FUNCTION ZQRT14( TRANS, M, N, NRHS, A, LDA, X, $ LDX, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -200,7 +197,6 @@ IF( XNRM.NE.ZERO ) $ CALL ZLASCL( 'G', 0, 0, XNRM, ONE, M, NRHS, $ WORK( N*LDWORK+1 ), LDWORK, INFO ) - ANRM = ZLANGE( 'One-norm', M, N+NRHS, WORK, LDWORK, RWORK ) * * Compute QR factorization of X * diff --git a/lapack-netlib/TESTING/LIN/zqrt15.f b/lapack-netlib/TESTING/LIN/zqrt15.f index 0d17313e8..f58b9e38b 100644 --- a/lapack-netlib/TESTING/LIN/zqrt15.f +++ b/lapack-netlib/TESTING/LIN/zqrt15.f @@ -141,18 +141,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQRT15( SCALE, RKSEL, M, N, NRHS, A, LDA, B, LDB, S, $ RANK, NORMA, NORMB, ISEED, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LWORK, M, N, NRHS, RANK, RKSEL, SCALE diff --git a/lapack-netlib/TESTING/LIN/zqrt16.f b/lapack-netlib/TESTING/LIN/zqrt16.f index e62e9a51d..9becd6d3b 100644 --- a/lapack-netlib/TESTING/LIN/zqrt16.f +++ b/lapack-netlib/TESTING/LIN/zqrt16.f @@ -125,18 +125,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZQRT16( TRANS, M, N, NRHS, A, LDA, X, LDX, B, LDB, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS diff --git a/lapack-netlib/TESTING/LIN/zqrt17.f b/lapack-netlib/TESTING/LIN/zqrt17.f index ff694c7a1..9a0770c62 100644 --- a/lapack-netlib/TESTING/LIN/zqrt17.f +++ b/lapack-netlib/TESTING/LIN/zqrt17.f @@ -28,12 +28,15 @@ *> *> ZQRT17 computes the ratio *> -*> || R'*op(A) ||/(||A||*alpha*max(M,N,NRHS)*eps) +*> norm(R**H * op(A)) / ( norm(A) * alpha * max(M,N,NRHS) * EPS ), *> -*> where R = op(A)*X - B, op(A) is A or A', and +*> where R = B - op(A)*X, op(A) is A or A**H, depending on TRANS, EPS +*> is the machine epsilon, and *> -*> alpha = ||B|| if IRESID = 1 (zero-residual problem) -*> alpha = ||R|| if IRESID = 2 (otherwise). +*> alpha = norm(B) if IRESID = 1 (zero-residual problem) +*> alpha = norm(R) if IRESID = 2 (otherwise). +*> +*> The norm used is the 1-norm. *> \endverbatim * * Arguments: @@ -44,7 +47,7 @@ *> TRANS is CHARACTER*1 *> Specifies whether or not the transpose of A is used. *> = 'N': No transpose, op(A) = A. -*> = 'C': Conjugate transpose, op(A) = A'. +*> = 'C': Conjugate transpose, op(A) = A**H. *> \endverbatim *> *> \param[in] IRESID @@ -142,18 +145,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== DOUBLE PRECISION FUNCTION ZQRT17( TRANS, IRESID, M, N, NRHS, A, $ LDA, X, LDX, B, LDB, C, WORK, LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER TRANS @@ -172,7 +172,7 @@ * .. * .. Local Scalars .. INTEGER INFO, ISCL, NCOLS, NROWS - DOUBLE PRECISION BIGNUM, ERR, NORMA, NORMB, NORMRS, SMLNUM + DOUBLE PRECISION ERR, NORMA, NORMB, NORMRS, SMLNUM * .. * .. Local Arrays .. DOUBLE PRECISION RWORK( 1 ) @@ -213,7 +213,6 @@ * NORMA = ZLANGE( 'One-norm', M, N, A, LDA, RWORK ) SMLNUM = DLAMCH( 'Safe minimum' ) / DLAMCH( 'Precision' ) - BIGNUM = ONE / SMLNUM ISCL = 0 * * compute residual and scale it @@ -229,7 +228,7 @@ $ INFO ) END IF * -* compute R'*A +* compute R**H * op(A) * CALL ZGEMM( 'Conjugate transpose', TRANS, NRHS, NCOLS, NROWS, $ DCMPLX( ONE ), C, LDB, A, LDA, DCMPLX( ZERO ), WORK, diff --git a/lapack-netlib/TESTING/LIN/zrqt01.f b/lapack-netlib/TESTING/LIN/zrqt01.f index 88075ed5e..2f60426f5 100644 --- a/lapack-netlib/TESTING/LIN/zrqt01.f +++ b/lapack-netlib/TESTING/LIN/zrqt01.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZRQT01( M, N, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zrqt02.f b/lapack-netlib/TESTING/LIN/zrqt02.f index ed1b608b2..548321d00 100644 --- a/lapack-netlib/TESTING/LIN/zrqt02.f +++ b/lapack-netlib/TESTING/LIN/zrqt02.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZRQT02( M, N, K, A, AF, Q, R, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zrqt03.f b/lapack-netlib/TESTING/LIN/zrqt03.f index fc7046278..6393224bf 100644 --- a/lapack-netlib/TESTING/LIN/zrqt03.f +++ b/lapack-netlib/TESTING/LIN/zrqt03.f @@ -128,18 +128,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZRQT03( M, N, K, AF, C, CC, Q, LDA, TAU, WORK, LWORK, $ RWORK, RESULT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER K, LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zrzt01.f b/lapack-netlib/TESTING/LIN/zrzt01.f index 876384069..2eba7ba6f 100644 --- a/lapack-netlib/TESTING/LIN/zrzt01.f +++ b/lapack-netlib/TESTING/LIN/zrzt01.f @@ -90,18 +90,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== DOUBLE PRECISION FUNCTION ZRZT01( M, N, A, AF, LDA, TAU, WORK, $ LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zrzt02.f b/lapack-netlib/TESTING/LIN/zrzt02.f index 373ced982..0ea6dab02 100644 --- a/lapack-netlib/TESTING/LIN/zrzt02.f +++ b/lapack-netlib/TESTING/LIN/zrzt02.f @@ -83,18 +83,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== DOUBLE PRECISION FUNCTION ZRZT02( M, N, AF, LDA, TAU, WORK, $ LWORK ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LWORK, M, N diff --git a/lapack-netlib/TESTING/LIN/zsbmv.f b/lapack-netlib/TESTING/LIN/zsbmv.f index 005e288e0..927205262 100644 --- a/lapack-netlib/TESTING/LIN/zsbmv.f +++ b/lapack-netlib/TESTING/LIN/zsbmv.f @@ -144,18 +144,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSBMV( UPLO, N, K, ALPHA, A, LDA, X, INCX, BETA, Y, $ INCY ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zspt01.f b/lapack-netlib/TESTING/LIN/zspt01.f index d212929ad..6269ef790 100644 --- a/lapack-netlib/TESTING/LIN/zspt01.f +++ b/lapack-netlib/TESTING/LIN/zspt01.f @@ -105,17 +105,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSPT01( UPLO, N, A, AFAC, IPIV, C, LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zspt02.f b/lapack-netlib/TESTING/LIN/zspt02.f index 985fda0c5..e34ce22c2 100644 --- a/lapack-netlib/TESTING/LIN/zspt02.f +++ b/lapack-netlib/TESTING/LIN/zspt02.f @@ -115,18 +115,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSPT02( UPLO, N, NRHS, A, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zspt03.f b/lapack-netlib/TESTING/LIN/zspt03.f index d37ce5386..2819b930b 100644 --- a/lapack-netlib/TESTING/LIN/zspt03.f +++ b/lapack-netlib/TESTING/LIN/zspt03.f @@ -102,18 +102,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSPT03( UPLO, N, A, AINV, WORK, LDW, RWORK, RCOND, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zsyt01.f b/lapack-netlib/TESTING/LIN/zsyt01.f index 4ec551180..32b7a698c 100644 --- a/lapack-netlib/TESTING/LIN/zsyt01.f +++ b/lapack-netlib/TESTING/LIN/zsyt01.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSYT01( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, LDC, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zsyt01_3.f b/lapack-netlib/TESTING/LIN/zsyt01_3.f index 8106a61b0..202488db9 100644 --- a/lapack-netlib/TESTING/LIN/zsyt01_3.f +++ b/lapack-netlib/TESTING/LIN/zsyt01_3.f @@ -133,18 +133,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2017 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSYT01_3( UPLO, N, A, LDA, AFAC, LDAFAC, E, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.1) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2017 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zsyt01_aa.f b/lapack-netlib/TESTING/LIN/zsyt01_aa.f index 11d2e2fb5..17969d444 100644 --- a/lapack-netlib/TESTING/LIN/zsyt01_aa.f +++ b/lapack-netlib/TESTING/LIN/zsyt01_aa.f @@ -116,20 +116,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* -* @generated from LIN/dsyt01_aa.f, fortran d -> z, Thu Nov 17 13:01:50 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO @@ -260,6 +255,6 @@ * RETURN * -* End of ZSYT01 +* End of ZSYT01_AA * END diff --git a/lapack-netlib/TESTING/LIN/zsyt01_rook.f b/lapack-netlib/TESTING/LIN/zsyt01_rook.f index 4e7ea24aa..885bebc02 100644 --- a/lapack-netlib/TESTING/LIN/zsyt01_rook.f +++ b/lapack-netlib/TESTING/LIN/zsyt01_rook.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2013 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSYT01_ROOK( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, $ LDC, RWORK, RESID ) * -* -- LAPACK test routine (version 3.5.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2013 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zsyt02.f b/lapack-netlib/TESTING/LIN/zsyt02.f index 6f7d2498f..5792a3ba8 100644 --- a/lapack-netlib/TESTING/LIN/zsyt02.f +++ b/lapack-netlib/TESTING/LIN/zsyt02.f @@ -119,18 +119,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSYT02( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, RWORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/zsyt03.f b/lapack-netlib/TESTING/LIN/zsyt03.f index f63f01645..74efd913f 100644 --- a/lapack-netlib/TESTING/LIN/zsyt03.f +++ b/lapack-netlib/TESTING/LIN/zsyt03.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZSYT03( UPLO, N, A, LDA, AINV, LDAINV, WORK, LDWORK, $ RWORK, RCOND, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO diff --git a/lapack-netlib/TESTING/LIN/ztbt02.f b/lapack-netlib/TESTING/LIN/ztbt02.f index a86923321..20917d9f7 100644 --- a/lapack-netlib/TESTING/LIN/ztbt02.f +++ b/lapack-netlib/TESTING/LIN/ztbt02.f @@ -29,13 +29,11 @@ *> \verbatim *> *> ZTBT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b, A**T *x = b, or -*> A**H *x = b when A is a triangular band matrix. Here A**T denotes -*> the transpose of A, A**H denotes the conjugate transpose of A, and -*> x and b are N by NRHS matrices. The test ratio is the maximum over -*> the number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A, A**T, or A**H, and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, when A is a +*> triangular band matrix. The test ratio is the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A, A**T, or A**H, b is the column of B, x is the +*> solution vector, and EPS is the machine epsilon. *> \endverbatim * * Arguments: @@ -53,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A**T *x = b (Transpose) -*> = 'C': A**H *x = b (Conjugate transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] DIAG @@ -153,18 +151,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTBT02( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, X, $ LDX, B, LDB, WORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -207,7 +202,7 @@ RETURN END IF * -* Compute the 1-norm of A or A'. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = ZLANTB( '1', UPLO, DIAG, N, KD, AB, LDAB, RWORK ) diff --git a/lapack-netlib/TESTING/LIN/ztbt03.f b/lapack-netlib/TESTING/LIN/ztbt03.f index e33bff71c..d00cf8223 100644 --- a/lapack-netlib/TESTING/LIN/ztbt03.f +++ b/lapack-netlib/TESTING/LIN/ztbt03.f @@ -168,8 +168,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== @@ -177,10 +175,9 @@ $ SCALE, CNORM, TSCAL, X, LDX, B, LDB, WORK, $ RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztbt05.f b/lapack-netlib/TESTING/LIN/ztbt05.f index 1adeafdd4..10863ff1c 100644 --- a/lapack-netlib/TESTING/LIN/ztbt05.f +++ b/lapack-netlib/TESTING/LIN/ztbt05.f @@ -181,18 +181,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTBT05( UPLO, TRANS, DIAG, N, KD, NRHS, AB, LDAB, B, $ LDB, X, LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztbt06.f b/lapack-netlib/TESTING/LIN/ztbt06.f index 8c59151f9..b033a5db3 100644 --- a/lapack-netlib/TESTING/LIN/ztbt06.f +++ b/lapack-netlib/TESTING/LIN/ztbt06.f @@ -118,18 +118,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTBT06( RCOND, RCONDC, UPLO, DIAG, N, KD, AB, LDAB, $ RWORK, RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztpt01.f b/lapack-netlib/TESTING/LIN/ztpt01.f index 39a3922bb..3da15f7f3 100644 --- a/lapack-netlib/TESTING/LIN/ztpt01.f +++ b/lapack-netlib/TESTING/LIN/ztpt01.f @@ -102,17 +102,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTPT01( UPLO, DIAG, N, AP, AINVP, RCOND, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztpt02.f b/lapack-netlib/TESTING/LIN/ztpt02.f index 31dec7977..d6b9dabaf 100644 --- a/lapack-netlib/TESTING/LIN/ztpt02.f +++ b/lapack-netlib/TESTING/LIN/ztpt02.f @@ -28,14 +28,12 @@ *> \verbatim *> *> ZTPT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b, A**T *x = b, or -*> A**H *x = b, when the triangular matrix A is stored in packed format. -*> Here A**T denotes the transpose of A, A**H denotes the conjugate -*> transpose of A, and x and b are N by NRHS matrices. The test ratio -*> is the maximum over the number of right hand sides of -*> the maximum over the number of right hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A, A**T, or A**H, and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, when the +*> triangular matrix A is stored in packed format. The test ratio is +*> the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A, A**T, or A**H, b is the column of B, x is the +*> solution vector, and EPS is the machine epsilon. *> \endverbatim * * Arguments: @@ -53,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A**T *x = b (Transpose) -*> = 'C': A**H *x = b (Conjugate transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] DIAG @@ -130,7 +128,7 @@ *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -141,18 +139,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTPT02( UPLO, TRANS, DIAG, N, NRHS, AP, X, LDX, B, LDB, $ WORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -194,7 +189,7 @@ RETURN END IF * -* Compute the 1-norm of A or A**H. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = ZLANTP( '1', UPLO, DIAG, N, AP, RWORK ) @@ -211,7 +206,7 @@ END IF * * Compute the maximum over the number of right hand sides of -* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/ztpt03.f b/lapack-netlib/TESTING/LIN/ztpt03.f index fb8c814e1..802e1a611 100644 --- a/lapack-netlib/TESTING/LIN/ztpt03.f +++ b/lapack-netlib/TESTING/LIN/ztpt03.f @@ -154,18 +154,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTPT03( UPLO, TRANS, DIAG, N, NRHS, AP, SCALE, CNORM, $ TSCAL, X, LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztpt05.f b/lapack-netlib/TESTING/LIN/ztpt05.f index aa2348ae6..2ca7c3874 100644 --- a/lapack-netlib/TESTING/LIN/ztpt05.f +++ b/lapack-netlib/TESTING/LIN/ztpt05.f @@ -167,18 +167,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTPT05( UPLO, TRANS, DIAG, N, NRHS, AP, B, LDB, X, LDX, $ XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztpt06.f b/lapack-netlib/TESTING/LIN/ztpt06.f index 30edfca71..5ab661626 100644 --- a/lapack-netlib/TESTING/LIN/ztpt06.f +++ b/lapack-netlib/TESTING/LIN/ztpt06.f @@ -105,17 +105,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTPT06( RCOND, RCONDC, UPLO, DIAG, N, AP, RWORK, RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztrt01.f b/lapack-netlib/TESTING/LIN/ztrt01.f index 99aa9db49..ddb212b02 100644 --- a/lapack-netlib/TESTING/LIN/ztrt01.f +++ b/lapack-netlib/TESTING/LIN/ztrt01.f @@ -117,18 +117,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTRT01( UPLO, DIAG, N, A, LDA, AINV, LDAINV, RCOND, $ RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztrt02.f b/lapack-netlib/TESTING/LIN/ztrt02.f index 63e12c55a..69f04c9db 100644 --- a/lapack-netlib/TESTING/LIN/ztrt02.f +++ b/lapack-netlib/TESTING/LIN/ztrt02.f @@ -29,13 +29,11 @@ *> \verbatim *> *> ZTRT02 computes the residual for the computed solution to a -*> triangular system of linear equations A*x = b, A**T *x = b, -*> or A**H *x = b. Here A is a triangular matrix, A**T is the transpose -*> of A, A**H is the conjugate transpose of A, and x and b are N by NRHS -*> matrices. The test ratio is the maximum over the number of right -*> hand sides of -*> norm(b - op(A)*x) / ( norm(op(A)) * norm(x) * EPS ), -*> where op(A) denotes A, A**T, or A**H, and EPS is the machine epsilon. +*> triangular system of linear equations op(A)*X = B, where A is a +*> triangular matrix. The test ratio is the maximum over +*> norm(b - op(A)*x) / ( ||op(A)||_1 * norm(x) * EPS ), +*> where op(A) = A, A**T, or A**H, b is the column of B, x is the +*> solution vector, and EPS is the machine epsilon. *> \endverbatim * * Arguments: @@ -53,9 +51,9 @@ *> \verbatim *> TRANS is CHARACTER*1 *> Specifies the operation applied to A. -*> = 'N': A *x = b (No transpose) -*> = 'T': A**T *x = b (Transpose) -*> = 'C': A**H *x = b (Conjugate transpose) +*> = 'N': A * X = B (No transpose) +*> = 'T': A**T * X = B (Transpose) +*> = 'C': A**H * X = B (Conjugate transpose) *> \endverbatim *> *> \param[in] DIAG @@ -138,7 +136,7 @@ *> \verbatim *> RESID is DOUBLE PRECISION *> The maximum over the number of right hand sides of -*> norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ). +*> norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ). *> \endverbatim * * Authors: @@ -149,18 +147,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTRT02( UPLO, TRANS, DIAG, N, NRHS, A, LDA, X, LDX, B, $ LDB, WORK, RWORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO @@ -203,7 +198,7 @@ RETURN END IF * -* Compute the 1-norm of A or A**H. +* Compute the 1-norm of op(A). * IF( LSAME( TRANS, 'N' ) ) THEN ANORM = ZLANTR( '1', UPLO, DIAG, N, N, A, LDA, RWORK ) @@ -220,7 +215,7 @@ END IF * * Compute the maximum over the number of right hand sides of -* norm(op(A)*x - b) / ( norm(op(A)) * norm(x) * EPS ) +* norm(op(A)*X - B) / ( norm(op(A)) * norm(X) * EPS ) * RESID = ZERO DO 10 J = 1, NRHS diff --git a/lapack-netlib/TESTING/LIN/ztrt03.f b/lapack-netlib/TESTING/LIN/ztrt03.f index 84aaf65ea..a37887f7e 100644 --- a/lapack-netlib/TESTING/LIN/ztrt03.f +++ b/lapack-netlib/TESTING/LIN/ztrt03.f @@ -163,18 +163,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTRT03( UPLO, TRANS, DIAG, N, NRHS, A, LDA, SCALE, $ CNORM, TSCAL, X, LDX, B, LDB, WORK, RESID ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztrt05.f b/lapack-netlib/TESTING/LIN/ztrt05.f index f31d614dc..63ba27b9a 100644 --- a/lapack-netlib/TESTING/LIN/ztrt05.f +++ b/lapack-netlib/TESTING/LIN/ztrt05.f @@ -174,18 +174,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTRT05( UPLO, TRANS, DIAG, N, NRHS, A, LDA, B, LDB, X, $ LDX, XACT, LDXACT, FERR, BERR, RESLTS ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, TRANS, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztrt06.f b/lapack-netlib/TESTING/LIN/ztrt06.f index 2f5f5996b..ed55905da 100644 --- a/lapack-netlib/TESTING/LIN/ztrt06.f +++ b/lapack-netlib/TESTING/LIN/ztrt06.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_lin * * ===================================================================== SUBROUTINE ZTRT06( RCOND, RCONDC, UPLO, DIAG, N, A, LDA, RWORK, $ RAT ) * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIAG, UPLO diff --git a/lapack-netlib/TESTING/LIN/ztsqr01.f b/lapack-netlib/TESTING/LIN/ztsqr01.f index 81d7fdb44..629da2996 100644 --- a/lapack-netlib/TESTING/LIN/ztsqr01.f +++ b/lapack-netlib/TESTING/LIN/ztsqr01.f @@ -77,16 +77,13 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 -* * ===================================================================== SUBROUTINE ZTSQR01(TSSW, M, N, MB, NB, RESULT) IMPLICIT NONE * -* -- LAPACK test routine (version 3.7.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* April 2012 * * .. Scalar Arguments .. CHARACTER TSSW diff --git a/lapack-netlib/TESTING/MATGEN/Makefile b/lapack-netlib/TESTING/MATGEN/Makefile index 351757d28..e25082ba5 100644 --- a/lapack-netlib/TESTING/MATGEN/Makefile +++ b/lapack-netlib/TESTING/MATGEN/Makefile @@ -40,40 +40,27 @@ ifneq ($(C_LAPACK), 1) $(FC) $(FFLAGS) -c -o $@ $< endif -ifneq "$(or $(BUILD_SINGLE),$(BUILD_COMPLEX))" "" SCATGEN = slatm1.o slatm7.o slaran.o slarnd.o -endif -ifeq ($(BUILD_SINGLE),1) SMATGEN = slatms.o slatme.o slatmr.o slatmt.o \ slagge.o slagsy.o slakf2.o slarge.o slaror.o slarot.o slatm2.o \ slatm3.o slatm5.o slatm6.o slahilb.o -endif -ifeq ($(BUILD_COMPLEX),1) CMATGEN = clatms.o clatme.o clatmr.o clatmt.o \ clagge.o claghe.o clagsy.o clakf2.o clarge.o claror.o clarot.o \ clatm1.o clarnd.o clatm2.o clatm3.o clatm5.o clatm6.o clahilb.o -endif -ifneq "$(or $(BUILD_DOUBLE),$(BUILD_COMPLEX16))" "" DZATGEN = dlatm1.o dlatm7.o dlaran.o dlarnd.o -endif -ifeq ($(BUILD_DOUBLE),1) DMATGEN = dlatms.o dlatme.o dlatmr.o dlatmt.o \ dlagge.o dlagsy.o dlakf2.o dlarge.o dlaror.o dlarot.o dlatm2.o \ dlatm3.o dlatm5.o dlatm6.o dlahilb.o -endif -ifeq ($(BUILD_COMPLEX16),1) ZMATGEN = zlatms.o zlatme.o zlatmr.o zlatmt.o \ zlagge.o zlaghe.o zlagsy.o zlakf2.o zlarge.o zlaror.o zlarot.o \ zlatm1.o zlarnd.o zlatm2.o zlatm3.o zlatm5.o zlatm6.o zlahilb.o -endif .PHONY: all -.NOTPARALLEL: all: $(TMGLIB) ALLOBJ = $(SMATGEN) $(CMATGEN) $(SCATGEN) $(DMATGEN) $(ZMATGEN) \ @@ -100,6 +87,7 @@ complex16: $(ZMATGEN) $(DZATGEN) $(AR) $(ARFLAGS) $(TMGLIB) $^ $(RANLIB) $(TMGLIB) +ifdef FRC $(SCATGEN): $(FRC) $(SMATGEN): $(FRC) $(CMATGEN): $(FRC) @@ -109,6 +97,7 @@ $(ZMATGEN): $(FRC) FRC: @FRC=$(FRC) +endif .PHONY: clean cleanobj cleanlib clean: cleanobj cleanlib @@ -117,9 +106,5 @@ cleanobj: cleanlib: rm -f $(TMGLIB) -ifeq ($(filter $(BUILD_SINGLE) $(BUILD_COMPLEX),1),) slaran.o: slaran.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< -endif -ifeq ($(filter $(BUILD_DOUBLE) $(BUILD_COMPLEX16),1),) dlaran.o: dlaran.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< -endif diff --git a/lapack-netlib/TESTING/MATGEN/clagge.f b/lapack-netlib/TESTING/MATGEN/clagge.f index f0d86fb50..4575608f6 100644 --- a/lapack-netlib/TESTING/MATGEN/clagge.f +++ b/lapack-netlib/TESTING/MATGEN/clagge.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDA, M, N diff --git a/lapack-netlib/TESTING/MATGEN/claghe.f b/lapack-netlib/TESTING/MATGEN/claghe.f index 70a162024..723e0f2d1 100644 --- a/lapack-netlib/TESTING/MATGEN/claghe.f +++ b/lapack-netlib/TESTING/MATGEN/claghe.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLAGHE( N, K, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/clagsy.f b/lapack-netlib/TESTING/MATGEN/clagsy.f index 8c3885464..b01d15565 100644 --- a/lapack-netlib/TESTING/MATGEN/clagsy.f +++ b/lapack-netlib/TESTING/MATGEN/clagsy.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/clahilb.f b/lapack-netlib/TESTING/MATGEN/clahilb.f index 6c51bdb0c..f33a05594 100644 --- a/lapack-netlib/TESTING/MATGEN/clahilb.f +++ b/lapack-netlib/TESTING/MATGEN/clahilb.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER N, NRHS, LDA, LDX, LDB, INFO diff --git a/lapack-netlib/TESTING/MATGEN/clakf2.f b/lapack-netlib/TESTING/MATGEN/clakf2.f index 9c87e4ccd..5f03cc181 100644 --- a/lapack-netlib/TESTING/MATGEN/clakf2.f +++ b/lapack-netlib/TESTING/MATGEN/clakf2.f @@ -98,17 +98,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDZ, M, N diff --git a/lapack-netlib/TESTING/MATGEN/clarge.f b/lapack-netlib/TESTING/MATGEN/clarge.f index 4c1d47137..77086a481 100644 --- a/lapack-netlib/TESTING/MATGEN/clarge.f +++ b/lapack-netlib/TESTING/MATGEN/clarge.f @@ -80,17 +80,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLARGE( N, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/clarnd.f b/lapack-netlib/TESTING/MATGEN/clarnd.f index 2236a2c7c..df08d6796 100644 --- a/lapack-netlib/TESTING/MATGEN/clarnd.f +++ b/lapack-netlib/TESTING/MATGEN/clarnd.f @@ -58,8 +58,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * *> \par Further Details: @@ -75,10 +73,9 @@ * ===================================================================== COMPLEX FUNCTION CLARND( IDIST, ISEED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST @@ -93,7 +90,7 @@ REAL ZERO, ONE, TWO PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0, TWO = 2.0E+0 ) REAL TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) * .. * .. Local Scalars .. REAL T1, T2 diff --git a/lapack-netlib/TESTING/MATGEN/claror.f b/lapack-netlib/TESTING/MATGEN/claror.f index 6870c321a..de5331e1f 100644 --- a/lapack-netlib/TESTING/MATGEN/claror.f +++ b/lapack-netlib/TESTING/MATGEN/claror.f @@ -151,17 +151,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER INIT, SIDE diff --git a/lapack-netlib/TESTING/MATGEN/clarot.f b/lapack-netlib/TESTING/MATGEN/clarot.f index b899c8274..901c0ee8a 100644 --- a/lapack-netlib/TESTING/MATGEN/clarot.f +++ b/lapack-netlib/TESTING/MATGEN/clarot.f @@ -221,18 +221,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, $ XRIGHT ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LLEFT, LRIGHT, LROWS diff --git a/lapack-netlib/TESTING/MATGEN/clatm1.f b/lapack-netlib/TESTING/MATGEN/clatm1.f index 48d49897b..05a90fdce 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm1.f +++ b/lapack-netlib/TESTING/MATGEN/clatm1.f @@ -130,17 +130,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, INFO, IRSIGN, MODE, N diff --git a/lapack-netlib/TESTING/MATGEN/clatm2.f b/lapack-netlib/TESTING/MATGEN/clatm2.f index 5bd6b9dc8..cd2dc7ae4 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm2.f +++ b/lapack-netlib/TESTING/MATGEN/clatm2.f @@ -204,18 +204,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_matgen * * ===================================================================== COMPLEX FUNCTION CLATM2( M, N, I, J, KL, KU, IDIST, ISEED, D, $ IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. * diff --git a/lapack-netlib/TESTING/MATGEN/clatm3.f b/lapack-netlib/TESTING/MATGEN/clatm3.f index 42b453553..863325b3f 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm3.f +++ b/lapack-netlib/TESTING/MATGEN/clatm3.f @@ -220,8 +220,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_matgen * * ===================================================================== @@ -229,10 +227,9 @@ $ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, $ SPARSE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. * diff --git a/lapack-netlib/TESTING/MATGEN/clatm5.f b/lapack-netlib/TESTING/MATGEN/clatm5.f index 8b3fe50d9..25904e45f 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm5.f +++ b/lapack-netlib/TESTING/MATGEN/clatm5.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex_matgen * *> \par Further Details: @@ -268,10 +266,9 @@ $ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, $ QBLCKB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, diff --git a/lapack-netlib/TESTING/MATGEN/clatm6.f b/lapack-netlib/TESTING/MATGEN/clatm6.f index 74684dbcf..632e896d8 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm6.f +++ b/lapack-netlib/TESTING/MATGEN/clatm6.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, $ BETA, WX, WY, S, DIF ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, N, TYPE diff --git a/lapack-netlib/TESTING/MATGEN/clatme.f b/lapack-netlib/TESTING/MATGEN/clatme.f index a06f9bfbd..213a4b3bc 100644 --- a/lapack-netlib/TESTING/MATGEN/clatme.f +++ b/lapack-netlib/TESTING/MATGEN/clatme.f @@ -290,8 +290,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== @@ -301,10 +299,9 @@ $ A, $ LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, RSIGN, SIM, UPPER diff --git a/lapack-netlib/TESTING/MATGEN/clatmr.f b/lapack-netlib/TESTING/MATGEN/clatmr.f index e80c4a514..34536d9b9 100644 --- a/lapack-netlib/TESTING/MATGEN/clatmr.f +++ b/lapack-netlib/TESTING/MATGEN/clatmr.f @@ -480,8 +480,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== @@ -490,10 +488,9 @@ $ CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, $ PACK, A, LDA, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM diff --git a/lapack-netlib/TESTING/MATGEN/clatms.f b/lapack-netlib/TESTING/MATGEN/clatms.f index 9516f227f..a1951216b 100644 --- a/lapack-netlib/TESTING/MATGEN/clatms.f +++ b/lapack-netlib/TESTING/MATGEN/clatms.f @@ -324,18 +324,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, PACK, SYM @@ -358,7 +355,7 @@ COMPLEX CZERO PARAMETER ( CZERO = ( 0.0E+0, 0.0E+0 ) ) REAL TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) * .. * .. Local Scalars .. LOGICAL CSYM, GIVENS, ILEXTR, ILTEMP, TOPDWN diff --git a/lapack-netlib/TESTING/MATGEN/clatmt.f b/lapack-netlib/TESTING/MATGEN/clatmt.f index bdad1b7ba..05eb5566a 100644 --- a/lapack-netlib/TESTING/MATGEN/clatmt.f +++ b/lapack-netlib/TESTING/MATGEN/clatmt.f @@ -332,18 +332,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex_matgen * * ===================================================================== SUBROUTINE CLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ RANK, KL, KU, PACK, A, LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL COND, DMAX @@ -366,7 +363,7 @@ COMPLEX CZERO PARAMETER ( CZERO = ( 0.0E+0, 0.0E+0 ) ) REAL TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) * .. * .. Local Scalars .. COMPLEX C, CT, CTEMP, DUMMY, EXTRA, S, ST diff --git a/lapack-netlib/TESTING/MATGEN/dlagge.f b/lapack-netlib/TESTING/MATGEN/dlagge.f index 44b1c25b4..ffd11d278 100644 --- a/lapack-netlib/TESTING/MATGEN/dlagge.f +++ b/lapack-netlib/TESTING/MATGEN/dlagge.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDA, M, N diff --git a/lapack-netlib/TESTING/MATGEN/dlagsy.f b/lapack-netlib/TESTING/MATGEN/dlagsy.f index 1c811e994..7ba58ee4f 100644 --- a/lapack-netlib/TESTING/MATGEN/dlagsy.f +++ b/lapack-netlib/TESTING/MATGEN/dlagsy.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/dlahilb.f b/lapack-netlib/TESTING/MATGEN/dlahilb.f index 5d0351f46..cf0712b51 100644 --- a/lapack-netlib/TESTING/MATGEN/dlahilb.f +++ b/lapack-netlib/TESTING/MATGEN/dlahilb.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER N, NRHS, LDA, LDX, LDB, INFO diff --git a/lapack-netlib/TESTING/MATGEN/dlakf2.f b/lapack-netlib/TESTING/MATGEN/dlakf2.f index d50b8ac9a..76baefdcd 100644 --- a/lapack-netlib/TESTING/MATGEN/dlakf2.f +++ b/lapack-netlib/TESTING/MATGEN/dlakf2.f @@ -98,17 +98,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDZ, M, N diff --git a/lapack-netlib/TESTING/MATGEN/dlaran.f b/lapack-netlib/TESTING/MATGEN/dlaran.f index 16c9bf1d0..24f6e9727 100644 --- a/lapack-netlib/TESTING/MATGEN/dlaran.f +++ b/lapack-netlib/TESTING/MATGEN/dlaran.f @@ -44,8 +44,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup list_temp * *> \par Further Details: @@ -67,10 +65,9 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DLARAN( ISEED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Array Arguments .. INTEGER ISEED( 4 ) diff --git a/lapack-netlib/TESTING/MATGEN/dlarge.f b/lapack-netlib/TESTING/MATGEN/dlarge.f index fc8bcc4be..4f1c09477 100644 --- a/lapack-netlib/TESTING/MATGEN/dlarge.f +++ b/lapack-netlib/TESTING/MATGEN/dlarge.f @@ -80,17 +80,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLARGE( N, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/dlarnd.f b/lapack-netlib/TESTING/MATGEN/dlarnd.f index cd7415cb7..f41f2ceab 100644 --- a/lapack-netlib/TESTING/MATGEN/dlarnd.f +++ b/lapack-netlib/TESTING/MATGEN/dlarnd.f @@ -56,8 +56,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * *> \par Further Details: @@ -73,10 +71,9 @@ * ===================================================================== DOUBLE PRECISION FUNCTION DLARND( IDIST, ISEED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST @@ -91,7 +88,7 @@ DOUBLE PRECISION ONE, TWO PARAMETER ( ONE = 1.0D+0, TWO = 2.0D+0 ) DOUBLE PRECISION TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) * .. * .. Local Scalars .. DOUBLE PRECISION T1, T2 diff --git a/lapack-netlib/TESTING/MATGEN/dlaror.f b/lapack-netlib/TESTING/MATGEN/dlaror.f index a48129d25..183aa00d0 100644 --- a/lapack-netlib/TESTING/MATGEN/dlaror.f +++ b/lapack-netlib/TESTING/MATGEN/dlaror.f @@ -139,17 +139,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER INIT, SIDE diff --git a/lapack-netlib/TESTING/MATGEN/dlarot.f b/lapack-netlib/TESTING/MATGEN/dlarot.f index 6655fa481..7337dc682 100644 --- a/lapack-netlib/TESTING/MATGEN/dlarot.f +++ b/lapack-netlib/TESTING/MATGEN/dlarot.f @@ -218,18 +218,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, $ XRIGHT ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LLEFT, LRIGHT, LROWS diff --git a/lapack-netlib/TESTING/MATGEN/dlatm1.f b/lapack-netlib/TESTING/MATGEN/dlatm1.f index cfb144b10..b0d8ffa3e 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm1.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm1.f @@ -128,17 +128,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, INFO, IRSIGN, MODE, N diff --git a/lapack-netlib/TESTING/MATGEN/dlatm2.f b/lapack-netlib/TESTING/MATGEN/dlatm2.f index d7a6d19f3..5a55addc3 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm2.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm2.f @@ -200,18 +200,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_matgen * * ===================================================================== DOUBLE PRECISION FUNCTION DLATM2( M, N, I, J, KL, KU, IDIST, $ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. * diff --git a/lapack-netlib/TESTING/MATGEN/dlatm3.f b/lapack-netlib/TESTING/MATGEN/dlatm3.f index 15f5ac080..f5a4a66b3 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm3.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm3.f @@ -217,8 +217,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_matgen * * ===================================================================== @@ -226,10 +224,9 @@ $ IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, $ SPARSE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. * diff --git a/lapack-netlib/TESTING/MATGEN/dlatm5.f b/lapack-netlib/TESTING/MATGEN/dlatm5.f index 37076efc8..429315b0d 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm5.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm5.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup double_matgen * *> \par Further Details: @@ -268,10 +266,9 @@ $ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, $ QBLCKB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, diff --git a/lapack-netlib/TESTING/MATGEN/dlatm6.f b/lapack-netlib/TESTING/MATGEN/dlatm6.f index 462cce0b7..01941609c 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm6.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm6.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, $ BETA, WX, WY, S, DIF ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, N, TYPE diff --git a/lapack-netlib/TESTING/MATGEN/dlatm7.f b/lapack-netlib/TESTING/MATGEN/dlatm7.f index 70c2f98ba..38c993dad 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm7.f +++ b/lapack-netlib/TESTING/MATGEN/dlatm7.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLATM7( MODE, COND, IRSIGN, IDIST, ISEED, D, N, $ RANK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION COND diff --git a/lapack-netlib/TESTING/MATGEN/dlatme.f b/lapack-netlib/TESTING/MATGEN/dlatme.f index 2d124ef1f..311f16e2d 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatme.f +++ b/lapack-netlib/TESTING/MATGEN/dlatme.f @@ -321,8 +321,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== @@ -332,10 +330,9 @@ $ A, $ LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, RSIGN, SIM, UPPER diff --git a/lapack-netlib/TESTING/MATGEN/dlatmr.f b/lapack-netlib/TESTING/MATGEN/dlatmr.f index a914481f7..efb016b91 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatmr.f +++ b/lapack-netlib/TESTING/MATGEN/dlatmr.f @@ -461,8 +461,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== @@ -471,10 +469,9 @@ $ CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, $ PACK, A, LDA, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM diff --git a/lapack-netlib/TESTING/MATGEN/dlatms.f b/lapack-netlib/TESTING/MATGEN/dlatms.f index 11b9c0389..e6b9fbece 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatms.f +++ b/lapack-netlib/TESTING/MATGEN/dlatms.f @@ -313,18 +313,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, PACK, SYM @@ -344,7 +341,7 @@ DOUBLE PRECISION ONE PARAMETER ( ONE = 1.0D0 ) DOUBLE PRECISION TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) * .. * .. Local Scalars .. LOGICAL GIVENS, ILEXTR, ILTEMP, TOPDWN diff --git a/lapack-netlib/TESTING/MATGEN/dlatmt.f b/lapack-netlib/TESTING/MATGEN/dlatmt.f index a5cf54e47..bdd167f2d 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatmt.f +++ b/lapack-netlib/TESTING/MATGEN/dlatmt.f @@ -323,18 +323,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup double_matgen * * ===================================================================== SUBROUTINE DLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ RANK, KL, KU, PACK, A, LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION COND, DMAX @@ -354,7 +351,7 @@ DOUBLE PRECISION ONE PARAMETER ( ONE = 1.0D0 ) DOUBLE PRECISION TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) * .. * .. Local Scalars .. DOUBLE PRECISION ALPHA, ANGLE, C, DUMMY, EXTRA, S, TEMP diff --git a/lapack-netlib/TESTING/MATGEN/slagge.f b/lapack-netlib/TESTING/MATGEN/slagge.f index 626039aa0..9627d563d 100644 --- a/lapack-netlib/TESTING/MATGEN/slagge.f +++ b/lapack-netlib/TESTING/MATGEN/slagge.f @@ -106,17 +106,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDA, M, N diff --git a/lapack-netlib/TESTING/MATGEN/slagsy.f b/lapack-netlib/TESTING/MATGEN/slagsy.f index 5fa7484c4..dd319dadc 100644 --- a/lapack-netlib/TESTING/MATGEN/slagsy.f +++ b/lapack-netlib/TESTING/MATGEN/slagsy.f @@ -94,17 +94,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/slahilb.f b/lapack-netlib/TESTING/MATGEN/slahilb.f index cb92db6db..4dc833346 100644 --- a/lapack-netlib/TESTING/MATGEN/slahilb.f +++ b/lapack-netlib/TESTING/MATGEN/slahilb.f @@ -117,17 +117,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, INFO) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER N, NRHS, LDA, LDX, LDB, INFO diff --git a/lapack-netlib/TESTING/MATGEN/slakf2.f b/lapack-netlib/TESTING/MATGEN/slakf2.f index d84d4d6c5..ef9f90adf 100644 --- a/lapack-netlib/TESTING/MATGEN/slakf2.f +++ b/lapack-netlib/TESTING/MATGEN/slakf2.f @@ -98,17 +98,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDZ, M, N diff --git a/lapack-netlib/TESTING/MATGEN/slaran.f b/lapack-netlib/TESTING/MATGEN/slaran.f index b0d18fccd..586612d9f 100644 --- a/lapack-netlib/TESTING/MATGEN/slaran.f +++ b/lapack-netlib/TESTING/MATGEN/slaran.f @@ -44,8 +44,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * *> \par Further Details: @@ -67,10 +65,9 @@ * ===================================================================== REAL FUNCTION SLARAN( ISEED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Array Arguments .. INTEGER ISEED( 4 ) diff --git a/lapack-netlib/TESTING/MATGEN/slarge.f b/lapack-netlib/TESTING/MATGEN/slarge.f index 392948996..8bebf48d5 100644 --- a/lapack-netlib/TESTING/MATGEN/slarge.f +++ b/lapack-netlib/TESTING/MATGEN/slarge.f @@ -80,17 +80,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLARGE( N, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/slarnd.f b/lapack-netlib/TESTING/MATGEN/slarnd.f index 15ae25368..c2d7a5cb2 100644 --- a/lapack-netlib/TESTING/MATGEN/slarnd.f +++ b/lapack-netlib/TESTING/MATGEN/slarnd.f @@ -56,8 +56,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * *> \par Further Details: @@ -73,10 +71,9 @@ * ===================================================================== REAL FUNCTION SLARND( IDIST, ISEED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST @@ -91,7 +88,7 @@ REAL ONE, TWO PARAMETER ( ONE = 1.0E+0, TWO = 2.0E+0 ) REAL TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) * .. * .. Local Scalars .. REAL T1, T2 diff --git a/lapack-netlib/TESTING/MATGEN/slaror.f b/lapack-netlib/TESTING/MATGEN/slaror.f index d58902110..0fc0a7272 100644 --- a/lapack-netlib/TESTING/MATGEN/slaror.f +++ b/lapack-netlib/TESTING/MATGEN/slaror.f @@ -139,17 +139,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER INIT, SIDE diff --git a/lapack-netlib/TESTING/MATGEN/slarot.f b/lapack-netlib/TESTING/MATGEN/slarot.f index ed478cb21..ab4c22ad7 100644 --- a/lapack-netlib/TESTING/MATGEN/slarot.f +++ b/lapack-netlib/TESTING/MATGEN/slarot.f @@ -218,18 +218,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, $ XRIGHT ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LLEFT, LRIGHT, LROWS diff --git a/lapack-netlib/TESTING/MATGEN/slatm1.f b/lapack-netlib/TESTING/MATGEN/slatm1.f index 8f9e16431..bd01cb620 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm1.f +++ b/lapack-netlib/TESTING/MATGEN/slatm1.f @@ -128,17 +128,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, INFO, IRSIGN, MODE, N diff --git a/lapack-netlib/TESTING/MATGEN/slatm2.f b/lapack-netlib/TESTING/MATGEN/slatm2.f index 2473f1f44..b259c333e 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm2.f +++ b/lapack-netlib/TESTING/MATGEN/slatm2.f @@ -200,18 +200,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup real_matgen * * ===================================================================== REAL FUNCTION SLATM2( M, N, I, J, KL, KU, IDIST, $ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. * diff --git a/lapack-netlib/TESTING/MATGEN/slatm3.f b/lapack-netlib/TESTING/MATGEN/slatm3.f index 18c2c07d5..f4e833734 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm3.f +++ b/lapack-netlib/TESTING/MATGEN/slatm3.f @@ -217,8 +217,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup real_matgen * * ===================================================================== @@ -226,10 +224,9 @@ $ IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, $ SPARSE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. * diff --git a/lapack-netlib/TESTING/MATGEN/slatm5.f b/lapack-netlib/TESTING/MATGEN/slatm5.f index 010413498..37a629225 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm5.f +++ b/lapack-netlib/TESTING/MATGEN/slatm5.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup real_matgen * *> \par Further Details: @@ -268,10 +266,9 @@ $ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, $ QBLCKB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, diff --git a/lapack-netlib/TESTING/MATGEN/slatm6.f b/lapack-netlib/TESTING/MATGEN/slatm6.f index 57f660190..b0d27f7dc 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm6.f +++ b/lapack-netlib/TESTING/MATGEN/slatm6.f @@ -168,18 +168,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, $ BETA, WX, WY, S, DIF ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, N, TYPE diff --git a/lapack-netlib/TESTING/MATGEN/slatm7.f b/lapack-netlib/TESTING/MATGEN/slatm7.f index 098d1c2b7..9f9863b00 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm7.f +++ b/lapack-netlib/TESTING/MATGEN/slatm7.f @@ -114,18 +114,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLATM7( MODE, COND, IRSIGN, IDIST, ISEED, D, N, $ RANK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL COND diff --git a/lapack-netlib/TESTING/MATGEN/slatme.f b/lapack-netlib/TESTING/MATGEN/slatme.f index 8309bcd34..049409ca5 100644 --- a/lapack-netlib/TESTING/MATGEN/slatme.f +++ b/lapack-netlib/TESTING/MATGEN/slatme.f @@ -321,8 +321,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== @@ -332,10 +330,9 @@ $ A, $ LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, RSIGN, SIM, UPPER diff --git a/lapack-netlib/TESTING/MATGEN/slatmr.f b/lapack-netlib/TESTING/MATGEN/slatmr.f index c2cedd21c..124a6246a 100644 --- a/lapack-netlib/TESTING/MATGEN/slatmr.f +++ b/lapack-netlib/TESTING/MATGEN/slatmr.f @@ -461,8 +461,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== @@ -471,10 +469,9 @@ $ CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, $ PACK, A, LDA, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM diff --git a/lapack-netlib/TESTING/MATGEN/slatms.f b/lapack-netlib/TESTING/MATGEN/slatms.f index 349bfe2eb..eb4f4b38e 100644 --- a/lapack-netlib/TESTING/MATGEN/slatms.f +++ b/lapack-netlib/TESTING/MATGEN/slatms.f @@ -313,18 +313,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, PACK, SYM @@ -344,7 +341,7 @@ REAL ONE PARAMETER ( ONE = 1.0E0 ) REAL TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) * .. * .. Local Scalars .. LOGICAL GIVENS, ILEXTR, ILTEMP, TOPDWN diff --git a/lapack-netlib/TESTING/MATGEN/slatmt.f b/lapack-netlib/TESTING/MATGEN/slatmt.f index f69e1d6e5..f06dcc46c 100644 --- a/lapack-netlib/TESTING/MATGEN/slatmt.f +++ b/lapack-netlib/TESTING/MATGEN/slatmt.f @@ -323,18 +323,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup real_matgen * * ===================================================================== SUBROUTINE SLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ RANK, KL, KU, PACK, A, LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. REAL COND, DMAX @@ -354,7 +351,7 @@ REAL ONE PARAMETER ( ONE = 1.0E0 ) REAL TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 ) * .. * .. Local Scalars .. REAL ALPHA, ANGLE, C, DUMMY, EXTRA, S, TEMP diff --git a/lapack-netlib/TESTING/MATGEN/zlagge.f b/lapack-netlib/TESTING/MATGEN/zlagge.f index c9d2bc240..8c2a9676e 100644 --- a/lapack-netlib/TESTING/MATGEN/zlagge.f +++ b/lapack-netlib/TESTING/MATGEN/zlagge.f @@ -107,17 +107,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLAGGE( M, N, KL, KU, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, KL, KU, LDA, M, N diff --git a/lapack-netlib/TESTING/MATGEN/zlaghe.f b/lapack-netlib/TESTING/MATGEN/zlaghe.f index 506035061..fb77cfb4c 100644 --- a/lapack-netlib/TESTING/MATGEN/zlaghe.f +++ b/lapack-netlib/TESTING/MATGEN/zlaghe.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLAGHE( N, K, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/zlagsy.f b/lapack-netlib/TESTING/MATGEN/zlagsy.f index e030a5f18..adbb41e39 100644 --- a/lapack-netlib/TESTING/MATGEN/zlagsy.f +++ b/lapack-netlib/TESTING/MATGEN/zlagsy.f @@ -95,17 +95,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLAGSY( N, K, D, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, K, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/zlahilb.f b/lapack-netlib/TESTING/MATGEN/zlahilb.f index cb774abd9..f9fee6de7 100644 --- a/lapack-netlib/TESTING/MATGEN/zlahilb.f +++ b/lapack-netlib/TESTING/MATGEN/zlahilb.f @@ -126,18 +126,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date November 2017 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLAHILB( N, NRHS, A, LDA, X, LDX, B, LDB, WORK, $ INFO, PATH) * -* -- LAPACK test routine (version 3.8.0) -- +* -- LAPACK test routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2017 * * .. Scalar Arguments .. INTEGER N, NRHS, LDA, LDX, LDB, INFO diff --git a/lapack-netlib/TESTING/MATGEN/zlakf2.f b/lapack-netlib/TESTING/MATGEN/zlakf2.f index 4260d7caa..b6b9ca4a7 100644 --- a/lapack-netlib/TESTING/MATGEN/zlakf2.f +++ b/lapack-netlib/TESTING/MATGEN/zlakf2.f @@ -98,17 +98,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLAKF2( M, N, A, LDA, B, D, E, Z, LDZ ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDZ, M, N diff --git a/lapack-netlib/TESTING/MATGEN/zlarge.f b/lapack-netlib/TESTING/MATGEN/zlarge.f index 4e1de110e..f899bfd3e 100644 --- a/lapack-netlib/TESTING/MATGEN/zlarge.f +++ b/lapack-netlib/TESTING/MATGEN/zlarge.f @@ -80,17 +80,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLARGE( N, A, LDA, ISEED, WORK, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER INFO, LDA, N diff --git a/lapack-netlib/TESTING/MATGEN/zlarnd.f b/lapack-netlib/TESTING/MATGEN/zlarnd.f index 2b0498bd3..6e66d2bb2 100644 --- a/lapack-netlib/TESTING/MATGEN/zlarnd.f +++ b/lapack-netlib/TESTING/MATGEN/zlarnd.f @@ -58,8 +58,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * *> \par Further Details: @@ -75,10 +73,9 @@ * ===================================================================== COMPLEX*16 FUNCTION ZLARND( IDIST, ISEED ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST @@ -93,7 +90,7 @@ DOUBLE PRECISION ZERO, ONE, TWO PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0, TWO = 2.0D+0 ) DOUBLE PRECISION TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) * .. * .. Local Scalars .. DOUBLE PRECISION T1, T2 diff --git a/lapack-netlib/TESTING/MATGEN/zlaror.f b/lapack-netlib/TESTING/MATGEN/zlaror.f index b8c4fdfa5..8ae8f9dc6 100644 --- a/lapack-netlib/TESTING/MATGEN/zlaror.f +++ b/lapack-netlib/TESTING/MATGEN/zlaror.f @@ -151,17 +151,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLAROR( SIDE, INIT, M, N, A, LDA, ISEED, X, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER INIT, SIDE diff --git a/lapack-netlib/TESTING/MATGEN/zlarot.f b/lapack-netlib/TESTING/MATGEN/zlarot.f index ebb5d98f9..901b5ddbd 100644 --- a/lapack-netlib/TESTING/MATGEN/zlarot.f +++ b/lapack-netlib/TESTING/MATGEN/zlarot.f @@ -221,18 +221,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLAROT( LROWS, LLEFT, LRIGHT, NL, C, S, A, LDA, XLEFT, $ XRIGHT ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. LOGICAL LLEFT, LRIGHT, LROWS diff --git a/lapack-netlib/TESTING/MATGEN/zlatm1.f b/lapack-netlib/TESTING/MATGEN/zlatm1.f index a829d9119..c916c8ca1 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm1.f +++ b/lapack-netlib/TESTING/MATGEN/zlatm1.f @@ -130,17 +130,14 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLATM1( MODE, COND, IRSIGN, IDIST, ISEED, D, N, INFO ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER IDIST, INFO, IRSIGN, MODE, N diff --git a/lapack-netlib/TESTING/MATGEN/zlatm2.f b/lapack-netlib/TESTING/MATGEN/zlatm2.f index ea93431e7..af0151587 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm2.f +++ b/lapack-netlib/TESTING/MATGEN/zlatm2.f @@ -203,18 +203,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_matgen * * ===================================================================== COMPLEX*16 FUNCTION ZLATM2( M, N, I, J, KL, KU, IDIST, $ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. * diff --git a/lapack-netlib/TESTING/MATGEN/zlatm3.f b/lapack-netlib/TESTING/MATGEN/zlatm3.f index 25d6233f3..e7fab607c 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm3.f +++ b/lapack-netlib/TESTING/MATGEN/zlatm3.f @@ -220,8 +220,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_matgen * * ===================================================================== @@ -229,10 +227,9 @@ $ IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, $ SPARSE ) * -* -- LAPACK auxiliary routine (version 3.7.0) -- +* -- LAPACK auxiliary routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. * diff --git a/lapack-netlib/TESTING/MATGEN/zlatm5.f b/lapack-netlib/TESTING/MATGEN/zlatm5.f index 4ab3e276b..07eeb6a1f 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm5.f +++ b/lapack-netlib/TESTING/MATGEN/zlatm5.f @@ -192,8 +192,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date June 2016 -* *> \ingroup complex16_matgen * *> \par Further Details: @@ -268,10 +266,9 @@ $ E, LDE, F, LDF, R, LDR, L, LDL, ALPHA, QBLCKA, $ QBLCKB ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* June 2016 * * .. Scalar Arguments .. INTEGER LDA, LDB, LDC, LDD, LDE, LDF, LDL, LDR, M, N, diff --git a/lapack-netlib/TESTING/MATGEN/zlatm6.f b/lapack-netlib/TESTING/MATGEN/zlatm6.f index f000f5228..104becfd1 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm6.f +++ b/lapack-netlib/TESTING/MATGEN/zlatm6.f @@ -166,18 +166,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLATM6( TYPE, N, A, LDA, B, X, LDX, Y, LDY, ALPHA, $ BETA, WX, WY, S, DIF ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. INTEGER LDA, LDX, LDY, N, TYPE diff --git a/lapack-netlib/TESTING/MATGEN/zlatme.f b/lapack-netlib/TESTING/MATGEN/zlatme.f index fee1eca6e..a081353ce 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatme.f +++ b/lapack-netlib/TESTING/MATGEN/zlatme.f @@ -290,8 +290,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== @@ -301,10 +299,9 @@ $ A, $ LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, RSIGN, SIM, UPPER diff --git a/lapack-netlib/TESTING/MATGEN/zlatmr.f b/lapack-netlib/TESTING/MATGEN/zlatmr.f index 56285e1f4..935d717e7 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatmr.f +++ b/lapack-netlib/TESTING/MATGEN/zlatmr.f @@ -480,8 +480,6 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== @@ -490,10 +488,9 @@ $ CONDR, PIVTNG, IPIVOT, KL, KU, SPARSE, ANORM, $ PACK, A, LDA, IWORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, GRADE, PACK, PIVTNG, RSIGN, SYM diff --git a/lapack-netlib/TESTING/MATGEN/zlatms.f b/lapack-netlib/TESTING/MATGEN/zlatms.f index 9bad54860..b8421eede 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatms.f +++ b/lapack-netlib/TESTING/MATGEN/zlatms.f @@ -324,18 +324,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLATMS( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ KL, KU, PACK, A, LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. CHARACTER DIST, PACK, SYM @@ -358,7 +355,7 @@ COMPLEX*16 CZERO PARAMETER ( CZERO = ( 0.0D+0, 0.0D+0 ) ) DOUBLE PRECISION TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) * .. * .. Local Scalars .. LOGICAL GIVENS, ILEXTR, ILTEMP, TOPDWN, ZSYM diff --git a/lapack-netlib/TESTING/MATGEN/zlatmt.f b/lapack-netlib/TESTING/MATGEN/zlatmt.f index 257c2627e..25036483c 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatmt.f +++ b/lapack-netlib/TESTING/MATGEN/zlatmt.f @@ -332,18 +332,15 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date December 2016 -* *> \ingroup complex16_matgen * * ===================================================================== SUBROUTINE ZLATMT( M, N, DIST, ISEED, SYM, D, MODE, COND, DMAX, $ RANK, KL, KU, PACK, A, LDA, WORK, INFO ) * -* -- LAPACK computational routine (version 3.7.0) -- +* -- LAPACK computational routine -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* December 2016 * * .. Scalar Arguments .. DOUBLE PRECISION COND, DMAX @@ -366,7 +363,7 @@ COMPLEX*16 CZERO PARAMETER ( CZERO = ( 0.0D+0, 0.0D+0 ) ) DOUBLE PRECISION TWOPI - PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 ) + PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 ) * .. * .. Local Scalars .. COMPLEX*16 C, CT, DUMMY, EXTRA, S, ST, ZTEMP diff --git a/lapack-netlib/TESTING/ced.in b/lapack-netlib/TESTING/ced.in index ef6c9e36e..283debb94 100644 --- a/lapack-netlib/TESTING/ced.in +++ b/lapack-netlib/TESTING/ced.in @@ -1,5 +1,5 @@ CES Data for the Complex Nonsymmetric Schur Form Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios @@ -8,7 +8,7 @@ T 2518 3899 995 397 Seed for random number generator CES 21 Use all matrix types CEV Data for the Complex Nonsymmetric Eigenvalue Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios @@ -17,7 +17,7 @@ T 2518 3899 995 397 Seed for random number generator CEV 21 Use all matrix types CSX Data for the Complex Nonsymmetric Schur Form Expert Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios diff --git a/lapack-netlib/TESTING/dbal.in b/lapack-netlib/TESTING/dbal.in index c00fe3e83..828629b15 100644 --- a/lapack-netlib/TESTING/dbal.in +++ b/lapack-netlib/TESTING/dbal.in @@ -209,6 +209,6 @@ DBL: Tests DGEBAL 0.00000000000000000000D+00 0.00000000000000000000D+00 0.00000000000000000000D+00 0.63043209914231165391D-03 0.10000000000000000000D+01 0.79310682416114036641D+03 0.00000000000000000000D+00 0.00000000000000000000D+00 0.00000000000000000000D+00 0.00000000000000000000D+00 0.12608641982846233078D-02 0.10000000000000000000D+01 - 2.494800386918399765D+291 1.582914569427869018D+175 1.004336277661868922D+59 3.186183822264904554D-58 5.053968264940243633D-175 0.40083367200179455560D-291; + 2.494800386918399765D+291 1.582914569427869018D+175 1.004336277661868922D+59 3.186183822264904554D-58 5.053968264940243633D-175 0.40083367200179455560D-291 0 diff --git a/lapack-netlib/TESTING/dec.in b/lapack-netlib/TESTING/dec.in index 50837a1a2..4a2aa52a1 100644 --- a/lapack-netlib/TESTING/dec.in +++ b/lapack-netlib/TESTING/dec.in @@ -948,3 +948,158 @@ DEC Key indicating type of input 1.20000D+01 -1.40000D+01 3.60000D+01 -2.50000D+01 3.60372D-02 7.96134D-02 0 0 + 8 1 5 + 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00 + 1.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01 + 0.0D+00 0.0D+00 2.0D+00 -3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00 + 0.0D+00 0.0D+00 4.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00 + 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 + 8 1 5 + 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00 + 1.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01 + 0.0D+00 0.0D+00 2.0D+00 3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00 + 0.0D+00 0.0D+00 4.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00 + 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 + 8 1 5 + 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00 + 1.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01 + 0.0D+00 0.0D+00 2.0D+00 3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00 + 0.0D+00 0.0D+00 0.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00 + 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 + 8 1 5 + 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00 + 0.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01 + 0.0D+00 0.0D+00 0.0D+00 3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00 + 0.0D+00 0.0D+00 0.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00 + 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 + 8 5 1 + 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00 + 1.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01 + 0.0D+00 0.0D+00 2.0D+00 -3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00 + 0.0D+00 0.0D+00 4.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00 + 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 + 8 5 1 + 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00 + 1.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01 + 0.0D+00 0.0D+00 2.0D+00 3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00 + 0.0D+00 0.0D+00 4.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00 + 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 + 8 5 1 + 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00 + 1.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01 + 0.0D+00 0.0D+00 2.0D+00 3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00 + 0.0D+00 0.0D+00 0.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00 + 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 + 8 5 1 + 1.0D+00 1.0D+00 1.1D+00 1.3D+00 2.0D+00 3.0D+00 -4.7D+00 3.3D+00 + 0.0D+00 1.0D+00 3.7D+00 7.9D+00 4.0D+00 5.3D+00 3.3D+00 -9.0D-01 + 0.0D+00 0.0D+00 0.0D+00 3.0D+00 3.4D+00 6.5D+00 5.2D+00 1.8D+00 + 0.0D+00 0.0D+00 0.0D+00 2.0D+00 -5.3D+00 -8.9D+00 -2.0D-01 -5.0D-01 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 4.2D+00 2.0D+00 3.3D+00 2.3D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 3.7D+00 4.2D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 9.9D+00 8.8D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 -9.9D+00 9.9D+00 + 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 0.0D+00 1.0D+00 + 4 1 3 + 1.0D+00 1.0D+00 1.1D+00 1.3D+00 + 1.0D+00 1.0D+00 3.7D+00 7.9D+00 + 0.0D+00 0.0D+00 1.0D+00 1.0D+00 + 0.0D+00 0.0D+00 1.0D+00 1.0D+00 + 1.0D+00 0.0D+00 0.0D+00 0.0D+00 + 0.0D+00 1.0D+00 0.0D+00 0.0D+00 + 0.0D+00 0.0D+00 1.0D+00 0.0D+00 + 0.0D+00 0.0D+00 0.0D+00 1.0D+00 + 4 1 3 + 7.214055213169724D-01 9.376135742769982D-01 5.318280700344581D-01 9.787531445044610D-01 + -9.376135742769982D-01 7.214055213169724D-01 7.801161815573352D-01 5.734592675974027D-01 + 0.000000000000000D+00 0.000000000000000D+00 7.214055213169726D-01 9.376135742769983D-01 + 0.000000000000000D+00 0.000000000000000D+00 -9.376135742769983D-01 7.214055213169726D-01 + 1.000000000000000D+00 0.000000000000000D+00 5.589642506777136D-01 6.410964218208657D-01 + 0.000000000000000D+00 1.000000000000000D+00 4.839061798610604D-01 6.207808731846947D-01 + 0.000000000000000D+00 0.000000000000000D+00 1.000000000000000D+00 0.000000000000000D+00 + 0.000000000000000D+00 0.000000000000000D+00 0.000000000000000D+00 1.000000000000000D+00 + 0 0 0 \ No newline at end of file diff --git a/lapack-netlib/TESTING/ded.in b/lapack-netlib/TESTING/ded.in index 09f698e42..d0c26853d 100644 --- a/lapack-netlib/TESTING/ded.in +++ b/lapack-netlib/TESTING/ded.in @@ -1,5 +1,5 @@ DEV Data file for Real Nonsymmetric Eigenvalue Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios @@ -8,7 +8,7 @@ T 2518 3899 995 397 Seed for random number generator DEV 21 Use all matrix types DES Data file for Real Nonsymmetric Schur Form Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios @@ -17,7 +17,7 @@ T 2518 3899 995 397 Seed for random number generator DES 21 Use all matrix types DVX Data file for Real Nonsymmetric Eigenvalue Expert Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios diff --git a/lapack-netlib/TESTING/sec.in b/lapack-netlib/TESTING/sec.in index 441e23d7f..0b2f4e68c 100644 --- a/lapack-netlib/TESTING/sec.in +++ b/lapack-netlib/TESTING/sec.in @@ -948,3 +948,167 @@ SEC Key indicating type of input 1.20000E+01 -1.40000E+01 3.60000E+01 -2.50000E+01 3.60372E-02 7.96134E-02 0 0 + 8 1 5 + 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00 + 1.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01 + 0.0E+00 0.0E+00 2.0E+00 -3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00 + 0.0E+00 0.0E+00 4.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00 + 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 + 8 1 5 + 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00 + 1.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01 + 0.0E+00 0.0E+00 2.0E+00 3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00 + 0.0E+00 0.0E+00 4.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00 + 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 + 8 1 5 + 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00 + 1.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01 + 0.0E+00 0.0E+00 2.0E+00 3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00 + 0.0E+00 0.0E+00 0.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00 + 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 + 8 1 5 + 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00 + 0.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01 + 0.0E+00 0.0E+00 0.0E+00 3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00 + 0.0E+00 0.0E+00 0.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00 + 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 + 8 5 1 + 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00 + 1.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01 + 0.0E+00 0.0E+00 2.0E+00 -3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00 + 0.0E+00 0.0E+00 4.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00 + 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 + 8 5 1 + 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00 + 1.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01 + 0.0E+00 0.0E+00 2.0E+00 3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00 + 0.0E+00 0.0E+00 4.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00 + 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 + 8 5 1 + 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00 + 1.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01 + 0.0E+00 0.0E+00 2.0E+00 3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00 + 0.0E+00 0.0E+00 0.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00 + 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 + 8 5 1 + 1.0E+00 1.0E+00 1.1E+00 1.3E+00 2.0E+00 3.0E+00 -4.7E+00 3.3E+00 + 0.0E+00 1.0E+00 3.7E+00 7.9E+00 4.0E+00 5.3E+00 3.3E+00 -9.0D-01 + 0.0E+00 0.0E+00 0.0E+00 3.0E+00 3.4E+00 6.5E+00 5.2E+00 1.8E+00 + 0.0E+00 0.0E+00 0.0E+00 2.0E+00 -5.3E+00 -8.9E+00 -2.0D-01 -5.0D-01 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 4.2E+00 2.0E+00 3.3E+00 2.3E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 3.7E+00 4.2E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 9.9E+00 8.8E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 -9.9E+00 9.9E+00 + 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 0.0E+00 1.0E+00 + 4 1 3 + 1.0E+00 1.0E+00 1.1E+00 1.3E+00 + 1.0E+00 1.0E+00 3.7E+00 7.9E+00 + 0.0E+00 0.0E+00 1.0E+00 1.0E+00 + 0.0E+00 0.0E+00 1.0E+00 1.0E+00 + 1.0E+00 0.0E+00 0.0E+00 0.0E+00 + 0.0E+00 1.0E+00 0.0E+00 0.0E+00 + 0.0E+00 0.0E+00 1.0E+00 0.0E+00 + 0.0E+00 0.0E+00 0.0E+00 1.0E+00 + 4 1 3 + 5.0894040E-01 7.6143250E+00 3.6633062E-01 3.2759300E-01 + -7.6143250E-02 5.0894040E-01 7.0241922E-01 3.0739143E-01 + 0.0000000E+00 0.0000000E+00 4.2679306E+02 1.3142129E+03 + 0.0000000E+00 0.0000000E+00 -1.3142129E+01 4.2679306E+02 + 1.0000000E+00 0.0000000E+00 8.5444570E-01 9.6456930E-02 + 0.0000000E+00 1.0000000E+00 9.0731663E-01 9.8456895E-01 + 0.0000000E+00 0.0000000E+00 1.0000000E+00 0.0000000E+00 + 0.0000000E+00 0.0000000E+00 0.0000000E+00 1.0000000E+00 + 4 1 3 + 3.9705437E-01 3.7467423E-01 9.3354374E-01 4.4120440E-01 + -3.7467424E-03 3.9705437E-01 8.0811077E-01 7.2155964E-01 + 0.0000000E+00 0.0000000E+00 7.5208154E+02 4.0743164E+03 + 0.0000000E+00 0.0000000E+00 -4.0743164E+01 7.5208154E+02 + 1.0000000E+00 0.0000000E+00 2.3644200E-01 5.4977387E-01 + 0.0000000E+00 1.0000000E+00 5.1509380E-01 1.7662533E-01 + 0.0000000E+00 0.0000000E+00 1.0000000E+00 0.0000000E+00 + 0.0000000E+00 0.0000000E+00 0.0000000E+00 1.0000000E+00 + 0 0 0 diff --git a/lapack-netlib/TESTING/sed.in b/lapack-netlib/TESTING/sed.in index 2a0a4f77e..56469179a 100644 --- a/lapack-netlib/TESTING/sed.in +++ b/lapack-netlib/TESTING/sed.in @@ -1,5 +1,5 @@ SEV Data file for the Real Nonsymmetric Eigenvalue Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios @@ -8,7 +8,7 @@ T 2518 3899 995 397 Seed for random number generator SEV 21 Use all matrix types SES Data file for the Real Nonsymmetric Schur Form Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios @@ -17,7 +17,7 @@ T 2518 3899 995 397 Seed for random number generator SES 21 Use all matrix types SVX Data file for the Real Nonsymmetric Eigenvalue Expert Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios diff --git a/lapack-netlib/TESTING/zed.in b/lapack-netlib/TESTING/zed.in index 538d8b0a2..6285a1c20 100644 --- a/lapack-netlib/TESTING/zed.in +++ b/lapack-netlib/TESTING/zed.in @@ -1,5 +1,5 @@ ZES Data for the Complex Nonsymmetric Schur Form Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios @@ -8,7 +8,7 @@ T 2518 3899 995 397 Seed for random number generator ZES 21 Use all matrix types ZEV Data for the Complex Nonsymmetric Eigenvalue Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios @@ -17,7 +17,7 @@ T 2518 3899 995 397 Seed for random number generator ZEV 21 Use all matrix types ZSX Data for the Complex Nonsymmetric Schur Form Expert Driver -6 Number of matrix dimensions +7 Number of matrix dimensions 0 1 2 3 5 10 20 Matrix dimensions 3 3 1 11 4 8 2 0 Parameters NB, NBMIN, NXOVER, INMIN, INWIN, INIBL, ISHFTS, IACC22 20.0 Threshold for test ratios From 884e6da73b501c6994380ae579f8bd9fc9ab407e Mon Sep 17 00:00:00 2001 From: martin-frbg Date: Thu, 12 May 2022 00:20:54 +0200 Subject: [PATCH 08/10] restore OpenBLAS-specific build file fixes --- lapack-netlib/TESTING/EIG/CMakeLists.txt | 3 ++- lapack-netlib/TESTING/EIG/Makefile | 8 ++++---- lapack-netlib/TESTING/LIN/CMakeLists.txt | 3 ++- lapack-netlib/TESTING/LIN/Makefile | 20 ++++++++++---------- lapack-netlib/TESTING/MATGEN/Makefile | 5 +++++ 5 files changed, 23 insertions(+), 16 deletions(-) diff --git a/lapack-netlib/TESTING/EIG/CMakeLists.txt b/lapack-netlib/TESTING/EIG/CMakeLists.txt index 5993233bd..226004a90 100644 --- a/lapack-netlib/TESTING/EIG/CMakeLists.txt +++ b/lapack-netlib/TESTING/EIG/CMakeLists.txt @@ -98,7 +98,8 @@ set(ZEIGTST zchkee.F macro(add_eig_executable name) add_executable(${name} ${ARGN}) - target_link_libraries(${name} ${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES}) + target_link_libraries(${name} openblas${SUFFIX64_UNDERSCORE}) +#${TMGLIB} ../${LAPACK_LIBRARIES} ${BLAS_LIBRARIES}) endmacro() if(BUILD_SINGLE) diff --git a/lapack-netlib/TESTING/EIG/Makefile b/lapack-netlib/TESTING/EIG/Makefile index e7b803abe..bccfccf95 100644 --- a/lapack-netlib/TESTING/EIG/Makefile +++ b/lapack-netlib/TESTING/EIG/Makefile @@ -128,16 +128,16 @@ double: xeigtstd complex16: xeigtstz xeigtsts: $(SEIGTST) $(SCIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB) - $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ xeigtstc: $(CEIGTST) $(SCIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB) - $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ xeigtstd: $(DEIGTST) $(DZIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB) - $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ xeigtstz: $(ZEIGTST) $(DZIGTST) $(AEIGTST) $(TMGLIB) ../$(LAPACKLIB) $(BLASLIB) - $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ $(AEIGTST): $(FRC) $(SCIGTST): $(FRC) diff --git a/lapack-netlib/TESTING/LIN/CMakeLists.txt b/lapack-netlib/TESTING/LIN/CMakeLists.txt index 2c3e2a5fd..fc55b8a96 100644 --- a/lapack-netlib/TESTING/LIN/CMakeLists.txt +++ b/lapack-netlib/TESTING/LIN/CMakeLists.txt @@ -239,7 +239,8 @@ set(ZLINTSTRFP zchkrfp.f zdrvrfp.f zdrvrf1.f zdrvrf2.f zdrvrf3.f zdrvrf4.f zerrr macro(add_lin_executable name) add_executable(${name} ${ARGN}) - target_link_libraries(${name} ${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES}) + target_link_libraries(${name} openblas${SUFFIX64_UNDERSCORE}) +#${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES}) endmacro() if(BUILD_SINGLE) diff --git a/lapack-netlib/TESTING/LIN/Makefile b/lapack-netlib/TESTING/LIN/Makefile index 8be813c8c..54b26455e 100644 --- a/lapack-netlib/TESTING/LIN/Makefile +++ b/lapack-netlib/TESTING/LIN/Makefile @@ -270,34 +270,34 @@ proto-complex: xlintstrfc proto-complex16: xlintstzc xlintstrfz xlintsts: $(ALINTST) $(SLINTST) $(SCLNTST) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(XBLASLIB) $(BLASLIB) - $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ xlintstc: $(ALINTST) $(CLINTST) $(SCLNTST) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(XBLASLIB) $(BLASLIB) - $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ xlintstd: $(ALINTST) $(DLINTST) $(DZLNTST) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(XBLASLIB) $(BLASLIB) - $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ xlintstz: $(ALINTST) $(ZLINTST) $(DZLNTST) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(XBLASLIB) $(BLASLIB) - $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ xlintstds: $(DSLINTST) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(BLASLIB) - $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ xlintstzc: $(ZCLINTST) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(BLASLIB) - $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ xlintstrfs: $(SLINTSTRFP) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(BLASLIB) - $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ xlintstrfd: $(DLINTSTRFP) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(BLASLIB) - $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ xlintstrfc: $(CLINTSTRFP) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(BLASLIB) - $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ xlintstrfz: $(ZLINTSTRFP) $(TMGLIB) $(VARLIB) ../$(LAPACKLIB) $(BLASLIB) - $(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^ + $(LOADER) $(FFLAGS) $(LDFLAGS) -o $@ $^ $(ALINTST): $(FRC) $(SCLNTST): $(FRC) diff --git a/lapack-netlib/TESTING/MATGEN/Makefile b/lapack-netlib/TESTING/MATGEN/Makefile index e25082ba5..d0e4a0ac1 100644 --- a/lapack-netlib/TESTING/MATGEN/Makefile +++ b/lapack-netlib/TESTING/MATGEN/Makefile @@ -106,5 +106,10 @@ cleanobj: cleanlib: rm -f $(TMGLIB) +ifneq ($(C_LAPACK), 1) slaran.o: slaran.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< dlaran.o: dlaran.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< +else +slaran.o: slaran.c ; $(CC) $(CFLAGS_NOOPT) -c -o $@ $< +dlaran.o: dlaran.c ; $(CC) $(CFLAGS_NOOPT) -c -o $@ $< +endif From cf61d48470f8b1d6180b0687ac233e7a6406140b Mon Sep 17 00:00:00 2001 From: martin-frbg Date: Thu, 12 May 2022 09:43:23 +0200 Subject: [PATCH 09/10] fix C_LAPACK build options for files that must be built unoptimized --- lapack-netlib/INSTALL/Makefile | 4 ++-- lapack-netlib/TESTING/MATGEN/Makefile | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lapack-netlib/INSTALL/Makefile b/lapack-netlib/INSTALL/Makefile index 667197f9e..dc76a667a 100644 --- a/lapack-netlib/INSTALL/Makefile +++ b/lapack-netlib/INSTALL/Makefile @@ -78,6 +78,6 @@ dlamch.o: dlamch.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< sroundup_lwork.o: sroundup_lwork.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< droundup_lwork.o: droundup_lwork.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< else -slamch.o: slamch.c ; $(CC) $(CFLAGS) -c -o $@ $< -dlamch.o: dlamch.c ; $(CC) $(CFLAGS) -c -o $@ $< +slamch.o: slamch.c ; $(CC) $(CFLAGS) -O0 -c -o $@ $< +dlamch.o: dlamch.c ; $(CC) $(CFLAGS) -O0 -c -o $@ $< endif diff --git a/lapack-netlib/TESTING/MATGEN/Makefile b/lapack-netlib/TESTING/MATGEN/Makefile index d0e4a0ac1..62a215b58 100644 --- a/lapack-netlib/TESTING/MATGEN/Makefile +++ b/lapack-netlib/TESTING/MATGEN/Makefile @@ -110,6 +110,6 @@ ifneq ($(C_LAPACK), 1) slaran.o: slaran.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< dlaran.o: dlaran.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $< else -slaran.o: slaran.c ; $(CC) $(CFLAGS_NOOPT) -c -o $@ $< -dlaran.o: dlaran.c ; $(CC) $(CFLAGS_NOOPT) -c -o $@ $< +slaran.o: slaran.c ; $(CC) $(CFLAGS) -O0 -c -o $@ $< +dlaran.o: dlaran.c ; $(CC) $(CFLAGS) -O0 -c -o $@ $< endif From f6a1854ce9c07512d3c73e702590b2e7268c47ec Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sat, 6 Aug 2022 09:29:09 +0200 Subject: [PATCH 10/10] resync gensymbol with develop --- exports/gensymbol | 7895 +++++++++++++++++++++--------------------- exports/gensymbol.pl | 3972 +++++++++++++++++++++ 2 files changed, 7952 insertions(+), 3915 deletions(-) create mode 100644 exports/gensymbol.pl diff --git a/exports/gensymbol b/exports/gensymbol index e48b8c201..83222a215 100644 --- a/exports/gensymbol +++ b/exports/gensymbol @@ -1,4 +1,4 @@ -#!/usr/bin/env perl +#!/bin/sh # Changelog # 2017/09/03 staticfloat @@ -16,3940 +16,4005 @@ # 2017/08/01 Saar # removed blas_thread_shutdown_ # -@blasobjsc = ( - caxpy,caxpby,ccopy,cdotc,cdotu,cgbmv,cgemm,cgemv,cgerc,cgeru, - chbmv,chemm,chemv,cher2,cher2k,cher,cherk,scabs1,scamax, - chpmv,chpr2,chpr,crotg,cscal,csrot,csscal,cswap,scamin,scasum,scnrm2, - csymm,csyr2k,csyrk,ctbmv,ctbsv,ctpmv,ctpsv,ctrmm,ctrmv,ctrsm, - ctrsv,icamax,icamin,cimatcopy,comatcopy,cgeadd,scsum); - -@blasobjsd = ( - damax,damin,dasum,daxpy,daxpby,dcabs1,dcopy,ddot,dgbmv,dgemm, - dgemv,dger,dmax,dmin,dnrm2,drot,drotg,drotm,drotmg,dsbmv, - dscal,dsdot,dspmv,dspr2,dimatcopy,domatcopy, - dspr,dswap,dsymm,dsymv,dsyr2,dsyr2k,dsyr,dsyrk,dtbmv,dtbsv, - dtpmv,dtpsv,dtrmm,dtrmv,dtrsm,dtrsv, - idamax,idamin,idmax,idmin,dgeadd,dsum); - -@blasobjss = ( - isamax,isamin,ismax,ismin, - samax,samin,sasum,saxpy, saxpby, - scopy,sdot,sdsdot,sgbmv,sgemm,sgemv,sger, - smax,smin,snrm2,simatcopy,somatcopy, - srot,srotg,srotm,srotmg,ssbmv,sscal,sspmv,sspr2,sspr,sswap, - ssymm,ssymv,ssyr2,ssyr2k,ssyr,ssyrk,stbmv,stbsv,stpmv,stpsv, - strmm,strmv,strsm,strsv, sgeadd,ssum); - -@blasobjsz = ( - izamax,izamin,, - zaxpy,zaxpby,zcopy,zdotc,zdotu,zdrot, - zdscal,zgbmv,zgemm,zgemv,zgerc,zgeru, - zhbmv,zhemm,zhemv,zher2,zher2k,zher,zherk,zhpmv,zhpr2, - zhpr,zrotg,zscal,zswap,zsymm,zsyr2k,zsyrk,ztbmv, - ztbsv,ztpmv,ztpsv,ztrmm,ztrmv,ztrsm,ztrsv, - zomatcopy, zimatcopy,dzamax,dzamin,dzasum,dznrm2, - zgeadd, dzsum); - -@blasobjs = (lsame, xerbla); -@bfblasobjs = (sbgemm, sbgemv, sbdot, sbstobf16, sbdtobf16, sbf16tos, dbf16tod); -@cblasobjsc = ( - cblas_caxpy, cblas_ccopy, cblas_cdotc, cblas_cdotu, cblas_cgbmv, cblas_cgemm, cblas_cgemv, - cblas_cgerc, cblas_cgeru, cblas_chbmv, cblas_chemm, cblas_chemv, cblas_cher2, cblas_cher2k, - cblas_cher, cblas_cherk, cblas_chpmv, cblas_chpr2, cblas_chpr, cblas_cscal, cblas_caxpby, - cblas_csscal, cblas_cswap, cblas_csymm, cblas_csyr2k, cblas_csyrk, cblas_ctbmv, cblas_cgeadd, - cblas_ctbsv, cblas_ctpmv, cblas_ctpsv, cblas_ctrmm, cblas_ctrmv, cblas_ctrsm, cblas_ctrsv, - cblas_scnrm2, cblas_scasum, - cblas_icamax, cblas_icamin, cblas_icmin, cblas_icmax, cblas_scsum,cblas_cimatcopy,cblas_comatcopy - ); -@cblasobjsd = ( - cblas_dasum, cblas_daxpy, cblas_dcopy, cblas_ddot, - cblas_dgbmv, cblas_dgemm, cblas_dgemv, cblas_dger, cblas_dnrm2, - cblas_drot, cblas_drotg, cblas_drotm, cblas_drotmg, cblas_dsbmv, cblas_dscal, cblas_dsdot, - cblas_dspmv, cblas_dspr2, cblas_dspr, cblas_dswap, cblas_dsymm, cblas_dsymv, cblas_dsyr2, - cblas_dsyr2k, cblas_dsyr, cblas_dsyrk, cblas_dtbmv, cblas_dtbsv, cblas_dtpmv, cblas_dtpsv, - cblas_dtrmm, cblas_dtrmv, cblas_dtrsm, cblas_dtrsv, cblas_daxpby, cblas_dgeadd, - cblas_idamax, cblas_idamin, cblas_idmin, cblas_idmax, cblas_dsum,cblas_dimatcopy,cblas_domatcopy - ); - -@cblasobjss = ( - cblas_sasum, cblas_saxpy, cblas_saxpby, - cblas_scopy, cblas_sdot, cblas_sdsdot, cblas_sgbmv, cblas_sgemm, - cblas_sgemv, cblas_sger, cblas_snrm2, cblas_srot, cblas_srotg, - cblas_srotm, cblas_srotmg, cblas_ssbmv, cblas_sscal, cblas_sspmv, cblas_sspr2, cblas_sspr, - cblas_sswap, cblas_ssymm, cblas_ssymv, cblas_ssyr2, cblas_ssyr2k, cblas_ssyr, cblas_ssyrk, - cblas_stbmv, cblas_stbsv, cblas_stpmv, cblas_stpsv, cblas_strmm, cblas_strmv, cblas_strsm, - cblas_strsv, cblas_sgeadd, - cblas_isamax, cblas_isamin, cblas_ismin, cblas_ismax, cblas_ssum,cblas_simatcopy,cblas_somatcopy - ); -@cblasobjsz = ( - cblas_dzasum, cblas_dznrm2, cblas_zaxpy, cblas_zcopy, cblas_zdotc, cblas_zdotu, cblas_zdscal, - cblas_zgbmv, cblas_zgemm, cblas_zgemv, cblas_zgerc, cblas_zgeru, cblas_zhbmv, cblas_zhemm, - cblas_zhemv, cblas_zher2, cblas_zher2k, cblas_zher, cblas_zherk, cblas_zhpmv, cblas_zhpr2, - cblas_zhpr, cblas_zscal, cblas_zswap, cblas_zsymm, cblas_zsyr2k, cblas_zsyrk, - cblas_ztbmv, cblas_ztbsv, cblas_ztpmv, cblas_ztpsv, cblas_ztrmm, cblas_ztrmv, cblas_ztrsm, - cblas_ztrsv, cblas_cdotc_sub, cblas_cdotu_sub, cblas_zdotc_sub, cblas_zdotu_sub, - cblas_zaxpby, cblas_zgeadd, - cblas_izamax, cblas_izamin, cblas_izmin, cblas_izmax, cblas_dzsum,cblas_zimatcopy,cblas_zomatcopy -); - -@cblasobjs = ( cblas_xerbla ); - -@bfcblasobjs = (cblas_sbgemm, cblas_sbgemv, cblas_sbdot, cblas_sbstobf16, cblas_sbdtobf16, cblas_sbf16tos, cblas_dbf16tod); - -@exblasobjs = ( - qamax,qamin,qasum,qaxpy,qcabs1,qcopy,qdot,qgbmv,qgemm, - qgemv,qger,qmax,qmin, - qnrm2, - qsbmv,qscal,qspmv,qspr2, - qspr,qswap,qsymm,qsymv,qsyr2,qsyr2k,qsyr,qsyrk,qtbmv,qtbsv, - qtpmv,qtpsv,qtrmm,qtrmv,qtrsm,qtrsv, - qxamax,qxamin,qxasum,qxnrm2, - xaxpy,xcopy,xdotc,xdotu, - xqscal,xgbmv,xgemm,xgemv,xgerc,xgeru, - xhbmv,xhemm,xhemv,xher2,xher2k,xher,xherk,xhpmv,xhpr2, - xhpr,xscal,xswap,xsymm,xsyr2k,xsyrk,xtbmv, - xtbsv,xtpmv,xtpsv,xtrmm,xtrmv,xtrsm,xtrsv, -# qrot,qrotg,qrotm,qrotmg, -# xdrot,xrotg, -); - - @gemm3mobjs=(); - - @cblasgemm3mobjs=(); - -@gemm3mobjsc = ( - cgemm3m, -); -@gemm3mobjsz = ( +blasobjsc=" + caxpy caxpby ccopy cdotc cdotu cgbmv cgemm cgemv cgerc cgeru + chbmv chemm chemv cher2 cher2k cher cherk scabs1 scamax + chpmv chpr2 chpr crotg cscal csrot csscal cswap scamin scasum scnrm2 + csymm csyr2k csyrk ctbmv ctbsv ctpmv ctpsv ctrmm ctrmv ctrsm + ctrsv icamax icamin cimatcopy comatcopy cgeadd scsum" + +blasobjsd=" + damax damin dasum daxpy daxpby dcabs1 dcopy ddot dgbmv dgemm + dgemv dger dmax dmin dnrm2 drot drotg drotm drotmg dsbmv + dscal dsdot dspmv dspr2 dimatcopy domatcopy + dspr dswap dsymm dsymv dsyr2 dsyr2k dsyr dsyrk dtbmv dtbsv + dtpmv dtpsv dtrmm dtrmv dtrsm dtrsv + idamax idamin idmax idmin dgeadd dsum" + +blasobjss=" + isamax isamin ismax ismin + samax samin sasum saxpy saxpby + scopy sdot sdsdot sgbmv sgemm sgemv sger + smax smin snrm2 simatcopy somatcopy + srot srotg srotm srotmg ssbmv sscal sspmv sspr2 sspr sswap + ssymm ssymv ssyr2 ssyr2k ssyr ssyrk stbmv stbsv stpmv stpsv + strmm strmv strsm strsv sgeadd ssum" + +blasobjsz=" + izamax izamin + zaxpy zaxpby zcopy zdotc zdotu zdrot + zdscal zgbmv zgemm zgemv zgerc zgeru + zhbmv zhemm zhemv zher2 zher2k zher zherk zhpmv zhpr2 + zhpr zrotg zscal zswap zsymm zsyr2k zsyrk ztbmv + ztbsv ztpmv ztpsv ztrmm ztrmv ztrsm ztrsv + zomatcopy zimatcopy dzamax dzamin dzasum dznrm2 + zgeadd dzsum" + +blasobjs="lsame xerbla" +bfblasobjs="sbgemm sbgemv sbdot sbstobf16 sbdtobf16 sbf16tos dbf16tod" +cblasobjsc=" + cblas_caxpy cblas_ccopy cblas_cdotc cblas_cdotu cblas_cgbmv cblas_cgemm cblas_cgemv + cblas_cgerc cblas_cgeru cblas_chbmv cblas_chemm cblas_chemv cblas_cher2 cblas_cher2k + cblas_cher cblas_cherk cblas_chpmv cblas_chpr2 cblas_chpr cblas_cscal cblas_caxpby + cblas_csscal cblas_cswap cblas_csymm cblas_csyr2k cblas_csyrk cblas_ctbmv cblas_cgeadd + cblas_ctbsv cblas_ctpmv cblas_ctpsv cblas_ctrmm cblas_ctrmv cblas_ctrsm cblas_ctrsv + cblas_scnrm2 cblas_scasum + cblas_icamax cblas_icamin cblas_icmin cblas_icmax cblas_scsum cblas_cimatcopy cblas_comatcopy + " +cblasobjsd=" + cblas_dasum cblas_daxpy cblas_dcopy cblas_ddot + cblas_dgbmv cblas_dgemm cblas_dgemv cblas_dger cblas_dnrm2 + cblas_drot cblas_drotg cblas_drotm cblas_drotmg cblas_dsbmv cblas_dscal cblas_dsdot + cblas_dspmv cblas_dspr2 cblas_dspr cblas_dswap cblas_dsymm cblas_dsymv cblas_dsyr2 + cblas_dsyr2k cblas_dsyr cblas_dsyrk cblas_dtbmv cblas_dtbsv cblas_dtpmv cblas_dtpsv + cblas_dtrmm cblas_dtrmv cblas_dtrsm cblas_dtrsv cblas_daxpby cblas_dgeadd + cblas_idamax cblas_idamin cblas_idmin cblas_idmax cblas_dsum cblas_dimatcopy cblas_domatcopy + " + +cblasobjss=" + cblas_sasum cblas_saxpy cblas_saxpby + cblas_scopy cblas_sdot cblas_sdsdot cblas_sgbmv cblas_sgemm + cblas_sgemv cblas_sger cblas_snrm2 cblas_srot cblas_srotg + cblas_srotm cblas_srotmg cblas_ssbmv cblas_sscal cblas_sspmv cblas_sspr2 cblas_sspr + cblas_sswap cblas_ssymm cblas_ssymv cblas_ssyr2 cblas_ssyr2k cblas_ssyr cblas_ssyrk + cblas_stbmv cblas_stbsv cblas_stpmv cblas_stpsv cblas_strmm cblas_strmv cblas_strsm + cblas_strsv cblas_sgeadd + cblas_isamax cblas_isamin cblas_ismin cblas_ismax cblas_ssum cblas_simatcopy cblas_somatcopy + " + +cblasobjsz=" + cblas_dzasum cblas_dznrm2 cblas_zaxpy cblas_zcopy cblas_zdotc cblas_zdotu cblas_zdscal + cblas_zgbmv cblas_zgemm cblas_zgemv cblas_zgerc cblas_zgeru cblas_zhbmv cblas_zhemm + cblas_zhemv cblas_zher2 cblas_zher2k cblas_zher cblas_zherk cblas_zhpmv cblas_zhpr2 + cblas_zhpr cblas_zscal cblas_zswap cblas_zsymm cblas_zsyr2k cblas_zsyrk + cblas_ztbmv cblas_ztbsv cblas_ztpmv cblas_ztpsv cblas_ztrmm cblas_ztrmv cblas_ztrsm + cblas_ztrsv cblas_cdotc_sub cblas_cdotu_sub cblas_zdotc_sub cblas_zdotu_sub + cblas_zaxpby cblas_zgeadd + cblas_izamax cblas_izamin cblas_izmin cblas_izmax cblas_dzsum cblas_zimatcopy cblas_zomatcopy +" + +cblasobjs="cblas_xerbla" + +bfcblasobjs="cblas_sbgemm cblas_sbgemv cblas_sbdot cblas_sbstobf16 cblas_sbdtobf16 cblas_sbf16tos cblas_dbf16tod" + +exblasobjs=" + qamax qamin qasum qaxpy qcabs1 qcopy qdot qgbmv qgemm + qgemv qger qmax qmin + qnrm2 + qsbmv qscal qspmv qspr2 + qspr qswap qsymm qsymv qsyr2 qsyr2k qsyr qsyrk qtbmv qtbsv + qtpmv qtpsv qtrmm qtrmv qtrsm qtrsv + qxamax qxamin qxasum qxnrm2 + xaxpy xcopy xdotc xdotu + xqscal xgbmv xgemm xgemv xgerc xgeru + xhbmv xhemm xhemv xher2 xher2k xher xherk xhpmv xhpr2 + xhpr xscal xswap xsymm xsyr2k xsyrk xtbmv + xtbsv xtpmv xtpsv xtrmm xtrmv xtrsm xtrsv +" +# qrot,qrotg,qrotm,qrotmg, +# xdrot,xrotg, + +gemm3mobj="" + +cblasgemm3mobj="" + +gemm3mobjsc=" + cgemm3m +" +gemm3mobjsz=" zgemm3m -); +" -@cblasgemm3mobjsc = ( +cblasgemm3mobjsc=" cblas_cgemm3m -); -@cblasgemm3mobjsz = ( +" +cblasgemm3mobjsz=" cblas_zgemm3m -); +" #both underscore and no underscore -@misc_common_objs = ( - openblas_get_parallel, - openblas_get_num_procs, - openblas_set_num_threads, - openblas_get_num_threads, -); - -@misc_no_underscore_objs = ( - goto_set_num_threads, - openblas_get_config, - openblas_get_corename, -); - -@misc_underscore_objs = ( -); - -@lapackobjss = ( - # These routines are provided by OpenBLAS. - sgesv, - sgetf2, - sgetrf, - slaswp, - sgetrs, - slauu2, - slauum, - spotf2, - spotrf, - strti2, - strtri, - spotri, -); - -@lapackobjsd = ( - dgesv, - dgetf2, - dgetrf, - dlaswp, - dgetrs, - dlauu2, - dlauum, - dpotf2, - dpotrf, - dtrti2, - dtrtri, - dpotri, -); - -@lapackobjsc = ( -cgesv, -cgetf2, -cgetrf, -claswp, -cgetrs, -clauu2, -clauum, -cpotf2, -cpotrf, -ctrti2, -ctrtri, -cpotri, -); - -@lapackobjsz = ( -zgesv, -zgetf2, -zgetrf, -zlaswp, -zgetrs, -zlauu2, -zlauum, -zpotf2, -zpotrf, -ztrti2, -ztrtri, -zpotri, -); - - -@lapackobjs2 = ( - # These routines are provided by LAPACK (reference implementation). - # - # This list is prepared by copying all routines listed in - # `lapack-3.4.1/SRC/Makefile` and replacing the '.o' suffix with a comma. - # Thereafter the following routines should be removed: - # - those provided by OpenBLAS (see @lapackobjs) - # - extra precision routines (see @lapack_extendedprecision_objs) - # Each of these have been marked individually with "already provided" or "excluded". - - # ALLAUX -- Auxiliary routines called from all precisions - # already provided by @blasobjs: xerbla, lsame - ilaenv, ieeeck, lsamen, iparmq, - ilaprec, ilatrans, ilauplo, iladiag, - ilaver, slamch, slamc3, -); - -@lapackobjs2sc = ( - # SCLAUX -- Auxiliary routines called from both REAL and COMPLEX. - # excluded: second_$(TIMER) - sbdsdc, - sbdsqr, sdisna, slabad, slacpy, sladiv, slae2, slaebz, - slaed0, slaed1, slaed2, slaed3, slaed4, slaed5, slaed6, - slaed7, slaed8, slaed9, slaeda, slaev2, slagtf, - slagts, slamrg, slanst, - slapy2, slapy3, slarnv, - slarra, slarrb, slarrc, slarrd, slarre, slarrf, slarrj, - slarrk, slarrr, slaneg, - slartg, slaruv, slas2, slascl, - slasd0, slasd1, slasd2, slasd3, slasd4, slasd5, slasd6, - slasd7, slasd8, slasda, slasdq, slasdt, - slaset, slasq1, slasq2, slasq3, slasq4, slasq5, slasq6, - slasr, slasrt, slassq, slasv2, spttrf, sstebz, sstedc, - ssteqr, ssterf, slaisnan, sisnan, - slartgp, slartgs, -); - -@lapackobjs2dz = ( - # DZLAUX -- Auxiliary routines called from both DOUBLE and COMPLEX*16. - # excluded: dsecnd_$(TIMER) - dbdsdc, - dbdsqr, ddisna, dlabad, dlacpy, dladiv, dlae2, dlaebz, - dlaed0, dlaed1, dlaed2, dlaed3, dlaed4, dlaed5, dlaed6, - dlaed7, dlaed8, dlaed9, dlaeda, dlaev2, dlagtf, - dlagts, dlamrg, dlanst, - dlapy2, dlapy3, dlarnv, - dlarra, dlarrb, dlarrc, dlarrd, dlarre, dlarrf, dlarrj, - dlarrk, dlarrr, dlaneg, - dlartg, dlaruv, dlas2, dlascl, - dlasd0, dlasd1, dlasd2, dlasd3, dlasd4, dlasd5, dlasd6, - dlasd7, dlasd8, dlasda, dlasdq, dlasdt, - dlaset, dlasq1, dlasq2, dlasq3, dlasq4, dlasq5, dlasq6, - dlasr, dlasrt, dlassq, dlasv2, dpttrf, dstebz, dstedc, - dsteqr, dsterf, dlaisnan, disnan, - dlartgp, dlartgs, - dlamch, dlamc3, -); - -@lapackobjs2s = ( - # SLASRC -- Single precision real LAPACK routines - # already provided by @lapackobjs: - # sgesv, sgetf2, slaswp, slauu2, slauum, spotf2, spotri, strti2, strtri - sgbbrd, sgbcon, sgbequ, sgbrfs, sgbsv, - sgbsvx, sgbtf2, sgbtrf, sgbtrs, sgebak, sgebal, sgebd2, - sgebrd, sgecon, sgeequ, sgees, sgeesx, sgeev, sgeevx, - sgehd2, sgehrd, sgelq2, sgelqf, - sgels, sgelsd, sgelss, sgelsy, sgeql2, sgeqlf, - sgeqp3, sgeqr2, sgeqr2p, sgeqrf, sgeqrfp, sgerfs, - sgerq2, sgerqf, sgesc2, sgesdd, sgesvd, sgesvx, - sgetc2, sgetri, - sggbak, sggbal, sgges, sggesx, sggev, sggevx, - sggglm, sgghrd, sgglse, sggqrf, - sggrqf, sgtcon, sgtrfs, sgtsv, - sgtsvx, sgttrf, sgttrs, sgtts2, shgeqz, - shsein, shseqr, slabrd, slacon, slacn2, - slaein, slaexc, slag2, slags2, slagtm, slagv2, slahqr, - slahr2, slaic1, slaln2, slals0, slalsa, slalsd, - slangb, slange, slangt, slanhs, slansb, slansp, - slansy, slantb, slantp, slantr, slanv2, - slapll, slapmt, - slaqgb, slaqge, slaqp2, slaqps, slaqsb, slaqsp, slaqsy, - slaqr0, slaqr1, slaqr2, slaqr3, slaqr4, slaqr5, - slaqtr, slar1v, slar2v, ilaslr, ilaslc, - slarf, slarfb, slarfg, slarfgp, slarft, slarfx, slargv, - slarrv, slartv, - slarz, slarzb, slarzt, slasy2, slasyf, - slatbs, slatdf, slatps, slatrd, slatrs, slatrz, - sopgtr, sopmtr, sorg2l, sorg2r, - sorgbr, sorghr, sorgl2, sorglq, sorgql, sorgqr, sorgr2, - sorgrq, sorgtr, sorm2l, sorm2r, - sormbr, sormhr, sorml2, sormlq, sormql, sormqr, sormr2, - sormr3, sormrq, sormrz, sormtr, spbcon, spbequ, spbrfs, - spbstf, spbsv, spbsvx, - spbtf2, spbtrf, spbtrs, spocon, spoequ, sporfs, sposv, - sposvx, spstrf, spstf2, - sppcon, sppequ, - spprfs, sppsv, sppsvx, spptrf, spptri, spptrs, sptcon, - spteqr, sptrfs, sptsv, sptsvx, spttrs, sptts2, srscl, - ssbev, ssbevd, ssbevx, ssbgst, ssbgv, ssbgvd, ssbgvx, - ssbtrd, sspcon, sspev, sspevd, sspevx, sspgst, - sspgv, sspgvd, sspgvx, ssprfs, sspsv, sspsvx, ssptrd, - ssptrf, ssptri, ssptrs, sstegr, sstein, sstev, sstevd, sstevr, - sstevx, - ssycon, ssyev, ssyevd, ssyevr, ssyevx, ssygs2, - ssygst, ssygv, ssygvd, ssygvx, ssyrfs, ssysv, ssysvx, - ssytd2, ssytf2, ssytrd, ssytrf, ssytri, ssytri2, ssytri2x, - ssyswapr, ssytrs, ssytrs2, ssyconv, - stbcon, - stbrfs, stbtrs, stgevc, stgex2, stgexc, stgsen, - stgsja, stgsna, stgsy2, stgsyl, stpcon, stprfs, stptri, - stptrs, - strcon, strevc, strexc, strrfs, strsen, strsna, strsyl, - strtrs, stzrzf, sstemr, - slansf, spftrf, spftri, spftrs, ssfrk, stfsm, stftri, stfttp, - stfttr, stpttf, stpttr, strttf, strttp, - sgejsv, sgesvj, sgsvj0, sgsvj1, - sgeequb, ssyequb, spoequb, sgbequb, - sbbcsd, slapmr, sorbdb, sorbdb1, sorbdb2, sorbdb3, sorbdb4, - sorbdb5, sorbdb6, sorcsd, sorcsd2by1, - sgeqrt, sgeqrt2, sgeqrt3, sgemqrt, - stpqrt, stpqrt2, stpmqrt, stprfb, -); - -@lapackobjs2ds = ( - # DSLASRC -- Double-single mixed precision real routines called from - # single, single-extra and double precision real LAPACK - # routines (i.e. from SLASRC, SXLASRC, DLASRC). - # - # already provided by @lapackobjs: - # sgetrs, spotrf, sgetrf - spotrs, -); - -@lapackobjs2c = ( - # CLASRC -- Single precision complex LAPACK routines - # already provided by @blasobjs: - # already provided by @lapackobjs: - # cgesv, cgetf2, claswp, clauu2, clauum, cpotf2, cpotri, ctrti2, ctrtri - cbdsqr, cgbbrd, cgbcon, cgbequ, cgbrfs, cgbsv, cgbsvx, - cgbtf2, cgbtrf, cgbtrs, cgebak, cgebal, cgebd2, cgebrd, - cgecon, cgeequ, cgees, cgeesx, cgeev, cgeevx, - cgehd2, cgehrd, cgelq2, cgelqf, - cgels, cgelsd, cgelss, cgelsy, cgeql2, cgeqlf, cgeqp3, - cgeqr2, cgeqr2p, cgeqrf, cgeqrfp, cgerfs, - cgerq2, cgerqf, cgesc2, cgesdd, cgesvd, - cgesvx, cgetc2, cgetri, - cggbak, cggbal, cgges, cggesx, cggev, cggevx, cggglm, - cgghrd, cgglse, cggqrf, cggrqf, - cgtcon, cgtrfs, cgtsv, cgtsvx, cgttrf, cgttrs, cgtts2, chbev, - chbevd, chbevx, chbgst, chbgv, chbgvd, chbgvx, chbtrd, - checon, cheev, cheevd, cheevr, cheevx, chegs2, chegst, - chegv, chegvd, chegvx, cherfs, chesv, chesvx, chetd2, - chetf2, chetrd, - chetrf, chetri, chetri2, chetri2x, cheswapr, - chetrs, chetrs2, chgeqz, chpcon, chpev, chpevd, - chpevx, chpgst, chpgv, chpgvd, chpgvx, chprfs, chpsv, - chpsvx, - chptrd, chptrf, chptri, chptrs, chsein, chseqr, clabrd, - clacgv, clacon, clacn2, clacp2, clacpy, clacrm, clacrt, cladiv, - claed0, claed7, claed8, - claein, claesy, claev2, clags2, clagtm, - clahef, clahqr, - clahr2, claic1, clals0, clalsa, clalsd, clangb, clange, clangt, - clanhb, clanhe, - clanhp, clanhs, clanht, clansb, clansp, clansy, clantb, - clantp, clantr, clapll, clapmt, clarcm, claqgb, claqge, - claqhb, claqhe, claqhp, claqp2, claqps, claqsb, - claqr0, claqr1, claqr2, claqr3, claqr4, claqr5, - claqsp, claqsy, clar1v, clar2v, ilaclr, ilaclc, - clarf, clarfb, clarfg, clarft, clarfgp, - clarfx, clargv, clarnv, clarrv, clartg, clartv, - clarz, clarzb, clarzt, clascl, claset, clasr, classq, - clasyf, clatbs, clatdf, clatps, clatrd, clatrs, clatrz, - cpbcon, cpbequ, cpbrfs, cpbstf, cpbsv, - cpbsvx, cpbtf2, cpbtrf, cpbtrs, cpocon, cpoequ, cporfs, - cposv, cposvx, cpstrf, cpstf2, - cppcon, cppequ, cpprfs, cppsv, cppsvx, cpptrf, cpptri, cpptrs, - cptcon, cpteqr, cptrfs, cptsv, cptsvx, cpttrf, cpttrs, cptts2, - crot, cspcon, cspmv, cspr, csprfs, cspsv, - cspsvx, csptrf, csptri, csptrs, csrscl, cstedc, - cstegr, cstein, csteqr, - csycon, - csymv, - csyr, csyrfs, csysv, csysvx, csytf2, csytrf, csytri, csytri2, csytri2x, - csyswapr, csytrs, csytrs2, csyconv, - ctbcon, ctbrfs, ctbtrs, ctgevc, ctgex2, - ctgexc, ctgsen, ctgsja, ctgsna, ctgsy2, ctgsyl, ctpcon, - ctprfs, ctptri, - ctptrs, ctrcon, ctrevc, ctrexc, ctrrfs, ctrsen, ctrsna, - ctrsyl, ctrtrs, ctzrzf, cung2l, cung2r, - cungbr, cunghr, cungl2, cunglq, cungql, cungqr, cungr2, - cungrq, cungtr, cunm2l, cunm2r, cunmbr, cunmhr, cunml2, - cunmlq, cunmql, cunmqr, cunmr2, cunmr3, cunmrq, cunmrz, - cunmtr, cupgtr, cupmtr, icmax1, scsum1, cstemr, - chfrk, ctfttp, clanhf, cpftrf, cpftri, cpftrs, ctfsm, ctftri, - ctfttr, ctpttf, ctpttr, ctrttf, ctrttp, - cgeequb, cgbequb, csyequb, cpoequb, cheequb, - cbbcsd, clapmr, cunbdb, cunbdb1, cunbdb2, cunbdb3, cunbdb4, - cunbdb5, cunbdb6, cuncsd, cuncsd2by1, - cgeqrt, cgeqrt2, cgeqrt3, cgemqrt, - ctpqrt, ctpqrt2, ctpmqrt, ctprfb, -); -@lapackobjs2zc = ( - # ZCLASRC -- Double-single mixed precision complex routines called from - # single, single-extra and double precision complex LAPACK - # routines (i.e. from CLASRC, CXLASRC, ZLASRC). - # - # already provided by @lapackobjs: - # cgetrs, cpotrf, cgetrf - cpotrs, -); - -@lapackobjs2d = ( - # DLASRC -- Double precision real LAPACK routines - # already provided by @lapackobjs: - # dgesv, dgetf2, dgetrs, dlaswp, dlauu2, dlauum, dpotf2, dpotrf, dpotri, - # dtrti2, dtrtri - dgbbrd, dgbcon, dgbequ, dgbrfs, dgbsv, - dgbsvx, dgbtf2, dgbtrf, dgbtrs, dgebak, dgebal, dgebd2, - dgebrd, dgecon, dgeequ, dgees, dgeesx, dgeev, dgeevx, - dgehd2, dgehrd, dgelq2, dgelqf, - dgels, dgelsd, dgelss, dgelsy, dgeql2, dgeqlf, - dgeqp3, dgeqr2, dgeqr2p, dgeqrf, dgeqrfp, dgerfs, - dgerq2, dgerqf, dgesc2, dgesdd, dgesvd, dgesvx, - dgetc2, dgetri, - dggbak, dggbal, dgges, dggesx, dggev, dggevx, - dggglm, dgghrd, dgglse, dggqrf, - dggrqf, dgtcon, dgtrfs, dgtsv, - dgtsvx, dgttrf, dgttrs, dgtts2, dhgeqz, - dhsein, dhseqr, dlabrd, dlacon, dlacn2, - dlaein, dlaexc, dlag2, dlags2, dlagtm, dlagv2, dlahqr, - dlahr2, dlaic1, dlaln2, dlals0, dlalsa, dlalsd, - dlangb, dlange, dlangt, dlanhs, dlansb, dlansp, - dlansy, dlantb, dlantp, dlantr, dlanv2, - dlapll, dlapmt, - dlaqgb, dlaqge, dlaqp2, dlaqps, dlaqsb, dlaqsp, dlaqsy, - dlaqr0, dlaqr1, dlaqr2, dlaqr3, dlaqr4, dlaqr5, - dlaqtr, dlar1v, dlar2v, iladlr, iladlc, - dlarf, dlarfb, dlarfg, dlarfgp, dlarft, dlarfx, - dlargv, dlarrv, dlartv, - dlarz, dlarzb, dlarzt, dlasy2, dlasyf, - dlatbs, dlatdf, dlatps, dlatrd, dlatrs, dlatrz, - dopgtr, dopmtr, dorg2l, dorg2r, - dorgbr, dorghr, dorgl2, dorglq, dorgql, dorgqr, dorgr2, - dorgrq, dorgtr, dorm2l, dorm2r, - dormbr, dormhr, dorml2, dormlq, dormql, dormqr, dormr2, - dormr3, dormrq, dormrz, dormtr, dpbcon, dpbequ, dpbrfs, - dpbstf, dpbsv, dpbsvx, - dpbtf2, dpbtrf, dpbtrs, dpocon, dpoequ, dporfs, dposv, - dposvx, dpotrs, dpstrf, dpstf2, - dppcon, dppequ, - dpprfs, dppsv, dppsvx, dpptrf, dpptri, dpptrs, dptcon, - dpteqr, dptrfs, dptsv, dptsvx, dpttrs, dptts2, drscl, - dsbev, dsbevd, dsbevx, dsbgst, dsbgv, dsbgvd, dsbgvx, - dsbtrd, dspcon, dspev, dspevd, dspevx, dspgst, - dspgv, dspgvd, dspgvx, dsprfs, dspsv, dspsvx, dsptrd, - dsptrf, dsptri, dsptrs, dstegr, dstein, dstev, dstevd, dstevr, - dstevx, - dsycon, dsyev, dsyevd, dsyevr, - dsyevx, dsygs2, dsygst, dsygv, dsygvd, dsygvx, dsyrfs, - dsysv, dsysvx, - dsytd2, dsytf2, dsytrd, dsytrf, dsytri, dsytri2, dsytri2x, - dsyswapr, dsytrs, dsytrs2, dsyconv, - dtbcon, dtbrfs, dtbtrs, dtgevc, dtgex2, dtgexc, dtgsen, - dtgsja, dtgsna, dtgsy2, dtgsyl, dtpcon, dtprfs, dtptri, - dtptrs, - dtrcon, dtrevc, dtrexc, dtrrfs, dtrsen, dtrsna, dtrsyl, - dtrtrs, dtzrzf, dstemr, - dsgesv, dsposv, dlag2s, slag2d, dlat2s, - dlansf, dpftrf, dpftri, dpftrs, dsfrk, dtfsm, dtftri, dtfttp, - dtfttr, dtpttf, dtpttr, dtrttf, dtrttp, - dgejsv, dgesvj, dgsvj0, dgsvj1, - dgeequb, dsyequb, dpoequb, dgbequb, - dbbcsd, dlapmr, dorbdb, dorbdb1, dorbdb2, dorbdb3, dorbdb4, - dorbdb5, dorbdb6, dorcsd, dorcsd2by1, - dgeqrt, dgeqrt2, dgeqrt3, dgemqrt, - dtpqrt, dtpqrt2, dtpmqrt, dtprfb, -); -@lapackobjs2z = ( - # ZLASRC -- Double precision complex LAPACK routines - # already provided by @blasobjs: - # already provided by @lapackobjs: - # zgesv, zgetrs, zgetf2, zlaswp, zlauu2, zlauum, zpotf2, zpotrf, zpotri, - # ztrti2, ztrtri - zbdsqr, zgbbrd, zgbcon, zgbequ, zgbrfs, zgbsv, zgbsvx, - zgbtf2, zgbtrf, zgbtrs, zgebak, zgebal, zgebd2, zgebrd, - zgecon, zgeequ, zgees, zgeesx, zgeev, zgeevx, - zgehd2, zgehrd, zgelq2, zgelqf, - zgels, zgelsd, zgelss, zgelsy, zgeql2, zgeqlf, zgeqp3, - zgeqr2, zgeqr2p, zgeqrf, zgeqrfp, zgerfs, zgerq2, zgerqf, - zgesc2, zgesdd, zgesvd, zgesvx, zgetc2, - zgetri, - zggbak, zggbal, zgges, zggesx, zggev, zggevx, zggglm, - zgghrd, zgglse, zggqrf, zggrqf, - zgtcon, zgtrfs, zgtsv, zgtsvx, zgttrf, zgttrs, zgtts2, zhbev, - zhbevd, zhbevx, zhbgst, zhbgv, zhbgvd, zhbgvx, zhbtrd, - zhecon, zheev, zheevd, zheevr, zheevx, zhegs2, zhegst, - zhegv, zhegvd, zhegvx, zherfs, zhesv, zhesvx, zhetd2, - zhetf2, zhetrd, - zhetrf, zhetri, zhetri2, zhetri2x, zheswapr, - zhetrs, zhetrs2, zhgeqz, zhpcon, zhpev, zhpevd, - zhpevx, zhpgst, zhpgv, zhpgvd, zhpgvx, zhprfs, zhpsv, - zhpsvx, - zhptrd, zhptrf, zhptri, zhptrs, zhsein, zhseqr, zlabrd, - zlacgv, zlacon, zlacn2, zlacp2, zlacpy, zlacrm, zlacrt, zladiv, - zlaed0, zlaed7, zlaed8, - zlaein, zlaesy, zlaev2, zlags2, zlagtm, - zlahef, zlahqr, - zlahr2, zlaic1, zlals0, zlalsa, zlalsd, zlangb, zlange, - zlangt, zlanhb, - zlanhe, - zlanhp, zlanhs, zlanht, zlansb, zlansp, zlansy, zlantb, - zlantp, zlantr, zlapll, zlapmt, zlaqgb, zlaqge, - zlaqhb, zlaqhe, zlaqhp, zlaqp2, zlaqps, zlaqsb, - zlaqr0, zlaqr1, zlaqr2, zlaqr3, zlaqr4, zlaqr5, - zlaqsp, zlaqsy, zlar1v, zlar2v, ilazlr, ilazlc, - zlarcm, zlarf, zlarfb, - zlarfg, zlarft, zlarfgp, - zlarfx, zlargv, zlarnv, zlarrv, zlartg, zlartv, - zlarz, zlarzb, zlarzt, zlascl, zlaset, zlasr, - zlassq, zlasyf, - zlatbs, zlatdf, zlatps, zlatrd, zlatrs, zlatrz, - zpbcon, zpbequ, zpbrfs, zpbstf, zpbsv, - zpbsvx, zpbtf2, zpbtrf, zpbtrs, zpocon, zpoequ, zporfs, - zposv, zposvx, zpotrs, zpstrf, zpstf2, - zppcon, zppequ, zpprfs, zppsv, zppsvx, zpptrf, zpptri, zpptrs, - zptcon, zpteqr, zptrfs, zptsv, zptsvx, zpttrf, zpttrs, zptts2, - zrot, zspcon, zspmv, zspr, zsprfs, zspsv, - zspsvx, zsptrf, zsptri, zsptrs, zdrscl, zstedc, - zstegr, zstein, zsteqr, - zsycon, - zsymv, - zsyr, zsyrfs, zsysv, zsysvx, zsytf2, zsytrf, zsytri, zsytri2, zsytri2x, - zsyswapr, zsytrs, zsytrs2, zsyconv, - ztbcon, ztbrfs, ztbtrs, ztgevc, ztgex2, - ztgexc, ztgsen, ztgsja, ztgsna, ztgsy2, ztgsyl, ztpcon, - ztprfs, ztptri, - ztptrs, ztrcon, ztrevc, ztrexc, ztrrfs, ztrsen, ztrsna, - ztrsyl, ztrtrs, ztzrzf, zung2l, - zung2r, zungbr, zunghr, zungl2, zunglq, zungql, zungqr, zungr2, - zungrq, zungtr, zunm2l, zunm2r, zunmbr, zunmhr, zunml2, - zunmlq, zunmql, zunmqr, zunmr2, zunmr3, zunmrq, zunmrz, - zunmtr, zupgtr, - zupmtr, izmax1, dzsum1, zstemr, - zcgesv, zcposv, zlag2c, clag2z, zlat2c, - 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, - zgeqrt, zgeqrt2, zgeqrt3, zgemqrt, - ztpqrt, ztpqrt2, ztpmqrt, ztprfb, -); - # functions added for lapack-3.6.0 - -@lapackobjs2c = ( @lapackobjs2c, - cgejsv, - cgesvdx, - cgesvj, - cgetrf2, - cgges3, - cggev3, - cgghd3, - cggsvd3, - cggsvp3, - cgsvj0, - cgsvj1, - clagge, - claghe, - clagsy, - clahilb, - clakf2, - clarge, - clarnd, - claror, - clarot, - clatm1, - clatm2, - clatm3, - clatm5, - clatm6, - clatme, - clatmr, - clatms, - clatmt, - cpotrf2, - csbmv, - cspr2, - csyr2, - cunm22, -); -@lapackobjs2d = (@lapackobjs2d, - dbdsvdx, - dgesvdx, - dgetrf2, - dgges3, - dggev3, - dgghd3, - dggsvd3, - dggsvp3, - dladiv2, - dlagge, - dlagsy, - dlahilb, - dlakf2, - dlaran, - dlarge, - dlarnd, - dlaror, - dlarot, - dlatm1, - dlatm2, - dlatm3, - dlatm5, - dlatm6, - dlatm7, - dlatme, - dlatmr, - dlatms, - dlatmt, - dorm22, - dpotrf2, - dsecnd, - ); - @lapackobjs2s = (@lapackobjs2s, - sbdsvdx, - second, - sgesvdx, - sgetrf2, - sgges3, - sggev3, - sgghd3, - sggsvd3, - sggsvp3, - sladiv2, - slagge, - slagsy, - slahilb, - slakf2, - slaran, - slarge, - slarnd, - slaror, - slarot, - slatm1, - slatm2, - slatm3, - slatm5, - slatm6, - slatm7, - slatme, - slatmr, - slatms, - slatmt, - sorm22, - spotrf2, - ); - @lapackobjs2z = (@lapackobjs2z, - zgejsv, - zgesvdx, - zgesvj, - zgetrf2, - zgges3, - zggev3, - zgghd3, - zggsvd3, - zggsvp3, - zgsvj0, - zgsvj1, - zlagge, - zlaghe, - zlagsy, - zlahilb, - zlakf2, - zlarge, - zlarnd, - zlaror, - zlarot, - zlatm1, - zlatm2, - zlatm3, - zlatm5, - zlatm6, - zlatme, - zlatmr, - zlatms, - zlatmt, - zpotrf2, - zsbmv, - zspr2, - zsyr2, - zunm22, -); - # functions added for lapack-3.7.0 -@lapackobjs2s = (@lapackobjs2s, - slarfy, - strevc3, - sgelqt, - sgelqt3, - sgemlqt, - sgetsls, - sgeqr, - slatsqr, - slamtsqr, - sgemqr, - sgelq, - slaswlq, - slamswlq, - sgemlq, - stplqt, - stplqt2, - stpmlqt, - ); - @lapackobjs2d = (@lapackobjs2d, - dlarfy, - dsyconvf, - dtrevc3, - dgelqt, - dgelqt3, - dgemlqt, - dgetsls, - dgeqr, - dlatsqr, - dlamtsqr, - dgemqr, - dgelq, - dlaswlq, - dlamswlq, - dgemlq, - dtplqt, - dtplqt2, - dtpmlqt, - ); - @lapackobjs2c = (@lapackobjs2c, - clarfy, - csyconvf, - ctrevc3, - cgelqt, - cgelqt3, - cgemlqt, - cgetsls, - cgeqr, - clatsqr, - clamtsqr, - cgemqr, - cgelq, - claswlq, - clamswlq, - cgemlq, - ctplqt, - ctplqt2, - ctpmlqt, - ); - @lapackobjs2z = (@lapackobjs2z, - zlarfy, - zsyconvf, - ztrevc3, - ztplqt, - ztplqt2, - ztpmlqt, - zgelqt, - zgelqt3, - zgemlqt, - zgetsls, - zgeqr, - zlatsqr, - zlamtsqr, - zgemqr, - zgelq, - zlaswlq, - zlamswlq, - zgemlq, - ); - @lapackobjs2s = (@lapackobjs2s, - sladiv1); - @lapackobjs2d = (@lapackobjs2d, - dladiv1); - @lapackobjs = (@lapackobjs, - iparam2stage, - # functions added for lapack-3.8.0 - ilaenv2stage, - ); - # functions added for lapack-3.9.0 -@lapackobjs2c = (@lapackobjs2c, - cgesvdq, +misc_common_objs=" + openblas_get_parallel + openblas_get_num_procs + openblas_set_num_threads + openblas_get_num_threads +" + +misc_no_underscore_objs=" + goto_set_num_threads + openblas_get_config + openblas_get_corename +" + +misc_underscore_objs="" + +# These routines are provided by OpenBLAS. +lapackobjss=" + sgesv + sgetf2 + sgetrf + slaswp + sgetrs + slauu2 + slauum + spotf2 + spotrf + strti2 + strtri + spotri +" + +lapackobjsd=" + dgesv + dgetf2 + dgetrf + dlaswp + dgetrs + dlauu2 + dlauum + dpotf2 + dpotrf + dtrti2 + dtrtri + dpotri +" + +lapackobjsc=" +cgesv +cgetf2 +cgetrf +claswp +cgetrs +clauu2 +clauum +cpotf2 +cpotrf +ctrti2 +ctrtri +cpotri +" + +lapackobjsz=" +zgesv +zgetf2 +zgetrf +zlaswp +zgetrs +zlauu2 +zlauum +zpotf2 +zpotrf +ztrti2 +ztrtri +zpotri +" + + +# These routines are provided by LAPACK (reference implementation). +# +# This list is prepared by copying all routines listed in +# `lapack-3.4.1/SRC/Makefile` and replacing the '.o' suffix with a comma. +# Thereafter the following routines should be removed: +# - those provided by OpenBLAS (see @lapackobjs) +# - extra precision routines (see @lapack_extendedprecision_objs) +# Each of these have been marked individually with "already provided" or "excluded". + +# ALLAUX -- Auxiliary routines called from all precisions +# already provided by b"asobjs: xerbla lsame +lapackobjs2=" + ilaenv ieeeck lsamen iparmq + ilaprec ilatrans ilauplo iladiag + ilaver slamch slamc3 +" + +# SCLAUX -- Auxiliary routines called from both REAL and COMPLEX. +# excluded: second_$(TIMER) +lapackobjs2sc=" + sbdsdc + sbdsqr sdisna slabad slacpy sladiv slae2 slaebz + slaed0 slaed1 slaed2 slaed3 slaed4 slaed5 slaed6 + slaed7 slaed8 slaed9 slaeda slaev2 slagtf + slagts slamrg slanst + slapy2 slapy3 slarnv + slarra slarrb slarrc slarrd slarre slarrf slarrj + slarrk slarrr slaneg + slartg slaruv slas2 slascl + slasd0 slasd1 slasd2 slasd3 slasd4 slasd5 slasd6 + slasd7 slasd8 slasda slasdq slasdt + slaset slasq1 slasq2 slasq3 slasq4 slasq5 slasq6 + slasr slasrt slassq slasv2 spttrf sstebz sstedc + ssteqr ssterf slaisnan sisnan + slartgp slartgs +" + +# DZLAUX -- Auxiliary routines called from both DOUBLE and COMPLEX*16. +# excluded: dsecnd_$(TIMER) +lapackobjs2dz=" + dbdsdc + dbdsqr ddisna dlabad dlacpy dladiv dlae2 dlaebz + dlaed0 dlaed1 dlaed2 dlaed3 dlaed4 dlaed5 dlaed6 + dlaed7 dlaed8 dlaed9 dlaeda dlaev2 dlagtf + dlagts dlamrg dlanst + dlapy2 dlapy3 dlarnv + dlarra dlarrb dlarrc dlarrd dlarre dlarrf dlarrj + dlarrk dlarrr dlaneg + dlartg dlaruv dlas2 dlascl + dlasd0 dlasd1 dlasd2 dlasd3 dlasd4 dlasd5 dlasd6 + dlasd7 dlasd8 dlasda dlasdq dlasdt + dlaset dlasq1 dlasq2 dlasq3 dlasq4 dlasq5 dlasq6 + dlasr dlasrt dlassq dlasv2 dpttrf dstebz dstedc + dsteqr dsterf dlaisnan disnan + dlartgp dlartgs + dlamch dlamc3 +" + +# SLASRC -- Single precision real LAPACK routines +# already provided by l"packobjs: +# sgesv sgetf2 slaswp slauu2 slauum spotf2 spotri strti2 strtri +lapackobjs2s=" + sgbbrd sgbcon sgbequ sgbrfs sgbsv + sgbsvx sgbtf2 sgbtrf sgbtrs sgebak sgebal sgebd2 + sgebrd sgecon sgeequ sgees sgeesx sgeev sgeevx + sgehd2 sgehrd sgelq2 sgelqf + sgels sgelsd sgelss sgelsy sgeql2 sgeqlf + sgeqp3 sgeqr2 sgeqr2p sgeqrf sgeqrfp sgerfs + sgerq2 sgerqf sgesc2 sgesdd sgesvd sgesvx + sgetc2 sgetri + sggbak sggbal sgges sggesx sggev sggevx + sggglm sgghrd sgglse sggqrf + sggrqf sgtcon sgtrfs sgtsv + sgtsvx sgttrf sgttrs sgtts2 shgeqz + shsein shseqr slabrd slacon slacn2 + slaein slaexc slag2 slags2 slagtm slagv2 slahqr + slahr2 slaic1 slaln2 slals0 slalsa slalsd + slangb slange slangt slanhs slansb slansp + slansy slantb slantp slantr slanv2 + slapll slapmt + slaqgb slaqge slaqp2 slaqps slaqsb slaqsp slaqsy + slaqr0 slaqr1 slaqr2 slaqr3 slaqr4 slaqr5 + slaqtr slar1v slar2v ilaslr ilaslc + slarf slarfb slarfg slarfgp slarft slarfx slargv + slarrv slartv + slarz slarzb slarzt slasy2 slasyf + slatbs slatdf slatps slatrd slatrs slatrz + sopgtr sopmtr sorg2l sorg2r + sorgbr sorghr sorgl2 sorglq sorgql sorgqr sorgr2 + sorgrq sorgtr sorm2l sorm2r + sormbr sormhr sorml2 sormlq sormql sormqr sormr2 + sormr3 sormrq sormrz sormtr spbcon spbequ spbrfs + spbstf spbsv spbsvx + spbtf2 spbtrf spbtrs spocon spoequ sporfs sposv + sposvx spstrf spstf2 + sppcon sppequ + spprfs sppsv sppsvx spptrf spptri spptrs sptcon + spteqr sptrfs sptsv sptsvx spttrs sptts2 srscl + ssbev ssbevd ssbevx ssbgst ssbgv ssbgvd ssbgvx + ssbtrd sspcon sspev sspevd sspevx sspgst + sspgv sspgvd sspgvx ssprfs sspsv sspsvx ssptrd + ssptrf ssptri ssptrs sstegr sstein sstev sstevd sstevr + sstevx + ssycon ssyev ssyevd ssyevr ssyevx ssygs2 + ssygst ssygv ssygvd ssygvx ssyrfs ssysv ssysvx + ssytd2 ssytf2 ssytrd ssytrf ssytri ssytri2 ssytri2x + ssyswapr ssytrs ssytrs2 ssyconv + stbcon + stbrfs stbtrs stgevc stgex2 stgexc stgsen + stgsja stgsna stgsy2 stgsyl stpcon stprfs stptri + stptrs + strcon strevc strexc strrfs strsen strsna strsyl + strtrs stzrzf sstemr + slansf spftrf spftri spftrs ssfrk stfsm stftri stfttp + stfttr stpttf stpttr strttf strttp + sgejsv sgesvj sgsvj0 sgsvj1 + sgeequb ssyequb spoequb sgbequb + sbbcsd slapmr sorbdb sorbdb1 sorbdb2 sorbdb3 sorbdb4 + sorbdb5 sorbdb6 sorcsd sorcsd2by1 + sgeqrt sgeqrt2 sgeqrt3 sgemqrt + stpqrt stpqrt2 stpmqrt stprfb +" + +# DSLASRC -- Double-single mixed precision real routines called from +# single, single-extra and double precision real LAPACK +# routines (i.e. from SLASRC, SXLASRC, DLASRC). +# +# already provided by @lapackobjs: +# sgetrs, spotrf, sgetrf +lapackobjs2ds=" + spotrs +" + +# CLASRC -- Single precision complex LAPACK routines +# already provided by @blasobjs: +# already provided by @lapackobjs: +# cgesv, cgetf2, claswp, clauu2, clauum, cpotf2, cpotri, ctrti2, ctrtri +lapackobjs2c=" + cbdsqr cgbbrd cgbcon cgbequ cgbrfs cgbsv cgbsvx + cgbtf2 cgbtrf cgbtrs cgebak cgebal cgebd2 cgebrd + cgecon cgeequ cgees cgeesx cgeev cgeevx + cgehd2 cgehrd cgelq2 cgelqf + cgels cgelsd cgelss cgelsy cgeql2 cgeqlf cgeqp3 + cgeqr2 cgeqr2p cgeqrf cgeqrfp cgerfs + cgerq2 cgerqf cgesc2 cgesdd cgesvd + cgesvx cgetc2 cgetri + cggbak cggbal cgges cggesx cggev cggevx cggglm + cgghrd cgglse cggqrf cggrqf + cgtcon cgtrfs cgtsv cgtsvx cgttrf cgttrs cgtts2 chbev + chbevd chbevx chbgst chbgv chbgvd chbgvx chbtrd + checon cheev cheevd cheevr cheevx chegs2 chegst + chegv chegvd chegvx cherfs chesv chesvx chetd2 + chetf2 chetrd + chetrf chetri chetri2 chetri2x cheswapr + chetrs chetrs2 chgeqz chpcon chpev chpevd + chpevx chpgst chpgv chpgvd chpgvx chprfs chpsv + chpsvx + chptrd chptrf chptri chptrs chsein chseqr clabrd + clacgv clacon clacn2 clacp2 clacpy clacrm clacrt cladiv + claed0 claed7 claed8 + claein claesy claev2 clags2 clagtm + clahef clahqr + clahr2 claic1 clals0 clalsa clalsd clangb clange clangt + clanhb clanhe + clanhp clanhs clanht clansb clansp clansy clantb + clantp clantr clapll clapmt clarcm claqgb claqge + claqhb claqhe claqhp claqp2 claqps claqsb + claqr0 claqr1 claqr2 claqr3 claqr4 claqr5 + claqsp claqsy clar1v clar2v ilaclr ilaclc + clarf clarfb clarfg clarft clarfgp + clarfx clargv clarnv clarrv clartg clartv + clarz clarzb clarzt clascl claset clasr classq + clasyf clatbs clatdf clatps clatrd clatrs clatrz + cpbcon cpbequ cpbrfs cpbstf cpbsv + cpbsvx cpbtf2 cpbtrf cpbtrs cpocon cpoequ cporfs + cposv cposvx cpstrf cpstf2 + cppcon cppequ cpprfs cppsv cppsvx cpptrf cpptri cpptrs + cptcon cpteqr cptrfs cptsv cptsvx cpttrf cpttrs cptts2 + crot cspcon cspmv cspr csprfs cspsv + cspsvx csptrf csptri csptrs csrscl cstedc + cstegr cstein csteqr + csycon + csymv + csyr csyrfs csysv csysvx csytf2 csytrf csytri csytri2 csytri2x + csyswapr csytrs csytrs2 csyconv + ctbcon ctbrfs ctbtrs ctgevc ctgex2 + ctgexc ctgsen ctgsja ctgsna ctgsy2 ctgsyl ctpcon + ctprfs ctptri + ctptrs ctrcon ctrevc ctrexc ctrrfs ctrsen ctrsna + ctrsyl ctrtrs ctzrzf cung2l cung2r + cungbr cunghr cungl2 cunglq cungql cungqr cungr2 + cungrq cungtr cunm2l cunm2r cunmbr cunmhr cunml2 + cunmlq cunmql cunmqr cunmr2 cunmr3 cunmrq cunmrz + cunmtr cupgtr cupmtr icmax1 scsum1 cstemr + chfrk ctfttp clanhf cpftrf cpftri cpftrs ctfsm ctftri + ctfttr ctpttf ctpttr ctrttf ctrttp + cgeequb cgbequb csyequb cpoequb cheequb + cbbcsd clapmr cunbdb cunbdb1 cunbdb2 cunbdb3 cunbdb4 + cunbdb5 cunbdb6 cuncsd cuncsd2by1 + cgeqrt cgeqrt2 cgeqrt3 cgemqrt + ctpqrt ctpqrt2 ctpmqrt ctprfb +" + +# ZCLASRC -- Double-single mixed precision complex routines called from +# single, single-extra and double precision complex LAPACK +# routines (i.e. from CLASRC, CXLASRC, ZLASRC). +# +# already provided by @lapackobjs: +# cgetrs, cpotrf, cgetrf +lapackobjs2zc=" + cpotrs +" + +# DLASRC -- Double precision real LAPACK routines +# already provided by @lapackobjs: +# dgesv, dgetf2, dgetrs, dlaswp, dlauu2, dlauum, dpotf2, dpotrf, dpotri, +# dtrti2, dtrtri +lapackobjs2d=" + dgbbrd dgbcon dgbequ dgbrfs dgbsv + dgbsvx dgbtf2 dgbtrf dgbtrs dgebak dgebal dgebd2 + dgebrd dgecon dgeequ dgees dgeesx dgeev dgeevx + dgehd2 dgehrd dgelq2 dgelqf + dgels dgelsd dgelss dgelsy dgeql2 dgeqlf + dgeqp3 dgeqr2 dgeqr2p dgeqrf dgeqrfp dgerfs + dgerq2 dgerqf dgesc2 dgesdd dgesvd dgesvx + dgetc2 dgetri + dggbak dggbal dgges dggesx dggev dggevx + dggglm dgghrd dgglse dggqrf + dggrqf dgtcon dgtrfs dgtsv + dgtsvx dgttrf dgttrs dgtts2 dhgeqz + dhsein dhseqr dlabrd dlacon dlacn2 + dlaein dlaexc dlag2 dlags2 dlagtm dlagv2 dlahqr + dlahr2 dlaic1 dlaln2 dlals0 dlalsa dlalsd + dlangb dlange dlangt dlanhs dlansb dlansp + dlansy dlantb dlantp dlantr dlanv2 + dlapll dlapmt + dlaqgb dlaqge dlaqp2 dlaqps dlaqsb dlaqsp dlaqsy + dlaqr0 dlaqr1 dlaqr2 dlaqr3 dlaqr4 dlaqr5 + dlaqtr dlar1v dlar2v iladlr iladlc + dlarf dlarfb dlarfg dlarfgp dlarft dlarfx + dlargv dlarrv dlartv + dlarz dlarzb dlarzt dlasy2 dlasyf + dlatbs dlatdf dlatps dlatrd dlatrs dlatrz + dopgtr dopmtr dorg2l dorg2r + dorgbr dorghr dorgl2 dorglq dorgql dorgqr dorgr2 + dorgrq dorgtr dorm2l dorm2r + dormbr dormhr dorml2 dormlq dormql dormqr dormr2 + dormr3 dormrq dormrz dormtr dpbcon dpbequ dpbrfs + dpbstf dpbsv dpbsvx + dpbtf2 dpbtrf dpbtrs dpocon dpoequ dporfs dposv + dposvx dpotrs dpstrf dpstf2 + dppcon dppequ + dpprfs dppsv dppsvx dpptrf dpptri dpptrs dptcon + dpteqr dptrfs dptsv dptsvx dpttrs dptts2 drscl + dsbev dsbevd dsbevx dsbgst dsbgv dsbgvd dsbgvx + dsbtrd dspcon dspev dspevd dspevx dspgst + dspgv dspgvd dspgvx dsprfs dspsv dspsvx dsptrd + dsptrf dsptri dsptrs dstegr dstein dstev dstevd dstevr + dstevx + dsycon dsyev dsyevd dsyevr + dsyevx dsygs2 dsygst dsygv dsygvd dsygvx dsyrfs + dsysv dsysvx + dsytd2 dsytf2 dsytrd dsytrf dsytri dsytri2 dsytri2x + dsyswapr dsytrs dsytrs2 dsyconv + dtbcon dtbrfs dtbtrs dtgevc dtgex2 dtgexc dtgsen + dtgsja dtgsna dtgsy2 dtgsyl dtpcon dtprfs dtptri + dtptrs + dtrcon dtrevc dtrexc dtrrfs dtrsen dtrsna dtrsyl + dtrtrs dtzrzf dstemr + dsgesv dsposv dlag2s slag2d dlat2s + dlansf dpftrf dpftri dpftrs dsfrk dtfsm dtftri dtfttp + dtfttr dtpttf dtpttr dtrttf dtrttp + dgejsv dgesvj dgsvj0 dgsvj1 + dgeequb dsyequb dpoequb dgbequb + dbbcsd dlapmr dorbdb dorbdb1 dorbdb2 dorbdb3 dorbdb4 + dorbdb5 dorbdb6 dorcsd dorcsd2by1 + dgeqrt dgeqrt2 dgeqrt3 dgemqrt + dtpqrt dtpqrt2 dtpmqrt dtprfb +" + +# ZLASRC -- Double precision complex LAPACK routines +# already provided by b"asobjs: +# already provided by @lapackobjs: +# zgesv zgetrs zgetf2 zlaswp zlauu2 zlauum zpotf2 zpotrf zpotri +# ztrti2 ztrtri +lapackobjs2z=" + zbdsqr zgbbrd zgbcon zgbequ zgbrfs zgbsv zgbsvx + zgbtf2 zgbtrf zgbtrs zgebak zgebal zgebd2 zgebrd + zgecon zgeequ zgees zgeesx zgeev zgeevx + zgehd2 zgehrd zgelq2 zgelqf + zgels zgelsd zgelss zgelsy zgeql2 zgeqlf zgeqp3 + zgeqr2 zgeqr2p zgeqrf zgeqrfp zgerfs zgerq2 zgerqf + zgesc2 zgesdd zgesvd zgesvx zgetc2 + zgetri + zggbak zggbal zgges zggesx zggev zggevx zggglm + zgghrd zgglse zggqrf zggrqf + zgtcon zgtrfs zgtsv zgtsvx zgttrf zgttrs zgtts2 zhbev + zhbevd zhbevx zhbgst zhbgv zhbgvd zhbgvx zhbtrd + zhecon zheev zheevd zheevr zheevx zhegs2 zhegst + zhegv zhegvd zhegvx zherfs zhesv zhesvx zhetd2 + zhetf2 zhetrd + zhetrf zhetri zhetri2 zhetri2x zheswapr + zhetrs zhetrs2 zhgeqz zhpcon zhpev zhpevd + zhpevx zhpgst zhpgv zhpgvd zhpgvx zhprfs zhpsv + zhpsvx + zhptrd zhptrf zhptri zhptrs zhsein zhseqr zlabrd + zlacgv zlacon zlacn2 zlacp2 zlacpy zlacrm zlacrt zladiv + zlaed0 zlaed7 zlaed8 + zlaein zlaesy zlaev2 zlags2 zlagtm + zlahef zlahqr + zlahr2 zlaic1 zlals0 zlalsa zlalsd zlangb zlange + zlangt zlanhb + zlanhe + zlanhp zlanhs zlanht zlansb zlansp zlansy zlantb + zlantp zlantr zlapll zlapmt zlaqgb zlaqge + zlaqhb zlaqhe zlaqhp zlaqp2 zlaqps zlaqsb + zlaqr0 zlaqr1 zlaqr2 zlaqr3 zlaqr4 zlaqr5 + zlaqsp zlaqsy zlar1v zlar2v ilazlr ilazlc + zlarcm zlarf zlarfb + zlarfg zlarft zlarfgp + zlarfx zlargv zlarnv zlarrv zlartg zlartv + zlarz zlarzb zlarzt zlascl zlaset zlasr + zlassq zlasyf + zlatbs zlatdf zlatps zlatrd zlatrs zlatrz + zpbcon zpbequ zpbrfs zpbstf zpbsv + zpbsvx zpbtf2 zpbtrf zpbtrs zpocon zpoequ zporfs + zposv zposvx zpotrs zpstrf zpstf2 + zppcon zppequ zpprfs zppsv zppsvx zpptrf zpptri zpptrs + zptcon zpteqr zptrfs zptsv zptsvx zpttrf zpttrs zptts2 + zrot zspcon zspmv zspr zsprfs zspsv + zspsvx zsptrf zsptri zsptrs zdrscl zstedc + zstegr zstein zsteqr + zsycon + zsymv + zsyr zsyrfs zsysv zsysvx zsytf2 zsytrf zsytri zsytri2 zsytri2x + zsyswapr zsytrs zsytrs2 zsyconv + ztbcon ztbrfs ztbtrs ztgevc ztgex2 + ztgexc ztgsen ztgsja ztgsna ztgsy2 ztgsyl ztpcon + ztprfs ztptri + ztptrs ztrcon ztrevc ztrexc ztrrfs ztrsen ztrsna + ztrsyl ztrtrs ztzrzf zung2l + zung2r zungbr zunghr zungl2 zunglq zungql zungqr zungr2 + zungrq zungtr zunm2l zunm2r zunmbr zunmhr zunml2 + zunmlq zunmql zunmqr zunmr2 zunmr3 zunmrq zunmrz + zunmtr zupgtr + zupmtr izmax1 dzsum1 zstemr + zcgesv zcposv zlag2c clag2z zlat2c + 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 + zgeqrt zgeqrt2 zgeqrt3 zgemqrt + ztpqrt ztpqrt2 ztpmqrt ztprfb +" + +# functions added for lapack-3.6.0 + +lapackobjs2c="$lapackobjs2c + cgejsv + cgesvdx + cgesvj + cgetrf2 + cgges3 + cggev3 + cgghd3 + cggsvd3 + cggsvp3 + cgsvj0 + cgsvj1 + clagge + claghe + clagsy + clahilb + clakf2 + clarge + clarnd + claror + clarot + clatm1 + clatm2 + clatm3 + clatm5 + clatm6 + clatme + clatmr + clatms + clatmt + cpotrf2 + csbmv + cspr2 + csyr2 + cunm22 +" + +lapackobjs2d="$lapackobjs2d + dbdsvdx + dgesvdx + dgetrf2 + dgges3 + dggev3 + dgghd3 + dggsvd3 + dggsvp3 + dladiv2 + dlagge + dlagsy + dlahilb + dlakf2 + dlaran + dlarge + dlarnd + dlaror + dlarot + dlatm1 + dlatm2 + dlatm3 + dlatm5 + dlatm6 + dlatm7 + dlatme + dlatmr + dlatms + dlatmt + dorm22 + dpotrf2 + dsecnd +" + +lapackobjs2s="$lapackobjs2s + sbdsvdx + second + sgesvdx + sgetrf2 + sgges3 + sggev3 + sgghd3 + sggsvd3 + sggsvp3 + sladiv2 + slagge + slagsy + slahilb + slakf2 + slaran + slarge + slarnd + slaror + slarot + slatm1 + slatm2 + slatm3 + slatm5 + slatm6 + slatm7 + slatme + slatmr + slatms + slatmt + sorm22 + spotrf2 +" + +lapackobjs2z="$lapackobjs2z + zgejsv + zgesvdx + zgesvj + zgetrf2 + zgges3 + zggev3 + zgghd3 + zggsvd3 + zggsvp3 + zgsvj0 + zgsvj1 + zlagge + zlaghe + zlagsy + zlahilb + zlakf2 + zlarge + zlarnd + zlaror + zlarot + zlatm1 + zlatm2 + zlatm3 + zlatm5 + zlatm6 + zlatme + zlatmr + zlatms + zlatmt + zpotrf2 + zsbmv + zspr2 + zsyr2 + zunm22 +" + +# functions added for lapack-3.7.0 +lapackobjs2s="$lapackobjs2s + slarfy + strevc3 + sgelqt + sgelqt3 + sgemlqt + sgetsls + sgeqr + slatsqr + slamtsqr + sgemqr + sgelq + slaswlq + slamswlq + sgemlq + stplqt + stplqt2 + stpmlqt +" + +lapackobjs2d="$lapackobjs2d + dlarfy + dsyconvf + dtrevc3 + dgelqt + dgelqt3 + dgemlqt + dgetsls + dgeqr + dlatsqr + dlamtsqr + dgemqr + dgelq + dlaswlq + dlamswlq + dgemlq + dtplqt + dtplqt2 + dtpmlqt + " +lapackobjs2c="$lapackobjs2c + clarfy + csyconvf + ctrevc3 + cgelqt + cgelqt3 + cgemlqt + cgetsls + cgeqr + clatsqr + clamtsqr + cgemqr + cgelq + claswlq + clamswlq + cgemlq + ctplqt + ctplqt2 + ctpmlqt +" +lapackobjs2z="$lapackobjs2z + zlarfy + zsyconvf + ztrevc3 + ztplqt + ztplqt2 + ztpmlqt + zgelqt + zgelqt3 + zgemlqt + zgetsls + zgeqr + zlatsqr + zlamtsqr + zgemqr + zgelq + zlaswlq + zlamswlq + zgemlq +" + +lapackobjs2s="$lapackobjs2s +sladiv1" + +lapackobjs2d="$lapackobjs2d +dladiv1" + +lapackobjs="$lapackobjs +iparam2stage +ilaenv2stage +" + +# functions added for lapack-3.9.0 +lapackobjs2c="$lapackobjs2c + cgesvdq cungtsqr - ); -@lapackobjs2d = (@lapackobjs2d, - dcombssq, - dgesvdq, - dorgtsqr, - ); -@lapackobjs2s = (@lapackobjs2s, - scombssq, - sgesvdq, - sorgtsqr, - ); -@lapackobjs2z = (@lapackobjs2z, - zgesvdq, + " +lapackobjs2d="$lapackobjs2d + dcombssq + dgesvdq + dorgtsqr + " +lapackobjs2s="$lapackobjs2s + scombssq + sgesvdq + sorgtsqr + " +lapackobjs2z="$lapackobjs2z + zgesvdq zungtsqr -); - # functions added for lapack-3.10.1 -#@lapackobjs2d = (@lapackobjs2d, -# dlaqz0, -# dlaqz1, -# dlaqz2, -# dlaqz3, -# dlaqz4 -# ); -#@lapackobjs2s = (@lapackobjs2s, -# slaqz0, -# slaqz1, -# slaqz2, -# slaqz3, -# slaqz4 -# ); -#@lapackobjs2z = (@lapackobjs2z, -# zlaqz0, -# zlaqz1, -# zlaqz2, -# zlaqz3, -# zlaqz4 -#); - -@lapack_extendedprecision_objs = ( - zposvxx, clagge, clatms, chesvxx, cposvxx, cgesvxx, ssyrfssx, csyrfsx, - dlagsy, dsysvxx, sporfsx, slatms, zlatms, zherfsx, csysvxx, -); - -@lapack_deprecated_objsc = ( - cgegs, cggsvd, - cgegv, cggsvp, - cgelsx, clahrd, - cgeqpf, clatzm, - ctzrqf, - ); -@lapack_deprecated_objsd = ( - dgegs, dgeqpf, - dgegv, dggsvd, - dgelsx, dggsvp, - dlahrd, - dlatzm, dtzrqf); - -@lapack_deprecated_objss = ( - sgelsx, - sgegs, - sgegv, - sgeqpf, - sggsvd, - sggsvp, - slahrd, - slatzm, + " +#functions added for lapack-3.10 +lapackobjs2c="$lapackobjs2c + cgetsqrhrt + cungtsqr_row + " +lapackobjs2d="$lapackobjs2d + dgetsqrhrt + dorgtsqr_row + " +lapackobjs2s="$lapackobjs2s + sgetsqrhrt + sorgtsqr_row + " +lapackobjs2z="$lapackobjs2z + zgetsqrhrt + zungtsqr_row + " + +lapack_extendedprecision_objs=" + zposvxx clagge clatms chesvxx cposvxx cgesvxx ssyrfssx csyrfsx + dlagsy dsysvxx sporfsx slatms zlatms zherfsx csysvxx +" + +lapack_deprecated_objsc=" + cgegs cggsvd + cgegv cggsvp + cgelsx clahrd + cgeqpf clatzm + ctzrqf + " + +lapack_deprecated_objsd=" + dgegs dgeqpf + dgegv dggsvd + dgelsx dggsvp + dlahrd + dlatzm dtzrqf" + +lapack_deprecated_objss=" + sgelsx + sgegs + sgegv + sgeqpf + sggsvd + sggsvp + slahrd + slatzm stzrqf - ); - -@lapack_deprecated_objsz = ( - zgegs, - zgegv, - zgelsx, - zgeqpf, - zggsvd, - zggsvp, - zlahrd, - zlatzm, + " + +lapack_deprecated_objsz=" + zgegs + zgegv + zgelsx + zgeqpf + zggsvd + zggsvp + zlahrd + zlatzm ztzrqf - ); - -@lapacke_deprecated_objsc = ( - LAPACKE_cggsvp, - LAPACKE_cggsvp_work, - LAPACKE_cggsvd, - LAPACKE_cggsvd_work, - LAPACKE_cgeqpf, - LAPACKE_cgeqpf_work, -); -@lapacke_deprecated_objsd = ( - LAPACKE_dggsvp, - LAPACKE_dggsvp_work, - LAPACKE_dggsvd, - LAPACKE_dggsvd_work, - LAPACKE_dgeqpf, - LAPACKE_dgeqpf_work, -); -@lapacke_deprecated_objss = ( - LAPACKE_sggsvp, - LAPACKE_sggsvp_work, - LAPACKE_sggsvd, - LAPACKE_sggsvd_work, - LAPACKE_sgeqpf, - LAPACKE_sgeqpf_work, -); -@lapacke_deprecated_objsz = ( - LAPACKE_zggsvp, - LAPACKE_zggsvp_work, - LAPACKE_zggsvd, - LAPACKE_zggsvd_work, - LAPACKE_zgeqpf, - LAPACKE_zgeqpf_work, -); - - -@lapackeobjs = ( - # LAPACK C interface routines. - # - # This list is prepared in a similar manner to @lapackobjs2, however the - # functions all begin with an uppercase prefix (with the exception of the - # make_complex_* routines). - # - # The functions corresponding to @(MATGEN_OBJ) and @(SRCX_OBJ) are not - # exported since the respective LAPACK routines are not built by default. - - # @(OBJ) from `lapack-3.4.1/lapacke/utils/Makefile` - LAPACKE_lsame, - LAPACKE_ilaver, - LAPACKE_xerbla, - lapack_make_complex_float, - lapack_make_complex_double, - LAPACKE_get_nancheck, - LAPACKE_set_nancheck, -); -@lapackeobjsc = ( - LAPACKE_cgb_nancheck, - LAPACKE_cgb_trans, - LAPACKE_cge_nancheck, - LAPACKE_cge_trans, - LAPACKE_cgg_nancheck, - LAPACKE_cgg_trans, - LAPACKE_cgt_nancheck, - LAPACKE_chb_nancheck, - LAPACKE_chb_trans, - LAPACKE_che_nancheck, - LAPACKE_che_trans, - LAPACKE_chp_nancheck, - LAPACKE_chp_trans, - LAPACKE_chs_nancheck, - LAPACKE_chs_trans, - LAPACKE_c_nancheck, - LAPACKE_cpb_nancheck, - LAPACKE_cpb_trans, - LAPACKE_cpf_nancheck, - LAPACKE_cpf_trans, - LAPACKE_cpo_nancheck, - LAPACKE_cpo_trans, - LAPACKE_cpp_nancheck, - LAPACKE_cpp_trans, - LAPACKE_cpt_nancheck, - LAPACKE_csp_nancheck, - LAPACKE_csp_trans, - LAPACKE_cst_nancheck, - LAPACKE_csy_nancheck, - LAPACKE_csy_trans, - LAPACKE_ctb_nancheck, - LAPACKE_ctb_trans, - LAPACKE_ctf_nancheck, - LAPACKE_ctf_trans, - LAPACKE_ctp_nancheck, - LAPACKE_ctp_trans, - LAPACKE_ctr_nancheck, - LAPACKE_ctr_trans, - LAPACKE_cbbcsd, - LAPACKE_cbbcsd_work, - LAPACKE_cbdsqr, - LAPACKE_cbdsqr_work, - LAPACKE_cgbbrd, - LAPACKE_cgbbrd_work, - LAPACKE_cgbcon, - LAPACKE_cgbcon_work, - LAPACKE_cgbequ, - LAPACKE_cgbequ_work, - LAPACKE_cgbequb, - LAPACKE_cgbequb_work, - LAPACKE_cgbrfs, - LAPACKE_cgbrfs_work, - LAPACKE_cgbsv, - LAPACKE_cgbsv_work, - LAPACKE_cgbsvx, - LAPACKE_cgbsvx_work, - LAPACKE_cgbtrf, - LAPACKE_cgbtrf_work, - LAPACKE_cgbtrs, - LAPACKE_cgbtrs_work, - LAPACKE_cgebak, - LAPACKE_cgebak_work, - LAPACKE_cgebal, - LAPACKE_cgebal_work, - LAPACKE_cgebrd, - LAPACKE_cgebrd_work, - LAPACKE_cgecon, - LAPACKE_cgecon_work, - LAPACKE_cgeequ, - LAPACKE_cgeequ_work, - LAPACKE_cgeequb, - LAPACKE_cgeequb_work, - LAPACKE_cgees, - LAPACKE_cgees_work, - LAPACKE_cgeesx, - LAPACKE_cgeesx_work, - LAPACKE_cgeev, - LAPACKE_cgeev_work, - LAPACKE_cgeevx, - LAPACKE_cgeevx_work, - LAPACKE_cgehrd, - LAPACKE_cgehrd_work, - LAPACKE_cgelq2, - LAPACKE_cgelq2_work, - LAPACKE_cgelqf, - LAPACKE_cgelqf_work, - LAPACKE_cgels, - LAPACKE_cgels_work, - LAPACKE_cgelsd, - LAPACKE_cgelsd_work, - LAPACKE_cgelss, - LAPACKE_cgelss_work, - LAPACKE_cgelsy, - LAPACKE_cgelsy_work, - LAPACKE_cgemqrt, - LAPACKE_cgemqrt_work, - LAPACKE_cgeqlf, - LAPACKE_cgeqlf_work, - LAPACKE_cgeqp3, - LAPACKE_cgeqp3_work, - LAPACKE_cgeqr2, - LAPACKE_cgeqr2_work, - LAPACKE_cgeqrf, - LAPACKE_cgeqrf_work, - LAPACKE_cgeqrfp, - LAPACKE_cgeqrfp_work, - LAPACKE_cgeqrt, - LAPACKE_cgeqrt2, - LAPACKE_cgeqrt2_work, - LAPACKE_cgeqrt3, - LAPACKE_cgeqrt3_work, - LAPACKE_cgeqrt_work, - LAPACKE_cgerfs, - LAPACKE_cgerfs_work, - LAPACKE_cgerqf, - LAPACKE_cgerqf_work, - LAPACKE_cgesdd, - LAPACKE_cgesdd_work, - LAPACKE_cgesv, - LAPACKE_cgesv_work, - LAPACKE_cgesvd, - LAPACKE_cgesvd_work, - LAPACKE_cgesvx, - LAPACKE_cgesvx_work, - LAPACKE_cgetf2, - LAPACKE_cgetf2_work, - LAPACKE_cgetrf, - LAPACKE_cgetrf_work, - LAPACKE_cgetri, - LAPACKE_cgetri_work, - LAPACKE_cgetrs, - LAPACKE_cgetrs_work, - LAPACKE_cggbak, - LAPACKE_cggbak_work, - LAPACKE_cggbal, - LAPACKE_cggbal_work, - LAPACKE_cgges, - LAPACKE_cgges_work, - LAPACKE_cggesx, - LAPACKE_cggesx_work, - LAPACKE_cggev, - LAPACKE_cggev_work, - LAPACKE_cggevx, - LAPACKE_cggevx_work, - LAPACKE_cggglm, - LAPACKE_cggglm_work, - LAPACKE_cgghrd, - LAPACKE_cgghrd_work, - LAPACKE_cgglse, - LAPACKE_cgglse_work, - LAPACKE_cggqrf, - LAPACKE_cggqrf_work, - LAPACKE_cggrqf, - LAPACKE_cggrqf_work, - LAPACKE_cgtcon, - LAPACKE_cgtcon_work, - LAPACKE_cgtrfs, - LAPACKE_cgtrfs_work, - LAPACKE_cgtsv, - LAPACKE_cgtsv_work, - LAPACKE_cgtsvx, - LAPACKE_cgtsvx_work, - LAPACKE_cgttrf, - LAPACKE_cgttrf_work, - LAPACKE_cgttrs, - LAPACKE_cgttrs_work, - LAPACKE_chbev, - LAPACKE_chbev_work, - LAPACKE_chbevd, - LAPACKE_chbevd_work, - LAPACKE_chbevx, - LAPACKE_chbevx_work, - LAPACKE_chbgst, - LAPACKE_chbgst_work, - LAPACKE_chbgv, - LAPACKE_chbgv_work, - LAPACKE_chbgvd, - LAPACKE_chbgvd_work, - LAPACKE_chbgvx, - LAPACKE_chbgvx_work, - LAPACKE_chbtrd, - LAPACKE_chbtrd_work, - LAPACKE_checon, - LAPACKE_checon_work, - LAPACKE_cheequb, - LAPACKE_cheequb_work, - LAPACKE_cheev, - LAPACKE_cheev_work, - LAPACKE_cheevd, - LAPACKE_cheevd_work, - LAPACKE_cheevr, - LAPACKE_cheevr_work, - LAPACKE_cheevx, - LAPACKE_cheevx_work, - LAPACKE_chegst, - LAPACKE_chegst_work, - LAPACKE_chegv, - LAPACKE_chegv_work, - LAPACKE_chegvd, - LAPACKE_chegvd_work, - LAPACKE_chegvx, - LAPACKE_chegvx_work, - LAPACKE_cherfs, - LAPACKE_cherfs_work, - LAPACKE_chesv, - LAPACKE_chesv_work, - LAPACKE_chesvx, - LAPACKE_chesvx_work, - LAPACKE_cheswapr, - LAPACKE_cheswapr_work, - LAPACKE_chetrd, - LAPACKE_chetrd_work, - LAPACKE_chetrf, - LAPACKE_chetrf_work, - LAPACKE_chetri, - LAPACKE_chetri2, - LAPACKE_chetri2_work, - LAPACKE_chetri2x, - LAPACKE_chetri2x_work, - LAPACKE_chetri_work, - LAPACKE_chetrs, - LAPACKE_chetrs2, - LAPACKE_chetrs2_work, - LAPACKE_chetrs_work, - LAPACKE_chfrk, - LAPACKE_chfrk_work, - LAPACKE_chgeqz, - LAPACKE_chgeqz_work, - LAPACKE_chpcon, - LAPACKE_chpcon_work, - LAPACKE_chpev, - LAPACKE_chpev_work, - LAPACKE_chpevd, - LAPACKE_chpevd_work, - LAPACKE_chpevx, - LAPACKE_chpevx_work, - LAPACKE_chpgst, - LAPACKE_chpgst_work, - LAPACKE_chpgv, - LAPACKE_chpgv_work, - LAPACKE_chpgvd, - LAPACKE_chpgvd_work, - LAPACKE_chpgvx, - LAPACKE_chpgvx_work, - LAPACKE_chprfs, - LAPACKE_chprfs_work, - LAPACKE_chpsv, - LAPACKE_chpsv_work, - LAPACKE_chpsvx, - LAPACKE_chpsvx_work, - LAPACKE_chptrd, - LAPACKE_chptrd_work, - LAPACKE_chptrf, - LAPACKE_chptrf_work, - LAPACKE_chptri, - LAPACKE_chptri_work, - LAPACKE_chptrs, - LAPACKE_chptrs_work, - LAPACKE_chsein, - LAPACKE_chsein_work, - LAPACKE_chseqr, - LAPACKE_chseqr_work, - LAPACKE_clacgv, - LAPACKE_clacgv_work, - LAPACKE_clacn2, - LAPACKE_clacn2_work, - LAPACKE_clacp2, - LAPACKE_clacp2_work, - LAPACKE_clacpy, - LAPACKE_clacpy_work, - LAPACKE_clag2z, - LAPACKE_clag2z_work, - LAPACKE_clange, - LAPACKE_clange_work, - LAPACKE_clanhe, - LAPACKE_clanhe_work, - LAPACKE_clansy, - LAPACKE_clansy_work, - LAPACKE_clantr, - LAPACKE_clantr_work, - LAPACKE_clapmr, - LAPACKE_clapmr_work, - LAPACKE_clarfb, - LAPACKE_clarfb_work, - LAPACKE_clarfg, - LAPACKE_clarfg_work, - LAPACKE_clarft, - LAPACKE_clarft_work, - LAPACKE_clarfx, - LAPACKE_clarfx_work, - LAPACKE_clarnv, - LAPACKE_clarnv_work, - LAPACKE_claset, - LAPACKE_claset_work, - LAPACKE_claswp, - LAPACKE_claswp_work, - LAPACKE_clauum, - LAPACKE_clauum_work, - LAPACKE_cpbcon, - LAPACKE_cpbcon_work, - LAPACKE_cpbequ, - LAPACKE_cpbequ_work, - LAPACKE_cpbrfs, - LAPACKE_cpbrfs_work, - LAPACKE_cpbstf, - LAPACKE_cpbstf_work, - LAPACKE_cpbsv, - LAPACKE_cpbsv_work, - LAPACKE_cpbsvx, - LAPACKE_cpbsvx_work, - LAPACKE_cpbtrf, - LAPACKE_cpbtrf_work, - LAPACKE_cpbtrs, - LAPACKE_cpbtrs_work, - LAPACKE_cpftrf, - LAPACKE_cpftrf_work, - LAPACKE_cpftri, - LAPACKE_cpftri_work, - LAPACKE_cpftrs, - LAPACKE_cpftrs_work, - LAPACKE_cpocon, - LAPACKE_cpocon_work, - LAPACKE_cpoequ, - LAPACKE_cpoequ_work, - LAPACKE_cpoequb, - LAPACKE_cpoequb_work, - LAPACKE_cporfs, - LAPACKE_cporfs_work, - LAPACKE_cposv, - LAPACKE_cposv_work, - LAPACKE_cposvx, - LAPACKE_cposvx_work, - LAPACKE_cpotrf, - LAPACKE_cpotrf_work, - LAPACKE_cpotri, - LAPACKE_cpotri_work, - LAPACKE_cpotrs, - LAPACKE_cpotrs_work, - LAPACKE_cppcon, - LAPACKE_cppcon_work, - LAPACKE_cppequ, - LAPACKE_cppequ_work, - LAPACKE_cpprfs, - LAPACKE_cpprfs_work, - LAPACKE_cppsv, - LAPACKE_cppsv_work, - LAPACKE_cppsvx, - LAPACKE_cppsvx_work, - LAPACKE_cpptrf, - LAPACKE_cpptrf_work, - LAPACKE_cpptri, - LAPACKE_cpptri_work, - LAPACKE_cpptrs, - LAPACKE_cpptrs_work, - LAPACKE_cpstrf, - LAPACKE_cpstrf_work, - LAPACKE_cptcon, - LAPACKE_cptcon_work, - LAPACKE_cpteqr, - LAPACKE_cpteqr_work, - LAPACKE_cptrfs, - LAPACKE_cptrfs_work, - LAPACKE_cptsv, - LAPACKE_cptsv_work, - LAPACKE_cptsvx, - LAPACKE_cptsvx_work, - LAPACKE_cpttrf, - LAPACKE_cpttrf_work, - LAPACKE_cpttrs, - LAPACKE_cpttrs_work, - LAPACKE_cspcon, - LAPACKE_cspcon_work, - LAPACKE_csprfs, - LAPACKE_csprfs_work, - LAPACKE_cspsv, - LAPACKE_cspsv_work, - LAPACKE_cspsvx, - LAPACKE_cspsvx_work, - LAPACKE_csptrf, - LAPACKE_csptrf_work, - LAPACKE_csptri, - LAPACKE_csptri_work, - LAPACKE_csptrs, - LAPACKE_csptrs_work, - LAPACKE_cstedc, - LAPACKE_cstedc_work, - LAPACKE_cstegr, - LAPACKE_cstegr_work, - LAPACKE_cstein, - LAPACKE_cstein_work, - LAPACKE_cstemr, - LAPACKE_cstemr_work, - LAPACKE_csteqr, - LAPACKE_csteqr_work, - LAPACKE_csycon, - LAPACKE_csycon_work, - LAPACKE_csyconv, - LAPACKE_csyconv_work, - LAPACKE_csyequb, - LAPACKE_csyequb_work, - LAPACKE_csyrfs, - LAPACKE_csyrfs_work, - LAPACKE_csysv, - LAPACKE_csysv_rook, - LAPACKE_csysv_rook_work, - LAPACKE_csysv_work, - LAPACKE_csysvx, - LAPACKE_csysvx_work, - LAPACKE_csyswapr, - LAPACKE_csyswapr_work, - LAPACKE_csytrf, - LAPACKE_csytrf_work, - LAPACKE_csytri, - LAPACKE_csytri2, - LAPACKE_csytri2_work, - LAPACKE_csytri2x, - LAPACKE_csytri2x_work, - LAPACKE_csytri_work, - LAPACKE_csytrs, - LAPACKE_csytrs2, - LAPACKE_csytrs2_work, - LAPACKE_csytrs_work, - LAPACKE_ctbcon, - LAPACKE_ctbcon_work, - LAPACKE_ctbrfs, - LAPACKE_ctbrfs_work, - LAPACKE_ctbtrs, - LAPACKE_ctbtrs_work, - LAPACKE_ctfsm, - LAPACKE_ctfsm_work, - LAPACKE_ctftri, - LAPACKE_ctftri_work, - LAPACKE_ctfttp, - LAPACKE_ctfttp_work, - LAPACKE_ctfttr, - LAPACKE_ctfttr_work, - LAPACKE_ctgevc, - LAPACKE_ctgevc_work, - LAPACKE_ctgexc, - LAPACKE_ctgexc_work, - LAPACKE_ctgsen, - LAPACKE_ctgsen_work, - LAPACKE_ctgsja, - LAPACKE_ctgsja_work, - LAPACKE_ctgsna, - LAPACKE_ctgsna_work, - LAPACKE_ctgsyl, - LAPACKE_ctgsyl_work, - LAPACKE_ctpcon, - LAPACKE_ctpcon_work, - LAPACKE_ctpmqrt, - LAPACKE_ctpmqrt_work, - LAPACKE_ctpqrt, - LAPACKE_ctpqrt2, - LAPACKE_ctpqrt2_work, - LAPACKE_ctpqrt_work, - LAPACKE_ctprfb, - LAPACKE_ctprfb_work, - LAPACKE_ctprfs, - LAPACKE_ctprfs_work, - LAPACKE_ctptri, - LAPACKE_ctptri_work, - LAPACKE_ctptrs, - LAPACKE_ctptrs_work, - LAPACKE_ctpttf, - LAPACKE_ctpttf_work, - LAPACKE_ctpttr, - LAPACKE_ctpttr_work, - LAPACKE_ctrcon, - LAPACKE_ctrcon_work, - LAPACKE_ctrevc, - LAPACKE_ctrevc_work, - LAPACKE_ctrexc, - LAPACKE_ctrexc_work, - LAPACKE_ctrrfs, - LAPACKE_ctrrfs_work, - LAPACKE_ctrsen, - LAPACKE_ctrsen_work, - LAPACKE_ctrsna, - LAPACKE_ctrsna_work, - LAPACKE_ctrsyl, - LAPACKE_ctrsyl_work, - LAPACKE_ctrtri, - LAPACKE_ctrtri_work, - LAPACKE_ctrtrs, - LAPACKE_ctrtrs_work, - LAPACKE_ctrttf, - LAPACKE_ctrttf_work, - LAPACKE_ctrttp, - LAPACKE_ctrttp_work, - LAPACKE_ctzrzf, - LAPACKE_ctzrzf_work, - LAPACKE_cunbdb, - LAPACKE_cunbdb_work, - LAPACKE_cuncsd, - LAPACKE_cuncsd_work, - LAPACKE_cungbr, - LAPACKE_cungbr_work, - LAPACKE_cunghr, - LAPACKE_cunghr_work, - LAPACKE_cunglq, - LAPACKE_cunglq_work, - LAPACKE_cungql, - LAPACKE_cungql_work, - LAPACKE_cungqr, - LAPACKE_cungqr_work, - LAPACKE_cungrq, - LAPACKE_cungrq_work, - LAPACKE_cungtr, - LAPACKE_cungtr_work, - LAPACKE_cunmbr, - LAPACKE_cunmbr_work, - LAPACKE_cunmhr, - LAPACKE_cunmhr_work, - LAPACKE_cunmlq, - LAPACKE_cunmlq_work, - LAPACKE_cunmql, - LAPACKE_cunmql_work, - LAPACKE_cunmqr, - LAPACKE_cunmqr_work, - LAPACKE_cunmrq, - LAPACKE_cunmrq_work, - LAPACKE_cunmrz, - LAPACKE_cunmrz_work, - LAPACKE_cunmtr, - LAPACKE_cunmtr_work, - LAPACKE_cupgtr, - LAPACKE_cupgtr_work, - LAPACKE_cupmtr, - LAPACKE_cupmtr_work, - LAPACKE_csyr, - LAPACKE_csyr_work, - LAPACKE_clatms, - LAPACKE_clatms_work, - LAPACKE_clagge, - LAPACKE_clagge_work, - LAPACKE_claghe, - LAPACKE_claghe_work, - LAPACKE_clagsy, - LAPACKE_clagsy_work, - LAPACKE_cgejsv, - LAPACKE_cgejsv_work, - LAPACKE_cgesvdx, - LAPACKE_cgesvdx_work, - LAPACKE_cgesvj, - LAPACKE_cgesvj_work, - LAPACKE_cgetrf2, - LAPACKE_cgetrf2_work, - LAPACKE_cgges3, - LAPACKE_cgges3_work, - LAPACKE_cggev3, - LAPACKE_cggev3_work, - LAPACKE_cgghd3, - LAPACKE_cgghd3_work, - LAPACKE_cggsvd3, - LAPACKE_cggsvd3_work, - LAPACKE_cggsvp3, - LAPACKE_cggsvp3_work, - LAPACKE_chetrf_rook, - LAPACKE_chetrf_rook_work, - LAPACKE_chetrs_rook, - LAPACKE_chetrs_rook_work, - LAPACKE_clapmt, - LAPACKE_clapmt_work, - LAPACKE_clascl, - LAPACKE_clascl_work, - LAPACKE_cpotrf2, - LAPACKE_cpotrf2_work, - LAPACKE_csytrf_rook, - LAPACKE_csytrf_rook_work, - LAPACKE_csytrs_rook, - LAPACKE_csytrs_rook_work, - LAPACKE_cuncsd2by1, - LAPACKE_cuncsd2by1_work, - LAPACKE_cgelq, - LAPACKE_cgelq_work, - LAPACKE_cgemlq, - LAPACKE_cgemlq_work, - LAPACKE_cgemqr, - LAPACKE_cgemqr_work, - LAPACKE_cgeqr, - LAPACKE_cgeqr_work, - LAPACKE_cgetsls, - LAPACKE_cgetsls_work, - LAPACKE_chbev_2stage, - LAPACKE_chbev_2stage_work, - LAPACKE_chbevd_2stage, - LAPACKE_chbevd_2stage_work, - LAPACKE_chbevx_2stage, - LAPACKE_chbevx_2stage_work, - LAPACKE_checon_3, - LAPACKE_checon_3_work, - LAPACKE_cheev_2stage, - LAPACKE_cheev_2stage_work, - LAPACKE_cheevd_2stage, - LAPACKE_cheevd_2stage_work, - LAPACKE_cheevr_2stage, - LAPACKE_cheevr_2stage_work, - LAPACKE_cheevx_2stage, - LAPACKE_cheevx_2stage_work, - LAPACKE_chegv_2stage, - LAPACKE_chegv_2stage_work, - LAPACKE_chesv_aa, - LAPACKE_chesv_aa_work, - LAPACKE_chesv_rk, - LAPACKE_chesv_rk_work, - LAPACKE_chetrf_aa, - LAPACKE_chetrf_aa_work, - LAPACKE_chetrf_rk, - LAPACKE_chetrf_rk_work, - LAPACKE_chetri_3, - LAPACKE_chetri_3_work, - LAPACKE_chetrs_aa, - LAPACKE_chetrs_aa_work, - LAPACKE_chetrs_3, - LAPACKE_chetrs_3_work, - LAPACKE_csycon_3, - LAPACKE_csycon_3_work, - LAPACKE_csysv_aa, - LAPACKE_csysv_aa_work, - LAPACKE_csysv_rk, - LAPACKE_csysv_rk_work, - LAPACKE_csytrf_aa, - LAPACKE_csytrf_aa_work, - LAPACKE_csytrf_rk, - LAPACKE_csytrf_rk_work, - LAPACKE_csytri_3, - LAPACKE_csytri_3_work, - LAPACKE_csytrs_aa, - LAPACKE_csytrs_aa_work, - LAPACKE_csytrs_3, - LAPACKE_csytrs_3_work, - LAPACKE_chesv_aa_2stage, - LAPACKE_chesv_aa_2stage_work, - LAPACKE_chetrf_aa_2stage, - LAPACKE_chetrf_aa_2stage_work, - LAPACKE_chetrs_aa_2stage, - LAPACKE_chetrs_aa_2stage_work, - LAPACKE_clacrm, - LAPACKE_clacrm_work, - LAPACKE_clarcm, - LAPACKE_clarcm_work, - LAPACKE_classq, - LAPACKE_classq_work, - LAPACKE_csysv_aa_2stage, - LAPACKE_csysv_aa_2stage_work, - LAPACKE_csytrf_aa_2stage, - LAPACKE_csytrf_aa_2stage_work, - LAPACKE_csytrs_aa_2stage, - LAPACKE_csytrs_aa_2stage_work, -); -@lapackeobjsd = ( - LAPACKE_dgb_nancheck, - LAPACKE_dgb_trans, - LAPACKE_dge_nancheck, - LAPACKE_dge_trans, - LAPACKE_dgg_nancheck, - LAPACKE_dgg_trans, - LAPACKE_dgt_nancheck, - LAPACKE_dhs_nancheck, - LAPACKE_dhs_trans, - LAPACKE_d_nancheck, - LAPACKE_dpb_nancheck, - LAPACKE_dpb_trans, - LAPACKE_dpf_nancheck, - LAPACKE_dpf_trans, - LAPACKE_dpo_nancheck, - LAPACKE_dpo_trans, - LAPACKE_dpp_nancheck, - LAPACKE_dpp_trans, - LAPACKE_dpt_nancheck, - LAPACKE_dsb_nancheck, - LAPACKE_dsb_trans, - LAPACKE_dsp_nancheck, - LAPACKE_dsp_trans, - LAPACKE_dst_nancheck, - LAPACKE_dsy_nancheck, - LAPACKE_dsy_trans, - LAPACKE_dtb_nancheck, - LAPACKE_dtb_trans, - LAPACKE_dtf_nancheck, - LAPACKE_dtf_trans, - LAPACKE_dtp_nancheck, - LAPACKE_dtp_trans, - LAPACKE_dtr_nancheck, - LAPACKE_dtr_trans, - LAPACKE_dbbcsd, - LAPACKE_dbbcsd_work, - LAPACKE_dbdsdc, - LAPACKE_dbdsdc_work, - LAPACKE_dbdsqr, - LAPACKE_dbdsqr_work, - LAPACKE_ddisna, - LAPACKE_ddisna_work, - LAPACKE_dgbbrd, - LAPACKE_dgbbrd_work, - LAPACKE_dgbcon, - LAPACKE_dgbcon_work, - LAPACKE_dgbequ, - LAPACKE_dgbequ_work, - LAPACKE_dgbequb, - LAPACKE_dgbequb_work, - LAPACKE_dgbrfs, - LAPACKE_dgbrfs_work, - LAPACKE_dgbsv, - LAPACKE_dgbsv_work, - LAPACKE_dgbsvx, - LAPACKE_dgbsvx_work, - LAPACKE_dgbtrf, - LAPACKE_dgbtrf_work, - LAPACKE_dgbtrs, - LAPACKE_dgbtrs_work, - LAPACKE_dgebak, - LAPACKE_dgebak_work, - LAPACKE_dgebal, - LAPACKE_dgebal_work, - LAPACKE_dgebrd, - LAPACKE_dgebrd_work, - LAPACKE_dgecon, - LAPACKE_dgecon_work, - LAPACKE_dgeequ, - LAPACKE_dgeequ_work, - LAPACKE_dgeequb, - LAPACKE_dgeequb_work, - LAPACKE_dgees, - LAPACKE_dgees_work, - LAPACKE_dgeesx, - LAPACKE_dgeesx_work, - LAPACKE_dgeev, - LAPACKE_dgeev_work, - LAPACKE_dgeevx, - LAPACKE_dgeevx_work, - LAPACKE_dgehrd, - LAPACKE_dgehrd_work, - LAPACKE_dgejsv, - LAPACKE_dgejsv_work, - LAPACKE_dgelq2, - LAPACKE_dgelq2_work, - LAPACKE_dgelqf, - LAPACKE_dgelqf_work, - LAPACKE_dgels, - LAPACKE_dgels_work, - LAPACKE_dgelsd, - LAPACKE_dgelsd_work, - LAPACKE_dgelss, - LAPACKE_dgelss_work, - LAPACKE_dgelsy, - LAPACKE_dgelsy_work, - LAPACKE_dgemqrt, - LAPACKE_dgemqrt_work, - LAPACKE_dgeqlf, - LAPACKE_dgeqlf_work, - LAPACKE_dgeqp3, - LAPACKE_dgeqp3_work, - LAPACKE_dgeqr2, - LAPACKE_dgeqr2_work, - LAPACKE_dgeqrf, - LAPACKE_dgeqrf_work, - LAPACKE_dgeqrfp, - LAPACKE_dgeqrfp_work, - LAPACKE_dgeqrt, - LAPACKE_dgeqrt2, - LAPACKE_dgeqrt2_work, - LAPACKE_dgeqrt3, - LAPACKE_dgeqrt3_work, - LAPACKE_dgeqrt_work, - LAPACKE_dgerfs, - LAPACKE_dgerfs_work, - LAPACKE_dgerqf, - LAPACKE_dgerqf_work, - LAPACKE_dgesdd, - LAPACKE_dgesdd_work, - LAPACKE_dgesv, - LAPACKE_dgesv_work, - LAPACKE_dgesvd, - LAPACKE_dgesvd_work, - LAPACKE_dgesvj, - LAPACKE_dgesvj_work, - LAPACKE_dgesvx, - LAPACKE_dgesvx_work, - LAPACKE_dgetf2, - LAPACKE_dgetf2_work, - LAPACKE_dgetrf, - LAPACKE_dgetrf_work, - LAPACKE_dgetri, - LAPACKE_dgetri_work, - LAPACKE_dgetrs, - LAPACKE_dgetrs_work, - LAPACKE_dggbak, - LAPACKE_dggbak_work, - LAPACKE_dggbal, - LAPACKE_dggbal_work, - LAPACKE_dgges, - LAPACKE_dgges_work, - LAPACKE_dggesx, - LAPACKE_dggesx_work, - LAPACKE_dggev, - LAPACKE_dggev_work, - LAPACKE_dggevx, - LAPACKE_dggevx_work, - LAPACKE_dggglm, - LAPACKE_dggglm_work, - LAPACKE_dgghrd, - LAPACKE_dgghrd_work, - LAPACKE_dgglse, - LAPACKE_dgglse_work, - LAPACKE_dggqrf, - LAPACKE_dggqrf_work, - LAPACKE_dggrqf, - LAPACKE_dggrqf_work, - LAPACKE_dgtcon, - LAPACKE_dgtcon_work, - LAPACKE_dgtrfs, - LAPACKE_dgtrfs_work, - LAPACKE_dgtsv, - LAPACKE_dgtsv_work, - LAPACKE_dgtsvx, - LAPACKE_dgtsvx_work, - LAPACKE_dgttrf, - LAPACKE_dgttrf_work, - LAPACKE_dgttrs, - LAPACKE_dgttrs_work, - LAPACKE_dhgeqz, - LAPACKE_dhgeqz_work, - LAPACKE_dhsein, - LAPACKE_dhsein_work, - LAPACKE_dhseqr, - LAPACKE_dhseqr_work, - LAPACKE_dlacn2, - LAPACKE_dlacn2_work, - LAPACKE_dlacpy, - LAPACKE_dlacpy_work, - LAPACKE_dlag2s, - LAPACKE_dlag2s_work, - LAPACKE_dlamch, - LAPACKE_dlamch_work, - LAPACKE_dlange, - LAPACKE_dlange_work, - LAPACKE_dlansy, - LAPACKE_dlansy_work, - LAPACKE_dlantr, - LAPACKE_dlantr_work, - LAPACKE_dlapmr, - LAPACKE_dlapmr_work, - LAPACKE_dlapy2, - LAPACKE_dlapy2_work, - LAPACKE_dlapy3, - LAPACKE_dlapy3_work, - LAPACKE_dlarfb, - LAPACKE_dlarfb_work, - LAPACKE_dlarfg, - LAPACKE_dlarfg_work, - LAPACKE_dlarft, - LAPACKE_dlarft_work, - LAPACKE_dlarfx, - LAPACKE_dlarfx_work, - LAPACKE_dlarnv, - LAPACKE_dlarnv_work, - LAPACKE_dlartgp, - LAPACKE_dlartgp_work, - LAPACKE_dlartgs, - LAPACKE_dlartgs_work, - LAPACKE_dlaset, - LAPACKE_dlaset_work, - LAPACKE_dlasrt, - LAPACKE_dlasrt_work, - LAPACKE_dlaswp, - LAPACKE_dlaswp_work, - LAPACKE_dlauum, - LAPACKE_dlauum_work, - LAPACKE_dopgtr, - LAPACKE_dopgtr_work, - LAPACKE_dopmtr, - LAPACKE_dopmtr_work, - LAPACKE_dorbdb, - LAPACKE_dorbdb_work, - LAPACKE_dorcsd, - LAPACKE_dorcsd_work, - LAPACKE_dorgbr, - LAPACKE_dorgbr_work, - LAPACKE_dorghr, - LAPACKE_dorghr_work, - LAPACKE_dorglq, - LAPACKE_dorglq_work, - LAPACKE_dorgql, - LAPACKE_dorgql_work, - LAPACKE_dorgqr, - LAPACKE_dorgqr_work, - LAPACKE_dorgrq, - LAPACKE_dorgrq_work, - LAPACKE_dorgtr, - LAPACKE_dorgtr_work, - LAPACKE_dormbr, - LAPACKE_dormbr_work, - LAPACKE_dormhr, - LAPACKE_dormhr_work, - LAPACKE_dormlq, - LAPACKE_dormlq_work, - LAPACKE_dormql, - LAPACKE_dormql_work, - LAPACKE_dormqr, - LAPACKE_dormqr_work, - LAPACKE_dormrq, - LAPACKE_dormrq_work, - LAPACKE_dormrz, - LAPACKE_dormrz_work, - LAPACKE_dormtr, - LAPACKE_dormtr_work, - LAPACKE_dpbcon, - LAPACKE_dpbcon_work, - LAPACKE_dpbequ, - LAPACKE_dpbequ_work, - LAPACKE_dpbrfs, - LAPACKE_dpbrfs_work, - LAPACKE_dpbstf, - LAPACKE_dpbstf_work, - LAPACKE_dpbsv, - LAPACKE_dpbsv_work, - LAPACKE_dpbsvx, - LAPACKE_dpbsvx_work, - LAPACKE_dpbtrf, - LAPACKE_dpbtrf_work, - LAPACKE_dpbtrs, - LAPACKE_dpbtrs_work, - LAPACKE_dpftrf, - LAPACKE_dpftrf_work, - LAPACKE_dpftri, - LAPACKE_dpftri_work, - LAPACKE_dpftrs, - LAPACKE_dpftrs_work, - LAPACKE_dpocon, - LAPACKE_dpocon_work, - LAPACKE_dpoequ, - LAPACKE_dpoequ_work, - LAPACKE_dpoequb, - LAPACKE_dpoequb_work, - LAPACKE_dporfs, - LAPACKE_dporfs_work, - LAPACKE_dposv, - LAPACKE_dposv_work, - LAPACKE_dposvx, - LAPACKE_dposvx_work, - LAPACKE_dpotrf, - LAPACKE_dpotrf_work, - LAPACKE_dpotri, - LAPACKE_dpotri_work, - LAPACKE_dpotrs, - LAPACKE_dpotrs_work, - LAPACKE_dppcon, - LAPACKE_dppcon_work, - LAPACKE_dppequ, - LAPACKE_dppequ_work, - LAPACKE_dpprfs, - LAPACKE_dpprfs_work, - LAPACKE_dppsv, - LAPACKE_dppsv_work, - LAPACKE_dppsvx, - LAPACKE_dppsvx_work, - LAPACKE_dpptrf, - LAPACKE_dpptrf_work, - LAPACKE_dpptri, - LAPACKE_dpptri_work, - LAPACKE_dpptrs, - LAPACKE_dpptrs_work, - LAPACKE_dpstrf, - LAPACKE_dpstrf_work, - LAPACKE_dptcon, - LAPACKE_dptcon_work, - LAPACKE_dpteqr, - LAPACKE_dpteqr_work, - LAPACKE_dptrfs, - LAPACKE_dptrfs_work, - LAPACKE_dptsv, - LAPACKE_dptsv_work, - LAPACKE_dptsvx, - LAPACKE_dptsvx_work, - LAPACKE_dpttrf, - LAPACKE_dpttrf_work, - LAPACKE_dpttrs, - LAPACKE_dpttrs_work, - LAPACKE_dsbev, - LAPACKE_dsbev_work, - LAPACKE_dsbevd, - LAPACKE_dsbevd_work, - LAPACKE_dsbevx, - LAPACKE_dsbevx_work, - LAPACKE_dsbgst, - LAPACKE_dsbgst_work, - LAPACKE_dsbgv, - LAPACKE_dsbgv_work, - LAPACKE_dsbgvd, - LAPACKE_dsbgvd_work, - LAPACKE_dsbgvx, - LAPACKE_dsbgvx_work, - LAPACKE_dsbtrd, - LAPACKE_dsbtrd_work, - LAPACKE_dsfrk, - LAPACKE_dsfrk_work, - LAPACKE_dsgesv, - LAPACKE_dsgesv_work, - LAPACKE_dspcon, - LAPACKE_dspcon_work, - LAPACKE_dspev, - LAPACKE_dspev_work, - LAPACKE_dspevd, - LAPACKE_dspevd_work, - LAPACKE_dspevx, - LAPACKE_dspevx_work, - LAPACKE_dspgst, - LAPACKE_dspgst_work, - LAPACKE_dspgv, - LAPACKE_dspgv_work, - LAPACKE_dspgvd, - LAPACKE_dspgvd_work, - LAPACKE_dspgvx, - LAPACKE_dspgvx_work, - LAPACKE_dsposv, - LAPACKE_dsposv_work, - LAPACKE_dsprfs, - LAPACKE_dsprfs_work, - LAPACKE_dspsv, - LAPACKE_dspsv_work, - LAPACKE_dspsvx, - LAPACKE_dspsvx_work, - LAPACKE_dsptrd, - LAPACKE_dsptrd_work, - LAPACKE_dsptrf, - LAPACKE_dsptrf_work, - LAPACKE_dsptri, - LAPACKE_dsptri_work, - LAPACKE_dsptrs, - LAPACKE_dsptrs_work, - LAPACKE_dstebz, - LAPACKE_dstebz_work, - LAPACKE_dstedc, - LAPACKE_dstedc_work, - LAPACKE_dstegr, - LAPACKE_dstegr_work, - LAPACKE_dstein, - LAPACKE_dstein_work, - LAPACKE_dstemr, - LAPACKE_dstemr_work, - LAPACKE_dsteqr, - LAPACKE_dsteqr_work, - LAPACKE_dsterf, - LAPACKE_dsterf_work, - LAPACKE_dstev, - LAPACKE_dstev_work, - LAPACKE_dstevd, - LAPACKE_dstevd_work, - LAPACKE_dstevr, - LAPACKE_dstevr_work, - LAPACKE_dstevx, - LAPACKE_dstevx_work, - LAPACKE_dsycon, - LAPACKE_dsycon_work, - LAPACKE_dsyconv, - LAPACKE_dsyconv_work, - LAPACKE_dsyequb, - LAPACKE_dsyequb_work, - LAPACKE_dsyev, - LAPACKE_dsyev_work, - LAPACKE_dsyevd, - LAPACKE_dsyevd_work, - LAPACKE_dsyevr, - LAPACKE_dsyevr_work, - LAPACKE_dsyevx, - LAPACKE_dsyevx_work, - LAPACKE_dsygst, - LAPACKE_dsygst_work, - LAPACKE_dsygv, - LAPACKE_dsygv_work, - LAPACKE_dsygvd, - LAPACKE_dsygvd_work, - LAPACKE_dsygvx, - LAPACKE_dsygvx_work, - LAPACKE_dsyrfs, - LAPACKE_dsyrfs_work, - LAPACKE_dsysv, - LAPACKE_dsysv_rook, - LAPACKE_dsysv_rook_work, - LAPACKE_dsysv_work, - LAPACKE_dsysvx, - LAPACKE_dsysvx_work, - LAPACKE_dsyswapr, - LAPACKE_dsyswapr_work, - LAPACKE_dsytrd, - LAPACKE_dsytrd_work, - LAPACKE_dsytrf, - LAPACKE_dsytrf_work, - LAPACKE_dsytri, - LAPACKE_dsytri2, - LAPACKE_dsytri2_work, - LAPACKE_dsytri2x, - LAPACKE_dsytri2x_work, - LAPACKE_dsytri_work, - LAPACKE_dsytrs, - LAPACKE_dsytrs2, - LAPACKE_dsytrs2_work, - LAPACKE_dsytrs_work, - LAPACKE_dtbcon, - LAPACKE_dtbcon_work, - LAPACKE_dtbrfs, - LAPACKE_dtbrfs_work, - LAPACKE_dtbtrs, - LAPACKE_dtbtrs_work, - LAPACKE_dtfsm, - LAPACKE_dtfsm_work, - LAPACKE_dtftri, - LAPACKE_dtftri_work, - LAPACKE_dtfttp, - LAPACKE_dtfttp_work, - LAPACKE_dtfttr, - LAPACKE_dtfttr_work, - LAPACKE_dtgevc, - LAPACKE_dtgevc_work, - LAPACKE_dtgexc, - LAPACKE_dtgexc_work, - LAPACKE_dtgsen, - LAPACKE_dtgsen_work, - LAPACKE_dtgsja, - LAPACKE_dtgsja_work, - LAPACKE_dtgsna, - LAPACKE_dtgsna_work, - LAPACKE_dtgsyl, - LAPACKE_dtgsyl_work, - LAPACKE_dtpcon, - LAPACKE_dtpcon_work, - LAPACKE_dtpmqrt, - LAPACKE_dtpmqrt_work, - LAPACKE_dtpqrt, - LAPACKE_dtpqrt2, - LAPACKE_dtpqrt2_work, - LAPACKE_dtpqrt_work, - LAPACKE_dtprfb, - LAPACKE_dtprfb_work, - LAPACKE_dtprfs, - LAPACKE_dtprfs_work, - LAPACKE_dtptri, - LAPACKE_dtptri_work, - LAPACKE_dtptrs, - LAPACKE_dtptrs_work, - LAPACKE_dtpttf, - LAPACKE_dtpttf_work, - LAPACKE_dtpttr, - LAPACKE_dtpttr_work, - LAPACKE_dtrcon, - LAPACKE_dtrcon_work, - LAPACKE_dtrevc, - LAPACKE_dtrevc_work, - LAPACKE_dtrexc, - LAPACKE_dtrexc_work, - LAPACKE_dtrrfs, - LAPACKE_dtrrfs_work, - LAPACKE_dtrsen, - LAPACKE_dtrsen_work, - LAPACKE_dtrsna, - LAPACKE_dtrsna_work, - LAPACKE_dtrsyl, - LAPACKE_dtrsyl_work, - LAPACKE_dtrtri, - LAPACKE_dtrtri_work, - LAPACKE_dtrtrs, - LAPACKE_dtrtrs_work, - LAPACKE_dtrttf, - LAPACKE_dtrttf_work, - LAPACKE_dtrttp, - LAPACKE_dtrttp_work, - LAPACKE_dtzrzf, - LAPACKE_dtzrzf_work, - LAPACKE_dlatms, - LAPACKE_dlatms_work, - LAPACKE_dlagge, - LAPACKE_dlagge_work, - LAPACKE_dlagsy, - LAPACKE_dlagsy_work, - LAPACKE_dbdsvdx, - LAPACKE_dbdsvdx_work, - LAPACKE_dgesvdx, - LAPACKE_dgesvdx_work, - LAPACKE_dgetrf2, - LAPACKE_dgetrf2_work, - LAPACKE_dgges3, - LAPACKE_dgges3_work, - LAPACKE_dggev3, - LAPACKE_dggev3_work, - LAPACKE_dgghd3, - LAPACKE_dgghd3_work, - LAPACKE_dggsvd3, - LAPACKE_dggsvd3_work, - LAPACKE_dggsvp3, - LAPACKE_dggsvp3_work, - LAPACKE_dlapmt, - LAPACKE_dlapmt_work, - LAPACKE_dlascl, - LAPACKE_dlascl_work, - LAPACKE_dorcsd2by1, - LAPACKE_dorcsd2by1_work, - LAPACKE_dpotrf2, - LAPACKE_dpotrf2_work, - LAPACKE_dsytrf_rook, - LAPACKE_dsytrf_rook_work, - LAPACKE_dsytrs_rook, - LAPACKE_dsytrs_rook_work, - LAPACKE_dgelq, - LAPACKE_dgelq_work, - LAPACKE_dgemlq, - LAPACKE_dgemlq_work, - LAPACKE_dgemqr, - LAPACKE_dgemqr_work, - LAPACKE_dgeqr, - LAPACKE_dgeqr_work, - LAPACKE_dgetsls, - LAPACKE_dgetsls_work, - LAPACKE_dsbev_2stage, - LAPACKE_dsbev_2stage_work, - LAPACKE_dsbevd_2stage, - LAPACKE_dsbevd_2stage_work, - LAPACKE_dsbevx_2stage, - LAPACKE_dsbevx_2stage_work, - LAPACKE_dsycon_3, - LAPACKE_dsycon_3_work, - LAPACKE_dsyev_2stage, - LAPACKE_dsyev_2stage_work, - LAPACKE_dsyevd_2stage, - LAPACKE_dsyevd_2stage_work, - LAPACKE_dsyevr_2stage, - LAPACKE_dsyevr_2stage_work, - LAPACKE_dsyevx_2stage, - LAPACKE_dsyevx_2stage_work, - LAPACKE_dsygv_2stage, - LAPACKE_dsygv_2stage_work, - LAPACKE_dsysv_aa, - LAPACKE_dsysv_aa_work, - LAPACKE_dsysv_rk, - LAPACKE_dsysv_rk_work, - LAPACKE_dsytrf_aa, - LAPACKE_dsytrf_aa_work, - LAPACKE_dsytrf_rk, - LAPACKE_dsytrf_rk_work, - LAPACKE_dsytri_3, - LAPACKE_dsytri_3_work, - LAPACKE_dsytrs_aa, - LAPACKE_dsytrs_aa_work, - LAPACKE_dsytrs_3, - LAPACKE_dsytrs_3_work, - LAPACKE_dlassq, - LAPACKE_dlassq_work, - LAPACKE_dsysv_aa_2stage, - LAPACKE_dsysv_aa_2stage_work, - LAPACKE_dsytrf_aa_2stage, - LAPACKE_dsytrf_aa_2stage_work, - LAPACKE_dsytrs_aa_2stage, - LAPACKE_dsytrs_aa_2stage_work, - LAPACKE_dgesvdq, - LAPACKE_dgesvdq_work, - LAPACKE_slag2d, - LAPACKE_slag2d_work, -); -@lapackeobjss = ( - LAPACKE_sgb_nancheck, - LAPACKE_sgb_trans, - LAPACKE_sge_nancheck, - LAPACKE_sge_trans, - LAPACKE_sgg_nancheck, - LAPACKE_sgg_trans, - LAPACKE_sgt_nancheck, - LAPACKE_shs_nancheck, - LAPACKE_shs_trans, - LAPACKE_s_nancheck, - LAPACKE_spb_nancheck, - LAPACKE_spb_trans, - LAPACKE_spf_nancheck, - LAPACKE_spf_trans, - LAPACKE_spo_nancheck, - LAPACKE_spo_trans, - LAPACKE_spp_nancheck, - LAPACKE_spp_trans, - LAPACKE_spt_nancheck, - LAPACKE_ssb_nancheck, - LAPACKE_ssb_trans, - LAPACKE_ssp_nancheck, - LAPACKE_ssp_trans, - LAPACKE_sst_nancheck, - LAPACKE_ssy_nancheck, - LAPACKE_ssy_trans, - LAPACKE_stb_nancheck, - LAPACKE_stb_trans, - LAPACKE_stf_nancheck, - LAPACKE_stf_trans, - LAPACKE_stp_nancheck, - LAPACKE_stp_trans, - LAPACKE_str_nancheck, - LAPACKE_str_trans, - LAPACKE_sbbcsd, - LAPACKE_sbbcsd_work, - LAPACKE_sbdsdc, - LAPACKE_sbdsdc_work, - LAPACKE_sbdsqr, - LAPACKE_sbdsqr_work, - LAPACKE_sdisna, - LAPACKE_sdisna_work, - LAPACKE_sgbbrd, - LAPACKE_sgbbrd_work, - LAPACKE_sgbcon, - LAPACKE_sgbcon_work, - LAPACKE_sgbequ, - LAPACKE_sgbequ_work, - LAPACKE_sgbequb, - LAPACKE_sgbequb_work, - LAPACKE_sgbrfs, - LAPACKE_sgbrfs_work, - LAPACKE_sgbsv, - LAPACKE_sgbsv_work, - LAPACKE_sgbsvx, - LAPACKE_sgbsvx_work, - LAPACKE_sgbtrf, - LAPACKE_sgbtrf_work, - LAPACKE_sgbtrs, - LAPACKE_sgbtrs_work, - LAPACKE_sgebak, - LAPACKE_sgebak_work, - LAPACKE_sgebal, - LAPACKE_sgebal_work, - LAPACKE_sgebrd, - LAPACKE_sgebrd_work, - LAPACKE_sgecon, - LAPACKE_sgecon_work, - LAPACKE_sgeequ, - LAPACKE_sgeequ_work, - LAPACKE_sgeequb, - LAPACKE_sgeequb_work, - LAPACKE_sgees, - LAPACKE_sgees_work, - LAPACKE_sgeesx, - LAPACKE_sgeesx_work, - LAPACKE_sgeev, - LAPACKE_sgeev_work, - LAPACKE_sgeevx, - LAPACKE_sgeevx_work, - LAPACKE_sgehrd, - LAPACKE_sgehrd_work, - LAPACKE_sgejsv, - LAPACKE_sgejsv_work, - LAPACKE_sgelq2, - LAPACKE_sgelq2_work, - LAPACKE_sgelqf, - LAPACKE_sgelqf_work, - LAPACKE_sgels, - LAPACKE_sgels_work, - LAPACKE_sgelsd, - LAPACKE_sgelsd_work, - LAPACKE_sgelss, - LAPACKE_sgelss_work, - LAPACKE_sgelsy, - LAPACKE_sgelsy_work, - LAPACKE_sgemqrt, - LAPACKE_sgemqrt_work, - LAPACKE_sgeqlf, - LAPACKE_sgeqlf_work, - LAPACKE_sgeqp3, - LAPACKE_sgeqp3_work, - LAPACKE_sgeqr2, - LAPACKE_sgeqr2_work, - LAPACKE_sgeqrf, - LAPACKE_sgeqrf_work, - LAPACKE_sgeqrfp, - LAPACKE_sgeqrfp_work, - LAPACKE_sgeqrt, - LAPACKE_sgeqrt2, - LAPACKE_sgeqrt2_work, - LAPACKE_sgeqrt3, - LAPACKE_sgeqrt3_work, - LAPACKE_sgeqrt_work, - LAPACKE_sgerfs, - LAPACKE_sgerfs_work, - LAPACKE_sgerqf, - LAPACKE_sgerqf_work, - LAPACKE_sgesdd, - LAPACKE_sgesdd_work, - LAPACKE_sgesv, - LAPACKE_sgesv_work, - LAPACKE_sgesvd, - LAPACKE_sgesvd_work, - LAPACKE_sgesvj, - LAPACKE_sgesvj_work, - LAPACKE_sgesvx, - LAPACKE_sgesvx_work, - LAPACKE_sgetf2, - LAPACKE_sgetf2_work, - LAPACKE_sgetrf, - LAPACKE_sgetrf_work, - LAPACKE_sgetri, - LAPACKE_sgetri_work, - LAPACKE_sgetrs, - LAPACKE_sgetrs_work, - LAPACKE_sggbak, - LAPACKE_sggbak_work, - LAPACKE_sggbal, - LAPACKE_sggbal_work, - LAPACKE_sgges, - LAPACKE_sgges_work, - LAPACKE_sggesx, - LAPACKE_sggesx_work, - LAPACKE_sggev, - LAPACKE_sggev_work, - LAPACKE_sggevx, - LAPACKE_sggevx_work, - LAPACKE_sggglm, - LAPACKE_sggglm_work, - LAPACKE_sgghrd, - LAPACKE_sgghrd_work, - LAPACKE_sgglse, - LAPACKE_sgglse_work, - LAPACKE_sggqrf, - LAPACKE_sggqrf_work, - LAPACKE_sggrqf, - LAPACKE_sggrqf_work, - LAPACKE_sgtcon, - LAPACKE_sgtcon_work, - LAPACKE_sgtrfs, - LAPACKE_sgtrfs_work, - LAPACKE_sgtsv, - LAPACKE_sgtsv_work, - LAPACKE_sgtsvx, - LAPACKE_sgtsvx_work, - LAPACKE_sgttrf, - LAPACKE_sgttrf_work, - LAPACKE_sgttrs, - LAPACKE_sgttrs_work, - LAPACKE_shgeqz, - LAPACKE_shgeqz_work, - LAPACKE_shsein, - LAPACKE_shsein_work, - LAPACKE_shseqr, - LAPACKE_shseqr_work, - LAPACKE_slacn2, - LAPACKE_slacn2_work, - LAPACKE_slacpy, - LAPACKE_slacpy_work, - LAPACKE_slamch, - LAPACKE_slamch_work, - LAPACKE_slange, - LAPACKE_slange_work, - LAPACKE_slansy, - LAPACKE_slansy_work, - LAPACKE_slantr, - LAPACKE_slantr_work, - LAPACKE_slapmr, - LAPACKE_slapmr_work, - LAPACKE_slapy2, - LAPACKE_slapy2_work, - LAPACKE_slapy3, - LAPACKE_slapy3_work, - LAPACKE_slarfb, - LAPACKE_slarfb_work, - LAPACKE_slarfg, - LAPACKE_slarfg_work, - LAPACKE_slarft, - LAPACKE_slarft_work, - LAPACKE_slarfx, - LAPACKE_slarfx_work, - LAPACKE_slarnv, - LAPACKE_slarnv_work, - LAPACKE_slartgp, - LAPACKE_slartgp_work, - LAPACKE_slartgs, - LAPACKE_slartgs_work, - LAPACKE_slaset, - LAPACKE_slaset_work, - LAPACKE_slasrt, - LAPACKE_slasrt_work, - LAPACKE_slaswp, - LAPACKE_slaswp_work, - LAPACKE_slauum, - LAPACKE_slauum_work, - LAPACKE_sopgtr, - LAPACKE_sopgtr_work, - LAPACKE_sopmtr, - LAPACKE_sopmtr_work, - LAPACKE_sorbdb, - LAPACKE_sorbdb_work, - LAPACKE_sorcsd, - LAPACKE_sorcsd_work, - LAPACKE_sorgbr, - LAPACKE_sorgbr_work, - LAPACKE_sorghr, - LAPACKE_sorghr_work, - LAPACKE_sorglq, - LAPACKE_sorglq_work, - LAPACKE_sorgql, - LAPACKE_sorgql_work, - LAPACKE_sorgqr, - LAPACKE_sorgqr_work, - LAPACKE_sorgrq, - LAPACKE_sorgrq_work, - LAPACKE_sorgtr, - LAPACKE_sorgtr_work, - LAPACKE_sormbr, - LAPACKE_sormbr_work, - LAPACKE_sormhr, - LAPACKE_sormhr_work, - LAPACKE_sormlq, - LAPACKE_sormlq_work, - LAPACKE_sormql, - LAPACKE_sormql_work, - LAPACKE_sormqr, - LAPACKE_sormqr_work, - LAPACKE_sormrq, - LAPACKE_sormrq_work, - LAPACKE_sormrz, - LAPACKE_sormrz_work, - LAPACKE_sormtr, - LAPACKE_sormtr_work, - LAPACKE_spbcon, - LAPACKE_spbcon_work, - LAPACKE_spbequ, - LAPACKE_spbequ_work, - LAPACKE_spbrfs, - LAPACKE_spbrfs_work, - LAPACKE_spbstf, - LAPACKE_spbstf_work, - LAPACKE_spbsv, - LAPACKE_spbsv_work, - LAPACKE_spbsvx, - LAPACKE_spbsvx_work, - LAPACKE_spbtrf, - LAPACKE_spbtrf_work, - LAPACKE_spbtrs, - LAPACKE_spbtrs_work, - LAPACKE_spftrf, - LAPACKE_spftrf_work, - LAPACKE_spftri, - LAPACKE_spftri_work, - LAPACKE_spftrs, - LAPACKE_spftrs_work, - LAPACKE_spocon, - LAPACKE_spocon_work, - LAPACKE_spoequ, - LAPACKE_spoequ_work, - LAPACKE_spoequb, - LAPACKE_spoequb_work, - LAPACKE_sporfs, - LAPACKE_sporfs_work, - LAPACKE_sposv, - LAPACKE_sposv_work, - LAPACKE_sposvx, - LAPACKE_sposvx_work, - LAPACKE_spotrf, - LAPACKE_spotrf_work, - LAPACKE_spotri, - LAPACKE_spotri_work, - LAPACKE_spotrs, - LAPACKE_spotrs_work, - LAPACKE_sppcon, - LAPACKE_sppcon_work, - LAPACKE_sppequ, - LAPACKE_sppequ_work, - LAPACKE_spprfs, - LAPACKE_spprfs_work, - LAPACKE_sppsv, - LAPACKE_sppsv_work, - LAPACKE_sppsvx, - LAPACKE_sppsvx_work, - LAPACKE_spptrf, - LAPACKE_spptrf_work, - LAPACKE_spptri, - LAPACKE_spptri_work, - LAPACKE_spptrs, - LAPACKE_spptrs_work, - LAPACKE_spstrf, - LAPACKE_spstrf_work, - LAPACKE_sptcon, - LAPACKE_sptcon_work, - LAPACKE_spteqr, - LAPACKE_spteqr_work, - LAPACKE_sptrfs, - LAPACKE_sptrfs_work, - LAPACKE_sptsv, - LAPACKE_sptsv_work, - LAPACKE_sptsvx, - LAPACKE_sptsvx_work, - LAPACKE_spttrf, - LAPACKE_spttrf_work, - LAPACKE_spttrs, - LAPACKE_spttrs_work, - LAPACKE_ssbev, - LAPACKE_ssbev_work, - LAPACKE_ssbevd, - LAPACKE_ssbevd_work, - LAPACKE_ssbevx, - LAPACKE_ssbevx_work, - LAPACKE_ssbgst, - LAPACKE_ssbgst_work, - LAPACKE_ssbgv, - LAPACKE_ssbgv_work, - LAPACKE_ssbgvd, - LAPACKE_ssbgvd_work, - LAPACKE_ssbgvx, - LAPACKE_ssbgvx_work, - LAPACKE_ssbtrd, - LAPACKE_ssbtrd_work, - LAPACKE_ssfrk, - LAPACKE_ssfrk_work, - LAPACKE_sspcon, - LAPACKE_sspcon_work, - LAPACKE_sspev, - LAPACKE_sspev_work, - LAPACKE_sspevd, - LAPACKE_sspevd_work, - LAPACKE_sspevx, - LAPACKE_sspevx_work, - LAPACKE_sspgst, - LAPACKE_sspgst_work, - LAPACKE_sspgv, - LAPACKE_sspgv_work, - LAPACKE_sspgvd, - LAPACKE_sspgvd_work, - LAPACKE_sspgvx, - LAPACKE_sspgvx_work, - LAPACKE_ssprfs, - LAPACKE_ssprfs_work, - LAPACKE_sspsv, - LAPACKE_sspsv_work, - LAPACKE_sspsvx, - LAPACKE_sspsvx_work, - LAPACKE_ssptrd, - LAPACKE_ssptrd_work, - LAPACKE_ssptrf, - LAPACKE_ssptrf_work, - LAPACKE_ssptri, - LAPACKE_ssptri_work, - LAPACKE_ssptrs, - LAPACKE_ssptrs_work, - LAPACKE_sstebz, - LAPACKE_sstebz_work, - LAPACKE_sstedc, - LAPACKE_sstedc_work, - LAPACKE_sstegr, - LAPACKE_sstegr_work, - LAPACKE_sstein, - LAPACKE_sstein_work, - LAPACKE_sstemr, - LAPACKE_sstemr_work, - LAPACKE_ssteqr, - LAPACKE_ssteqr_work, - LAPACKE_ssterf, - LAPACKE_ssterf_work, - LAPACKE_sstev, - LAPACKE_sstev_work, - LAPACKE_sstevd, - LAPACKE_sstevd_work, - LAPACKE_sstevr, - LAPACKE_sstevr_work, - LAPACKE_sstevx, - LAPACKE_sstevx_work, - LAPACKE_ssycon, - LAPACKE_ssycon_work, - LAPACKE_ssyconv, - LAPACKE_ssyconv_work, - LAPACKE_ssyequb, - LAPACKE_ssyequb_work, - LAPACKE_ssyev, - LAPACKE_ssyev_work, - LAPACKE_ssyevd, - LAPACKE_ssyevd_work, - LAPACKE_ssyevr, - LAPACKE_ssyevr_work, - LAPACKE_ssyevx, - LAPACKE_ssyevx_work, - LAPACKE_ssygst, - LAPACKE_ssygst_work, - LAPACKE_ssygv, - LAPACKE_ssygv_work, - LAPACKE_ssygvd, - LAPACKE_ssygvd_work, - LAPACKE_ssygvx, - LAPACKE_ssygvx_work, - LAPACKE_ssyrfs, - LAPACKE_ssyrfs_work, - LAPACKE_ssysv, - LAPACKE_ssysv_rook, - LAPACKE_ssysv_rook_work, - LAPACKE_ssysv_work, - LAPACKE_ssysvx, - LAPACKE_ssysvx_work, - LAPACKE_ssyswapr, - LAPACKE_ssyswapr_work, - LAPACKE_ssytrd, - LAPACKE_ssytrd_work, - LAPACKE_ssytrf, - LAPACKE_ssytrf_work, - LAPACKE_ssytri, - LAPACKE_ssytri2, - LAPACKE_ssytri2_work, - LAPACKE_ssytri2x, - LAPACKE_ssytri2x_work, - LAPACKE_ssytri_work, - LAPACKE_ssytrs, - LAPACKE_ssytrs2, - LAPACKE_ssytrs2_work, - LAPACKE_ssytrs_work, - LAPACKE_stbcon, - LAPACKE_stbcon_work, - LAPACKE_stbrfs, - LAPACKE_stbrfs_work, - LAPACKE_stbtrs, - LAPACKE_stbtrs_work, - LAPACKE_stfsm, - LAPACKE_stfsm_work, - LAPACKE_stftri, - LAPACKE_stftri_work, - LAPACKE_stfttp, - LAPACKE_stfttp_work, - LAPACKE_stfttr, - LAPACKE_stfttr_work, - LAPACKE_stgevc, - LAPACKE_stgevc_work, - LAPACKE_stgexc, - LAPACKE_stgexc_work, - LAPACKE_stgsen, - LAPACKE_stgsen_work, - LAPACKE_stgsja, - LAPACKE_stgsja_work, - LAPACKE_stgsna, - LAPACKE_stgsna_work, - LAPACKE_stgsyl, - LAPACKE_stgsyl_work, - LAPACKE_stpcon, - LAPACKE_stpcon_work, - LAPACKE_stpmqrt, - LAPACKE_stpmqrt_work, - LAPACKE_stpqrt2, - LAPACKE_stpqrt2_work, - LAPACKE_stprfb, - LAPACKE_stprfb_work, - LAPACKE_stprfs, - LAPACKE_stprfs_work, - LAPACKE_stptri, - LAPACKE_stptri_work, - LAPACKE_stptrs, - LAPACKE_stptrs_work, - LAPACKE_stpttf, - LAPACKE_stpttf_work, - LAPACKE_stpttr, - LAPACKE_stpttr_work, - LAPACKE_strcon, - LAPACKE_strcon_work, - LAPACKE_strevc, - LAPACKE_strevc_work, - LAPACKE_strexc, - LAPACKE_strexc_work, - LAPACKE_strrfs, - LAPACKE_strrfs_work, - LAPACKE_strsen, - LAPACKE_strsen_work, - LAPACKE_strsna, - LAPACKE_strsna_work, - LAPACKE_strsyl, - LAPACKE_strsyl_work, - LAPACKE_strtri, - LAPACKE_strtri_work, - LAPACKE_strtrs, - LAPACKE_strtrs_work, - LAPACKE_strttf, - LAPACKE_strttf_work, - LAPACKE_strttp, - LAPACKE_strttp_work, - LAPACKE_stzrzf, - LAPACKE_stzrzf_work, - LAPACKE_slatms, - LAPACKE_slatms_work, - LAPACKE_slagge, - LAPACKE_slagge_work, - LAPACKE_slagsy, - LAPACKE_slagsy_work, - LAPACKE_sbdsvdx, - LAPACKE_sbdsvdx_work, - LAPACKE_sgesvdx, - LAPACKE_sgesvdx_work, - LAPACKE_sgetrf2, - LAPACKE_sgetrf2_work, - LAPACKE_sgges3, - LAPACKE_sgges3_work, - LAPACKE_sggev3, - LAPACKE_sggev3_work, - LAPACKE_sgghd3, - LAPACKE_sgghd3_work, - LAPACKE_sggsvd3, - LAPACKE_sggsvd3_work, - LAPACKE_sggsvp3, - LAPACKE_sggsvp3_work, - LAPACKE_slapmt, - LAPACKE_slapmt_work, - LAPACKE_slascl, - LAPACKE_slascl_work, - LAPACKE_sorcsd2by1, - LAPACKE_sorcsd2by1_work, - LAPACKE_spotrf2, - LAPACKE_spotrf2_work, - LAPACKE_ssytrf_rook, - LAPACKE_ssytrf_rook_work, - LAPACKE_ssytrs_rook, - LAPACKE_ssytrs_rook_work, - LAPACKE_stpqrt, - LAPACKE_stpqrt_work, - LAPACKE_sgelq, - LAPACKE_sgelq_work, - LAPACKE_sgemlq, - LAPACKE_sgemlq_work, - LAPACKE_sgemqr, - LAPACKE_sgemqr_work, - LAPACKE_sgeqr, - LAPACKE_sgeqr_work, - LAPACKE_sgetsls, - LAPACKE_sgetsls_work, - LAPACKE_ssbev_2stage, - LAPACKE_ssbev_2stage_work, - LAPACKE_ssbevd_2stage, - LAPACKE_ssbevd_2stage_work, - LAPACKE_ssbevx_2stage, - LAPACKE_ssbevx_2stage_work, - LAPACKE_ssycon_3, - LAPACKE_ssycon_3_work, - LAPACKE_ssyev_2stage, - LAPACKE_ssyev_2stage_work, - LAPACKE_ssyevd_2stage, - LAPACKE_ssyevd_2stage_work, - LAPACKE_ssyevr_2stage, - LAPACKE_ssyevr_2stage_work, - LAPACKE_ssyevx_2stage, - LAPACKE_ssyevx_2stage_work, - LAPACKE_ssygv_2stage, - LAPACKE_ssygv_2stage_work, - LAPACKE_ssysv_aa, - LAPACKE_ssysv_aa_work, - LAPACKE_ssysv_rk, - LAPACKE_ssysv_rk_work, - LAPACKE_ssytrf_aa, - LAPACKE_ssytrf_aa_work, - LAPACKE_ssytrf_rk, - LAPACKE_ssytrf_rk_work, - LAPACKE_ssytri_3, - LAPACKE_ssytri_3_work, - LAPACKE_ssytrs_aa, - LAPACKE_ssytrs_aa_work, - LAPACKE_ssytrs_3, - LAPACKE_ssytrs_3_work, - LAPACKE_slassq, - LAPACKE_slassq_work, - LAPACKE_ssysv_aa_2stage, - LAPACKE_ssysv_aa_2stage_work, - LAPACKE_ssytrf_aa_2stage, - LAPACKE_ssytrf_aa_2stage_work, - LAPACKE_ssytrs_aa_2stage, - LAPACKE_ssytrs_aa_2stage_work, - LAPACKE_sgesvdq, - LAPACKE_sgesvdq_work, -); -@lapackeobjsz = ( - LAPACKE_zgb_nancheck, - LAPACKE_zgb_trans, - LAPACKE_zge_nancheck, - LAPACKE_zge_trans, - LAPACKE_zgg_nancheck, - LAPACKE_zgg_trans, - LAPACKE_zgt_nancheck, - LAPACKE_zhb_nancheck, - LAPACKE_zhb_trans, - LAPACKE_zhe_nancheck, - LAPACKE_zhe_trans, - LAPACKE_zhp_nancheck, - LAPACKE_zhp_trans, - LAPACKE_zhs_nancheck, - LAPACKE_zhs_trans, - LAPACKE_z_nancheck, - LAPACKE_zpb_nancheck, - LAPACKE_zpb_trans, - LAPACKE_zpf_nancheck, - LAPACKE_zpf_trans, - LAPACKE_zpo_nancheck, - LAPACKE_zpo_trans, - LAPACKE_zpp_nancheck, - LAPACKE_zpp_trans, - LAPACKE_zpt_nancheck, - LAPACKE_zsp_nancheck, - LAPACKE_zsp_trans, - LAPACKE_zst_nancheck, - LAPACKE_zsy_nancheck, - LAPACKE_zsy_trans, - LAPACKE_ztb_nancheck, - LAPACKE_ztb_trans, - LAPACKE_ztf_nancheck, - LAPACKE_ztf_trans, - LAPACKE_ztp_nancheck, - LAPACKE_ztp_trans, - LAPACKE_ztr_nancheck, - LAPACKE_ztr_trans, - LAPACKE_zbbcsd, - LAPACKE_zbbcsd_work, - LAPACKE_zbdsqr, - LAPACKE_zbdsqr_work, - LAPACKE_zcgesv, - LAPACKE_zcgesv_work, - LAPACKE_zcposv, - LAPACKE_zcposv_work, - LAPACKE_zgbbrd, - LAPACKE_zgbbrd_work, - LAPACKE_zgbcon, - LAPACKE_zgbcon_work, - LAPACKE_zgbequ, - LAPACKE_zgbequ_work, - LAPACKE_zgbequb, - LAPACKE_zgbequb_work, - LAPACKE_zgbrfs, - LAPACKE_zgbrfs_work, - LAPACKE_zgbsv, - LAPACKE_zgbsv_work, - LAPACKE_zgbsvx, - LAPACKE_zgbsvx_work, - LAPACKE_zgbtrf, - LAPACKE_zgbtrf_work, - LAPACKE_zgbtrs, - LAPACKE_zgbtrs_work, - LAPACKE_zgebak, - LAPACKE_zgebak_work, - LAPACKE_zgebal, - LAPACKE_zgebal_work, - LAPACKE_zgebrd, - LAPACKE_zgebrd_work, - LAPACKE_zgecon, - LAPACKE_zgecon_work, - LAPACKE_zgeequ, - LAPACKE_zgeequ_work, - LAPACKE_zgeequb, - LAPACKE_zgeequb_work, - LAPACKE_zgees, - LAPACKE_zgees_work, - LAPACKE_zgeesx, - LAPACKE_zgeesx_work, - LAPACKE_zgeev, - LAPACKE_zgeev_work, - LAPACKE_zgeevx, - LAPACKE_zgeevx_work, - LAPACKE_zgehrd, - LAPACKE_zgehrd_work, - LAPACKE_zgelq2, - LAPACKE_zgelq2_work, - LAPACKE_zgelqf, - LAPACKE_zgelqf_work, - LAPACKE_zgels, - LAPACKE_zgels_work, - LAPACKE_zgelsd, - LAPACKE_zgelsd_work, - LAPACKE_zgelss, - LAPACKE_zgelss_work, - LAPACKE_zgelsy, - LAPACKE_zgelsy_work, - LAPACKE_zgemqrt, - LAPACKE_zgemqrt_work, - LAPACKE_zgeqlf, - LAPACKE_zgeqlf_work, - LAPACKE_zgeqp3, - LAPACKE_zgeqp3_work, - LAPACKE_zgeqr2, - LAPACKE_zgeqr2_work, - LAPACKE_zgeqrf, - LAPACKE_zgeqrf_work, - LAPACKE_zgeqrfp, - LAPACKE_zgeqrfp_work, - LAPACKE_zgeqrt, - LAPACKE_zgeqrt2, - LAPACKE_zgeqrt2_work, - LAPACKE_zgeqrt3, - LAPACKE_zgeqrt3_work, - LAPACKE_zgeqrt_work, - LAPACKE_zgerfs, - LAPACKE_zgerfs_work, - LAPACKE_zgerqf, - LAPACKE_zgerqf_work, - LAPACKE_zgesdd, - LAPACKE_zgesdd_work, - LAPACKE_zgesv, - LAPACKE_zgesv_work, - LAPACKE_zgesvd, - LAPACKE_zgesvd_work, - LAPACKE_zgesvx, - LAPACKE_zgesvx_work, - LAPACKE_zgetf2, - LAPACKE_zgetf2_work, - LAPACKE_zgetrf, - LAPACKE_zgetrf_work, - LAPACKE_zgetri, - LAPACKE_zgetri_work, - LAPACKE_zgetrs, - LAPACKE_zgetrs_work, - LAPACKE_zggbak, - LAPACKE_zggbak_work, - LAPACKE_zggbal, - LAPACKE_zggbal_work, - LAPACKE_zgges, - LAPACKE_zgges_work, - LAPACKE_zggesx, - LAPACKE_zggesx_work, - LAPACKE_zggev, - LAPACKE_zggev_work, - LAPACKE_zggevx, - LAPACKE_zggevx_work, - LAPACKE_zggglm, - LAPACKE_zggglm_work, - LAPACKE_zgghrd, - LAPACKE_zgghrd_work, - LAPACKE_zgglse, - LAPACKE_zgglse_work, - LAPACKE_zggqrf, - LAPACKE_zggqrf_work, - LAPACKE_zggrqf, - LAPACKE_zggrqf_work, - LAPACKE_zgtcon, - LAPACKE_zgtcon_work, - LAPACKE_zgtrfs, - LAPACKE_zgtrfs_work, - LAPACKE_zgtsv, - LAPACKE_zgtsv_work, - LAPACKE_zgtsvx, - LAPACKE_zgtsvx_work, - LAPACKE_zgttrf, - LAPACKE_zgttrf_work, - LAPACKE_zgttrs, - LAPACKE_zgttrs_work, - LAPACKE_zhbev, - LAPACKE_zhbev_work, - LAPACKE_zhbevd, - LAPACKE_zhbevd_work, - LAPACKE_zhbevx, - LAPACKE_zhbevx_work, - LAPACKE_zhbgst, - LAPACKE_zhbgst_work, - LAPACKE_zhbgv, - LAPACKE_zhbgv_work, - LAPACKE_zhbgvd, - LAPACKE_zhbgvd_work, - LAPACKE_zhbgvx, - LAPACKE_zhbgvx_work, - LAPACKE_zhbtrd, - LAPACKE_zhbtrd_work, - LAPACKE_zhecon, - LAPACKE_zhecon_work, - LAPACKE_zheequb, - LAPACKE_zheequb_work, - LAPACKE_zheev, - LAPACKE_zheev_work, - LAPACKE_zheevd, - LAPACKE_zheevd_work, - LAPACKE_zheevr, - LAPACKE_zheevr_work, - LAPACKE_zheevx, - LAPACKE_zheevx_work, - LAPACKE_zhegst, - LAPACKE_zhegst_work, - LAPACKE_zhegv, - LAPACKE_zhegv_work, - LAPACKE_zhegvd, - LAPACKE_zhegvd_work, - LAPACKE_zhegvx, - LAPACKE_zhegvx_work, - LAPACKE_zherfs, - LAPACKE_zherfs_work, - LAPACKE_zhesv, - LAPACKE_zhesv_work, - LAPACKE_zhesvx, - LAPACKE_zhesvx_work, - LAPACKE_zheswapr, - LAPACKE_zheswapr_work, - LAPACKE_zhetrd, - LAPACKE_zhetrd_work, - LAPACKE_zhetrf, - LAPACKE_zhetrf_work, - LAPACKE_zhetri, - LAPACKE_zhetri2, - LAPACKE_zhetri2_work, - LAPACKE_zhetri2x, - LAPACKE_zhetri2x_work, - LAPACKE_zhetri_work, - LAPACKE_zhetrs, - LAPACKE_zhetrs2, - LAPACKE_zhetrs2_work, - LAPACKE_zhetrs_work, - LAPACKE_zhfrk, - LAPACKE_zhfrk_work, - LAPACKE_zhgeqz, - LAPACKE_zhgeqz_work, - LAPACKE_zhpcon, - LAPACKE_zhpcon_work, - LAPACKE_zhpev, - LAPACKE_zhpev_work, - LAPACKE_zhpevd, - LAPACKE_zhpevd_work, - LAPACKE_zhpevx, - LAPACKE_zhpevx_work, - LAPACKE_zhpgst, - LAPACKE_zhpgst_work, - LAPACKE_zhpgv, - LAPACKE_zhpgv_work, - LAPACKE_zhpgvd, - LAPACKE_zhpgvd_work, - LAPACKE_zhpgvx, - LAPACKE_zhpgvx_work, - LAPACKE_zhprfs, - LAPACKE_zhprfs_work, - LAPACKE_zhpsv, - LAPACKE_zhpsv_work, - LAPACKE_zhpsvx, - LAPACKE_zhpsvx_work, - LAPACKE_zhptrd, - LAPACKE_zhptrd_work, - LAPACKE_zhptrf, - LAPACKE_zhptrf_work, - LAPACKE_zhptri, - LAPACKE_zhptri_work, - LAPACKE_zhptrs, - LAPACKE_zhptrs_work, - LAPACKE_zhsein, - LAPACKE_zhsein_work, - LAPACKE_zhseqr, - LAPACKE_zhseqr_work, - LAPACKE_zlacgv, - LAPACKE_zlacgv_work, - LAPACKE_zlacn2, - LAPACKE_zlacn2_work, - LAPACKE_zlacp2, - LAPACKE_zlacp2_work, - LAPACKE_zlacpy, - LAPACKE_zlacpy_work, - LAPACKE_zlag2c, - LAPACKE_zlag2c_work, - LAPACKE_zlange, - LAPACKE_zlange_work, - LAPACKE_zlanhe, - LAPACKE_zlanhe_work, - LAPACKE_zlansy, - LAPACKE_zlansy_work, - LAPACKE_zlantr, - LAPACKE_zlantr_work, - LAPACKE_zlapmr, - LAPACKE_zlapmr_work, - LAPACKE_zlarfb, - LAPACKE_zlarfb_work, - LAPACKE_zlarfg, - LAPACKE_zlarfg_work, - LAPACKE_zlarft, - LAPACKE_zlarft_work, - LAPACKE_zlarfx, - LAPACKE_zlarfx_work, - LAPACKE_zlarnv, - LAPACKE_zlarnv_work, - LAPACKE_zlaset, - LAPACKE_zlaset_work, - LAPACKE_zlaswp, - LAPACKE_zlaswp_work, - LAPACKE_zlauum, - LAPACKE_zlauum_work, - LAPACKE_zpbcon, - LAPACKE_zpbcon_work, - LAPACKE_zpbequ, - LAPACKE_zpbequ_work, - LAPACKE_zpbrfs, - LAPACKE_zpbrfs_work, - LAPACKE_zpbstf, - LAPACKE_zpbstf_work, - LAPACKE_zpbsv, - LAPACKE_zpbsv_work, - LAPACKE_zpbsvx, - LAPACKE_zpbsvx_work, - LAPACKE_zpbtrf, - LAPACKE_zpbtrf_work, - LAPACKE_zpbtrs, - LAPACKE_zpbtrs_work, - LAPACKE_zpftrf, - LAPACKE_zpftrf_work, - LAPACKE_zpftri, - LAPACKE_zpftri_work, - LAPACKE_zpftrs, - LAPACKE_zpftrs_work, - LAPACKE_zpocon, - LAPACKE_zpocon_work, - LAPACKE_zpoequ, - LAPACKE_zpoequ_work, - LAPACKE_zpoequb, - LAPACKE_zpoequb_work, - LAPACKE_zporfs, - LAPACKE_zporfs_work, - LAPACKE_zposv, - LAPACKE_zposv_work, - LAPACKE_zposvx, - LAPACKE_zposvx_work, - LAPACKE_zpotrf, - LAPACKE_zpotrf_work, - LAPACKE_zpotri, - LAPACKE_zpotri_work, - LAPACKE_zpotrs, - LAPACKE_zpotrs_work, - LAPACKE_zppcon, - LAPACKE_zppcon_work, - LAPACKE_zppequ, - LAPACKE_zppequ_work, - LAPACKE_zpprfs, - LAPACKE_zpprfs_work, - LAPACKE_zppsv, - LAPACKE_zppsv_work, - LAPACKE_zppsvx, - LAPACKE_zppsvx_work, - LAPACKE_zpptrf, - LAPACKE_zpptrf_work, - LAPACKE_zpptri, - LAPACKE_zpptri_work, - LAPACKE_zpptrs, - LAPACKE_zpptrs_work, - LAPACKE_zpstrf, - LAPACKE_zpstrf_work, - LAPACKE_zptcon, - LAPACKE_zptcon_work, - LAPACKE_zpteqr, - LAPACKE_zpteqr_work, - LAPACKE_zptrfs, - LAPACKE_zptrfs_work, - LAPACKE_zptsv, - LAPACKE_zptsv_work, - LAPACKE_zptsvx, - LAPACKE_zptsvx_work, - LAPACKE_zpttrf, - LAPACKE_zpttrf_work, - LAPACKE_zpttrs, - LAPACKE_zpttrs_work, - LAPACKE_zspcon, - LAPACKE_zspcon_work, - LAPACKE_zsprfs, - LAPACKE_zsprfs_work, - LAPACKE_zspsv, - LAPACKE_zspsv_work, - LAPACKE_zspsvx, - LAPACKE_zspsvx_work, - LAPACKE_zsptrf, - LAPACKE_zsptrf_work, - LAPACKE_zsptri, - LAPACKE_zsptri_work, - LAPACKE_zsptrs, - LAPACKE_zsptrs_work, - LAPACKE_zstedc, - LAPACKE_zstedc_work, - LAPACKE_zstegr, - LAPACKE_zstegr_work, - LAPACKE_zstein, - LAPACKE_zstein_work, - LAPACKE_zstemr, - LAPACKE_zstemr_work, - LAPACKE_zsteqr, - LAPACKE_zsteqr_work, - LAPACKE_zsycon, - LAPACKE_zsycon_work, - LAPACKE_zsyconv, - LAPACKE_zsyconv_work, - LAPACKE_zsyequb, - LAPACKE_zsyequb_work, - LAPACKE_zsyrfs, - LAPACKE_zsyrfs_work, - LAPACKE_zsysv, - LAPACKE_zsysv_rook, - LAPACKE_zsysv_rook_work, - LAPACKE_zsysv_work, - LAPACKE_zsysvx, - LAPACKE_zsysvx_work, - LAPACKE_zsyswapr, - LAPACKE_zsyswapr_work, - LAPACKE_zsytrf, - LAPACKE_zsytrf_work, - LAPACKE_zsytri, - LAPACKE_zsytri2, - LAPACKE_zsytri2_work, - LAPACKE_zsytri2x, - LAPACKE_zsytri2x_work, - LAPACKE_zsytri_work, - LAPACKE_zsytrs, - LAPACKE_zsytrs2, - LAPACKE_zsytrs2_work, - LAPACKE_zsytrs_work, - LAPACKE_ztbcon, - LAPACKE_ztbcon_work, - LAPACKE_ztbrfs, - LAPACKE_ztbrfs_work, - LAPACKE_ztbtrs, - LAPACKE_ztbtrs_work, - LAPACKE_ztfsm, - LAPACKE_ztfsm_work, - LAPACKE_ztftri, - LAPACKE_ztftri_work, - LAPACKE_ztfttp, - LAPACKE_ztfttp_work, - LAPACKE_ztfttr, - LAPACKE_ztfttr_work, - LAPACKE_ztgevc, - LAPACKE_ztgevc_work, - LAPACKE_ztgexc, - LAPACKE_ztgexc_work, - LAPACKE_ztgsen, - LAPACKE_ztgsen_work, - LAPACKE_ztgsja, - LAPACKE_ztgsja_work, - LAPACKE_ztgsna, - LAPACKE_ztgsna_work, - LAPACKE_ztgsyl, - LAPACKE_ztgsyl_work, - LAPACKE_ztpcon, - LAPACKE_ztpcon_work, - LAPACKE_ztpmqrt, - LAPACKE_ztpmqrt_work, - LAPACKE_ztpqrt, - LAPACKE_ztpqrt2, - LAPACKE_ztpqrt2_work, - LAPACKE_ztpqrt_work, - LAPACKE_ztprfb, - LAPACKE_ztprfb_work, - LAPACKE_ztprfs, - LAPACKE_ztprfs_work, - LAPACKE_ztptri, - LAPACKE_ztptri_work, - LAPACKE_ztptrs, - LAPACKE_ztptrs_work, - LAPACKE_ztpttf, - LAPACKE_ztpttf_work, - LAPACKE_ztpttr, - LAPACKE_ztpttr_work, - LAPACKE_ztrcon, - LAPACKE_ztrcon_work, - LAPACKE_ztrevc, - LAPACKE_ztrevc_work, - LAPACKE_ztrexc, - LAPACKE_ztrexc_work, - LAPACKE_ztrrfs, - LAPACKE_ztrrfs_work, - LAPACKE_ztrsen, - LAPACKE_ztrsen_work, - LAPACKE_ztrsna, - LAPACKE_ztrsna_work, - LAPACKE_ztrsyl, - LAPACKE_ztrsyl_work, - LAPACKE_ztrtri, - LAPACKE_ztrtri_work, - LAPACKE_ztrtrs, - LAPACKE_ztrtrs_work, - LAPACKE_ztrttf, - LAPACKE_ztrttf_work, - LAPACKE_ztrttp, - LAPACKE_ztrttp_work, - LAPACKE_ztzrzf, - LAPACKE_ztzrzf_work, - LAPACKE_zunbdb, - LAPACKE_zunbdb_work, - LAPACKE_zuncsd, - LAPACKE_zuncsd_work, - LAPACKE_zungbr, - LAPACKE_zungbr_work, - LAPACKE_zunghr, - LAPACKE_zunghr_work, - LAPACKE_zunglq, - LAPACKE_zunglq_work, - LAPACKE_zungql, - LAPACKE_zungql_work, - LAPACKE_zungqr, - LAPACKE_zungqr_work, - LAPACKE_zungrq, - LAPACKE_zungrq_work, - LAPACKE_zungtr, - LAPACKE_zungtr_work, - LAPACKE_zunmbr, - LAPACKE_zunmbr_work, - LAPACKE_zunmhr, - LAPACKE_zunmhr_work, - LAPACKE_zunmlq, - LAPACKE_zunmlq_work, - LAPACKE_zunmql, - LAPACKE_zunmql_work, - LAPACKE_zunmqr, - LAPACKE_zunmqr_work, - LAPACKE_zunmrq, - LAPACKE_zunmrq_work, - LAPACKE_zunmrz, - LAPACKE_zunmrz_work, - LAPACKE_zunmtr, - LAPACKE_zunmtr_work, - LAPACKE_zupgtr, - LAPACKE_zupgtr_work, - LAPACKE_zupmtr, - LAPACKE_zupmtr_work, - LAPACKE_zsyr, - LAPACKE_zsyr_work, - ## @(SRCX_OBJ) from `lapack-3.4.1/lapacke/src/Makefile` - ## Not exported: requires LAPACKE_EXTENDED to be set and depends on the - ## corresponding LAPACK extended precision routines. - #LAPACKE_cgbrfsx, - #LAPACKE_cporfsx, - #LAPACKE_dgerfsx, - #LAPACKE_sgbrfsx, - #LAPACKE_ssyrfsx, - #LAPACKE_zherfsx, - #LAPACKE_cgbrfsx_work, - #LAPACKE_cporfsx_work, - #LAPACKE_dgerfsx_work, - #LAPACKE_sgbrfsx_work, - #LAPACKE_ssyrfsx_work, - #LAPACKE_zherfsx_work, - #LAPACKE_cgerfsx, - #LAPACKE_csyrfsx, - #LAPACKE_dporfsx, - #LAPACKE_sgerfsx, - #LAPACKE_zgbrfsx, - #LAPACKE_zporfsx, - #LAPACKE_cgerfsx_work, - #LAPACKE_csyrfsx_work, - #LAPACKE_dporfsx_work, - #LAPACKE_sgerfsx_work, - #LAPACKE_zgbrfsx_work, - #LAPACKE_zporfsx_work, - #LAPACKE_cherfsx, - #LAPACKE_dgbrfsx, - #LAPACKE_dsyrfsx, - #LAPACKE_sporfsx, - #LAPACKE_zgerfsx, - #LAPACKE_zsyrfsx, - #LAPACKE_cherfsx_work, - #LAPACKE_dgbrfsx_work, - #LAPACKE_dsyrfsx_work, - #LAPACKE_sporfsx_work, - #LAPACKE_zgerfsx_work, - #LAPACKE_zsyrfsx_work, - #LAPACKE_cgbsvxx, - #LAPACKE_cposvxx, - #LAPACKE_dgesvxx, - #LAPACKE_sgbsvxx, - #LAPACKE_ssysvxx, - #LAPACKE_zhesvxx, - #LAPACKE_cgbsvxx_work, - #LAPACKE_cposvxx_work, - #LAPACKE_dgesvxx_work, - #LAPACKE_sgbsvxx_work, - #LAPACKE_ssysvxx_work, - #LAPACKE_zhesvxx_work, - #LAPACKE_cgesvxx, - #LAPACKE_csysvxx, - #LAPACKE_dposvxx, - #LAPACKE_sgesvxx, - #LAPACKE_zgbsvxx, - #LAPACKE_zposvxx, - #LAPACKE_cgesvxx_work, - #LAPACKE_csysvxx_work, - #LAPACKE_dposvxx_work, - #LAPACKE_sgesvxx_work, - #LAPACKE_zgbsvxx_work, - #LAPACKE_zposvxx_work, - #LAPACKE_chesvxx, - #LAPACKE_dgbsvxx, - #LAPACKE_dsysvxx, - #LAPACKE_sposvxx, - #LAPACKE_zgesvxx, - #LAPACKE_zsysvxx, - #LAPACKE_chesvxx_work, - #LAPACKE_dgbsvxx_work, - #LAPACKE_dsysvxx_work, - #LAPACKE_sposvxx_work, - #LAPACKE_zgesvxx_work, - #LAPACKE_zsysvxx_work, - - ## @(MATGEN_OBJ) from `lapack-3.4.1/lapacke/src/Makefile` - ## Not exported: requires LAPACKE_TESTING to be set and depends on libtmg - ## (see `lapack-3.4.1/TESTING/MATGEN`). - LAPACKE_zlatms, - LAPACKE_zlatms_work, - LAPACKE_zlagge, - LAPACKE_zlagge_work, - LAPACKE_zlaghe, - LAPACKE_zlaghe_work, - LAPACKE_zlagsy, - LAPACKE_zlagsy_work, - ## new function from lapack-3.6.0 - LAPACKE_zgejsv, - LAPACKE_zgejsv_work, - LAPACKE_zgesvdx, - LAPACKE_zgesvdx_work, - LAPACKE_zgesvj, - LAPACKE_zgesvj_work, - LAPACKE_zgetrf2, - LAPACKE_zgetrf2_work, - LAPACKE_zgges3, - LAPACKE_zgges3_work, - LAPACKE_zggev3, - LAPACKE_zggev3_work, - LAPACKE_zgghd3, - LAPACKE_zgghd3_work, - LAPACKE_zggsvd3, - LAPACKE_zggsvd3_work, - LAPACKE_zggsvp3, - LAPACKE_zggsvp3_work, - LAPACKE_zhetrf_rook, - LAPACKE_zhetrf_rook_work, - LAPACKE_zhetrs_rook, - LAPACKE_zhetrs_rook_work, - LAPACKE_zlapmt, - LAPACKE_zlapmt_work, - LAPACKE_zlascl, - LAPACKE_zlascl_work, - LAPACKE_zpotrf2, - LAPACKE_zpotrf2_work, - LAPACKE_zsytrf_rook, - LAPACKE_zsytrf_rook_work, - LAPACKE_zsytrs_rook, - LAPACKE_zsytrs_rook_work, - LAPACKE_zuncsd2by1, - LAPACKE_zuncsd2by1_work, - - ## new function from lapack-3.7.0 - LAPACKE_zgelq, - LAPACKE_zgelq_work, - LAPACKE_zgemlq, - LAPACKE_zgemlq_work, - LAPACKE_zgemqr, - LAPACKE_zgemqr_work, - LAPACKE_zgeqr, - LAPACKE_zgeqr_work, - LAPACKE_zgetsls, - LAPACKE_zgetsls_work, - LAPACKE_zhbev_2stage, - LAPACKE_zhbev_2stage_work, - LAPACKE_zhbevd_2stage, - LAPACKE_zhbevd_2stage_work, - LAPACKE_zhbevx_2stage, - LAPACKE_zhbevx_2stage_work, - LAPACKE_zhecon_3, - LAPACKE_zhecon_3_work, - LAPACKE_zheev_2stage, - LAPACKE_zheev_2stage_work, - LAPACKE_zheevd_2stage, - LAPACKE_zheevd_2stage_work, - LAPACKE_zheevr_2stage, - LAPACKE_zheevr_2stage_work, - LAPACKE_zheevx_2stage, - LAPACKE_zheevx_2stage_work, - LAPACKE_zhegv_2stage, - LAPACKE_zhegv_2stage_work, - LAPACKE_zhesv_aa, - LAPACKE_zhesv_aa_work, - LAPACKE_zhesv_rk, - LAPACKE_zhesv_rk_work, - LAPACKE_zhetrf_aa, - LAPACKE_zhetrf_aa_work, - LAPACKE_zhetrf_rk, - LAPACKE_zhetrf_rk_work, - LAPACKE_zhetri_3, - LAPACKE_zhetri_3_work, - LAPACKE_zhetrs_aa, - LAPACKE_zhetrs_aa_work, - LAPACKE_zhetrs_3, - LAPACKE_zhetrs_3_work, - LAPACKE_zsycon_3, - LAPACKE_zsycon_3_work, - LAPACKE_zsysv_aa, - LAPACKE_zsysv_aa_work, - LAPACKE_zsysv_rk, - LAPACKE_zsysv_rk_work, - LAPACKE_zsytrf_aa, - LAPACKE_zsytrf_aa_work, - LAPACKE_zsytrf_rk, - LAPACKE_zsytrf_rk_work, - LAPACKE_zsytri_3, - LAPACKE_zsytri_3_work, - LAPACKE_zsytrs_aa, - LAPACKE_zsytrs_aa_work, - LAPACKE_zsytrs_3, - LAPACKE_zsytrs_3_work, - - ## new function from lapack-3.8.0 - LAPACKE_zhesv_aa_2stage, - LAPACKE_zhesv_aa_2stage_work, - LAPACKE_zhetrf_aa_2stage, - LAPACKE_zhetrf_aa_2stage_work, - LAPACKE_zhetrs_aa_2stage, - LAPACKE_zhetrs_aa_2stage_work, - LAPACKE_zlacrm, - LAPACKE_zlacrm_work, - LAPACKE_zlarcm, - LAPACKE_zlarcm_work, - LAPACKE_zlassq, - LAPACKE_zlassq_work, - LAPACKE_zsysv_aa_2stage, - LAPACKE_zsysv_aa_2stage_work, - LAPACKE_zsytrf_aa_2stage, - LAPACKE_zsytrf_aa_2stage_work, - LAPACKE_zsytrs_aa_2stage, - LAPACKE_zsytrs_aa_2stage_work, - # new functions from 3.9.0 - LAPACKE_zgesvdq, + " + +lapacke_deprecated_objsc=" + LAPACKE_cggsvp + LAPACKE_cggsvp_work + LAPACKE_cggsvd + LAPACKE_cggsvd_work + LAPACKE_cgeqpf + LAPACKE_cgeqpf_work +" + +lapacke_deprecated_objsd=" + LAPACKE_dggsvp + LAPACKE_dggsvp_work + LAPACKE_dggsvd + LAPACKE_dggsvd_work + LAPACKE_dgeqpf + LAPACKE_dgeqpf_work +" + +lapacke_deprecated_objss=" + LAPACKE_sggsvp + LAPACKE_sggsvp_work + LAPACKE_sggsvd + LAPACKE_sggsvd_work + LAPACKE_sgeqpf + LAPACKE_sgeqpf_work +" + +lapacke_deprecated_objsz=" + LAPACKE_zggsvp + LAPACKE_zggsvp_work + LAPACKE_zggsvd + LAPACKE_zggsvd_work + LAPACKE_zgeqpf + LAPACKE_zgeqpf_work +" + +# LAPACK C interface routines. +# +# This list is prepared in a similar manner to @lapackobjs2, however the +# functions all begin with an uppercase prefix (with the exception of the +# make_complex_* routines). +# +# The functions corresponding to @(MATGEN_OBJ) and @(SRCX_OBJ) are not +# exported since the respective LAPACK routines are not built by default. + +# @(OBJ) from `lapack-3.4.1/lapacke/utils/Makefile` +lapackeobjs=" + LAPACKE_lsame + LAPACKE_ilaver + LAPACKE_xerbla + lapack_make_complex_float + lapack_make_complex_double + LAPACKE_get_nancheck + LAPACKE_set_nancheck +" + +lapackeobjsc=" + LAPACKE_cgb_nancheck + LAPACKE_cgb_trans + LAPACKE_cge_nancheck + LAPACKE_cge_trans + LAPACKE_cgg_nancheck + LAPACKE_cgg_trans + LAPACKE_cgt_nancheck + LAPACKE_chb_nancheck + LAPACKE_chb_trans + LAPACKE_che_nancheck + LAPACKE_che_trans + LAPACKE_chp_nancheck + LAPACKE_chp_trans + LAPACKE_chs_nancheck + LAPACKE_chs_trans + LAPACKE_c_nancheck + LAPACKE_cpb_nancheck + LAPACKE_cpb_trans + LAPACKE_cpf_nancheck + LAPACKE_cpf_trans + LAPACKE_cpo_nancheck + LAPACKE_cpo_trans + LAPACKE_cpp_nancheck + LAPACKE_cpp_trans + LAPACKE_cpt_nancheck + LAPACKE_csp_nancheck + LAPACKE_csp_trans + LAPACKE_cst_nancheck + LAPACKE_csy_nancheck + LAPACKE_csy_trans + LAPACKE_ctb_nancheck + LAPACKE_ctb_trans + LAPACKE_ctf_nancheck + LAPACKE_ctf_trans + LAPACKE_ctp_nancheck + LAPACKE_ctp_trans + LAPACKE_ctr_nancheck + LAPACKE_ctr_trans + LAPACKE_cbbcsd + LAPACKE_cbbcsd_work + LAPACKE_cbdsqr + LAPACKE_cbdsqr_work + LAPACKE_cgbbrd + LAPACKE_cgbbrd_work + LAPACKE_cgbcon + LAPACKE_cgbcon_work + LAPACKE_cgbequ + LAPACKE_cgbequ_work + LAPACKE_cgbequb + LAPACKE_cgbequb_work + LAPACKE_cgbrfs + LAPACKE_cgbrfs_work + LAPACKE_cgbsv + LAPACKE_cgbsv_work + LAPACKE_cgbsvx + LAPACKE_cgbsvx_work + LAPACKE_cgbtrf + LAPACKE_cgbtrf_work + LAPACKE_cgbtrs + LAPACKE_cgbtrs_work + LAPACKE_cgebak + LAPACKE_cgebak_work + LAPACKE_cgebal + LAPACKE_cgebal_work + LAPACKE_cgebrd + LAPACKE_cgebrd_work + LAPACKE_cgecon + LAPACKE_cgecon_work + LAPACKE_cgeequ + LAPACKE_cgeequ_work + LAPACKE_cgeequb + LAPACKE_cgeequb_work + LAPACKE_cgees + LAPACKE_cgees_work + LAPACKE_cgeesx + LAPACKE_cgeesx_work + LAPACKE_cgeev + LAPACKE_cgeev_work + LAPACKE_cgeevx + LAPACKE_cgeevx_work + LAPACKE_cgehrd + LAPACKE_cgehrd_work + LAPACKE_cgelq2 + LAPACKE_cgelq2_work + LAPACKE_cgelqf + LAPACKE_cgelqf_work + LAPACKE_cgels + LAPACKE_cgels_work + LAPACKE_cgelsd + LAPACKE_cgelsd_work + LAPACKE_cgelss + LAPACKE_cgelss_work + LAPACKE_cgelsy + LAPACKE_cgelsy_work + LAPACKE_cgemqrt + LAPACKE_cgemqrt_work + LAPACKE_cgeqlf + LAPACKE_cgeqlf_work + LAPACKE_cgeqp3 + LAPACKE_cgeqp3_work + LAPACKE_cgeqr2 + LAPACKE_cgeqr2_work + LAPACKE_cgeqrf + LAPACKE_cgeqrf_work + LAPACKE_cgeqrfp + LAPACKE_cgeqrfp_work + LAPACKE_cgeqrt + LAPACKE_cgeqrt2 + LAPACKE_cgeqrt2_work + LAPACKE_cgeqrt3 + LAPACKE_cgeqrt3_work + LAPACKE_cgeqrt_work + LAPACKE_cgerfs + LAPACKE_cgerfs_work + LAPACKE_cgerqf + LAPACKE_cgerqf_work + LAPACKE_cgesdd + LAPACKE_cgesdd_work + LAPACKE_cgesv + LAPACKE_cgesv_work + LAPACKE_cgesvd + LAPACKE_cgesvd_work + LAPACKE_cgesvx + LAPACKE_cgesvx_work + LAPACKE_cgetf2 + LAPACKE_cgetf2_work + LAPACKE_cgetrf + LAPACKE_cgetrf_work + LAPACKE_cgetri + LAPACKE_cgetri_work + LAPACKE_cgetrs + LAPACKE_cgetrs_work + LAPACKE_cggbak + LAPACKE_cggbak_work + LAPACKE_cggbal + LAPACKE_cggbal_work + LAPACKE_cgges + LAPACKE_cgges_work + LAPACKE_cggesx + LAPACKE_cggesx_work + LAPACKE_cggev + LAPACKE_cggev_work + LAPACKE_cggevx + LAPACKE_cggevx_work + LAPACKE_cggglm + LAPACKE_cggglm_work + LAPACKE_cgghrd + LAPACKE_cgghrd_work + LAPACKE_cgglse + LAPACKE_cgglse_work + LAPACKE_cggqrf + LAPACKE_cggqrf_work + LAPACKE_cggrqf + LAPACKE_cggrqf_work + LAPACKE_cgtcon + LAPACKE_cgtcon_work + LAPACKE_cgtrfs + LAPACKE_cgtrfs_work + LAPACKE_cgtsv + LAPACKE_cgtsv_work + LAPACKE_cgtsvx + LAPACKE_cgtsvx_work + LAPACKE_cgttrf + LAPACKE_cgttrf_work + LAPACKE_cgttrs + LAPACKE_cgttrs_work + LAPACKE_chbev + LAPACKE_chbev_work + LAPACKE_chbevd + LAPACKE_chbevd_work + LAPACKE_chbevx + LAPACKE_chbevx_work + LAPACKE_chbgst + LAPACKE_chbgst_work + LAPACKE_chbgv + LAPACKE_chbgv_work + LAPACKE_chbgvd + LAPACKE_chbgvd_work + LAPACKE_chbgvx + LAPACKE_chbgvx_work + LAPACKE_chbtrd + LAPACKE_chbtrd_work + LAPACKE_checon + LAPACKE_checon_work + LAPACKE_cheequb + LAPACKE_cheequb_work + LAPACKE_cheev + LAPACKE_cheev_work + LAPACKE_cheevd + LAPACKE_cheevd_work + LAPACKE_cheevr + LAPACKE_cheevr_work + LAPACKE_cheevx + LAPACKE_cheevx_work + LAPACKE_chegst + LAPACKE_chegst_work + LAPACKE_chegv + LAPACKE_chegv_work + LAPACKE_chegvd + LAPACKE_chegvd_work + LAPACKE_chegvx + LAPACKE_chegvx_work + LAPACKE_cherfs + LAPACKE_cherfs_work + LAPACKE_chesv + LAPACKE_chesv_work + LAPACKE_chesvx + LAPACKE_chesvx_work + LAPACKE_cheswapr + LAPACKE_cheswapr_work + LAPACKE_chetrd + LAPACKE_chetrd_work + LAPACKE_chetrf + LAPACKE_chetrf_work + LAPACKE_chetri + LAPACKE_chetri2 + LAPACKE_chetri2_work + LAPACKE_chetri2x + LAPACKE_chetri2x_work + LAPACKE_chetri_work + LAPACKE_chetrs + LAPACKE_chetrs2 + LAPACKE_chetrs2_work + LAPACKE_chetrs_work + LAPACKE_chfrk + LAPACKE_chfrk_work + LAPACKE_chgeqz + LAPACKE_chgeqz_work + LAPACKE_chpcon + LAPACKE_chpcon_work + LAPACKE_chpev + LAPACKE_chpev_work + LAPACKE_chpevd + LAPACKE_chpevd_work + LAPACKE_chpevx + LAPACKE_chpevx_work + LAPACKE_chpgst + LAPACKE_chpgst_work + LAPACKE_chpgv + LAPACKE_chpgv_work + LAPACKE_chpgvd + LAPACKE_chpgvd_work + LAPACKE_chpgvx + LAPACKE_chpgvx_work + LAPACKE_chprfs + LAPACKE_chprfs_work + LAPACKE_chpsv + LAPACKE_chpsv_work + LAPACKE_chpsvx + LAPACKE_chpsvx_work + LAPACKE_chptrd + LAPACKE_chptrd_work + LAPACKE_chptrf + LAPACKE_chptrf_work + LAPACKE_chptri + LAPACKE_chptri_work + LAPACKE_chptrs + LAPACKE_chptrs_work + LAPACKE_chsein + LAPACKE_chsein_work + LAPACKE_chseqr + LAPACKE_chseqr_work + LAPACKE_clacgv + LAPACKE_clacgv_work + LAPACKE_clacn2 + LAPACKE_clacn2_work + LAPACKE_clacp2 + LAPACKE_clacp2_work + LAPACKE_clacpy + LAPACKE_clacpy_work + LAPACKE_clag2z + LAPACKE_clag2z_work + LAPACKE_clange + LAPACKE_clange_work + LAPACKE_clanhe + LAPACKE_clanhe_work + LAPACKE_clansy + LAPACKE_clansy_work + LAPACKE_clantr + LAPACKE_clantr_work + LAPACKE_clapmr + LAPACKE_clapmr_work + LAPACKE_clarfb + LAPACKE_clarfb_work + LAPACKE_clarfg + LAPACKE_clarfg_work + LAPACKE_clarft + LAPACKE_clarft_work + LAPACKE_clarfx + LAPACKE_clarfx_work + LAPACKE_clarnv + LAPACKE_clarnv_work + LAPACKE_claset + LAPACKE_claset_work + LAPACKE_claswp + LAPACKE_claswp_work + LAPACKE_clauum + LAPACKE_clauum_work + LAPACKE_cpbcon + LAPACKE_cpbcon_work + LAPACKE_cpbequ + LAPACKE_cpbequ_work + LAPACKE_cpbrfs + LAPACKE_cpbrfs_work + LAPACKE_cpbstf + LAPACKE_cpbstf_work + LAPACKE_cpbsv + LAPACKE_cpbsv_work + LAPACKE_cpbsvx + LAPACKE_cpbsvx_work + LAPACKE_cpbtrf + LAPACKE_cpbtrf_work + LAPACKE_cpbtrs + LAPACKE_cpbtrs_work + LAPACKE_cpftrf + LAPACKE_cpftrf_work + LAPACKE_cpftri + LAPACKE_cpftri_work + LAPACKE_cpftrs + LAPACKE_cpftrs_work + LAPACKE_cpocon + LAPACKE_cpocon_work + LAPACKE_cpoequ + LAPACKE_cpoequ_work + LAPACKE_cpoequb + LAPACKE_cpoequb_work + LAPACKE_cporfs + LAPACKE_cporfs_work + LAPACKE_cposv + LAPACKE_cposv_work + LAPACKE_cposvx + LAPACKE_cposvx_work + LAPACKE_cpotrf + LAPACKE_cpotrf_work + LAPACKE_cpotri + LAPACKE_cpotri_work + LAPACKE_cpotrs + LAPACKE_cpotrs_work + LAPACKE_cppcon + LAPACKE_cppcon_work + LAPACKE_cppequ + LAPACKE_cppequ_work + LAPACKE_cpprfs + LAPACKE_cpprfs_work + LAPACKE_cppsv + LAPACKE_cppsv_work + LAPACKE_cppsvx + LAPACKE_cppsvx_work + LAPACKE_cpptrf + LAPACKE_cpptrf_work + LAPACKE_cpptri + LAPACKE_cpptri_work + LAPACKE_cpptrs + LAPACKE_cpptrs_work + LAPACKE_cpstrf + LAPACKE_cpstrf_work + LAPACKE_cptcon + LAPACKE_cptcon_work + LAPACKE_cpteqr + LAPACKE_cpteqr_work + LAPACKE_cptrfs + LAPACKE_cptrfs_work + LAPACKE_cptsv + LAPACKE_cptsv_work + LAPACKE_cptsvx + LAPACKE_cptsvx_work + LAPACKE_cpttrf + LAPACKE_cpttrf_work + LAPACKE_cpttrs + LAPACKE_cpttrs_work + LAPACKE_cspcon + LAPACKE_cspcon_work + LAPACKE_csprfs + LAPACKE_csprfs_work + LAPACKE_cspsv + LAPACKE_cspsv_work + LAPACKE_cspsvx + LAPACKE_cspsvx_work + LAPACKE_csptrf + LAPACKE_csptrf_work + LAPACKE_csptri + LAPACKE_csptri_work + LAPACKE_csptrs + LAPACKE_csptrs_work + LAPACKE_cstedc + LAPACKE_cstedc_work + LAPACKE_cstegr + LAPACKE_cstegr_work + LAPACKE_cstein + LAPACKE_cstein_work + LAPACKE_cstemr + LAPACKE_cstemr_work + LAPACKE_csteqr + LAPACKE_csteqr_work + LAPACKE_csycon + LAPACKE_csycon_work + LAPACKE_csyconv + LAPACKE_csyconv_work + LAPACKE_csyequb + LAPACKE_csyequb_work + LAPACKE_csyrfs + LAPACKE_csyrfs_work + LAPACKE_csysv + LAPACKE_csysv_rook + LAPACKE_csysv_rook_work + LAPACKE_csysv_work + LAPACKE_csysvx + LAPACKE_csysvx_work + LAPACKE_csyswapr + LAPACKE_csyswapr_work + LAPACKE_csytrf + LAPACKE_csytrf_work + LAPACKE_csytri + LAPACKE_csytri2 + LAPACKE_csytri2_work + LAPACKE_csytri2x + LAPACKE_csytri2x_work + LAPACKE_csytri_work + LAPACKE_csytrs + LAPACKE_csytrs2 + LAPACKE_csytrs2_work + LAPACKE_csytrs_work + LAPACKE_ctbcon + LAPACKE_ctbcon_work + LAPACKE_ctbrfs + LAPACKE_ctbrfs_work + LAPACKE_ctbtrs + LAPACKE_ctbtrs_work + LAPACKE_ctfsm + LAPACKE_ctfsm_work + LAPACKE_ctftri + LAPACKE_ctftri_work + LAPACKE_ctfttp + LAPACKE_ctfttp_work + LAPACKE_ctfttr + LAPACKE_ctfttr_work + LAPACKE_ctgevc + LAPACKE_ctgevc_work + LAPACKE_ctgexc + LAPACKE_ctgexc_work + LAPACKE_ctgsen + LAPACKE_ctgsen_work + LAPACKE_ctgsja + LAPACKE_ctgsja_work + LAPACKE_ctgsna + LAPACKE_ctgsna_work + LAPACKE_ctgsyl + LAPACKE_ctgsyl_work + LAPACKE_ctpcon + LAPACKE_ctpcon_work + LAPACKE_ctpmqrt + LAPACKE_ctpmqrt_work + LAPACKE_ctpqrt + LAPACKE_ctpqrt2 + LAPACKE_ctpqrt2_work + LAPACKE_ctpqrt_work + LAPACKE_ctprfb + LAPACKE_ctprfb_work + LAPACKE_ctprfs + LAPACKE_ctprfs_work + LAPACKE_ctptri + LAPACKE_ctptri_work + LAPACKE_ctptrs + LAPACKE_ctptrs_work + LAPACKE_ctpttf + LAPACKE_ctpttf_work + LAPACKE_ctpttr + LAPACKE_ctpttr_work + LAPACKE_ctrcon + LAPACKE_ctrcon_work + LAPACKE_ctrevc + LAPACKE_ctrevc_work + LAPACKE_ctrexc + LAPACKE_ctrexc_work + LAPACKE_ctrrfs + LAPACKE_ctrrfs_work + LAPACKE_ctrsen + LAPACKE_ctrsen_work + LAPACKE_ctrsna + LAPACKE_ctrsna_work + LAPACKE_ctrsyl + LAPACKE_ctrsyl_work + LAPACKE_ctrtri + LAPACKE_ctrtri_work + LAPACKE_ctrtrs + LAPACKE_ctrtrs_work + LAPACKE_ctrttf + LAPACKE_ctrttf_work + LAPACKE_ctrttp + LAPACKE_ctrttp_work + LAPACKE_ctzrzf + LAPACKE_ctzrzf_work + LAPACKE_cunbdb + LAPACKE_cunbdb_work + LAPACKE_cuncsd + LAPACKE_cuncsd_work + LAPACKE_cungbr + LAPACKE_cungbr_work + LAPACKE_cunghr + LAPACKE_cunghr_work + LAPACKE_cunglq + LAPACKE_cunglq_work + LAPACKE_cungql + LAPACKE_cungql_work + LAPACKE_cungqr + LAPACKE_cungqr_work + LAPACKE_cungrq + LAPACKE_cungrq_work + LAPACKE_cungtr + LAPACKE_cungtr_work + LAPACKE_cunmbr + LAPACKE_cunmbr_work + LAPACKE_cunmhr + LAPACKE_cunmhr_work + LAPACKE_cunmlq + LAPACKE_cunmlq_work + LAPACKE_cunmql + LAPACKE_cunmql_work + LAPACKE_cunmqr + LAPACKE_cunmqr_work + LAPACKE_cunmrq + LAPACKE_cunmrq_work + LAPACKE_cunmrz + LAPACKE_cunmrz_work + LAPACKE_cunmtr + LAPACKE_cunmtr_work + LAPACKE_cupgtr + LAPACKE_cupgtr_work + LAPACKE_cupmtr + LAPACKE_cupmtr_work + LAPACKE_csyr + LAPACKE_csyr_work + LAPACKE_clatms + LAPACKE_clatms_work + LAPACKE_clagge + LAPACKE_clagge_work + LAPACKE_claghe + LAPACKE_claghe_work + LAPACKE_clagsy + LAPACKE_clagsy_work + LAPACKE_cgejsv + LAPACKE_cgejsv_work + LAPACKE_cgesvdx + LAPACKE_cgesvdx_work + LAPACKE_cgesvj + LAPACKE_cgesvj_work + LAPACKE_cgetrf2 + LAPACKE_cgetrf2_work + LAPACKE_cgges3 + LAPACKE_cgges3_work + LAPACKE_cggev3 + LAPACKE_cggev3_work + LAPACKE_cgghd3 + LAPACKE_cgghd3_work + LAPACKE_cggsvd3 + LAPACKE_cggsvd3_work + LAPACKE_cggsvp3 + LAPACKE_cggsvp3_work + LAPACKE_chetrf_rook + LAPACKE_chetrf_rook_work + LAPACKE_chetrs_rook + LAPACKE_chetrs_rook_work + LAPACKE_clapmt + LAPACKE_clapmt_work + LAPACKE_clascl + LAPACKE_clascl_work + LAPACKE_cpotrf2 + LAPACKE_cpotrf2_work + LAPACKE_csytrf_rook + LAPACKE_csytrf_rook_work + LAPACKE_csytrs_rook + LAPACKE_csytrs_rook_work + LAPACKE_cuncsd2by1 + LAPACKE_cuncsd2by1_work + LAPACKE_cgelq + LAPACKE_cgelq_work + LAPACKE_cgemlq + LAPACKE_cgemlq_work + LAPACKE_cgemqr + LAPACKE_cgemqr_work + LAPACKE_cgeqr + LAPACKE_cgeqr_work + LAPACKE_cgetsls + LAPACKE_cgetsls_work + LAPACKE_chbev_2stage + LAPACKE_chbev_2stage_work + LAPACKE_chbevd_2stage + LAPACKE_chbevd_2stage_work + LAPACKE_chbevx_2stage + LAPACKE_chbevx_2stage_work + LAPACKE_checon_3 + LAPACKE_checon_3_work + LAPACKE_cheev_2stage + LAPACKE_cheev_2stage_work + LAPACKE_cheevd_2stage + LAPACKE_cheevd_2stage_work + LAPACKE_cheevr_2stage + LAPACKE_cheevr_2stage_work + LAPACKE_cheevx_2stage + LAPACKE_cheevx_2stage_work + LAPACKE_chegv_2stage + LAPACKE_chegv_2stage_work + LAPACKE_chesv_aa + LAPACKE_chesv_aa_work + LAPACKE_chesv_rk + LAPACKE_chesv_rk_work + LAPACKE_chetrf_aa + LAPACKE_chetrf_aa_work + LAPACKE_chetrf_rk + LAPACKE_chetrf_rk_work + LAPACKE_chetri_3 + LAPACKE_chetri_3_work + LAPACKE_chetrs_aa + LAPACKE_chetrs_aa_work + LAPACKE_chetrs_3 + LAPACKE_chetrs_3_work + LAPACKE_csycon_3 + LAPACKE_csycon_3_work + LAPACKE_csysv_aa + LAPACKE_csysv_aa_work + LAPACKE_csysv_rk + LAPACKE_csysv_rk_work + LAPACKE_csytrf_aa + LAPACKE_csytrf_aa_work + LAPACKE_csytrf_rk + LAPACKE_csytrf_rk_work + LAPACKE_csytri_3 + LAPACKE_csytri_3_work + LAPACKE_csytrs_aa + LAPACKE_csytrs_aa_work + LAPACKE_csytrs_3 + LAPACKE_csytrs_3_work + LAPACKE_chesv_aa_2stage + LAPACKE_chesv_aa_2stage_work + LAPACKE_chetrf_aa_2stage + LAPACKE_chetrf_aa_2stage_work + LAPACKE_chetrs_aa_2stage + LAPACKE_chetrs_aa_2stage_work + LAPACKE_clacrm + LAPACKE_clacrm_work + LAPACKE_clarcm + LAPACKE_clarcm_work + LAPACKE_classq + LAPACKE_classq_work + LAPACKE_csysv_aa_2stage + LAPACKE_csysv_aa_2stage_work + LAPACKE_csytrf_aa_2stage + LAPACKE_csytrf_aa_2stage_work + LAPACKE_csytrs_aa_2stage + LAPACKE_csytrs_aa_2stage_work + LAPACKE_cgesvdq + LAPACKE_cgesvdq_work + LAPACKE_cgetsqrhrt + LAPACKE_cgetsqrhrt_work + LAPACKE_cungtsqr_row + LAPACKE_cungtsqr_row_work +" + +lapackeobjsd=" + LAPACKE_dgb_nancheck + LAPACKE_dgb_trans + LAPACKE_dge_nancheck + LAPACKE_dge_trans + LAPACKE_dgg_nancheck + LAPACKE_dgg_trans + LAPACKE_dgt_nancheck + LAPACKE_dhs_nancheck + LAPACKE_dhs_trans + LAPACKE_d_nancheck + LAPACKE_dpb_nancheck + LAPACKE_dpb_trans + LAPACKE_dpf_nancheck + LAPACKE_dpf_trans + LAPACKE_dpo_nancheck + LAPACKE_dpo_trans + LAPACKE_dpp_nancheck + LAPACKE_dpp_trans + LAPACKE_dpt_nancheck + LAPACKE_dsb_nancheck + LAPACKE_dsb_trans + LAPACKE_dsp_nancheck + LAPACKE_dsp_trans + LAPACKE_dst_nancheck + LAPACKE_dsy_nancheck + LAPACKE_dsy_trans + LAPACKE_dtb_nancheck + LAPACKE_dtb_trans + LAPACKE_dtf_nancheck + LAPACKE_dtf_trans + LAPACKE_dtp_nancheck + LAPACKE_dtp_trans + LAPACKE_dtr_nancheck + LAPACKE_dtr_trans + LAPACKE_dbbcsd + LAPACKE_dbbcsd_work + LAPACKE_dbdsdc + LAPACKE_dbdsdc_work + LAPACKE_dbdsqr + LAPACKE_dbdsqr_work + LAPACKE_ddisna + LAPACKE_ddisna_work + LAPACKE_dgbbrd + LAPACKE_dgbbrd_work + LAPACKE_dgbcon + LAPACKE_dgbcon_work + LAPACKE_dgbequ + LAPACKE_dgbequ_work + LAPACKE_dgbequb + LAPACKE_dgbequb_work + LAPACKE_dgbrfs + LAPACKE_dgbrfs_work + LAPACKE_dgbsv + LAPACKE_dgbsv_work + LAPACKE_dgbsvx + LAPACKE_dgbsvx_work + LAPACKE_dgbtrf + LAPACKE_dgbtrf_work + LAPACKE_dgbtrs + LAPACKE_dgbtrs_work + LAPACKE_dgebak + LAPACKE_dgebak_work + LAPACKE_dgebal + LAPACKE_dgebal_work + LAPACKE_dgebrd + LAPACKE_dgebrd_work + LAPACKE_dgecon + LAPACKE_dgecon_work + LAPACKE_dgeequ + LAPACKE_dgeequ_work + LAPACKE_dgeequb + LAPACKE_dgeequb_work + LAPACKE_dgees + LAPACKE_dgees_work + LAPACKE_dgeesx + LAPACKE_dgeesx_work + LAPACKE_dgeev + LAPACKE_dgeev_work + LAPACKE_dgeevx + LAPACKE_dgeevx_work + LAPACKE_dgehrd + LAPACKE_dgehrd_work + LAPACKE_dgejsv + LAPACKE_dgejsv_work + LAPACKE_dgelq2 + LAPACKE_dgelq2_work + LAPACKE_dgelqf + LAPACKE_dgelqf_work + LAPACKE_dgels + LAPACKE_dgels_work + LAPACKE_dgelsd + LAPACKE_dgelsd_work + LAPACKE_dgelss + LAPACKE_dgelss_work + LAPACKE_dgelsy + LAPACKE_dgelsy_work + LAPACKE_dgemqrt + LAPACKE_dgemqrt_work + LAPACKE_dgeqlf + LAPACKE_dgeqlf_work + LAPACKE_dgeqp3 + LAPACKE_dgeqp3_work + LAPACKE_dgeqr2 + LAPACKE_dgeqr2_work + LAPACKE_dgeqrf + LAPACKE_dgeqrf_work + LAPACKE_dgeqrfp + LAPACKE_dgeqrfp_work + LAPACKE_dgeqrt + LAPACKE_dgeqrt2 + LAPACKE_dgeqrt2_work + LAPACKE_dgeqrt3 + LAPACKE_dgeqrt3_work + LAPACKE_dgeqrt_work + LAPACKE_dgerfs + LAPACKE_dgerfs_work + LAPACKE_dgerqf + LAPACKE_dgerqf_work + LAPACKE_dgesdd + LAPACKE_dgesdd_work + LAPACKE_dgesv + LAPACKE_dgesv_work + LAPACKE_dgesvd + LAPACKE_dgesvd_work + LAPACKE_dgesvj + LAPACKE_dgesvj_work + LAPACKE_dgesvx + LAPACKE_dgesvx_work + LAPACKE_dgetf2 + LAPACKE_dgetf2_work + LAPACKE_dgetrf + LAPACKE_dgetrf_work + LAPACKE_dgetri + LAPACKE_dgetri_work + LAPACKE_dgetrs + LAPACKE_dgetrs_work + LAPACKE_dggbak + LAPACKE_dggbak_work + LAPACKE_dggbal + LAPACKE_dggbal_work + LAPACKE_dgges + LAPACKE_dgges_work + LAPACKE_dggesx + LAPACKE_dggesx_work + LAPACKE_dggev + LAPACKE_dggev_work + LAPACKE_dggevx + LAPACKE_dggevx_work + LAPACKE_dggglm + LAPACKE_dggglm_work + LAPACKE_dgghrd + LAPACKE_dgghrd_work + LAPACKE_dgglse + LAPACKE_dgglse_work + LAPACKE_dggqrf + LAPACKE_dggqrf_work + LAPACKE_dggrqf + LAPACKE_dggrqf_work + LAPACKE_dgtcon + LAPACKE_dgtcon_work + LAPACKE_dgtrfs + LAPACKE_dgtrfs_work + LAPACKE_dgtsv + LAPACKE_dgtsv_work + LAPACKE_dgtsvx + LAPACKE_dgtsvx_work + LAPACKE_dgttrf + LAPACKE_dgttrf_work + LAPACKE_dgttrs + LAPACKE_dgttrs_work + LAPACKE_dhgeqz + LAPACKE_dhgeqz_work + LAPACKE_dhsein + LAPACKE_dhsein_work + LAPACKE_dhseqr + LAPACKE_dhseqr_work + LAPACKE_dlacn2 + LAPACKE_dlacn2_work + LAPACKE_dlacpy + LAPACKE_dlacpy_work + LAPACKE_dlag2s + LAPACKE_dlag2s_work + LAPACKE_dlamch + LAPACKE_dlamch_work + LAPACKE_dlange + LAPACKE_dlange_work + LAPACKE_dlansy + LAPACKE_dlansy_work + LAPACKE_dlantr + LAPACKE_dlantr_work + LAPACKE_dlapmr + LAPACKE_dlapmr_work + LAPACKE_dlapy2 + LAPACKE_dlapy2_work + LAPACKE_dlapy3 + LAPACKE_dlapy3_work + LAPACKE_dlarfb + LAPACKE_dlarfb_work + LAPACKE_dlarfg + LAPACKE_dlarfg_work + LAPACKE_dlarft + LAPACKE_dlarft_work + LAPACKE_dlarfx + LAPACKE_dlarfx_work + LAPACKE_dlarnv + LAPACKE_dlarnv_work + LAPACKE_dlartgp + LAPACKE_dlartgp_work + LAPACKE_dlartgs + LAPACKE_dlartgs_work + LAPACKE_dlaset + LAPACKE_dlaset_work + LAPACKE_dlasrt + LAPACKE_dlasrt_work + LAPACKE_dlaswp + LAPACKE_dlaswp_work + LAPACKE_dlauum + LAPACKE_dlauum_work + LAPACKE_dopgtr + LAPACKE_dopgtr_work + LAPACKE_dopmtr + LAPACKE_dopmtr_work + LAPACKE_dorbdb + LAPACKE_dorbdb_work + LAPACKE_dorcsd + LAPACKE_dorcsd_work + LAPACKE_dorgbr + LAPACKE_dorgbr_work + LAPACKE_dorghr + LAPACKE_dorghr_work + LAPACKE_dorglq + LAPACKE_dorglq_work + LAPACKE_dorgql + LAPACKE_dorgql_work + LAPACKE_dorgqr + LAPACKE_dorgqr_work + LAPACKE_dorgrq + LAPACKE_dorgrq_work + LAPACKE_dorgtr + LAPACKE_dorgtr_work + LAPACKE_dormbr + LAPACKE_dormbr_work + LAPACKE_dormhr + LAPACKE_dormhr_work + LAPACKE_dormlq + LAPACKE_dormlq_work + LAPACKE_dormql + LAPACKE_dormql_work + LAPACKE_dormqr + LAPACKE_dormqr_work + LAPACKE_dormrq + LAPACKE_dormrq_work + LAPACKE_dormrz + LAPACKE_dormrz_work + LAPACKE_dormtr + LAPACKE_dormtr_work + LAPACKE_dpbcon + LAPACKE_dpbcon_work + LAPACKE_dpbequ + LAPACKE_dpbequ_work + LAPACKE_dpbrfs + LAPACKE_dpbrfs_work + LAPACKE_dpbstf + LAPACKE_dpbstf_work + LAPACKE_dpbsv + LAPACKE_dpbsv_work + LAPACKE_dpbsvx + LAPACKE_dpbsvx_work + LAPACKE_dpbtrf + LAPACKE_dpbtrf_work + LAPACKE_dpbtrs + LAPACKE_dpbtrs_work + LAPACKE_dpftrf + LAPACKE_dpftrf_work + LAPACKE_dpftri + LAPACKE_dpftri_work + LAPACKE_dpftrs + LAPACKE_dpftrs_work + LAPACKE_dpocon + LAPACKE_dpocon_work + LAPACKE_dpoequ + LAPACKE_dpoequ_work + LAPACKE_dpoequb + LAPACKE_dpoequb_work + LAPACKE_dporfs + LAPACKE_dporfs_work + LAPACKE_dposv + LAPACKE_dposv_work + LAPACKE_dposvx + LAPACKE_dposvx_work + LAPACKE_dpotrf + LAPACKE_dpotrf_work + LAPACKE_dpotri + LAPACKE_dpotri_work + LAPACKE_dpotrs + LAPACKE_dpotrs_work + LAPACKE_dppcon + LAPACKE_dppcon_work + LAPACKE_dppequ + LAPACKE_dppequ_work + LAPACKE_dpprfs + LAPACKE_dpprfs_work + LAPACKE_dppsv + LAPACKE_dppsv_work + LAPACKE_dppsvx + LAPACKE_dppsvx_work + LAPACKE_dpptrf + LAPACKE_dpptrf_work + LAPACKE_dpptri + LAPACKE_dpptri_work + LAPACKE_dpptrs + LAPACKE_dpptrs_work + LAPACKE_dpstrf + LAPACKE_dpstrf_work + LAPACKE_dptcon + LAPACKE_dptcon_work + LAPACKE_dpteqr + LAPACKE_dpteqr_work + LAPACKE_dptrfs + LAPACKE_dptrfs_work + LAPACKE_dptsv + LAPACKE_dptsv_work + LAPACKE_dptsvx + LAPACKE_dptsvx_work + LAPACKE_dpttrf + LAPACKE_dpttrf_work + LAPACKE_dpttrs + LAPACKE_dpttrs_work + LAPACKE_dsbev + LAPACKE_dsbev_work + LAPACKE_dsbevd + LAPACKE_dsbevd_work + LAPACKE_dsbevx + LAPACKE_dsbevx_work + LAPACKE_dsbgst + LAPACKE_dsbgst_work + LAPACKE_dsbgv + LAPACKE_dsbgv_work + LAPACKE_dsbgvd + LAPACKE_dsbgvd_work + LAPACKE_dsbgvx + LAPACKE_dsbgvx_work + LAPACKE_dsbtrd + LAPACKE_dsbtrd_work + LAPACKE_dsfrk + LAPACKE_dsfrk_work + LAPACKE_dsgesv + LAPACKE_dsgesv_work + LAPACKE_dspcon + LAPACKE_dspcon_work + LAPACKE_dspev + LAPACKE_dspev_work + LAPACKE_dspevd + LAPACKE_dspevd_work + LAPACKE_dspevx + LAPACKE_dspevx_work + LAPACKE_dspgst + LAPACKE_dspgst_work + LAPACKE_dspgv + LAPACKE_dspgv_work + LAPACKE_dspgvd + LAPACKE_dspgvd_work + LAPACKE_dspgvx + LAPACKE_dspgvx_work + LAPACKE_dsposv + LAPACKE_dsposv_work + LAPACKE_dsprfs + LAPACKE_dsprfs_work + LAPACKE_dspsv + LAPACKE_dspsv_work + LAPACKE_dspsvx + LAPACKE_dspsvx_work + LAPACKE_dsptrd + LAPACKE_dsptrd_work + LAPACKE_dsptrf + LAPACKE_dsptrf_work + LAPACKE_dsptri + LAPACKE_dsptri_work + LAPACKE_dsptrs + LAPACKE_dsptrs_work + LAPACKE_dstebz + LAPACKE_dstebz_work + LAPACKE_dstedc + LAPACKE_dstedc_work + LAPACKE_dstegr + LAPACKE_dstegr_work + LAPACKE_dstein + LAPACKE_dstein_work + LAPACKE_dstemr + LAPACKE_dstemr_work + LAPACKE_dsteqr + LAPACKE_dsteqr_work + LAPACKE_dsterf + LAPACKE_dsterf_work + LAPACKE_dstev + LAPACKE_dstev_work + LAPACKE_dstevd + LAPACKE_dstevd_work + LAPACKE_dstevr + LAPACKE_dstevr_work + LAPACKE_dstevx + LAPACKE_dstevx_work + LAPACKE_dsycon + LAPACKE_dsycon_work + LAPACKE_dsyconv + LAPACKE_dsyconv_work + LAPACKE_dsyequb + LAPACKE_dsyequb_work + LAPACKE_dsyev + LAPACKE_dsyev_work + LAPACKE_dsyevd + LAPACKE_dsyevd_work + LAPACKE_dsyevr + LAPACKE_dsyevr_work + LAPACKE_dsyevx + LAPACKE_dsyevx_work + LAPACKE_dsygst + LAPACKE_dsygst_work + LAPACKE_dsygv + LAPACKE_dsygv_work + LAPACKE_dsygvd + LAPACKE_dsygvd_work + LAPACKE_dsygvx + LAPACKE_dsygvx_work + LAPACKE_dsyrfs + LAPACKE_dsyrfs_work + LAPACKE_dsysv + LAPACKE_dsysv_rook + LAPACKE_dsysv_rook_work + LAPACKE_dsysv_work + LAPACKE_dsysvx + LAPACKE_dsysvx_work + LAPACKE_dsyswapr + LAPACKE_dsyswapr_work + LAPACKE_dsytrd + LAPACKE_dsytrd_work + LAPACKE_dsytrf + LAPACKE_dsytrf_work + LAPACKE_dsytri + LAPACKE_dsytri2 + LAPACKE_dsytri2_work + LAPACKE_dsytri2x + LAPACKE_dsytri2x_work + LAPACKE_dsytri_work + LAPACKE_dsytrs + LAPACKE_dsytrs2 + LAPACKE_dsytrs2_work + LAPACKE_dsytrs_work + LAPACKE_dtbcon + LAPACKE_dtbcon_work + LAPACKE_dtbrfs + LAPACKE_dtbrfs_work + LAPACKE_dtbtrs + LAPACKE_dtbtrs_work + LAPACKE_dtfsm + LAPACKE_dtfsm_work + LAPACKE_dtftri + LAPACKE_dtftri_work + LAPACKE_dtfttp + LAPACKE_dtfttp_work + LAPACKE_dtfttr + LAPACKE_dtfttr_work + LAPACKE_dtgevc + LAPACKE_dtgevc_work + LAPACKE_dtgexc + LAPACKE_dtgexc_work + LAPACKE_dtgsen + LAPACKE_dtgsen_work + LAPACKE_dtgsja + LAPACKE_dtgsja_work + LAPACKE_dtgsna + LAPACKE_dtgsna_work + LAPACKE_dtgsyl + LAPACKE_dtgsyl_work + LAPACKE_dtpcon + LAPACKE_dtpcon_work + LAPACKE_dtpmqrt + LAPACKE_dtpmqrt_work + LAPACKE_dtpqrt + LAPACKE_dtpqrt2 + LAPACKE_dtpqrt2_work + LAPACKE_dtpqrt_work + LAPACKE_dtprfb + LAPACKE_dtprfb_work + LAPACKE_dtprfs + LAPACKE_dtprfs_work + LAPACKE_dtptri + LAPACKE_dtptri_work + LAPACKE_dtptrs + LAPACKE_dtptrs_work + LAPACKE_dtpttf + LAPACKE_dtpttf_work + LAPACKE_dtpttr + LAPACKE_dtpttr_work + LAPACKE_dtrcon + LAPACKE_dtrcon_work + LAPACKE_dtrevc + LAPACKE_dtrevc_work + LAPACKE_dtrexc + LAPACKE_dtrexc_work + LAPACKE_dtrrfs + LAPACKE_dtrrfs_work + LAPACKE_dtrsen + LAPACKE_dtrsen_work + LAPACKE_dtrsna + LAPACKE_dtrsna_work + LAPACKE_dtrsyl + LAPACKE_dtrsyl_work + LAPACKE_dtrtri + LAPACKE_dtrtri_work + LAPACKE_dtrtrs + LAPACKE_dtrtrs_work + LAPACKE_dtrttf + LAPACKE_dtrttf_work + LAPACKE_dtrttp + LAPACKE_dtrttp_work + LAPACKE_dtzrzf + LAPACKE_dtzrzf_work + LAPACKE_dlatms + LAPACKE_dlatms_work + LAPACKE_dlagge + LAPACKE_dlagge_work + LAPACKE_dlagsy + LAPACKE_dlagsy_work + LAPACKE_dbdsvdx + LAPACKE_dbdsvdx_work + LAPACKE_dgesvdx + LAPACKE_dgesvdx_work + LAPACKE_dgetrf2 + LAPACKE_dgetrf2_work + LAPACKE_dgges3 + LAPACKE_dgges3_work + LAPACKE_dggev3 + LAPACKE_dggev3_work + LAPACKE_dgghd3 + LAPACKE_dgghd3_work + LAPACKE_dggsvd3 + LAPACKE_dggsvd3_work + LAPACKE_dggsvp3 + LAPACKE_dggsvp3_work + LAPACKE_dlapmt + LAPACKE_dlapmt_work + LAPACKE_dlascl + LAPACKE_dlascl_work + LAPACKE_dorcsd2by1 + LAPACKE_dorcsd2by1_work + LAPACKE_dpotrf2 + LAPACKE_dpotrf2_work + LAPACKE_dsytrf_rook + LAPACKE_dsytrf_rook_work + LAPACKE_dsytrs_rook + LAPACKE_dsytrs_rook_work + LAPACKE_dgelq + LAPACKE_dgelq_work + LAPACKE_dgemlq + LAPACKE_dgemlq_work + LAPACKE_dgemqr + LAPACKE_dgemqr_work + LAPACKE_dgeqr + LAPACKE_dgeqr_work + LAPACKE_dgetsls + LAPACKE_dgetsls_work + LAPACKE_dsbev_2stage + LAPACKE_dsbev_2stage_work + LAPACKE_dsbevd_2stage + LAPACKE_dsbevd_2stage_work + LAPACKE_dsbevx_2stage + LAPACKE_dsbevx_2stage_work + LAPACKE_dsycon_3 + LAPACKE_dsycon_3_work + LAPACKE_dsyev_2stage + LAPACKE_dsyev_2stage_work + LAPACKE_dsyevd_2stage + LAPACKE_dsyevd_2stage_work + LAPACKE_dsyevr_2stage + LAPACKE_dsyevr_2stage_work + LAPACKE_dsyevx_2stage + LAPACKE_dsyevx_2stage_work + LAPACKE_dsygv_2stage + LAPACKE_dsygv_2stage_work + LAPACKE_dsysv_aa + LAPACKE_dsysv_aa_work + LAPACKE_dsysv_rk + LAPACKE_dsysv_rk_work + LAPACKE_dsytrf_aa + LAPACKE_dsytrf_aa_work + LAPACKE_dsytrf_rk + LAPACKE_dsytrf_rk_work + LAPACKE_dsytri_3 + LAPACKE_dsytri_3_work + LAPACKE_dsytrs_aa + LAPACKE_dsytrs_aa_work + LAPACKE_dsytrs_3 + LAPACKE_dsytrs_3_work + LAPACKE_dlassq + LAPACKE_dlassq_work + LAPACKE_dsysv_aa_2stage + LAPACKE_dsysv_aa_2stage_work + LAPACKE_dsytrf_aa_2stage + LAPACKE_dsytrf_aa_2stage_work + LAPACKE_dsytrs_aa_2stage + LAPACKE_dsytrs_aa_2stage_work + LAPACKE_dgesvdq + LAPACKE_dgesvdq_work + LAPACKE_slag2d + LAPACKE_slag2d_work + LAPACKE_dgetsqrhrt + LAPACKE_dgetsqrhrt_work + LAPACKE_dorgtsqr_row + LAPACKE_dorgtsqr_row_work +" + +lapackeobjss=" + LAPACKE_sgb_nancheck + LAPACKE_sgb_trans + LAPACKE_sge_nancheck + LAPACKE_sge_trans + LAPACKE_sgg_nancheck + LAPACKE_sgg_trans + LAPACKE_sgt_nancheck + LAPACKE_shs_nancheck + LAPACKE_shs_trans + LAPACKE_s_nancheck + LAPACKE_spb_nancheck + LAPACKE_spb_trans + LAPACKE_spf_nancheck + LAPACKE_spf_trans + LAPACKE_spo_nancheck + LAPACKE_spo_trans + LAPACKE_spp_nancheck + LAPACKE_spp_trans + LAPACKE_spt_nancheck + LAPACKE_ssb_nancheck + LAPACKE_ssb_trans + LAPACKE_ssp_nancheck + LAPACKE_ssp_trans + LAPACKE_sst_nancheck + LAPACKE_ssy_nancheck + LAPACKE_ssy_trans + LAPACKE_stb_nancheck + LAPACKE_stb_trans + LAPACKE_stf_nancheck + LAPACKE_stf_trans + LAPACKE_stp_nancheck + LAPACKE_stp_trans + LAPACKE_str_nancheck + LAPACKE_str_trans + LAPACKE_sbbcsd + LAPACKE_sbbcsd_work + LAPACKE_sbdsdc + LAPACKE_sbdsdc_work + LAPACKE_sbdsqr + LAPACKE_sbdsqr_work + LAPACKE_sdisna + LAPACKE_sdisna_work + LAPACKE_sgbbrd + LAPACKE_sgbbrd_work + LAPACKE_sgbcon + LAPACKE_sgbcon_work + LAPACKE_sgbequ + LAPACKE_sgbequ_work + LAPACKE_sgbequb + LAPACKE_sgbequb_work + LAPACKE_sgbrfs + LAPACKE_sgbrfs_work + LAPACKE_sgbsv + LAPACKE_sgbsv_work + LAPACKE_sgbsvx + LAPACKE_sgbsvx_work + LAPACKE_sgbtrf + LAPACKE_sgbtrf_work + LAPACKE_sgbtrs + LAPACKE_sgbtrs_work + LAPACKE_sgebak + LAPACKE_sgebak_work + LAPACKE_sgebal + LAPACKE_sgebal_work + LAPACKE_sgebrd + LAPACKE_sgebrd_work + LAPACKE_sgecon + LAPACKE_sgecon_work + LAPACKE_sgeequ + LAPACKE_sgeequ_work + LAPACKE_sgeequb + LAPACKE_sgeequb_work + LAPACKE_sgees + LAPACKE_sgees_work + LAPACKE_sgeesx + LAPACKE_sgeesx_work + LAPACKE_sgeev + LAPACKE_sgeev_work + LAPACKE_sgeevx + LAPACKE_sgeevx_work + LAPACKE_sgehrd + LAPACKE_sgehrd_work + LAPACKE_sgejsv + LAPACKE_sgejsv_work + LAPACKE_sgelq2 + LAPACKE_sgelq2_work + LAPACKE_sgelqf + LAPACKE_sgelqf_work + LAPACKE_sgels + LAPACKE_sgels_work + LAPACKE_sgelsd + LAPACKE_sgelsd_work + LAPACKE_sgelss + LAPACKE_sgelss_work + LAPACKE_sgelsy + LAPACKE_sgelsy_work + LAPACKE_sgemqrt + LAPACKE_sgemqrt_work + LAPACKE_sgeqlf + LAPACKE_sgeqlf_work + LAPACKE_sgeqp3 + LAPACKE_sgeqp3_work + LAPACKE_sgeqr2 + LAPACKE_sgeqr2_work + LAPACKE_sgeqrf + LAPACKE_sgeqrf_work + LAPACKE_sgeqrfp + LAPACKE_sgeqrfp_work + LAPACKE_sgeqrt + LAPACKE_sgeqrt2 + LAPACKE_sgeqrt2_work + LAPACKE_sgeqrt3 + LAPACKE_sgeqrt3_work + LAPACKE_sgeqrt_work + LAPACKE_sgerfs + LAPACKE_sgerfs_work + LAPACKE_sgerqf + LAPACKE_sgerqf_work + LAPACKE_sgesdd + LAPACKE_sgesdd_work + LAPACKE_sgesv + LAPACKE_sgesv_work + LAPACKE_sgesvd + LAPACKE_sgesvd_work + LAPACKE_sgesvj + LAPACKE_sgesvj_work + LAPACKE_sgesvx + LAPACKE_sgesvx_work + LAPACKE_sgetf2 + LAPACKE_sgetf2_work + LAPACKE_sgetrf + LAPACKE_sgetrf_work + LAPACKE_sgetri + LAPACKE_sgetri_work + LAPACKE_sgetrs + LAPACKE_sgetrs_work + LAPACKE_sggbak + LAPACKE_sggbak_work + LAPACKE_sggbal + LAPACKE_sggbal_work + LAPACKE_sgges + LAPACKE_sgges_work + LAPACKE_sggesx + LAPACKE_sggesx_work + LAPACKE_sggev + LAPACKE_sggev_work + LAPACKE_sggevx + LAPACKE_sggevx_work + LAPACKE_sggglm + LAPACKE_sggglm_work + LAPACKE_sgghrd + LAPACKE_sgghrd_work + LAPACKE_sgglse + LAPACKE_sgglse_work + LAPACKE_sggqrf + LAPACKE_sggqrf_work + LAPACKE_sggrqf + LAPACKE_sggrqf_work + LAPACKE_sgtcon + LAPACKE_sgtcon_work + LAPACKE_sgtrfs + LAPACKE_sgtrfs_work + LAPACKE_sgtsv + LAPACKE_sgtsv_work + LAPACKE_sgtsvx + LAPACKE_sgtsvx_work + LAPACKE_sgttrf + LAPACKE_sgttrf_work + LAPACKE_sgttrs + LAPACKE_sgttrs_work + LAPACKE_shgeqz + LAPACKE_shgeqz_work + LAPACKE_shsein + LAPACKE_shsein_work + LAPACKE_shseqr + LAPACKE_shseqr_work + LAPACKE_slacn2 + LAPACKE_slacn2_work + LAPACKE_slacpy + LAPACKE_slacpy_work + LAPACKE_slamch + LAPACKE_slamch_work + LAPACKE_slange + LAPACKE_slange_work + LAPACKE_slansy + LAPACKE_slansy_work + LAPACKE_slantr + LAPACKE_slantr_work + LAPACKE_slapmr + LAPACKE_slapmr_work + LAPACKE_slapy2 + LAPACKE_slapy2_work + LAPACKE_slapy3 + LAPACKE_slapy3_work + LAPACKE_slarfb + LAPACKE_slarfb_work + LAPACKE_slarfg + LAPACKE_slarfg_work + LAPACKE_slarft + LAPACKE_slarft_work + LAPACKE_slarfx + LAPACKE_slarfx_work + LAPACKE_slarnv + LAPACKE_slarnv_work + LAPACKE_slartgp + LAPACKE_slartgp_work + LAPACKE_slartgs + LAPACKE_slartgs_work + LAPACKE_slaset + LAPACKE_slaset_work + LAPACKE_slasrt + LAPACKE_slasrt_work + LAPACKE_slaswp + LAPACKE_slaswp_work + LAPACKE_slauum + LAPACKE_slauum_work + LAPACKE_sopgtr + LAPACKE_sopgtr_work + LAPACKE_sopmtr + LAPACKE_sopmtr_work + LAPACKE_sorbdb + LAPACKE_sorbdb_work + LAPACKE_sorcsd + LAPACKE_sorcsd_work + LAPACKE_sorgbr + LAPACKE_sorgbr_work + LAPACKE_sorghr + LAPACKE_sorghr_work + LAPACKE_sorglq + LAPACKE_sorglq_work + LAPACKE_sorgql + LAPACKE_sorgql_work + LAPACKE_sorgqr + LAPACKE_sorgqr_work + LAPACKE_sorgrq + LAPACKE_sorgrq_work + LAPACKE_sorgtr + LAPACKE_sorgtr_work + LAPACKE_sormbr + LAPACKE_sormbr_work + LAPACKE_sormhr + LAPACKE_sormhr_work + LAPACKE_sormlq + LAPACKE_sormlq_work + LAPACKE_sormql + LAPACKE_sormql_work + LAPACKE_sormqr + LAPACKE_sormqr_work + LAPACKE_sormrq + LAPACKE_sormrq_work + LAPACKE_sormrz + LAPACKE_sormrz_work + LAPACKE_sormtr + LAPACKE_sormtr_work + LAPACKE_spbcon + LAPACKE_spbcon_work + LAPACKE_spbequ + LAPACKE_spbequ_work + LAPACKE_spbrfs + LAPACKE_spbrfs_work + LAPACKE_spbstf + LAPACKE_spbstf_work + LAPACKE_spbsv + LAPACKE_spbsv_work + LAPACKE_spbsvx + LAPACKE_spbsvx_work + LAPACKE_spbtrf + LAPACKE_spbtrf_work + LAPACKE_spbtrs + LAPACKE_spbtrs_work + LAPACKE_spftrf + LAPACKE_spftrf_work + LAPACKE_spftri + LAPACKE_spftri_work + LAPACKE_spftrs + LAPACKE_spftrs_work + LAPACKE_spocon + LAPACKE_spocon_work + LAPACKE_spoequ + LAPACKE_spoequ_work + LAPACKE_spoequb + LAPACKE_spoequb_work + LAPACKE_sporfs + LAPACKE_sporfs_work + LAPACKE_sposv + LAPACKE_sposv_work + LAPACKE_sposvx + LAPACKE_sposvx_work + LAPACKE_spotrf + LAPACKE_spotrf_work + LAPACKE_spotri + LAPACKE_spotri_work + LAPACKE_spotrs + LAPACKE_spotrs_work + LAPACKE_sppcon + LAPACKE_sppcon_work + LAPACKE_sppequ + LAPACKE_sppequ_work + LAPACKE_spprfs + LAPACKE_spprfs_work + LAPACKE_sppsv + LAPACKE_sppsv_work + LAPACKE_sppsvx + LAPACKE_sppsvx_work + LAPACKE_spptrf + LAPACKE_spptrf_work + LAPACKE_spptri + LAPACKE_spptri_work + LAPACKE_spptrs + LAPACKE_spptrs_work + LAPACKE_spstrf + LAPACKE_spstrf_work + LAPACKE_sptcon + LAPACKE_sptcon_work + LAPACKE_spteqr + LAPACKE_spteqr_work + LAPACKE_sptrfs + LAPACKE_sptrfs_work + LAPACKE_sptsv + LAPACKE_sptsv_work + LAPACKE_sptsvx + LAPACKE_sptsvx_work + LAPACKE_spttrf + LAPACKE_spttrf_work + LAPACKE_spttrs + LAPACKE_spttrs_work + LAPACKE_ssbev + LAPACKE_ssbev_work + LAPACKE_ssbevd + LAPACKE_ssbevd_work + LAPACKE_ssbevx + LAPACKE_ssbevx_work + LAPACKE_ssbgst + LAPACKE_ssbgst_work + LAPACKE_ssbgv + LAPACKE_ssbgv_work + LAPACKE_ssbgvd + LAPACKE_ssbgvd_work + LAPACKE_ssbgvx + LAPACKE_ssbgvx_work + LAPACKE_ssbtrd + LAPACKE_ssbtrd_work + LAPACKE_ssfrk + LAPACKE_ssfrk_work + LAPACKE_sspcon + LAPACKE_sspcon_work + LAPACKE_sspev + LAPACKE_sspev_work + LAPACKE_sspevd + LAPACKE_sspevd_work + LAPACKE_sspevx + LAPACKE_sspevx_work + LAPACKE_sspgst + LAPACKE_sspgst_work + LAPACKE_sspgv + LAPACKE_sspgv_work + LAPACKE_sspgvd + LAPACKE_sspgvd_work + LAPACKE_sspgvx + LAPACKE_sspgvx_work + LAPACKE_ssprfs + LAPACKE_ssprfs_work + LAPACKE_sspsv + LAPACKE_sspsv_work + LAPACKE_sspsvx + LAPACKE_sspsvx_work + LAPACKE_ssptrd + LAPACKE_ssptrd_work + LAPACKE_ssptrf + LAPACKE_ssptrf_work + LAPACKE_ssptri + LAPACKE_ssptri_work + LAPACKE_ssptrs + LAPACKE_ssptrs_work + LAPACKE_sstebz + LAPACKE_sstebz_work + LAPACKE_sstedc + LAPACKE_sstedc_work + LAPACKE_sstegr + LAPACKE_sstegr_work + LAPACKE_sstein + LAPACKE_sstein_work + LAPACKE_sstemr + LAPACKE_sstemr_work + LAPACKE_ssteqr + LAPACKE_ssteqr_work + LAPACKE_ssterf + LAPACKE_ssterf_work + LAPACKE_sstev + LAPACKE_sstev_work + LAPACKE_sstevd + LAPACKE_sstevd_work + LAPACKE_sstevr + LAPACKE_sstevr_work + LAPACKE_sstevx + LAPACKE_sstevx_work + LAPACKE_ssycon + LAPACKE_ssycon_work + LAPACKE_ssyconv + LAPACKE_ssyconv_work + LAPACKE_ssyequb + LAPACKE_ssyequb_work + LAPACKE_ssyev + LAPACKE_ssyev_work + LAPACKE_ssyevd + LAPACKE_ssyevd_work + LAPACKE_ssyevr + LAPACKE_ssyevr_work + LAPACKE_ssyevx + LAPACKE_ssyevx_work + LAPACKE_ssygst + LAPACKE_ssygst_work + LAPACKE_ssygv + LAPACKE_ssygv_work + LAPACKE_ssygvd + LAPACKE_ssygvd_work + LAPACKE_ssygvx + LAPACKE_ssygvx_work + LAPACKE_ssyrfs + LAPACKE_ssyrfs_work + LAPACKE_ssysv + LAPACKE_ssysv_rook + LAPACKE_ssysv_rook_work + LAPACKE_ssysv_work + LAPACKE_ssysvx + LAPACKE_ssysvx_work + LAPACKE_ssyswapr + LAPACKE_ssyswapr_work + LAPACKE_ssytrd + LAPACKE_ssytrd_work + LAPACKE_ssytrf + LAPACKE_ssytrf_work + LAPACKE_ssytri + LAPACKE_ssytri2 + LAPACKE_ssytri2_work + LAPACKE_ssytri2x + LAPACKE_ssytri2x_work + LAPACKE_ssytri_work + LAPACKE_ssytrs + LAPACKE_ssytrs2 + LAPACKE_ssytrs2_work + LAPACKE_ssytrs_work + LAPACKE_stbcon + LAPACKE_stbcon_work + LAPACKE_stbrfs + LAPACKE_stbrfs_work + LAPACKE_stbtrs + LAPACKE_stbtrs_work + LAPACKE_stfsm + LAPACKE_stfsm_work + LAPACKE_stftri + LAPACKE_stftri_work + LAPACKE_stfttp + LAPACKE_stfttp_work + LAPACKE_stfttr + LAPACKE_stfttr_work + LAPACKE_stgevc + LAPACKE_stgevc_work + LAPACKE_stgexc + LAPACKE_stgexc_work + LAPACKE_stgsen + LAPACKE_stgsen_work + LAPACKE_stgsja + LAPACKE_stgsja_work + LAPACKE_stgsna + LAPACKE_stgsna_work + LAPACKE_stgsyl + LAPACKE_stgsyl_work + LAPACKE_stpcon + LAPACKE_stpcon_work + LAPACKE_stpmqrt + LAPACKE_stpmqrt_work + LAPACKE_stpqrt2 + LAPACKE_stpqrt2_work + LAPACKE_stprfb + LAPACKE_stprfb_work + LAPACKE_stprfs + LAPACKE_stprfs_work + LAPACKE_stptri + LAPACKE_stptri_work + LAPACKE_stptrs + LAPACKE_stptrs_work + LAPACKE_stpttf + LAPACKE_stpttf_work + LAPACKE_stpttr + LAPACKE_stpttr_work + LAPACKE_strcon + LAPACKE_strcon_work + LAPACKE_strevc + LAPACKE_strevc_work + LAPACKE_strexc + LAPACKE_strexc_work + LAPACKE_strrfs + LAPACKE_strrfs_work + LAPACKE_strsen + LAPACKE_strsen_work + LAPACKE_strsna + LAPACKE_strsna_work + LAPACKE_strsyl + LAPACKE_strsyl_work + LAPACKE_strtri + LAPACKE_strtri_work + LAPACKE_strtrs + LAPACKE_strtrs_work + LAPACKE_strttf + LAPACKE_strttf_work + LAPACKE_strttp + LAPACKE_strttp_work + LAPACKE_stzrzf + LAPACKE_stzrzf_work + LAPACKE_slatms + LAPACKE_slatms_work + LAPACKE_slagge + LAPACKE_slagge_work + LAPACKE_slagsy + LAPACKE_slagsy_work + LAPACKE_sbdsvdx + LAPACKE_sbdsvdx_work + LAPACKE_sgesvdx + LAPACKE_sgesvdx_work + LAPACKE_sgetrf2 + LAPACKE_sgetrf2_work + LAPACKE_sgges3 + LAPACKE_sgges3_work + LAPACKE_sggev3 + LAPACKE_sggev3_work + LAPACKE_sgghd3 + LAPACKE_sgghd3_work + LAPACKE_sggsvd3 + LAPACKE_sggsvd3_work + LAPACKE_sggsvp3 + LAPACKE_sggsvp3_work + LAPACKE_slapmt + LAPACKE_slapmt_work + LAPACKE_slascl + LAPACKE_slascl_work + LAPACKE_sorcsd2by1 + LAPACKE_sorcsd2by1_work + LAPACKE_spotrf2 + LAPACKE_spotrf2_work + LAPACKE_ssytrf_rook + LAPACKE_ssytrf_rook_work + LAPACKE_ssytrs_rook + LAPACKE_ssytrs_rook_work + LAPACKE_stpqrt + LAPACKE_stpqrt_work + LAPACKE_sgelq + LAPACKE_sgelq_work + LAPACKE_sgemlq + LAPACKE_sgemlq_work + LAPACKE_sgemqr + LAPACKE_sgemqr_work + LAPACKE_sgeqr + LAPACKE_sgeqr_work + LAPACKE_sgetsls + LAPACKE_sgetsls_work + LAPACKE_ssbev_2stage + LAPACKE_ssbev_2stage_work + LAPACKE_ssbevd_2stage + LAPACKE_ssbevd_2stage_work + LAPACKE_ssbevx_2stage + LAPACKE_ssbevx_2stage_work + LAPACKE_ssycon_3 + LAPACKE_ssycon_3_work + LAPACKE_ssyev_2stage + LAPACKE_ssyev_2stage_work + LAPACKE_ssyevd_2stage + LAPACKE_ssyevd_2stage_work + LAPACKE_ssyevr_2stage + LAPACKE_ssyevr_2stage_work + LAPACKE_ssyevx_2stage + LAPACKE_ssyevx_2stage_work + LAPACKE_ssygv_2stage + LAPACKE_ssygv_2stage_work + LAPACKE_ssysv_aa + LAPACKE_ssysv_aa_work + LAPACKE_ssysv_rk + LAPACKE_ssysv_rk_work + LAPACKE_ssytrf_aa + LAPACKE_ssytrf_aa_work + LAPACKE_ssytrf_rk + LAPACKE_ssytrf_rk_work + LAPACKE_ssytri_3 + LAPACKE_ssytri_3_work + LAPACKE_ssytrs_aa + LAPACKE_ssytrs_aa_work + LAPACKE_ssytrs_3 + LAPACKE_ssytrs_3_work + LAPACKE_slassq + LAPACKE_slassq_work + LAPACKE_ssysv_aa_2stage + LAPACKE_ssysv_aa_2stage_work + LAPACKE_ssytrf_aa_2stage + LAPACKE_ssytrf_aa_2stage_work + LAPACKE_ssytrs_aa_2stage + LAPACKE_ssytrs_aa_2stage_work + LAPACKE_sgesvdq + LAPACKE_sgesvdq_work + LAPACKE_sgetsqrhrt + LAPACKE_sgetsqrhrt_work + LAPACKE_sorgtsqr_row + LAPACKE_sorgtsqr_row_work +" + +lapackeobjsz=" + LAPACKE_zgb_nancheck + LAPACKE_zgb_trans + LAPACKE_zge_nancheck + LAPACKE_zge_trans + LAPACKE_zgg_nancheck + LAPACKE_zgg_trans + LAPACKE_zgt_nancheck + LAPACKE_zhb_nancheck + LAPACKE_zhb_trans + LAPACKE_zhe_nancheck + LAPACKE_zhe_trans + LAPACKE_zhp_nancheck + LAPACKE_zhp_trans + LAPACKE_zhs_nancheck + LAPACKE_zhs_trans + LAPACKE_z_nancheck + LAPACKE_zpb_nancheck + LAPACKE_zpb_trans + LAPACKE_zpf_nancheck + LAPACKE_zpf_trans + LAPACKE_zpo_nancheck + LAPACKE_zpo_trans + LAPACKE_zpp_nancheck + LAPACKE_zpp_trans + LAPACKE_zpt_nancheck + LAPACKE_zsp_nancheck + LAPACKE_zsp_trans + LAPACKE_zst_nancheck + LAPACKE_zsy_nancheck + LAPACKE_zsy_trans + LAPACKE_ztb_nancheck + LAPACKE_ztb_trans + LAPACKE_ztf_nancheck + LAPACKE_ztf_trans + LAPACKE_ztp_nancheck + LAPACKE_ztp_trans + LAPACKE_ztr_nancheck + LAPACKE_ztr_trans + LAPACKE_zbbcsd + LAPACKE_zbbcsd_work + LAPACKE_zbdsqr + LAPACKE_zbdsqr_work + LAPACKE_zcgesv + LAPACKE_zcgesv_work + LAPACKE_zcposv + LAPACKE_zcposv_work + LAPACKE_zgbbrd + LAPACKE_zgbbrd_work + LAPACKE_zgbcon + LAPACKE_zgbcon_work + LAPACKE_zgbequ + LAPACKE_zgbequ_work + LAPACKE_zgbequb + LAPACKE_zgbequb_work + LAPACKE_zgbrfs + LAPACKE_zgbrfs_work + LAPACKE_zgbsv + LAPACKE_zgbsv_work + LAPACKE_zgbsvx + LAPACKE_zgbsvx_work + LAPACKE_zgbtrf + LAPACKE_zgbtrf_work + LAPACKE_zgbtrs + LAPACKE_zgbtrs_work + LAPACKE_zgebak + LAPACKE_zgebak_work + LAPACKE_zgebal + LAPACKE_zgebal_work + LAPACKE_zgebrd + LAPACKE_zgebrd_work + LAPACKE_zgecon + LAPACKE_zgecon_work + LAPACKE_zgeequ + LAPACKE_zgeequ_work + LAPACKE_zgeequb + LAPACKE_zgeequb_work + LAPACKE_zgees + LAPACKE_zgees_work + LAPACKE_zgeesx + LAPACKE_zgeesx_work + LAPACKE_zgeev + LAPACKE_zgeev_work + LAPACKE_zgeevx + LAPACKE_zgeevx_work + LAPACKE_zgehrd + LAPACKE_zgehrd_work + LAPACKE_zgelq2 + LAPACKE_zgelq2_work + LAPACKE_zgelqf + LAPACKE_zgelqf_work + LAPACKE_zgels + LAPACKE_zgels_work + LAPACKE_zgelsd + LAPACKE_zgelsd_work + LAPACKE_zgelss + LAPACKE_zgelss_work + LAPACKE_zgelsy + LAPACKE_zgelsy_work + LAPACKE_zgemqrt + LAPACKE_zgemqrt_work + LAPACKE_zgeqlf + LAPACKE_zgeqlf_work + LAPACKE_zgeqp3 + LAPACKE_zgeqp3_work + LAPACKE_zgeqr2 + LAPACKE_zgeqr2_work + LAPACKE_zgeqrf + LAPACKE_zgeqrf_work + LAPACKE_zgeqrfp + LAPACKE_zgeqrfp_work + LAPACKE_zgeqrt + LAPACKE_zgeqrt2 + LAPACKE_zgeqrt2_work + LAPACKE_zgeqrt3 + LAPACKE_zgeqrt3_work + LAPACKE_zgeqrt_work + LAPACKE_zgerfs + LAPACKE_zgerfs_work + LAPACKE_zgerqf + LAPACKE_zgerqf_work + LAPACKE_zgesdd + LAPACKE_zgesdd_work + LAPACKE_zgesv + LAPACKE_zgesv_work + LAPACKE_zgesvd + LAPACKE_zgesvd_work + LAPACKE_zgesvx + LAPACKE_zgesvx_work + LAPACKE_zgetf2 + LAPACKE_zgetf2_work + LAPACKE_zgetrf + LAPACKE_zgetrf_work + LAPACKE_zgetri + LAPACKE_zgetri_work + LAPACKE_zgetrs + LAPACKE_zgetrs_work + LAPACKE_zggbak + LAPACKE_zggbak_work + LAPACKE_zggbal + LAPACKE_zggbal_work + LAPACKE_zgges + LAPACKE_zgges_work + LAPACKE_zggesx + LAPACKE_zggesx_work + LAPACKE_zggev + LAPACKE_zggev_work + LAPACKE_zggevx + LAPACKE_zggevx_work + LAPACKE_zggglm + LAPACKE_zggglm_work + LAPACKE_zgghrd + LAPACKE_zgghrd_work + LAPACKE_zgglse + LAPACKE_zgglse_work + LAPACKE_zggqrf + LAPACKE_zggqrf_work + LAPACKE_zggrqf + LAPACKE_zggrqf_work + LAPACKE_zgtcon + LAPACKE_zgtcon_work + LAPACKE_zgtrfs + LAPACKE_zgtrfs_work + LAPACKE_zgtsv + LAPACKE_zgtsv_work + LAPACKE_zgtsvx + LAPACKE_zgtsvx_work + LAPACKE_zgttrf + LAPACKE_zgttrf_work + LAPACKE_zgttrs + LAPACKE_zgttrs_work + LAPACKE_zhbev + LAPACKE_zhbev_work + LAPACKE_zhbevd + LAPACKE_zhbevd_work + LAPACKE_zhbevx + LAPACKE_zhbevx_work + LAPACKE_zhbgst + LAPACKE_zhbgst_work + LAPACKE_zhbgv + LAPACKE_zhbgv_work + LAPACKE_zhbgvd + LAPACKE_zhbgvd_work + LAPACKE_zhbgvx + LAPACKE_zhbgvx_work + LAPACKE_zhbtrd + LAPACKE_zhbtrd_work + LAPACKE_zhecon + LAPACKE_zhecon_work + LAPACKE_zheequb + LAPACKE_zheequb_work + LAPACKE_zheev + LAPACKE_zheev_work + LAPACKE_zheevd + LAPACKE_zheevd_work + LAPACKE_zheevr + LAPACKE_zheevr_work + LAPACKE_zheevx + LAPACKE_zheevx_work + LAPACKE_zhegst + LAPACKE_zhegst_work + LAPACKE_zhegv + LAPACKE_zhegv_work + LAPACKE_zhegvd + LAPACKE_zhegvd_work + LAPACKE_zhegvx + LAPACKE_zhegvx_work + LAPACKE_zherfs + LAPACKE_zherfs_work + LAPACKE_zhesv + LAPACKE_zhesv_work + LAPACKE_zhesvx + LAPACKE_zhesvx_work + LAPACKE_zheswapr + LAPACKE_zheswapr_work + LAPACKE_zhetrd + LAPACKE_zhetrd_work + LAPACKE_zhetrf + LAPACKE_zhetrf_work + LAPACKE_zhetri + LAPACKE_zhetri2 + LAPACKE_zhetri2_work + LAPACKE_zhetri2x + LAPACKE_zhetri2x_work + LAPACKE_zhetri_work + LAPACKE_zhetrs + LAPACKE_zhetrs2 + LAPACKE_zhetrs2_work + LAPACKE_zhetrs_work + LAPACKE_zhfrk + LAPACKE_zhfrk_work + LAPACKE_zhgeqz + LAPACKE_zhgeqz_work + LAPACKE_zhpcon + LAPACKE_zhpcon_work + LAPACKE_zhpev + LAPACKE_zhpev_work + LAPACKE_zhpevd + LAPACKE_zhpevd_work + LAPACKE_zhpevx + LAPACKE_zhpevx_work + LAPACKE_zhpgst + LAPACKE_zhpgst_work + LAPACKE_zhpgv + LAPACKE_zhpgv_work + LAPACKE_zhpgvd + LAPACKE_zhpgvd_work + LAPACKE_zhpgvx + LAPACKE_zhpgvx_work + LAPACKE_zhprfs + LAPACKE_zhprfs_work + LAPACKE_zhpsv + LAPACKE_zhpsv_work + LAPACKE_zhpsvx + LAPACKE_zhpsvx_work + LAPACKE_zhptrd + LAPACKE_zhptrd_work + LAPACKE_zhptrf + LAPACKE_zhptrf_work + LAPACKE_zhptri + LAPACKE_zhptri_work + LAPACKE_zhptrs + LAPACKE_zhptrs_work + LAPACKE_zhsein + LAPACKE_zhsein_work + LAPACKE_zhseqr + LAPACKE_zhseqr_work + LAPACKE_zlacgv + LAPACKE_zlacgv_work + LAPACKE_zlacn2 + LAPACKE_zlacn2_work + LAPACKE_zlacp2 + LAPACKE_zlacp2_work + LAPACKE_zlacpy + LAPACKE_zlacpy_work + LAPACKE_zlag2c + LAPACKE_zlag2c_work + LAPACKE_zlange + LAPACKE_zlange_work + LAPACKE_zlanhe + LAPACKE_zlanhe_work + LAPACKE_zlansy + LAPACKE_zlansy_work + LAPACKE_zlantr + LAPACKE_zlantr_work + LAPACKE_zlapmr + LAPACKE_zlapmr_work + LAPACKE_zlarfb + LAPACKE_zlarfb_work + LAPACKE_zlarfg + LAPACKE_zlarfg_work + LAPACKE_zlarft + LAPACKE_zlarft_work + LAPACKE_zlarfx + LAPACKE_zlarfx_work + LAPACKE_zlarnv + LAPACKE_zlarnv_work + LAPACKE_zlaset + LAPACKE_zlaset_work + LAPACKE_zlaswp + LAPACKE_zlaswp_work + LAPACKE_zlauum + LAPACKE_zlauum_work + LAPACKE_zpbcon + LAPACKE_zpbcon_work + LAPACKE_zpbequ + LAPACKE_zpbequ_work + LAPACKE_zpbrfs + LAPACKE_zpbrfs_work + LAPACKE_zpbstf + LAPACKE_zpbstf_work + LAPACKE_zpbsv + LAPACKE_zpbsv_work + LAPACKE_zpbsvx + LAPACKE_zpbsvx_work + LAPACKE_zpbtrf + LAPACKE_zpbtrf_work + LAPACKE_zpbtrs + LAPACKE_zpbtrs_work + LAPACKE_zpftrf + LAPACKE_zpftrf_work + LAPACKE_zpftri + LAPACKE_zpftri_work + LAPACKE_zpftrs + LAPACKE_zpftrs_work + LAPACKE_zpocon + LAPACKE_zpocon_work + LAPACKE_zpoequ + LAPACKE_zpoequ_work + LAPACKE_zpoequb + LAPACKE_zpoequb_work + LAPACKE_zporfs + LAPACKE_zporfs_work + LAPACKE_zposv + LAPACKE_zposv_work + LAPACKE_zposvx + LAPACKE_zposvx_work + LAPACKE_zpotrf + LAPACKE_zpotrf_work + LAPACKE_zpotri + LAPACKE_zpotri_work + LAPACKE_zpotrs + LAPACKE_zpotrs_work + LAPACKE_zppcon + LAPACKE_zppcon_work + LAPACKE_zppequ + LAPACKE_zppequ_work + LAPACKE_zpprfs + LAPACKE_zpprfs_work + LAPACKE_zppsv + LAPACKE_zppsv_work + LAPACKE_zppsvx + LAPACKE_zppsvx_work + LAPACKE_zpptrf + LAPACKE_zpptrf_work + LAPACKE_zpptri + LAPACKE_zpptri_work + LAPACKE_zpptrs + LAPACKE_zpptrs_work + LAPACKE_zpstrf + LAPACKE_zpstrf_work + LAPACKE_zptcon + LAPACKE_zptcon_work + LAPACKE_zpteqr + LAPACKE_zpteqr_work + LAPACKE_zptrfs + LAPACKE_zptrfs_work + LAPACKE_zptsv + LAPACKE_zptsv_work + LAPACKE_zptsvx + LAPACKE_zptsvx_work + LAPACKE_zpttrf + LAPACKE_zpttrf_work + LAPACKE_zpttrs + LAPACKE_zpttrs_work + LAPACKE_zspcon + LAPACKE_zspcon_work + LAPACKE_zsprfs + LAPACKE_zsprfs_work + LAPACKE_zspsv + LAPACKE_zspsv_work + LAPACKE_zspsvx + LAPACKE_zspsvx_work + LAPACKE_zsptrf + LAPACKE_zsptrf_work + LAPACKE_zsptri + LAPACKE_zsptri_work + LAPACKE_zsptrs + LAPACKE_zsptrs_work + LAPACKE_zstedc + LAPACKE_zstedc_work + LAPACKE_zstegr + LAPACKE_zstegr_work + LAPACKE_zstein + LAPACKE_zstein_work + LAPACKE_zstemr + LAPACKE_zstemr_work + LAPACKE_zsteqr + LAPACKE_zsteqr_work + LAPACKE_zsycon + LAPACKE_zsycon_work + LAPACKE_zsyconv + LAPACKE_zsyconv_work + LAPACKE_zsyequb + LAPACKE_zsyequb_work + LAPACKE_zsyrfs + LAPACKE_zsyrfs_work + LAPACKE_zsysv + LAPACKE_zsysv_rook + LAPACKE_zsysv_rook_work + LAPACKE_zsysv_work + LAPACKE_zsysvx + LAPACKE_zsysvx_work + LAPACKE_zsyswapr + LAPACKE_zsyswapr_work + LAPACKE_zsytrf + LAPACKE_zsytrf_work + LAPACKE_zsytri + LAPACKE_zsytri2 + LAPACKE_zsytri2_work + LAPACKE_zsytri2x + LAPACKE_zsytri2x_work + LAPACKE_zsytri_work + LAPACKE_zsytrs + LAPACKE_zsytrs2 + LAPACKE_zsytrs2_work + LAPACKE_zsytrs_work + LAPACKE_ztbcon + LAPACKE_ztbcon_work + LAPACKE_ztbrfs + LAPACKE_ztbrfs_work + LAPACKE_ztbtrs + LAPACKE_ztbtrs_work + LAPACKE_ztfsm + LAPACKE_ztfsm_work + LAPACKE_ztftri + LAPACKE_ztftri_work + LAPACKE_ztfttp + LAPACKE_ztfttp_work + LAPACKE_ztfttr + LAPACKE_ztfttr_work + LAPACKE_ztgevc + LAPACKE_ztgevc_work + LAPACKE_ztgexc + LAPACKE_ztgexc_work + LAPACKE_ztgsen + LAPACKE_ztgsen_work + LAPACKE_ztgsja + LAPACKE_ztgsja_work + LAPACKE_ztgsna + LAPACKE_ztgsna_work + LAPACKE_ztgsyl + LAPACKE_ztgsyl_work + LAPACKE_ztpcon + LAPACKE_ztpcon_work + LAPACKE_ztpmqrt + LAPACKE_ztpmqrt_work + LAPACKE_ztpqrt + LAPACKE_ztpqrt2 + LAPACKE_ztpqrt2_work + LAPACKE_ztpqrt_work + LAPACKE_ztprfb + LAPACKE_ztprfb_work + LAPACKE_ztprfs + LAPACKE_ztprfs_work + LAPACKE_ztptri + LAPACKE_ztptri_work + LAPACKE_ztptrs + LAPACKE_ztptrs_work + LAPACKE_ztpttf + LAPACKE_ztpttf_work + LAPACKE_ztpttr + LAPACKE_ztpttr_work + LAPACKE_ztrcon + LAPACKE_ztrcon_work + LAPACKE_ztrevc + LAPACKE_ztrevc_work + LAPACKE_ztrexc + LAPACKE_ztrexc_work + LAPACKE_ztrrfs + LAPACKE_ztrrfs_work + LAPACKE_ztrsen + LAPACKE_ztrsen_work + LAPACKE_ztrsna + LAPACKE_ztrsna_work + LAPACKE_ztrsyl + LAPACKE_ztrsyl_work + LAPACKE_ztrtri + LAPACKE_ztrtri_work + LAPACKE_ztrtrs + LAPACKE_ztrtrs_work + LAPACKE_ztrttf + LAPACKE_ztrttf_work + LAPACKE_ztrttp + LAPACKE_ztrttp_work + LAPACKE_ztzrzf + LAPACKE_ztzrzf_work + LAPACKE_zunbdb + LAPACKE_zunbdb_work + LAPACKE_zuncsd + LAPACKE_zuncsd_work + LAPACKE_zungbr + LAPACKE_zungbr_work + LAPACKE_zunghr + LAPACKE_zunghr_work + LAPACKE_zunglq + LAPACKE_zunglq_work + LAPACKE_zungql + LAPACKE_zungql_work + LAPACKE_zungqr + LAPACKE_zungqr_work + LAPACKE_zungrq + LAPACKE_zungrq_work + LAPACKE_zungtr + LAPACKE_zungtr_work + LAPACKE_zunmbr + LAPACKE_zunmbr_work + LAPACKE_zunmhr + LAPACKE_zunmhr_work + LAPACKE_zunmlq + LAPACKE_zunmlq_work + LAPACKE_zunmql + LAPACKE_zunmql_work + LAPACKE_zunmqr + LAPACKE_zunmqr_work + LAPACKE_zunmrq + LAPACKE_zunmrq_work + LAPACKE_zunmrz + LAPACKE_zunmrz_work + LAPACKE_zunmtr + LAPACKE_zunmtr_work + LAPACKE_zupgtr + LAPACKE_zupgtr_work + LAPACKE_zupmtr + LAPACKE_zupmtr_work + LAPACKE_zsyr + LAPACKE_zsyr_work + LAPACKE_zlatms + LAPACKE_zlatms_work + LAPACKE_zlagge + LAPACKE_zlagge_work + LAPACKE_zlaghe + LAPACKE_zlaghe_work + LAPACKE_zlagsy + LAPACKE_zlagsy_work + LAPACKE_zgejsv + LAPACKE_zgejsv_work + LAPACKE_zgesvdx + LAPACKE_zgesvdx_work + LAPACKE_zgesvj + LAPACKE_zgesvj_work + LAPACKE_zgetrf2 + LAPACKE_zgetrf2_work + LAPACKE_zgges3 + LAPACKE_zgges3_work + LAPACKE_zggev3 + LAPACKE_zggev3_work + LAPACKE_zgghd3 + LAPACKE_zgghd3_work + LAPACKE_zggsvd3 + LAPACKE_zggsvd3_work + LAPACKE_zggsvp3 + LAPACKE_zggsvp3_work + LAPACKE_zhetrf_rook + LAPACKE_zhetrf_rook_work + LAPACKE_zhetrs_rook + LAPACKE_zhetrs_rook_work + LAPACKE_zlapmt + LAPACKE_zlapmt_work + LAPACKE_zlascl + LAPACKE_zlascl_work + LAPACKE_zpotrf2 + LAPACKE_zpotrf2_work + LAPACKE_zsytrf_rook + LAPACKE_zsytrf_rook_work + LAPACKE_zsytrs_rook + LAPACKE_zsytrs_rook_work + LAPACKE_zuncsd2by1 + LAPACKE_zuncsd2by1_work + LAPACKE_zgelq + LAPACKE_zgelq_work + LAPACKE_zgemlq + LAPACKE_zgemlq_work + LAPACKE_zgemqr + LAPACKE_zgemqr_work + LAPACKE_zgeqr + LAPACKE_zgeqr_work + LAPACKE_zgetsls + LAPACKE_zgetsls_work + LAPACKE_zhbev_2stage + LAPACKE_zhbev_2stage_work + LAPACKE_zhbevd_2stage + LAPACKE_zhbevd_2stage_work + LAPACKE_zhbevx_2stage + LAPACKE_zhbevx_2stage_work + LAPACKE_zhecon_3 + LAPACKE_zhecon_3_work + LAPACKE_zheev_2stage + LAPACKE_zheev_2stage_work + LAPACKE_zheevd_2stage + LAPACKE_zheevd_2stage_work + LAPACKE_zheevr_2stage + LAPACKE_zheevr_2stage_work + LAPACKE_zheevx_2stage + LAPACKE_zheevx_2stage_work + LAPACKE_zhegv_2stage + LAPACKE_zhegv_2stage_work + LAPACKE_zhesv_aa + LAPACKE_zhesv_aa_work + LAPACKE_zhesv_rk + LAPACKE_zhesv_rk_work + LAPACKE_zhetrf_aa + LAPACKE_zhetrf_aa_work + LAPACKE_zhetrf_rk + LAPACKE_zhetrf_rk_work + LAPACKE_zhetri_3 + LAPACKE_zhetri_3_work + LAPACKE_zhetrs_aa + LAPACKE_zhetrs_aa_work + LAPACKE_zhetrs_3 + LAPACKE_zhetrs_3_work + LAPACKE_zsycon_3 + LAPACKE_zsycon_3_work + LAPACKE_zsysv_aa + LAPACKE_zsysv_aa_work + LAPACKE_zsysv_rk + LAPACKE_zsysv_rk_work + LAPACKE_zsytrf_aa + LAPACKE_zsytrf_aa_work + LAPACKE_zsytrf_rk + LAPACKE_zsytrf_rk_work + LAPACKE_zsytri_3 + LAPACKE_zsytri_3_work + LAPACKE_zsytrs_aa + LAPACKE_zsytrs_aa_work + LAPACKE_zsytrs_3 + LAPACKE_zsytrs_3_work + LAPACKE_zhesv_aa_2stage + LAPACKE_zhesv_aa_2stage_work + LAPACKE_zhetrf_aa_2stage + LAPACKE_zhetrf_aa_2stage_work + LAPACKE_zhetrs_aa_2stage + LAPACKE_zhetrs_aa_2stage_work + LAPACKE_zlacrm + LAPACKE_zlacrm_work + LAPACKE_zlarcm + LAPACKE_zlarcm_work + LAPACKE_zlassq + LAPACKE_zlassq_work + LAPACKE_zsysv_aa_2stage + LAPACKE_zsysv_aa_2stage_work + LAPACKE_zsytrf_aa_2stage + LAPACKE_zsytrf_aa_2stage_work + LAPACKE_zsytrs_aa_2stage + LAPACKE_zsytrs_aa_2stage_work + LAPACKE_zgesvdq LAPACKE_zgesvdq_work -); + LAPACKE_zgetsqrhrt + LAPACKE_zgetsqrhrt_work + LAPACKE_zungtsqr_row + LAPACKE_zungtsqr_row_work +" +## @(SRCX_OBJ) from `lapack-3.4.1/lapacke/src/Makefile` +## Not exported: requires LAPACKE_EXTENDED to be set and depends on the +## corresponding LAPACK extended precision routines. +#LAPACKE_cgbrfsx, +#LAPACKE_cporfsx, +#LAPACKE_dgerfsx, +#LAPACKE_sgbrfsx, +#LAPACKE_ssyrfsx, +#LAPACKE_zherfsx, +#LAPACKE_cgbrfsx_work, +#LAPACKE_cporfsx_work, +#LAPACKE_dgerfsx_work, +#LAPACKE_sgbrfsx_work, +#LAPACKE_ssyrfsx_work, +#LAPACKE_zherfsx_work, +#LAPACKE_cgerfsx, +#LAPACKE_csyrfsx, +#LAPACKE_dporfsx, +#LAPACKE_sgerfsx, +#LAPACKE_zgbrfsx, +#LAPACKE_zporfsx, +#LAPACKE_cgerfsx_work, +#LAPACKE_csyrfsx_work, +#LAPACKE_dporfsx_work, +#LAPACKE_sgerfsx_work, +#LAPACKE_zgbrfsx_work, +#LAPACKE_zporfsx_work, +#LAPACKE_cherfsx, +#LAPACKE_dgbrfsx, +#LAPACKE_dsyrfsx, +#LAPACKE_sporfsx, +#LAPACKE_zgerfsx, +#LAPACKE_zsyrfsx, +#LAPACKE_cherfsx_work, +#LAPACKE_dgbrfsx_work, +#LAPACKE_dsyrfsx_work, +#LAPACKE_sporfsx_work, +#LAPACKE_zgerfsx_work, +#LAPACKE_zsyrfsx_work, +#LAPACKE_cgbsvxx, +#LAPACKE_cposvxx, +#LAPACKE_dgesvxx, +#LAPACKE_sgbsvxx, +#LAPACKE_ssysvxx, +#LAPACKE_zhesvxx, +#LAPACKE_cgbsvxx_work, +#LAPACKE_cposvxx_work, +#LAPACKE_dgesvxx_work, +#LAPACKE_sgbsvxx_work, +#LAPACKE_ssysvxx_work, +#LAPACKE_zhesvxx_work, +#LAPACKE_cgesvxx, +#LAPACKE_csysvxx, +#LAPACKE_dposvxx, +#LAPACKE_sgesvxx, +#LAPACKE_zgbsvxx, +#LAPACKE_zposvxx, +#LAPACKE_cgesvxx_work, +#LAPACKE_csysvxx_work, +#LAPACKE_dposvxx_work, +#LAPACKE_sgesvxx_work, +#LAPACKE_zgbsvxx_work, +#LAPACKE_zposvxx_work, +#LAPACKE_chesvxx, +#LAPACKE_dgbsvxx, +#LAPACKE_dsysvxx, +#LAPACKE_sposvxx, +#LAPACKE_zgesvxx, +#LAPACKE_zsysvxx, +#LAPACKE_chesvxx_work, +#LAPACKE_dgbsvxx_work, +#LAPACKE_dsysvxx_work, +#LAPACKE_sposvxx_work, +#LAPACKE_zgesvxx_work, +#LAPACKE_zsysvxx_work, + +## @(MATGEN_OBJ) from `lapack-3.4.1/lapacke/src/Makefile` +## Not exported: requires LAPACKE_TESTING to be set and depends on libtmg +## (see `lapack-3.4.1/TESTING/MATGEN`). #These function may need 2 underscores. -@lapack_embeded_underscore_objs=( - xerbla_array, chla_transtype, - ); -@lapack_embeded_underscore_objs_s=( - slasyf_rook, - ssytf2_rook, ssytrf_rook, ssytrs_rook, - ssytri_rook, ssycon_rook, ssysv_rook, - slasyf_rk, ssyconvf_rook, ssytf2_rk, - ssytrf_rk, ssytrs_3, ssytri_3, - ssytri_3x, ssycon_3, ssysv_rk, - slasyf_aa, ssysv_aa, ssytrf_aa, - ssytrs_aa, ssytrd_2stage, ssytrd_sy2sb, - ssytrd_sb2st, ssb2st_kernels, ssyevd_2stage, - ssyev_2stage, ssyevx_2stage, ssyevr_2stage, - ssbev_2stage, ssbevx_2stage, ssbevd_2stage, - ssygv_2stage, - ssysv_aa_2stage, ssytrf_aa_2stage, - ssytrs_aa_2stage, - slaorhr_col_getrfnp, slaorhr_col_getrfnp2, sorhr_col, -); -@lapack_embeded_underscore_objs_c=( - 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, - chetf2_rk, - chetrf_rk, chetri_3, chetri_3x, - chetrs_3, checon_3, chesv_rk, - chesv_aa, chetrf_aa, chetrs_aa, - clahef_aa, clahef_rk, clasyf_rk, - clasyf_aa, csytf2_rk, csytrf_rk, - csytrf_aa, csytrs_3, csytrs_aa, - csytri_3, csytri_3x, csycon_3, - csysv_rk, csysv_aa, csyconvf_rook, - chetrd_2stage, chetrd_he2hb, chetrd_hb2st, - chb2st_kernels, cheevd_2stage, cheev_2stage, - cheevx_2stage, cheevr_2stage, chbev_2stage, - chbevx_2stage, chbevd_2stage, chegv_2stage, - chesv_aa_2stage, - chetrf_aa_2stage, chetrs_aa_2stage, - csysv_aa_2stage, csytrf_aa_2stage, - csytrs_aa_2stage, - claunhr_col_getrfnp, claunhr_col_getrfnp2, cunhr_col, -); -@lapack_embeded_underscore_objs_d=( - dlasyf_rook, - dsytf2_rook, dsytrf_rook, dsytrs_rook, - dsytri_rook, dsycon_rook, dsysv_rook, - dlasyf_rk, dsyconvf_rook, - dsytf2_rk, dsytrf_rk, dsytrs_3, - dsytri_3, dsytri_3x, dsycon_3, - dsysv_rk, dlasyf_aa, dsysv_aa, - dsytrf_aa, dsytrs_aa, dsytrd_2stage, - dsytrd_sy2sb, dsytrd_sb2st, dsb2st_kernels, - dsyevd_2stage, dsyev_2stage, dsyevx_2stage, - dsyevr_2stage, dsbev_2stage, dsbevx_2stage, - dsbevd_2stage, dsygv_2stage, - dsysv_aa_2stage, - dsytrf_aa_2stage, dsytrs_aa_2stage, - dlaorhr_col_getrfnp, dlaorhr_col_getrfnp2, dorhr_col, -); -@lapack_embeded_underscore_objs_z=( - 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, - zhetf2_rk, zhetrf_rk, zhetri_3, - zhetri_3x, zhetrs_3, zhecon_3, - zhesv_rk, zhesv_aa, zhetrf_aa, - zhetrs_aa, zlahef_aa, zlahef_rk, - zlasyf_rk, zlasyf_aa, zsyconvf_rook, - zsytrs_aa, zsytf2_rk, zsytrf_rk, - zsytrf_aa, zsytrs_3, zsytri_3, - zsytri_3x, zsycon_3, zsysv_rk, - zsysv_aa, zhetrd_2stage, zhetrd_he2hb, - zhetrd_hb2st, zhb2st_kernels, zheevd_2stage, - zheev_2stage, zheevx_2stage, zheevr_2stage, - zhbev_2stage, zhbevx_2stage, zhbevd_2stage, - zhegv_2stage, - zhesv_aa_2stage, zhetrf_aa_2stage, - zhetrs_aa_2stage, zsysv_aa_2stage, - zsytrf_aa_2stage, zsytrs_aa_2stage, - zlaunhr_col_getrfnp, zlaunhr_col_getrfnp2, zunhr_col -); - - -use File::Spec; -use File::Basename; -my $dirname = File::Spec->catfile(dirname(dirname(File::Spec->rel2abs(__FILE__))), "lapack-netlib"); - -if ($ARGV[12] == 1) { - @blasobjs = (@blasobjs, @bfblasobjs); - @cblasobjs = (@cblasobjs, @bfcblasobjs); -} -if ($ARGV[13] == 1) { - @blasobjs = (@blasobjs, @blasobjss); - @cblasobjs = (@cblasobjs, @cblasobjss); - @lapackobjs = (@lapackobjs, @lapackobjss); - @lapackobjs2 = (@lapackobjs2, @lapackobjs2s); - @lapackobjs2 = (@lapackobjs2, @lapackobjs2sc); - @lapackobjs2 = (@lapackobjs2, @lapackobjs2ds); - @lapack_deprecated_objs = (@lapack_deprecated_objs, @lapack_deprecated_objss); - @lapacke_deprecated_objs = (@lapacke_deprecated_objs, @lapacke_deprecated_objss); - @lapack_embeded_underscore_objs = (@lapack_embeded_underscore_objs, @lapack_embeded_underscore_objs_s); - @lapackeobjs = (@lapackeobjs, @lapackeobjss); -} -if ($ARGV[14] == 1) { - @blasobjs = (@blasobjs, @blasobjsd); - @cblasobjs = (@cblasobjs, @cblasobjsd); - @lapackobjs = (@lapackobjs, @lapackobjsd); - if ($ARGV[13] == 0) { - @lapackobjs2 = (@lapackobjs2, @lapackobjs2ds); - } - @lapackobjs2 = (@lapackobjs2, @lapackobjs2d, @lapackobjs2dz); - @lapack_deprecated_objs = (@lapack_deprecated_objs, @lapack_deprecated_objsd); - @lapacke_deprecated_objs = (@lapacke_deprecated_objs, @lapacke_deprecated_objsd); - @lapack_embeded_underscore_objs = (@lapack_embeded_underscore_objs, @lapack_embeded_underscore_objs_d); - @lapackeobjs = (@lapackeobjs, @lapackeobjsd); -} -if ($ARGV[15] == 1) { - @blasobjs = (@blasobjs, @blasobjsc); - @cblasobjs = (@cblasobjs, @cblasobjsc); - @gemm3mobjs = (@gemm3mobjs, @gemm3mobjsc); - @cblasgemm3mobjs = (@cblasgemm3mobjs, @cblasgemm3mobjsc); - @lapackobjs = (@lapackobjs, @lapackobjsc); - @lapackobjs2 = (@lapackobjs2, @lapackobjs2c, @lapackobjs2zc); - if ($ARGV[13] == 0) { - @lapackobjs2 = (@lapackobjs2, @lapackobjs2sc); - } - @lapack_deprecated_objs = (@lapack_deprecated_objs, @lapack_deprecated_objsc); - @lapacke_deprecated_objs = (@lapacke_deprecated_objs, @lapacke_deprecated_objsc); - @lapack_embeded_underscore_objs = (@lapack_embeded_underscore_objs, @lapack_embeded_underscore_objs_c); - @lapackeobjs = (@lapackeobjs, @lapackeobjsc); -} -if ($ARGV[16] == 1) { - @blasobjs = (@blasobjs, @blasobjsz); - @cblasobjs = (@cblasobjs, @cblasobjsz); - @gemm3mobjs = (@gemm3mobjs, @gemm3mobjsz); - @cblasgemm3mobjs = (@cblasgemm3mobjs, @cblasgemm3mobjsz); - @lapackobjs = (@lapackobjs, @lapackobjsz); - @lapackobjs2 = (@lapackobjs2, @lapackobjs2z); - if ($ARGV[15] == 0) { - @lapackobjs2 = (@lapackobjs2, @lapackobjs2zc); - } - if ($ARGV[14] == 0) { - @lapackobjs2 = (@lapackobjs2, @lapackobjs2dz); - } - @lapack_deprecated_objs = (@lapack_deprecated_objs, @lapack_deprecated_objsz); - @lapacke_deprecated_objs = (@lapacke_deprecated_objs, @lapacke_deprecated_objsz); - @lapack_embeded_underscore_objs = (@lapack_embeded_underscore_objs, @lapack_embeded_underscore_objs_z); - @lapackeobjs = (@lapackeobjs, @lapackeobjsz); -} -if ($ARGV[8] == 1) { +lapack_embeded_underscore_objs=" + xerbla_array chla_transtype + " +lapack_embeded_underscore_objs_s=" + slasyf_rook + ssytf2_rook ssytrf_rook ssytrs_rook + ssytri_rook ssycon_rook ssysv_rook + slasyf_rk ssyconvf_rook ssytf2_rk + ssytrf_rk ssytrs_3 ssytri_3 + ssytri_3x ssycon_3 ssysv_rk + slasyf_aa ssysv_aa ssytrf_aa + ssytrs_aa ssytrd_2stage ssytrd_sy2sb + ssytrd_sb2st ssb2st_kernels ssyevd_2stage + ssyev_2stage ssyevx_2stage ssyevr_2stage + ssbev_2stage ssbevx_2stage ssbevd_2stage + ssygv_2stage + ssysv_aa_2stage ssytrf_aa_2stage + ssytrs_aa_2stage + slaorhr_col_getrfnp slaorhr_col_getrfnp2 sorhr_col +" +lapack_embeded_underscore_objs_c=" + 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 + chetf2_rk + chetrf_rk chetri_3 chetri_3x + chetrs_3 checon_3 chesv_rk + chesv_aa chetrf_aa chetrs_aa + clahef_aa clahef_rk clasyf_rk + clasyf_aa csytf2_rk csytrf_rk + csytrf_aa csytrs_3 csytrs_aa + csytri_3 csytri_3x csycon_3 + csysv_rk csysv_aa csyconvf_rook + chetrd_2stage chetrd_he2hb chetrd_hb2st + chb2st_kernels cheevd_2stage cheev_2stage + cheevx_2stage cheevr_2stage chbev_2stage + chbevx_2stage chbevd_2stage chegv_2stage + chesv_aa_2stage + chetrf_aa_2stage chetrs_aa_2stage + csysv_aa_2stage csytrf_aa_2stage + csytrs_aa_2stage + claunhr_col_getrfnp claunhr_col_getrfnp2 cunhr_col +" +lapack_embeded_underscore_objs_d=" + dlasyf_rook + dsytf2_rook dsytrf_rook dsytrs_rook + dsytri_rook dsycon_rook dsysv_rook + dlasyf_rk dsyconvf_rook + dsytf2_rk dsytrf_rk dsytrs_3 + dsytri_3 dsytri_3x dsycon_3 + dsysv_rk dlasyf_aa dsysv_aa + dsytrf_aa dsytrs_aa dsytrd_2stage + dsytrd_sy2sb dsytrd_sb2st dsb2st_kernels + dsyevd_2stage dsyev_2stage dsyevx_2stage + dsyevr_2stage dsbev_2stage dsbevx_2stage + dsbevd_2stage dsygv_2stage + dsysv_aa_2stage + dsytrf_aa_2stage dsytrs_aa_2stage + dlaorhr_col_getrfnp dlaorhr_col_getrfnp2 dorhr_col +" +lapack_embeded_underscore_objs_z=" + 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 + zhetf2_rk zhetrf_rk zhetri_3 + zhetri_3x zhetrs_3 zhecon_3 + zhesv_rk zhesv_aa zhetrf_aa + zhetrs_aa zlahef_aa zlahef_rk + zlasyf_rk zlasyf_aa zsyconvf_rook + zsytrs_aa zsytf2_rk zsytrf_rk + zsytrf_aa zsytrs_3 zsytri_3 + zsytri_3x zsycon_3 zsysv_rk + zsysv_aa zhetrd_2stage zhetrd_he2hb + zhetrd_hb2st zhb2st_kernels zheevd_2stage + zheev_2stage zheevx_2stage zheevr_2stage + zhbev_2stage zhbevx_2stage zhbevd_2stage + zhegv_2stage + zhesv_aa_2stage zhetrf_aa_2stage + zhetrs_aa_2stage zsysv_aa_2stage + zsytrf_aa_2stage zsytrs_aa_2stage + zlaunhr_col_getrfnp zlaunhr_col_getrfnp2 zunhr_col +" + +dirname=`pwd -P`/../lapack-netlib + +p1=$1 +p2=$2 +p3=$3 +p4=$4 +p5=$5 +p6=$6 +p7=$7 +p8=$8 +p9=$9 +shift +p10=$9 +shift +p11=$9 +shift +p12=$9 +shift +p13=$9 +shift +p14=$9 +shift +p15=$9 +shift +p16=$9 +shift +p17=$9 + +if [ $p13 -eq 1 ]; then + blasobjs="$blasobjs $bfblasobjs" + cblasobjs="$cblasobjs $bfcblasobjs" +fi + +if [ $p14 -eq 1 ]; then + blasobjs="$blasobjs $blasobjss" + cblasobjs="$cblasobjs $cblasobjss" + lapackobjs="$lapackobjs $lapackobjss" + lapackobjs2="$lapackobjs2 $lapackobjs2s" + lapackobjs2="$lapackobjs2 $lapackobjs2sc" + lapackobjs2="$lapackobjs2 $lapackobjs2ds" + lapack_deprecated_objs="$lapack_deprecated_objs $lapack_deprecated_objss" + lapacke_deprecated_objs="$lapacke_deprecated_objs $lapacke_deprecated_objss" + lapack_embeded_underscore_objs="$lapack_embeded_underscore_objs $lapack_embeded_underscore_objs_s" + lapackeobjs="$lapackeobjs $lapackeobjss" +fi + +if [ $p15 -eq 1 ]; then + blasobjs="$blasobjs $blasobjsd" + cblasobjs="$cblasobjs $cblasobjsd" + lapackobjs="$lapackobjs $lapackobjsd" + if [ $p14 -eq 0 ]; then + lapackobjs2="$lapackobjs2 $lapackobjs2ds" + fi + lapackobjs2="$lapackobjs2 $lapackobjs2d $lapackobjs2dz" + lapack_deprecated_objs="$lapack_deprecated_objs $lapack_deprecated_objsd" + lapacke_deprecated_objs="$lapacke_deprecated_objs $lapacke_deprecated_objsd" + lapack_embeded_underscore_objs="$lapack_embeded_underscore_objs $lapack_embeded_underscore_objs_d" + lapackeobjs="$lapackeobjs $lapackeobjsd" +fi + +if [ $p16 -eq 1 ]; then + blasobjs="$blasobjs $blasobjsc" + cblasobjs="$cblasobjs $cblasobjsc" + gemm3mobjs="$gemm3mobjs $gemm3mobjsc" + cblasgemm3mobjs="$cblasgemm3mobjs $cblasgemm3mobjsc" + lapackobjs="$lapackobjs $lapackobjsc" + lapackobjs2="$lapackobjs2 $lapackobjs2c $lapackobjs2zc" + if [ $p14 -eq 0 ]; then + lapackobjs2="$lapackobjs2 $lapackobjs2sc" + fi + lapack_deprecated_objs="$lapack_deprecated_objs $lapack_deprecated_objsc" + lapacke_deprecated_objs="$lapacke_deprecated_objs $lapacke_deprecated_objsc" + lapack_embeded_underscore_objs="$lapack_embeded_underscore_objs $lapack_embeded_underscore_objs_c" + lapackeobjs="$lapackeobjs $lapackeobjsc" +fi + +if [ $p17 -eq 1 ]; then + blasobjs="$blasobjs $blasobjsz" + cblasobjs="$cblasobjs $cblasobjsz" + gemm3mobjs="$gemm3mobjs $gemm3mobjsz" + cblasgemm3mobjs="$cblasgemm3mobjs $cblasgemm3mobjsz" + lapackobjs="$lapackobjs $lapackobjsz" + lapackobjs2="$lapackobjs2 $lapackobjs2z" + if [ $p16 -eq 0 ]; then + lapackobjs2="$lapackobjs2 $lapackobjs2zc" + fi + if [ $p15 -eq 0 ]; then + lapackobjs2="$lapackobjs2 $lapackobjs2dz" + fi + lapack_deprecated_objs="$lapack_deprecated_objs $lapack_deprecated_objsz" + lapacke_deprecated_objs="$lapacke_deprecated_objs $lapacke_deprecated_objsz" + lapack_embeded_underscore_objs="$lapack_embeded_underscore_objs $lapack_embeded_underscore_objs_z" + lapackeobjs="$lapackeobjs $lapackeobjsz" +fi + +if [ $p9 -eq 1 ]; then #ONLY_CBLAS=1 - @underscore_objs = (@misc_underscore_objs); -} elsif ($ARGV[5] == 1) { + underscore_objs="$misc_underscore_objs" +elif [ $p6 -eq 1 ]; then #NO_LAPACK=1 - @underscore_objs = (@blasobjs, @misc_underscore_objs); -} elsif (-d $dirname) { - if ($ARGV[7] == 0) { + underscore_objs="$blasobjs $misc_underscore_objs" +elif [ -d "$dirname" ]; then + if [ $p8 -eq 0 ]; then # NEED2UNDERSCORES=0 # Don't need 2 underscores - @underscore_objs = (@blasobjs, @lapackobjs, @lapackobjs2, @misc_underscore_objs, @lapack_embeded_underscore_objs); - } else { + underscore_objs="$blasobjs $lapackobjs $lapackobjs2 $misc_underscore_objs $lapack_embeded_underscore_objs" + else # Need 2 underscores - @underscore_objs = (@blasobjs, @lapackobjs, @lapackobjs2, @misc_underscore_objs); - @need_2underscore_objs = (@lapack_embeded_underscore_objs); - }; - - if ($ARGV[11] == 1) { - #BUILD_LAPACK_DEPRECATED=1 - @underscore_objs = (@underscore_objs, @lapack_deprecated_objs); - } -} else { - @underscore_objs = (@blasobjs, @lapackobjs, @misc_underscore_objs); -} + underscore_objs="$blasobjs $lapackobjs $lapackobjs2 $misc_underscore_objs" + need_2underscore_objs="$lapack_embeded_underscore_objs" + fi -if ($ARGV[8] == 1) { - #ONLY_CBLAS=1 - @gemm3mobjs=(); - @exblasobjs=(); -} - -if ($ARGV[3] == 1) { - @underscore_objs = (@underscore_objs, @exblasobjs); -}; - -if ($ARGV[1] eq "x86_64") { @underscore_objs = (@underscore_objs, @gemm3mobjs); }; -if ($ARGV[1] eq "x86") { @underscore_objs = (@underscore_objs, @gemm3mobjs); }; -if ($ARGV[1] eq "ia64") { @underscore_objs = (@underscore_objs, @gemm3mobjs); }; -if ($ARGV[1] eq "MIPS") { @underscore_objs = (@underscore_objs, @gemm3mobjs); }; - -if ($ARGV[4] == 0) { - @no_underscore_objs = (@cblasobjs, @misc_no_underscore_objs); - if ($ARGV[1] eq "x86_64") { @no_underscore_objs = (@no_underscore_objs, @cblasgemm3mobjs); }; - if ($ARGV[1] eq "x86") { @no_underscore_objs = (@no_underscore_objs, @cblasgemm3mobjs); }; - if ($ARGV[1] eq "ia64") { @no_underscore_objs = (@no_underscore_objs, @cblasgemm3mobjs); }; - if ($ARGV[1] eq "MIPS") { @no_underscore_objs = (@no_underscore_objs, @cblasgemm3mobjs); }; -}else{ - #NO_CBLAS=1 - @no_underscore_objs = (@misc_no_underscore_objs); -} -if ($ARGV[6] == 1) { - #NO_LAPACKE=1 - @no_underscore_objs = (@no_underscore_objs); -} else { - if ($ARGV[11] == 1) { + if [ $p12 -eq 1 ]; then #BUILD_LAPACK_DEPRECATED=1 - @no_underscore_objs = (@no_underscore_objs, @lapackeobjs, @lapacke_deprecated_objs); - } else { - @no_underscore_objs = (@no_underscore_objs, @lapackeobjs); - } -} - -@hplobjs = (daxpy, dcopy, dscal, idamax, dgemv, dtrsv, dger, dgemm, dtrsm); -@hplobjs2 = (HPL_dlaswp00N, HPL_dlaswp01N, HPL_dlaswp01T); - -$bu = $ARGV[2]; - -$bu = "" if (($bu eq "0") || ($bu eq "1")); - -$symbolprefix = $ARGV[9]; - -$symbolsuffix = $ARGV[10]; - -if ($ARGV[0] eq "osx") { - @underscore_objs = (@underscore_objs, @misc_common_objs); - @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); - - foreach $objs (@underscore_objs) { - print "_", $symbolprefix, $objs, $bu, $symbolsuffix, "\n"; - } - - foreach $objs (@need_2underscore_objs) { - print "_", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; - } - - foreach $objs (@no_underscore_objs) { - print "_", $symbolprefix, $objs, $symbolsuffix, "\n"; - } - exit(0); -} - -if ($ARGV[0] eq "aix"){ - @underscore_objs = (@underscore_objs, @misc_common_objs); - @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); - - foreach $objs (@underscore_objs) { - print $symbolprefix, $objs, $bu, $symbolsuffix, "\n"; - } - - foreach $objs (@need_2underscore_objs) { - print $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; - } - - foreach $objs (@no_underscore_objs) { - print $symbolprefix, $objs, $symbolsuffix, "\n"; - } - exit(0); -} - -if ($ARGV[0] eq "objcopy") { - @underscore_objs = (@underscore_objs, @misc_common_objs); - @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); - - foreach $objs (@underscore_objs) { - print $objs, $bu, " ", $symbolprefix, $objs, $bu, $symbolsuffix, "\n"; - } - - foreach $objs (@need_2underscore_objs) { - print $objs, $bu, $bu, " ", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; - } - - foreach $objs (@no_underscore_objs) { - print $objs, " ", $symbolprefix, $objs, $symbolsuffix, "\n"; - } - exit(0); -} - -if ($ARGV[0] eq "objconv") { - @underscore_objs = (@underscore_objs, @misc_common_objs); - @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); - - foreach $objs (@underscore_objs) { - print "-nr:_", $objs, $bu, ":_", $symbolprefix, $objs, $bu, $symbolsuffix, "\n"; - } - - foreach $objs (@need_2underscore_objs) { - print "-nr:_", $objs, $bu, $bu, ":_", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; - } - - foreach $objs (@no_underscore_objs) { - print "-nr:_", $objs, ":_", $symbolprefix, $objs, $symbolsuffix, "\n"; - } - exit(0); -} - -if ($ARGV[0] eq "win2k"){ - print "EXPORTS\n"; - $count = 1; - - @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); - - foreach $objs (@underscore_objs) { - $uppercase = $objs; - $uppercase =~ tr/[a-z]/[A-Z]/; - print "\t",$symbolprefix, $objs, $symbolsuffix, "=$objs","_ \@", $count, "\n"; - $count ++; - print "\t",$symbolprefix, $objs, "_", $symbolsuffix, "=$objs","_ \@", $count, "\n"; - $count ++; - print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "_ \@", $count, "\n"; - $count ++; - } - - foreach $objs (@need_2underscore_objs) { - $uppercase = $objs; - $uppercase =~ tr/[a-z]/[A-Z]/; - print "\t",$symbolprefix, $objs, $symbolsuffix, "=$objs","__ \@", $count, "\n"; - $count ++; - print "\t",$symbolprefix, $objs, "__", $symbolsuffix, "=$objs","__ \@", $count, "\n"; - $count ++; - print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "__ \@", $count, "\n"; - $count ++; - } - - #for misc_common_objs - foreach $objs (@misc_common_objs) { - $uppercase = $objs; - $uppercase =~ tr/[a-z]/[A-Z]/; - print "\t",$symbolprefix, $objs, "_", $symbolsuffix, "=$objs","_ \@", $count, "\n"; - $count ++; - print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "_ \@", $count, "\n"; - $count ++; - } - - - foreach $objs (@no_underscore_objs) { - print "\t",$symbolprefix,$objs,$symbolsuffix,"=$objs"," \@", $count, "\n"; - $count ++; - } - - exit(0); -} - -if ($ARGV[0] eq "win2khpl") { - print "EXPORTS\n"; - $count = 1; - foreach $objs (@hplobjs) { - $uppercase = $objs; - $uppercase =~ tr/[a-z]/[A-Z]/; - print "\t",$symbolprefix, $objs, $symbolsuffix, "=$objs","_ \@", $count, "\n"; - $count ++; - print "\t",$symbolprefix, $objs, "_", $symbolsuffix, "=$objs","_ \@", $count, "\n"; - $count ++; - print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "_ \@", $count, "\n"; - $count ++; - } - - exit(0); -} - -if ($ARGV[0] eq "microsoft"){ - @underscore_objs = (@underscore_objs, @misc_common_objs); - - print "EXPORTS\n"; - $count = 1; - foreach $objs (@underscore_objs) { - $uppercase = $objs; - $uppercase =~ tr/[a-z]/[A-Z]/; - print "\t",$symbolprefix, $objs, $symbolsuffix, " = $objs","_\n"; - $count ++; - print "\t",$symbolprefix, $objs, "\_", $symbolsuffix, " = $objs","_\n"; - $count ++; - print "\t",$symbolprefix, $uppercase, $symbolsuffix, " = $objs","_\n"; - $count ++; - print "\t",$symbolprefix, $uppercase, "\_", $symbolsuffix, " = $objs","_\n"; - $count ++; - } - - foreach $objs (@need_2underscore_objs) { - $uppercase = $objs; - $uppercase =~ tr/[a-z]/[A-Z]/; - print "\t",$symbolprefix, $objs, $symbolsuffix, "=$objs","__ \@", $count, "\n"; - $count ++; - print "\t",$symbolprefix, $objs, "__", $symbolsuffix, "=$objs","__ \@", $count, "\n"; - $count ++; - print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "__ \@", $count, "\n"; - $count ++; - } - - exit(0); -} - -if ($ARGV[0] eq "linktest") { - @underscore_objs = (@underscore_objs, @misc_common_objs); - @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); - - print "int main(void){\n"; - foreach $objs (@underscore_objs) { - print $symbolprefix, $objs, $bu, $symbolsuffix, "();\n" if $objs ne "xerbla"; - } - - foreach $objs (@need_2underscore_objs) { - print $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "();\n"; - } - - foreach $objs (@no_underscore_objs) { - print $symbolprefix, $objs, $symbolsuffix, "();\n"; - } - - print "return 0;}\n"; - exit(0); -} + underscore_objs="$underscore_objs $lapack_deprecated_objs" + fi +else + underscore_objs="$blasobjs $lapackobjs $misc_underscore_objs" +fi + +if [ $p9 -eq 1 ]; then + # ONLY_CBLAS=1 + gemm3mobjs='' + exblasobjs='' +fi + +if [ $p4 -eq 1 ]; then + underscore_objs="$underscore_objs $exblasobjs" +fi + +case $p2 in + x86_64|x86|ia64|MIPS) + underscore_objs="$underscore_objs $gemm3mobjs" + ;; +esac + +if [ $p5 -eq 0 ]; then + no_underscore_objs="$cblasobjs $misc_no_underscore_objs" + case $p2 in + x86_64|x86|ia64|MIPS) + no_underscore_objs="$no_underscore_objs $cblasgemm3mobjs" + ;; + esac +else + # NO_CBLAS=1 + no_underscore_objs="$misc_no_underscore_objs" +fi + +if [ $p7 -ne 1 ]; then + if [ $p12 -eq 1 ]; then + # BUILD_LAPACK_DEPRECATED=1 + no_underscore_objs="$no_underscore_objs $lapackeobjs $lapacke_deprecated_objs" + else + no_underscore_objs="$no_underscore_objs $lapackeobjs" + fi +fi + +hplobjs="daxpy dcopy dscal idamax dgemv dtrsv dger dgemm dtrsm" +#hplobjs2="HPL_dlaswp00N HPL_dlaswp01N HPL_dlaswp01T" + +bu="$p3" + +if [ "$bu" = "0" ] || [ "$bu" = "1" ]; then + bu="" +fi + +symbolprefix=$p10 +symbolsuffix=$p11 + +case "$p1" in + osx) + underscore_objs="$underscore_objs $misc_common_objs" + no_underscore_objs="$no_underscore_objs $misc_common_objs" + + for obj in $underscore_objs; do + printf '_%s%s%s%s\n' "$symbolprefix" "$obj" "$bu" "$symbolsuffix" + done + + for obj in $need_2underscore_objs; do + printf '_%s%s%s%s%s\n' "$symbolprefix" "$obj" "$bu" "$bu" "$symbolsuffix" + done + + for obj in $no_underscore_objs; do + printf '_%s%s%s\n' "$symbolprefix" "$obj" "$symbolsuffix" + done + ;; + + aix) + underscore_objs="$underscore_objs $misc_common_objs" + no_underscore_objs="$no_underscore_objs $misc_common_objs" + + for obj in $underscore_objs; do + printf '_%s%s%s%s\n' "$symbolprefix" "$obj" "$bu" "$symbolsuffix" + done + + for obj in $need_2underscore_objs; do + printf '_%s%s%s%s%s\n' "$symbolprefix" "$obj" "$bu" "$bu" "$symbolsuffix" + done + + for obj in $no_underscore_objs; do + printf '_%s%s%s\n' "$symbolprefix" "$obj" "$symbolsuffix" + done + ;; + + objcopy) + underscore_objs="$underscore_objs $misc_common_objs" + no_underscore_objs="$no_underscore_objs $misc_common_objs" + + for obj in $underscore_objs; do + printf '%s%s %s%s%s%s\n' "$obj" "$bu" \ + "$symbolprefix" "$obj" "$bu" "$symbolsuffix" + done + + for obj in $need_2underscore_objs; do + printf '%s%s%s %s%s%s%s%s\n' "$obj" "$bu" "$bu" \ + "$symbolprefix" "$obj" "$bu" "$bu" "$symbolsuffix" + done + + for obj in $no_underscore_objs; do + printf '%s %s%s%s\n' "$obj" "$symbolprefix" "$obj" "$symbolsuffix" + done + ;; + + objconv) + underscore_objs="$underscore_objs $misc_common_objs" + no_underscore_objs="$no_underscore_objs $misc_common_objs" + + for obj in $underscore_objs; do + printf -- '-nr:_%s%s:_%s%s%s%s\n' "$obj" "$bu" \ + "$symbolprefix" "$obj" "$bu" "$symbolsuffix" + done + + for obj in $need_2underscore_objs; do + printf -- '-nr:_%s%s%s:_%s%s%s%s%s\n' "$obj" "$bu" "$bu" \ + "$symbolprefix" "$obj" "$bu" "$bu" "$symbolsuffix" + done + + for obj in $no_underscore_objs; do + printf -- '-nr:_%s:_%s%s%s\n' "$obj" \ + "$symbolprefix" "$obj" "$symbolsuffix" + done + ;; + + win2k) + printf 'EXPORTS\n' + count=1 + + no_underscore_objs="$no_underscore_objs $misc_common_objs" + + for obj in $underscore_objs; do + uppercase=`echo "$obj" | tr '[[:lower:]]' '[[:upper:]]'` + printf '\t%s%s%s=%s_ @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + printf '\t%s%s_%s=%s_ @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + printf '\t%s%s%s=%s_ @%s\n' \ + "$symbolprefix" "$uppercase" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + done + + for obj in $need_2underscore_objs; do + uppercase=`echo "$obj" | tr '[[:lower:]]' '[[:upper:]]'` + printf '\t%s%s%s=%s__ @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + printf '\t%s%s__%s=%s__ @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + printf '\t%s%s%s=%s__ @%s\n' \ + "$symbolprefix" "$uppercase" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + done + + for obj in $misc_common_objs; do + uppercase=`echo "$obj" | tr '[[:lower:]]' '[[:upper:]]'` + printf '\t%s%s_%s=%s_ @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + printf '\t%s%s%s=%s_ @%s\n' \ + "$symbolprefix" "$uppercase" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + done + + for obj in $no_underscore_objs; do + printf '\t%s%s%s=%s @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + done + ;; + + win2khpl) + printf 'EXPORTS\n' + count=1 + for obj in $hplobjs; do + uppercase=`echo "$obj" | tr '[[:lower:]]' '[[:upper:]]'` + printf '\t%s%s%s=%s_ @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + printf '\t%s%s_%s=%s_ @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + printf '\t%s%s%s=%s_ @%s\n' \ + "$symbolprefix" "$uppercase" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + done + ;; + + microsoft) + underscore_objs="$underscore_objs $misc_common_objs" + + printf 'EXPORTS\n' + count=1 + for obj in $underscore_objs; do + uppercase=`echo "$obj" | tr '[[:lower:]]' '[[:upper:]]'` + printf '\t%s%s%s = %s_\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" + count=`expr $count + 1` + printf '\t%s%s_%s = %s_\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" + count=`expr $count + 1` + printf '\t%s%s%s = %s_\n' \ + "$symbolprefix" "$uppercase" "$symbolsuffix" "$obj" + count=`expr $count + 1` + printf '\t%s%s_%s = %s_\n' \ + "$symbolprefix" "$uppercase" "$symbolsuffix" "$obj" + count=`expr $count + 1` + done + + for obj in $need_2underscore_objs; do + uppercase=`echo "$obj" | tr '[[:lower:]]' '[[:upper:]]'` + printf '\t%s%s%s=%s__ @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + printf '\t%s%s__%s=%s__ @%s\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + printf '\t%s%s%s=%s__ @%s\n' \ + "$symbolprefix" "$uppercase" "$symbolsuffix" "$obj" "$count" + count=`expr $count + 1` + done + ;; + + linktest) + + underscore_objs="$underscore_objs $misc_common_objs" + no_underscore_objs="$no_underscore_objs $misc_common_objs" + + printf 'int main(void){\n' + for obj in $underscore_objs; do + [ "$obj" != "xerbla" ] && printf '%s%s%s%s();\n' \ + "$symbolprefix" "$obj" "$bu" "$symbolsuffix" + done + + for obj in $need_2underscore_objs; do + printf '%s%s%s%s%s();\n' \ + "$symbolprefix" "$obj" "$bu" "$bu" "$symbolsuffix" + done + + for obj in $no_underscore_objs; do + printf '%s%s%s();\n' \ + "$symbolprefix" "$obj" "$symbolsuffix" + done + + printf 'return 0;}\n' + ;; +esac diff --git a/exports/gensymbol.pl b/exports/gensymbol.pl new file mode 100644 index 000000000..ac62bc058 --- /dev/null +++ b/exports/gensymbol.pl @@ -0,0 +1,3972 @@ +#!/usr/bin/env perl + +# Changelog +# 2017/09/03 staticfloat +# Added zsymv and csymv into @lapackobjs2 so they are properly renamed +# +# 2017/07/01 Saar +# removed zsymv_ and csymv_ from @blasobs, because these functions +# are now in lapack-3.7.0 +# added blas_thread_shutdown_ +# added Cblas_cgemm3m and Cblas_zgemm3m +# added somatcopy_, simatcopy_ ... +# added new functions from lapack-3.7.0 +# added LAPACKE deprecated objs from lapack-3.7.0 +# +# 2017/08/01 Saar +# removed blas_thread_shutdown_ +# +@blasobjsc = ( + caxpy,caxpby,ccopy,cdotc,cdotu,cgbmv,cgemm,cgemv,cgerc,cgeru, + chbmv,chemm,chemv,cher2,cher2k,cher,cherk,scabs1,scamax, + chpmv,chpr2,chpr,crotg,cscal,csrot,csscal,cswap,scamin,scasum,scnrm2, + csymm,csyr2k,csyrk,ctbmv,ctbsv,ctpmv,ctpsv,ctrmm,ctrmv,ctrsm, + ctrsv,icamax,icamin,cimatcopy,comatcopy,cgeadd,scsum); + +@blasobjsd = ( + damax,damin,dasum,daxpy,daxpby,dcabs1,dcopy,ddot,dgbmv,dgemm, + dgemv,dger,dmax,dmin,dnrm2,drot,drotg,drotm,drotmg,dsbmv, + dscal,dsdot,dspmv,dspr2,dimatcopy,domatcopy, + dspr,dswap,dsymm,dsymv,dsyr2,dsyr2k,dsyr,dsyrk,dtbmv,dtbsv, + dtpmv,dtpsv,dtrmm,dtrmv,dtrsm,dtrsv, + idamax,idamin,idmax,idmin,dgeadd,dsum); + +@blasobjss = ( + isamax,isamin,ismax,ismin, + samax,samin,sasum,saxpy, saxpby, + scopy,sdot,sdsdot,sgbmv,sgemm,sgemv,sger, + smax,smin,snrm2,simatcopy,somatcopy, + srot,srotg,srotm,srotmg,ssbmv,sscal,sspmv,sspr2,sspr,sswap, + ssymm,ssymv,ssyr2,ssyr2k,ssyr,ssyrk,stbmv,stbsv,stpmv,stpsv, + strmm,strmv,strsm,strsv, sgeadd,ssum); + +@blasobjsz = ( + izamax,izamin,, + zaxpy,zaxpby,zcopy,zdotc,zdotu,zdrot, + zdscal,zgbmv,zgemm,zgemv,zgerc,zgeru, + zhbmv,zhemm,zhemv,zher2,zher2k,zher,zherk,zhpmv,zhpr2, + zhpr,zrotg,zscal,zswap,zsymm,zsyr2k,zsyrk,ztbmv, + ztbsv,ztpmv,ztpsv,ztrmm,ztrmv,ztrsm,ztrsv, + zomatcopy, zimatcopy,dzamax,dzamin,dzasum,dznrm2, + zgeadd, dzsum); + +@blasobjs = (lsame, xerbla); +@bfblasobjs = (sbgemm, sbgemv, sbdot, sbstobf16, sbdtobf16, sbf16tos, dbf16tod); +@cblasobjsc = ( + cblas_caxpy, cblas_ccopy, cblas_cdotc, cblas_cdotu, cblas_cgbmv, cblas_cgemm, cblas_cgemv, + cblas_cgerc, cblas_cgeru, cblas_chbmv, cblas_chemm, cblas_chemv, cblas_cher2, cblas_cher2k, + cblas_cher, cblas_cherk, cblas_chpmv, cblas_chpr2, cblas_chpr, cblas_cscal, cblas_caxpby, + cblas_csscal, cblas_cswap, cblas_csymm, cblas_csyr2k, cblas_csyrk, cblas_ctbmv, cblas_cgeadd, + cblas_ctbsv, cblas_ctpmv, cblas_ctpsv, cblas_ctrmm, cblas_ctrmv, cblas_ctrsm, cblas_ctrsv, + cblas_scnrm2, cblas_scasum, + cblas_icamax, cblas_icamin, cblas_icmin, cblas_icmax, cblas_scsum,cblas_cimatcopy,cblas_comatcopy + ); +@cblasobjsd = ( + cblas_dasum, cblas_daxpy, cblas_dcopy, cblas_ddot, + cblas_dgbmv, cblas_dgemm, cblas_dgemv, cblas_dger, cblas_dnrm2, + cblas_drot, cblas_drotg, cblas_drotm, cblas_drotmg, cblas_dsbmv, cblas_dscal, cblas_dsdot, + cblas_dspmv, cblas_dspr2, cblas_dspr, cblas_dswap, cblas_dsymm, cblas_dsymv, cblas_dsyr2, + cblas_dsyr2k, cblas_dsyr, cblas_dsyrk, cblas_dtbmv, cblas_dtbsv, cblas_dtpmv, cblas_dtpsv, + cblas_dtrmm, cblas_dtrmv, cblas_dtrsm, cblas_dtrsv, cblas_daxpby, cblas_dgeadd, + cblas_idamax, cblas_idamin, cblas_idmin, cblas_idmax, cblas_dsum,cblas_dimatcopy,cblas_domatcopy + ); + +@cblasobjss = ( + cblas_sasum, cblas_saxpy, cblas_saxpby, + cblas_scopy, cblas_sdot, cblas_sdsdot, cblas_sgbmv, cblas_sgemm, + cblas_sgemv, cblas_sger, cblas_snrm2, cblas_srot, cblas_srotg, + cblas_srotm, cblas_srotmg, cblas_ssbmv, cblas_sscal, cblas_sspmv, cblas_sspr2, cblas_sspr, + cblas_sswap, cblas_ssymm, cblas_ssymv, cblas_ssyr2, cblas_ssyr2k, cblas_ssyr, cblas_ssyrk, + cblas_stbmv, cblas_stbsv, cblas_stpmv, cblas_stpsv, cblas_strmm, cblas_strmv, cblas_strsm, + cblas_strsv, cblas_sgeadd, + cblas_isamax, cblas_isamin, cblas_ismin, cblas_ismax, cblas_ssum,cblas_simatcopy,cblas_somatcopy + ); +@cblasobjsz = ( + cblas_dzasum, cblas_dznrm2, cblas_zaxpy, cblas_zcopy, cblas_zdotc, cblas_zdotu, cblas_zdscal, + cblas_zgbmv, cblas_zgemm, cblas_zgemv, cblas_zgerc, cblas_zgeru, cblas_zhbmv, cblas_zhemm, + cblas_zhemv, cblas_zher2, cblas_zher2k, cblas_zher, cblas_zherk, cblas_zhpmv, cblas_zhpr2, + cblas_zhpr, cblas_zscal, cblas_zswap, cblas_zsymm, cblas_zsyr2k, cblas_zsyrk, + cblas_ztbmv, cblas_ztbsv, cblas_ztpmv, cblas_ztpsv, cblas_ztrmm, cblas_ztrmv, cblas_ztrsm, + cblas_ztrsv, cblas_cdotc_sub, cblas_cdotu_sub, cblas_zdotc_sub, cblas_zdotu_sub, + cblas_zaxpby, cblas_zgeadd, + cblas_izamax, cblas_izamin, cblas_izmin, cblas_izmax, cblas_dzsum,cblas_zimatcopy,cblas_zomatcopy +); + +@cblasobjs = ( cblas_xerbla ); + +@bfcblasobjs = (cblas_sbgemm, cblas_sbgemv, cblas_sbdot, cblas_sbstobf16, cblas_sbdtobf16, cblas_sbf16tos, cblas_dbf16tod); + +@exblasobjs = ( + qamax,qamin,qasum,qaxpy,qcabs1,qcopy,qdot,qgbmv,qgemm, + qgemv,qger,qmax,qmin, + qnrm2, + qsbmv,qscal,qspmv,qspr2, + qspr,qswap,qsymm,qsymv,qsyr2,qsyr2k,qsyr,qsyrk,qtbmv,qtbsv, + qtpmv,qtpsv,qtrmm,qtrmv,qtrsm,qtrsv, + qxamax,qxamin,qxasum,qxnrm2, + xaxpy,xcopy,xdotc,xdotu, + xqscal,xgbmv,xgemm,xgemv,xgerc,xgeru, + xhbmv,xhemm,xhemv,xher2,xher2k,xher,xherk,xhpmv,xhpr2, + xhpr,xscal,xswap,xsymm,xsyr2k,xsyrk,xtbmv, + xtbsv,xtpmv,xtpsv,xtrmm,xtrmv,xtrsm,xtrsv, +# qrot,qrotg,qrotm,qrotmg, +# xdrot,xrotg, +); + + @gemm3mobjs=(); + + @cblasgemm3mobjs=(); + +@gemm3mobjsc = ( + cgemm3m, +); +@gemm3mobjsz = ( + zgemm3m +); + +@cblasgemm3mobjsc = ( + cblas_cgemm3m +); +@cblasgemm3mobjsz = ( + cblas_zgemm3m +); + + + + +#both underscore and no underscore +@misc_common_objs = ( + openblas_get_parallel, + openblas_get_num_procs, + openblas_set_num_threads, + openblas_get_num_threads, +); + +@misc_no_underscore_objs = ( + goto_set_num_threads, + openblas_get_config, + openblas_get_corename, +); + +@misc_underscore_objs = ( +); + +@lapackobjss = ( + # These routines are provided by OpenBLAS. + sgesv, + sgetf2, + sgetrf, + slaswp, + sgetrs, + slauu2, + slauum, + spotf2, + spotrf, + strti2, + strtri, + spotri, +); + +@lapackobjsd = ( + dgesv, + dgetf2, + dgetrf, + dlaswp, + dgetrs, + dlauu2, + dlauum, + dpotf2, + dpotrf, + dtrti2, + dtrtri, + dpotri, +); + +@lapackobjsc = ( +cgesv, +cgetf2, +cgetrf, +claswp, +cgetrs, +clauu2, +clauum, +cpotf2, +cpotrf, +ctrti2, +ctrtri, +cpotri, +); + +@lapackobjsz = ( +zgesv, +zgetf2, +zgetrf, +zlaswp, +zgetrs, +zlauu2, +zlauum, +zpotf2, +zpotrf, +ztrti2, +ztrtri, +zpotri, +); + + +@lapackobjs2 = ( + # These routines are provided by LAPACK (reference implementation). + # + # This list is prepared by copying all routines listed in + # `lapack-3.4.1/SRC/Makefile` and replacing the '.o' suffix with a comma. + # Thereafter the following routines should be removed: + # - those provided by OpenBLAS (see @lapackobjs) + # - extra precision routines (see @lapack_extendedprecision_objs) + # Each of these have been marked individually with "already provided" or "excluded". + + # ALLAUX -- Auxiliary routines called from all precisions + # already provided by @blasobjs: xerbla, lsame + ilaenv, ieeeck, lsamen, iparmq, + ilaprec, ilatrans, ilauplo, iladiag, + ilaver, slamch, slamc3, +); + +@lapackobjs2sc = ( + # SCLAUX -- Auxiliary routines called from both REAL and COMPLEX. + # excluded: second_$(TIMER) + sbdsdc, + sbdsqr, sdisna, slabad, slacpy, sladiv, slae2, slaebz, + slaed0, slaed1, slaed2, slaed3, slaed4, slaed5, slaed6, + slaed7, slaed8, slaed9, slaeda, slaev2, slagtf, + slagts, slamrg, slanst, + slapy2, slapy3, slarnv, + slarra, slarrb, slarrc, slarrd, slarre, slarrf, slarrj, + slarrk, slarrr, slaneg, + slartg, slaruv, slas2, slascl, + slasd0, slasd1, slasd2, slasd3, slasd4, slasd5, slasd6, + slasd7, slasd8, slasda, slasdq, slasdt, + slaset, slasq1, slasq2, slasq3, slasq4, slasq5, slasq6, + slasr, slasrt, slassq, slasv2, spttrf, sstebz, sstedc, + ssteqr, ssterf, slaisnan, sisnan, + slartgp, slartgs, +); + +@lapackobjs2dz = ( + # DZLAUX -- Auxiliary routines called from both DOUBLE and COMPLEX*16. + # excluded: dsecnd_$(TIMER) + dbdsdc, + dbdsqr, ddisna, dlabad, dlacpy, dladiv, dlae2, dlaebz, + dlaed0, dlaed1, dlaed2, dlaed3, dlaed4, dlaed5, dlaed6, + dlaed7, dlaed8, dlaed9, dlaeda, dlaev2, dlagtf, + dlagts, dlamrg, dlanst, + dlapy2, dlapy3, dlarnv, + dlarra, dlarrb, dlarrc, dlarrd, dlarre, dlarrf, dlarrj, + dlarrk, dlarrr, dlaneg, + dlartg, dlaruv, dlas2, dlascl, + dlasd0, dlasd1, dlasd2, dlasd3, dlasd4, dlasd5, dlasd6, + dlasd7, dlasd8, dlasda, dlasdq, dlasdt, + dlaset, dlasq1, dlasq2, dlasq3, dlasq4, dlasq5, dlasq6, + dlasr, dlasrt, dlassq, dlasv2, dpttrf, dstebz, dstedc, + dsteqr, dsterf, dlaisnan, disnan, + dlartgp, dlartgs, + dlamch, dlamc3, +); + +@lapackobjs2s = ( + # SLASRC -- Single precision real LAPACK routines + # already provided by @lapackobjs: + # sgesv, sgetf2, slaswp, slauu2, slauum, spotf2, spotri, strti2, strtri + sgbbrd, sgbcon, sgbequ, sgbrfs, sgbsv, + sgbsvx, sgbtf2, sgbtrf, sgbtrs, sgebak, sgebal, sgebd2, + sgebrd, sgecon, sgeequ, sgees, sgeesx, sgeev, sgeevx, + sgehd2, sgehrd, sgelq2, sgelqf, + sgels, sgelsd, sgelss, sgelsy, sgeql2, sgeqlf, + sgeqp3, sgeqr2, sgeqr2p, sgeqrf, sgeqrfp, sgerfs, + sgerq2, sgerqf, sgesc2, sgesdd, sgesvd, sgesvx, + sgetc2, sgetri, + sggbak, sggbal, sgges, sggesx, sggev, sggevx, + sggglm, sgghrd, sgglse, sggqrf, + sggrqf, sgtcon, sgtrfs, sgtsv, + sgtsvx, sgttrf, sgttrs, sgtts2, shgeqz, + shsein, shseqr, slabrd, slacon, slacn2, + slaein, slaexc, slag2, slags2, slagtm, slagv2, slahqr, + slahr2, slaic1, slaln2, slals0, slalsa, slalsd, + slangb, slange, slangt, slanhs, slansb, slansp, + slansy, slantb, slantp, slantr, slanv2, + slapll, slapmt, + slaqgb, slaqge, slaqp2, slaqps, slaqsb, slaqsp, slaqsy, + slaqr0, slaqr1, slaqr2, slaqr3, slaqr4, slaqr5, + slaqtr, slar1v, slar2v, ilaslr, ilaslc, + slarf, slarfb, slarfg, slarfgp, slarft, slarfx, slargv, + slarrv, slartv, + slarz, slarzb, slarzt, slasy2, slasyf, + slatbs, slatdf, slatps, slatrd, slatrs, slatrz, + sopgtr, sopmtr, sorg2l, sorg2r, + sorgbr, sorghr, sorgl2, sorglq, sorgql, sorgqr, sorgr2, + sorgrq, sorgtr, sorm2l, sorm2r, + sormbr, sormhr, sorml2, sormlq, sormql, sormqr, sormr2, + sormr3, sormrq, sormrz, sormtr, spbcon, spbequ, spbrfs, + spbstf, spbsv, spbsvx, + spbtf2, spbtrf, spbtrs, spocon, spoequ, sporfs, sposv, + sposvx, spstrf, spstf2, + sppcon, sppequ, + spprfs, sppsv, sppsvx, spptrf, spptri, spptrs, sptcon, + spteqr, sptrfs, sptsv, sptsvx, spttrs, sptts2, srscl, + ssbev, ssbevd, ssbevx, ssbgst, ssbgv, ssbgvd, ssbgvx, + ssbtrd, sspcon, sspev, sspevd, sspevx, sspgst, + sspgv, sspgvd, sspgvx, ssprfs, sspsv, sspsvx, ssptrd, + ssptrf, ssptri, ssptrs, sstegr, sstein, sstev, sstevd, sstevr, + sstevx, + ssycon, ssyev, ssyevd, ssyevr, ssyevx, ssygs2, + ssygst, ssygv, ssygvd, ssygvx, ssyrfs, ssysv, ssysvx, + ssytd2, ssytf2, ssytrd, ssytrf, ssytri, ssytri2, ssytri2x, + ssyswapr, ssytrs, ssytrs2, ssyconv, + stbcon, + stbrfs, stbtrs, stgevc, stgex2, stgexc, stgsen, + stgsja, stgsna, stgsy2, stgsyl, stpcon, stprfs, stptri, + stptrs, + strcon, strevc, strexc, strrfs, strsen, strsna, strsyl, + strtrs, stzrzf, sstemr, + slansf, spftrf, spftri, spftrs, ssfrk, stfsm, stftri, stfttp, + stfttr, stpttf, stpttr, strttf, strttp, + sgejsv, sgesvj, sgsvj0, sgsvj1, + sgeequb, ssyequb, spoequb, sgbequb, + sbbcsd, slapmr, sorbdb, sorbdb1, sorbdb2, sorbdb3, sorbdb4, + sorbdb5, sorbdb6, sorcsd, sorcsd2by1, + sgeqrt, sgeqrt2, sgeqrt3, sgemqrt, + stpqrt, stpqrt2, stpmqrt, stprfb, +); + +@lapackobjs2ds = ( + # DSLASRC -- Double-single mixed precision real routines called from + # single, single-extra and double precision real LAPACK + # routines (i.e. from SLASRC, SXLASRC, DLASRC). + # + # already provided by @lapackobjs: + # sgetrs, spotrf, sgetrf + spotrs, +); + +@lapackobjs2c = ( + # CLASRC -- Single precision complex LAPACK routines + # already provided by @blasobjs: + # already provided by @lapackobjs: + # cgesv, cgetf2, claswp, clauu2, clauum, cpotf2, cpotri, ctrti2, ctrtri + cbdsqr, cgbbrd, cgbcon, cgbequ, cgbrfs, cgbsv, cgbsvx, + cgbtf2, cgbtrf, cgbtrs, cgebak, cgebal, cgebd2, cgebrd, + cgecon, cgeequ, cgees, cgeesx, cgeev, cgeevx, + cgehd2, cgehrd, cgelq2, cgelqf, + cgels, cgelsd, cgelss, cgelsy, cgeql2, cgeqlf, cgeqp3, + cgeqr2, cgeqr2p, cgeqrf, cgeqrfp, cgerfs, + cgerq2, cgerqf, cgesc2, cgesdd, cgesvd, + cgesvx, cgetc2, cgetri, + cggbak, cggbal, cgges, cggesx, cggev, cggevx, cggglm, + cgghrd, cgglse, cggqrf, cggrqf, + cgtcon, cgtrfs, cgtsv, cgtsvx, cgttrf, cgttrs, cgtts2, chbev, + chbevd, chbevx, chbgst, chbgv, chbgvd, chbgvx, chbtrd, + checon, cheev, cheevd, cheevr, cheevx, chegs2, chegst, + chegv, chegvd, chegvx, cherfs, chesv, chesvx, chetd2, + chetf2, chetrd, + chetrf, chetri, chetri2, chetri2x, cheswapr, + chetrs, chetrs2, chgeqz, chpcon, chpev, chpevd, + chpevx, chpgst, chpgv, chpgvd, chpgvx, chprfs, chpsv, + chpsvx, + chptrd, chptrf, chptri, chptrs, chsein, chseqr, clabrd, + clacgv, clacon, clacn2, clacp2, clacpy, clacrm, clacrt, cladiv, + claed0, claed7, claed8, + claein, claesy, claev2, clags2, clagtm, + clahef, clahqr, + clahr2, claic1, clals0, clalsa, clalsd, clangb, clange, clangt, + clanhb, clanhe, + clanhp, clanhs, clanht, clansb, clansp, clansy, clantb, + clantp, clantr, clapll, clapmt, clarcm, claqgb, claqge, + claqhb, claqhe, claqhp, claqp2, claqps, claqsb, + claqr0, claqr1, claqr2, claqr3, claqr4, claqr5, + claqsp, claqsy, clar1v, clar2v, ilaclr, ilaclc, + clarf, clarfb, clarfg, clarft, clarfgp, + clarfx, clargv, clarnv, clarrv, clartg, clartv, + clarz, clarzb, clarzt, clascl, claset, clasr, classq, + clasyf, clatbs, clatdf, clatps, clatrd, clatrs, clatrz, + cpbcon, cpbequ, cpbrfs, cpbstf, cpbsv, + cpbsvx, cpbtf2, cpbtrf, cpbtrs, cpocon, cpoequ, cporfs, + cposv, cposvx, cpstrf, cpstf2, + cppcon, cppequ, cpprfs, cppsv, cppsvx, cpptrf, cpptri, cpptrs, + cptcon, cpteqr, cptrfs, cptsv, cptsvx, cpttrf, cpttrs, cptts2, + crot, cspcon, cspmv, cspr, csprfs, cspsv, + cspsvx, csptrf, csptri, csptrs, csrscl, cstedc, + cstegr, cstein, csteqr, + csycon, + csymv, + csyr, csyrfs, csysv, csysvx, csytf2, csytrf, csytri, csytri2, csytri2x, + csyswapr, csytrs, csytrs2, csyconv, + ctbcon, ctbrfs, ctbtrs, ctgevc, ctgex2, + ctgexc, ctgsen, ctgsja, ctgsna, ctgsy2, ctgsyl, ctpcon, + ctprfs, ctptri, + ctptrs, ctrcon, ctrevc, ctrexc, ctrrfs, ctrsen, ctrsna, + ctrsyl, ctrtrs, ctzrzf, cung2l, cung2r, + cungbr, cunghr, cungl2, cunglq, cungql, cungqr, cungr2, + cungrq, cungtr, cunm2l, cunm2r, cunmbr, cunmhr, cunml2, + cunmlq, cunmql, cunmqr, cunmr2, cunmr3, cunmrq, cunmrz, + cunmtr, cupgtr, cupmtr, icmax1, scsum1, cstemr, + chfrk, ctfttp, clanhf, cpftrf, cpftri, cpftrs, ctfsm, ctftri, + ctfttr, ctpttf, ctpttr, ctrttf, ctrttp, + cgeequb, cgbequb, csyequb, cpoequb, cheequb, + cbbcsd, clapmr, cunbdb, cunbdb1, cunbdb2, cunbdb3, cunbdb4, + cunbdb5, cunbdb6, cuncsd, cuncsd2by1, + cgeqrt, cgeqrt2, cgeqrt3, cgemqrt, + ctpqrt, ctpqrt2, ctpmqrt, ctprfb, +); +@lapackobjs2zc = ( + # ZCLASRC -- Double-single mixed precision complex routines called from + # single, single-extra and double precision complex LAPACK + # routines (i.e. from CLASRC, CXLASRC, ZLASRC). + # + # already provided by @lapackobjs: + # cgetrs, cpotrf, cgetrf + cpotrs, +); + +@lapackobjs2d = ( + # DLASRC -- Double precision real LAPACK routines + # already provided by @lapackobjs: + # dgesv, dgetf2, dgetrs, dlaswp, dlauu2, dlauum, dpotf2, dpotrf, dpotri, + # dtrti2, dtrtri + dgbbrd, dgbcon, dgbequ, dgbrfs, dgbsv, + dgbsvx, dgbtf2, dgbtrf, dgbtrs, dgebak, dgebal, dgebd2, + dgebrd, dgecon, dgeequ, dgees, dgeesx, dgeev, dgeevx, + dgehd2, dgehrd, dgelq2, dgelqf, + dgels, dgelsd, dgelss, dgelsy, dgeql2, dgeqlf, + dgeqp3, dgeqr2, dgeqr2p, dgeqrf, dgeqrfp, dgerfs, + dgerq2, dgerqf, dgesc2, dgesdd, dgesvd, dgesvx, + dgetc2, dgetri, + dggbak, dggbal, dgges, dggesx, dggev, dggevx, + dggglm, dgghrd, dgglse, dggqrf, + dggrqf, dgtcon, dgtrfs, dgtsv, + dgtsvx, dgttrf, dgttrs, dgtts2, dhgeqz, + dhsein, dhseqr, dlabrd, dlacon, dlacn2, + dlaein, dlaexc, dlag2, dlags2, dlagtm, dlagv2, dlahqr, + dlahr2, dlaic1, dlaln2, dlals0, dlalsa, dlalsd, + dlangb, dlange, dlangt, dlanhs, dlansb, dlansp, + dlansy, dlantb, dlantp, dlantr, dlanv2, + dlapll, dlapmt, + dlaqgb, dlaqge, dlaqp2, dlaqps, dlaqsb, dlaqsp, dlaqsy, + dlaqr0, dlaqr1, dlaqr2, dlaqr3, dlaqr4, dlaqr5, + dlaqtr, dlar1v, dlar2v, iladlr, iladlc, + dlarf, dlarfb, dlarfg, dlarfgp, dlarft, dlarfx, + dlargv, dlarrv, dlartv, + dlarz, dlarzb, dlarzt, dlasy2, dlasyf, + dlatbs, dlatdf, dlatps, dlatrd, dlatrs, dlatrz, + dopgtr, dopmtr, dorg2l, dorg2r, + dorgbr, dorghr, dorgl2, dorglq, dorgql, dorgqr, dorgr2, + dorgrq, dorgtr, dorm2l, dorm2r, + dormbr, dormhr, dorml2, dormlq, dormql, dormqr, dormr2, + dormr3, dormrq, dormrz, dormtr, dpbcon, dpbequ, dpbrfs, + dpbstf, dpbsv, dpbsvx, + dpbtf2, dpbtrf, dpbtrs, dpocon, dpoequ, dporfs, dposv, + dposvx, dpotrs, dpstrf, dpstf2, + dppcon, dppequ, + dpprfs, dppsv, dppsvx, dpptrf, dpptri, dpptrs, dptcon, + dpteqr, dptrfs, dptsv, dptsvx, dpttrs, dptts2, drscl, + dsbev, dsbevd, dsbevx, dsbgst, dsbgv, dsbgvd, dsbgvx, + dsbtrd, dspcon, dspev, dspevd, dspevx, dspgst, + dspgv, dspgvd, dspgvx, dsprfs, dspsv, dspsvx, dsptrd, + dsptrf, dsptri, dsptrs, dstegr, dstein, dstev, dstevd, dstevr, + dstevx, + dsycon, dsyev, dsyevd, dsyevr, + dsyevx, dsygs2, dsygst, dsygv, dsygvd, dsygvx, dsyrfs, + dsysv, dsysvx, + dsytd2, dsytf2, dsytrd, dsytrf, dsytri, dsytri2, dsytri2x, + dsyswapr, dsytrs, dsytrs2, dsyconv, + dtbcon, dtbrfs, dtbtrs, dtgevc, dtgex2, dtgexc, dtgsen, + dtgsja, dtgsna, dtgsy2, dtgsyl, dtpcon, dtprfs, dtptri, + dtptrs, + dtrcon, dtrevc, dtrexc, dtrrfs, dtrsen, dtrsna, dtrsyl, + dtrtrs, dtzrzf, dstemr, + dsgesv, dsposv, dlag2s, slag2d, dlat2s, + dlansf, dpftrf, dpftri, dpftrs, dsfrk, dtfsm, dtftri, dtfttp, + dtfttr, dtpttf, dtpttr, dtrttf, dtrttp, + dgejsv, dgesvj, dgsvj0, dgsvj1, + dgeequb, dsyequb, dpoequb, dgbequb, + dbbcsd, dlapmr, dorbdb, dorbdb1, dorbdb2, dorbdb3, dorbdb4, + dorbdb5, dorbdb6, dorcsd, dorcsd2by1, + dgeqrt, dgeqrt2, dgeqrt3, dgemqrt, + dtpqrt, dtpqrt2, dtpmqrt, dtprfb, +); +@lapackobjs2z = ( + # ZLASRC -- Double precision complex LAPACK routines + # already provided by @blasobjs: + # already provided by @lapackobjs: + # zgesv, zgetrs, zgetf2, zlaswp, zlauu2, zlauum, zpotf2, zpotrf, zpotri, + # ztrti2, ztrtri + zbdsqr, zgbbrd, zgbcon, zgbequ, zgbrfs, zgbsv, zgbsvx, + zgbtf2, zgbtrf, zgbtrs, zgebak, zgebal, zgebd2, zgebrd, + zgecon, zgeequ, zgees, zgeesx, zgeev, zgeevx, + zgehd2, zgehrd, zgelq2, zgelqf, + zgels, zgelsd, zgelss, zgelsy, zgeql2, zgeqlf, zgeqp3, + zgeqr2, zgeqr2p, zgeqrf, zgeqrfp, zgerfs, zgerq2, zgerqf, + zgesc2, zgesdd, zgesvd, zgesvx, zgetc2, + zgetri, + zggbak, zggbal, zgges, zggesx, zggev, zggevx, zggglm, + zgghrd, zgglse, zggqrf, zggrqf, + zgtcon, zgtrfs, zgtsv, zgtsvx, zgttrf, zgttrs, zgtts2, zhbev, + zhbevd, zhbevx, zhbgst, zhbgv, zhbgvd, zhbgvx, zhbtrd, + zhecon, zheev, zheevd, zheevr, zheevx, zhegs2, zhegst, + zhegv, zhegvd, zhegvx, zherfs, zhesv, zhesvx, zhetd2, + zhetf2, zhetrd, + zhetrf, zhetri, zhetri2, zhetri2x, zheswapr, + zhetrs, zhetrs2, zhgeqz, zhpcon, zhpev, zhpevd, + zhpevx, zhpgst, zhpgv, zhpgvd, zhpgvx, zhprfs, zhpsv, + zhpsvx, + zhptrd, zhptrf, zhptri, zhptrs, zhsein, zhseqr, zlabrd, + zlacgv, zlacon, zlacn2, zlacp2, zlacpy, zlacrm, zlacrt, zladiv, + zlaed0, zlaed7, zlaed8, + zlaein, zlaesy, zlaev2, zlags2, zlagtm, + zlahef, zlahqr, + zlahr2, zlaic1, zlals0, zlalsa, zlalsd, zlangb, zlange, + zlangt, zlanhb, + zlanhe, + zlanhp, zlanhs, zlanht, zlansb, zlansp, zlansy, zlantb, + zlantp, zlantr, zlapll, zlapmt, zlaqgb, zlaqge, + zlaqhb, zlaqhe, zlaqhp, zlaqp2, zlaqps, zlaqsb, + zlaqr0, zlaqr1, zlaqr2, zlaqr3, zlaqr4, zlaqr5, + zlaqsp, zlaqsy, zlar1v, zlar2v, ilazlr, ilazlc, + zlarcm, zlarf, zlarfb, + zlarfg, zlarft, zlarfgp, + zlarfx, zlargv, zlarnv, zlarrv, zlartg, zlartv, + zlarz, zlarzb, zlarzt, zlascl, zlaset, zlasr, + zlassq, zlasyf, + zlatbs, zlatdf, zlatps, zlatrd, zlatrs, zlatrz, + zpbcon, zpbequ, zpbrfs, zpbstf, zpbsv, + zpbsvx, zpbtf2, zpbtrf, zpbtrs, zpocon, zpoequ, zporfs, + zposv, zposvx, zpotrs, zpstrf, zpstf2, + zppcon, zppequ, zpprfs, zppsv, zppsvx, zpptrf, zpptri, zpptrs, + zptcon, zpteqr, zptrfs, zptsv, zptsvx, zpttrf, zpttrs, zptts2, + zrot, zspcon, zspmv, zspr, zsprfs, zspsv, + zspsvx, zsptrf, zsptri, zsptrs, zdrscl, zstedc, + zstegr, zstein, zsteqr, + zsycon, + zsymv, + zsyr, zsyrfs, zsysv, zsysvx, zsytf2, zsytrf, zsytri, zsytri2, zsytri2x, + zsyswapr, zsytrs, zsytrs2, zsyconv, + ztbcon, ztbrfs, ztbtrs, ztgevc, ztgex2, + ztgexc, ztgsen, ztgsja, ztgsna, ztgsy2, ztgsyl, ztpcon, + ztprfs, ztptri, + ztptrs, ztrcon, ztrevc, ztrexc, ztrrfs, ztrsen, ztrsna, + ztrsyl, ztrtrs, ztzrzf, zung2l, + zung2r, zungbr, zunghr, zungl2, zunglq, zungql, zungqr, zungr2, + zungrq, zungtr, zunm2l, zunm2r, zunmbr, zunmhr, zunml2, + zunmlq, zunmql, zunmqr, zunmr2, zunmr3, zunmrq, zunmrz, + zunmtr, zupgtr, + zupmtr, izmax1, dzsum1, zstemr, + zcgesv, zcposv, zlag2c, clag2z, zlat2c, + 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, + zgeqrt, zgeqrt2, zgeqrt3, zgemqrt, + ztpqrt, ztpqrt2, ztpmqrt, ztprfb, +); + # functions added for lapack-3.6.0 + +@lapackobjs2c = ( @lapackobjs2c, + cgejsv, + cgesvdx, + cgesvj, + cgetrf2, + cgges3, + cggev3, + cgghd3, + cggsvd3, + cggsvp3, + cgsvj0, + cgsvj1, + clagge, + claghe, + clagsy, + clahilb, + clakf2, + clarge, + clarnd, + claror, + clarot, + clatm1, + clatm2, + clatm3, + clatm5, + clatm6, + clatme, + clatmr, + clatms, + clatmt, + cpotrf2, + csbmv, + cspr2, + csyr2, + cunm22, +); +@lapackobjs2d = (@lapackobjs2d, + dbdsvdx, + dgesvdx, + dgetrf2, + dgges3, + dggev3, + dgghd3, + dggsvd3, + dggsvp3, + dladiv2, + dlagge, + dlagsy, + dlahilb, + dlakf2, + dlaran, + dlarge, + dlarnd, + dlaror, + dlarot, + dlatm1, + dlatm2, + dlatm3, + dlatm5, + dlatm6, + dlatm7, + dlatme, + dlatmr, + dlatms, + dlatmt, + dorm22, + dpotrf2, + dsecnd, + ); + @lapackobjs2s = (@lapackobjs2s, + sbdsvdx, + second, + sgesvdx, + sgetrf2, + sgges3, + sggev3, + sgghd3, + sggsvd3, + sggsvp3, + sladiv2, + slagge, + slagsy, + slahilb, + slakf2, + slaran, + slarge, + slarnd, + slaror, + slarot, + slatm1, + slatm2, + slatm3, + slatm5, + slatm6, + slatm7, + slatme, + slatmr, + slatms, + slatmt, + sorm22, + spotrf2, + ); + @lapackobjs2z = (@lapackobjs2z, + zgejsv, + zgesvdx, + zgesvj, + zgetrf2, + zgges3, + zggev3, + zgghd3, + zggsvd3, + zggsvp3, + zgsvj0, + zgsvj1, + zlagge, + zlaghe, + zlagsy, + zlahilb, + zlakf2, + zlarge, + zlarnd, + zlaror, + zlarot, + zlatm1, + zlatm2, + zlatm3, + zlatm5, + zlatm6, + zlatme, + zlatmr, + zlatms, + zlatmt, + zpotrf2, + zsbmv, + zspr2, + zsyr2, + zunm22, +); + # functions added for lapack-3.7.0 +@lapackobjs2s = (@lapackobjs2s, + slarfy, + strevc3, + sgelqt, + sgelqt3, + sgemlqt, + sgetsls, + sgeqr, + slatsqr, + slamtsqr, + sgemqr, + sgelq, + slaswlq, + slamswlq, + sgemlq, + stplqt, + stplqt2, + stpmlqt, + ); + @lapackobjs2d = (@lapackobjs2d, + dlarfy, + dsyconvf, + dtrevc3, + dgelqt, + dgelqt3, + dgemlqt, + dgetsls, + dgeqr, + dlatsqr, + dlamtsqr, + dgemqr, + dgelq, + dlaswlq, + dlamswlq, + dgemlq, + dtplqt, + dtplqt2, + dtpmlqt, + ); + @lapackobjs2c = (@lapackobjs2c, + clarfy, + csyconvf, + ctrevc3, + cgelqt, + cgelqt3, + cgemlqt, + cgetsls, + cgeqr, + clatsqr, + clamtsqr, + cgemqr, + cgelq, + claswlq, + clamswlq, + cgemlq, + ctplqt, + ctplqt2, + ctpmlqt, + ); + @lapackobjs2z = (@lapackobjs2z, + zlarfy, + zsyconvf, + ztrevc3, + ztplqt, + ztplqt2, + ztpmlqt, + zgelqt, + zgelqt3, + zgemlqt, + zgetsls, + zgeqr, + zlatsqr, + zlamtsqr, + zgemqr, + zgelq, + zlaswlq, + zlamswlq, + zgemlq, + ); + @lapackobjs2s = (@lapackobjs2s, + sladiv1); + @lapackobjs2d = (@lapackobjs2d, + dladiv1); + @lapackobjs = (@lapackobjs, + iparam2stage, + # functions added for lapack-3.8.0 + ilaenv2stage, + ); + # functions added for lapack-3.9.0 +@lapackobjs2c = (@lapackobjs2c, + cgesvdq, + cungtsqr + ); +@lapackobjs2d = (@lapackobjs2d, + dcombssq, + dgesvdq, + dorgtsqr, + ); +@lapackobjs2s = (@lapackobjs2s, + scombssq, + sgesvdq, + sorgtsqr, + ); +@lapackobjs2z = (@lapackobjs2z, + zgesvdq, + zungtsqr +); + #functions added for lapack-3.10 +@lapackobjs2c = (@lapackobjs2c, + cgetsqrhrt, + cungtsqr_row + ); +@lapackobjs2d = (@lapackobjs2d, + dgetsqrhrt, + dorgtsqr_row + ); +@lapackobjs2s = (@lapackobjs2s, + sgetsqrhrt, + sorgtsqr_row + ); +@lapackobjs2z = (@lapackobjs2z, + zgetsqrhrt, + zungtsqr_row + ); + +@lapack_extendedprecision_objs = ( + zposvxx, clagge, clatms, chesvxx, cposvxx, cgesvxx, ssyrfssx, csyrfsx, + dlagsy, dsysvxx, sporfsx, slatms, zlatms, zherfsx, csysvxx, +); + +@lapack_deprecated_objsc = ( + cgegs, cggsvd, + cgegv, cggsvp, + cgelsx, clahrd, + cgeqpf, clatzm, + ctzrqf, + ); +@lapack_deprecated_objsd = ( + dgegs, dgeqpf, + dgegv, dggsvd, + dgelsx, dggsvp, + dlahrd, + dlatzm, dtzrqf); + +@lapack_deprecated_objss = ( + sgelsx, + sgegs, + sgegv, + sgeqpf, + sggsvd, + sggsvp, + slahrd, + slatzm, + stzrqf + ); + +@lapack_deprecated_objsz = ( + zgegs, + zgegv, + zgelsx, + zgeqpf, + zggsvd, + zggsvp, + zlahrd, + zlatzm, + ztzrqf + ); + +@lapacke_deprecated_objsc = ( + LAPACKE_cggsvp, + LAPACKE_cggsvp_work, + LAPACKE_cggsvd, + LAPACKE_cggsvd_work, + LAPACKE_cgeqpf, + LAPACKE_cgeqpf_work, +); +@lapacke_deprecated_objsd = ( + LAPACKE_dggsvp, + LAPACKE_dggsvp_work, + LAPACKE_dggsvd, + LAPACKE_dggsvd_work, + LAPACKE_dgeqpf, + LAPACKE_dgeqpf_work, +); +@lapacke_deprecated_objss = ( + LAPACKE_sggsvp, + LAPACKE_sggsvp_work, + LAPACKE_sggsvd, + LAPACKE_sggsvd_work, + LAPACKE_sgeqpf, + LAPACKE_sgeqpf_work, +); +@lapacke_deprecated_objsz = ( + LAPACKE_zggsvp, + LAPACKE_zggsvp_work, + LAPACKE_zggsvd, + LAPACKE_zggsvd_work, + LAPACKE_zgeqpf, + LAPACKE_zgeqpf_work, +); + + +@lapackeobjs = ( + # LAPACK C interface routines. + # + # This list is prepared in a similar manner to @lapackobjs2, however the + # functions all begin with an uppercase prefix (with the exception of the + # make_complex_* routines). + # + # The functions corresponding to @(MATGEN_OBJ) and @(SRCX_OBJ) are not + # exported since the respective LAPACK routines are not built by default. + + # @(OBJ) from `lapack-3.4.1/lapacke/utils/Makefile` + LAPACKE_lsame, + LAPACKE_ilaver, + LAPACKE_xerbla, + lapack_make_complex_float, + lapack_make_complex_double, + LAPACKE_get_nancheck, + LAPACKE_set_nancheck, +); +@lapackeobjsc = ( + LAPACKE_cgb_nancheck, + LAPACKE_cgb_trans, + LAPACKE_cge_nancheck, + LAPACKE_cge_trans, + LAPACKE_cgg_nancheck, + LAPACKE_cgg_trans, + LAPACKE_cgt_nancheck, + LAPACKE_chb_nancheck, + LAPACKE_chb_trans, + LAPACKE_che_nancheck, + LAPACKE_che_trans, + LAPACKE_chp_nancheck, + LAPACKE_chp_trans, + LAPACKE_chs_nancheck, + LAPACKE_chs_trans, + LAPACKE_c_nancheck, + LAPACKE_cpb_nancheck, + LAPACKE_cpb_trans, + LAPACKE_cpf_nancheck, + LAPACKE_cpf_trans, + LAPACKE_cpo_nancheck, + LAPACKE_cpo_trans, + LAPACKE_cpp_nancheck, + LAPACKE_cpp_trans, + LAPACKE_cpt_nancheck, + LAPACKE_csp_nancheck, + LAPACKE_csp_trans, + LAPACKE_cst_nancheck, + LAPACKE_csy_nancheck, + LAPACKE_csy_trans, + LAPACKE_ctb_nancheck, + LAPACKE_ctb_trans, + LAPACKE_ctf_nancheck, + LAPACKE_ctf_trans, + LAPACKE_ctp_nancheck, + LAPACKE_ctp_trans, + LAPACKE_ctr_nancheck, + LAPACKE_ctr_trans, + LAPACKE_cbbcsd, + LAPACKE_cbbcsd_work, + LAPACKE_cbdsqr, + LAPACKE_cbdsqr_work, + LAPACKE_cgbbrd, + LAPACKE_cgbbrd_work, + LAPACKE_cgbcon, + LAPACKE_cgbcon_work, + LAPACKE_cgbequ, + LAPACKE_cgbequ_work, + LAPACKE_cgbequb, + LAPACKE_cgbequb_work, + LAPACKE_cgbrfs, + LAPACKE_cgbrfs_work, + LAPACKE_cgbsv, + LAPACKE_cgbsv_work, + LAPACKE_cgbsvx, + LAPACKE_cgbsvx_work, + LAPACKE_cgbtrf, + LAPACKE_cgbtrf_work, + LAPACKE_cgbtrs, + LAPACKE_cgbtrs_work, + LAPACKE_cgebak, + LAPACKE_cgebak_work, + LAPACKE_cgebal, + LAPACKE_cgebal_work, + LAPACKE_cgebrd, + LAPACKE_cgebrd_work, + LAPACKE_cgecon, + LAPACKE_cgecon_work, + LAPACKE_cgeequ, + LAPACKE_cgeequ_work, + LAPACKE_cgeequb, + LAPACKE_cgeequb_work, + LAPACKE_cgees, + LAPACKE_cgees_work, + LAPACKE_cgeesx, + LAPACKE_cgeesx_work, + LAPACKE_cgeev, + LAPACKE_cgeev_work, + LAPACKE_cgeevx, + LAPACKE_cgeevx_work, + LAPACKE_cgehrd, + LAPACKE_cgehrd_work, + LAPACKE_cgelq2, + LAPACKE_cgelq2_work, + LAPACKE_cgelqf, + LAPACKE_cgelqf_work, + LAPACKE_cgels, + LAPACKE_cgels_work, + LAPACKE_cgelsd, + LAPACKE_cgelsd_work, + LAPACKE_cgelss, + LAPACKE_cgelss_work, + LAPACKE_cgelsy, + LAPACKE_cgelsy_work, + LAPACKE_cgemqrt, + LAPACKE_cgemqrt_work, + LAPACKE_cgeqlf, + LAPACKE_cgeqlf_work, + LAPACKE_cgeqp3, + LAPACKE_cgeqp3_work, + LAPACKE_cgeqr2, + LAPACKE_cgeqr2_work, + LAPACKE_cgeqrf, + LAPACKE_cgeqrf_work, + LAPACKE_cgeqrfp, + LAPACKE_cgeqrfp_work, + LAPACKE_cgeqrt, + LAPACKE_cgeqrt2, + LAPACKE_cgeqrt2_work, + LAPACKE_cgeqrt3, + LAPACKE_cgeqrt3_work, + LAPACKE_cgeqrt_work, + LAPACKE_cgerfs, + LAPACKE_cgerfs_work, + LAPACKE_cgerqf, + LAPACKE_cgerqf_work, + LAPACKE_cgesdd, + LAPACKE_cgesdd_work, + LAPACKE_cgesv, + LAPACKE_cgesv_work, + LAPACKE_cgesvd, + LAPACKE_cgesvd_work, + LAPACKE_cgesvx, + LAPACKE_cgesvx_work, + LAPACKE_cgetf2, + LAPACKE_cgetf2_work, + LAPACKE_cgetrf, + LAPACKE_cgetrf_work, + LAPACKE_cgetri, + LAPACKE_cgetri_work, + LAPACKE_cgetrs, + LAPACKE_cgetrs_work, + LAPACKE_cggbak, + LAPACKE_cggbak_work, + LAPACKE_cggbal, + LAPACKE_cggbal_work, + LAPACKE_cgges, + LAPACKE_cgges_work, + LAPACKE_cggesx, + LAPACKE_cggesx_work, + LAPACKE_cggev, + LAPACKE_cggev_work, + LAPACKE_cggevx, + LAPACKE_cggevx_work, + LAPACKE_cggglm, + LAPACKE_cggglm_work, + LAPACKE_cgghrd, + LAPACKE_cgghrd_work, + LAPACKE_cgglse, + LAPACKE_cgglse_work, + LAPACKE_cggqrf, + LAPACKE_cggqrf_work, + LAPACKE_cggrqf, + LAPACKE_cggrqf_work, + LAPACKE_cgtcon, + LAPACKE_cgtcon_work, + LAPACKE_cgtrfs, + LAPACKE_cgtrfs_work, + LAPACKE_cgtsv, + LAPACKE_cgtsv_work, + LAPACKE_cgtsvx, + LAPACKE_cgtsvx_work, + LAPACKE_cgttrf, + LAPACKE_cgttrf_work, + LAPACKE_cgttrs, + LAPACKE_cgttrs_work, + LAPACKE_chbev, + LAPACKE_chbev_work, + LAPACKE_chbevd, + LAPACKE_chbevd_work, + LAPACKE_chbevx, + LAPACKE_chbevx_work, + LAPACKE_chbgst, + LAPACKE_chbgst_work, + LAPACKE_chbgv, + LAPACKE_chbgv_work, + LAPACKE_chbgvd, + LAPACKE_chbgvd_work, + LAPACKE_chbgvx, + LAPACKE_chbgvx_work, + LAPACKE_chbtrd, + LAPACKE_chbtrd_work, + LAPACKE_checon, + LAPACKE_checon_work, + LAPACKE_cheequb, + LAPACKE_cheequb_work, + LAPACKE_cheev, + LAPACKE_cheev_work, + LAPACKE_cheevd, + LAPACKE_cheevd_work, + LAPACKE_cheevr, + LAPACKE_cheevr_work, + LAPACKE_cheevx, + LAPACKE_cheevx_work, + LAPACKE_chegst, + LAPACKE_chegst_work, + LAPACKE_chegv, + LAPACKE_chegv_work, + LAPACKE_chegvd, + LAPACKE_chegvd_work, + LAPACKE_chegvx, + LAPACKE_chegvx_work, + LAPACKE_cherfs, + LAPACKE_cherfs_work, + LAPACKE_chesv, + LAPACKE_chesv_work, + LAPACKE_chesvx, + LAPACKE_chesvx_work, + LAPACKE_cheswapr, + LAPACKE_cheswapr_work, + LAPACKE_chetrd, + LAPACKE_chetrd_work, + LAPACKE_chetrf, + LAPACKE_chetrf_work, + LAPACKE_chetri, + LAPACKE_chetri2, + LAPACKE_chetri2_work, + LAPACKE_chetri2x, + LAPACKE_chetri2x_work, + LAPACKE_chetri_work, + LAPACKE_chetrs, + LAPACKE_chetrs2, + LAPACKE_chetrs2_work, + LAPACKE_chetrs_work, + LAPACKE_chfrk, + LAPACKE_chfrk_work, + LAPACKE_chgeqz, + LAPACKE_chgeqz_work, + LAPACKE_chpcon, + LAPACKE_chpcon_work, + LAPACKE_chpev, + LAPACKE_chpev_work, + LAPACKE_chpevd, + LAPACKE_chpevd_work, + LAPACKE_chpevx, + LAPACKE_chpevx_work, + LAPACKE_chpgst, + LAPACKE_chpgst_work, + LAPACKE_chpgv, + LAPACKE_chpgv_work, + LAPACKE_chpgvd, + LAPACKE_chpgvd_work, + LAPACKE_chpgvx, + LAPACKE_chpgvx_work, + LAPACKE_chprfs, + LAPACKE_chprfs_work, + LAPACKE_chpsv, + LAPACKE_chpsv_work, + LAPACKE_chpsvx, + LAPACKE_chpsvx_work, + LAPACKE_chptrd, + LAPACKE_chptrd_work, + LAPACKE_chptrf, + LAPACKE_chptrf_work, + LAPACKE_chptri, + LAPACKE_chptri_work, + LAPACKE_chptrs, + LAPACKE_chptrs_work, + LAPACKE_chsein, + LAPACKE_chsein_work, + LAPACKE_chseqr, + LAPACKE_chseqr_work, + LAPACKE_clacgv, + LAPACKE_clacgv_work, + LAPACKE_clacn2, + LAPACKE_clacn2_work, + LAPACKE_clacp2, + LAPACKE_clacp2_work, + LAPACKE_clacpy, + LAPACKE_clacpy_work, + LAPACKE_clag2z, + LAPACKE_clag2z_work, + LAPACKE_clange, + LAPACKE_clange_work, + LAPACKE_clanhe, + LAPACKE_clanhe_work, + LAPACKE_clansy, + LAPACKE_clansy_work, + LAPACKE_clantr, + LAPACKE_clantr_work, + LAPACKE_clapmr, + LAPACKE_clapmr_work, + LAPACKE_clarfb, + LAPACKE_clarfb_work, + LAPACKE_clarfg, + LAPACKE_clarfg_work, + LAPACKE_clarft, + LAPACKE_clarft_work, + LAPACKE_clarfx, + LAPACKE_clarfx_work, + LAPACKE_clarnv, + LAPACKE_clarnv_work, + LAPACKE_claset, + LAPACKE_claset_work, + LAPACKE_claswp, + LAPACKE_claswp_work, + LAPACKE_clauum, + LAPACKE_clauum_work, + LAPACKE_cpbcon, + LAPACKE_cpbcon_work, + LAPACKE_cpbequ, + LAPACKE_cpbequ_work, + LAPACKE_cpbrfs, + LAPACKE_cpbrfs_work, + LAPACKE_cpbstf, + LAPACKE_cpbstf_work, + LAPACKE_cpbsv, + LAPACKE_cpbsv_work, + LAPACKE_cpbsvx, + LAPACKE_cpbsvx_work, + LAPACKE_cpbtrf, + LAPACKE_cpbtrf_work, + LAPACKE_cpbtrs, + LAPACKE_cpbtrs_work, + LAPACKE_cpftrf, + LAPACKE_cpftrf_work, + LAPACKE_cpftri, + LAPACKE_cpftri_work, + LAPACKE_cpftrs, + LAPACKE_cpftrs_work, + LAPACKE_cpocon, + LAPACKE_cpocon_work, + LAPACKE_cpoequ, + LAPACKE_cpoequ_work, + LAPACKE_cpoequb, + LAPACKE_cpoequb_work, + LAPACKE_cporfs, + LAPACKE_cporfs_work, + LAPACKE_cposv, + LAPACKE_cposv_work, + LAPACKE_cposvx, + LAPACKE_cposvx_work, + LAPACKE_cpotrf, + LAPACKE_cpotrf_work, + LAPACKE_cpotri, + LAPACKE_cpotri_work, + LAPACKE_cpotrs, + LAPACKE_cpotrs_work, + LAPACKE_cppcon, + LAPACKE_cppcon_work, + LAPACKE_cppequ, + LAPACKE_cppequ_work, + LAPACKE_cpprfs, + LAPACKE_cpprfs_work, + LAPACKE_cppsv, + LAPACKE_cppsv_work, + LAPACKE_cppsvx, + LAPACKE_cppsvx_work, + LAPACKE_cpptrf, + LAPACKE_cpptrf_work, + LAPACKE_cpptri, + LAPACKE_cpptri_work, + LAPACKE_cpptrs, + LAPACKE_cpptrs_work, + LAPACKE_cpstrf, + LAPACKE_cpstrf_work, + LAPACKE_cptcon, + LAPACKE_cptcon_work, + LAPACKE_cpteqr, + LAPACKE_cpteqr_work, + LAPACKE_cptrfs, + LAPACKE_cptrfs_work, + LAPACKE_cptsv, + LAPACKE_cptsv_work, + LAPACKE_cptsvx, + LAPACKE_cptsvx_work, + LAPACKE_cpttrf, + LAPACKE_cpttrf_work, + LAPACKE_cpttrs, + LAPACKE_cpttrs_work, + LAPACKE_cspcon, + LAPACKE_cspcon_work, + LAPACKE_csprfs, + LAPACKE_csprfs_work, + LAPACKE_cspsv, + LAPACKE_cspsv_work, + LAPACKE_cspsvx, + LAPACKE_cspsvx_work, + LAPACKE_csptrf, + LAPACKE_csptrf_work, + LAPACKE_csptri, + LAPACKE_csptri_work, + LAPACKE_csptrs, + LAPACKE_csptrs_work, + LAPACKE_cstedc, + LAPACKE_cstedc_work, + LAPACKE_cstegr, + LAPACKE_cstegr_work, + LAPACKE_cstein, + LAPACKE_cstein_work, + LAPACKE_cstemr, + LAPACKE_cstemr_work, + LAPACKE_csteqr, + LAPACKE_csteqr_work, + LAPACKE_csycon, + LAPACKE_csycon_work, + LAPACKE_csyconv, + LAPACKE_csyconv_work, + LAPACKE_csyequb, + LAPACKE_csyequb_work, + LAPACKE_csyrfs, + LAPACKE_csyrfs_work, + LAPACKE_csysv, + LAPACKE_csysv_rook, + LAPACKE_csysv_rook_work, + LAPACKE_csysv_work, + LAPACKE_csysvx, + LAPACKE_csysvx_work, + LAPACKE_csyswapr, + LAPACKE_csyswapr_work, + LAPACKE_csytrf, + LAPACKE_csytrf_work, + LAPACKE_csytri, + LAPACKE_csytri2, + LAPACKE_csytri2_work, + LAPACKE_csytri2x, + LAPACKE_csytri2x_work, + LAPACKE_csytri_work, + LAPACKE_csytrs, + LAPACKE_csytrs2, + LAPACKE_csytrs2_work, + LAPACKE_csytrs_work, + LAPACKE_ctbcon, + LAPACKE_ctbcon_work, + LAPACKE_ctbrfs, + LAPACKE_ctbrfs_work, + LAPACKE_ctbtrs, + LAPACKE_ctbtrs_work, + LAPACKE_ctfsm, + LAPACKE_ctfsm_work, + LAPACKE_ctftri, + LAPACKE_ctftri_work, + LAPACKE_ctfttp, + LAPACKE_ctfttp_work, + LAPACKE_ctfttr, + LAPACKE_ctfttr_work, + LAPACKE_ctgevc, + LAPACKE_ctgevc_work, + LAPACKE_ctgexc, + LAPACKE_ctgexc_work, + LAPACKE_ctgsen, + LAPACKE_ctgsen_work, + LAPACKE_ctgsja, + LAPACKE_ctgsja_work, + LAPACKE_ctgsna, + LAPACKE_ctgsna_work, + LAPACKE_ctgsyl, + LAPACKE_ctgsyl_work, + LAPACKE_ctpcon, + LAPACKE_ctpcon_work, + LAPACKE_ctpmqrt, + LAPACKE_ctpmqrt_work, + LAPACKE_ctpqrt, + LAPACKE_ctpqrt2, + LAPACKE_ctpqrt2_work, + LAPACKE_ctpqrt_work, + LAPACKE_ctprfb, + LAPACKE_ctprfb_work, + LAPACKE_ctprfs, + LAPACKE_ctprfs_work, + LAPACKE_ctptri, + LAPACKE_ctptri_work, + LAPACKE_ctptrs, + LAPACKE_ctptrs_work, + LAPACKE_ctpttf, + LAPACKE_ctpttf_work, + LAPACKE_ctpttr, + LAPACKE_ctpttr_work, + LAPACKE_ctrcon, + LAPACKE_ctrcon_work, + LAPACKE_ctrevc, + LAPACKE_ctrevc_work, + LAPACKE_ctrexc, + LAPACKE_ctrexc_work, + LAPACKE_ctrrfs, + LAPACKE_ctrrfs_work, + LAPACKE_ctrsen, + LAPACKE_ctrsen_work, + LAPACKE_ctrsna, + LAPACKE_ctrsna_work, + LAPACKE_ctrsyl, + LAPACKE_ctrsyl_work, + LAPACKE_ctrtri, + LAPACKE_ctrtri_work, + LAPACKE_ctrtrs, + LAPACKE_ctrtrs_work, + LAPACKE_ctrttf, + LAPACKE_ctrttf_work, + LAPACKE_ctrttp, + LAPACKE_ctrttp_work, + LAPACKE_ctzrzf, + LAPACKE_ctzrzf_work, + LAPACKE_cunbdb, + LAPACKE_cunbdb_work, + LAPACKE_cuncsd, + LAPACKE_cuncsd_work, + LAPACKE_cungbr, + LAPACKE_cungbr_work, + LAPACKE_cunghr, + LAPACKE_cunghr_work, + LAPACKE_cunglq, + LAPACKE_cunglq_work, + LAPACKE_cungql, + LAPACKE_cungql_work, + LAPACKE_cungqr, + LAPACKE_cungqr_work, + LAPACKE_cungrq, + LAPACKE_cungrq_work, + LAPACKE_cungtr, + LAPACKE_cungtr_work, + LAPACKE_cunmbr, + LAPACKE_cunmbr_work, + LAPACKE_cunmhr, + LAPACKE_cunmhr_work, + LAPACKE_cunmlq, + LAPACKE_cunmlq_work, + LAPACKE_cunmql, + LAPACKE_cunmql_work, + LAPACKE_cunmqr, + LAPACKE_cunmqr_work, + LAPACKE_cunmrq, + LAPACKE_cunmrq_work, + LAPACKE_cunmrz, + LAPACKE_cunmrz_work, + LAPACKE_cunmtr, + LAPACKE_cunmtr_work, + LAPACKE_cupgtr, + LAPACKE_cupgtr_work, + LAPACKE_cupmtr, + LAPACKE_cupmtr_work, + LAPACKE_csyr, + LAPACKE_csyr_work, + LAPACKE_clatms, + LAPACKE_clatms_work, + LAPACKE_clagge, + LAPACKE_clagge_work, + LAPACKE_claghe, + LAPACKE_claghe_work, + LAPACKE_clagsy, + LAPACKE_clagsy_work, + LAPACKE_cgejsv, + LAPACKE_cgejsv_work, + LAPACKE_cgesvdx, + LAPACKE_cgesvdx_work, + LAPACKE_cgesvj, + LAPACKE_cgesvj_work, + LAPACKE_cgetrf2, + LAPACKE_cgetrf2_work, + LAPACKE_cgges3, + LAPACKE_cgges3_work, + LAPACKE_cggev3, + LAPACKE_cggev3_work, + LAPACKE_cgghd3, + LAPACKE_cgghd3_work, + LAPACKE_cggsvd3, + LAPACKE_cggsvd3_work, + LAPACKE_cggsvp3, + LAPACKE_cggsvp3_work, + LAPACKE_chetrf_rook, + LAPACKE_chetrf_rook_work, + LAPACKE_chetrs_rook, + LAPACKE_chetrs_rook_work, + LAPACKE_clapmt, + LAPACKE_clapmt_work, + LAPACKE_clascl, + LAPACKE_clascl_work, + LAPACKE_cpotrf2, + LAPACKE_cpotrf2_work, + LAPACKE_csytrf_rook, + LAPACKE_csytrf_rook_work, + LAPACKE_csytrs_rook, + LAPACKE_csytrs_rook_work, + LAPACKE_cuncsd2by1, + LAPACKE_cuncsd2by1_work, + LAPACKE_cgelq, + LAPACKE_cgelq_work, + LAPACKE_cgemlq, + LAPACKE_cgemlq_work, + LAPACKE_cgemqr, + LAPACKE_cgemqr_work, + LAPACKE_cgeqr, + LAPACKE_cgeqr_work, + LAPACKE_cgetsls, + LAPACKE_cgetsls_work, + LAPACKE_chbev_2stage, + LAPACKE_chbev_2stage_work, + LAPACKE_chbevd_2stage, + LAPACKE_chbevd_2stage_work, + LAPACKE_chbevx_2stage, + LAPACKE_chbevx_2stage_work, + LAPACKE_checon_3, + LAPACKE_checon_3_work, + LAPACKE_cheev_2stage, + LAPACKE_cheev_2stage_work, + LAPACKE_cheevd_2stage, + LAPACKE_cheevd_2stage_work, + LAPACKE_cheevr_2stage, + LAPACKE_cheevr_2stage_work, + LAPACKE_cheevx_2stage, + LAPACKE_cheevx_2stage_work, + LAPACKE_chegv_2stage, + LAPACKE_chegv_2stage_work, + LAPACKE_chesv_aa, + LAPACKE_chesv_aa_work, + LAPACKE_chesv_rk, + LAPACKE_chesv_rk_work, + LAPACKE_chetrf_aa, + LAPACKE_chetrf_aa_work, + LAPACKE_chetrf_rk, + LAPACKE_chetrf_rk_work, + LAPACKE_chetri_3, + LAPACKE_chetri_3_work, + LAPACKE_chetrs_aa, + LAPACKE_chetrs_aa_work, + LAPACKE_chetrs_3, + LAPACKE_chetrs_3_work, + LAPACKE_csycon_3, + LAPACKE_csycon_3_work, + LAPACKE_csysv_aa, + LAPACKE_csysv_aa_work, + LAPACKE_csysv_rk, + LAPACKE_csysv_rk_work, + LAPACKE_csytrf_aa, + LAPACKE_csytrf_aa_work, + LAPACKE_csytrf_rk, + LAPACKE_csytrf_rk_work, + LAPACKE_csytri_3, + LAPACKE_csytri_3_work, + LAPACKE_csytrs_aa, + LAPACKE_csytrs_aa_work, + LAPACKE_csytrs_3, + LAPACKE_csytrs_3_work, + LAPACKE_chesv_aa_2stage, + LAPACKE_chesv_aa_2stage_work, + LAPACKE_chetrf_aa_2stage, + LAPACKE_chetrf_aa_2stage_work, + LAPACKE_chetrs_aa_2stage, + LAPACKE_chetrs_aa_2stage_work, + LAPACKE_clacrm, + LAPACKE_clacrm_work, + LAPACKE_clarcm, + LAPACKE_clarcm_work, + LAPACKE_classq, + LAPACKE_classq_work, + LAPACKE_csysv_aa_2stage, + LAPACKE_csysv_aa_2stage_work, + LAPACKE_csytrf_aa_2stage, + LAPACKE_csytrf_aa_2stage_work, + LAPACKE_csytrs_aa_2stage, + LAPACKE_csytrs_aa_2stage_work, + LAPACKE_cgesvdq, + LAPACKE_cgesvdq_work, + LAPACKE_cgetsqrhrt, + LAPACKE_cgetsqrhrt_work, + LAPACKE_cungtsqr_row, + LAPACKE_cungtsqr_row_work + +); +@lapackeobjsd = ( + LAPACKE_dgb_nancheck, + LAPACKE_dgb_trans, + LAPACKE_dge_nancheck, + LAPACKE_dge_trans, + LAPACKE_dgg_nancheck, + LAPACKE_dgg_trans, + LAPACKE_dgt_nancheck, + LAPACKE_dhs_nancheck, + LAPACKE_dhs_trans, + LAPACKE_d_nancheck, + LAPACKE_dpb_nancheck, + LAPACKE_dpb_trans, + LAPACKE_dpf_nancheck, + LAPACKE_dpf_trans, + LAPACKE_dpo_nancheck, + LAPACKE_dpo_trans, + LAPACKE_dpp_nancheck, + LAPACKE_dpp_trans, + LAPACKE_dpt_nancheck, + LAPACKE_dsb_nancheck, + LAPACKE_dsb_trans, + LAPACKE_dsp_nancheck, + LAPACKE_dsp_trans, + LAPACKE_dst_nancheck, + LAPACKE_dsy_nancheck, + LAPACKE_dsy_trans, + LAPACKE_dtb_nancheck, + LAPACKE_dtb_trans, + LAPACKE_dtf_nancheck, + LAPACKE_dtf_trans, + LAPACKE_dtp_nancheck, + LAPACKE_dtp_trans, + LAPACKE_dtr_nancheck, + LAPACKE_dtr_trans, + LAPACKE_dbbcsd, + LAPACKE_dbbcsd_work, + LAPACKE_dbdsdc, + LAPACKE_dbdsdc_work, + LAPACKE_dbdsqr, + LAPACKE_dbdsqr_work, + LAPACKE_ddisna, + LAPACKE_ddisna_work, + LAPACKE_dgbbrd, + LAPACKE_dgbbrd_work, + LAPACKE_dgbcon, + LAPACKE_dgbcon_work, + LAPACKE_dgbequ, + LAPACKE_dgbequ_work, + LAPACKE_dgbequb, + LAPACKE_dgbequb_work, + LAPACKE_dgbrfs, + LAPACKE_dgbrfs_work, + LAPACKE_dgbsv, + LAPACKE_dgbsv_work, + LAPACKE_dgbsvx, + LAPACKE_dgbsvx_work, + LAPACKE_dgbtrf, + LAPACKE_dgbtrf_work, + LAPACKE_dgbtrs, + LAPACKE_dgbtrs_work, + LAPACKE_dgebak, + LAPACKE_dgebak_work, + LAPACKE_dgebal, + LAPACKE_dgebal_work, + LAPACKE_dgebrd, + LAPACKE_dgebrd_work, + LAPACKE_dgecon, + LAPACKE_dgecon_work, + LAPACKE_dgeequ, + LAPACKE_dgeequ_work, + LAPACKE_dgeequb, + LAPACKE_dgeequb_work, + LAPACKE_dgees, + LAPACKE_dgees_work, + LAPACKE_dgeesx, + LAPACKE_dgeesx_work, + LAPACKE_dgeev, + LAPACKE_dgeev_work, + LAPACKE_dgeevx, + LAPACKE_dgeevx_work, + LAPACKE_dgehrd, + LAPACKE_dgehrd_work, + LAPACKE_dgejsv, + LAPACKE_dgejsv_work, + LAPACKE_dgelq2, + LAPACKE_dgelq2_work, + LAPACKE_dgelqf, + LAPACKE_dgelqf_work, + LAPACKE_dgels, + LAPACKE_dgels_work, + LAPACKE_dgelsd, + LAPACKE_dgelsd_work, + LAPACKE_dgelss, + LAPACKE_dgelss_work, + LAPACKE_dgelsy, + LAPACKE_dgelsy_work, + LAPACKE_dgemqrt, + LAPACKE_dgemqrt_work, + LAPACKE_dgeqlf, + LAPACKE_dgeqlf_work, + LAPACKE_dgeqp3, + LAPACKE_dgeqp3_work, + LAPACKE_dgeqr2, + LAPACKE_dgeqr2_work, + LAPACKE_dgeqrf, + LAPACKE_dgeqrf_work, + LAPACKE_dgeqrfp, + LAPACKE_dgeqrfp_work, + LAPACKE_dgeqrt, + LAPACKE_dgeqrt2, + LAPACKE_dgeqrt2_work, + LAPACKE_dgeqrt3, + LAPACKE_dgeqrt3_work, + LAPACKE_dgeqrt_work, + LAPACKE_dgerfs, + LAPACKE_dgerfs_work, + LAPACKE_dgerqf, + LAPACKE_dgerqf_work, + LAPACKE_dgesdd, + LAPACKE_dgesdd_work, + LAPACKE_dgesv, + LAPACKE_dgesv_work, + LAPACKE_dgesvd, + LAPACKE_dgesvd_work, + LAPACKE_dgesvj, + LAPACKE_dgesvj_work, + LAPACKE_dgesvx, + LAPACKE_dgesvx_work, + LAPACKE_dgetf2, + LAPACKE_dgetf2_work, + LAPACKE_dgetrf, + LAPACKE_dgetrf_work, + LAPACKE_dgetri, + LAPACKE_dgetri_work, + LAPACKE_dgetrs, + LAPACKE_dgetrs_work, + LAPACKE_dggbak, + LAPACKE_dggbak_work, + LAPACKE_dggbal, + LAPACKE_dggbal_work, + LAPACKE_dgges, + LAPACKE_dgges_work, + LAPACKE_dggesx, + LAPACKE_dggesx_work, + LAPACKE_dggev, + LAPACKE_dggev_work, + LAPACKE_dggevx, + LAPACKE_dggevx_work, + LAPACKE_dggglm, + LAPACKE_dggglm_work, + LAPACKE_dgghrd, + LAPACKE_dgghrd_work, + LAPACKE_dgglse, + LAPACKE_dgglse_work, + LAPACKE_dggqrf, + LAPACKE_dggqrf_work, + LAPACKE_dggrqf, + LAPACKE_dggrqf_work, + LAPACKE_dgtcon, + LAPACKE_dgtcon_work, + LAPACKE_dgtrfs, + LAPACKE_dgtrfs_work, + LAPACKE_dgtsv, + LAPACKE_dgtsv_work, + LAPACKE_dgtsvx, + LAPACKE_dgtsvx_work, + LAPACKE_dgttrf, + LAPACKE_dgttrf_work, + LAPACKE_dgttrs, + LAPACKE_dgttrs_work, + LAPACKE_dhgeqz, + LAPACKE_dhgeqz_work, + LAPACKE_dhsein, + LAPACKE_dhsein_work, + LAPACKE_dhseqr, + LAPACKE_dhseqr_work, + LAPACKE_dlacn2, + LAPACKE_dlacn2_work, + LAPACKE_dlacpy, + LAPACKE_dlacpy_work, + LAPACKE_dlag2s, + LAPACKE_dlag2s_work, + LAPACKE_dlamch, + LAPACKE_dlamch_work, + LAPACKE_dlange, + LAPACKE_dlange_work, + LAPACKE_dlansy, + LAPACKE_dlansy_work, + LAPACKE_dlantr, + LAPACKE_dlantr_work, + LAPACKE_dlapmr, + LAPACKE_dlapmr_work, + LAPACKE_dlapy2, + LAPACKE_dlapy2_work, + LAPACKE_dlapy3, + LAPACKE_dlapy3_work, + LAPACKE_dlarfb, + LAPACKE_dlarfb_work, + LAPACKE_dlarfg, + LAPACKE_dlarfg_work, + LAPACKE_dlarft, + LAPACKE_dlarft_work, + LAPACKE_dlarfx, + LAPACKE_dlarfx_work, + LAPACKE_dlarnv, + LAPACKE_dlarnv_work, + LAPACKE_dlartgp, + LAPACKE_dlartgp_work, + LAPACKE_dlartgs, + LAPACKE_dlartgs_work, + LAPACKE_dlaset, + LAPACKE_dlaset_work, + LAPACKE_dlasrt, + LAPACKE_dlasrt_work, + LAPACKE_dlaswp, + LAPACKE_dlaswp_work, + LAPACKE_dlauum, + LAPACKE_dlauum_work, + LAPACKE_dopgtr, + LAPACKE_dopgtr_work, + LAPACKE_dopmtr, + LAPACKE_dopmtr_work, + LAPACKE_dorbdb, + LAPACKE_dorbdb_work, + LAPACKE_dorcsd, + LAPACKE_dorcsd_work, + LAPACKE_dorgbr, + LAPACKE_dorgbr_work, + LAPACKE_dorghr, + LAPACKE_dorghr_work, + LAPACKE_dorglq, + LAPACKE_dorglq_work, + LAPACKE_dorgql, + LAPACKE_dorgql_work, + LAPACKE_dorgqr, + LAPACKE_dorgqr_work, + LAPACKE_dorgrq, + LAPACKE_dorgrq_work, + LAPACKE_dorgtr, + LAPACKE_dorgtr_work, + LAPACKE_dormbr, + LAPACKE_dormbr_work, + LAPACKE_dormhr, + LAPACKE_dormhr_work, + LAPACKE_dormlq, + LAPACKE_dormlq_work, + LAPACKE_dormql, + LAPACKE_dormql_work, + LAPACKE_dormqr, + LAPACKE_dormqr_work, + LAPACKE_dormrq, + LAPACKE_dormrq_work, + LAPACKE_dormrz, + LAPACKE_dormrz_work, + LAPACKE_dormtr, + LAPACKE_dormtr_work, + LAPACKE_dpbcon, + LAPACKE_dpbcon_work, + LAPACKE_dpbequ, + LAPACKE_dpbequ_work, + LAPACKE_dpbrfs, + LAPACKE_dpbrfs_work, + LAPACKE_dpbstf, + LAPACKE_dpbstf_work, + LAPACKE_dpbsv, + LAPACKE_dpbsv_work, + LAPACKE_dpbsvx, + LAPACKE_dpbsvx_work, + LAPACKE_dpbtrf, + LAPACKE_dpbtrf_work, + LAPACKE_dpbtrs, + LAPACKE_dpbtrs_work, + LAPACKE_dpftrf, + LAPACKE_dpftrf_work, + LAPACKE_dpftri, + LAPACKE_dpftri_work, + LAPACKE_dpftrs, + LAPACKE_dpftrs_work, + LAPACKE_dpocon, + LAPACKE_dpocon_work, + LAPACKE_dpoequ, + LAPACKE_dpoequ_work, + LAPACKE_dpoequb, + LAPACKE_dpoequb_work, + LAPACKE_dporfs, + LAPACKE_dporfs_work, + LAPACKE_dposv, + LAPACKE_dposv_work, + LAPACKE_dposvx, + LAPACKE_dposvx_work, + LAPACKE_dpotrf, + LAPACKE_dpotrf_work, + LAPACKE_dpotri, + LAPACKE_dpotri_work, + LAPACKE_dpotrs, + LAPACKE_dpotrs_work, + LAPACKE_dppcon, + LAPACKE_dppcon_work, + LAPACKE_dppequ, + LAPACKE_dppequ_work, + LAPACKE_dpprfs, + LAPACKE_dpprfs_work, + LAPACKE_dppsv, + LAPACKE_dppsv_work, + LAPACKE_dppsvx, + LAPACKE_dppsvx_work, + LAPACKE_dpptrf, + LAPACKE_dpptrf_work, + LAPACKE_dpptri, + LAPACKE_dpptri_work, + LAPACKE_dpptrs, + LAPACKE_dpptrs_work, + LAPACKE_dpstrf, + LAPACKE_dpstrf_work, + LAPACKE_dptcon, + LAPACKE_dptcon_work, + LAPACKE_dpteqr, + LAPACKE_dpteqr_work, + LAPACKE_dptrfs, + LAPACKE_dptrfs_work, + LAPACKE_dptsv, + LAPACKE_dptsv_work, + LAPACKE_dptsvx, + LAPACKE_dptsvx_work, + LAPACKE_dpttrf, + LAPACKE_dpttrf_work, + LAPACKE_dpttrs, + LAPACKE_dpttrs_work, + LAPACKE_dsbev, + LAPACKE_dsbev_work, + LAPACKE_dsbevd, + LAPACKE_dsbevd_work, + LAPACKE_dsbevx, + LAPACKE_dsbevx_work, + LAPACKE_dsbgst, + LAPACKE_dsbgst_work, + LAPACKE_dsbgv, + LAPACKE_dsbgv_work, + LAPACKE_dsbgvd, + LAPACKE_dsbgvd_work, + LAPACKE_dsbgvx, + LAPACKE_dsbgvx_work, + LAPACKE_dsbtrd, + LAPACKE_dsbtrd_work, + LAPACKE_dsfrk, + LAPACKE_dsfrk_work, + LAPACKE_dsgesv, + LAPACKE_dsgesv_work, + LAPACKE_dspcon, + LAPACKE_dspcon_work, + LAPACKE_dspev, + LAPACKE_dspev_work, + LAPACKE_dspevd, + LAPACKE_dspevd_work, + LAPACKE_dspevx, + LAPACKE_dspevx_work, + LAPACKE_dspgst, + LAPACKE_dspgst_work, + LAPACKE_dspgv, + LAPACKE_dspgv_work, + LAPACKE_dspgvd, + LAPACKE_dspgvd_work, + LAPACKE_dspgvx, + LAPACKE_dspgvx_work, + LAPACKE_dsposv, + LAPACKE_dsposv_work, + LAPACKE_dsprfs, + LAPACKE_dsprfs_work, + LAPACKE_dspsv, + LAPACKE_dspsv_work, + LAPACKE_dspsvx, + LAPACKE_dspsvx_work, + LAPACKE_dsptrd, + LAPACKE_dsptrd_work, + LAPACKE_dsptrf, + LAPACKE_dsptrf_work, + LAPACKE_dsptri, + LAPACKE_dsptri_work, + LAPACKE_dsptrs, + LAPACKE_dsptrs_work, + LAPACKE_dstebz, + LAPACKE_dstebz_work, + LAPACKE_dstedc, + LAPACKE_dstedc_work, + LAPACKE_dstegr, + LAPACKE_dstegr_work, + LAPACKE_dstein, + LAPACKE_dstein_work, + LAPACKE_dstemr, + LAPACKE_dstemr_work, + LAPACKE_dsteqr, + LAPACKE_dsteqr_work, + LAPACKE_dsterf, + LAPACKE_dsterf_work, + LAPACKE_dstev, + LAPACKE_dstev_work, + LAPACKE_dstevd, + LAPACKE_dstevd_work, + LAPACKE_dstevr, + LAPACKE_dstevr_work, + LAPACKE_dstevx, + LAPACKE_dstevx_work, + LAPACKE_dsycon, + LAPACKE_dsycon_work, + LAPACKE_dsyconv, + LAPACKE_dsyconv_work, + LAPACKE_dsyequb, + LAPACKE_dsyequb_work, + LAPACKE_dsyev, + LAPACKE_dsyev_work, + LAPACKE_dsyevd, + LAPACKE_dsyevd_work, + LAPACKE_dsyevr, + LAPACKE_dsyevr_work, + LAPACKE_dsyevx, + LAPACKE_dsyevx_work, + LAPACKE_dsygst, + LAPACKE_dsygst_work, + LAPACKE_dsygv, + LAPACKE_dsygv_work, + LAPACKE_dsygvd, + LAPACKE_dsygvd_work, + LAPACKE_dsygvx, + LAPACKE_dsygvx_work, + LAPACKE_dsyrfs, + LAPACKE_dsyrfs_work, + LAPACKE_dsysv, + LAPACKE_dsysv_rook, + LAPACKE_dsysv_rook_work, + LAPACKE_dsysv_work, + LAPACKE_dsysvx, + LAPACKE_dsysvx_work, + LAPACKE_dsyswapr, + LAPACKE_dsyswapr_work, + LAPACKE_dsytrd, + LAPACKE_dsytrd_work, + LAPACKE_dsytrf, + LAPACKE_dsytrf_work, + LAPACKE_dsytri, + LAPACKE_dsytri2, + LAPACKE_dsytri2_work, + LAPACKE_dsytri2x, + LAPACKE_dsytri2x_work, + LAPACKE_dsytri_work, + LAPACKE_dsytrs, + LAPACKE_dsytrs2, + LAPACKE_dsytrs2_work, + LAPACKE_dsytrs_work, + LAPACKE_dtbcon, + LAPACKE_dtbcon_work, + LAPACKE_dtbrfs, + LAPACKE_dtbrfs_work, + LAPACKE_dtbtrs, + LAPACKE_dtbtrs_work, + LAPACKE_dtfsm, + LAPACKE_dtfsm_work, + LAPACKE_dtftri, + LAPACKE_dtftri_work, + LAPACKE_dtfttp, + LAPACKE_dtfttp_work, + LAPACKE_dtfttr, + LAPACKE_dtfttr_work, + LAPACKE_dtgevc, + LAPACKE_dtgevc_work, + LAPACKE_dtgexc, + LAPACKE_dtgexc_work, + LAPACKE_dtgsen, + LAPACKE_dtgsen_work, + LAPACKE_dtgsja, + LAPACKE_dtgsja_work, + LAPACKE_dtgsna, + LAPACKE_dtgsna_work, + LAPACKE_dtgsyl, + LAPACKE_dtgsyl_work, + LAPACKE_dtpcon, + LAPACKE_dtpcon_work, + LAPACKE_dtpmqrt, + LAPACKE_dtpmqrt_work, + LAPACKE_dtpqrt, + LAPACKE_dtpqrt2, + LAPACKE_dtpqrt2_work, + LAPACKE_dtpqrt_work, + LAPACKE_dtprfb, + LAPACKE_dtprfb_work, + LAPACKE_dtprfs, + LAPACKE_dtprfs_work, + LAPACKE_dtptri, + LAPACKE_dtptri_work, + LAPACKE_dtptrs, + LAPACKE_dtptrs_work, + LAPACKE_dtpttf, + LAPACKE_dtpttf_work, + LAPACKE_dtpttr, + LAPACKE_dtpttr_work, + LAPACKE_dtrcon, + LAPACKE_dtrcon_work, + LAPACKE_dtrevc, + LAPACKE_dtrevc_work, + LAPACKE_dtrexc, + LAPACKE_dtrexc_work, + LAPACKE_dtrrfs, + LAPACKE_dtrrfs_work, + LAPACKE_dtrsen, + LAPACKE_dtrsen_work, + LAPACKE_dtrsna, + LAPACKE_dtrsna_work, + LAPACKE_dtrsyl, + LAPACKE_dtrsyl_work, + LAPACKE_dtrtri, + LAPACKE_dtrtri_work, + LAPACKE_dtrtrs, + LAPACKE_dtrtrs_work, + LAPACKE_dtrttf, + LAPACKE_dtrttf_work, + LAPACKE_dtrttp, + LAPACKE_dtrttp_work, + LAPACKE_dtzrzf, + LAPACKE_dtzrzf_work, + LAPACKE_dlatms, + LAPACKE_dlatms_work, + LAPACKE_dlagge, + LAPACKE_dlagge_work, + LAPACKE_dlagsy, + LAPACKE_dlagsy_work, + LAPACKE_dbdsvdx, + LAPACKE_dbdsvdx_work, + LAPACKE_dgesvdx, + LAPACKE_dgesvdx_work, + LAPACKE_dgetrf2, + LAPACKE_dgetrf2_work, + LAPACKE_dgges3, + LAPACKE_dgges3_work, + LAPACKE_dggev3, + LAPACKE_dggev3_work, + LAPACKE_dgghd3, + LAPACKE_dgghd3_work, + LAPACKE_dggsvd3, + LAPACKE_dggsvd3_work, + LAPACKE_dggsvp3, + LAPACKE_dggsvp3_work, + LAPACKE_dlapmt, + LAPACKE_dlapmt_work, + LAPACKE_dlascl, + LAPACKE_dlascl_work, + LAPACKE_dorcsd2by1, + LAPACKE_dorcsd2by1_work, + LAPACKE_dpotrf2, + LAPACKE_dpotrf2_work, + LAPACKE_dsytrf_rook, + LAPACKE_dsytrf_rook_work, + LAPACKE_dsytrs_rook, + LAPACKE_dsytrs_rook_work, + LAPACKE_dgelq, + LAPACKE_dgelq_work, + LAPACKE_dgemlq, + LAPACKE_dgemlq_work, + LAPACKE_dgemqr, + LAPACKE_dgemqr_work, + LAPACKE_dgeqr, + LAPACKE_dgeqr_work, + LAPACKE_dgetsls, + LAPACKE_dgetsls_work, + LAPACKE_dsbev_2stage, + LAPACKE_dsbev_2stage_work, + LAPACKE_dsbevd_2stage, + LAPACKE_dsbevd_2stage_work, + LAPACKE_dsbevx_2stage, + LAPACKE_dsbevx_2stage_work, + LAPACKE_dsycon_3, + LAPACKE_dsycon_3_work, + LAPACKE_dsyev_2stage, + LAPACKE_dsyev_2stage_work, + LAPACKE_dsyevd_2stage, + LAPACKE_dsyevd_2stage_work, + LAPACKE_dsyevr_2stage, + LAPACKE_dsyevr_2stage_work, + LAPACKE_dsyevx_2stage, + LAPACKE_dsyevx_2stage_work, + LAPACKE_dsygv_2stage, + LAPACKE_dsygv_2stage_work, + LAPACKE_dsysv_aa, + LAPACKE_dsysv_aa_work, + LAPACKE_dsysv_rk, + LAPACKE_dsysv_rk_work, + LAPACKE_dsytrf_aa, + LAPACKE_dsytrf_aa_work, + LAPACKE_dsytrf_rk, + LAPACKE_dsytrf_rk_work, + LAPACKE_dsytri_3, + LAPACKE_dsytri_3_work, + LAPACKE_dsytrs_aa, + LAPACKE_dsytrs_aa_work, + LAPACKE_dsytrs_3, + LAPACKE_dsytrs_3_work, + LAPACKE_dlassq, + LAPACKE_dlassq_work, + LAPACKE_dsysv_aa_2stage, + LAPACKE_dsysv_aa_2stage_work, + LAPACKE_dsytrf_aa_2stage, + LAPACKE_dsytrf_aa_2stage_work, + LAPACKE_dsytrs_aa_2stage, + LAPACKE_dsytrs_aa_2stage_work, + LAPACKE_dgesvdq, + LAPACKE_dgesvdq_work, + LAPACKE_slag2d, + LAPACKE_slag2d_work, + LAPACKE_dgetsqrhrt, + LAPACKE_dgetsqrhrt_work, + LAPACKE_dorgtsqr_row, + LAPACKE_dorgtsqr_row_work + +); +@lapackeobjss = ( + LAPACKE_sgb_nancheck, + LAPACKE_sgb_trans, + LAPACKE_sge_nancheck, + LAPACKE_sge_trans, + LAPACKE_sgg_nancheck, + LAPACKE_sgg_trans, + LAPACKE_sgt_nancheck, + LAPACKE_shs_nancheck, + LAPACKE_shs_trans, + LAPACKE_s_nancheck, + LAPACKE_spb_nancheck, + LAPACKE_spb_trans, + LAPACKE_spf_nancheck, + LAPACKE_spf_trans, + LAPACKE_spo_nancheck, + LAPACKE_spo_trans, + LAPACKE_spp_nancheck, + LAPACKE_spp_trans, + LAPACKE_spt_nancheck, + LAPACKE_ssb_nancheck, + LAPACKE_ssb_trans, + LAPACKE_ssp_nancheck, + LAPACKE_ssp_trans, + LAPACKE_sst_nancheck, + LAPACKE_ssy_nancheck, + LAPACKE_ssy_trans, + LAPACKE_stb_nancheck, + LAPACKE_stb_trans, + LAPACKE_stf_nancheck, + LAPACKE_stf_trans, + LAPACKE_stp_nancheck, + LAPACKE_stp_trans, + LAPACKE_str_nancheck, + LAPACKE_str_trans, + LAPACKE_sbbcsd, + LAPACKE_sbbcsd_work, + LAPACKE_sbdsdc, + LAPACKE_sbdsdc_work, + LAPACKE_sbdsqr, + LAPACKE_sbdsqr_work, + LAPACKE_sdisna, + LAPACKE_sdisna_work, + LAPACKE_sgbbrd, + LAPACKE_sgbbrd_work, + LAPACKE_sgbcon, + LAPACKE_sgbcon_work, + LAPACKE_sgbequ, + LAPACKE_sgbequ_work, + LAPACKE_sgbequb, + LAPACKE_sgbequb_work, + LAPACKE_sgbrfs, + LAPACKE_sgbrfs_work, + LAPACKE_sgbsv, + LAPACKE_sgbsv_work, + LAPACKE_sgbsvx, + LAPACKE_sgbsvx_work, + LAPACKE_sgbtrf, + LAPACKE_sgbtrf_work, + LAPACKE_sgbtrs, + LAPACKE_sgbtrs_work, + LAPACKE_sgebak, + LAPACKE_sgebak_work, + LAPACKE_sgebal, + LAPACKE_sgebal_work, + LAPACKE_sgebrd, + LAPACKE_sgebrd_work, + LAPACKE_sgecon, + LAPACKE_sgecon_work, + LAPACKE_sgeequ, + LAPACKE_sgeequ_work, + LAPACKE_sgeequb, + LAPACKE_sgeequb_work, + LAPACKE_sgees, + LAPACKE_sgees_work, + LAPACKE_sgeesx, + LAPACKE_sgeesx_work, + LAPACKE_sgeev, + LAPACKE_sgeev_work, + LAPACKE_sgeevx, + LAPACKE_sgeevx_work, + LAPACKE_sgehrd, + LAPACKE_sgehrd_work, + LAPACKE_sgejsv, + LAPACKE_sgejsv_work, + LAPACKE_sgelq2, + LAPACKE_sgelq2_work, + LAPACKE_sgelqf, + LAPACKE_sgelqf_work, + LAPACKE_sgels, + LAPACKE_sgels_work, + LAPACKE_sgelsd, + LAPACKE_sgelsd_work, + LAPACKE_sgelss, + LAPACKE_sgelss_work, + LAPACKE_sgelsy, + LAPACKE_sgelsy_work, + LAPACKE_sgemqrt, + LAPACKE_sgemqrt_work, + LAPACKE_sgeqlf, + LAPACKE_sgeqlf_work, + LAPACKE_sgeqp3, + LAPACKE_sgeqp3_work, + LAPACKE_sgeqr2, + LAPACKE_sgeqr2_work, + LAPACKE_sgeqrf, + LAPACKE_sgeqrf_work, + LAPACKE_sgeqrfp, + LAPACKE_sgeqrfp_work, + LAPACKE_sgeqrt, + LAPACKE_sgeqrt2, + LAPACKE_sgeqrt2_work, + LAPACKE_sgeqrt3, + LAPACKE_sgeqrt3_work, + LAPACKE_sgeqrt_work, + LAPACKE_sgerfs, + LAPACKE_sgerfs_work, + LAPACKE_sgerqf, + LAPACKE_sgerqf_work, + LAPACKE_sgesdd, + LAPACKE_sgesdd_work, + LAPACKE_sgesv, + LAPACKE_sgesv_work, + LAPACKE_sgesvd, + LAPACKE_sgesvd_work, + LAPACKE_sgesvj, + LAPACKE_sgesvj_work, + LAPACKE_sgesvx, + LAPACKE_sgesvx_work, + LAPACKE_sgetf2, + LAPACKE_sgetf2_work, + LAPACKE_sgetrf, + LAPACKE_sgetrf_work, + LAPACKE_sgetri, + LAPACKE_sgetri_work, + LAPACKE_sgetrs, + LAPACKE_sgetrs_work, + LAPACKE_sggbak, + LAPACKE_sggbak_work, + LAPACKE_sggbal, + LAPACKE_sggbal_work, + LAPACKE_sgges, + LAPACKE_sgges_work, + LAPACKE_sggesx, + LAPACKE_sggesx_work, + LAPACKE_sggev, + LAPACKE_sggev_work, + LAPACKE_sggevx, + LAPACKE_sggevx_work, + LAPACKE_sggglm, + LAPACKE_sggglm_work, + LAPACKE_sgghrd, + LAPACKE_sgghrd_work, + LAPACKE_sgglse, + LAPACKE_sgglse_work, + LAPACKE_sggqrf, + LAPACKE_sggqrf_work, + LAPACKE_sggrqf, + LAPACKE_sggrqf_work, + LAPACKE_sgtcon, + LAPACKE_sgtcon_work, + LAPACKE_sgtrfs, + LAPACKE_sgtrfs_work, + LAPACKE_sgtsv, + LAPACKE_sgtsv_work, + LAPACKE_sgtsvx, + LAPACKE_sgtsvx_work, + LAPACKE_sgttrf, + LAPACKE_sgttrf_work, + LAPACKE_sgttrs, + LAPACKE_sgttrs_work, + LAPACKE_shgeqz, + LAPACKE_shgeqz_work, + LAPACKE_shsein, + LAPACKE_shsein_work, + LAPACKE_shseqr, + LAPACKE_shseqr_work, + LAPACKE_slacn2, + LAPACKE_slacn2_work, + LAPACKE_slacpy, + LAPACKE_slacpy_work, + LAPACKE_slamch, + LAPACKE_slamch_work, + LAPACKE_slange, + LAPACKE_slange_work, + LAPACKE_slansy, + LAPACKE_slansy_work, + LAPACKE_slantr, + LAPACKE_slantr_work, + LAPACKE_slapmr, + LAPACKE_slapmr_work, + LAPACKE_slapy2, + LAPACKE_slapy2_work, + LAPACKE_slapy3, + LAPACKE_slapy3_work, + LAPACKE_slarfb, + LAPACKE_slarfb_work, + LAPACKE_slarfg, + LAPACKE_slarfg_work, + LAPACKE_slarft, + LAPACKE_slarft_work, + LAPACKE_slarfx, + LAPACKE_slarfx_work, + LAPACKE_slarnv, + LAPACKE_slarnv_work, + LAPACKE_slartgp, + LAPACKE_slartgp_work, + LAPACKE_slartgs, + LAPACKE_slartgs_work, + LAPACKE_slaset, + LAPACKE_slaset_work, + LAPACKE_slasrt, + LAPACKE_slasrt_work, + LAPACKE_slaswp, + LAPACKE_slaswp_work, + LAPACKE_slauum, + LAPACKE_slauum_work, + LAPACKE_sopgtr, + LAPACKE_sopgtr_work, + LAPACKE_sopmtr, + LAPACKE_sopmtr_work, + LAPACKE_sorbdb, + LAPACKE_sorbdb_work, + LAPACKE_sorcsd, + LAPACKE_sorcsd_work, + LAPACKE_sorgbr, + LAPACKE_sorgbr_work, + LAPACKE_sorghr, + LAPACKE_sorghr_work, + LAPACKE_sorglq, + LAPACKE_sorglq_work, + LAPACKE_sorgql, + LAPACKE_sorgql_work, + LAPACKE_sorgqr, + LAPACKE_sorgqr_work, + LAPACKE_sorgrq, + LAPACKE_sorgrq_work, + LAPACKE_sorgtr, + LAPACKE_sorgtr_work, + LAPACKE_sormbr, + LAPACKE_sormbr_work, + LAPACKE_sormhr, + LAPACKE_sormhr_work, + LAPACKE_sormlq, + LAPACKE_sormlq_work, + LAPACKE_sormql, + LAPACKE_sormql_work, + LAPACKE_sormqr, + LAPACKE_sormqr_work, + LAPACKE_sormrq, + LAPACKE_sormrq_work, + LAPACKE_sormrz, + LAPACKE_sormrz_work, + LAPACKE_sormtr, + LAPACKE_sormtr_work, + LAPACKE_spbcon, + LAPACKE_spbcon_work, + LAPACKE_spbequ, + LAPACKE_spbequ_work, + LAPACKE_spbrfs, + LAPACKE_spbrfs_work, + LAPACKE_spbstf, + LAPACKE_spbstf_work, + LAPACKE_spbsv, + LAPACKE_spbsv_work, + LAPACKE_spbsvx, + LAPACKE_spbsvx_work, + LAPACKE_spbtrf, + LAPACKE_spbtrf_work, + LAPACKE_spbtrs, + LAPACKE_spbtrs_work, + LAPACKE_spftrf, + LAPACKE_spftrf_work, + LAPACKE_spftri, + LAPACKE_spftri_work, + LAPACKE_spftrs, + LAPACKE_spftrs_work, + LAPACKE_spocon, + LAPACKE_spocon_work, + LAPACKE_spoequ, + LAPACKE_spoequ_work, + LAPACKE_spoequb, + LAPACKE_spoequb_work, + LAPACKE_sporfs, + LAPACKE_sporfs_work, + LAPACKE_sposv, + LAPACKE_sposv_work, + LAPACKE_sposvx, + LAPACKE_sposvx_work, + LAPACKE_spotrf, + LAPACKE_spotrf_work, + LAPACKE_spotri, + LAPACKE_spotri_work, + LAPACKE_spotrs, + LAPACKE_spotrs_work, + LAPACKE_sppcon, + LAPACKE_sppcon_work, + LAPACKE_sppequ, + LAPACKE_sppequ_work, + LAPACKE_spprfs, + LAPACKE_spprfs_work, + LAPACKE_sppsv, + LAPACKE_sppsv_work, + LAPACKE_sppsvx, + LAPACKE_sppsvx_work, + LAPACKE_spptrf, + LAPACKE_spptrf_work, + LAPACKE_spptri, + LAPACKE_spptri_work, + LAPACKE_spptrs, + LAPACKE_spptrs_work, + LAPACKE_spstrf, + LAPACKE_spstrf_work, + LAPACKE_sptcon, + LAPACKE_sptcon_work, + LAPACKE_spteqr, + LAPACKE_spteqr_work, + LAPACKE_sptrfs, + LAPACKE_sptrfs_work, + LAPACKE_sptsv, + LAPACKE_sptsv_work, + LAPACKE_sptsvx, + LAPACKE_sptsvx_work, + LAPACKE_spttrf, + LAPACKE_spttrf_work, + LAPACKE_spttrs, + LAPACKE_spttrs_work, + LAPACKE_ssbev, + LAPACKE_ssbev_work, + LAPACKE_ssbevd, + LAPACKE_ssbevd_work, + LAPACKE_ssbevx, + LAPACKE_ssbevx_work, + LAPACKE_ssbgst, + LAPACKE_ssbgst_work, + LAPACKE_ssbgv, + LAPACKE_ssbgv_work, + LAPACKE_ssbgvd, + LAPACKE_ssbgvd_work, + LAPACKE_ssbgvx, + LAPACKE_ssbgvx_work, + LAPACKE_ssbtrd, + LAPACKE_ssbtrd_work, + LAPACKE_ssfrk, + LAPACKE_ssfrk_work, + LAPACKE_sspcon, + LAPACKE_sspcon_work, + LAPACKE_sspev, + LAPACKE_sspev_work, + LAPACKE_sspevd, + LAPACKE_sspevd_work, + LAPACKE_sspevx, + LAPACKE_sspevx_work, + LAPACKE_sspgst, + LAPACKE_sspgst_work, + LAPACKE_sspgv, + LAPACKE_sspgv_work, + LAPACKE_sspgvd, + LAPACKE_sspgvd_work, + LAPACKE_sspgvx, + LAPACKE_sspgvx_work, + LAPACKE_ssprfs, + LAPACKE_ssprfs_work, + LAPACKE_sspsv, + LAPACKE_sspsv_work, + LAPACKE_sspsvx, + LAPACKE_sspsvx_work, + LAPACKE_ssptrd, + LAPACKE_ssptrd_work, + LAPACKE_ssptrf, + LAPACKE_ssptrf_work, + LAPACKE_ssptri, + LAPACKE_ssptri_work, + LAPACKE_ssptrs, + LAPACKE_ssptrs_work, + LAPACKE_sstebz, + LAPACKE_sstebz_work, + LAPACKE_sstedc, + LAPACKE_sstedc_work, + LAPACKE_sstegr, + LAPACKE_sstegr_work, + LAPACKE_sstein, + LAPACKE_sstein_work, + LAPACKE_sstemr, + LAPACKE_sstemr_work, + LAPACKE_ssteqr, + LAPACKE_ssteqr_work, + LAPACKE_ssterf, + LAPACKE_ssterf_work, + LAPACKE_sstev, + LAPACKE_sstev_work, + LAPACKE_sstevd, + LAPACKE_sstevd_work, + LAPACKE_sstevr, + LAPACKE_sstevr_work, + LAPACKE_sstevx, + LAPACKE_sstevx_work, + LAPACKE_ssycon, + LAPACKE_ssycon_work, + LAPACKE_ssyconv, + LAPACKE_ssyconv_work, + LAPACKE_ssyequb, + LAPACKE_ssyequb_work, + LAPACKE_ssyev, + LAPACKE_ssyev_work, + LAPACKE_ssyevd, + LAPACKE_ssyevd_work, + LAPACKE_ssyevr, + LAPACKE_ssyevr_work, + LAPACKE_ssyevx, + LAPACKE_ssyevx_work, + LAPACKE_ssygst, + LAPACKE_ssygst_work, + LAPACKE_ssygv, + LAPACKE_ssygv_work, + LAPACKE_ssygvd, + LAPACKE_ssygvd_work, + LAPACKE_ssygvx, + LAPACKE_ssygvx_work, + LAPACKE_ssyrfs, + LAPACKE_ssyrfs_work, + LAPACKE_ssysv, + LAPACKE_ssysv_rook, + LAPACKE_ssysv_rook_work, + LAPACKE_ssysv_work, + LAPACKE_ssysvx, + LAPACKE_ssysvx_work, + LAPACKE_ssyswapr, + LAPACKE_ssyswapr_work, + LAPACKE_ssytrd, + LAPACKE_ssytrd_work, + LAPACKE_ssytrf, + LAPACKE_ssytrf_work, + LAPACKE_ssytri, + LAPACKE_ssytri2, + LAPACKE_ssytri2_work, + LAPACKE_ssytri2x, + LAPACKE_ssytri2x_work, + LAPACKE_ssytri_work, + LAPACKE_ssytrs, + LAPACKE_ssytrs2, + LAPACKE_ssytrs2_work, + LAPACKE_ssytrs_work, + LAPACKE_stbcon, + LAPACKE_stbcon_work, + LAPACKE_stbrfs, + LAPACKE_stbrfs_work, + LAPACKE_stbtrs, + LAPACKE_stbtrs_work, + LAPACKE_stfsm, + LAPACKE_stfsm_work, + LAPACKE_stftri, + LAPACKE_stftri_work, + LAPACKE_stfttp, + LAPACKE_stfttp_work, + LAPACKE_stfttr, + LAPACKE_stfttr_work, + LAPACKE_stgevc, + LAPACKE_stgevc_work, + LAPACKE_stgexc, + LAPACKE_stgexc_work, + LAPACKE_stgsen, + LAPACKE_stgsen_work, + LAPACKE_stgsja, + LAPACKE_stgsja_work, + LAPACKE_stgsna, + LAPACKE_stgsna_work, + LAPACKE_stgsyl, + LAPACKE_stgsyl_work, + LAPACKE_stpcon, + LAPACKE_stpcon_work, + LAPACKE_stpmqrt, + LAPACKE_stpmqrt_work, + LAPACKE_stpqrt2, + LAPACKE_stpqrt2_work, + LAPACKE_stprfb, + LAPACKE_stprfb_work, + LAPACKE_stprfs, + LAPACKE_stprfs_work, + LAPACKE_stptri, + LAPACKE_stptri_work, + LAPACKE_stptrs, + LAPACKE_stptrs_work, + LAPACKE_stpttf, + LAPACKE_stpttf_work, + LAPACKE_stpttr, + LAPACKE_stpttr_work, + LAPACKE_strcon, + LAPACKE_strcon_work, + LAPACKE_strevc, + LAPACKE_strevc_work, + LAPACKE_strexc, + LAPACKE_strexc_work, + LAPACKE_strrfs, + LAPACKE_strrfs_work, + LAPACKE_strsen, + LAPACKE_strsen_work, + LAPACKE_strsna, + LAPACKE_strsna_work, + LAPACKE_strsyl, + LAPACKE_strsyl_work, + LAPACKE_strtri, + LAPACKE_strtri_work, + LAPACKE_strtrs, + LAPACKE_strtrs_work, + LAPACKE_strttf, + LAPACKE_strttf_work, + LAPACKE_strttp, + LAPACKE_strttp_work, + LAPACKE_stzrzf, + LAPACKE_stzrzf_work, + LAPACKE_slatms, + LAPACKE_slatms_work, + LAPACKE_slagge, + LAPACKE_slagge_work, + LAPACKE_slagsy, + LAPACKE_slagsy_work, + LAPACKE_sbdsvdx, + LAPACKE_sbdsvdx_work, + LAPACKE_sgesvdx, + LAPACKE_sgesvdx_work, + LAPACKE_sgetrf2, + LAPACKE_sgetrf2_work, + LAPACKE_sgges3, + LAPACKE_sgges3_work, + LAPACKE_sggev3, + LAPACKE_sggev3_work, + LAPACKE_sgghd3, + LAPACKE_sgghd3_work, + LAPACKE_sggsvd3, + LAPACKE_sggsvd3_work, + LAPACKE_sggsvp3, + LAPACKE_sggsvp3_work, + LAPACKE_slapmt, + LAPACKE_slapmt_work, + LAPACKE_slascl, + LAPACKE_slascl_work, + LAPACKE_sorcsd2by1, + LAPACKE_sorcsd2by1_work, + LAPACKE_spotrf2, + LAPACKE_spotrf2_work, + LAPACKE_ssytrf_rook, + LAPACKE_ssytrf_rook_work, + LAPACKE_ssytrs_rook, + LAPACKE_ssytrs_rook_work, + LAPACKE_stpqrt, + LAPACKE_stpqrt_work, + LAPACKE_sgelq, + LAPACKE_sgelq_work, + LAPACKE_sgemlq, + LAPACKE_sgemlq_work, + LAPACKE_sgemqr, + LAPACKE_sgemqr_work, + LAPACKE_sgeqr, + LAPACKE_sgeqr_work, + LAPACKE_sgetsls, + LAPACKE_sgetsls_work, + LAPACKE_ssbev_2stage, + LAPACKE_ssbev_2stage_work, + LAPACKE_ssbevd_2stage, + LAPACKE_ssbevd_2stage_work, + LAPACKE_ssbevx_2stage, + LAPACKE_ssbevx_2stage_work, + LAPACKE_ssycon_3, + LAPACKE_ssycon_3_work, + LAPACKE_ssyev_2stage, + LAPACKE_ssyev_2stage_work, + LAPACKE_ssyevd_2stage, + LAPACKE_ssyevd_2stage_work, + LAPACKE_ssyevr_2stage, + LAPACKE_ssyevr_2stage_work, + LAPACKE_ssyevx_2stage, + LAPACKE_ssyevx_2stage_work, + LAPACKE_ssygv_2stage, + LAPACKE_ssygv_2stage_work, + LAPACKE_ssysv_aa, + LAPACKE_ssysv_aa_work, + LAPACKE_ssysv_rk, + LAPACKE_ssysv_rk_work, + LAPACKE_ssytrf_aa, + LAPACKE_ssytrf_aa_work, + LAPACKE_ssytrf_rk, + LAPACKE_ssytrf_rk_work, + LAPACKE_ssytri_3, + LAPACKE_ssytri_3_work, + LAPACKE_ssytrs_aa, + LAPACKE_ssytrs_aa_work, + LAPACKE_ssytrs_3, + LAPACKE_ssytrs_3_work, + LAPACKE_slassq, + LAPACKE_slassq_work, + LAPACKE_ssysv_aa_2stage, + LAPACKE_ssysv_aa_2stage_work, + LAPACKE_ssytrf_aa_2stage, + LAPACKE_ssytrf_aa_2stage_work, + LAPACKE_ssytrs_aa_2stage, + LAPACKE_ssytrs_aa_2stage_work, + LAPACKE_sgesvdq, + LAPACKE_sgesvdq_work, + LAPACKE_sgetsqrhrt, + LAPACKE_sgetsqrhrt_work, + LAPACKE_sorgtsqr_row, + LAPACKE_sorgtsqr_row_work + +); +@lapackeobjsz = ( + LAPACKE_zgb_nancheck, + LAPACKE_zgb_trans, + LAPACKE_zge_nancheck, + LAPACKE_zge_trans, + LAPACKE_zgg_nancheck, + LAPACKE_zgg_trans, + LAPACKE_zgt_nancheck, + LAPACKE_zhb_nancheck, + LAPACKE_zhb_trans, + LAPACKE_zhe_nancheck, + LAPACKE_zhe_trans, + LAPACKE_zhp_nancheck, + LAPACKE_zhp_trans, + LAPACKE_zhs_nancheck, + LAPACKE_zhs_trans, + LAPACKE_z_nancheck, + LAPACKE_zpb_nancheck, + LAPACKE_zpb_trans, + LAPACKE_zpf_nancheck, + LAPACKE_zpf_trans, + LAPACKE_zpo_nancheck, + LAPACKE_zpo_trans, + LAPACKE_zpp_nancheck, + LAPACKE_zpp_trans, + LAPACKE_zpt_nancheck, + LAPACKE_zsp_nancheck, + LAPACKE_zsp_trans, + LAPACKE_zst_nancheck, + LAPACKE_zsy_nancheck, + LAPACKE_zsy_trans, + LAPACKE_ztb_nancheck, + LAPACKE_ztb_trans, + LAPACKE_ztf_nancheck, + LAPACKE_ztf_trans, + LAPACKE_ztp_nancheck, + LAPACKE_ztp_trans, + LAPACKE_ztr_nancheck, + LAPACKE_ztr_trans, + LAPACKE_zbbcsd, + LAPACKE_zbbcsd_work, + LAPACKE_zbdsqr, + LAPACKE_zbdsqr_work, + LAPACKE_zcgesv, + LAPACKE_zcgesv_work, + LAPACKE_zcposv, + LAPACKE_zcposv_work, + LAPACKE_zgbbrd, + LAPACKE_zgbbrd_work, + LAPACKE_zgbcon, + LAPACKE_zgbcon_work, + LAPACKE_zgbequ, + LAPACKE_zgbequ_work, + LAPACKE_zgbequb, + LAPACKE_zgbequb_work, + LAPACKE_zgbrfs, + LAPACKE_zgbrfs_work, + LAPACKE_zgbsv, + LAPACKE_zgbsv_work, + LAPACKE_zgbsvx, + LAPACKE_zgbsvx_work, + LAPACKE_zgbtrf, + LAPACKE_zgbtrf_work, + LAPACKE_zgbtrs, + LAPACKE_zgbtrs_work, + LAPACKE_zgebak, + LAPACKE_zgebak_work, + LAPACKE_zgebal, + LAPACKE_zgebal_work, + LAPACKE_zgebrd, + LAPACKE_zgebrd_work, + LAPACKE_zgecon, + LAPACKE_zgecon_work, + LAPACKE_zgeequ, + LAPACKE_zgeequ_work, + LAPACKE_zgeequb, + LAPACKE_zgeequb_work, + LAPACKE_zgees, + LAPACKE_zgees_work, + LAPACKE_zgeesx, + LAPACKE_zgeesx_work, + LAPACKE_zgeev, + LAPACKE_zgeev_work, + LAPACKE_zgeevx, + LAPACKE_zgeevx_work, + LAPACKE_zgehrd, + LAPACKE_zgehrd_work, + LAPACKE_zgelq2, + LAPACKE_zgelq2_work, + LAPACKE_zgelqf, + LAPACKE_zgelqf_work, + LAPACKE_zgels, + LAPACKE_zgels_work, + LAPACKE_zgelsd, + LAPACKE_zgelsd_work, + LAPACKE_zgelss, + LAPACKE_zgelss_work, + LAPACKE_zgelsy, + LAPACKE_zgelsy_work, + LAPACKE_zgemqrt, + LAPACKE_zgemqrt_work, + LAPACKE_zgeqlf, + LAPACKE_zgeqlf_work, + LAPACKE_zgeqp3, + LAPACKE_zgeqp3_work, + LAPACKE_zgeqr2, + LAPACKE_zgeqr2_work, + LAPACKE_zgeqrf, + LAPACKE_zgeqrf_work, + LAPACKE_zgeqrfp, + LAPACKE_zgeqrfp_work, + LAPACKE_zgeqrt, + LAPACKE_zgeqrt2, + LAPACKE_zgeqrt2_work, + LAPACKE_zgeqrt3, + LAPACKE_zgeqrt3_work, + LAPACKE_zgeqrt_work, + LAPACKE_zgerfs, + LAPACKE_zgerfs_work, + LAPACKE_zgerqf, + LAPACKE_zgerqf_work, + LAPACKE_zgesdd, + LAPACKE_zgesdd_work, + LAPACKE_zgesv, + LAPACKE_zgesv_work, + LAPACKE_zgesvd, + LAPACKE_zgesvd_work, + LAPACKE_zgesvx, + LAPACKE_zgesvx_work, + LAPACKE_zgetf2, + LAPACKE_zgetf2_work, + LAPACKE_zgetrf, + LAPACKE_zgetrf_work, + LAPACKE_zgetri, + LAPACKE_zgetri_work, + LAPACKE_zgetrs, + LAPACKE_zgetrs_work, + LAPACKE_zggbak, + LAPACKE_zggbak_work, + LAPACKE_zggbal, + LAPACKE_zggbal_work, + LAPACKE_zgges, + LAPACKE_zgges_work, + LAPACKE_zggesx, + LAPACKE_zggesx_work, + LAPACKE_zggev, + LAPACKE_zggev_work, + LAPACKE_zggevx, + LAPACKE_zggevx_work, + LAPACKE_zggglm, + LAPACKE_zggglm_work, + LAPACKE_zgghrd, + LAPACKE_zgghrd_work, + LAPACKE_zgglse, + LAPACKE_zgglse_work, + LAPACKE_zggqrf, + LAPACKE_zggqrf_work, + LAPACKE_zggrqf, + LAPACKE_zggrqf_work, + LAPACKE_zgtcon, + LAPACKE_zgtcon_work, + LAPACKE_zgtrfs, + LAPACKE_zgtrfs_work, + LAPACKE_zgtsv, + LAPACKE_zgtsv_work, + LAPACKE_zgtsvx, + LAPACKE_zgtsvx_work, + LAPACKE_zgttrf, + LAPACKE_zgttrf_work, + LAPACKE_zgttrs, + LAPACKE_zgttrs_work, + LAPACKE_zhbev, + LAPACKE_zhbev_work, + LAPACKE_zhbevd, + LAPACKE_zhbevd_work, + LAPACKE_zhbevx, + LAPACKE_zhbevx_work, + LAPACKE_zhbgst, + LAPACKE_zhbgst_work, + LAPACKE_zhbgv, + LAPACKE_zhbgv_work, + LAPACKE_zhbgvd, + LAPACKE_zhbgvd_work, + LAPACKE_zhbgvx, + LAPACKE_zhbgvx_work, + LAPACKE_zhbtrd, + LAPACKE_zhbtrd_work, + LAPACKE_zhecon, + LAPACKE_zhecon_work, + LAPACKE_zheequb, + LAPACKE_zheequb_work, + LAPACKE_zheev, + LAPACKE_zheev_work, + LAPACKE_zheevd, + LAPACKE_zheevd_work, + LAPACKE_zheevr, + LAPACKE_zheevr_work, + LAPACKE_zheevx, + LAPACKE_zheevx_work, + LAPACKE_zhegst, + LAPACKE_zhegst_work, + LAPACKE_zhegv, + LAPACKE_zhegv_work, + LAPACKE_zhegvd, + LAPACKE_zhegvd_work, + LAPACKE_zhegvx, + LAPACKE_zhegvx_work, + LAPACKE_zherfs, + LAPACKE_zherfs_work, + LAPACKE_zhesv, + LAPACKE_zhesv_work, + LAPACKE_zhesvx, + LAPACKE_zhesvx_work, + LAPACKE_zheswapr, + LAPACKE_zheswapr_work, + LAPACKE_zhetrd, + LAPACKE_zhetrd_work, + LAPACKE_zhetrf, + LAPACKE_zhetrf_work, + LAPACKE_zhetri, + LAPACKE_zhetri2, + LAPACKE_zhetri2_work, + LAPACKE_zhetri2x, + LAPACKE_zhetri2x_work, + LAPACKE_zhetri_work, + LAPACKE_zhetrs, + LAPACKE_zhetrs2, + LAPACKE_zhetrs2_work, + LAPACKE_zhetrs_work, + LAPACKE_zhfrk, + LAPACKE_zhfrk_work, + LAPACKE_zhgeqz, + LAPACKE_zhgeqz_work, + LAPACKE_zhpcon, + LAPACKE_zhpcon_work, + LAPACKE_zhpev, + LAPACKE_zhpev_work, + LAPACKE_zhpevd, + LAPACKE_zhpevd_work, + LAPACKE_zhpevx, + LAPACKE_zhpevx_work, + LAPACKE_zhpgst, + LAPACKE_zhpgst_work, + LAPACKE_zhpgv, + LAPACKE_zhpgv_work, + LAPACKE_zhpgvd, + LAPACKE_zhpgvd_work, + LAPACKE_zhpgvx, + LAPACKE_zhpgvx_work, + LAPACKE_zhprfs, + LAPACKE_zhprfs_work, + LAPACKE_zhpsv, + LAPACKE_zhpsv_work, + LAPACKE_zhpsvx, + LAPACKE_zhpsvx_work, + LAPACKE_zhptrd, + LAPACKE_zhptrd_work, + LAPACKE_zhptrf, + LAPACKE_zhptrf_work, + LAPACKE_zhptri, + LAPACKE_zhptri_work, + LAPACKE_zhptrs, + LAPACKE_zhptrs_work, + LAPACKE_zhsein, + LAPACKE_zhsein_work, + LAPACKE_zhseqr, + LAPACKE_zhseqr_work, + LAPACKE_zlacgv, + LAPACKE_zlacgv_work, + LAPACKE_zlacn2, + LAPACKE_zlacn2_work, + LAPACKE_zlacp2, + LAPACKE_zlacp2_work, + LAPACKE_zlacpy, + LAPACKE_zlacpy_work, + LAPACKE_zlag2c, + LAPACKE_zlag2c_work, + LAPACKE_zlange, + LAPACKE_zlange_work, + LAPACKE_zlanhe, + LAPACKE_zlanhe_work, + LAPACKE_zlansy, + LAPACKE_zlansy_work, + LAPACKE_zlantr, + LAPACKE_zlantr_work, + LAPACKE_zlapmr, + LAPACKE_zlapmr_work, + LAPACKE_zlarfb, + LAPACKE_zlarfb_work, + LAPACKE_zlarfg, + LAPACKE_zlarfg_work, + LAPACKE_zlarft, + LAPACKE_zlarft_work, + LAPACKE_zlarfx, + LAPACKE_zlarfx_work, + LAPACKE_zlarnv, + LAPACKE_zlarnv_work, + LAPACKE_zlaset, + LAPACKE_zlaset_work, + LAPACKE_zlaswp, + LAPACKE_zlaswp_work, + LAPACKE_zlauum, + LAPACKE_zlauum_work, + LAPACKE_zpbcon, + LAPACKE_zpbcon_work, + LAPACKE_zpbequ, + LAPACKE_zpbequ_work, + LAPACKE_zpbrfs, + LAPACKE_zpbrfs_work, + LAPACKE_zpbstf, + LAPACKE_zpbstf_work, + LAPACKE_zpbsv, + LAPACKE_zpbsv_work, + LAPACKE_zpbsvx, + LAPACKE_zpbsvx_work, + LAPACKE_zpbtrf, + LAPACKE_zpbtrf_work, + LAPACKE_zpbtrs, + LAPACKE_zpbtrs_work, + LAPACKE_zpftrf, + LAPACKE_zpftrf_work, + LAPACKE_zpftri, + LAPACKE_zpftri_work, + LAPACKE_zpftrs, + LAPACKE_zpftrs_work, + LAPACKE_zpocon, + LAPACKE_zpocon_work, + LAPACKE_zpoequ, + LAPACKE_zpoequ_work, + LAPACKE_zpoequb, + LAPACKE_zpoequb_work, + LAPACKE_zporfs, + LAPACKE_zporfs_work, + LAPACKE_zposv, + LAPACKE_zposv_work, + LAPACKE_zposvx, + LAPACKE_zposvx_work, + LAPACKE_zpotrf, + LAPACKE_zpotrf_work, + LAPACKE_zpotri, + LAPACKE_zpotri_work, + LAPACKE_zpotrs, + LAPACKE_zpotrs_work, + LAPACKE_zppcon, + LAPACKE_zppcon_work, + LAPACKE_zppequ, + LAPACKE_zppequ_work, + LAPACKE_zpprfs, + LAPACKE_zpprfs_work, + LAPACKE_zppsv, + LAPACKE_zppsv_work, + LAPACKE_zppsvx, + LAPACKE_zppsvx_work, + LAPACKE_zpptrf, + LAPACKE_zpptrf_work, + LAPACKE_zpptri, + LAPACKE_zpptri_work, + LAPACKE_zpptrs, + LAPACKE_zpptrs_work, + LAPACKE_zpstrf, + LAPACKE_zpstrf_work, + LAPACKE_zptcon, + LAPACKE_zptcon_work, + LAPACKE_zpteqr, + LAPACKE_zpteqr_work, + LAPACKE_zptrfs, + LAPACKE_zptrfs_work, + LAPACKE_zptsv, + LAPACKE_zptsv_work, + LAPACKE_zptsvx, + LAPACKE_zptsvx_work, + LAPACKE_zpttrf, + LAPACKE_zpttrf_work, + LAPACKE_zpttrs, + LAPACKE_zpttrs_work, + LAPACKE_zspcon, + LAPACKE_zspcon_work, + LAPACKE_zsprfs, + LAPACKE_zsprfs_work, + LAPACKE_zspsv, + LAPACKE_zspsv_work, + LAPACKE_zspsvx, + LAPACKE_zspsvx_work, + LAPACKE_zsptrf, + LAPACKE_zsptrf_work, + LAPACKE_zsptri, + LAPACKE_zsptri_work, + LAPACKE_zsptrs, + LAPACKE_zsptrs_work, + LAPACKE_zstedc, + LAPACKE_zstedc_work, + LAPACKE_zstegr, + LAPACKE_zstegr_work, + LAPACKE_zstein, + LAPACKE_zstein_work, + LAPACKE_zstemr, + LAPACKE_zstemr_work, + LAPACKE_zsteqr, + LAPACKE_zsteqr_work, + LAPACKE_zsycon, + LAPACKE_zsycon_work, + LAPACKE_zsyconv, + LAPACKE_zsyconv_work, + LAPACKE_zsyequb, + LAPACKE_zsyequb_work, + LAPACKE_zsyrfs, + LAPACKE_zsyrfs_work, + LAPACKE_zsysv, + LAPACKE_zsysv_rook, + LAPACKE_zsysv_rook_work, + LAPACKE_zsysv_work, + LAPACKE_zsysvx, + LAPACKE_zsysvx_work, + LAPACKE_zsyswapr, + LAPACKE_zsyswapr_work, + LAPACKE_zsytrf, + LAPACKE_zsytrf_work, + LAPACKE_zsytri, + LAPACKE_zsytri2, + LAPACKE_zsytri2_work, + LAPACKE_zsytri2x, + LAPACKE_zsytri2x_work, + LAPACKE_zsytri_work, + LAPACKE_zsytrs, + LAPACKE_zsytrs2, + LAPACKE_zsytrs2_work, + LAPACKE_zsytrs_work, + LAPACKE_ztbcon, + LAPACKE_ztbcon_work, + LAPACKE_ztbrfs, + LAPACKE_ztbrfs_work, + LAPACKE_ztbtrs, + LAPACKE_ztbtrs_work, + LAPACKE_ztfsm, + LAPACKE_ztfsm_work, + LAPACKE_ztftri, + LAPACKE_ztftri_work, + LAPACKE_ztfttp, + LAPACKE_ztfttp_work, + LAPACKE_ztfttr, + LAPACKE_ztfttr_work, + LAPACKE_ztgevc, + LAPACKE_ztgevc_work, + LAPACKE_ztgexc, + LAPACKE_ztgexc_work, + LAPACKE_ztgsen, + LAPACKE_ztgsen_work, + LAPACKE_ztgsja, + LAPACKE_ztgsja_work, + LAPACKE_ztgsna, + LAPACKE_ztgsna_work, + LAPACKE_ztgsyl, + LAPACKE_ztgsyl_work, + LAPACKE_ztpcon, + LAPACKE_ztpcon_work, + LAPACKE_ztpmqrt, + LAPACKE_ztpmqrt_work, + LAPACKE_ztpqrt, + LAPACKE_ztpqrt2, + LAPACKE_ztpqrt2_work, + LAPACKE_ztpqrt_work, + LAPACKE_ztprfb, + LAPACKE_ztprfb_work, + LAPACKE_ztprfs, + LAPACKE_ztprfs_work, + LAPACKE_ztptri, + LAPACKE_ztptri_work, + LAPACKE_ztptrs, + LAPACKE_ztptrs_work, + LAPACKE_ztpttf, + LAPACKE_ztpttf_work, + LAPACKE_ztpttr, + LAPACKE_ztpttr_work, + LAPACKE_ztrcon, + LAPACKE_ztrcon_work, + LAPACKE_ztrevc, + LAPACKE_ztrevc_work, + LAPACKE_ztrexc, + LAPACKE_ztrexc_work, + LAPACKE_ztrrfs, + LAPACKE_ztrrfs_work, + LAPACKE_ztrsen, + LAPACKE_ztrsen_work, + LAPACKE_ztrsna, + LAPACKE_ztrsna_work, + LAPACKE_ztrsyl, + LAPACKE_ztrsyl_work, + LAPACKE_ztrtri, + LAPACKE_ztrtri_work, + LAPACKE_ztrtrs, + LAPACKE_ztrtrs_work, + LAPACKE_ztrttf, + LAPACKE_ztrttf_work, + LAPACKE_ztrttp, + LAPACKE_ztrttp_work, + LAPACKE_ztzrzf, + LAPACKE_ztzrzf_work, + LAPACKE_zunbdb, + LAPACKE_zunbdb_work, + LAPACKE_zuncsd, + LAPACKE_zuncsd_work, + LAPACKE_zungbr, + LAPACKE_zungbr_work, + LAPACKE_zunghr, + LAPACKE_zunghr_work, + LAPACKE_zunglq, + LAPACKE_zunglq_work, + LAPACKE_zungql, + LAPACKE_zungql_work, + LAPACKE_zungqr, + LAPACKE_zungqr_work, + LAPACKE_zungrq, + LAPACKE_zungrq_work, + LAPACKE_zungtr, + LAPACKE_zungtr_work, + LAPACKE_zunmbr, + LAPACKE_zunmbr_work, + LAPACKE_zunmhr, + LAPACKE_zunmhr_work, + LAPACKE_zunmlq, + LAPACKE_zunmlq_work, + LAPACKE_zunmql, + LAPACKE_zunmql_work, + LAPACKE_zunmqr, + LAPACKE_zunmqr_work, + LAPACKE_zunmrq, + LAPACKE_zunmrq_work, + LAPACKE_zunmrz, + LAPACKE_zunmrz_work, + LAPACKE_zunmtr, + LAPACKE_zunmtr_work, + LAPACKE_zupgtr, + LAPACKE_zupgtr_work, + LAPACKE_zupmtr, + LAPACKE_zupmtr_work, + LAPACKE_zsyr, + LAPACKE_zsyr_work, + LAPACKE_zgetsqrhrt, + LAPACKE_zgetsqrhrt_work, + LAPACKE_zungtsqr_row, + LAPACKE_zungtsqr_row_work + + ## @(SRCX_OBJ) from `lapack-3.4.1/lapacke/src/Makefile` + ## Not exported: requires LAPACKE_EXTENDED to be set and depends on the + ## corresponding LAPACK extended precision routines. + #LAPACKE_cgbrfsx, + #LAPACKE_cporfsx, + #LAPACKE_dgerfsx, + #LAPACKE_sgbrfsx, + #LAPACKE_ssyrfsx, + #LAPACKE_zherfsx, + #LAPACKE_cgbrfsx_work, + #LAPACKE_cporfsx_work, + #LAPACKE_dgerfsx_work, + #LAPACKE_sgbrfsx_work, + #LAPACKE_ssyrfsx_work, + #LAPACKE_zherfsx_work, + #LAPACKE_cgerfsx, + #LAPACKE_csyrfsx, + #LAPACKE_dporfsx, + #LAPACKE_sgerfsx, + #LAPACKE_zgbrfsx, + #LAPACKE_zporfsx, + #LAPACKE_cgerfsx_work, + #LAPACKE_csyrfsx_work, + #LAPACKE_dporfsx_work, + #LAPACKE_sgerfsx_work, + #LAPACKE_zgbrfsx_work, + #LAPACKE_zporfsx_work, + #LAPACKE_cherfsx, + #LAPACKE_dgbrfsx, + #LAPACKE_dsyrfsx, + #LAPACKE_sporfsx, + #LAPACKE_zgerfsx, + #LAPACKE_zsyrfsx, + #LAPACKE_cherfsx_work, + #LAPACKE_dgbrfsx_work, + #LAPACKE_dsyrfsx_work, + #LAPACKE_sporfsx_work, + #LAPACKE_zgerfsx_work, + #LAPACKE_zsyrfsx_work, + #LAPACKE_cgbsvxx, + #LAPACKE_cposvxx, + #LAPACKE_dgesvxx, + #LAPACKE_sgbsvxx, + #LAPACKE_ssysvxx, + #LAPACKE_zhesvxx, + #LAPACKE_cgbsvxx_work, + #LAPACKE_cposvxx_work, + #LAPACKE_dgesvxx_work, + #LAPACKE_sgbsvxx_work, + #LAPACKE_ssysvxx_work, + #LAPACKE_zhesvxx_work, + #LAPACKE_cgesvxx, + #LAPACKE_csysvxx, + #LAPACKE_dposvxx, + #LAPACKE_sgesvxx, + #LAPACKE_zgbsvxx, + #LAPACKE_zposvxx, + #LAPACKE_cgesvxx_work, + #LAPACKE_csysvxx_work, + #LAPACKE_dposvxx_work, + #LAPACKE_sgesvxx_work, + #LAPACKE_zgbsvxx_work, + #LAPACKE_zposvxx_work, + #LAPACKE_chesvxx, + #LAPACKE_dgbsvxx, + #LAPACKE_dsysvxx, + #LAPACKE_sposvxx, + #LAPACKE_zgesvxx, + #LAPACKE_zsysvxx, + #LAPACKE_chesvxx_work, + #LAPACKE_dgbsvxx_work, + #LAPACKE_dsysvxx_work, + #LAPACKE_sposvxx_work, + #LAPACKE_zgesvxx_work, + #LAPACKE_zsysvxx_work, + + ## @(MATGEN_OBJ) from `lapack-3.4.1/lapacke/src/Makefile` + ## Not exported: requires LAPACKE_TESTING to be set and depends on libtmg + ## (see `lapack-3.4.1/TESTING/MATGEN`). + LAPACKE_zlatms, + LAPACKE_zlatms_work, + LAPACKE_zlagge, + LAPACKE_zlagge_work, + LAPACKE_zlaghe, + LAPACKE_zlaghe_work, + LAPACKE_zlagsy, + LAPACKE_zlagsy_work, + ## new function from lapack-3.6.0 + LAPACKE_zgejsv, + LAPACKE_zgejsv_work, + LAPACKE_zgesvdx, + LAPACKE_zgesvdx_work, + LAPACKE_zgesvj, + LAPACKE_zgesvj_work, + LAPACKE_zgetrf2, + LAPACKE_zgetrf2_work, + LAPACKE_zgges3, + LAPACKE_zgges3_work, + LAPACKE_zggev3, + LAPACKE_zggev3_work, + LAPACKE_zgghd3, + LAPACKE_zgghd3_work, + LAPACKE_zggsvd3, + LAPACKE_zggsvd3_work, + LAPACKE_zggsvp3, + LAPACKE_zggsvp3_work, + LAPACKE_zhetrf_rook, + LAPACKE_zhetrf_rook_work, + LAPACKE_zhetrs_rook, + LAPACKE_zhetrs_rook_work, + LAPACKE_zlapmt, + LAPACKE_zlapmt_work, + LAPACKE_zlascl, + LAPACKE_zlascl_work, + LAPACKE_zpotrf2, + LAPACKE_zpotrf2_work, + LAPACKE_zsytrf_rook, + LAPACKE_zsytrf_rook_work, + LAPACKE_zsytrs_rook, + LAPACKE_zsytrs_rook_work, + LAPACKE_zuncsd2by1, + LAPACKE_zuncsd2by1_work, + + ## new function from lapack-3.7.0 + LAPACKE_zgelq, + LAPACKE_zgelq_work, + LAPACKE_zgemlq, + LAPACKE_zgemlq_work, + LAPACKE_zgemqr, + LAPACKE_zgemqr_work, + LAPACKE_zgeqr, + LAPACKE_zgeqr_work, + LAPACKE_zgetsls, + LAPACKE_zgetsls_work, + LAPACKE_zhbev_2stage, + LAPACKE_zhbev_2stage_work, + LAPACKE_zhbevd_2stage, + LAPACKE_zhbevd_2stage_work, + LAPACKE_zhbevx_2stage, + LAPACKE_zhbevx_2stage_work, + LAPACKE_zhecon_3, + LAPACKE_zhecon_3_work, + LAPACKE_zheev_2stage, + LAPACKE_zheev_2stage_work, + LAPACKE_zheevd_2stage, + LAPACKE_zheevd_2stage_work, + LAPACKE_zheevr_2stage, + LAPACKE_zheevr_2stage_work, + LAPACKE_zheevx_2stage, + LAPACKE_zheevx_2stage_work, + LAPACKE_zhegv_2stage, + LAPACKE_zhegv_2stage_work, + LAPACKE_zhesv_aa, + LAPACKE_zhesv_aa_work, + LAPACKE_zhesv_rk, + LAPACKE_zhesv_rk_work, + LAPACKE_zhetrf_aa, + LAPACKE_zhetrf_aa_work, + LAPACKE_zhetrf_rk, + LAPACKE_zhetrf_rk_work, + LAPACKE_zhetri_3, + LAPACKE_zhetri_3_work, + LAPACKE_zhetrs_aa, + LAPACKE_zhetrs_aa_work, + LAPACKE_zhetrs_3, + LAPACKE_zhetrs_3_work, + LAPACKE_zsycon_3, + LAPACKE_zsycon_3_work, + LAPACKE_zsysv_aa, + LAPACKE_zsysv_aa_work, + LAPACKE_zsysv_rk, + LAPACKE_zsysv_rk_work, + LAPACKE_zsytrf_aa, + LAPACKE_zsytrf_aa_work, + LAPACKE_zsytrf_rk, + LAPACKE_zsytrf_rk_work, + LAPACKE_zsytri_3, + LAPACKE_zsytri_3_work, + LAPACKE_zsytrs_aa, + LAPACKE_zsytrs_aa_work, + LAPACKE_zsytrs_3, + LAPACKE_zsytrs_3_work, + + ## new function from lapack-3.8.0 + LAPACKE_zhesv_aa_2stage, + LAPACKE_zhesv_aa_2stage_work, + LAPACKE_zhetrf_aa_2stage, + LAPACKE_zhetrf_aa_2stage_work, + LAPACKE_zhetrs_aa_2stage, + LAPACKE_zhetrs_aa_2stage_work, + LAPACKE_zlacrm, + LAPACKE_zlacrm_work, + LAPACKE_zlarcm, + LAPACKE_zlarcm_work, + LAPACKE_zlassq, + LAPACKE_zlassq_work, + LAPACKE_zsysv_aa_2stage, + LAPACKE_zsysv_aa_2stage_work, + LAPACKE_zsytrf_aa_2stage, + LAPACKE_zsytrf_aa_2stage_work, + LAPACKE_zsytrs_aa_2stage, + LAPACKE_zsytrs_aa_2stage_work, + # new functions from 3.9.0 + LAPACKE_zgesvdq, + LAPACKE_zgesvdq_work +); + +#These function may need 2 underscores. +@lapack_embeded_underscore_objs=( + xerbla_array, chla_transtype, + ); +@lapack_embeded_underscore_objs_s=( + slasyf_rook, + ssytf2_rook, ssytrf_rook, ssytrs_rook, + ssytri_rook, ssycon_rook, ssysv_rook, + slasyf_rk, ssyconvf_rook, ssytf2_rk, + ssytrf_rk, ssytrs_3, ssytri_3, + ssytri_3x, ssycon_3, ssysv_rk, + slasyf_aa, ssysv_aa, ssytrf_aa, + ssytrs_aa, ssytrd_2stage, ssytrd_sy2sb, + ssytrd_sb2st, ssb2st_kernels, ssyevd_2stage, + ssyev_2stage, ssyevx_2stage, ssyevr_2stage, + ssbev_2stage, ssbevx_2stage, ssbevd_2stage, + ssygv_2stage, + ssysv_aa_2stage, ssytrf_aa_2stage, + ssytrs_aa_2stage, + slaorhr_col_getrfnp, slaorhr_col_getrfnp2, sorhr_col, +); +@lapack_embeded_underscore_objs_c=( + 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, + chetf2_rk, + chetrf_rk, chetri_3, chetri_3x, + chetrs_3, checon_3, chesv_rk, + chesv_aa, chetrf_aa, chetrs_aa, + clahef_aa, clahef_rk, clasyf_rk, + clasyf_aa, csytf2_rk, csytrf_rk, + csytrf_aa, csytrs_3, csytrs_aa, + csytri_3, csytri_3x, csycon_3, + csysv_rk, csysv_aa, csyconvf_rook, + chetrd_2stage, chetrd_he2hb, chetrd_hb2st, + chb2st_kernels, cheevd_2stage, cheev_2stage, + cheevx_2stage, cheevr_2stage, chbev_2stage, + chbevx_2stage, chbevd_2stage, chegv_2stage, + chesv_aa_2stage, + chetrf_aa_2stage, chetrs_aa_2stage, + csysv_aa_2stage, csytrf_aa_2stage, + csytrs_aa_2stage, + claunhr_col_getrfnp, claunhr_col_getrfnp2, cunhr_col, +); +@lapack_embeded_underscore_objs_d=( + dlasyf_rook, + dsytf2_rook, dsytrf_rook, dsytrs_rook, + dsytri_rook, dsycon_rook, dsysv_rook, + dlasyf_rk, dsyconvf_rook, + dsytf2_rk, dsytrf_rk, dsytrs_3, + dsytri_3, dsytri_3x, dsycon_3, + dsysv_rk, dlasyf_aa, dsysv_aa, + dsytrf_aa, dsytrs_aa, dsytrd_2stage, + dsytrd_sy2sb, dsytrd_sb2st, dsb2st_kernels, + dsyevd_2stage, dsyev_2stage, dsyevx_2stage, + dsyevr_2stage, dsbev_2stage, dsbevx_2stage, + dsbevd_2stage, dsygv_2stage, + dsysv_aa_2stage, + dsytrf_aa_2stage, dsytrs_aa_2stage, + dlaorhr_col_getrfnp, dlaorhr_col_getrfnp2, dorhr_col, +); +@lapack_embeded_underscore_objs_z=( + 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, + zhetf2_rk, zhetrf_rk, zhetri_3, + zhetri_3x, zhetrs_3, zhecon_3, + zhesv_rk, zhesv_aa, zhetrf_aa, + zhetrs_aa, zlahef_aa, zlahef_rk, + zlasyf_rk, zlasyf_aa, zsyconvf_rook, + zsytrs_aa, zsytf2_rk, zsytrf_rk, + zsytrf_aa, zsytrs_3, zsytri_3, + zsytri_3x, zsycon_3, zsysv_rk, + zsysv_aa, zhetrd_2stage, zhetrd_he2hb, + zhetrd_hb2st, zhb2st_kernels, zheevd_2stage, + zheev_2stage, zheevx_2stage, zheevr_2stage, + zhbev_2stage, zhbevx_2stage, zhbevd_2stage, + zhegv_2stage, + zhesv_aa_2stage, zhetrf_aa_2stage, + zhetrs_aa_2stage, zsysv_aa_2stage, + zsytrf_aa_2stage, zsytrs_aa_2stage, + zlaunhr_col_getrfnp, zlaunhr_col_getrfnp2, zunhr_col +); + + +use File::Spec; +use File::Basename; +my $dirname = File::Spec->catfile(dirname(dirname(File::Spec->rel2abs(__FILE__))), "lapack-netlib"); + +if ($ARGV[12] == 1) { + @blasobjs = (@blasobjs, @bfblasobjs); + @cblasobjs = (@cblasobjs, @bfcblasobjs); +} +if ($ARGV[13] == 1) { + @blasobjs = (@blasobjs, @blasobjss); + @cblasobjs = (@cblasobjs, @cblasobjss); + @lapackobjs = (@lapackobjs, @lapackobjss); + @lapackobjs2 = (@lapackobjs2, @lapackobjs2s); + @lapackobjs2 = (@lapackobjs2, @lapackobjs2sc); + @lapackobjs2 = (@lapackobjs2, @lapackobjs2ds); + @lapack_deprecated_objs = (@lapack_deprecated_objs, @lapack_deprecated_objss); + @lapacke_deprecated_objs = (@lapacke_deprecated_objs, @lapacke_deprecated_objss); + @lapack_embeded_underscore_objs = (@lapack_embeded_underscore_objs, @lapack_embeded_underscore_objs_s); + @lapackeobjs = (@lapackeobjs, @lapackeobjss); +} +if ($ARGV[14] == 1) { + @blasobjs = (@blasobjs, @blasobjsd); + @cblasobjs = (@cblasobjs, @cblasobjsd); + @lapackobjs = (@lapackobjs, @lapackobjsd); + if ($ARGV[13] == 0) { + @lapackobjs2 = (@lapackobjs2, @lapackobjs2ds); + } + @lapackobjs2 = (@lapackobjs2, @lapackobjs2d, @lapackobjs2dz); + @lapack_deprecated_objs = (@lapack_deprecated_objs, @lapack_deprecated_objsd); + @lapacke_deprecated_objs = (@lapacke_deprecated_objs, @lapacke_deprecated_objsd); + @lapack_embeded_underscore_objs = (@lapack_embeded_underscore_objs, @lapack_embeded_underscore_objs_d); + @lapackeobjs = (@lapackeobjs, @lapackeobjsd); +} +if ($ARGV[15] == 1) { + @blasobjs = (@blasobjs, @blasobjsc); + @cblasobjs = (@cblasobjs, @cblasobjsc); + @gemm3mobjs = (@gemm3mobjs, @gemm3mobjsc); + @cblasgemm3mobjs = (@cblasgemm3mobjs, @cblasgemm3mobjsc); + @lapackobjs = (@lapackobjs, @lapackobjsc); + @lapackobjs2 = (@lapackobjs2, @lapackobjs2c, @lapackobjs2zc); + if ($ARGV[13] == 0) { + @lapackobjs2 = (@lapackobjs2, @lapackobjs2sc); + } + @lapack_deprecated_objs = (@lapack_deprecated_objs, @lapack_deprecated_objsc); + @lapacke_deprecated_objs = (@lapacke_deprecated_objs, @lapacke_deprecated_objsc); + @lapack_embeded_underscore_objs = (@lapack_embeded_underscore_objs, @lapack_embeded_underscore_objs_c); + @lapackeobjs = (@lapackeobjs, @lapackeobjsc); +} +if ($ARGV[16] == 1) { + @blasobjs = (@blasobjs, @blasobjsz); + @cblasobjs = (@cblasobjs, @cblasobjsz); + @gemm3mobjs = (@gemm3mobjs, @gemm3mobjsz); + @cblasgemm3mobjs = (@cblasgemm3mobjs, @cblasgemm3mobjsz); + @lapackobjs = (@lapackobjs, @lapackobjsz); + @lapackobjs2 = (@lapackobjs2, @lapackobjs2z); + if ($ARGV[15] == 0) { + @lapackobjs2 = (@lapackobjs2, @lapackobjs2zc); + } + if ($ARGV[14] == 0) { + @lapackobjs2 = (@lapackobjs2, @lapackobjs2dz); + } + @lapack_deprecated_objs = (@lapack_deprecated_objs, @lapack_deprecated_objsz); + @lapacke_deprecated_objs = (@lapacke_deprecated_objs, @lapacke_deprecated_objsz); + @lapack_embeded_underscore_objs = (@lapack_embeded_underscore_objs, @lapack_embeded_underscore_objs_z); + @lapackeobjs = (@lapackeobjs, @lapackeobjsz); +} +if ($ARGV[8] == 1) { + #ONLY_CBLAS=1 + @underscore_objs = (@misc_underscore_objs); +} elsif ($ARGV[5] == 1) { + #NO_LAPACK=1 + @underscore_objs = (@blasobjs, @misc_underscore_objs); +} elsif (-d $dirname) { + if ($ARGV[7] == 0) { + # NEED2UNDERSCORES=0 + # Don't need 2 underscores + @underscore_objs = (@blasobjs, @lapackobjs, @lapackobjs2, @misc_underscore_objs, @lapack_embeded_underscore_objs); + } else { + # Need 2 underscores + @underscore_objs = (@blasobjs, @lapackobjs, @lapackobjs2, @misc_underscore_objs); + @need_2underscore_objs = (@lapack_embeded_underscore_objs); + }; + + if ($ARGV[11] == 1) { + #BUILD_LAPACK_DEPRECATED=1 + @underscore_objs = (@underscore_objs, @lapack_deprecated_objs); + } +} else { + @underscore_objs = (@blasobjs, @lapackobjs, @misc_underscore_objs); +} + +if ($ARGV[8] == 1) { + #ONLY_CBLAS=1 + @gemm3mobjs=(); + @exblasobjs=(); +} + +if ($ARGV[3] == 1) { + @underscore_objs = (@underscore_objs, @exblasobjs); +}; + +if ($ARGV[1] eq "x86_64") { @underscore_objs = (@underscore_objs, @gemm3mobjs); }; +if ($ARGV[1] eq "x86") { @underscore_objs = (@underscore_objs, @gemm3mobjs); }; +if ($ARGV[1] eq "ia64") { @underscore_objs = (@underscore_objs, @gemm3mobjs); }; +if ($ARGV[1] eq "MIPS") { @underscore_objs = (@underscore_objs, @gemm3mobjs); }; + +if ($ARGV[4] == 0) { + @no_underscore_objs = (@cblasobjs, @misc_no_underscore_objs); + if ($ARGV[1] eq "x86_64") { @no_underscore_objs = (@no_underscore_objs, @cblasgemm3mobjs); }; + if ($ARGV[1] eq "x86") { @no_underscore_objs = (@no_underscore_objs, @cblasgemm3mobjs); }; + if ($ARGV[1] eq "ia64") { @no_underscore_objs = (@no_underscore_objs, @cblasgemm3mobjs); }; + if ($ARGV[1] eq "MIPS") { @no_underscore_objs = (@no_underscore_objs, @cblasgemm3mobjs); }; +}else{ + #NO_CBLAS=1 + @no_underscore_objs = (@misc_no_underscore_objs); +} +if ($ARGV[6] == 1) { + #NO_LAPACKE=1 + @no_underscore_objs = (@no_underscore_objs); +} else { + if ($ARGV[11] == 1) { + #BUILD_LAPACK_DEPRECATED=1 + @no_underscore_objs = (@no_underscore_objs, @lapackeobjs, @lapacke_deprecated_objs); + } else { + @no_underscore_objs = (@no_underscore_objs, @lapackeobjs); + } +} + +@hplobjs = (daxpy, dcopy, dscal, idamax, dgemv, dtrsv, dger, dgemm, dtrsm); +@hplobjs2 = (HPL_dlaswp00N, HPL_dlaswp01N, HPL_dlaswp01T); + +$bu = $ARGV[2]; + +$bu = "" if (($bu eq "0") || ($bu eq "1")); + +$symbolprefix = $ARGV[9]; + +$symbolsuffix = $ARGV[10]; + +if ($ARGV[0] eq "osx") { + @underscore_objs = (@underscore_objs, @misc_common_objs); + @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); + + foreach $objs (@underscore_objs) { + print "_", $symbolprefix, $objs, $bu, $symbolsuffix, "\n"; + } + + foreach $objs (@need_2underscore_objs) { + print "_", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; + } + + foreach $objs (@no_underscore_objs) { + print "_", $symbolprefix, $objs, $symbolsuffix, "\n"; + } + exit(0); +} + +if ($ARGV[0] eq "aix"){ + @underscore_objs = (@underscore_objs, @misc_common_objs); + @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); + + foreach $objs (@underscore_objs) { + print $symbolprefix, $objs, $bu, $symbolsuffix, "\n"; + } + + foreach $objs (@need_2underscore_objs) { + print $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; + } + + foreach $objs (@no_underscore_objs) { + print $symbolprefix, $objs, $symbolsuffix, "\n"; + } + exit(0); +} + +if ($ARGV[0] eq "objcopy") { + @underscore_objs = (@underscore_objs, @misc_common_objs); + @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); + + foreach $objs (@underscore_objs) { + print $objs, $bu, " ", $symbolprefix, $objs, $bu, $symbolsuffix, "\n"; + } + + foreach $objs (@need_2underscore_objs) { + print $objs, $bu, $bu, " ", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; + } + + foreach $objs (@no_underscore_objs) { + print $objs, " ", $symbolprefix, $objs, $symbolsuffix, "\n"; + } + exit(0); +} + +if ($ARGV[0] eq "objconv") { + @underscore_objs = (@underscore_objs, @misc_common_objs); + @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); + + foreach $objs (@underscore_objs) { + print "-nr:_", $objs, $bu, ":_", $symbolprefix, $objs, $bu, $symbolsuffix, "\n"; + } + + foreach $objs (@need_2underscore_objs) { + print "-nr:_", $objs, $bu, $bu, ":_", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; + } + + foreach $objs (@no_underscore_objs) { + print "-nr:_", $objs, ":_", $symbolprefix, $objs, $symbolsuffix, "\n"; + } + exit(0); +} + +if ($ARGV[0] eq "win2k"){ + print "EXPORTS\n"; + $count = 1; + + @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); + + foreach $objs (@underscore_objs) { + $uppercase = $objs; + $uppercase =~ tr/[a-z]/[A-Z]/; + print "\t",$symbolprefix, $objs, $symbolsuffix, "=$objs","_ \@", $count, "\n"; + $count ++; + print "\t",$symbolprefix, $objs, "_", $symbolsuffix, "=$objs","_ \@", $count, "\n"; + $count ++; + print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "_ \@", $count, "\n"; + $count ++; + } + + foreach $objs (@need_2underscore_objs) { + $uppercase = $objs; + $uppercase =~ tr/[a-z]/[A-Z]/; + print "\t",$symbolprefix, $objs, $symbolsuffix, "=$objs","__ \@", $count, "\n"; + $count ++; + print "\t",$symbolprefix, $objs, "__", $symbolsuffix, "=$objs","__ \@", $count, "\n"; + $count ++; + print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "__ \@", $count, "\n"; + $count ++; + } + + #for misc_common_objs + foreach $objs (@misc_common_objs) { + $uppercase = $objs; + $uppercase =~ tr/[a-z]/[A-Z]/; + print "\t",$symbolprefix, $objs, "_", $symbolsuffix, "=$objs","_ \@", $count, "\n"; + $count ++; + print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "_ \@", $count, "\n"; + $count ++; + } + + + foreach $objs (@no_underscore_objs) { + print "\t",$symbolprefix,$objs,$symbolsuffix,"=$objs"," \@", $count, "\n"; + $count ++; + } + + exit(0); +} + +if ($ARGV[0] eq "win2khpl") { + print "EXPORTS\n"; + $count = 1; + foreach $objs (@hplobjs) { + $uppercase = $objs; + $uppercase =~ tr/[a-z]/[A-Z]/; + print "\t",$symbolprefix, $objs, $symbolsuffix, "=$objs","_ \@", $count, "\n"; + $count ++; + print "\t",$symbolprefix, $objs, "_", $symbolsuffix, "=$objs","_ \@", $count, "\n"; + $count ++; + print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "_ \@", $count, "\n"; + $count ++; + } + + exit(0); +} + +if ($ARGV[0] eq "microsoft"){ + @underscore_objs = (@underscore_objs, @misc_common_objs); + + print "EXPORTS\n"; + $count = 1; + foreach $objs (@underscore_objs) { + $uppercase = $objs; + $uppercase =~ tr/[a-z]/[A-Z]/; + print "\t",$symbolprefix, $objs, $symbolsuffix, " = $objs","_\n"; + $count ++; + print "\t",$symbolprefix, $objs, "\_", $symbolsuffix, " = $objs","_\n"; + $count ++; + print "\t",$symbolprefix, $uppercase, $symbolsuffix, " = $objs","_\n"; + $count ++; + print "\t",$symbolprefix, $uppercase, "\_", $symbolsuffix, " = $objs","_\n"; + $count ++; + } + + foreach $objs (@need_2underscore_objs) { + $uppercase = $objs; + $uppercase =~ tr/[a-z]/[A-Z]/; + print "\t",$symbolprefix, $objs, $symbolsuffix, "=$objs","__ \@", $count, "\n"; + $count ++; + print "\t",$symbolprefix, $objs, "__", $symbolsuffix, "=$objs","__ \@", $count, "\n"; + $count ++; + print "\t",$symbolprefix, $uppercase, $symbolsuffix, "=$objs", "__ \@", $count, "\n"; + $count ++; + } + + exit(0); +} + +if ($ARGV[0] eq "linktest") { + @underscore_objs = (@underscore_objs, @misc_common_objs); + @no_underscore_objs = (@no_underscore_objs, @misc_common_objs); + + print "int main(void){\n"; + foreach $objs (@underscore_objs) { + print $symbolprefix, $objs, $bu, $symbolsuffix, "();\n" if $objs ne "xerbla"; + } + + foreach $objs (@need_2underscore_objs) { + print $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "();\n"; + } + + foreach $objs (@no_underscore_objs) { + print $symbolprefix, $objs, $symbolsuffix, "();\n"; + } + + print "return 0;}\n"; + exit(0); +}