From 329cdc31b3c78d53c1f08ae419436900654b71b7 Mon Sep 17 00:00:00 2001 From: martin-frbg Date: Thu, 21 Apr 2022 20:39:29 +0200 Subject: [PATCH] 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