if (NOT C_LAPACK)\r
message (STATUS "fortran lapack")\r
set(ALLAUX ilaenv.f ilaenv2stage.f ieeeck.f lsamen.f iparmq.f iparam2stage.F\r
- ilaprec.f ilatrans.f ilauplo.f iladiag.f chla_transtype.f dlaset.f\r
+ ilaprec.f ilatrans.f ilauplo.f iladiag.f chla_transtype.f dlaset.f la_xisnan.F90\r
../INSTALL/ilaver.f xerbla_array.f\r
../INSTALL/slamch.f)\r
\r
set(SCLAUX\r
scombssq.f sbdsvdx.f sstevx.f sstein.f\r
+ la_constants.f90\r
sbdsdc.f\r
sbdsqr.f sdisna.f slabad.f slacpy.f sladiv.f slae2.f slaebz.f\r
slaed0.f slaed1.f slaed2.f slaed3.f slaed4.f slaed5.f slaed6.f\r
slapy2.f slapy3.f slarnv.f\r
slarra.f slarrb.f slarrc.f slarrd.f slarre.f slarrf.f slarrj.f\r
slarrk.f slarrr.f slaneg.f\r
- slartg.f slaruv.f slas2.f slascl.f\r
+ slartg.f90 slaruv.f slas2.f slascl.f\r
slasd0.f slasd1.f slasd2.f slasd3.f slasd4.f slasd5.f slasd6.f\r
slasd7.f slasd8.f slasda.f slasdq.f slasdt.f\r
slaset.f slasq1.f slasq2.f slasq3.f slasq4.f slasq5.f slasq6.f\r
- slasr.f slasrt.f slassq.f slasv2.f spttrf.f sstebz.f sstedc.f\r
+ slasr.f slasrt.f slassq.f90 slasv2.f spttrf.f sstebz.f sstedc.f\r
ssteqr.f ssterf.f slaisnan.f sisnan.f\r
- slartgp.f slartgs.f\r
+ slartgp.f slartgs.f ../INSTALL/sroundup_lwork.f\r
../INSTALL/second_${TIMER}.f)\r
\r
set(DZLAUX\r
+ la_constants.f90\r
dbdsdc.f\r
dbdsvdx.f dstevx.f dstein.f\r
dbdsqr.f ddisna.f dlabad.f dlacpy.f dladiv.f dlae2.f dlaebz.f\r
dlapy2.f dlapy3.f dlarnv.f\r
dlarra.f dlarrb.f dlarrc.f dlarrd.f dlarre.f dlarrf.f dlarrj.f\r
dlarrk.f dlarrr.f dlaneg.f\r
- dlartg.f dlaruv.f dlas2.f dlascl.f\r
+ dlartg.f90 dlaruv.f dlas2.f dlascl.f\r
dlasd0.f dlasd1.f dlasd2.f dlasd3.f dlasd4.f dlasd5.f dlasd6.f\r
dlasd7.f dlasd8.f dlasda.f dlasdq.f dlasdt.f\r
dlasq1.f dlasq2.f dlasq3.f dlasq4.f dlasq5.f dlasq6.f\r
- dlasr.f dlasrt.f dlassq.f dlasv2.f dpttrf.f dstebz.f dstedc.f\r
+ dlasr.f dlasrt.f dlassq.f90 dlasv2.f dpttrf.f dstebz.f dstedc.f\r
dsteqr.f dsterf.f dlaisnan.f disnan.f\r
- dlartgp.f dlartgs.f\r
+ dlartgp.f dlartgs.f ../INSTALL/droundup_lwork.f\r
../INSTALL/dlamch.f ../INSTALL/dsecnd_${TIMER}.f)\r
\r
set(SLASRC\r
sggrqf.f sggsvd3.f sggsvp3.f sgtcon.f sgtrfs.f sgtsv.f\r
sgtsvx.f sgttrf.f sgttrs.f sgtts2.f shgeqz.f\r
shsein.f shseqr.f slabrd.f slacon.f slacn2.f\r
+ slaqz0.f slaqz1.f slaqz2.f slaqz3.f slaqz4.f\r
slaein.f slaexc.f slag2.f slags2.f slagtm.f slagv2.f slahqr.f\r
slahr2.f slaic1.f slaln2.f slals0.f slalsa.f slalsd.f\r
slangb.f slange.f slangt.f slanhs.f slansb.f slansp.f\r
clantp.f clantr.f clapll.f clapmt.f clarcm.f claqgb.f claqge.f\r
claqhb.f claqhe.f claqhp.f claqp2.f claqps.f claqsb.f\r
claqr0.f claqr1.f claqr2.f claqr3.f claqr4.f claqr5.f\r
+ claqz0.f claqz1.f claqz2.f claqz3.f\r
claqsp.f claqsy.f clar1v.f clar2v.f ilaclr.f ilaclc.f\r
clarf.f clarfb.f clarfb_gett.f clarfg.f clarfgp.f clarft.f\r
- clarfx.f clarfy.f clargv.f clarnv.f clarrv.f clartg.f clartv.f\r
- clarz.f clarzb.f clarzt.f clascl.f claset.f clasr.f classq.f\r
+ clarfx.f clarfy.f clargv.f clarnv.f clarrv.f clartg.f90 clartv.f\r
+ clarz.f clarzb.f clarzt.f clascl.f claset.f clasr.f classq.f90\r
clasyf.f clasyf_rook.f clasyf_rk.f clasyf_aa.f\r
clatbs.f clatdf.f clatps.f clatrd.f clatrs.f clatrz.f\r
cpbcon.f cpbequ.f cpbrfs.f cpbstf.f cpbsv.f\r
dggglm.f dgghrd.f dgghd3.f dgglse.f dggqrf.f\r
dggrqf.f dggsvd3.f dggsvp3.f dgtcon.f dgtrfs.f dgtsv.f\r
dgtsvx.f dgttrf.f dgttrs.f dgtts2.f dhgeqz.f\r
+ dlaqz0.f dlaqz1.f dlaqz2.f dlaqz3.f dlaqz4.f\r
dhsein.f dhseqr.f dlabrd.f dlacon.f dlacn2.f\r
dlaein.f dlaexc.f dlag2.f dlags2.f dlagtm.f dlagv2.f dlahqr.f\r
dlahr2.f dlaic1.f dlaln2.f dlals0.f dlalsa.f dlalsd.f\r
zhetrs_3.f zhecon_3.f zhesv_rk.f\r
zhesv_aa.f zhesv_aa_2stage.f zhetrf_aa.f zhetrf_aa_2stage.f zhetrs_aa.f zhetrs_aa_2stage.f\r
zhgeqz.f zhpcon.f zhpev.f zhpevd.f\r
+ zlaqz0.f zlaqz1.f zlaqz2.f zlaqz3.f\r
zhpevx.f zhpgst.f zhpgv.f zhpgvd.f zhpgvx.f zhprfs.f zhpsv.f\r
zhpsvx.f\r
zhptrd.f zhptrf.f zhptri.f zhptrs.f zhsein.f zhseqr.f zlabrd.f\r
zlaqsp.f zlaqsy.f zlar1v.f zlar2v.f ilazlr.f ilazlc.f\r
zlarcm.f zlarf.f zlarfb.f zlarfb_gett.f\r
zlarfg.f zlarfgp.f zlarft.f\r
- zlarfx.f zlarfy.f zlargv.f zlarnv.f zlarrv.f zlartg.f zlartv.f\r
+ zlarfx.f zlarfy.f zlargv.f zlarnv.f zlarrv.f zlartg.f90 zlartv.f\r
zlarz.f zlarzb.f zlarzt.f zlascl.f zlaset.f zlasr.f\r
- zlassq.f zlasyf.f zlasyf_rook.f zlasyf_rk.f zlasyf_aa.f\r
+ zlassq.f90 zlasyf.f zlasyf_rook.f zlasyf_rk.f zlasyf_aa.f\r
zlatbs.f zlatdf.f zlatps.f zlatrd.f zlatrs.f zlatrz.f\r
zpbcon.f zpbequ.f zpbrfs.f zpbstf.f zpbsv.f\r
zpbsvx.f zpbtf2.f zpbtrf.f zpbtrs.f zpocon.f zpoequ.f zporfs.f\r
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,
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 $@ $<
--- /dev/null
+*> \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
--- /dev/null
+*> \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
-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)
#include "lapacke_mangling.h"
#include <stdlib.h>
+#include <stdarg.h>
+
+/* 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).
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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(
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,
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,
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,
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,
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,
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,
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,
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,
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(
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,
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,
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,
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,
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,
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,
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,
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,
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(
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(
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,
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,
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,
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,
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(
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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(
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,
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,
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,
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,
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(
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(
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(
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,
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,
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,
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,
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,
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,
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,
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,
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(
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,
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,
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,
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,
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(
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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(
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(
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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(
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,
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,
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,
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,
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(
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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(
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,
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,
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,
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,
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(
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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(
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(
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(
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(
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(
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(
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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(
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(
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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(
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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(
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,
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(
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,
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(
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,
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,
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,
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,
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(
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(
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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(
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,
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,
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,
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,
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(
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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(
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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(
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,
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,
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,
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,
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,
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,
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,
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,
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(
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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,
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(
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,
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,
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,
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,
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,
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,
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(
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(
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" */
******************************************************************************
* Contents: Native C interface to LAPACK
* Author: Intel Corporation
-* Generated August, 2015
*****************************************************************************/
#ifndef _LAPACKE_H_
******************************************************************************
* 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 <complex> include)
-#if defined(__ANDROID__)
-#if __ANDROID_API__ < 21
-#define LAPACK_COMPLEX_STRUCTURE
-#endif
-#endif
-
#ifdef __cplusplus
#if defined(LAPACK_COMPLEX_CPP)
#include <complex>
******************************************************************************
* Contents: Native C interface to LAPACK utility functions
* Author: Intel Corporation
-* Created in January, 2010
*****************************************************************************/
#ifndef _LAPACKE_UTILS_H_
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
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
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
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
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
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
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
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
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cbbcsd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cbbcsd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cbdsqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cbdsqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgbbrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgbbrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgbequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgbequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgbequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgbequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgbrfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgbrfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgbsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgbsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgbsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgbsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgbsvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgbsvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgbtrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgbtrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgebak
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgebak
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgebal
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgebal
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgebrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgebrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgecon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgecon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgeequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgeequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgeequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgeequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgees
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgees
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgeesx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgeesx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgeev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgeev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgeevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgeevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgehrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgehrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgejsv
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgejsv
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgelq
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgelq2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgelq2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgelq
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgelqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgelqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgels
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgels
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgelsd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgelsd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgelss
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgelss
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgelsy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgelsy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgemlq
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgemlq
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgemqr
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgemqr
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function cgemqrt
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgemqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgeqlf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgeqlf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgeqp3
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgeqp3
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgeqpf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgeqpf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgeqr
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgeqr2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgeqr2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgeqr
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgeqrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgeqrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgeqrfp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgeqrfp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function cgeqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function cgeqrt2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgeqrt2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function cgeqrt3
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgeqrt3
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgeqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgerfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgerfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgerfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgerfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgerqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgerqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgesdd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgesdd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgesv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgesv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgesvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgesvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgesvdq
* Author: Intel Corporation
-* Generated November 2018
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgesvdq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgesvdx
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgesvdx
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgesvj
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgesvj
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgesvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgesvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgesvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgesvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgetf2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgetf2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgetrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgetrf2
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgetrf2
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgetrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgetri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgetri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgetrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgetrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgetsls
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgetsls
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cggbak
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cggbak
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cggbal
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cggbal
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgges
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgges3
* Author: Intel Corporation
-* Generated March, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgges3
* Author: Intel Corporation
-* Generated February, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgges
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cggesx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cggesx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cggev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cggev3
* Author: Intel Corporation
-* Generated February, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cggev3
* Author: Intel Corporation
-* Generated February, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cggev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cggevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cggevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cggglm
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cggglm
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgghd3
* Author: Intel Corporation
-* Generated January, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgghd3
* Author: Intel Corporation
-* Generated January, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgghrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgghrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgglse
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgglse
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cggqrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cggqrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cggrqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cggrqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cggsvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cggsvd3
* Author: Intel Corporation
-* Generated August, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cggsvd3
* Author: Intel Corporation
-* Generated August, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cggsvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cggsvp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cggsvp3
* Author: Intel Corporation
-* Generated August, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cggsvp3
* Author: Intel Corporation
-* Generated August, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cggsvp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgtcon
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgtcon
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgtrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgtrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgtsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgtsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgtsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgtsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgttrf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgttrf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgttrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgttrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chbev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chbev_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chbev_2stage
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chbev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chbevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chbevd_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chbevd_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chbevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chbevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chbevx_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chbevx_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chbevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chbgst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chbgst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chbgv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chbgv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chbgvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chbgvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chbgvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chbgvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chbtrd
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chbtrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function checon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function checon_3
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function checon_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function checon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cheequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cheequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cheev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cheev_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cheev_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cheev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cheevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cheevd_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cheevd_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cheevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cheevr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cheevr_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cheevr_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cheevr
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cheevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cheevx_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cheevx_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cheevx
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chegst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
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;
}
}
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chegst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chegv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chegv_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chegv_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chegv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chegvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chegvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chegvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chegvx
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cherfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cherfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cherfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cherfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chesv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chesv_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chesv_aa_2stage
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chesv_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chesv_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chesv_rk
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chesv_rk
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chesv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chesvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chesvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chesvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chesvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cheswapr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cheswapr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chetrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chetrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chetrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chetrf
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chetrf_aa_2stage
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chetrf_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chetrf
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chetrf_rk
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chetrf_rk
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chetrf_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chetrf_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chetrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chetri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chetri2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chetri2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chetri2x
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chetri2x
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chetri_3
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chetri_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chetri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chetrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chetrs2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chetrs2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chetrs_3
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chetrs_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chetrs_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chetrs_aa_2stage
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chetrs_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chetrs_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chetrs_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chetrs_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chetrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chfrk
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chfrk
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chgeqz
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chgeqz
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chpcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chpcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chpev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chpev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chpevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chpevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chpevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chpevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chpgst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chpgst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chpgv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chpgv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chpgvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chpgvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chpgvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chpgvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chpsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chpsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chpsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chpsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chptrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chptrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chsein
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chsein
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function chseqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function chseqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clacgv
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clacgv
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function clacn2
* Author: Intel Corporation
-* Generated October, 2012
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function clacn2
* Author: Intel Corporation
-* Generated October, 2012
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function clacp2
* Author: Intel Corporation
-* Generated January, 2013
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function clacp2
* Author: Intel Corporation
-* Generated January, 2013
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clacpy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clacpy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clacrm
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clacrm
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clag2z
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clag2z
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clagge
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clagge
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function claghe
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function claghe
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clagsy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clagsy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clange
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clange
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clanhe
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clanhe
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clansy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clansy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clantr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clantr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clapmr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clapmr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clapmt
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clapmt
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clarcm
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clarcm
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clarfb
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clarfb
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clarfg
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clarfg
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clarft
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clarft
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clarfx
* Author: Intel Corporation
-* Generated April, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clarfx
* Author: Intel Corporation
-* Generated April, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clarnv
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clarnv
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slaswp
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slaswp
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function claset
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function claset
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function classq
* Author: Julien Langou
-* Generated February, 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function classq
* Author: Julien Langou
-* Generated February, 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function claswp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function claswp
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clatms
* Author: Intel Corporation
-* Generated April, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clatms
* Author: Intel Corporation
-* Generated April, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function clauum
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function clauum
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpbequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpbequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpbstf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpbstf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpbsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpbsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpbsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpbsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpbtrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpbtrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpftrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpftrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpftri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpftri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpftrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpftrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpocon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpocon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpoequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpoequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpoequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpoequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cporfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cporfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cporfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cporfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cposv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cposv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cposvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cposvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cposvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cposvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpotrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpotrf2
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpotrf2
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpotrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpotri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpotri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpotrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpotrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cppcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cppcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cppequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cppequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cppsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cppsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cppsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cppsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpstrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpstrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cptcon
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cptcon
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpteqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpteqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cptrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cptrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cptsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cptsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cptsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cptsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpttrf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpttrf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cpttrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cpttrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cspcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cspcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cspsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cspsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cspsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cspsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cstedc
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cstedc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cstegr
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cstegr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cstein
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cstein
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cstemr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cstemr
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csteqr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csteqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csycon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csycon_3
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csycon_3
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csycon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csyconv
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csyconv
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csyequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csyequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function csyr
* Author: Intel Corporation
-* Generated March, 2012
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function csyr
* Author: Intel Corporation
-* Generated March, 2012
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csyrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csyrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csyrfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csyrfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csysv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csysv_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csysv_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csysv_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csysv_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csysv_rk
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csysv_rk
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function csysv_rook
* Author: Intel Corporation
-* Generated January, 2012
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function csysv_rook
* Author: Intel Corporation
-* Generated January, 2012
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csysv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csysvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csysvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csysvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csysvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csyswapr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csyswapr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csytrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csytrf
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csytrf_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csytrf_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csytrf
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csytrf_rk
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csytrf_rk
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csytrf_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csytrf_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csytrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csytri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csytri2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csytri2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csytri2x
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csytri2x
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csytri_3
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csytri_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csytri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csytrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csytrs2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csytrs2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csytrs_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csytrs_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csytrs_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csytrs_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csytrs_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csytrs_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function csytrs_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csytrs_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function csytrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctfsm
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctfsm
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctftri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctftri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctfttp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctfttp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctfttr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctfttr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctgevc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctgevc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctgexc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctgexc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctgsen
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctgsen
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctgsja
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctgsja
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctgsna
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctgsna
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctgsyl
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctgsyl
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctpcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctpcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function ctpmqrt
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctpmqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function ctpqrt
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function ctpqrt2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctpqrt2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctpqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function ctprfb
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctprfb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctpttf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctpttf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctpttr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctpttr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctrcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctrcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctrevc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctrevc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctrexc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctrexc
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctrrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctrrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctrsen
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctrsen
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctrsna
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctrsna
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctrsyl
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctrsyl
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctrtri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctrtri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctrtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctrtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctrttf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctrttf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctrttp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctrttp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ctzrzf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ctzrzf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cunbdb
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cunbdb
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cuncsd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cuncsd2by1
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cuncsd2by1
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cuncsd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cungbr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cungbr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cunghr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cunghr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cunglq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cunglq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cungql
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cungql
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cungqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cungqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cungrq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cungrq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cungtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cungtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cunmbr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cunmbr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cunmhr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cunmhr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cunmlq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cunmlq
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cunmql
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cunmql
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cunmqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cunmqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cunmrq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cunmrq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cunmrz
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cunmrz
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cunmtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cunmtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cupgtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cupgtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cupmtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cupmtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dbbcsd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dbbcsd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dbdsdc
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dbdsdc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dbdsqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dbdsqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dbdsvdx
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dbdsvdx
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ddisna
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ddisna
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgbbrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgbbrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgbequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgbequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgbequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgbequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgbrfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgbrfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgbsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgbsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgbsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgbsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgbsvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgbsvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgbtrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgbtrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgebak
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgebak
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgebal
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgebal
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgebrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgebrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgecon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgecon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgeequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgeequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgeequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgeequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgees
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgees
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgeesx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgeesx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgeev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgeev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgeevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgeevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgehrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgehrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgejsv
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgejsv
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgelq
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgelq2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgelq2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgelq
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgelqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgelqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgels
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgels
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgelsd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgelsd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgelss
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgelss
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgelsy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgelsy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgemlq
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgemlq
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgemqr
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgemqr
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function dgemqrt
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgemqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgeqlf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgeqlf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgeqp3
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgeqp3
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgeqpf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgeqpf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgeqr
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgeqr2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgeqr2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgeqr
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgeqrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgeqrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgeqrfp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgeqrfp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function dgeqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function dgeqrt2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgeqrt2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function dgeqrt3
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgeqrt3
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgeqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgerfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgerfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgerfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgerfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgerqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgerqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgesdd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgesdd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgesv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgesv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgesvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgesvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgesvdq
* Author: Intel Corporation
-* Generated November 2018
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgesvdq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgesvdx
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgesvdx
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgesvj
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgesvj
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgesvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgesvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgesvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgesvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgetf2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgetf2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgetrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgetrf2
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgetrf2
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgetrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgetri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgetri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgetrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgetrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgetsls
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgetsls
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dggbak
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dggbak
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dggbal
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dggbal
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgges
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgges3
* Author: Intel Corporation
-* Generated February, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgges3
* Author: Intel Corporation
-* Generated February, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgges
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dggesx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dggesx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dggev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dggev3
* Author: Intel Corporation
-* Generated February, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dggev3
* Author: Intel Corporation
-* Generated February, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dggev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dggevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dggevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dggglm
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dggglm
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgghd3
* Author: Intel Corporation
-* Generated January, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgghd3
* Author: Intel Corporation
-* Generated January, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgghrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgghrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgglse
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgglse
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dggqrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dggqrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dggrqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dggrqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dggsvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dggsvd3
* Author: Intel Corporation
-* Generated August, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dggsvd3
* Author: Intel Corporation
-* Generated August, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dggsvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dggsvp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dggsvp3
* Author: Intel Corporation
-* Generated August, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dggsvp3
* Author: Intel Corporation
-* Generated August, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dggsvp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgtcon
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgtcon
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgtrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgtrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgtsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgtsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgtsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgtsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgttrf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgttrf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgttrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dgttrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dhgeqz
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dhgeqz
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dhsein
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dhsein
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dhseqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dhseqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function dlacn2
* Author: Intel Corporation
-* Generated October, 2012
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlacn2
* Author: Intel Corporation
-* Generated October, 2012
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlacpy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlacpy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlag2s
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlag2s
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlagge
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlagge
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlagsy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlagsy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlamch
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlamch
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlange
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlange
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlansy
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlansy
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlantr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlantr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlapmr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlapmr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlapmt
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlapmt
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlapy2
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlapy2
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlapy3
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlapy3
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlarfb
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlarfb
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlarfg
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlarfg
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlarft
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlarft
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlarfx
* Author: Intel Corporation
-* Generated April, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlarfx
* Author: Intel Corporation
-* Generated April, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlarnv
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlarnv
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlartgp
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlartgp
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlartgs
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlartgs
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlaswp
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlaswp
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlaset
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlaset
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlasrt
* Author: Intel Corporation
-* Generated May, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlasrt
* Author: Intel Corporation
-* Generated May, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlassq
* Author: Julien langou
-* Generated February 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlassq
* Author: Julien Langou
-* Generated February, 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlaswp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlaswp
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlatms
* Author: Intel Corporation
-* Generated April, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlatms
* Author: Intel Corporation
-* Generated April, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlauum
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlauum
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dopgtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dopgtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dopmtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dopmtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dorbdb
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dorbdb
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dorcsd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dorcsd2by1
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dorcsd2by1
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dorcsd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dorgbr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dorgbr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dorghr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dorghr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dorglq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dorglq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dorgql
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dorgql
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dorgqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dorgqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dorgrq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dorgrq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dorgtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dorgtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dormbr
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dormbr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dormhr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dormhr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dormlq
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dormlq
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dormql
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dormql
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dormqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dormqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dormrq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dormrq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dormrz
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dormrz
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dormtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dormtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpbequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpbequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpbstf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpbstf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpbsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpbsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpbsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpbsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpbtrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpbtrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpftrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpftrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpftri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpftri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpftrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpftrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpocon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpocon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpoequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpoequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpoequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpoequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dporfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dporfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dporfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dporfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dposv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dposv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dposvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dposvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dposvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dposvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpotrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpotrf2
* Author: Intel Corporation
-* Generated November, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpotrf2
* Author: Intel Corporation
-* Generated November, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpotrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpotri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpotri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpotrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpotrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dppcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dppcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dppequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dppequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dppsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dppsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dppsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dppsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpstrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpstrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dptcon
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dptcon
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpteqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpteqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dptrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dptrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dptsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dptsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dptsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dptsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpttrf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpttrf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dpttrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dpttrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsbev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsbev_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsbev_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsbev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsbevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsbevd_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsbevd_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsbevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsbevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsbevx_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsbevx_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsbevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsbgst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsbgst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsbgv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsbgv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsbgvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsbgvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsbgvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsbgvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsbtrd
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsbtrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsfrk
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsfrk
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsgesv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsgesv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dspcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dspcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dspev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dspev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dspevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dspevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dspevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dspevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dspgst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dspgst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dspgv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dspgv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dspgvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dspgvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dspgvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dspgvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsposv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsposv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dspsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dspsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dspsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dspsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsptrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsptrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dstebz
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dstebz
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dstedc
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dstedc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dstegr
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dstegr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dstein
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dstein
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dstemr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dstemr
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsteqr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsteqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsterf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsterf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dstev
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dstev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dstevd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dstevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dstevr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dstevr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dstevx
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dstevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsycon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsycon_3
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsycon_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsycon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsyconv
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsyconv
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsyequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsyequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsyev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsyev_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsyev_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsyev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsyevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsyevd_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsyevd_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsyevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsyevr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsyevr_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsyevr_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsyevr
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsyevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsyevx_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsyevx_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsyevx
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsygst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsygst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsygv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsygv_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsygv_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsygv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsygvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsygvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsygvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsygvx
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsyrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsyrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsyrfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsyrfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsysv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsysv_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsysv_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsysv_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsysv_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsysv_rk
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsysv_rk
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function dsysv_rook
* Author: Intel Corporation
-* Generated January, 2012
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsysv_rook
* Author: Intel Corporation
-* Generated January, 2012
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsysv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsysvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsysvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsysvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsysvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsyswapr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsyswapr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsytrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsytrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsytrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsytrf
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsytrf_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsytrf_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsytrf
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsytrf_rk
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsytrf_rk
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsytrf_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsytrf_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsytrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsytri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsytri2
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsytri2
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsytri2x
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsytri2x
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsytri_3
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsytri_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsytri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsytrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsytrs2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsytrs2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsytrs_3
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsytrs_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsytrs_aa
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsytrs_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsytrs_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsytrs_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dsytrs_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsytrs_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dsytrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtfsm
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtfsm
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtftri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtftri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtfttp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtfttp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtfttr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtfttr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtgevc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtgevc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtgexc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtgexc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtgsen
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtgsen
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtgsja
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtgsja
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtgsna
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtgsna
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtgsyl
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtgsyl
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtpcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtpcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function dtpmqrt
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtpmqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function dtpqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function dtpqrt2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtpqrt2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtpqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function dtprfb
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtprfb
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtpttf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtpttf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtpttr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtpttr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtrcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtrcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtrevc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtrevc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtrexc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtrexc
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtrrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtrrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtrsen
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtrsen
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtrsna
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtrsna
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtrsyl
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtrsyl
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtrtri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtrtri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtrtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtrtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtrttf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtrttf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtrttp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtrttp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dtzrzf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dtzrzf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dgesv
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native C interface to control NaN checking
* Author: Intel Corporation
-* Generated July, 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sbbcsd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sbbcsd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sbdsdc
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sbdsdc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sbdsqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sbdsqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sbdsvdx
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sbdsvdx
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sdisna
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sdisna
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgbbrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgbbrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgbequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgbequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgbequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgbequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgbrfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgbrfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgbsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgbsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgbsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgbsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgbsvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgbsvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgbtrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgbtrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgebak
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgebak
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgebal
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgebal
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgebrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgebrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgecon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgecon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgeequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgeequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgeequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgeequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgees
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgees
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgeesx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgeesx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgeev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgeev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgeevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgeevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgehrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgehrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgejsv
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgejsv
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgelq
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgelq2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgelq2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgelq
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgelqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgelqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgels
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgels
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgelsd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgelsd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgelss
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgelss
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgelsy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgelsy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgemlq
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgemlq
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgemqr
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgemqr
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function sgemqrt
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgemqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgeqlf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgeqlf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgeqp3
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgeqp3
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgeqpf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgeqpf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgeqr
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgeqr2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgeqr2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgeqr
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgeqrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgeqrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgeqrfp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgeqrfp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function sgeqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function sgeqrt2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgeqrt2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function sgeqrt3
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgeqrt3
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgeqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgerfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgerfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgerfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgerfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgerqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgerqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgesdd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgesdd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgesv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgesv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgesvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgesvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgesvdq
* Author: Intel Corporation
-* Generated November 2018
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgesvdq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgesvdx
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgesvdx
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgesvj
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgesvj
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgesvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgesvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgesvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgesvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgetf2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgetf2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgetrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgetrf2
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgetrf2
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgetrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgetri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgetri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgetrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgetrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgetsls
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgetsls
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sggbak
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sggbak
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sggbal
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sggbal
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgges
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgges3
* Author: Intel Corporation
-* Generated February, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgges3
* Author: Intel Corporation
-* Generated February, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgges
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sggesx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sggesx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sggev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sggev3
* Author: Intel Corporation
-* Generated February, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sggev3
* Author: Intel Corporation
-* Generated February, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sggev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sggevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sggevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sggglm
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sggglm
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgghd3
* Author: Intel Corporation
-* Generated January, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgghd3
* Author: Intel Corporation
-* Generated January, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgghrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgghrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgglse
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgglse
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sggqrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sggqrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sggrqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sggrqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sggsvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sggsvd3
* Author: Intel Corporation
-* Generated August, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sggsvd3
* Author: Intel Corporation
-* Generated August, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sggsvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sggsvp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sggsvp3
* Author: Intel Corporation
-* Generated August, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sggsvp3
* Author: Intel Corporation
-* Generated August, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sggsvp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgtcon
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgtcon
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgtrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgtrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgtsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgtsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgtsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgtsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgttrf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgttrf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sgttrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sgttrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function shgeqz
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function shgeqz
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function shsein
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function shsein
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function shseqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function shseqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function slacn2
* Author: Intel Corporation
-* Generated October, 2012
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function slacn2
* Author: Intel Corporation
-* Generated October, 2012
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slacpy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slacpy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slag2d
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slag2d
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slagge
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slagge
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slagsy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slagsy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slamch
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slamch
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slange
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slange
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slansy
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slansy
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slantr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slantr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slapmr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slapmr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slapmt
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slapmt
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slapy2
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slapy2
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slapy3
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slapy3
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slarfb
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slarfb
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slarfg
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slarfg
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slarft
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slarft
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slarfx
* Author: Intel Corporation
-* Generated April, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slarfx
* Author: Intel Corporation
-* Generated April, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slarnv
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slarnv
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slartgp
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slartgp
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slartgs
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slartgs
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slaswp
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slaswp
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slaset
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slaset
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slasrt
* Author: Intel Corporation
-* Generated May, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slasrt
* Author: Intel Corporation
-* Generated May, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slassq
* Author: Julien Langou
-* Generated February, 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slassq
* Author: Julien Langou
-* Generated February, 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slaswp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slaswp
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slatms
* Author: Intel Corporation
-* Generated April, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slatms
* Author: Intel Corporation
-* Generated April, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function slauum
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function slauum
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sopgtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sopgtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sopmtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sopmtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sorbdb
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sorbdb
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sorcsd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sorcsd2by1
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sorcsd2by1
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sorcsd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sorgbr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sorgbr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sorghr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sorghr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sorglq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sorglq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sorgql
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sorgql
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sorgqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sorgqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sorgrq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sorgrq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sorgtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sorgtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sormbr
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sormbr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sormhr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sormhr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sormlq
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sormlq
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sormql
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sormql
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sormqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sormqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sormrq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sormrq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sormrz
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sormrz
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sormtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sormtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spbequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spbequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spbstf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spbstf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spbsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spbsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spbsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spbsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spbtrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spbtrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spftrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spftrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spftri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spftri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spftrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spftrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spocon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spocon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spoequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spoequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spoequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spoequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sporfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sporfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sporfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sporfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sposv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sposv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sposvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sposvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sposvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sposvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spotrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spotrf2
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spotrf2
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spotrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spotri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spotri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spotrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spotrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sppcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sppcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sppequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sppequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sppsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sppsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sppsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sppsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spstrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spstrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sptcon
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sptcon
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spteqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spteqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sptrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sptrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sptsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sptsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sptsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sptsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spttrf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spttrf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function spttrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function spttrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssbev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssbev_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssbev_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssbev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssbevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssbevd_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssbevd_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssbevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssbevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssbevx_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssbevx_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssbevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssbgst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssbgst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssbgv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssbgv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssbgvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssbgvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssbgvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssbgvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssbtrd
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssbtrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssfrk
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssfrk
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sspcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sspcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sspev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sspev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sspevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sspevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sspevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sspevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sspgst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sspgst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sspgv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sspgv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sspgvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sspgvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sspgvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sspgvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sspsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sspsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sspsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sspsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssptrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssptrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sstebz
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sstebz
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sstedc
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sstedc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sstegr
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sstegr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sstein
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sstein
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sstemr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sstemr
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssteqr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssteqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssterf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssterf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sstev
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sstev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sstevd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sstevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sstevr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sstevr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function sstevx
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function sstevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssycon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssycon_3
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssycon_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssycon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssyconv
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssyconv
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssyequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssyequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssyev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssyev_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssyev_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssyev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssyevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssyevd_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssyevd_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssyevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssyevr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssyevr_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssyevr_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssyevr
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssyevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssyevx_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssyevx_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssyevx
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssygst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssygst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssygv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssygv_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssygv_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssygv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssygvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssygvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssygvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssygvx
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssyrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssyrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssyrfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssyrfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssysv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssysv_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssysv_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssysv_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssysv_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssysv_rk
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssysv_rk
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function ssysv_rook
* Author: Intel Corporation
-* Generated January, 2012
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssysv_rook
* Author: Intel Corporation
-* Generated January, 2012
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssysv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssysvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssysvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssysvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssysvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssyswapr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssyswapr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssytrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssytrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssytrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssytrf
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssytrf_aa_2stage
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssytrf_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssytrf
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssytrf_rk
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssytrf_rk
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssytrf_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssytrf_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssytrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssytri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssytri2
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssytri2
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssytri2x
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssytri2x
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssytri_3
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssytri_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssytri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssytrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssytrs2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssytrs2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssytrs_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssytrs_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssytrs_aa
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssytrs_aa_2stage
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssytrs_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssytrs_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ssytrs_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssytrs_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ssytrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stfsm
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stfsm
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stftri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stftri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stfttp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stfttp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stfttr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stfttr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stgevc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stgevc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stgexc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stgexc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stgsen
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stgsen
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stgsja
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stgsja
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stgsna
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stgsna
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stgsyl
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stgsyl
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stpcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stpcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function stpmqrt
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function stpmqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgeqrt
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function stpqrt2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function stpqrt2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgeqrt
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function stprfb
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function stprfb
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stpttf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stpttf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stpttr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stpttr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function strcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function strcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function strevc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function strevc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function strexc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function strexc
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function strrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function strrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function strsen
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function strsen
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function strsna
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function strsna
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function strsyl
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function strsyl
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function strtri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function strtri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function strtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function strtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function strttf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function strttf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function strttp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function strttp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function stzrzf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function stzrzf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zbbcsd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zbbcsd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zbdsqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zbdsqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zcgesv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zcgesv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zcposv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zcposv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgbbrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgbbrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgbequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgbequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgbequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgbequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgbrfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgbrfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgbsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgbsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgbsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgbsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgbsvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgbsvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgbtrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgbtrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgebak
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgebak
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgebal
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgebal
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgebrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgebrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgecon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgecon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgeequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgeequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgeequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgeequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgees
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgees
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgeesx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgeesx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgeev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgeev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgeevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgeevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgehrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgehrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgejsv
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgejsv
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgelq
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgelq2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgelq2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgelq
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgelqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgelqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgels
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgels
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgelsd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgelsd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgelss
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgelss
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgelsy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgelsy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgemlq
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgemlq
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgemqr
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgemqr
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function zgemqrt
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgemqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgeqlf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgeqlf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgeqp3
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgeqp3
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgeqpf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgeqpf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgeqr
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgeqr2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgeqr2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgeqr
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgeqrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgeqrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgeqrfp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgeqrfp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function zgeqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function zgeqrt2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgeqrt2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function zgeqrt3
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgeqrt3
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgeqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgerfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgerfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgerfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgerfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgerqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgerqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgesdd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgesdd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgesv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgesv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgesvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgesvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgesvdq
* Author: Intel Corporation
-* Generated November 2018
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgesvdq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgesvdx
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgesvdx
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgesvj
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgesvj
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgesvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgesvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgesvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgesvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgetf2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgetf2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgetrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgetrf2
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgetrf2
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgetrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgetri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgetri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgetrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgetrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgetsls
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgetsls
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zggbak
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zggbak
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zggbal
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zggbal
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgges
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgges3
* Author: Intel Corporation
-* Generated February, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgges3
* Author: Intel Corporation
-* Generated February, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgges
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zggesx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zggesx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zggev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zggev3
* Author: Intel Corporation
-* Generated February, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zggev3
* Author: Intel Corporation
-* Generated February, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zggev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zggevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zggevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zggglm
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zggglm
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgghd3
* Author: Intel Corporation
-* Generated January, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgghd3
* Author: Intel Corporation
-* Generated January, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgghrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgghrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgglse
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgglse
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zggqrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zggqrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zggrqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zggrqf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zggsvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zggsvd3
* Author: Intel Corporation
-* Generated August, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zggsvd3
* Author: Intel Corporation
-* Generated August, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zggsvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zggsvp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zggsvp3
* Author: Intel Corporation
-* Generated August, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zggsvp3
* Author: Intel Corporation
-* Generated August, 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zggsvp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgtcon
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgtcon
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgtrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgtrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgtsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgtsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgtsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgtsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgttrf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgttrf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zgttrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zgttrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhbev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhbev_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhbev_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhbev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhbevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhbevd_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhbevd_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhbevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhbevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhbevx_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhbevx_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhbevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhbgst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhbgst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhbgv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhbgv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhbgvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhbgvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhbgvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhbgvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhbtrd
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhbtrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhecon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhecon_3
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhecon_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhecon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zheequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zheequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zheev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zheev_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zheev_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zheev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zheevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zheevd_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zheevd_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zheevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zheevr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zheevr_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zheevr_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zheevr
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zheevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zheevx_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zheevx_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zheevx
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhegst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
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;
}
}
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhegst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhegv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhegv_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhegv_2stage
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhegv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhegvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhegvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhegvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhegvx
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zherfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zherfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zherfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zherfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhesv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhesv_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhesv_aa_2stage
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhesv_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhesv_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhesv_rk
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhesv_rk
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhesv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhesvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhesvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhesvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhesvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zheswapr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zheswapr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhetrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhetrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhetrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhetrf
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhetrf_aa_2stage
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhetrf_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhetrf
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhetrf_rk
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhetrf_rk
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhetrf_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhetrf_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhetrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhetri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhetri2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhetri2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhetri2x
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhetri2x
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhetri_3
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhetri_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhetri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhetrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhetrs2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhetrs2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhetrs_3
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhetrs_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhetrs_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhetrs_aa_2stage
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhetrs_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhetrs_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhetrs_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhetrs_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhetrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhfrk
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhfrk
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhgeqz
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhgeqz
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhpcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhpcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhpev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhpev
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhpevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhpevd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhpevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhpevx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhpgst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhpgst
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhpgv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhpgv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhpgvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhpgvd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhpgvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhpgvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhpsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhpsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhpsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhpsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhptrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhptrd
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhsein
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhsein
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zhseqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zhseqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlacgv
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlacgv
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function zlacn2
* Author: Intel Corporation
-* Generated October, 2012
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlacn2
* Author: Intel Corporation
-* Generated October, 2012
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function zlacp2
* Author: Intel Corporation
-* Generated January, 2013
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlacp2
* Author: Intel Corporation
-* Generated January, 2013
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlacpy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlacpy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlacrm
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlacrm
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlag2c
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlag2c
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlagge
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlagge
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlaghe
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlaghe
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlagsy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlagsy
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlange
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlange
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlanhe
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlanhe
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlansy
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlansy
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlantr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlantr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlapmr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlapmr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlapmt
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlapmt
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlarcm
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlarcm
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlarfb
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlarfb
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlarfg
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlarfg
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlarft
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlarft
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlarfx
* Author: Intel Corporation
-* Generated April, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlarfx
* Author: Intel Corporation
-* Generated April, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlarnv
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlarnv
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function dlaswp
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function dlaswp
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlaset
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlaset
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlassq
* Author: Julien langou
-* Generated February 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlassq
* Author: Julien Langou
-* Generated February, 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlaswp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlaswp
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlatms
* Author: Intel Corporation
-* Generated April, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlatms
* Author: Intel Corporation
-* Generated April, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zlauum
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zlauum
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpbequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpbequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpbstf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpbstf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpbsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpbsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpbsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpbsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpbtrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpbtrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpftrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpftrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpftri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpftri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpftrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpftrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpocon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpocon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpoequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpoequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpoequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpoequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zporfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zporfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zporfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zporfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zposv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zposv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zposvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zposvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zposvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zposvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpotrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpotrf2
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpotrf2
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpotrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpotri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpotri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpotrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpotrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zppcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zppcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zppequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zppequ
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zppsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zppsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zppsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zppsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpstrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpstrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zptcon
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zptcon
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpteqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpteqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zptrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zptrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zptsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zptsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zptsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zptsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpttrf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpttrf
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zpttrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zpttrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zspcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zspcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zspsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zspsv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zspsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zspsvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsptrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zstedc
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zstedc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zstegr
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zstegr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zstein
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zstein
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zstemr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zstemr
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsteqr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsteqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsycon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsycon_3
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsycon_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsycon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsyconv
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsyconv
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsyequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsyequb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function zsyr
* Author: Intel Corporation
-* Generated March, 2012
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsyr
* Author: Intel Corporation
-* Generated March, 2012
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsyrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsyrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsyrfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsyrfsx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsysv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsysv_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsysv_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsysv_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsysv_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsysv_rk
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsysv_rk
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function zsysv_rook
* Author: Intel Corporation
-* Generated January, 2012
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsysv_rook
* Author: Intel Corporation
-* Generated January, 2012
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsysv
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsysvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsysvx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsysvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsysvxx
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsyswapr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsyswapr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsytrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsytrf
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsytrf_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsytrf_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsytrf
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsytrf_rk
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsytrf_rk
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsytrf_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsytrf_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsytrf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsytri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsytri2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsytri2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsytri2x
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsytri2x
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsytri_3
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsytri_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsytri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsytrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsytrs2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsytrs2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsytrs_3
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsytrs_3
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsytrs_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsytrs_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsytrs_aa
* Author: Intel Corporation
-* Generated November 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsytrs_aa
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zsytrs_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsytrs_rook
* Author: Intel Corporation
-* Generated November, 2011
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zsytrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztbcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztbrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztbtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztfsm
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztfsm
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztftri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztftri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztfttp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztfttp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztfttr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztfttr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztgevc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztgevc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztgexc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztgexc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztgsen
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztgsen
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztgsja
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztgsja
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztgsna
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztgsna
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztgsyl
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztgsyl
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztpcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztpcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function ztpmqrt
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztpmqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function ztpqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function ztpqrt2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztpqrt2
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztpqrt
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native high-level C interface to LAPACK function ztprfb
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztprfb
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztprfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztptri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztptrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztpttf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztpttf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztpttr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztpttr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztrcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztrcon
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztrevc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztrevc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztrexc
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztrexc
* Author: Intel Corporation
-* Generated December 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztrrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztrrfs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztrsen
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztrsen
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztrsna
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztrsna
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztrsyl
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztrsyl
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztrtri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztrtri
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztrtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztrtrs
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztrttf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztrttf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztrttp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztrttp
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function ztzrzf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function ztzrzf
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zunbdb
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zunbdb
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zuncsd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zuncsd2by1
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zuncsd2by1
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zuncsd
* Author: Intel Corporation
-* Generated June 2017
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zungbr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zungbr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zunghr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zunghr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zunglq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zunglq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zungql
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zungql
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zungqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zungqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zungrq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zungrq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zungtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zungtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zunmbr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zunmbr
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zunmhr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zunmhr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zunmlq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zunmlq
* Author: Intel Corporation
-* Generated June 2016
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zunmql
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zunmql
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zunmqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zunmqr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zunmrq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zunmrq
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zunmrz
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zunmrz
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zunmtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zunmtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zupgtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zupgtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function zupmtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function zupmtr
* Author: Intel Corporation
-* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
##############################################################################
# Contents: Native C interface to LAPACK
# Author: Intel Corporation
-# September, 2010
##############################################################################
# makefile for LAPACKE, used to build lapacke binary.
#
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK lsame
* Author: Intel Corporation
-* Created in January, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK lsame
* Author: Intel Corporation
-* Created in January, 2010
*****************************************************************************/
#include <stdio.h>
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
******************************************************************************
* Contents: Native C interface to LAPACK utility function
* Author: Intel Corporation
-* Created in February, 2010
*****************************************************************************/
#include "lapacke_utils.h"
#######################################################################
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGEeigen
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGEeigen
*
*> \par Further Details:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERsing
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGEeigen
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGEeigen
*
*> \par Further Details:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERsing
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGEeigen
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGEeigen
*
*> \par Further Details:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERsing
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GEeigen
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GEeigen
*
*> \par Further Details:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERsing
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
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))" ""
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 \
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 \
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 \
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 \
* =====================================================================
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
* =====================================================================
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
* =====================================================================
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
* =====================================================================
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
* =====================================================================
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
* =====================================================================
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
* =====================================================================
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
* =====================================================================
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
* =====================================================================
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
* =====================================================================
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
* =====================================================================
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
* =====================================================================
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
* =====================================================================
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
* =====================================================================
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
* =====================================================================
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
* =====================================================================
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
* -- 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
* -- 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
* -- 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
* -- 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
* =====================================================================
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
* =====================================================================
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
* =====================================================================
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
* =====================================================================
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
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHERcomputational
*
* =====================================================================
$ 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
* .. 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,
*> \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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGBcomputational
*
* =====================================================================
$ 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
*> \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.
*> \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
*>
*> \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
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexGBcomputational
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGBsolve
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexGBsolve
*
* =====================================================================
$ 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
*> 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
*> This also means that the solution X, estimated condition numbers,
*> and error bounds could be unreliable. If factorization fails with
*> 0<INFO<=N, then this contains the reciprocal pivot growth factor
-*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexGBsolve
*
* =====================================================================
$ 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
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGBcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGBcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexGEcomputational
* @precisions normal c -> s d z
*
* =====================================================================
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
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
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
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
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
*> \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
*> \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
*> \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
*> \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
*
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 )
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexGEeigen
*
* =====================================================================
$ 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
*
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 )
*> \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
*
$ 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
*> \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
*
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
*> 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
*> 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
*> 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.
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexGEsing
*
*> \par Further Details:
$ 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
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
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 )
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,
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 )
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,
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,
* (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
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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*
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))
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGEsolve
*
*> \par Contributors:
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
*> \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
*
* 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 ) )
* 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 )
* 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 )
* 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 )
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGEsolve
*
*> \par Contributors:
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
*> \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
*> \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
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
*>
*> \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
*> \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
*> 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
*> (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
*> \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
*> \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
* ..
* .. Local Scalars ..
LOGICAL LEFT, RIGHT, TRAN, NOTRAN
- INTEGER I, IB, LDWORK, KF
+ INTEGER I, IB, LDWORK, KF, Q
* ..
* .. External Functions ..
LOGICAL LSAME
*
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
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
*> \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
*> \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
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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.
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*
* 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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGEcomputational
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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.
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
* =====================================================================
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
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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGEauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \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:
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexGEsing
*
*> \par Contributors:
$ 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
* ..
* .. 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
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
*
* Return optimal workspace in WORK(1)
*
- WORK( 1 ) = MAXWRK
+ WORK( 1 ) = SROUNDUP_LWORK( MAXWRK )
*
RETURN
*
*> \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
*> \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
*> 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
*> 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.
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2018
-*
*> \ingroup complexGEsing
*
* =====================================================================
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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexGEsing
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
*> 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
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 ..
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexGEsolve
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexGEsolve
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexGEauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
* ..
* .. 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,
* 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 )
*
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 )
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
WORK( 1 ) = REAL( TSZO + LWO )
RETURN
*
-* End of ZGETSLS
+* End of CGETSLS
*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGBcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGBcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGEeigen
*
* =====================================================================
$ 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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date January 2015
-*
*> \ingroup complexGEeigen
*
* =====================================================================
$ 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
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
* ..
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,
* 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexGEeigen
*
* =====================================================================
$ 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
*> 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:
*> \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
*> 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:
*> \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
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
* ..
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 )
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexGEeigen
*
*> \par Further Details:
$ 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
*
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
*> \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
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date January 2015
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
*>
*> \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).
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
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
*> \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
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
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
* 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.
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
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
* 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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date August 2015
-*
*> \ingroup complexGEsing
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date August 2015
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
$ 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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
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 ..
*> 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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Contributor:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGTcomputational
*
* =====================================================================
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGTsolve
*
* =====================================================================
$ 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
*> \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
*> \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
*> \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
*
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
*
RETURN
*
-* END OF CHB2ST_KERNELS
+* End of CHB2ST_KERNELS
*
END
*> \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
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complexOTHEReigen
*
*> \par Further Details:
*
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
*> \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
$ RETURN
*
IF( N.EQ.1 ) THEN
- W( 1 ) = AB( 1, 1 )
+ W( 1 ) = REAL( AB( 1, 1 ) )
IF( WANTZ )
$ Z( 1, 1 ) = CONE
RETURN
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complexOTHEReigen
*
*> \par Further Details:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHEReigen
*
* =====================================================================
$ 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
$ M = 0
END IF
IF( M.EQ.1 ) THEN
- W( 1 ) = CTMP1
+ W( 1 ) = REAL( CTMP1 )
IF( WANTZ )
$ Z( 1, 1 ) = CONE
END IF
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHEReigen
*
*> \par Further Details:
*
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHEReigen
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHEReigen
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
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
* copy diagonal elements to D
*
DO 120 I = 1, N
- D( I ) = AB( KD1, I )
+ D( I ) = REAL( AB( KD1, I ) )
120 CONTINUE
*
ELSE
* 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
*
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexHEcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexHEcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexHEcomputational
*
*> \par References:
* =====================================================================
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
* 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
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
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
*> \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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complexHEeigen
*
*> \par Further Details:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexHEeigen
*
*> \par Further Details:
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
$ RETURN
*
IF( N.EQ.1 ) THEN
- W( 1 ) = A( 1, 1 )
+ W( 1 ) = REAL( A( 1, 1 ) )
IF( WANTZ )
$ A( 1, 1 ) = CONE
RETURN
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complexHEeigen
*
*> \par Further Details:
*
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
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexHEeigen
*
*> \par Contributors:
$ 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
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexHEeigen
*
*> \par Contributors:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexHEeigen
*
* =====================================================================
$ 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
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 )
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexHEeigen
*
*> \par Further Details:
*
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
*> \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
*
* 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
*
* 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
*
* 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
*
* 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 )
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complexHEeigen
*
*> \par Further Details:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexHEeigen
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexHEeigen
*
*> \par Contributors:
$ 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
*> \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
*> 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
*> \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
*> \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
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexHEcomputational
*
* =====================================================================
$ 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complexSYcomputational
*
* =====================================================================
$ 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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexHEsolve
*
*> \par Contributors:
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complexHEsolve
*>
*> \verbatim
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexHEsolve
*
* =====================================================================
$ 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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexHEsolve
*
* =====================================================================
$ 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
*
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 )
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexHEcomputational
*
*> \par Further Details:
* =====================================================================
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
*
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
*
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
*
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
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexHEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexHEcomputational
*
*> \par Further Details:
* =====================================================================
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
* 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 )
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complexHEcomputational
*
*> \par Further Details:
* =====================================================================
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
* 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 )
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexHEcomputational
*
*> \par Further Details:
* =====================================================================
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
*
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
*
*
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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complexHEcomputational
*
*> \par Further Details:
*
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
-*> \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 ===========
*
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download CHBTRD_HB2ST + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/chbtrd_hb2st.f">
+*> Download CHETRD_HB2ST + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/chetrd_hb2st.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/chbtrd_hb2st.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/chetrd_hb2st.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/chbtrd_hb2st.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/chetrd_hb2st.f">
*> [TXT]</a>
*> \endhtmlonly
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
*
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
* 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.
*
*
*> \htmlonly
*> Download CHETRD_HE2HB + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/chetrd.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/chetrd_he2hb.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/chetrd.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/chetrd_he2hb.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/chetrd.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/chetrd_he2hb.f">
*> [TXT]</a>
*> \endhtmlonly
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complexHEcomputational
*
*> \par Further Details:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexHEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*
END IF
*
20 CONTINUE
+ WORK( 1 ) = LWKOPT
RETURN
*
* End of CHETRF_AA
*> \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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexHEcomputational
*
*> \par Further Details:
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
*>
*> \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
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexHEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complexHEcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexHEcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complexHEcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexHEcomputational
*
*> \par Contributors:
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
*> \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
*
*> \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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complexHEcomputational
*
*> \par Contributors:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexGEcomputational
*
*> \par Further Details:
$ 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
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
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
*
* 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
*> \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
*> \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
*> \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
$ RETURN
*
IF( N.EQ.1 ) THEN
- W( 1 ) = AP( 1 )
+ W( 1 ) = REAL( AP( 1 ) )
RWORK( 1 ) = 1
IF( WANTZ )
$ Z( 1, 1 ) = ONE
*> \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
$ RETURN
*
IF( N.EQ.1 ) THEN
- W( 1 ) = AP( 1 )
+ W( 1 ) = REAL( AP( 1 ) )
IF( WANTZ )
$ Z( 1, 1 ) = CONE
RETURN
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHEReigen
*
* =====================================================================
$ 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
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 )
*> \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
* 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,
*
* 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
*
* 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
*
* 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 )
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHEReigen
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHEReigen
*
*> \par Contributors:
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERsolve
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexOTHERsolve
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*
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
*
*
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
*
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
*
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Contributors:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGBcomputational
*
* =====================================================================
$ 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
*
RETURN
*
+* End of CLA_GBRCOND_C
+*
END
*> \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
*
RETURN
*
+* End of CLA_GBRCOND_X
+*
END
*> 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
*
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexGBcomputational
*
* =====================================================================
$ 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,
END DO
*
RETURN
+*
+* End of CLA_GBRFSX_EXTENDED
+*
END
*> \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
END IF
END DO
CLA_GBRPVGRW = RPVGRW
+*
+* End of CLA_GBRPVGRW
+*
END
*> \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
*> \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
*
RETURN
*
+* End of CLA_GERCOND_C
+*
END
*> \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
*
RETURN
*
+* End of CLA_GERCOND_X
+*
END
*> 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
*
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexGEcomputational
*
* =====================================================================
$ 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,
END DO
*
RETURN
+*
+* End of CLA_GERFSX_EXTENDED
+*
END
*> \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
END IF
END DO
CLA_GERPVGRW = RPVGRW
+*
+* End of CLA_GERPVGRW
+*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexHEcomputational
*
*> \par Further Details:
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
*> \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
*
RETURN
*
+* End of CLA_HERCOND_C
+*
END
*> \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
*
RETURN
*
+* End of CLA_HERCOND_X
+*
END
*> 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
*
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexHEcomputational
*
* =====================================================================
$ 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,
END DO
*
RETURN
+*
+* End of CLA_HERFSX_EXTENDED
+*
END
*> as determined by CHETRF.
*> \endverbatim
*>
-*> \param[in] WORK
+*> \param[out] WORK
*> \verbatim
*> WORK is REAL array, dimension (2*N)
*> \endverbatim
*> \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
END IF
CLA_HERPVGRW = RPVGRW
+*
+* End of CLA_HERPVGRW
+*
END
*> \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
*
END DO
END DO
+*
+* End of CLA_LIN_BERR
+*
END
*> \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
*
RETURN
*
+* End of CLA_PORCOND_C
+*
END
*> \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
*
RETURN
*
+* End of CLA_PORCOND_X
+*
END
*> 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
*
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexPOcomputational
*
* =====================================================================
$ 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,
END DO
*
RETURN
+*
+* End of CLA_PORFSX_EXTENDED
+*
END
*> \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
END IF
CLA_PORPVGRW = RPVGRW
+*
+* End of CLA_PORPVGRW
+*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexSYcomputational
*
*> \par Further Details:
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
*> \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
*
RETURN
*
+* End of CLA_SYRCOND_C
+*
END
*> \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
*
RETURN
*
+* End of CLA_SYRCOND_X
+*
END
*> 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
*
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexSYcomputational
*
* =====================================================================
$ 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,
END DO
*
RETURN
+*
+* End of CLA_SYRFSX_EXTENDED
+*
END
*> \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
END IF
CLA_SYRPVGRW = RPVGRW
+*
+* End of CLA_SYRPVGRW
+*
END
*> \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
X(I) = S
10 CONTINUE
RETURN
+*
+* End of CLA_WWADDW
+*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Further Details:
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
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
*
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)
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
*
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)
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
*> \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
-*> \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 ===========
*
*> \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
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHERcomputational
*
* =====================================================================
$ 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,
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
* =====================================================================
$ 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complexHEcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexHEcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complexHEcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
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,
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 )
*
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.
*
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
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.
* 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.
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Further Details:
*> 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:
* =====================================================================
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
*> \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
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
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
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
*
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexOTHERcomputational
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Contributors:
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
*>
*> \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
*> \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
*> \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
*> \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
*> \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
* =====================
*>
*> \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
*> 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].
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
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
*> 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
*> \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
*>
*> \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
*> 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
*>
* =====================
*>
*> \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
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
* ..
* .. 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
RIGHT = LSAME( SIDE, 'R' )
IF (LEFT) THEN
LW = N * NB
+ Q = M
ELSE
LW = M * NB
+ Q = N
END IF
*
INFO = 0
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
*> \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
* ..
* .. 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
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
*> \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
* ..
* .. 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
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
*> \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
*> \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
* ..
* .. 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
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
*> \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
* ..
* .. 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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
* ..
* .. 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
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
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
*> \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
* ..
* .. 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
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
*> \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
*> \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
* ..
* .. 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
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
*> \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
* ..
* .. 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
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
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
*> \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
* ..
* .. 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
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
*> \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
* .. 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
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
*> \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
* .. 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
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
*> \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
* .. 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
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
*> \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
*> \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
*
RETURN
*
-* End of ZLAPMT
+* End of CLAPMR
*
END
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date January 2021
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Contributors:
$ 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,
*> \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
*> \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
*> \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
--- /dev/null
+*> \brief \b CLAQZ0
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download CLAQZ0 + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/CLAQZ0.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/CLAQZ0.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/CLAQZ0.f">
+*> [TXT]</a>
+*> \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
--- /dev/null
+*> \brief \b CLAQZ1
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download CLAQZ1 + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/CLAQZ1.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/CLAQZ1.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/CLAQZ1.f">
+*> [TXT]</a>
+*> \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
--- /dev/null
+*> \brief \b CLAQZ2
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download CLAQZ2 + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/CLAQZ2.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/CLAQZ2.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/CLAQZ2.f">
+*> [TXT]</a>
+*> \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
--- /dev/null
+*> \brief \b CLAQZ3
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download CLAQZ3 + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/CLAQZ3.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/CLAQZ3.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/CLAQZ3.f">
+*> [TXT]</a>
+*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Contributors:
$ 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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2013
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Further Details:
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
*> \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
*> \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
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 )
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
INTEGER LV
PARAMETER ( LV = 128 )
REAL TWOPI
- PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 )
+ PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 )
* ..
* .. Local Scalars ..
INTEGER I, IL, IV
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Contributors:
$ 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
*> \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
+++ /dev/null
-*> \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
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/clartg.f">
-*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/clartg.f">
-*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/clartg.f">
-*> [TXT]</a>
-*> \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
--- /dev/null
+!> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
+++ /dev/null
-*> \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
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/classq.f">
-*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/classq.f">
-*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/classq.f">
-*> [TXT]</a>
-*> \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
--- /dev/null
+!> \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
+!> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/classq.f90">
+!> [TGZ]</a>
+!> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/classq.f90">
+!> [ZIP]</a>
+!> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/classq.f90">
+!> [TXT]</a>
+!> \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
*> 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.
*>
*> \verbatim
*> NB is INTEGER
*> The column block size to be used in the blocked QR.
-*> NB > M.
+*> NB > 0.
*> \endverbatim
*>
*> \param[in,out] A
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complexSYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexSYcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complexSYcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*
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)
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)
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Contributors:
* =====================================================================
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
*> 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.
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complexGEcomputational
*
*> \par Contributors:
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
*>
*> 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",
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complexGEcomputational
*
*> \par Contributors:
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
*> \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
* 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 ) )
* 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 ) )
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERsolve
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexOTHERsolve
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*
* 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexPOcomputational
*
* =====================================================================
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexPOsolve
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexPOsolve
*
* =====================================================================
$ 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
*> \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
*
* 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
*
* 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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERsolve
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexOTHERsolve
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*
* 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
*> \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
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
*
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexPTcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERsolve
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexOTHERsolve
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Contributors:
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Contributors:
$ 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexSYcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexSYcomputational
*
*> \par Contributors:
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
*> \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
*> 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).
*>
*> 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.
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complexSYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complexSYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complexSYcomputational
*
*> \par References:
* =====================================================================
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
* 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
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
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
*> \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
*> \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
*> \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
*> 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
*> \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
*> \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
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexSYcomputational
*
* =====================================================================
$ 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
*> \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
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
*> \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
*
*> \htmlonly
*> Download CSYSV_AA_2STAGE + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/csysv_aasen_2stage.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/csysv_aa_2stage.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/csysv_aasen_2stage.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/csysv_aa_2stage.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/csysv_aasen_2stage.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/csysv_aa_2stage.f">
*> [TXT]</a>
*> \endhtmlonly
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complexSYcomputational
*
* =====================================================================
$ 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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexSYsolve
*
*> \par Contributors:
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexSYsolve
*
*> \par Contributors:
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexSYsolve
*
* =====================================================================
$ 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
*> 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
*> 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
*>
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexSYsolve
*
* =====================================================================
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complexSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*
END IF
*
20 CONTINUE
+ WORK( 1 ) = LWKOPT
RETURN
*
* End of CSYTRF_AA
*> \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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexSYcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complexSYcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexSYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexSYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexSYcomputational
*
*> \par Contributors:
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
*> \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
*
*> \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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexSYcomputational
*
*> \par Contributors:
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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexGEauxiliary
*
*> \par Further Details:
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
* .. 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 ..
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 )
* "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 ) )
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
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complexGEcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexSYauxiliary
*
*> \par Contributors:
$ 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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexSYcomputational
*
*> \par Contributors:
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*>
*> \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
*> \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
*> 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
*> 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
*>
*> 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.
*>
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Further Details:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
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
*> \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:
$ 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
$ 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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complexOTHERcomputational
*
*> \par Contributors:
*> 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
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup complexOTHERcomputational
*
*> \par Further Details:
$ 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
*> \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,
*> \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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHERcomputational
*
* =====================================================================
$ 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
*> 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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complexOTHERcomputational
*
* =====================================================================
$ 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
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
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 )
$ 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
*
* 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
$ 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
*> \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
*> \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
*> \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
END IF
END IF
END IF
- LWKOPT = WORK( 1 )
+ LWKOPT = REAL( WORK( 1 ) )
LWKOPT = MAX (LWKOPT, MN)
END IF
*
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> Download CUNGTSQR + dependencies
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/cuntsqr.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zungtsqr.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/cungtsqr.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zungtsqr.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/cungtsqr.f">
*> [TXT]</a>
+*> \endhtmlonly
*>
* Definition:
* ===========
*> \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).
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
-*> \ingroup comlexOTHERcomputational
+*> \ingroup complexOTHERcomputational
*
*> \par Contributors:
* ==================
$ 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
*> [ZIP]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/cunhr_col.f">
*> [TXT]</a>
+*> \endhtmlonly
*>
* Definition:
* ===========
*> 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
*>
*> 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].
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complexOTHERcomputational
*
*> \par Contributors:
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
*> \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
*
*> \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
*> \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
*> \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
*
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
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,
$ -1 )
END IF
END IF
- LWKOPT = MAX( 1, NW*NB )
+ LWKOPT = NW*NB
ELSE
LWKOPT = 1
END IF
*> \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
*
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
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
*
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
*
*> \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
*> \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
*
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
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
*
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
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 ) )
*> \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
*> \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
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 ) )
*> \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
*
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
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
*
*
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
*
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 ) )
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Contributors:
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
*> \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
*> \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
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 ) )
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERcomputational
*
*> \par Contributors:
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
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
*
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 ) )
*> \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
*
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
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
*
$ -1 )
END IF
END IF
- LWKOPT = MAX( 1, NW )*NB
+ LWKOPT = NW*NB
WORK( 1 ) = LWKOPT
END IF
*
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleOTHERcomputational
*
* =====================================================================
$ 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
* .. 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGBcomputational
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doubleGBcomputational
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGBsolve
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doubleGBsolve
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doubleGBsolve
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGBcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGBcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleGEeigen
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
*
* @precisions fortran d -> s
*
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
*
* @precisions fortran d -> s
*
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> 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.
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleGEsing
*
*> \par Further Details:
$ 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
* (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
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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download DGEQRT + dependencies
+*> Download DGELQT + dependencies
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dgelqt.f">
*> [TGZ]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dgelqt.f">
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download DGEQRT3 + dependencies
+*> Download DGELQT3 + dependencies
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dgelqt3.f">
*> [TGZ]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dgelqt3.f">
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*
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 )
*
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleGEsolve
*
*> \par Contributors:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGEsolve
*
*> \par Contributors:
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
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
*> \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
* ..
* .. Local Scalars ..
LOGICAL LEFT, RIGHT, TRAN, NOTRAN
- INTEGER I, IB, LDWORK, KF
+ INTEGER I, IB, LDWORK, KF, Q
* ..
* .. External Functions ..
LOGICAL LSAME
*
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
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
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
*> 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
*> 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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.
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*
* 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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGEcomputational
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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.
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleGEauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \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:
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleGEsing
*
*> \par Contributors:
$ 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
* ..
* .. 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
END IF
MAXWRK = MAX( MAXWRK, MINWRK )
- WORK( 1 ) = MAXWRK
+ WORK( 1 ) = DROUNDUP_LWORK( MAXWRK )
*
IF( LWORK.LT.MINWRK .AND. .NOT.LQUERY ) THEN
INFO = -12
*
* Return optimal workspace in WORK(1)
*
- WORK( 1 ) = MAXWRK
+ WORK( 1 ) = DROUNDUP_LWORK( MAXWRK )
*
RETURN
*
*> \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
*> \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
*> 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
*> 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
*> 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.
*>
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2018
-*
*> \ingroup doubleGEsing
*
* =====================================================================
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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleGEsing
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
*> 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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doubleGEsolve
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doubleGEsolve
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleGEauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
* ..
* .. 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,
* 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 )
*
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 )
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGBcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGBcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGEeigen
*
* =====================================================================
$ 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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date January 2015
-*
*> \ingroup doubleGEeigen
*
* =====================================================================
$ 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
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
* ..
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,
* 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleGEeigen
*
*> \par Further Details:
$ 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
*> \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
*> 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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date January 2015
-*
*> \ingroup doubleGEeigen
*
* =====================================================================
$ 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
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
* ..
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doubleGEeigen
*
*> \par Further Details:
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date January 2015
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
*>
*> \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).
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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date August 2015
-*
*> \ingroup doubleGEsing
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date August 2015
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
$ 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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
* 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
*> 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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Contributors:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGTcomputational
*
* =====================================================================
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGTsolve
*
* =====================================================================
$ 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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
$ 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
*
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
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
*
* 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Contributors:
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGBcomputational
*
* =====================================================================
$ 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
*
RETURN
*
+* End of DLA_GBRCOND
+*
END
*> 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
*
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleGBcomputational
*
* =====================================================================
$ 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,
END DO
*
RETURN
+*
+* End of DLA_GBRFSX_EXTENDED
+*
END
*> \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
END IF
END DO
DLA_GBRPVGRW = RPVGRW
+*
+* End of DLA_GBRPVGRW
+*
END
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGEcomputational
*
* =====================================================================
$ 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
*
RETURN
*
+* End of DLA_GERCOND
+*
END
*> 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
*
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleGEcomputational
*
* =====================================================================
$ 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,
END DO
*
RETURN
+*
+* End of DLA_GERFSX_EXTENDED
+*
END
*> \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
END IF
END DO
DLA_GERPVGRW = RPVGRW
+*
+* End of DLA_GERPVGRW
+*
END
*> \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
*
END DO
END DO
+*
+* End of DLA_LIN_BERR
+*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doublePOcomputational
*
* =====================================================================
$ 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
*
RETURN
*
+* End of DLA_PORCOND
+*
END
*> 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
*
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doublePOcomputational
*
* =====================================================================
$ 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,
END DO
*
RETURN
+*
+* End of DLA_PORFSX_EXTENDED
+*
END
*> \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
END IF
DLA_PORPVGRW = RPVGRW
+*
+* End of DLA_PORPVGRW
+*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleSYcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleSYcomputational
*
* =====================================================================
$ 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
*
RETURN
*
+* End of DLA_SYRCOND
+*
END
*> 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
*
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleSYcomputational
*
* =====================================================================
$ 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,
END DO
*
RETURN
+*
+* End of DLA_SYRFSX_EXTENDED
+*
END
*> \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
END IF
DLA_SYRPVGRW = RPVGRW
+*
+* End of DLA_SYRPVGRW
+*
END
*> \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
X(I) = S
10 CONTINUE
RETURN
+*
+* End of DLA_WWADDW
+*
END
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
* ..
* .. Local Scalars ..
INTEGER I, JLAST
- DOUBLE PRECISION ALTSGN, ESTOLD, TEMP
+ DOUBLE PRECISION ALTSGN, ESTOLD, TEMP, XS
* ..
* .. External Functions ..
INTEGER IDAMAX
EXTERNAL DCOPY
* ..
* .. Intrinsic Functions ..
- INTRINSIC ABS, DBLE, NINT, SIGN
+ INTRINSIC ABS, DBLE, NINT
* ..
* .. Executable Statements ..
*
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
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.
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \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
*> \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
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
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
*
RETURN
*
-* End of DLADIV12
+* End of DLADIV2
*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
$ 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
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
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
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
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
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
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
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
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
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
* =====================================================================
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
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
* =====================================================================
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
END IF
RETURN
*
-* End OF DLAED5
+* End of DLAED5
*
END
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
$ 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,
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
$ 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,
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
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
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*>
*> 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
*
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
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 )
*
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.
*
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
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
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.
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Contributors:
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
*> \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
*>
*> \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'
*> \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
*> \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
*> \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
*> 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].
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
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
*> \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
*>
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
* ..
* .. 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
RIGHT = LSAME( SIDE, 'R' )
IF (LEFT) THEN
LW = N * NB
+ Q = M
ELSE
LW = MB * NB
+ Q = N
END IF
*
INFO = 0
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \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
*
* =====================================================================
*
+*
* .. 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
* ..
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
*> \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
* ..
* .. 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
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
*> \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
*> \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
* ..
* .. 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
* ..
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
*> \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
* ..
* .. 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
* ..
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
* ..
* .. 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
* ..
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
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
*> \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
*> \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
* ..
* .. 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
* ..
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
*> \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
* .. 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
* ..
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
*> \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
* .. 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
* ..
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
*> \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
* .. 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
* ..
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup doubleGEcomputational
*
*> \par Contributors:
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
*>
*> 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",
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup doubleGEcomputational
*
*> \par Contributors:
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
*> \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
*> \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
*
RETURN
*
-* End of ZLAPMT
+* End of DLAPMR
*
END
*> \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
*> \verbatim
*>
*> DLAPY2 returns sqrt(x**2+y**2), taking care not to cause unnecessary
-*> overflow.
+*> overflow and unnecessary underflow.
*> \endverbatim
*
* Arguments:
*> \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
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
* ..
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 )
*> \verbatim
*>
*> DLAPY3 returns sqrt(x**2+y**2+z**2), taking care not to cause
-*> unnecessary overflow.
+*> unnecessary overflow and unnecessary underflow.
*> \endverbatim
*
* Arguments:
*> \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
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.
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Contributors:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date January 2021
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Contributors:
$ 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,
*> \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
*> \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
*> \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
*> \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
--- /dev/null
+*> \brief \b DLAQZ0
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download DLAQZ0 + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlaqz0.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlaqz0.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlaqz0.f">
+*> [TXT]</a>
+*> \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
--- /dev/null
+*> \brief \b DLAQZ1
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download DLAQZ1 + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlaqz1.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlaqz1.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlaqz1.f">
+*> [TXT]</a>
+*> \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
--- /dev/null
+*> \brief \b DLAQZ2
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download DLAQZ2 + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlaqz2.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlaqz2.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlaqz2.f">
+*> [TXT]</a>
+*> \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
--- /dev/null
+*> \brief \b DLAQZ3
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download DLAQZ3 + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlaqz3.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlaqz3.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlaqz3.f">
+*> [TXT]</a>
+*> \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
--- /dev/null
+*> \brief \b DLAQZ4
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download DLAQZ4 + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlaqz4.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlaqz4.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlaqz4.f">
+*> [TXT]</a>
+*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Contributors:
$ 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2013
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Further Details:
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
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
RETURN
*
-* end of DLARRC
+* End of DLARRC
*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup OTHERauxiliary
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
$ 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
RETURN
*
-* end of DLARRE
+* End of DLARRE
*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*
RETURN
*
-* END OF DLARRR
+* End of DLARRR
*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Contributors:
$ 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
*> \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
+++ /dev/null
-*> \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
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlartg.f">
-*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlartg.f">
-*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlartg.f">
-*> [TXT]</a>
-*> \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
--- /dev/null
+!> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*
* 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,...).
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup auxOTHERcomputational
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Further Details:
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
*> \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
*> \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
*> \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
*> \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
+++ /dev/null
-*> \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
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlassq.f">
-*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlassq.f">
-*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlassq.f">
-*> [TXT]</a>
-*> \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
--- /dev/null
+!> \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
+!> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlassq.f90">
+!> [TGZ]</a>
+!> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlassq.f90">
+!> [ZIP]</a>
+!> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlassq.f90">
+!> [TXT]</a>
+!> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> 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.
*>
*> \verbatim
*> NB is INTEGER
*> The column block size to be used in the blocked QR.
-*> NB > M.
+*> NB > 0.
*> \endverbatim
*>
*> \param[in,out] A
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup doubleSYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleSYcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup doubleSYcomputational
*
*> \par Contributors:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Contributors:
* =====================================================================
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
*> 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.
*> \verbatim
*> MB is INTEGER
*> The row block size to be used in the blocked QR.
-*> MB > N.
+*> MB > 0.
*> \endverbatim
*>
*> \param[in] NB
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
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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
$ 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
*> \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,
*> \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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleOTHERcomputational
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup doubleOTHERcomputational
*
* =====================================================================
* -- 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
*
* 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
$ 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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> [ZIP]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dorgtsqr.f">
*> [TXT]</a>
-*>
+*> \endhtmlonly
+*
* Definition:
* ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Contributors:
$ 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
*> [ZIP]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dorhr_col.f">
*> [TXT]</a>
-*>
+*> \endhtmlonly
+*
* Definition:
* ===========
*
*> 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
*>
*> 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].
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Contributors:
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
*> \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
*
*> \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
*> \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
*> \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
*
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
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
*
$ -1 )
END IF
END IF
- LWKOPT = MAX( 1, NW )*NB
+ LWKOPT = NW*NB
WORK( 1 ) = LWKOPT
END IF
*
*> \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
*
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
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
*
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
*
*> \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
*> \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
*
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
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
*
*
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
*
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 ) )
*> \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
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 ) )
*> \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
*
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
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
*
*
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
*
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 ) )
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Contributors:
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
*> \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
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 ) )
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Contributors:
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
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
*
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 ) )
*> \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
*
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
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
*
$ -1 )
END IF
END IF
- LWKOPT = MAX( 1, NW )*NB
+ LWKOPT = NW*NB
WORK( 1 ) = LWKOPT
END IF
*
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERsolve
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doubleOTHERsolve
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doublePOcomputational
*
* =====================================================================
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doublePOsolve
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doublePOsolve
*
* =====================================================================
$ 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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERsolve
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doubleOTHERsolve
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doublePTcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*
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
*
RETURN
*
-* END OF DSB2ST_KERNELS
+* End of DSB2ST_KERNELS
*
END
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleOTHEReigen
*
*> \par Further Details:
*
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleOTHEReigen
*
*> \par Further Details:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleOTHEReigen
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleOTHEReigen
*
*> \par Further Details:
*
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleOTHEReigen
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleOTHEReigen
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
*> \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
*> \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
*
RETURN
*
-* End of DSGESV.
+* End of DSGESV
*
END
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleOTHEReigen
*
* =====================================================================
$ 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHEReigen
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleOTHEReigen
*
*> \par Contributors:
$ 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
*> \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
*
RETURN
*
-* End of DSPOSV.
+* End of DSPOSV
*
END
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERsolve
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doubleOTHERsolve
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup auxOTHERcomputational
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Contributors:
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Contributors:
$ 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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleOTHEReigen
*
*> \par Contributors:
$ 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleSYcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doubleSYcomputational
*
*> \par Contributors:
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
*> \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
*> 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).
*>
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleSYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleSYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleSYcomputational
*
*> \par References:
* =====================================================================
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
*> \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
*
*> \htmlonly
*> Download DSYEV_2STAGE + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dsyevd_2stage.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dsyev_2stage.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dsyevd_2stage.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dsyev_2stage.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dsyevd_2stage.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dsyev_2stage.f">
*> [TXT]</a>
*> \endhtmlonly
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleSYeigen
*
*> \par Further Details:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleSYeigen
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleSYeigen
*
*> \par Contributors:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleSYeigen
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleSYeigen
*
*> \par Contributors:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleSYeigen
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleSYeigen
*
*> \par Further Details:
*
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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleSYeigen
*
*> \par Further Details:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleSYeigen
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleSYeigen
*
*> \par Contributors:
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doubleSYcomputational
*
* =====================================================================
$ 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleSYsolve
*
* =====================================================================
$ 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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleSYsolve
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doubleSYsolve
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doubleSYsolve
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleSYsolve
*
* =====================================================================
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup doubleSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleSYcomputational
*
*> \par Further Details:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup real16OTHERcomputational
*
*> \par Further Details:
*
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
* 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.
*
*
*> \htmlonly
*> Download DSYTRD_SY2SB + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dsytrd.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dsytrd_sy2sb.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dsytrd.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dsytrd_sy2sb.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dsytrd.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dsytrd_sy2sb.f">
*> [TXT]</a>
*> \endhtmlonly
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleSYcomputational
*
*> \par Further Details:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*
END IF
*
20 CONTINUE
+ WORK( 1 ) = LWKOPT
RETURN
*
* End of DSYTRF_AA
*> \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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleSYcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doubleSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleSYcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleSYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doubleSYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleSYcomputational
*
*> \par Contributors:
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
*> \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
*
*> \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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doubleSYcomputational
*
*> \par Contributors:
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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGEauxiliary
*
*> \par Further Details:
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
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 )
END IF
*
WEAK = .FALSE.
- DTRONG = .FALSE.
+ STRONG = .FALSE.
*
* Make a local copy of selected block
*
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 )
* "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
*
*
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 )
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 )
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 )
$ 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
*
$ 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:
*
*
* 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
*
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 )
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 )
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleGEcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleSYauxiliary
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleSYcomputational
*
*> \par Contributors:
$ 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
*> \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
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download DTPQRT + dependencies
+*> Download DTPLQT + dependencies
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dtplqt.f">
*> [TGZ]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dtplqt.f">
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download DTPMQRT + dependencies
+*> Download DTPMLQT + dependencies
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dtpmlqt.f">
*> [TGZ]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dtpmlqt.f">
*> \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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
EXTERNAL LSAME
* ..
* .. External Subroutines ..
- EXTERNAL XERBLA, DLARFB, DTPRFB
+ EXTERNAL XERBLA, DTPRFB
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Further Details:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
-* @precisions fortran d -> s
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
$ 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
$ 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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date February 2014
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> = 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
* .. 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
*
*
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
*
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
*
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
*> \author NAG Ltd.
*> \author Nick R. Papior
*
-*> \date July 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup auxOTHERauxiliary
*
*> \par Further Details:
#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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
*> 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
*
* ================================================================
* .. 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 )
* ..
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date February 2014
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
--- /dev/null
+!> \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
--- /dev/null
+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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realOTHERcomputational
*
* =====================================================================
$ 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
* .. 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complexOTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGBcomputational
*
* =====================================================================
$ 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
*> \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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realGBcomputational
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGBsolve
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realGBsolve
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realGBsolve
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGBcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGBcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realGEeigen
*
* =====================================================================
$ 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
*> \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
*
$ 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
*> \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
*
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
*> 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
*> 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.
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realGEsing
*
*> \par Further Details:
$ 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
* (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
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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*>
*> \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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*
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 )
*
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup realGEsolve
*
*> \par Contributors:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGEsolve
*
*> \par Contributors:
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
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
*>
*> 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
*> 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
*> (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
*> \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
*> \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
* ..
* .. Local Scalars ..
LOGICAL LEFT, RIGHT, TRAN, NOTRAN
- INTEGER I, IB, LDWORK, KF
+ INTEGER I, IB, LDWORK, KF, Q
* ..
* .. External Functions ..
LOGICAL LSAME
*
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
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
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
*> 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
*> 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
* =====================================================================
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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.
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*
* 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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGEcomputational
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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.
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
* =====================================================================
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
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
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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGEauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \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:
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realGEsing
*
*> \par Contributors:
$ 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
* ..
* .. 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
END IF
MAXWRK = MAX( MAXWRK, MINWRK )
- WORK( 1 ) = MAXWRK
+ WORK( 1 ) = SROUNDUP_LWORK( MAXWRK )
*
IF( LWORK.LT.MINWRK .AND. .NOT.LQUERY ) THEN
INFO = -12
*
* Return optimal workspace in WORK(1)
*
- WORK( 1 ) = MAXWRK
+ WORK( 1 ) = SROUNDUP_LWORK( MAXWRK )
*
RETURN
*
*> \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
*> \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
*> 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
*> 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
*> 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.
*>
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2018
-*
*> \ingroup realGEsing
*
* =====================================================================
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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realGEsing
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
*> 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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realGEsolve
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realGEsolve
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realGEauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
* ..
* .. 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,
* 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 )
*
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 )
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGBcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGBcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGEeigen
*
* =====================================================================
$ 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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date January 2015
-*
*> \ingroup realGEeigen
*
* =====================================================================
$ 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
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
* ..
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,
* 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup realGEeigen
*
*> \par Further Details:
$ 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
*> \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
*> 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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date January 2015
-*
*> \ingroup realGEeigen
*
* =====================================================================
$ 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
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
* ..
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 )
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realGEeigen
*
*> \par Further Details:
$ 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
*> \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
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download SGGHRD + dependencies
+*> Download SGGHD3 + dependencies
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/sgghd3.f">
*> [TGZ]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/sgghd3.f">
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date January 2015
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
*>
*> \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).
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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date August 2015
-*
*> \ingroup realGEsing
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date August 2015
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
$ 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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
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
* 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
*> 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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup realOTHERcomputational
*
*> \par Contributors:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGTcomputational
*
* =====================================================================
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGTsolve
*
* =====================================================================
$ 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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
$ 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
*
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
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
*
* 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Contributors:
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
*> \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
*> \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
*> \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
*
RETURN
*
+* End of SLA_GBRCOND
+*
END
*> 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
*
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup realGBcomputational
*
* =====================================================================
$ 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,
END DO
*
RETURN
+*
+* End of SLA_GBRFSX_EXTENDED
+*
END
*> \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
END IF
END DO
SLA_GBRPVGRW = RPVGRW
+*
+* End of SLA_GBRPVGRW
+*
END
*> \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
*> \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
*
RETURN
*
+* End of SLA_GERCOND
+*
END
*> 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
*
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGEcomputational
*
* =====================================================================
$ 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,
END DO
*
RETURN
+*
+* End of SLA_GERFSX_EXTENDED
+*
END
*> \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
END IF
END DO
SLA_GERPVGRW = RPVGRW
+*
+* End of SLA_GERPVGRW
+*
END
*> \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
*
END DO
END DO
+*
+* End of SLA_LIN_BERR
+*
END
*> \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
*
RETURN
*
+* End of SLA_PORCOND
+*
END
*> 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
*
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realPOcomputational
*
* =====================================================================
$ 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,
END DO
*
RETURN
+*
+* End of SLA_PORFSX_EXTENDED
+*
END
*> 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
*> \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
END IF
SLA_PORPVGRW = RPVGRW
+*
+* End of SLA_PORPVGRW
+*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup realSYcomputational
*
*> \par Further Details:
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
*> \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
*
RETURN
*
+* End of SLA_SYRCOND
+*
END
*> 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
*
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realSYcomputational
*
* =====================================================================
$ 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,
END DO
*
RETURN
+*
+* End of SLA_SYRFSX_EXTENDED
+*
END
*> \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
END IF
SLA_SYRPVGRW = RPVGRW
+*
+* End of SLA_SYRPVGRW
+*
END
*> \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
X(I) = S
10 CONTINUE
RETURN
+*
+* End of SLA_WWADDW
+*
END
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup realOTHERauxiliary
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
* ..
* .. Local Scalars ..
INTEGER I, JLAST
- REAL ALTSGN, ESTOLD, TEMP
+ REAL ALTSGN, ESTOLD, TEMP, XS
* ..
* .. External Functions ..
INTEGER ISAMAX
EXTERNAL SCOPY
* ..
* .. Intrinsic Functions ..
- INTRINSIC ABS, NINT, REAL, SIGN
+ INTRINSIC ABS, NINT, REAL
* ..
* .. Executable Statements ..
*
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
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.
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \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
*> \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
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
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
*
RETURN
*
-* End of SLADIV
+* End of SLADIV2
*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
$ 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
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
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
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
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
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
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
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
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
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
* =====================================================================
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
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
* =====================================================================
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
END IF
RETURN
*
-* End OF SLAED5
+* End of SLAED5
*
END
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
$ 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,
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
$ 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,
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
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
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*>
*> 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
*
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
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 )
*
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.
*
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
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
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.
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Further Details:
*> 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:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup realOTHERcomputational
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Contributors:
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
*> \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
*> \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
*> \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
*> \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
*> 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].
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
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
*> 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:
*> \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
*>
*> \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
*> 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
*>
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
* ..
* .. 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
RIGHT = LSAME( SIDE, 'R' )
IF (LEFT) THEN
LW = N * NB
+ Q = M
ELSE
LW = MB * NB
+ Q = N
END IF
*
INFO = 0
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \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
*
* =====================================================================
*
+*
* .. 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
* ..
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
*> \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
* ..
* .. 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
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
*> \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
*> \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
* ..
* .. 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
* ..
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
*> \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
* ..
* .. 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
* ..
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
* ..
* .. 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
* ..
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
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
*> \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
*> \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
* ..
* .. 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
* ..
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
*> \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
* .. 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
* ..
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
*> \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
* .. 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
* ..
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
*> \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
* .. 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
* ..
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup realGEcomputational
*
*> \par Contributors:
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
*>
*> 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",
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup realGEcomputational
*
*> \par Contributors:
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
*> \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
*> \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
*
RETURN
*
-* End of ZLAPMT
+* End of SLAPMR
*
END
*> \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
*> \verbatim
*>
*> SLAPY2 returns sqrt(x**2+y**2), taking care not to cause unnecessary
-*> overflow.
+*> overflow and unnecessary underflow.
*> \endverbatim
*
* Arguments:
*> \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
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 )
*> \verbatim
*>
*> SLAPY3 returns sqrt(x**2+y**2+z**2), taking care not to cause
-*> unnecessary overflow.
+*> unnecessary overflow and unnecessary underflow.
*> \endverbatim
*
* Arguments:
*> \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
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.
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup realOTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup realOTHERauxiliary
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date January 2021
-*
*> \ingroup realOTHERauxiliary
*
*> \par Contributors:
$ 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,
*> \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
*> \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
*> \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
*> \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
--- /dev/null
+*> \brief \b SLAQZ0
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download SLAQZ0 + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/slaqz0.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/slaqz0.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/slaqz0.f">
+*> [TXT]</a>
+*> \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
--- /dev/null
+*> \brief \b SLAQZ1
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download SLAQZ1 + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/slaqz1.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/slaqz1.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/slaqz1.f">
+*> [TXT]</a>
+*> \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
--- /dev/null
+*> \brief \b SLAQZ2
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download SLAQZ2 + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/slaqz2.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/slaqz2.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/slaqz2.f">
+*> [TXT]</a>
+*> \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
--- /dev/null
+*> \brief \b SLAQZ3
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download SLAQZ3 + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/slaqz3.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/slaqz3.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/slaqz3.f">
+*> [TXT]</a>
+*> \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
--- /dev/null
+*> \brief \b SLAQZ4
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download SLAQZ4 + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/slaqz4.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/slaqz4.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/slaqz4.f">
+*> [TXT]</a>
+*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Contributors:
$ 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2013
-*
*> \ingroup realOTHERauxiliary
*
*> \par Further Details:
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
INTEGER LV
PARAMETER ( LV = 128 )
REAL TWOPI
- PARAMETER ( TWOPI = 6.2831853071795864769252867663E+0 )
+ PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839E+0 )
* ..
* .. Local Scalars ..
INTEGER I, IL, IL2, IV
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
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
RETURN
*
-* end of SLARRC
+* End of SLARRC
*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup OTHERauxiliary
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
$ 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
RETURN
*
-* end of SLARRE
+* End of SLARRE
*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*
RETURN
*
-* END OF SLARRR
+* End of SLARRR
*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Contributors:
$ 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
*> \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
+++ /dev/null
-*> \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
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/slartg.f">
-*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/slartg.f">
-*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/slartg.f">
-*> [TXT]</a>
-*> \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
--- /dev/null
+!> \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
*> \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
END IF
RETURN
*
-* End of SLARTG
+* End of SLARTGP
*
END
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*
* 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup auxOTHERcomputational
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Further Details:
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
*> \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
*> \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
*> \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
*> \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
+++ /dev/null
-*> \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
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/slassq.f">
-*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/slassq.f">
-*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/slassq.f">
-*> [TXT]</a>
-*> \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
--- /dev/null
+!> \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
+!> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/slassq.f90">
+!> [TGZ]</a>
+!> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/slassq.f90">
+!> [ZIP]</a>
+!> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/slassq.f90">
+!> [TXT]</a>
+!> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> 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.
*>
*> \verbatim
*> NB is INTEGER
*> The column block size to be used in the blocked QR.
-*> NB > M.
+*> NB > 0.
*> \endverbatim
*>
*> \param[in,out] A
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup realOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup realSYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup singleSYcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup realSYcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup doubleOTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Contributors:
* =====================================================================
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
*> 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.
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
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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
$ 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
*> \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,
*> \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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup realOTHERcomputational
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup realOTHERcomputational
*
* =====================================================================
$ 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
*
* 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
$ 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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> [ZIP]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/sorgtsqr.f">
*> [TXT]</a>
-*>
+*> \endhtmlonly
+*
* Definition:
* ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup singleOTHERcomputational
*
*> \par Contributors:
$ 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
*
* 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
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
* (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.
*> [ZIP]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/sorhr_col.f">
*> [TXT]</a>
-*>
+*> \endhtmlonly
+*
* Definition:
* ===========
*
*> 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
*>
*> 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].
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup singleOTHERcomputational
*
*> \par Contributors:
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
*> \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
*
*> \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
*> \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
*> \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
*
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
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
*
$ -1 )
END IF
END IF
- LWKOPT = MAX( 1, NW )*NB
+ LWKOPT = NW*NB
WORK( 1 ) = LWKOPT
END IF
*
*> \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
*
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
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
*
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
*
*> \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
*> \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
*
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
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
*
*
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
*
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 ) )
*> \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
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 ) )
*> \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
*
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
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
*
*
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
*
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 ) )
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Contributors:
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
*> \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
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 ) )
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Contributors:
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
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
*
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 ) )
*> \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
*
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
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
*
$ -1 )
END IF
END IF
- LWKOPT = MAX( 1, NW )*NB
+ LWKOPT = NW*NB
WORK( 1 ) = LWKOPT
END IF
*
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERsolve
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realOTHERsolve
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realPOcomputational
*
* =====================================================================
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realPOsolve
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realPOsolve
*
* =====================================================================
$ 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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERsolve
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realOTHERsolve
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realPTcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \verbatim
*> WORK is REAL array. Workspace of size nb.
*> \endverbatim
-*> @param[in] n
-*> The order of the matrix A.
*>
*>
*> \par Further Details:
*
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
*
RETURN
*
-* END OF SSB2ST_KERNELS
+* End of SSB2ST_KERNELS
*
END
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup realOTHEReigen
*
*> \par Further Details:
*
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup realOTHEReigen
*
*> \par Further Details:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realOTHEReigen
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realOTHEReigen
*
*> \par Further Details:
*
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realOTHEReigen
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realOTHEReigen
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realOTHEReigen
*
* =====================================================================
$ 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHEReigen
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realOTHEReigen
*
*> \par Contributors:
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERsolve
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realOTHERsolve
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup auxOTHERcomputational
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup auxOTHERcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Contributors:
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Contributors:
$ 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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realOTHEReigen
*
*> \par Contributors:
$ 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup singleSYcomputational
*
*> \par Contributors:
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
*
RETURN
*
-* End of DSYCON_3
+* End of SSYCON_3
*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realSYcomputational
*
*> \par Contributors:
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
*> \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
*> 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).
*>
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup singleSYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup singleSYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup realSYcomputational
*
*> \par References:
* =====================================================================
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
*> \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
*
*> \htmlonly
*> Download SSYEV_2STAGE + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ssyevd_2stage.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ssyev_2stage.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ssyevd_2stage.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ssyev_2stage.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ssyevd_2stage.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ssyev_2stage.f">
*> [TXT]</a>
*> \endhtmlonly
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup realSYeigen
*
*> \par Further Details:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realSYeigen
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup realSYeigen
*
*> \par Contributors:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realSYeigen
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realSYeigen
*
*> \par Contributors:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realSYeigen
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realSYeigen
*
*> \par Further Details:
*
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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup realSYeigen
*
*> \par Further Details:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realSYeigen
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realSYeigen
*
*> \par Contributors:
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realSYcomputational
*
* =====================================================================
$ 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup realSYsolve
*
* =====================================================================
$ 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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup singleSYsolve
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realSYsolve
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realSYsolve
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realSYsolve
*
* =====================================================================
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup singleSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup realSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup realSYcomputational
*
*> \par Further Details:
*
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
*
*> \htmlonly
*> Download SSYTRD_SB2ST + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ssytrd_sb2t.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ssytrd_sb2st.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ssytrd_sb2t.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ssytrd_sb2st.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ssytrd_sb2t.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ssytrd_sb2st.f">
*> [TXT]</a>
*> \endhtmlonly
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup real16OTHERcomputational
*
*> \par Further Details:
*
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
* 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.
*
*
*> \htmlonly
*> Download SSYTRD_SY2SB + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ssytrd.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ssytrd_sy2sb.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ssytrd.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ssytrd_sy2sb.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ssytrd.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ssytrd_sy2sb.f">
*> [TXT]</a>
*> \endhtmlonly
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup realSYcomputational
*
*> \par Further Details:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*
END IF
*
20 CONTINUE
+ WORK( 1 ) = LWKOPT
RETURN
*
* End of SSYTRF_AA
*> \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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup singleSYcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realSYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup singleSYcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup singleSYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realSYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup singleSYcomputational
*
*> \par Contributors:
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
*> \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
*
*> \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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realSYcomputational
*
*> \par Contributors:
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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realGEcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup realGEauxiliary
*
*> \par Further Details:
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
* .. 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 )
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 )
* "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
*
*
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 )
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 )
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 )
$ 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
$ 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:
*
*
* 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
*
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 )
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 )
$ 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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup realGEcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realSYauxiliary
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realSYcomputational
*
*> \par Contributors:
$ 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
*> \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
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download DTPQRT + dependencies
+*> Download STPLQT + dependencies
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/stplqt.f">
*> [TGZ]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/stplqt.f">
*>
*> \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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
-*> \brief \b DTPMLQT
+*> \brief \b STPMLQT
*
* =========== DOCUMENTATION ===========
*
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download DTPMQRT + dependencies
+*> Download STPMLQT + dependencies
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/stpmlqt.f">
*> [TGZ]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/stpmlqt.f">
*>
*> \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
*> 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
*> 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
EXTERNAL LSAME
* ..
* .. External Subroutines ..
- EXTERNAL SLARFB, STPRFB, XERBLA
+ EXTERNAL XERBLA, STPRFB
* ..
* .. Intrinsic Functions ..
INTRINSIC MAX, MIN
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERauxiliary
*
*> \par Further Details:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
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
*> \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:
$ 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
$ 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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup realOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup realOTHERcomputational
*
*> \par Contributors:
*> 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
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16OTHERcomputational
*
* =====================================================================
$ 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
* .. 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,
*> \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
*> \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
*
RETURN
*
-* End of ZCGESV.
+* End of ZCGESV
*
END
*> \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
*
RETURN
*
-* End of ZCPOSV.
+* End of ZCPOSV
*
END
*> \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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GBcomputational
*
* =====================================================================
$ 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
*> \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.
*> \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
*>
*> \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
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16GBcomputational
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GBsolve
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16GBsolve
*
* =====================================================================
$ 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
*> 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
*> This also means that the solution X, estimated condition numbers,
*> and error bounds could be unreliable. If factorization fails with
*> 0<INFO<=N, then this contains the reciprocal pivot growth factor
-*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16GBsolve
*
* =====================================================================
$ 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
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GBcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GBcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
* =====================================================================
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
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
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
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
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
*> \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
*> \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
*> \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
*> \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
*
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 )
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16GEeigen
*
* =====================================================================
$ 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
*
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 )
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
*
* @precisions fortran z -> c
*
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
*
* @precisions fortran z -> c
*
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
*> 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
*> 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
*> 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.
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16GEsing
*
*> \par Further Details:
$ 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
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
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 )
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,
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 )
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,
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,
* (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
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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
* =====================================================================
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
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download DGEQRT + dependencies
+*> Download ZGELQT + dependencies
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zgelqt.f">
*> [TGZ]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zgelqt.f">
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download DGEQRT3 + dependencies
+*> Download ZGELQT3 + dependencies
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zgelqt3.f">
*> [TGZ]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zgelqt3.f">
*>
*> \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,
*> \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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup doubleGEcomputational
*
*> \par Further Details:
* =====================================================================
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
*
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))
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16GEsolve
*
*> \par Contributors:
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
*> \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
*
* 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 ) )
* 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 )
* 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 )
* 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 )
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GEsolve
*
*> \par Contributors:
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
*> \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
*> \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
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
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download DGEMLQT + dependencies
+*> Download ZGEMLQT + dependencies
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zgemlqt.f">
*> [TGZ]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zgemlqt.f">
*>
*> \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
*> \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
*> 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
*> (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
*> \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
*> \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
* ..
* .. Local Scalars ..
LOGICAL LEFT, RIGHT, TRAN, NOTRAN
- INTEGER I, IB, LDWORK, KF
+ INTEGER I, IB, LDWORK, KF, Q
* ..
* .. External Functions ..
LOGICAL LSAME
*
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
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
*> \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
*> \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
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
*> \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
*> 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
*> 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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.
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
* =====================================================================
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
*
* 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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GEcomputational
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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.
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
* =====================================================================
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
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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16GEauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \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:
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16GEsing
*
*> \par Contributors:
$ 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
* ..
* .. 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
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
*
* Return optimal workspace in WORK(1)
*
- WORK( 1 ) = MAXWRK
+ WORK( 1 ) = DROUNDUP_LWORK( MAXWRK )
*
RETURN
*
*> \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
*> \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
*>
*> \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]
*> 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
*> 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.
*> 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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2018
-*
*> \ingroup complex16GEsing
*
* =====================================================================
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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16GEsing
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
*> 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
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 ..
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16GEsolve
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16GEsolve
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16GEauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
* ..
* .. 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,
* 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 )
*
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 )
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GBcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16GBcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GEeigen
*
* =====================================================================
$ 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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date January 2015
-*
*> \ingroup complex16GEeigen
*
* =====================================================================
$ 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
* ..
* .. External Subroutines ..
EXTERNAL DLABAD, XERBLA, ZGEQRF, ZGGBAK, ZGGBAL, ZGGHD3,
- $ ZHGEQZ, ZLACPY, ZLASCL, ZLASET, ZTGSEN, ZUNGQR,
+ $ ZLAQZ0, ZLACPY, ZLASCL, ZLASET, ZTGSEN, ZUNGQR,
$ ZUNMQR
* ..
* .. External Functions ..
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,
* 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16GEeigen
*
* =====================================================================
$ 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
*> 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:
*> \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
*> 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:
*> \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
* ..
* .. External Subroutines ..
EXTERNAL DLABAD, XERBLA, ZGEQRF, ZGGBAK, ZGGBAL, ZGGHD3,
- $ ZHGEQZ, ZLACPY, ZLASCL, ZLASET, ZTGEVC, ZUNGQR,
+ $ ZLAQZ0, ZLACPY, ZLASCL, ZLASET, ZTGEVC, ZUNGQR,
$ ZUNMQR
* ..
* .. External Functions ..
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 )
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16GEeigen
*
*> \par Further Details:
$ 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
*
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
*> \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
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date January 2015
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
*>
*> \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).
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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
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
*> \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
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
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
* 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.
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
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
* 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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date August 2015
-*
*> \ingroup complex16GEsing
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date August 2015
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
$ 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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16OTHERcomputational
*>
*> \par Further Details:
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 ..
*
*> \htmlonly
*> Download ZGSVJ1 + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dgsvj1.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zgsvj1.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dgsvj1.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zgsvj1.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dgsvj1.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zgsvj1.f">
*> [TXT]</a>
*> \endhtmlonly
*
*> 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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Contributor:
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 ..
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GTcomputational
*
* =====================================================================
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GTsolve
*
* =====================================================================
$ 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
*> \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
*> \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
*> \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
*
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
*
RETURN
*
-* END OF ZHB2ST_KERNELS
+* End of ZHB2ST_KERNELS
*
END
*> \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
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16OTHEReigen
*
*> \par Further Details:
*
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
*> \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
$ RETURN
*
IF( N.EQ.1 ) THEN
- W( 1 ) = AB( 1, 1 )
+ W( 1 ) = DBLE( AB( 1, 1 ) )
IF( WANTZ )
$ Z( 1, 1 ) = CONE
RETURN
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16OTHEReigen
*
*> \par Further Details:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16OTHEReigen
*
* =====================================================================
$ 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
$ M = 0
END IF
IF( M.EQ.1 ) THEN
- W( 1 ) = CTMP1
+ W( 1 ) = DBLE( CTMP1 )
IF( WANTZ )
$ Z( 1, 1 ) = CONE
END IF
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16OTHEReigen
*
*> \par Further Details:
*
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16OTHEReigen
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16OTHEReigen
*
*> \par Contributors:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
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
* copy diagonal elements to D
*
DO 120 I = 1, N
- D( I ) = AB( KD1, I )
+ D( I ) = DBLE( AB( KD1, I ) )
120 CONTINUE
*
ELSE
* 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
*
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16HEcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16HEcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16HEcomputational
*
*> \par References:
* =====================================================================
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
* 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
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
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
*> \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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16HEeigen
*
*> \par Further Details:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16HEeigen
*
*> \par Further Details:
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
$ RETURN
*
IF( N.EQ.1 ) THEN
- W( 1 ) = A( 1, 1 )
+ W( 1 ) = DBLE( A( 1, 1 ) )
IF( WANTZ )
$ A( 1, 1 ) = CONE
RETURN
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16HEeigen
*
*> \par Further Details:
*
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
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16HEeigen
*
*> \par Contributors:
$ 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
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16HEeigen
*
*> \par Contributors:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16HEeigen
*
* =====================================================================
$ 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
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 )
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16HEeigen
*
*> \par Further Details:
*
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
*> \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
*
* 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
*
* 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
*
* 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
*
* 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 )
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16HEeigen
*
*> \par Further Details:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16HEeigen
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16HEeigen
*
*> \par Contributors:
$ 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
*> \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
*> 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
*> \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
*> \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
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16HEcomputational
*
* =====================================================================
$ 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16HEsolve
*
* =====================================================================
$ 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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16HEsolve
*
*> \par Contributors:
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16HEsolve
*>
*> \verbatim
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16HEsolve
*
* =====================================================================
$ 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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16HEsolve
*
* =====================================================================
$ 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
*
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 )
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16HEcomputational
*
*> \par Further Details:
* =====================================================================
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
*
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
*
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
*
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
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16HEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16HEcomputational
*
*> \par Further Details:
* =====================================================================
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
*
* 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 ) ) )
* 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 )
*
*
* 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 ) ) )
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16HEcomputational
*
*> \par Further Details:
* =====================================================================
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
*
* 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 ) ) )
* 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 )
*
*
* 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 ) ) )
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16HEcomputational
*
*> \par Further Details:
* =====================================================================
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
*
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
*
*
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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16HEcomputational
*
*> \par Further Details:
*
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
*
*> \htmlonly
*> Download ZHETRD_HB2ST + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zhbtrd_hb2st.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zhetrd_hb2st.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zhbtrd_hb2st.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zhetrd_hb2st.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zhbtrd_hb2st.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zhetrd_hb2st.f">
*> [TXT]</a>
*> \endhtmlonly
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
*
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
* 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.
*
*
*> \htmlonly
*> Download ZHETRD_HE2HB + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zhetrd.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zhetrd_he2hb.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zhetrd.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zhetrd_he2hb.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zhetrd.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zhetrd_he2hb.f">
*> [TXT]</a>
*> \endhtmlonly
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16HEcomputational
*
*> \par Further Details:
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16HEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*
END IF
*
20 CONTINUE
+ WORK( 1 ) = LWKOPT
RETURN
*
* End of ZHETRF_AA
*> \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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16HEcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16HEcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16HEcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16HEcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16HEcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16HEcomputational
*
*> \par Contributors:
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
*> \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
*
*> \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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16HEcomputational
*
*> \par Contributors:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
$ 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
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
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
*
* 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
*> \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
*> \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
$ RETURN
*
IF( N.EQ.1 ) THEN
- W( 1 ) = AP( 1 )
+ W( 1 ) = DBLE( AP( 1 ) )
RWORK( 1 ) = 1
IF( WANTZ )
$ Z( 1, 1 ) = ONE
*> \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
$ RETURN
*
IF( N.EQ.1 ) THEN
- W( 1 ) = AP( 1 )
+ W( 1 ) = DBLE( AP( 1 ) )
IF( WANTZ )
$ Z( 1, 1 ) = CONE
RETURN
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16OTHEReigen
*
* =====================================================================
$ 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
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 )
*> \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
* 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,
*
* 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
*
* 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
*
* 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 )
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHEReigen
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16OTHEReigen
*
*> \par Contributors:
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERsolve
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16OTHERsolve
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*
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
*
*
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
*
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
*
*
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Contributors:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GBcomputational
*
* =====================================================================
$ 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
*
RETURN
*
+* End of ZLA_GBRCOND_C
+*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GBcomputational
*
* =====================================================================
$ 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
*
RETURN
*
+* End of ZLA_GBRCOND_X
+*
END
*> 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
*
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16GBcomputational
*
* =====================================================================
$ 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,
END DO
*
RETURN
+*
+* End of ZLA_GBRFSX_EXTENDED
+*
END
*> \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
END IF
END DO
ZLA_GBRPVGRW = RPVGRW
+*
+* End of ZLA_GBRPVGRW
+*
END
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GEcomputational
*
* =====================================================================
$ 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
*
RETURN
*
+* End of ZLA_GERCOND_C
+*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16GEcomputational
*
* =====================================================================
$ 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
*
RETURN
*
+* End of ZLA_GERCOND_X
+*
END
*> 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
*
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16GEcomputational
*
* =====================================================================
$ 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,
END DO
*
RETURN
+*
+* End of ZLA_GERFSX_EXTENDED
+*
END
*> \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
END IF
END DO
ZLA_GERPVGRW = RPVGRW
+*
+* End of ZLA_GERPVGRW
+*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16HEcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16HEcomputational
*
* =====================================================================
$ 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
*
RETURN
*
+* End of ZLA_HERCOND_C
+*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16HEcomputational
*
* =====================================================================
$ 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
*
RETURN
*
+* End of ZLA_HERCOND_X
+*
END
*> 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
*
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16HEcomputational
*
* =====================================================================
$ 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,
END DO
*
RETURN
+*
+* End of ZLA_HERFSX_EXTENDED
+*
END
*> \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
END IF
ZLA_HERPVGRW = RPVGRW
+*
+* End of ZLA_HERPVGRW
+*
END
*> \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
*
END DO
END DO
+*
+* End of ZLA_LIN_BERR
+*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16POcomputational
*
* =====================================================================
$ 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
*
RETURN
*
+* End of ZLA_PORCOND_C
+*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16POcomputational
*
* =====================================================================
$ 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
*
RETURN
*
+* End of ZLA_PORCOND_X
+*
END
*> 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
*
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16POcomputational
*
* =====================================================================
$ 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,
END DO
*
RETURN
+*
+* End of ZLA_PORFSX_EXTENDED
+*
END
*> \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
END IF
ZLA_PORPVGRW = RPVGRW
+*
+* End of ZLA_PORPVGRW
+*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16SYcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16SYcomputational
*
* =====================================================================
$ 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
*
RETURN
*
+* End of ZLA_SYRCOND_C
+*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16SYcomputational
*
* =====================================================================
$ 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
*
RETURN
*
+* End of ZLA_SYRCOND_X
+*
END
*> 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
*
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16SYcomputational
*
* =====================================================================
$ 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,
END DO
*
RETURN
+*
+* End of ZLA_SYRFSX_EXTENDED
+*
END
*> \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
END IF
ZLA_SYRPVGRW = RPVGRW
+*
+* End of ZLA_SYRPVGRW
+*
END
*> \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
X(I) = S
10 CONTINUE
RETURN
+*
+* End of ZLA_WWADDW
+*
END
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
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
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
*
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)
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
*
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)
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
*> \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
-*> \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 ===========
*
*> \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
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16OTHERcomputational
*
* =====================================================================
$ 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,
-*> \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 ===========
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
* =====================================================================
$ 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16HEcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16HEcomputational
*
*> \par Contributors:
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
*
* 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 ) ) )
* 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
*
* 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 ) ) )
* 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16HEcomputational
*
*> \par Contributors:
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
*
* 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 ) ) )
* 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
*
* 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 ) ) )
* 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
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,
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 )
*
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.
*
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
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.
* 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.
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
*> 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:
* =====================================================================
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
*> \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
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
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
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
*
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Contributors:
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
*>
*> \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
*> \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
*> \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
*> \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
* =====================
*>
*> \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
*> 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].
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
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
*> 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
*> \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
*>
*> \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
*> 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
*>
* =====================
*>
*> \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
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
* ..
* .. 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
RIGHT = LSAME( SIDE, 'R' )
IF (LEFT) THEN
LW = N * NB
+ Q = M
ELSE
LW = M * NB
+ Q = N
END IF
*
INFO = 0
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
*> \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
* ..
* .. 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
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
*> \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
* ..
* .. 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
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
*> \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
*> \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
* ..
* .. 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
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
*> \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
* ..
* .. 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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
* ..
* .. 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
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
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
*> \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
* ..
* .. 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
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
*> \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
*> \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
* ..
* .. 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
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
*> \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
* ..
* .. 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
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
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
*> \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
* ..
* .. 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
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
*> \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
* .. 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
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
*> \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
* .. 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
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
*> \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
* .. 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
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
*> \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
*> \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
*
RETURN
*
-* End of ZLAPMT
+* End of ZLAPMR
*
END
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
$ 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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date January 2021
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
$ 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,
*> \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
*> \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
*> \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
--- /dev/null
+*> \brief \b ZLAQZ0
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download ZLAQZ0 + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zlaqz0.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zlaqz0.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zlaqz0.f">
+*> [TXT]</a>
+*> \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
--- /dev/null
+*> \brief \b ZLAQZ1
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download ZLAQZ1 + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ZLAQZ1.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ZLAQZ1.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ZLAQZ1.f">
+*> [TXT]</a>
+*> \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
--- /dev/null
+*> \brief \b ZLAQZ2
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download ZLAQZ2 + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ZLAQZ2.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ZLAQZ2.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ZLAQZ2.f">
+*> [TXT]</a>
+*> \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
--- /dev/null
+*> \brief \b ZLAQZ3
+*
+* =========== DOCUMENTATION ===========
+*
+* Online html documentation available at
+* http://www.netlib.org/lapack/explore-html/
+*
+*> \htmlonly
+*> Download ZLAQZ3 + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ZLAQZ3.f">
+*> [TGZ]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ZLAQZ3.f">
+*> [ZIP]</a>
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ZLAQZ3.f">
+*> [TXT]</a>
+*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
$ 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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2013
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
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
*> \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
*> \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
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 )
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
INTEGER LV
PARAMETER ( LV = 128 )
DOUBLE PRECISION TWOPI
- PARAMETER ( TWOPI = 6.2831853071795864769252867663D+0 )
+ PARAMETER ( TWOPI = 6.28318530717958647692528676655900576839D+0 )
* ..
* .. Local Scalars ..
INTEGER I, IL, IV
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
$ 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
*> \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
+++ /dev/null
-*> \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
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zlartg.f">
-*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zlartg.f">
-*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zlartg.f">
-*> [TXT]</a>
-*> \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
--- /dev/null
+!> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
+++ /dev/null
-*> \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
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zlassq.f">
-*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zlassq.f">
-*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zlassq.f">
-*> [TXT]</a>
-*> \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
--- /dev/null
+!> \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
+!> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zlassq.f90">
+!> [TGZ]</a>
+!> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zlassq.f90">
+!> [ZIP]</a>
+!> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zlassq.f90">
+!> [TXT]</a>
+!> \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
*> 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.
*>
*> \verbatim
*> NB is INTEGER
*> The column block size to be used in the blocked QR.
-*> NB > M.
+*> NB > 0.
*> \endverbatim
*>
*> \param[in,out] A
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16SYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16SYcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16SYcomputational
*
*> \par Contributors:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
* =====================================================================
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
*
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)
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)
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Contributors:
* =====================================================================
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
*> 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.
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complex16GEcomputational
*
*> \par Contributors:
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
*>
*> 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",
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complex16GEcomputational
*
*> \par Contributors:
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
*> \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
* 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 ) )
* 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 ) )
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERsolve
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16OTHERsolve
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*
* 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
*> \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
*> \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
*> \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
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16POcomputational
*
* =====================================================================
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16POsolve
*
* =====================================================================
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16POsolve
*
* =====================================================================
$ 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
*> \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
*
* 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
*
* 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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERsolve
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16OTHERsolve
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*
* 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
*> \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
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
*
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16PTcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERsolve
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16OTHERsolve
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Contributors:
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
*> 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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Contributors:
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Contributors:
$ 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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16SYcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16SYcomputational
*
*> \par Contributors:
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
*> \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
*> 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).
*>
*> 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.
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16SYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16SYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16SYcomputational
*
*> \par References:
* =====================================================================
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
* 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
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
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
*> \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
*> \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
*> \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
*> 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
*> \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
*> \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
*>
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16SYcomputational
*
* =====================================================================
$ 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
*> \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
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
*> \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
*
*> \htmlonly
*> Download ZSYSV_AA_2STAGE + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zsysv_aasen_2stage.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zsysv_aa_2stage.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zsysv_aasen_2stage.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zsysv_aa_2stage.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zsysv_aasen_2stage.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zsysv_aa_2stage.f">
*> [TXT]</a>
*> \endhtmlonly
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16SYcomputational
*
* =====================================================================
$ 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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16SYsolve
*
*> \par Contributors:
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16SYsolve
*
*> \par Contributors:
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16SYsolve
*
* =====================================================================
$ 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
*> 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
*> 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
*>
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16SYsolve
*
* =====================================================================
$ 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16SYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16SYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2013
-*
*> \ingroup complex16SYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16SYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*
END IF
*
20 CONTINUE
+ WORK( 1 ) = LWKOPT
RETURN
*
* End of ZSYTRF_AA
*
*> \htmlonly
*> Download ZSYTRF_AA_2STAGE + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/csytrf_aa_2stage.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/zsytrf_aa_2stage.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/csytrf_aa_2stage.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zsytrf_aa_2stage.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/csytrf_aa_2stage.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zsytrf_aa_2stage.f">
*> [TXT]</a>
*> \endhtmlonly
*
*> \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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16SYcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16SYcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \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
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
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16SYcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16SYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16SYcomputational
*
*> \par Contributors:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16SYcomputational
*
*> \par Contributors:
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
*> \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
*
*> \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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16SYcomputational
*
*> \par Contributors:
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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16GEauxiliary
*
*> \par Further Details:
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
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 ..
*
M = LDST
WEAK = .FALSE.
- DTRONG = .FALSE.
+ STRONG = .FALSE.
*
* Make a local copy of selected block in (A, B)
*
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 )
* "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 ) )
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 )
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
*
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16GEcomputational
*
*> \par Contributors:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16SYauxiliary
*
*> \par Contributors:
$ 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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16SYcomputational
*
*> \par Contributors:
$ 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
*> \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
* http://www.netlib.org/lapack/explore-html/
*
*> \htmlonly
-*> Download DTPQRT + dependencies
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dtplqt.f">
+*> Download ZTPLQT + dependencies
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/ztplqt.f">
*> [TGZ]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dtplqt.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/ztplqt.f">
*> [ZIP]</a>
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dtplqt.f">
+*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/ztplqt.f">
*> [TXT]</a>
*> \endhtmlonly
*
*>
*> \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.
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*>
*> \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
*> \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
*> 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
*> 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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup doubleOTHERcomputational
*
*> \par Further Details:
*>
*> 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.
*>
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
-* @precisions fortran z -> c
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
$ 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
$ 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 ..
*
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2017
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
$ 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
*> \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
*> \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
*> \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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
* =====================================================================
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
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date April 2012
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Contributors:
*> 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
* =====================================================================
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
$ 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Further Details:
$ 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
*> \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,
*> \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,
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date June 2017
-*
*> \ingroup complex16OTHERcomputational
*
* =====================================================================
$ 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
*> 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
*> 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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date July 2012
-*
*> \ingroup complex16OTHERcomputational
*
* =====================================================================
$ 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
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
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 )
$ 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
*
* 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
$ 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
*> \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
*> \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
*> \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
END IF
END IF
END IF
- LWKOPT = WORK( 1 )
+ LWKOPT = DBLE( WORK( 1 ) )
LWKOPT = MAX (LWKOPT, MN)
END IF
*
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> \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
*> [ZIP]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zungtsqr.f">
*> [TXT]</a>
-*>
+*> \endhtmlonly
+*
* Definition:
* ===========
*
*> \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).
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
-*> \ingroup comlex16OTHERcomputational
+*> \ingroup complex16OTHERcomputational
*
*> \par Contributors:
* ==================
$ 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
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/zunhr_col.f">
*> [ZIP]</a>
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/zunhr_col.f">
-*> [TXT]</a>
-*>
+*> [TXT]</a
+*> \endhtmlonly
+*
* Definition:
* ===========
*
*> 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
*>
*> 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].
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date November 2019
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Contributors:
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
*> \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
*
*> \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
*> \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
*> \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
*
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
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,
$ -1 )
END IF
END IF
- LWKOPT = MAX( 1, NW*NB )
+ LWKOPT = NW*NB
ELSE
LWKOPT = 1
END IF
*> \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
*
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
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
*
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
*
*> \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
*> \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
*
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
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
*
*
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
*
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 ) )
*> \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
*> 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
*> \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
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 ) )
*> \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
*
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
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
*
*
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
*
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 ) )
*> \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
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Contributors:
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
*> \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
*> \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
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 ) )
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
-*> \date December 2016
-*
*> \ingroup complex16OTHERcomputational
*
*> \par Contributors:
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
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 ) )
*> \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
*
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
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
*
$ -1 )
END IF
END IF
- LWKOPT = MAX( 1, NW )*NB
+ LWKOPT = NW*NB
WORK( 1 ) = LWKOPT
END IF
*
*> \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
*> \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
projects / platform / upstream / openblas.git / commitdiff