Merge pull request #1046 from wernsaar/develop
updated lapack to version 3.7.0 with latest patches from git
This commit is contained in:
Werner Saar
GitHub
commit
5bb2b91a03
|
|
@ -0,0 +1,55 @@
|
||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
while read OBJ; do
|
||||||
|
|
||||||
|
if echo "$OBJ"|grep "_$" >/dev/null
|
||||||
|
then
|
||||||
|
|
||||||
|
O1=$(echo "$OBJ"|sed -e 's/_$//' )
|
||||||
|
|
||||||
|
if grep -w "$O1" exports/gensymbol >/dev/null
|
||||||
|
then
|
||||||
|
true
|
||||||
|
else
|
||||||
|
echo "$O1"
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
|
||||||
|
if echo "$OBJ"|grep "^cblas" >/dev/null
|
||||||
|
then
|
||||||
|
|
||||||
|
if grep -w "$OBJ" exports/gensymbol >/dev/null
|
||||||
|
then
|
||||||
|
true
|
||||||
|
else
|
||||||
|
echo "$OBJ"
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
|
||||||
|
if echo "$OBJ"|grep "^LAPACKE" >/dev/null
|
||||||
|
then
|
||||||
|
|
||||||
|
if grep -w "$OBJ" exports/gensymbol >/dev/null
|
||||||
|
then
|
||||||
|
true
|
||||||
|
else
|
||||||
|
echo "$OBJ"
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
|
||||||
|
if echo "$OBJ"|grep "^lapack" >/dev/null
|
||||||
|
then
|
||||||
|
|
||||||
|
if grep -w "$OBJ" exports/gensymbol >/dev/null
|
||||||
|
then
|
||||||
|
true
|
||||||
|
else
|
||||||
|
echo "$OBJ"
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
done
|
||||||
|
|
||||||
|
|
@ -1,11 +1,21 @@
|
||||||
#!/usr/bin/perl
|
#!/usr/bin/perl
|
||||||
|
|
||||||
|
# Changelog
|
||||||
|
# 2017/07/01 Saar
|
||||||
|
# removed zsymv and csymv from @blasobs, because these functions
|
||||||
|
# are now in lapack-3.7.0
|
||||||
|
# added blas_thread_shutdown
|
||||||
|
# added cblas_cgemm3m and cblas_zgemm3m
|
||||||
|
# added somatcopy, simatcopy ...
|
||||||
|
# added new functions from lapack-3.7.0
|
||||||
|
# added LAPACKE deprecated objs from lapack-3.7.0
|
||||||
|
#
|
||||||
@blasobjs = (
|
@blasobjs = (
|
||||||
caxpy,ccopy,cdotc,cdotu,cgbmv,cgemm,cgemv,cgerc,cgeru,
|
caxpy,ccopy,cdotc,cdotu,cgbmv,cgemm,cgemv,cgerc,cgeru,
|
||||||
chbmv,chemm,chemv,cher2,cher2k,cher,cherk,
|
chbmv,chemm,chemv,cher2,cher2k,cher,cherk,
|
||||||
chpmv,chpr2,chpr,crotg,cscal,csrot,csscal,cswap,
|
chpmv,chpr2,chpr,crotg,cscal,csrot,csscal,cswap,
|
||||||
csymm,csyr2k,csyrk,ctbmv,ctbsv,ctpmv,ctpsv,ctrmm,ctrmv,ctrsm,
|
csymm,csyr2k,csyrk,ctbmv,ctbsv,ctpmv,ctpsv,ctrmm,ctrmv,ctrsm,
|
||||||
ctrsv, csymv,
|
ctrsv,
|
||||||
damax,damin,dasum,daxpy,dcabs1,dcopy,ddot,dgbmv,dgemm,
|
damax,damin,dasum,daxpy,dcabs1,dcopy,ddot,dgbmv,dgemm,
|
||||||
dgemv,dger,dmax,dmin,dnrm2,drot,drotg,drotm,drotmg,dsbmv,
|
dgemv,dger,dmax,dmin,dnrm2,drot,drotg,drotm,drotmg,dsbmv,
|
||||||
dscal,dsdot,dspmv,dspr2,
|
dscal,dsdot,dspmv,dspr2,
|
||||||
|
|
@ -21,10 +31,18 @@
|
||||||
zdscal,zgbmv,zgemm,zgemv,zgerc,zgeru,
|
zdscal,zgbmv,zgemm,zgemv,zgerc,zgeru,
|
||||||
zhbmv,zhemm,zhemv,zher2,zher2k,zher,zherk,zhpmv,zhpr2,
|
zhbmv,zhemm,zhemv,zher2,zher2k,zher,zherk,zhpmv,zhpr2,
|
||||||
zhpr,zrotg,zscal,zswap,zsymm,zsyr2k,zsyrk,ztbmv,
|
zhpr,zrotg,zscal,zswap,zsymm,zsyr2k,zsyrk,ztbmv,
|
||||||
ztbsv,ztpmv,ztpsv,ztrmm,ztrmv,ztrsm,ztrsv, zsymv,
|
ztbsv,ztpmv,ztpsv,ztrmm,ztrmv,ztrsm,ztrsv,
|
||||||
xerbla,
|
xerbla,
|
||||||
saxpby,daxpby,caxpby,zaxpby,
|
saxpby,daxpby,caxpby,zaxpby,
|
||||||
sgeadd,dgeadd,cgeadd,zgeadd,
|
sgeadd,dgeadd,cgeadd,zgeadd,
|
||||||
|
somatcopy,
|
||||||
|
simatcopy,
|
||||||
|
domatcopy,
|
||||||
|
dimatcopy,
|
||||||
|
comatcopy,
|
||||||
|
cimatcopy,
|
||||||
|
zomatcopy,
|
||||||
|
zimatcopy,
|
||||||
);
|
);
|
||||||
|
|
||||||
@cblasobjs = (
|
@cblasobjs = (
|
||||||
|
|
@ -80,6 +98,12 @@
|
||||||
cgemm3m,zgemm3m
|
cgemm3m,zgemm3m
|
||||||
);
|
);
|
||||||
|
|
||||||
|
@cblasgemm3mobjs = (
|
||||||
|
cblas_cgemm3m,cblas_zgemm3m
|
||||||
|
);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#both underscore and no underscore
|
#both underscore and no underscore
|
||||||
@misc_common_objs = (
|
@misc_common_objs = (
|
||||||
|
|
@ -96,6 +120,7 @@
|
||||||
);
|
);
|
||||||
|
|
||||||
@misc_underscore_objs = (
|
@misc_underscore_objs = (
|
||||||
|
blas_thread_shutdown,
|
||||||
);
|
);
|
||||||
|
|
||||||
@lapackobjs = (
|
@lapackobjs = (
|
||||||
|
|
@ -581,8 +606,208 @@
|
||||||
zsbmv,
|
zsbmv,
|
||||||
zspr2,
|
zspr2,
|
||||||
zsyr2,
|
zsyr2,
|
||||||
zunm22
|
zunm22,
|
||||||
|
|
||||||
|
# functions added for lapack-3.7.0
|
||||||
|
|
||||||
|
slarfy,
|
||||||
|
slasyf_rk,
|
||||||
|
ssyconvf_rook,
|
||||||
|
ssytf2_rk,
|
||||||
|
ssytrf_rk,
|
||||||
|
ssytrs_3,
|
||||||
|
ssytri_3,
|
||||||
|
ssytri_3x,
|
||||||
|
ssycon_3,
|
||||||
|
ssysv_rk,
|
||||||
|
slasyf_aa,
|
||||||
|
ssysv_aa,
|
||||||
|
ssytrf_aa,
|
||||||
|
ssytrs_aa,
|
||||||
|
strevc3,
|
||||||
|
sgelqt,
|
||||||
|
sgelqt3,
|
||||||
|
sgemlqt,
|
||||||
|
sgetsls,
|
||||||
|
sgeqr,
|
||||||
|
slatsqr,
|
||||||
|
slamtsqr,
|
||||||
|
sgemqr,
|
||||||
|
sgelq,
|
||||||
|
slaswlq,
|
||||||
|
slamswlq,
|
||||||
|
sgemlq,
|
||||||
|
stplqt,
|
||||||
|
stplqt2,
|
||||||
|
stpmlqt,
|
||||||
|
ssytrd_2stage,
|
||||||
|
ssytrd_sy2sb,
|
||||||
|
ssytrd_sb2st,
|
||||||
|
ssb2st_kernels,
|
||||||
|
ssyevd_2stage,
|
||||||
|
ssyev_2stage,
|
||||||
|
ssyevx_2stage,
|
||||||
|
ssyevr_2stage,
|
||||||
|
ssbev_2stage,
|
||||||
|
ssbevx_2stage,
|
||||||
|
ssbevd_2stage,
|
||||||
|
ssygv_2stage,
|
||||||
|
dlarfy,
|
||||||
|
dlasyf_rk,
|
||||||
|
dsyconvf,
|
||||||
|
dsyconvf_rook,
|
||||||
|
dsytf2_rk,
|
||||||
|
dsytrf_rk,
|
||||||
|
dsytrs_3,
|
||||||
|
dsytri_3,
|
||||||
|
dsytri_3x,
|
||||||
|
dsycon_3,
|
||||||
|
dsysv_rk,
|
||||||
|
dlasyf_aa,
|
||||||
|
dsysv_aa,
|
||||||
|
dsytrf_aa,
|
||||||
|
dsytrs_aa,
|
||||||
|
dtrevc3,
|
||||||
|
dgelqt,
|
||||||
|
dgelqt3,
|
||||||
|
dgemlqt,
|
||||||
|
dgetsls,
|
||||||
|
dgeqr,
|
||||||
|
dlatsqr,
|
||||||
|
dlamtsqr,
|
||||||
|
dgemqr,
|
||||||
|
dgelq,
|
||||||
|
dlaswlq,
|
||||||
|
dlamswlq,
|
||||||
|
dgemlq,
|
||||||
|
dtplqt,
|
||||||
|
dtplqt2,
|
||||||
|
dtpmlqt,
|
||||||
|
dsytrd_2stage,
|
||||||
|
dsytrd_sy2sb,
|
||||||
|
dsytrd_sb2st,
|
||||||
|
dsb2st_kernels,
|
||||||
|
dsyevd_2stage,
|
||||||
|
dsyev_2stage,
|
||||||
|
dsyevx_2stage,
|
||||||
|
dsyevr_2stage,
|
||||||
|
dsbev_2stage,
|
||||||
|
dsbevx_2stage,
|
||||||
|
dsbevd_2stage,
|
||||||
|
dsygv_2stage,
|
||||||
|
chetf2_rk,
|
||||||
|
chetrf_rk,
|
||||||
|
chetri_3,
|
||||||
|
chetri_3x,
|
||||||
|
chetrs_3,
|
||||||
|
checon_3,
|
||||||
|
chesv_rk,
|
||||||
|
chesv_aa,
|
||||||
|
chetrf_aa,
|
||||||
|
chetrs_aa,
|
||||||
|
clahef_aa,
|
||||||
|
clahef_rk,
|
||||||
|
clarfy,
|
||||||
|
clasyf_rk,
|
||||||
|
clasyf_aa,
|
||||||
|
csyconvf,
|
||||||
|
csyconvf_rook,
|
||||||
|
csytf2_rk,
|
||||||
|
csytrf_rk,
|
||||||
|
csytrf_aa,
|
||||||
|
csytrs_3,
|
||||||
|
csytrs_aa,
|
||||||
|
csytri_3,
|
||||||
|
csytri_3x,
|
||||||
|
csycon_3,
|
||||||
|
csysv_rk,
|
||||||
|
csysv_aa,
|
||||||
|
ctrevc3,
|
||||||
|
cgelqt,
|
||||||
|
cgelqt3,
|
||||||
|
cgemlqt,
|
||||||
|
cgetsls,
|
||||||
|
cgeqr,
|
||||||
|
clatsqr,
|
||||||
|
clamtsqr,
|
||||||
|
cgemqr,
|
||||||
|
cgelq,
|
||||||
|
claswlq,
|
||||||
|
clamswlq,
|
||||||
|
cgemlq,
|
||||||
|
ctplqt,
|
||||||
|
ctplqt2,
|
||||||
|
ctpmlqt,
|
||||||
|
chetrd_2stage,
|
||||||
|
chetrd_he2hb,
|
||||||
|
chetrd_hb2st,
|
||||||
|
chb2st_kernels,
|
||||||
|
cheevd_2stage,
|
||||||
|
cheev_2stage,
|
||||||
|
cheevx_2stage,
|
||||||
|
cheevr_2stage,
|
||||||
|
chbev_2stage,
|
||||||
|
chbevx_2stage,
|
||||||
|
chbevd_2stage,
|
||||||
|
chegv_2stage,
|
||||||
|
zhetf2_rk,
|
||||||
|
zhetrf_rk,
|
||||||
|
zhetri_3,
|
||||||
|
zhetri_3x,
|
||||||
|
zhetrs_3,
|
||||||
|
zhecon_3,
|
||||||
|
zhesv_rk,
|
||||||
|
zhesv_aa,
|
||||||
|
zhetrf_aa,
|
||||||
|
zhetrs_aa,
|
||||||
|
zlahef_aa,
|
||||||
|
zlahef_rk,
|
||||||
|
zlarfy,
|
||||||
|
zlasyf_rk,
|
||||||
|
zlasyf_aa,
|
||||||
|
zsyconvf,
|
||||||
|
zsyconvf_rook,
|
||||||
|
zsytrs_aa,
|
||||||
|
zsytf2_rk,
|
||||||
|
zsytrf_rk,
|
||||||
|
zsytrf_aa,
|
||||||
|
zsytrs_3,
|
||||||
|
zsytri_3,
|
||||||
|
zsytri_3x,
|
||||||
|
zsycon_3,
|
||||||
|
zsysv_rk,
|
||||||
|
zsysv_aa,
|
||||||
|
ztrevc3,
|
||||||
|
ztplqt,
|
||||||
|
ztplqt2,
|
||||||
|
ztpmlqt,
|
||||||
|
zgelqt,
|
||||||
|
zgelqt3,
|
||||||
|
zgemlqt,
|
||||||
|
zgetsls,
|
||||||
|
zgeqr,
|
||||||
|
zlatsqr,
|
||||||
|
zlamtsqr,
|
||||||
|
zgemqr,
|
||||||
|
zgelq,
|
||||||
|
zlaswlq,
|
||||||
|
zlamswlq,
|
||||||
|
zgemlq,
|
||||||
|
zhetrd_2stage,
|
||||||
|
zhetrd_he2hb,
|
||||||
|
zhetrd_hb2st,
|
||||||
|
zhb2st_kernels,
|
||||||
|
zheevd_2stage,
|
||||||
|
zheev_2stage,
|
||||||
|
zheevx_2stage,
|
||||||
|
zheevr_2stage,
|
||||||
|
zhbev_2stage,
|
||||||
|
zhbevx_2stage,
|
||||||
|
zhbevd_2stage,
|
||||||
|
zhegv_2stage,
|
||||||
|
sladiv1,
|
||||||
|
dladiv1,
|
||||||
|
iparam2stage,
|
||||||
);
|
);
|
||||||
|
|
||||||
@lapack_extendedprecision_objs = (
|
@lapack_extendedprecision_objs = (
|
||||||
|
|
@ -597,6 +822,36 @@
|
||||||
cgeqpf, clatzm, dgelsx, dlahrd, sgegv, sggsvp, zgegs, zggsvd, ztzrqf,
|
cgeqpf, clatzm, dgelsx, dlahrd, sgegv, sggsvp, zgegs, zggsvd, ztzrqf,
|
||||||
);
|
);
|
||||||
|
|
||||||
|
@lapacke_deprecated_objs = (
|
||||||
|
|
||||||
|
LAPACKE_cggsvp,
|
||||||
|
LAPACKE_cggsvp_work,
|
||||||
|
LAPACKE_dggsvp,
|
||||||
|
LAPACKE_dggsvp_work,
|
||||||
|
LAPACKE_sggsvp,
|
||||||
|
LAPACKE_sggsvp_work,
|
||||||
|
LAPACKE_zggsvp,
|
||||||
|
LAPACKE_zggsvp_work,
|
||||||
|
LAPACKE_cggsvd,
|
||||||
|
LAPACKE_cggsvd_work,
|
||||||
|
LAPACKE_dggsvd,
|
||||||
|
LAPACKE_dggsvd_work,
|
||||||
|
LAPACKE_sggsvd,
|
||||||
|
LAPACKE_sggsvd_work,
|
||||||
|
LAPACKE_zggsvd,
|
||||||
|
LAPACKE_zggsvd_work,
|
||||||
|
LAPACKE_cgeqpf,
|
||||||
|
LAPACKE_cgeqpf_work,
|
||||||
|
LAPACKE_dgeqpf,
|
||||||
|
LAPACKE_dgeqpf_work,
|
||||||
|
LAPACKE_sgeqpf,
|
||||||
|
LAPACKE_sgeqpf_work,
|
||||||
|
LAPACKE_zgeqpf,
|
||||||
|
LAPACKE_zgeqpf_work,
|
||||||
|
|
||||||
|
);
|
||||||
|
|
||||||
|
|
||||||
@lapackeobjs = (
|
@lapackeobjs = (
|
||||||
# LAPACK C interface routines.
|
# LAPACK C interface routines.
|
||||||
#
|
#
|
||||||
|
|
@ -2948,7 +3203,186 @@
|
||||||
LAPACKE_zsytrs_rook,
|
LAPACKE_zsytrs_rook,
|
||||||
LAPACKE_zsytrs_rook_work,
|
LAPACKE_zsytrs_rook_work,
|
||||||
LAPACKE_zuncsd2by1,
|
LAPACKE_zuncsd2by1,
|
||||||
LAPACKE_zuncsd2by1_work
|
LAPACKE_zuncsd2by1_work,
|
||||||
|
|
||||||
|
## new function from lapack-3.7.0
|
||||||
|
|
||||||
|
LAPACKE_cgemqr,
|
||||||
|
LAPACKE_cgemqr_work,
|
||||||
|
LAPACKE_cgetsls,
|
||||||
|
LAPACKE_cgetsls_work,
|
||||||
|
LAPACKE_chbev_2stage,
|
||||||
|
LAPACKE_chbev_2stage_work,
|
||||||
|
LAPACKE_chbevd_2stage,
|
||||||
|
LAPACKE_chbevd_2stage_work,
|
||||||
|
LAPACKE_chbevx_2stage,
|
||||||
|
LAPACKE_chbevx_2stage_work,
|
||||||
|
LAPACKE_checon_3,
|
||||||
|
LAPACKE_checon_3_work,
|
||||||
|
LAPACKE_cheev_2stage,
|
||||||
|
LAPACKE_cheev_2stage_work,
|
||||||
|
LAPACKE_cheevd_2stage,
|
||||||
|
LAPACKE_cheevd_2stage_work,
|
||||||
|
LAPACKE_cheevr_2stage,
|
||||||
|
LAPACKE_cheevr_2stage_work,
|
||||||
|
LAPACKE_cheevx_2stage,
|
||||||
|
LAPACKE_cheevx_2stage_work,
|
||||||
|
LAPACKE_chegv_2stage,
|
||||||
|
LAPACKE_chegv_2stage_work,
|
||||||
|
LAPACKE_chesv_aa,
|
||||||
|
LAPACKE_chesv_aa_work,
|
||||||
|
LAPACKE_chesv_rk,
|
||||||
|
LAPACKE_chesv_rk_work,
|
||||||
|
LAPACKE_chetrf_aa,
|
||||||
|
LAPACKE_chetrf_aa_work,
|
||||||
|
LAPACKE_chetrf_rk,
|
||||||
|
LAPACKE_chetrf_rk_work,
|
||||||
|
LAPACKE_chetri_3,
|
||||||
|
LAPACKE_chetri_3_work,
|
||||||
|
LAPACKE_chetrs_aa,
|
||||||
|
LAPACKE_chetrs_aa_work,
|
||||||
|
LAPACKE_chetrs_3,
|
||||||
|
LAPACKE_chetrs_3_work,
|
||||||
|
LAPACKE_csycon_3,
|
||||||
|
LAPACKE_csycon_3_work,
|
||||||
|
LAPACKE_csysv_aa,
|
||||||
|
LAPACKE_csysv_aa_work,
|
||||||
|
LAPACKE_csysv_rk,
|
||||||
|
LAPACKE_csysv_rk_work,
|
||||||
|
LAPACKE_csytrf_aa,
|
||||||
|
LAPACKE_csytrf_aa_work,
|
||||||
|
LAPACKE_csytrf_rk,
|
||||||
|
LAPACKE_csytrf_rk_work,
|
||||||
|
LAPACKE_csytri_3,
|
||||||
|
LAPACKE_csytri_3_work,
|
||||||
|
LAPACKE_csytrs_aa,
|
||||||
|
LAPACKE_csytrs_aa_work,
|
||||||
|
LAPACKE_csytrs_3,
|
||||||
|
LAPACKE_csytrs_3_work,
|
||||||
|
LAPACKE_dgemqr,
|
||||||
|
LAPACKE_dgemqr_work,
|
||||||
|
LAPACKE_dgetsls,
|
||||||
|
LAPACKE_dgetsls_work,
|
||||||
|
LAPACKE_dsbev_2stage,
|
||||||
|
LAPACKE_dsbev_2stage_work,
|
||||||
|
LAPACKE_dsbevd_2stage,
|
||||||
|
LAPACKE_dsbevd_2stage_work,
|
||||||
|
LAPACKE_dsbevx_2stage,
|
||||||
|
LAPACKE_dsbevx_2stage_work,
|
||||||
|
LAPACKE_dsycon_3,
|
||||||
|
LAPACKE_dsycon_3_work,
|
||||||
|
LAPACKE_dsyev_2stage,
|
||||||
|
LAPACKE_dsyev_2stage_work,
|
||||||
|
LAPACKE_dsyevd_2stage,
|
||||||
|
LAPACKE_dsyevd_2stage_work,
|
||||||
|
LAPACKE_dsyevr_2stage,
|
||||||
|
LAPACKE_dsyevr_2stage_work,
|
||||||
|
LAPACKE_dsyevx_2stage,
|
||||||
|
LAPACKE_dsyevx_2stage_work,
|
||||||
|
LAPACKE_dsygv_2stage,
|
||||||
|
LAPACKE_dsygv_2stage_work,
|
||||||
|
LAPACKE_dsysv_aa,
|
||||||
|
LAPACKE_dsysv_aa_work,
|
||||||
|
LAPACKE_dsysv_rk,
|
||||||
|
LAPACKE_dsysv_rk_work,
|
||||||
|
LAPACKE_dsytrf_aa,
|
||||||
|
LAPACKE_dsytrf_aa_work,
|
||||||
|
LAPACKE_dsytrf_rk,
|
||||||
|
LAPACKE_dsytrf_rk_work,
|
||||||
|
LAPACKE_dsytri_3,
|
||||||
|
LAPACKE_dsytri_3_work,
|
||||||
|
LAPACKE_dsytrs_aa,
|
||||||
|
LAPACKE_dsytrs_aa_work,
|
||||||
|
LAPACKE_dsytrs_3,
|
||||||
|
LAPACKE_dsytrs_3_work,
|
||||||
|
LAPACKE_sgemqr,
|
||||||
|
LAPACKE_sgemqr_work,
|
||||||
|
LAPACKE_sgetsls,
|
||||||
|
LAPACKE_sgetsls_work,
|
||||||
|
LAPACKE_ssbev_2stage,
|
||||||
|
LAPACKE_ssbev_2stage_work,
|
||||||
|
LAPACKE_ssbevd_2stage,
|
||||||
|
LAPACKE_ssbevd_2stage_work,
|
||||||
|
LAPACKE_ssbevx_2stage,
|
||||||
|
LAPACKE_ssbevx_2stage_work,
|
||||||
|
LAPACKE_ssycon_3,
|
||||||
|
LAPACKE_ssycon_3_work,
|
||||||
|
LAPACKE_ssyev_2stage,
|
||||||
|
LAPACKE_ssyev_2stage_work,
|
||||||
|
LAPACKE_ssyevd_2stage,
|
||||||
|
LAPACKE_ssyevd_2stage_work,
|
||||||
|
LAPACKE_ssyevr_2stage,
|
||||||
|
LAPACKE_ssyevr_2stage_work,
|
||||||
|
LAPACKE_ssyevx_2stage,
|
||||||
|
LAPACKE_ssyevx_2stage_work,
|
||||||
|
LAPACKE_ssygv_2stage,
|
||||||
|
LAPACKE_ssygv_2stage_work,
|
||||||
|
LAPACKE_ssysv_aa,
|
||||||
|
LAPACKE_ssysv_aa_work,
|
||||||
|
LAPACKE_ssysv_rk,
|
||||||
|
LAPACKE_ssysv_rk_work,
|
||||||
|
LAPACKE_ssytrf_aa,
|
||||||
|
LAPACKE_ssytrf_aa_work,
|
||||||
|
LAPACKE_ssytrf_rk,
|
||||||
|
LAPACKE_ssytrf_rk_work,
|
||||||
|
LAPACKE_ssytri_3,
|
||||||
|
LAPACKE_ssytri_3_work,
|
||||||
|
LAPACKE_ssytrs_aa,
|
||||||
|
LAPACKE_ssytrs_aa_work,
|
||||||
|
LAPACKE_ssytrs_3,
|
||||||
|
LAPACKE_ssytrs_3_work,
|
||||||
|
LAPACKE_zgemqr,
|
||||||
|
LAPACKE_zgemqr_work,
|
||||||
|
LAPACKE_zgetsls,
|
||||||
|
LAPACKE_zgetsls_work,
|
||||||
|
LAPACKE_zhbev_2stage,
|
||||||
|
LAPACKE_zhbev_2stage_work,
|
||||||
|
LAPACKE_zhbevd_2stage,
|
||||||
|
LAPACKE_zhbevd_2stage_work,
|
||||||
|
LAPACKE_zhbevx_2stage,
|
||||||
|
LAPACKE_zhbevx_2stage_work,
|
||||||
|
LAPACKE_zhecon_3,
|
||||||
|
LAPACKE_zhecon_3_work,
|
||||||
|
LAPACKE_zheev_2stage,
|
||||||
|
LAPACKE_zheev_2stage_work,
|
||||||
|
LAPACKE_zheevd_2stage,
|
||||||
|
LAPACKE_zheevd_2stage_work,
|
||||||
|
LAPACKE_zheevr_2stage,
|
||||||
|
LAPACKE_zheevr_2stage_work,
|
||||||
|
LAPACKE_zheevx_2stage,
|
||||||
|
LAPACKE_zheevx_2stage_work,
|
||||||
|
LAPACKE_zhegv_2stage,
|
||||||
|
LAPACKE_zhegv_2stage_work,
|
||||||
|
LAPACKE_zhesv_aa,
|
||||||
|
LAPACKE_zhesv_aa_work,
|
||||||
|
LAPACKE_zhesv_rk,
|
||||||
|
LAPACKE_zhesv_rk_work,
|
||||||
|
LAPACKE_zhetrf_aa,
|
||||||
|
LAPACKE_zhetrf_aa_work,
|
||||||
|
LAPACKE_zhetrf_rk,
|
||||||
|
LAPACKE_zhetrf_rk_work,
|
||||||
|
LAPACKE_zhetri_3,
|
||||||
|
LAPACKE_zhetri_3_work,
|
||||||
|
LAPACKE_zhetrs_aa,
|
||||||
|
LAPACKE_zhetrs_aa_work,
|
||||||
|
LAPACKE_zhetrs_3,
|
||||||
|
LAPACKE_zhetrs_3_work,
|
||||||
|
LAPACKE_zsycon_3,
|
||||||
|
LAPACKE_zsycon_3_work,
|
||||||
|
LAPACKE_zsysv_aa,
|
||||||
|
LAPACKE_zsysv_aa_work,
|
||||||
|
LAPACKE_zsysv_rk,
|
||||||
|
LAPACKE_zsysv_rk_work,
|
||||||
|
LAPACKE_zsytrf_aa,
|
||||||
|
LAPACKE_zsytrf_aa_work,
|
||||||
|
LAPACKE_zsytrf_rk,
|
||||||
|
LAPACKE_zsytrf_rk_work,
|
||||||
|
LAPACKE_zsytri_3,
|
||||||
|
LAPACKE_zsytri_3_work,
|
||||||
|
LAPACKE_zsytrs_aa,
|
||||||
|
LAPACKE_zsytrs_aa_work,
|
||||||
|
LAPACKE_zsytrs_3,
|
||||||
|
LAPACKE_zsytrs_3_work,
|
||||||
);
|
);
|
||||||
|
|
||||||
#These function may need 2 underscores.
|
#These function may need 2 underscores.
|
||||||
|
|
@ -3026,7 +3460,12 @@ if ($ARGV[6] == 1) {
|
||||||
#NO_LAPACKE=1
|
#NO_LAPACKE=1
|
||||||
@no_underscore_objs = (@no_underscore_objs);
|
@no_underscore_objs = (@no_underscore_objs);
|
||||||
} else {
|
} else {
|
||||||
@no_underscore_objs = (@no_underscore_objs, @lapackeobjs);
|
if ($ARGV[11] == 1){
|
||||||
|
#BUILD_LAPACK_DEPRECATED=1
|
||||||
|
@no_underscore_objs = (@no_underscore_objs, @lapackeobjs, @lapacke_deprecated_objs);
|
||||||
|
}else{
|
||||||
|
@no_underscore_objs = (@no_underscore_objs, @lapackeobjs);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@hplobjs = (daxpy, dcopy, dscal, idamax, dgemv, dtrsv, dger, dgemm, dtrsm);
|
@hplobjs = (daxpy, dcopy, dscal, idamax, dgemv, dtrsv, dger, dgemm, dtrsm);
|
||||||
|
|
|
||||||
|
|
@ -84,10 +84,10 @@ CBLAS1OBJS = \
|
||||||
|
|
||||||
CBLAS2OBJS = \
|
CBLAS2OBJS = \
|
||||||
cgemv.$(SUFFIX) cgeru.$(SUFFIX) cgerc.$(SUFFIX) \
|
cgemv.$(SUFFIX) cgeru.$(SUFFIX) cgerc.$(SUFFIX) \
|
||||||
ctrsv.$(SUFFIX) ctrmv.$(SUFFIX) csymv.$(SUFFIX) \
|
ctrsv.$(SUFFIX) ctrmv.$(SUFFIX) \
|
||||||
csyr.$(SUFFIX) csyr2.$(SUFFIX) cgbmv.$(SUFFIX) \
|
csyr2.$(SUFFIX) cgbmv.$(SUFFIX) \
|
||||||
csbmv.$(SUFFIX) cspmv.$(SUFFIX) \
|
csbmv.$(SUFFIX) \
|
||||||
cspr.$(SUFFIX) cspr2.$(SUFFIX) \
|
cspr2.$(SUFFIX) \
|
||||||
ctbsv.$(SUFFIX) ctbmv.$(SUFFIX) \
|
ctbsv.$(SUFFIX) ctbmv.$(SUFFIX) \
|
||||||
ctpsv.$(SUFFIX) ctpmv.$(SUFFIX) \
|
ctpsv.$(SUFFIX) ctpmv.$(SUFFIX) \
|
||||||
chemv.$(SUFFIX) chbmv.$(SUFFIX) \
|
chemv.$(SUFFIX) chbmv.$(SUFFIX) \
|
||||||
|
|
@ -113,10 +113,10 @@ ZBLAS1OBJS = \
|
||||||
|
|
||||||
ZBLAS2OBJS = \
|
ZBLAS2OBJS = \
|
||||||
zgemv.$(SUFFIX) zgeru.$(SUFFIX) zgerc.$(SUFFIX) \
|
zgemv.$(SUFFIX) zgeru.$(SUFFIX) zgerc.$(SUFFIX) \
|
||||||
ztrsv.$(SUFFIX) ztrmv.$(SUFFIX) zsymv.$(SUFFIX) \
|
ztrsv.$(SUFFIX) ztrmv.$(SUFFIX) \
|
||||||
zsyr.$(SUFFIX) zsyr2.$(SUFFIX) zgbmv.$(SUFFIX) \
|
zsyr2.$(SUFFIX) zgbmv.$(SUFFIX) \
|
||||||
zsbmv.$(SUFFIX) zspmv.$(SUFFIX) \
|
zsbmv.$(SUFFIX) \
|
||||||
zspr.$(SUFFIX) zspr2.$(SUFFIX) \
|
zspr2.$(SUFFIX) \
|
||||||
ztbsv.$(SUFFIX) ztbmv.$(SUFFIX) \
|
ztbsv.$(SUFFIX) ztbmv.$(SUFFIX) \
|
||||||
ztpsv.$(SUFFIX) ztpmv.$(SUFFIX) \
|
ztpsv.$(SUFFIX) ztpmv.$(SUFFIX) \
|
||||||
zhemv.$(SUFFIX) zhbmv.$(SUFFIX) \
|
zhemv.$(SUFFIX) zhbmv.$(SUFFIX) \
|
||||||
|
|
|
||||||
|
|
@ -1,19 +0,0 @@
|
||||||
========================================================================================
|
|
||||||
2014/05/07 Saar
|
|
||||||
|
|
||||||
Platform: BULLDOZER single thread
|
|
||||||
|
|
||||||
|
|
||||||
--> LAPACK TESTING SUMMARY <--
|
|
||||||
Processing LAPACK Testing output found in the TESTING direcory
|
|
||||||
SUMMARY nb test run numerical error other error
|
|
||||||
================ =========== ================= ================
|
|
||||||
REAL 1079349 0 (0.000%) 0 (0.000%)
|
|
||||||
DOUBLE PRECISION 1080161 0 (0.000%) 0 (0.000%)
|
|
||||||
COMPLEX 556022 0 (0.000%) 0 (0.000%)
|
|
||||||
COMPLEX16 556834 0 (0.000%) 0 (0.000%)
|
|
||||||
|
|
||||||
--> ALL PRECISIONS 3272366 0 (0.000%) 0 (0.000%)
|
|
||||||
|
|
||||||
========================================================================================
|
|
||||||
|
|
||||||
|
|
@ -1,8 +1,8 @@
|
||||||
add_subdirectory(SRC)
|
add_subdirectory(SRC)
|
||||||
if(BUILD_TESTING)
|
if(BUILD_TESTING)
|
||||||
add_subdirectory(TESTING)
|
add_subdirectory(TESTING)
|
||||||
endif(BUILD_TESTING)
|
endif()
|
||||||
configure_file(${CMAKE_CURRENT_SOURCE_DIR}/blas.pc.in ${CMAKE_CURRENT_BINARY_DIR}/blas.pc)
|
configure_file(${CMAKE_CURRENT_SOURCE_DIR}/blas.pc.in ${CMAKE_CURRENT_BINARY_DIR}/blas.pc @ONLY)
|
||||||
install(FILES
|
install(FILES
|
||||||
${CMAKE_CURRENT_BINARY_DIR}/blas.pc
|
${CMAKE_CURRENT_BINARY_DIR}/blas.pc
|
||||||
DESTINATION ${PKG_CONFIG_DIR}
|
DESTINATION ${PKG_CONFIG_DIR}
|
||||||
|
|
|
||||||
|
|
@ -57,19 +57,19 @@
|
||||||
# Comment out the next 6 definitions if you already have
|
# Comment out the next 6 definitions if you already have
|
||||||
# the Level 1 BLAS.
|
# the Level 1 BLAS.
|
||||||
#---------------------------------------------------------
|
#---------------------------------------------------------
|
||||||
set(SBLAS1 isamax.f sasum.f saxpy.f scopy.f sdot.f snrm2.f
|
set(SBLAS1 isamax.f sasum.f saxpy.f scopy.f sdot.f snrm2.f
|
||||||
srot.f srotg.f sscal.f sswap.f sdsdot.f srotmg.f srotm.f)
|
srot.f srotg.f sscal.f sswap.f sdsdot.f srotmg.f srotm.f)
|
||||||
|
|
||||||
set(CBLAS1 scabs1.f scasum.f scnrm2.f icamax.f caxpy.f ccopy.f
|
set(CBLAS1 scabs1.f scasum.f scnrm2.f icamax.f caxpy.f ccopy.f
|
||||||
cdotc.f cdotu.f csscal.f crotg.f cscal.f cswap.f csrot.f)
|
cdotc.f cdotu.f csscal.f crotg.f cscal.f cswap.f csrot.f)
|
||||||
|
|
||||||
set(DBLAS1 idamax.f dasum.f daxpy.f dcopy.f ddot.f dnrm2.f
|
set(DBLAS1 idamax.f dasum.f daxpy.f dcopy.f ddot.f dnrm2.f
|
||||||
drot.f drotg.f dscal.f dsdot.f dswap.f drotmg.f drotm.f)
|
drot.f drotg.f dscal.f dsdot.f dswap.f drotmg.f drotm.f)
|
||||||
|
|
||||||
set(ZBLAS1 dcabs1.f dzasum.f dznrm2.f izamax.f zaxpy.f zcopy.f
|
set(ZBLAS1 dcabs1.f dzasum.f dznrm2.f izamax.f zaxpy.f zcopy.f
|
||||||
zdotc.f zdotu.f zdscal.f zrotg.f zscal.f zswap.f zdrot.f)
|
zdotc.f zdotu.f zdscal.f zrotg.f zscal.f zswap.f zdrot.f)
|
||||||
|
|
||||||
set(CB1AUX isamax.f sasum.f saxpy.f scopy.f snrm2.f sscal.f)
|
set(CB1AUX isamax.f sasum.f saxpy.f scopy.f snrm2.f sscal.f)
|
||||||
|
|
||||||
set(ZB1AUX idamax.f dasum.f daxpy.f dcopy.f dnrm2.f dscal.f)
|
set(ZB1AUX idamax.f dasum.f daxpy.f dcopy.f dnrm2.f dscal.f)
|
||||||
|
|
||||||
|
|
@ -78,64 +78,64 @@ set(ZB1AUX idamax.f dasum.f daxpy.f dcopy.f dnrm2.f dscal.f)
|
||||||
# Level 2 and Level 3 BLAS. Comment it out only if you already have
|
# Level 2 and Level 3 BLAS. Comment it out only if you already have
|
||||||
# both the Level 2 and 3 BLAS.
|
# both the Level 2 and 3 BLAS.
|
||||||
#---------------------------------------------------------------------
|
#---------------------------------------------------------------------
|
||||||
set(ALLBLAS lsame.f xerbla.f xerbla_array.f)
|
set(ALLBLAS lsame.f xerbla.f xerbla_array.f)
|
||||||
|
|
||||||
#---------------------------------------------------------
|
#---------------------------------------------------------
|
||||||
# Comment out the next 4 definitions if you already have
|
# Comment out the next 4 definitions if you already have
|
||||||
# the Level 2 BLAS.
|
# the Level 2 BLAS.
|
||||||
#---------------------------------------------------------
|
#---------------------------------------------------------
|
||||||
set(SBLAS2 sgemv.f sgbmv.f ssymv.f ssbmv.f sspmv.f
|
set(SBLAS2 sgemv.f sgbmv.f ssymv.f ssbmv.f sspmv.f
|
||||||
strmv.f stbmv.f stpmv.f strsv.f stbsv.f stpsv.f
|
strmv.f stbmv.f stpmv.f strsv.f stbsv.f stpsv.f
|
||||||
sger.f ssyr.f sspr.f ssyr2.f sspr2.f)
|
sger.f ssyr.f sspr.f ssyr2.f sspr2.f)
|
||||||
|
|
||||||
set(CBLAS2 cgemv.f cgbmv.f chemv.f chbmv.f chpmv.f
|
set(CBLAS2 cgemv.f cgbmv.f chemv.f chbmv.f chpmv.f
|
||||||
ctrmv.f ctbmv.f ctpmv.f ctrsv.f ctbsv.f ctpsv.f
|
ctrmv.f ctbmv.f ctpmv.f ctrsv.f ctbsv.f ctpsv.f
|
||||||
cgerc.f cgeru.f cher.f chpr.f cher2.f chpr2.f)
|
cgerc.f cgeru.f cher.f chpr.f cher2.f chpr2.f)
|
||||||
|
|
||||||
set(DBLAS2 dgemv.f dgbmv.f dsymv.f dsbmv.f dspmv.f
|
set(DBLAS2 dgemv.f dgbmv.f dsymv.f dsbmv.f dspmv.f
|
||||||
dtrmv.f dtbmv.f dtpmv.f dtrsv.f dtbsv.f dtpsv.f
|
dtrmv.f dtbmv.f dtpmv.f dtrsv.f dtbsv.f dtpsv.f
|
||||||
dger.f dsyr.f dspr.f dsyr2.f dspr2.f)
|
dger.f dsyr.f dspr.f dsyr2.f dspr2.f)
|
||||||
|
|
||||||
set(ZBLAS2 zgemv.f zgbmv.f zhemv.f zhbmv.f zhpmv.f
|
set(ZBLAS2 zgemv.f zgbmv.f zhemv.f zhbmv.f zhpmv.f
|
||||||
ztrmv.f ztbmv.f ztpmv.f ztrsv.f ztbsv.f ztpsv.f
|
ztrmv.f ztbmv.f ztpmv.f ztrsv.f ztbsv.f ztpsv.f
|
||||||
zgerc.f zgeru.f zher.f zhpr.f zher2.f zhpr2.f)
|
zgerc.f zgeru.f zher.f zhpr.f zher2.f zhpr2.f)
|
||||||
|
|
||||||
#---------------------------------------------------------
|
#---------------------------------------------------------
|
||||||
# Comment out the next 4 definitions if you already have
|
# Comment out the next 4 definitions if you already have
|
||||||
# the Level 3 BLAS.
|
# the Level 3 BLAS.
|
||||||
#---------------------------------------------------------
|
#---------------------------------------------------------
|
||||||
set(SBLAS3 sgemm.f ssymm.f ssyrk.f ssyr2k.f strmm.f strsm.f )
|
set(SBLAS3 sgemm.f ssymm.f ssyrk.f ssyr2k.f strmm.f strsm.f)
|
||||||
|
|
||||||
set(CBLAS3 cgemm.f csymm.f csyrk.f csyr2k.f ctrmm.f ctrsm.f
|
set(CBLAS3 cgemm.f csymm.f csyrk.f csyr2k.f ctrmm.f ctrsm.f
|
||||||
chemm.f cherk.f cher2k.f)
|
chemm.f cherk.f cher2k.f)
|
||||||
|
|
||||||
set(DBLAS3 dgemm.f dsymm.f dsyrk.f dsyr2k.f dtrmm.f dtrsm.f)
|
set(DBLAS3 dgemm.f dsymm.f dsyrk.f dsyr2k.f dtrmm.f dtrsm.f)
|
||||||
|
|
||||||
set(ZBLAS3 zgemm.f zsymm.f zsyrk.f zsyr2k.f ztrmm.f ztrsm.f
|
set(ZBLAS3 zgemm.f zsymm.f zsyrk.f zsyr2k.f ztrmm.f ztrsm.f
|
||||||
zhemm.f zherk.f zher2k.f)
|
zhemm.f zherk.f zher2k.f)
|
||||||
# default build all of it
|
# default build all of it
|
||||||
set(ALLOBJ ${SBLAS1} ${SBLAS2} ${SBLAS3} ${DBLAS1} ${DBLAS2} ${DBLAS3}
|
set(ALLOBJ ${SBLAS1} ${SBLAS2} ${SBLAS3} ${DBLAS1} ${DBLAS2} ${DBLAS3}
|
||||||
${CBLAS1} ${CBLAS2} ${CBLAS3} ${ZBLAS1}
|
${CBLAS1} ${CBLAS2} ${CBLAS3} ${ZBLAS1}
|
||||||
${ZBLAS2} ${ZBLAS3} ${ALLBLAS})
|
${ZBLAS2} ${ZBLAS3} ${ALLBLAS})
|
||||||
|
|
||||||
if(BLAS_SINGLE)
|
if(BLAS_SINGLE)
|
||||||
set(ALLOBJ ${SBLAS1} ${ALLBLAS}
|
set(ALLOBJ ${SBLAS1} ${ALLBLAS}
|
||||||
${SBLAS2} ${SBLAS3})
|
${SBLAS2} ${SBLAS3})
|
||||||
endif()
|
endif()
|
||||||
if(BLAS_DOUBLE)
|
if(BLAS_DOUBLE)
|
||||||
set(ALLOBJ ${DBLAS1} ${ALLBLAS}
|
set(ALLOBJ ${DBLAS1} ${ALLBLAS}
|
||||||
${DBLAS2} ${DBLAS3})
|
${DBLAS2} ${DBLAS3})
|
||||||
endif()
|
endif()
|
||||||
if(BLAS_COMPLEX)
|
if(BLAS_COMPLEX)
|
||||||
set(ALLOBJ ${BLASLIB} ${CBLAS1} ${CB1AUX}
|
set(ALLOBJ ${BLASLIB} ${CBLAS1} ${CB1AUX}
|
||||||
${ALLBLAS} ${CBLAS2})
|
${ALLBLAS} ${CBLAS2})
|
||||||
endif()
|
endif()
|
||||||
if(BLAS_COMPLEX16)
|
if(BLAS_COMPLEX16)
|
||||||
set(ALLOBJ ${BLASLIB} ${ZBLAS1} ${ZB1AUX}
|
set(ALLOBJ ${BLASLIB} ${ZBLAS1} ${ZB1AUX}
|
||||||
${ALLBLAS} ${ZBLAS2} ${ZBLAS3})
|
${ALLBLAS} ${ZBLAS2} ${ZBLAS3})
|
||||||
endif()
|
endif()
|
||||||
|
|
||||||
|
|
||||||
add_library(blas ${ALLOBJ})
|
add_library(blas ${ALLOBJ})
|
||||||
#if(UNIX)
|
#if(UNIX)
|
||||||
# target_link_libraries(blas m)
|
# target_link_libraries(blas m)
|
||||||
|
|
|
||||||
|
|
@ -56,7 +56,7 @@ include ../../make.inc
|
||||||
#######################################################################
|
#######################################################################
|
||||||
|
|
||||||
all: $(BLASLIB)
|
all: $(BLASLIB)
|
||||||
|
|
||||||
#---------------------------------------------------------
|
#---------------------------------------------------------
|
||||||
# Comment out the next 6 definitions if you already have
|
# Comment out the next 6 definitions if you already have
|
||||||
# the Level 1 BLAS.
|
# the Level 1 BLAS.
|
||||||
|
|
@ -88,8 +88,8 @@ $(ZB1AUX): $(FRC)
|
||||||
# Level 2 and Level 3 BLAS. Comment it out only if you already have
|
# Level 2 and Level 3 BLAS. Comment it out only if you already have
|
||||||
# both the Level 2 and 3 BLAS.
|
# both the Level 2 and 3 BLAS.
|
||||||
#---------------------------------------------------------------------
|
#---------------------------------------------------------------------
|
||||||
ALLBLAS = lsame.o xerbla.o xerbla_array.o
|
ALLBLAS = lsame.o xerbla.o xerbla_array.o
|
||||||
$(ALLBLAS) : $(FRC)
|
$(ALLBLAS): $(FRC)
|
||||||
|
|
||||||
#---------------------------------------------------------
|
#---------------------------------------------------------
|
||||||
# Comment out the next 4 definitions if you already have
|
# Comment out the next 4 definitions if you already have
|
||||||
|
|
@ -119,7 +119,7 @@ $(ZBLAS2): $(FRC)
|
||||||
# Comment out the next 4 definitions if you already have
|
# Comment out the next 4 definitions if you already have
|
||||||
# the Level 3 BLAS.
|
# the Level 3 BLAS.
|
||||||
#---------------------------------------------------------
|
#---------------------------------------------------------
|
||||||
SBLAS3 = sgemm.o ssymm.o ssyrk.o ssyr2k.o strmm.o strsm.o
|
SBLAS3 = sgemm.o ssymm.o ssyrk.o ssyr2k.o strmm.o strsm.o
|
||||||
$(SBLAS3): $(FRC)
|
$(SBLAS3): $(FRC)
|
||||||
|
|
||||||
CBLAS3 = cgemm.o csymm.o csyrk.o csyr2k.o ctrmm.o ctrsm.o \
|
CBLAS3 = cgemm.o csymm.o csyrk.o csyr2k.o ctrmm.o ctrsm.o \
|
||||||
|
|
@ -133,7 +133,7 @@ ZBLAS3 = zgemm.o zsymm.o zsyrk.o zsyr2k.o ztrmm.o ztrsm.o \
|
||||||
zhemm.o zherk.o zher2k.o
|
zhemm.o zherk.o zher2k.o
|
||||||
$(ZBLAS3): $(FRC)
|
$(ZBLAS3): $(FRC)
|
||||||
|
|
||||||
ALLOBJ=$(SBLAS1) $(SBLAS2) $(SBLAS3) $(DBLAS1) $(DBLAS2) $(DBLAS3) \
|
ALLOBJ = $(SBLAS1) $(SBLAS2) $(SBLAS3) $(DBLAS1) $(DBLAS2) $(DBLAS3) \
|
||||||
$(CBLAS1) $(CBLAS2) $(CBLAS3) $(ZBLAS1) \
|
$(CBLAS1) $(CBLAS2) $(CBLAS3) $(ZBLAS1) \
|
||||||
$(ZBLAS2) $(ZBLAS3) $(ALLBLAS)
|
$(ZBLAS2) $(ZBLAS3) $(ALLBLAS)
|
||||||
|
|
||||||
|
|
@ -167,5 +167,5 @@ FRC:
|
||||||
clean:
|
clean:
|
||||||
rm -f *.o
|
rm -f *.o
|
||||||
|
|
||||||
.f.o:
|
.f.o:
|
||||||
$(FORTRAN) $(OPTS) -c $< -o $@
|
$(FORTRAN) $(OPTS) -c -o $@ $<
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CAXPY(N,CA,CX,INCX,CY,INCY)
|
* SUBROUTINE CAXPY(N,CA,CX,INCX,CY,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX CA
|
* COMPLEX CA
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX CX(*),CY(*)
|
* COMPLEX CX(*),CY(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -30,12 +30,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level1
|
*> \ingroup complex_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -51,10 +51,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CAXPY(N,CA,CX,INCX,CY,INCY)
|
SUBROUTINE CAXPY(N,CA,CX,INCX,CY,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX CA
|
COMPLEX CA
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CCOPY(N,CX,INCX,CY,INCY)
|
* SUBROUTINE CCOPY(N,CX,INCX,CY,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX CX(*),CY(*)
|
* COMPLEX CX(*),CY(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -29,12 +29,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level1
|
*> \ingroup complex_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -50,10 +50,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CCOPY(N,CX,INCX,CY,INCY)
|
SUBROUTINE CCOPY(N,CX,INCX,CY,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,INCY,N
|
INTEGER INCX,INCY,N
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY)
|
* COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX CX(*),CY(*)
|
* COMPLEX CX(*),CY(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -31,12 +31,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level1
|
*> \ingroup complex_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -52,10 +52,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY)
|
COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.6.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,INCY,N
|
INTEGER INCX,INCY,N
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY)
|
* COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX CX(*),CY(*)
|
* COMPLEX CX(*),CY(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -31,12 +31,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level1
|
*> \ingroup complex_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -52,10 +52,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY)
|
COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.6.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,INCY,N
|
INTEGER INCX,INCY,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
* SUBROUTINE CGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX ALPHA,BETA
|
* COMPLEX ALPHA,BETA
|
||||||
* INTEGER INCX,INCY,KL,KU,LDA,M,N
|
* INTEGER INCX,INCY,KL,KU,LDA,M,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),X(*),Y(*)
|
* COMPLEX A(LDA,*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -160,12 +160,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level2
|
*> \ingroup complex_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -187,10 +187,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
SUBROUTINE CGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.6.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX ALPHA,BETA
|
COMPLEX ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
* SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX ALPHA,BETA
|
* COMPLEX ALPHA,BETA
|
||||||
* INTEGER K,LDA,LDB,LDC,M,N
|
* INTEGER K,LDA,LDB,LDC,M,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),B(LDB,*),C(LDC,*)
|
* COMPLEX A(LDA,*),B(LDB,*),C(LDC,*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -161,12 +161,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level3
|
*> \ingroup complex_blas_level3
|
||||||
*
|
*
|
||||||
|
|
@ -187,10 +187,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level3 routine (version 3.6.0) --
|
* -- Reference BLAS level3 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX ALPHA,BETA
|
COMPLEX ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
* SUBROUTINE CGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX ALPHA,BETA
|
* COMPLEX ALPHA,BETA
|
||||||
* INTEGER INCX,INCY,LDA,M,N
|
* INTEGER INCX,INCY,LDA,M,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),X(*),Y(*)
|
* COMPLEX A(LDA,*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -131,12 +131,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level2
|
*> \ingroup complex_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -158,10 +158,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
SUBROUTINE CGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.6.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX ALPHA,BETA
|
COMPLEX ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CGERC(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
* SUBROUTINE CGERC(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX ALPHA
|
* COMPLEX ALPHA
|
||||||
* INTEGER INCX,INCY,LDA,M,N
|
* INTEGER INCX,INCY,LDA,M,N
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),X(*),Y(*)
|
* COMPLEX A(LDA,*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -104,12 +104,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level2
|
*> \ingroup complex_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -130,10 +130,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CGERC(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
SUBROUTINE CGERC(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX ALPHA
|
COMPLEX ALPHA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
* SUBROUTINE CGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX ALPHA
|
* COMPLEX ALPHA
|
||||||
* INTEGER INCX,INCY,LDA,M,N
|
* INTEGER INCX,INCY,LDA,M,N
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),X(*),Y(*)
|
* COMPLEX A(LDA,*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -104,12 +104,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level2
|
*> \ingroup complex_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -130,10 +130,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
SUBROUTINE CGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX ALPHA
|
COMPLEX ALPHA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
* SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX ALPHA,BETA
|
* COMPLEX ALPHA,BETA
|
||||||
* INTEGER INCX,INCY,K,LDA,N
|
* INTEGER INCX,INCY,K,LDA,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),X(*),Y(*)
|
* COMPLEX A(LDA,*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -160,12 +160,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level2
|
*> \ingroup complex_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -187,10 +187,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX ALPHA,BETA
|
COMPLEX ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
* SUBROUTINE CHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX ALPHA,BETA
|
* COMPLEX ALPHA,BETA
|
||||||
* INTEGER LDA,LDB,LDC,M,N
|
* INTEGER LDA,LDB,LDC,M,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),B(LDB,*),C(LDC,*)
|
* COMPLEX A(LDA,*),B(LDB,*),C(LDC,*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -165,12 +165,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level3
|
*> \ingroup complex_blas_level3
|
||||||
*
|
*
|
||||||
|
|
@ -191,10 +191,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
SUBROUTINE CHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level3 routine (version 3.4.0) --
|
* -- Reference BLAS level3 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX ALPHA,BETA
|
COMPLEX ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CHEMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
* SUBROUTINE CHEMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX ALPHA,BETA
|
* COMPLEX ALPHA,BETA
|
||||||
* INTEGER INCX,INCY,LDA,N
|
* INTEGER INCX,INCY,LDA,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),X(*),Y(*)
|
* COMPLEX A(LDA,*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -127,12 +127,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level2
|
*> \ingroup complex_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -154,10 +154,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CHEMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
SUBROUTINE CHEMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX ALPHA,BETA
|
COMPLEX ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CHER(UPLO,N,ALPHA,X,INCX,A,LDA)
|
* SUBROUTINE CHER(UPLO,N,ALPHA,X,INCX,A,LDA)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* REAL ALPHA
|
* REAL ALPHA
|
||||||
* INTEGER INCX,LDA,N
|
* INTEGER INCX,LDA,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),X(*)
|
* COMPLEX A(LDA,*),X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -109,12 +109,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level2
|
*> \ingroup complex_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -135,10 +135,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CHER(UPLO,N,ALPHA,X,INCX,A,LDA)
|
SUBROUTINE CHER(UPLO,N,ALPHA,X,INCX,A,LDA)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
REAL ALPHA
|
REAL ALPHA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CHER2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
* SUBROUTINE CHER2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX ALPHA
|
* COMPLEX ALPHA
|
||||||
* INTEGER INCX,INCY,LDA,N
|
* INTEGER INCX,INCY,LDA,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),X(*),Y(*)
|
* COMPLEX A(LDA,*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -124,12 +124,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level2
|
*> \ingroup complex_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -150,10 +150,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CHER2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
SUBROUTINE CHER2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX ALPHA
|
COMPLEX ALPHA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
* SUBROUTINE CHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX ALPHA
|
* COMPLEX ALPHA
|
||||||
* REAL BETA
|
* REAL BETA
|
||||||
|
|
@ -19,7 +19,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),B(LDB,*),C(LDC,*)
|
* COMPLEX A(LDA,*),B(LDB,*),C(LDC,*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -168,12 +168,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level3
|
*> \ingroup complex_blas_level3
|
||||||
*
|
*
|
||||||
|
|
@ -197,10 +197,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
SUBROUTINE CHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level3 routine (version 3.4.0) --
|
* -- Reference BLAS level3 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX ALPHA
|
COMPLEX ALPHA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
|
* SUBROUTINE CHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* REAL ALPHA,BETA
|
* REAL ALPHA,BETA
|
||||||
* INTEGER K,LDA,LDC,N
|
* INTEGER K,LDA,LDC,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),C(LDC,*)
|
* COMPLEX A(LDA,*),C(LDC,*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -144,12 +144,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level3
|
*> \ingroup complex_blas_level3
|
||||||
*
|
*
|
||||||
|
|
@ -173,10 +173,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
|
SUBROUTINE CHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level3 routine (version 3.4.0) --
|
* -- Reference BLAS level3 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
REAL ALPHA,BETA
|
REAL ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
|
* SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX ALPHA,BETA
|
* COMPLEX ALPHA,BETA
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX AP(*),X(*),Y(*)
|
* COMPLEX AP(*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -122,12 +122,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level2
|
*> \ingroup complex_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -149,10 +149,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
|
SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX ALPHA,BETA
|
COMPLEX ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CHPR(UPLO,N,ALPHA,X,INCX,AP)
|
* SUBROUTINE CHPR(UPLO,N,ALPHA,X,INCX,AP)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* REAL ALPHA
|
* REAL ALPHA
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX AP(*),X(*)
|
* COMPLEX AP(*),X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -104,12 +104,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level2
|
*> \ingroup complex_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -130,10 +130,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CHPR(UPLO,N,ALPHA,X,INCX,AP)
|
SUBROUTINE CHPR(UPLO,N,ALPHA,X,INCX,AP)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
REAL ALPHA
|
REAL ALPHA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP)
|
* SUBROUTINE CHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX ALPHA
|
* COMPLEX ALPHA
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX AP(*),X(*),Y(*)
|
* COMPLEX AP(*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -119,12 +119,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level2
|
*> \ingroup complex_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -145,10 +145,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP)
|
SUBROUTINE CHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX ALPHA
|
COMPLEX ALPHA
|
||||||
|
|
|
||||||
|
|
@ -2,19 +2,19 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CROTG(CA,CB,C,S)
|
* SUBROUTINE CROTG(CA,CB,C,S)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX CA,CB,S
|
* COMPLEX CA,CB,S
|
||||||
* REAL C
|
* REAL C
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -27,22 +27,22 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level1
|
*> \ingroup complex_blas_level1
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CROTG(CA,CB,C,S)
|
SUBROUTINE CROTG(CA,CB,C,S)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX CA,CB,S
|
COMPLEX CA,CB,S
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CSCAL(N,CA,CX,INCX)
|
* SUBROUTINE CSCAL(N,CA,CX,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX CA
|
* COMPLEX CA
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX CX(*)
|
* COMPLEX CX(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -30,12 +30,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level1
|
*> \ingroup complex_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -52,10 +52,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CSCAL(N,CA,CX,INCX)
|
SUBROUTINE CSCAL(N,CA,CX,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX CA
|
COMPLEX CA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CSROT( N, CX, INCX, CY, INCY, C, S )
|
* SUBROUTINE CSROT( N, CX, INCX, CY, INCY, C, S )
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX, INCY, N
|
* INTEGER INCX, INCY, N
|
||||||
* REAL C, S
|
* REAL C, S
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX CX( * ), CY( * )
|
* COMPLEX CX( * ), CY( * )
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -86,22 +86,22 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level1
|
*> \ingroup complex_blas_level1
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CSROT( N, CX, INCX, CY, INCY, C, S )
|
SUBROUTINE CSROT( N, CX, INCX, CY, INCY, C, S )
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX, INCY, N
|
INTEGER INCX, INCY, N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CSSCAL(N,SA,CX,INCX)
|
* SUBROUTINE CSSCAL(N,SA,CX,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* REAL SA
|
* REAL SA
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX CX(*)
|
* COMPLEX CX(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -30,12 +30,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level1
|
*> \ingroup complex_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -52,10 +52,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CSSCAL(N,SA,CX,INCX)
|
SUBROUTINE CSSCAL(N,SA,CX,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
REAL SA
|
REAL SA
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CSWAP(N,CX,INCX,CY,INCY)
|
* SUBROUTINE CSWAP(N,CX,INCX,CY,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX CX(*),CY(*)
|
* COMPLEX CX(*),CY(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -29,12 +29,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level1
|
*> \ingroup complex_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -50,10 +50,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CSWAP(N,CX,INCX,CY,INCY)
|
SUBROUTINE CSWAP(N,CX,INCX,CY,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,INCY,N
|
INTEGER INCX,INCY,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
* SUBROUTINE CSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX ALPHA,BETA
|
* COMPLEX ALPHA,BETA
|
||||||
* INTEGER LDA,LDB,LDC,M,N
|
* INTEGER LDA,LDB,LDC,M,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),B(LDB,*),C(LDC,*)
|
* COMPLEX A(LDA,*),B(LDB,*),C(LDC,*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -163,12 +163,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level3
|
*> \ingroup complex_blas_level3
|
||||||
*
|
*
|
||||||
|
|
@ -189,10 +189,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
SUBROUTINE CSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level3 routine (version 3.4.0) --
|
* -- Reference BLAS level3 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX ALPHA,BETA
|
COMPLEX ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
* SUBROUTINE CSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX ALPHA,BETA
|
* COMPLEX ALPHA,BETA
|
||||||
* INTEGER K,LDA,LDB,LDC,N
|
* INTEGER K,LDA,LDB,LDC,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),B(LDB,*),C(LDC,*)
|
* COMPLEX A(LDA,*),B(LDB,*),C(LDC,*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -162,12 +162,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level3
|
*> \ingroup complex_blas_level3
|
||||||
*
|
*
|
||||||
|
|
@ -188,10 +188,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
SUBROUTINE CSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level3 routine (version 3.4.0) --
|
* -- Reference BLAS level3 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX ALPHA,BETA
|
COMPLEX ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
|
* SUBROUTINE CSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX ALPHA,BETA
|
* COMPLEX ALPHA,BETA
|
||||||
* INTEGER K,LDA,LDC,N
|
* INTEGER K,LDA,LDC,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),C(LDC,*)
|
* COMPLEX A(LDA,*),C(LDC,*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -141,12 +141,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level3
|
*> \ingroup complex_blas_level3
|
||||||
*
|
*
|
||||||
|
|
@ -167,10 +167,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
|
SUBROUTINE CSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level3 routine (version 3.4.0) --
|
* -- Reference BLAS level3 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX ALPHA,BETA
|
COMPLEX ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
|
* SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,K,LDA,N
|
* INTEGER INCX,K,LDA,N
|
||||||
* CHARACTER DIAG,TRANS,UPLO
|
* CHARACTER DIAG,TRANS,UPLO
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),X(*)
|
* COMPLEX A(LDA,*),X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -146,7 +146,7 @@
|
||||||
*> ( 1 + ( n - 1 )*abs( INCX ) ).
|
*> ( 1 + ( n - 1 )*abs( INCX ) ).
|
||||||
*> Before entry, the incremented array X must contain the n
|
*> Before entry, the incremented array X must contain the n
|
||||||
*> element vector x. On exit, X is overwritten with the
|
*> element vector x. On exit, X is overwritten with the
|
||||||
*> tranformed vector x.
|
*> transformed vector x.
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
*> \param[in] INCX
|
*> \param[in] INCX
|
||||||
|
|
@ -159,12 +159,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level2
|
*> \ingroup complex_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -186,10 +186,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
|
SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,K,LDA,N
|
INTEGER INCX,K,LDA,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
|
* SUBROUTINE CTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,K,LDA,N
|
* INTEGER INCX,K,LDA,N
|
||||||
* CHARACTER DIAG,TRANS,UPLO
|
* CHARACTER DIAG,TRANS,UPLO
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),X(*)
|
* COMPLEX A(LDA,*),X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -163,12 +163,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level2
|
*> \ingroup complex_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -189,10 +189,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
|
SUBROUTINE CTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,K,LDA,N
|
INTEGER INCX,K,LDA,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX)
|
* SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
* CHARACTER DIAG,TRANS,UPLO
|
* CHARACTER DIAG,TRANS,UPLO
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX AP(*),X(*)
|
* COMPLEX AP(*),X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -102,7 +102,7 @@
|
||||||
*> ( 1 + ( n - 1 )*abs( INCX ) ).
|
*> ( 1 + ( n - 1 )*abs( INCX ) ).
|
||||||
*> Before entry, the incremented array X must contain the n
|
*> Before entry, the incremented array X must contain the n
|
||||||
*> element vector x. On exit, X is overwritten with the
|
*> element vector x. On exit, X is overwritten with the
|
||||||
*> tranformed vector x.
|
*> transformed vector x.
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
*> \param[in] INCX
|
*> \param[in] INCX
|
||||||
|
|
@ -115,12 +115,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level2
|
*> \ingroup complex_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -142,10 +142,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX)
|
SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,N
|
INTEGER INCX,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX)
|
* SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
* CHARACTER DIAG,TRANS,UPLO
|
* CHARACTER DIAG,TRANS,UPLO
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX AP(*),X(*)
|
* COMPLEX AP(*),X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -118,12 +118,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level2
|
*> \ingroup complex_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -144,10 +144,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX)
|
SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,N
|
INTEGER INCX,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
|
* SUBROUTINE CTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX ALPHA
|
* COMPLEX ALPHA
|
||||||
* INTEGER LDA,LDB,M,N
|
* INTEGER LDA,LDB,M,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),B(LDB,*)
|
* COMPLEX A(LDA,*),B(LDB,*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -151,12 +151,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level3
|
*> \ingroup complex_blas_level3
|
||||||
*
|
*
|
||||||
|
|
@ -177,10 +177,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
|
SUBROUTINE CTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level3 routine (version 3.4.0) --
|
* -- Reference BLAS level3 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX ALPHA
|
COMPLEX ALPHA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
|
* SUBROUTINE CTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,LDA,N
|
* INTEGER INCX,LDA,N
|
||||||
* CHARACTER DIAG,TRANS,UPLO
|
* CHARACTER DIAG,TRANS,UPLO
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),X(*)
|
* COMPLEX A(LDA,*),X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -107,7 +107,7 @@
|
||||||
*> ( 1 + ( n - 1 )*abs( INCX ) ).
|
*> ( 1 + ( n - 1 )*abs( INCX ) ).
|
||||||
*> Before entry, the incremented array X must contain the n
|
*> Before entry, the incremented array X must contain the n
|
||||||
*> element vector x. On exit, X is overwritten with the
|
*> element vector x. On exit, X is overwritten with the
|
||||||
*> tranformed vector x.
|
*> transformed vector x.
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
*> \param[in] INCX
|
*> \param[in] INCX
|
||||||
|
|
@ -120,12 +120,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level2
|
*> \ingroup complex_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -147,10 +147,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
|
SUBROUTINE CTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,LDA,N
|
INTEGER INCX,LDA,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
|
* SUBROUTINE CTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX ALPHA
|
* COMPLEX ALPHA
|
||||||
* INTEGER LDA,LDB,M,N
|
* INTEGER LDA,LDB,M,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),B(LDB,*)
|
* COMPLEX A(LDA,*),B(LDB,*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -112,7 +112,7 @@
|
||||||
*> \param[in] A
|
*> \param[in] A
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*> A is COMPLEX array of DIMENSION ( LDA, k ),
|
*> A is COMPLEX array of DIMENSION ( LDA, k ),
|
||||||
*> where k is m when SIDE = 'L' or 'l'
|
*> where k is m when SIDE = 'L' or 'l'
|
||||||
*> and k is n when SIDE = 'R' or 'r'.
|
*> and k is n when SIDE = 'R' or 'r'.
|
||||||
*> Before entry with UPLO = 'U' or 'u', the leading k by k
|
*> Before entry with UPLO = 'U' or 'u', the leading k by k
|
||||||
*> upper triangular part of the array A must contain the upper
|
*> upper triangular part of the array A must contain the upper
|
||||||
|
|
@ -154,12 +154,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level3
|
*> \ingroup complex_blas_level3
|
||||||
*
|
*
|
||||||
|
|
@ -180,10 +180,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
|
SUBROUTINE CTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level3 routine (version 3.4.0) --
|
* -- Reference BLAS level3 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX ALPHA
|
COMPLEX ALPHA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE CTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
|
* SUBROUTINE CTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,LDA,N
|
* INTEGER INCX,LDA,N
|
||||||
* CHARACTER DIAG,TRANS,UPLO
|
* CHARACTER DIAG,TRANS,UPLO
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX A(LDA,*),X(*)
|
* COMPLEX A(LDA,*),X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -123,12 +123,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup complex_blas_level2
|
*> \ingroup complex_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -149,10 +149,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE CTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
|
SUBROUTINE CTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,LDA,N
|
INTEGER INCX,LDA,N
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* DOUBLE PRECISION FUNCTION DASUM(N,DX,INCX)
|
* DOUBLE PRECISION FUNCTION DASUM(N,DX,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION DX(*)
|
* DOUBLE PRECISION DX(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -29,12 +29,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level1
|
*> \ingroup double_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -51,10 +51,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
DOUBLE PRECISION FUNCTION DASUM(N,DX,INCX)
|
DOUBLE PRECISION FUNCTION DASUM(N,DX,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,N
|
INTEGER INCX,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DAXPY(N,DA,DX,INCX,DY,INCY)
|
* SUBROUTINE DAXPY(N,DA,DX,INCX,DY,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION DA
|
* DOUBLE PRECISION DA
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION DX(*),DY(*)
|
* DOUBLE PRECISION DX(*),DY(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -31,12 +31,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level1
|
*> \ingroup double_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -52,10 +52,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DAXPY(N,DA,DX,INCX,DY,INCY)
|
SUBROUTINE DAXPY(N,DA,DX,INCX,DY,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION DA
|
DOUBLE PRECISION DA
|
||||||
|
|
|
||||||
|
|
@ -2,47 +2,47 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* DOUBLE PRECISION FUNCTION DCABS1(Z)
|
* DOUBLE PRECISION FUNCTION DCABS1(Z)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX*16 Z
|
* COMPLEX*16 Z
|
||||||
* ..
|
* ..
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
*>
|
*>
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*>
|
*>
|
||||||
*> DCABS1 computes |Re(.)| + |Im(.)| of a double complex number
|
*> DCABS1 computes |Re(.)| + |Im(.)| of a double complex number
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*
|
*
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level1
|
*> \ingroup double_blas_level1
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
DOUBLE PRECISION FUNCTION DCABS1(Z)
|
DOUBLE PRECISION FUNCTION DCABS1(Z)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.6.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX*16 Z
|
COMPLEX*16 Z
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DCOPY(N,DX,INCX,DY,INCY)
|
* SUBROUTINE DCOPY(N,DX,INCX,DY,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION DX(*),DY(*)
|
* DOUBLE PRECISION DX(*),DY(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -30,12 +30,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level1
|
*> \ingroup double_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -51,10 +51,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DCOPY(N,DX,INCX,DY,INCY)
|
SUBROUTINE DCOPY(N,DX,INCX,DY,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,INCY,N
|
INTEGER INCX,INCY,N
|
||||||
|
|
@ -85,7 +85,7 @@
|
||||||
DY(I) = DX(I)
|
DY(I) = DX(I)
|
||||||
END DO
|
END DO
|
||||||
IF (N.LT.7) RETURN
|
IF (N.LT.7) RETURN
|
||||||
END IF
|
END IF
|
||||||
MP1 = M + 1
|
MP1 = M + 1
|
||||||
DO I = MP1,N,7
|
DO I = MP1,N,7
|
||||||
DY(I) = DX(I)
|
DY(I) = DX(I)
|
||||||
|
|
@ -96,7 +96,7 @@
|
||||||
DY(I+5) = DX(I+5)
|
DY(I+5) = DX(I+5)
|
||||||
DY(I+6) = DX(I+6)
|
DY(I+6) = DX(I+6)
|
||||||
END DO
|
END DO
|
||||||
ELSE
|
ELSE
|
||||||
*
|
*
|
||||||
* code for unequal increments or equal increments
|
* code for unequal increments or equal increments
|
||||||
* not equal to 1
|
* not equal to 1
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY)
|
* DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION DX(*),DY(*)
|
* DOUBLE PRECISION DX(*),DY(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -30,12 +30,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level1
|
*> \ingroup double_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -51,10 +51,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY)
|
DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,INCY,N
|
INTEGER INCX,INCY,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
* SUBROUTINE DGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION ALPHA,BETA
|
* DOUBLE PRECISION ALPHA,BETA
|
||||||
* INTEGER INCX,INCY,KL,KU,LDA,M,N
|
* INTEGER INCX,INCY,KL,KU,LDA,M,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION A(LDA,*),X(*),Y(*)
|
* DOUBLE PRECISION A(LDA,*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -158,12 +158,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level2
|
*> \ingroup double_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -185,10 +185,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
SUBROUTINE DGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.6.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION ALPHA,BETA
|
DOUBLE PRECISION ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
* SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION ALPHA,BETA
|
* DOUBLE PRECISION ALPHA,BETA
|
||||||
* INTEGER K,LDA,LDB,LDC,M,N
|
* INTEGER K,LDA,LDB,LDC,M,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*)
|
* DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -161,12 +161,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level3
|
*> \ingroup double_blas_level3
|
||||||
*
|
*
|
||||||
|
|
@ -187,10 +187,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level3 routine (version 3.6.0) --
|
* -- Reference BLAS level3 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION ALPHA,BETA
|
DOUBLE PRECISION ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
* SUBROUTINE DGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION ALPHA,BETA
|
* DOUBLE PRECISION ALPHA,BETA
|
||||||
* INTEGER INCX,INCY,LDA,M,N
|
* INTEGER INCX,INCY,LDA,M,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION A(LDA,*),X(*),Y(*)
|
* DOUBLE PRECISION A(LDA,*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -129,12 +129,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level2
|
*> \ingroup double_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -156,10 +156,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
SUBROUTINE DGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.6.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION ALPHA,BETA
|
DOUBLE PRECISION ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
* SUBROUTINE DGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION ALPHA
|
* DOUBLE PRECISION ALPHA
|
||||||
* INTEGER INCX,INCY,LDA,M,N
|
* INTEGER INCX,INCY,LDA,M,N
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION A(LDA,*),X(*),Y(*)
|
* DOUBLE PRECISION A(LDA,*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -104,12 +104,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level2
|
*> \ingroup double_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -130,10 +130,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
SUBROUTINE DGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION ALPHA
|
DOUBLE PRECISION ALPHA
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* DOUBLE PRECISION FUNCTION DNRM2(N,X,INCX)
|
* DOUBLE PRECISION FUNCTION DNRM2(N,X,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION X(*)
|
* DOUBLE PRECISION X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -32,12 +32,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level1
|
*> \ingroup double_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -54,10 +54,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
DOUBLE PRECISION FUNCTION DNRM2(N,X,INCX)
|
DOUBLE PRECISION FUNCTION DNRM2(N,X,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,N
|
INTEGER INCX,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DROT(N,DX,INCX,DY,INCY,C,S)
|
* SUBROUTINE DROT(N,DX,INCX,DY,INCY,C,S)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION C,S
|
* DOUBLE PRECISION C,S
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION DX(*),DY(*)
|
* DOUBLE PRECISION DX(*),DY(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -30,12 +30,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level1
|
*> \ingroup double_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -51,10 +51,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DROT(N,DX,INCX,DY,INCY,C,S)
|
SUBROUTINE DROT(N,DX,INCX,DY,INCY,C,S)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION C,S
|
DOUBLE PRECISION C,S
|
||||||
|
|
|
||||||
|
|
@ -2,18 +2,18 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DROTG(DA,DB,C,S)
|
* SUBROUTINE DROTG(DA,DB,C,S)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION C,DA,DB,S
|
* DOUBLE PRECISION C,DA,DB,S
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -26,12 +26,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level1
|
*> \ingroup double_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -46,10 +46,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DROTG(DA,DB,C,S)
|
SUBROUTINE DROTG(DA,DB,C,S)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION C,DA,DB,S
|
DOUBLE PRECISION C,DA,DB,S
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM)
|
* SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION DPARAM(5),DX(*),DY(*)
|
* DOUBLE PRECISION DPARAM(5),DX(*),DY(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -86,22 +86,22 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level1
|
*> \ingroup double_blas_level1
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM)
|
SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,INCY,N
|
INTEGER INCX,INCY,N
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM)
|
* SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION DD1,DD2,DX1,DY1
|
* DOUBLE PRECISION DD1,DD2,DX1,DY1
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION DPARAM(5)
|
* DOUBLE PRECISION DPARAM(5)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -78,22 +78,22 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level1
|
*> \ingroup double_blas_level1
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM)
|
SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION DD1,DD2,DX1,DY1
|
DOUBLE PRECISION DD1,DD2,DX1,DY1
|
||||||
|
|
@ -135,7 +135,7 @@
|
||||||
DFLAG = -TWO
|
DFLAG = -TWO
|
||||||
DPARAM(1) = DFLAG
|
DPARAM(1) = DFLAG
|
||||||
RETURN
|
RETURN
|
||||||
END IF
|
END IF
|
||||||
* REGULAR-CASE..
|
* REGULAR-CASE..
|
||||||
DP1 = DD1*DX1
|
DP1 = DD1*DX1
|
||||||
DQ2 = DP2*DY1
|
DQ2 = DP2*DY1
|
||||||
|
|
@ -203,7 +203,7 @@
|
||||||
END IF
|
END IF
|
||||||
ENDDO
|
ENDDO
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF (DD2.NE.ZERO) THEN
|
IF (DD2.NE.ZERO) THEN
|
||||||
DO WHILE ( (DABS(DD2).LE.RGAMSQ) .OR. (DABS(DD2).GE.GAMSQ) )
|
DO WHILE ( (DABS(DD2).LE.RGAMSQ) .OR. (DABS(DD2).GE.GAMSQ) )
|
||||||
IF (DFLAG.EQ.ZERO) THEN
|
IF (DFLAG.EQ.ZERO) THEN
|
||||||
|
|
@ -223,10 +223,10 @@
|
||||||
DD2 = DD2/GAM**2
|
DD2 = DD2/GAM**2
|
||||||
DH21 = DH21*GAM
|
DH21 = DH21*GAM
|
||||||
DH22 = DH22*GAM
|
DH22 = DH22*GAM
|
||||||
END IF
|
END IF
|
||||||
END DO
|
END DO
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF (DFLAG.LT.ZERO) THEN
|
IF (DFLAG.LT.ZERO) THEN
|
||||||
|
|
@ -236,7 +236,7 @@
|
||||||
DPARAM(5) = DH22
|
DPARAM(5) = DH22
|
||||||
ELSE IF (DFLAG.EQ.ZERO) THEN
|
ELSE IF (DFLAG.EQ.ZERO) THEN
|
||||||
DPARAM(3) = DH21
|
DPARAM(3) = DH21
|
||||||
DPARAM(4) = DH12
|
DPARAM(4) = DH12
|
||||||
ELSE
|
ELSE
|
||||||
DPARAM(2) = DH11
|
DPARAM(2) = DH11
|
||||||
DPARAM(5) = DH22
|
DPARAM(5) = DH22
|
||||||
|
|
@ -245,7 +245,7 @@
|
||||||
DPARAM(1) = DFLAG
|
DPARAM(1) = DFLAG
|
||||||
RETURN
|
RETURN
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
* SUBROUTINE DSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION ALPHA,BETA
|
* DOUBLE PRECISION ALPHA,BETA
|
||||||
* INTEGER INCX,INCY,K,LDA,N
|
* INTEGER INCX,INCY,K,LDA,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION A(LDA,*),X(*),Y(*)
|
* DOUBLE PRECISION A(LDA,*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -157,12 +157,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level2
|
*> \ingroup double_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -184,10 +184,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
SUBROUTINE DSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION ALPHA,BETA
|
DOUBLE PRECISION ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DSCAL(N,DA,DX,INCX)
|
* SUBROUTINE DSCAL(N,DA,DX,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION DA
|
* DOUBLE PRECISION DA
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION DX(*)
|
* DOUBLE PRECISION DX(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -31,12 +31,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level1
|
*> \ingroup double_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -53,10 +53,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DSCAL(N,DA,DX,INCX)
|
SUBROUTINE DSCAL(N,DA,DX,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION DA
|
DOUBLE PRECISION DA
|
||||||
|
|
|
||||||
|
|
@ -2,26 +2,26 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* DOUBLE PRECISION FUNCTION DSDOT(N,SX,INCX,SY,INCY)
|
* DOUBLE PRECISION FUNCTION DSDOT(N,SX,INCX,SY,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* REAL SX(*),SY(*)
|
* REAL SX(*),SY(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
* AUTHORS
|
* AUTHORS
|
||||||
* =======
|
* =======
|
||||||
* Lawson, C. L., (JPL), Hanson, R. J., (SNLA),
|
* Lawson, C. L., (JPL), Hanson, R. J., (SNLA),
|
||||||
* Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL)
|
* Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL)
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -79,12 +79,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level1
|
*> \ingroup double_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -99,7 +99,7 @@
|
||||||
*>
|
*>
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*>
|
*>
|
||||||
*>
|
*>
|
||||||
*> C. L. Lawson, R. J. Hanson, D. R. Kincaid and F. T.
|
*> C. L. Lawson, R. J. Hanson, D. R. Kincaid and F. T.
|
||||||
*> Krogh, Basic linear algebra subprograms for Fortran
|
*> Krogh, Basic linear algebra subprograms for Fortran
|
||||||
*> usage, Algorithm No. 539, Transactions on Mathematical
|
*> usage, Algorithm No. 539, Transactions on Mathematical
|
||||||
|
|
@ -119,10 +119,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
DOUBLE PRECISION FUNCTION DSDOT(N,SX,INCX,SY,INCY)
|
DOUBLE PRECISION FUNCTION DSDOT(N,SX,INCX,SY,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,INCY,N
|
INTEGER INCX,INCY,N
|
||||||
|
|
@ -133,7 +133,7 @@
|
||||||
*
|
*
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
* Lawson, C. L., (JPL), Hanson, R. J., (SNLA),
|
* Lawson, C. L., (JPL), Hanson, R. J., (SNLA),
|
||||||
* Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL)
|
* Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL)
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
|
* SUBROUTINE DSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION ALPHA,BETA
|
* DOUBLE PRECISION ALPHA,BETA
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION AP(*),X(*),Y(*)
|
* DOUBLE PRECISION AP(*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -120,12 +120,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level2
|
*> \ingroup double_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -147,10 +147,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
|
SUBROUTINE DSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION ALPHA,BETA
|
DOUBLE PRECISION ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DSPR(UPLO,N,ALPHA,X,INCX,AP)
|
* SUBROUTINE DSPR(UPLO,N,ALPHA,X,INCX,AP)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION ALPHA
|
* DOUBLE PRECISION ALPHA
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION AP(*),X(*)
|
* DOUBLE PRECISION AP(*),X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -101,12 +101,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level2
|
*> \ingroup double_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -127,10 +127,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DSPR(UPLO,N,ALPHA,X,INCX,AP)
|
SUBROUTINE DSPR(UPLO,N,ALPHA,X,INCX,AP)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION ALPHA
|
DOUBLE PRECISION ALPHA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP)
|
* SUBROUTINE DSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION ALPHA
|
* DOUBLE PRECISION ALPHA
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION AP(*),X(*),Y(*)
|
* DOUBLE PRECISION AP(*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -116,12 +116,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level2
|
*> \ingroup double_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -142,10 +142,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP)
|
SUBROUTINE DSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION ALPHA
|
DOUBLE PRECISION ALPHA
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DSWAP(N,DX,INCX,DY,INCY)
|
* SUBROUTINE DSWAP(N,DX,INCX,DY,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION DX(*),DY(*)
|
* DOUBLE PRECISION DX(*),DY(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -30,12 +30,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level1
|
*> \ingroup double_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -51,10 +51,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DSWAP(N,DX,INCX,DY,INCY)
|
SUBROUTINE DSWAP(N,DX,INCX,DY,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,INCY,N
|
INTEGER INCX,INCY,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
* SUBROUTINE DSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION ALPHA,BETA
|
* DOUBLE PRECISION ALPHA,BETA
|
||||||
* INTEGER LDA,LDB,LDC,M,N
|
* INTEGER LDA,LDB,LDC,M,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*)
|
* DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -163,12 +163,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level3
|
*> \ingroup double_blas_level3
|
||||||
*
|
*
|
||||||
|
|
@ -189,10 +189,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
SUBROUTINE DSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level3 routine (version 3.4.0) --
|
* -- Reference BLAS level3 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION ALPHA,BETA
|
DOUBLE PRECISION ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DSYMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
* SUBROUTINE DSYMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION ALPHA,BETA
|
* DOUBLE PRECISION ALPHA,BETA
|
||||||
* INTEGER INCX,INCY,LDA,N
|
* INTEGER INCX,INCY,LDA,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION A(LDA,*),X(*),Y(*)
|
* DOUBLE PRECISION A(LDA,*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -125,12 +125,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level2
|
*> \ingroup double_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -152,10 +152,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DSYMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
SUBROUTINE DSYMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION ALPHA,BETA
|
DOUBLE PRECISION ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DSYR(UPLO,N,ALPHA,X,INCX,A,LDA)
|
* SUBROUTINE DSYR(UPLO,N,ALPHA,X,INCX,A,LDA)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION ALPHA
|
* DOUBLE PRECISION ALPHA
|
||||||
* INTEGER INCX,LDA,N
|
* INTEGER INCX,LDA,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION A(LDA,*),X(*)
|
* DOUBLE PRECISION A(LDA,*),X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -106,12 +106,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level2
|
*> \ingroup double_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -132,10 +132,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DSYR(UPLO,N,ALPHA,X,INCX,A,LDA)
|
SUBROUTINE DSYR(UPLO,N,ALPHA,X,INCX,A,LDA)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION ALPHA
|
DOUBLE PRECISION ALPHA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DSYR2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
* SUBROUTINE DSYR2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION ALPHA
|
* DOUBLE PRECISION ALPHA
|
||||||
* INTEGER INCX,INCY,LDA,N
|
* INTEGER INCX,INCY,LDA,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION A(LDA,*),X(*),Y(*)
|
* DOUBLE PRECISION A(LDA,*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -121,12 +121,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level2
|
*> \ingroup double_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -147,10 +147,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DSYR2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
SUBROUTINE DSYR2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION ALPHA
|
DOUBLE PRECISION ALPHA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
* SUBROUTINE DSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION ALPHA,BETA
|
* DOUBLE PRECISION ALPHA,BETA
|
||||||
* INTEGER K,LDA,LDB,LDC,N
|
* INTEGER K,LDA,LDB,LDC,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*)
|
* DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -165,12 +165,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level3
|
*> \ingroup double_blas_level3
|
||||||
*
|
*
|
||||||
|
|
@ -192,10 +192,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
SUBROUTINE DSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level3 routine (version 3.4.0) --
|
* -- Reference BLAS level3 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION ALPHA,BETA
|
DOUBLE PRECISION ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
|
* SUBROUTINE DSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION ALPHA,BETA
|
* DOUBLE PRECISION ALPHA,BETA
|
||||||
* INTEGER K,LDA,LDC,N
|
* INTEGER K,LDA,LDC,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION A(LDA,*),C(LDC,*)
|
* DOUBLE PRECISION A(LDA,*),C(LDC,*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -143,12 +143,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level3
|
*> \ingroup double_blas_level3
|
||||||
*
|
*
|
||||||
|
|
@ -169,10 +169,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
|
SUBROUTINE DSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level3 routine (version 3.4.0) --
|
* -- Reference BLAS level3 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION ALPHA,BETA
|
DOUBLE PRECISION ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
|
* SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,K,LDA,N
|
* INTEGER INCX,K,LDA,N
|
||||||
* CHARACTER DIAG,TRANS,UPLO
|
* CHARACTER DIAG,TRANS,UPLO
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION A(LDA,*),X(*)
|
* DOUBLE PRECISION A(LDA,*),X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -146,7 +146,7 @@
|
||||||
*> ( 1 + ( n - 1 )*abs( INCX ) ).
|
*> ( 1 + ( n - 1 )*abs( INCX ) ).
|
||||||
*> Before entry, the incremented array X must contain the n
|
*> Before entry, the incremented array X must contain the n
|
||||||
*> element vector x. On exit, X is overwritten with the
|
*> element vector x. On exit, X is overwritten with the
|
||||||
*> tranformed vector x.
|
*> transformed vector x.
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
*> \param[in] INCX
|
*> \param[in] INCX
|
||||||
|
|
@ -159,12 +159,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level2
|
*> \ingroup double_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -186,10 +186,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
|
SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,K,LDA,N
|
INTEGER INCX,K,LDA,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
|
* SUBROUTINE DTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,K,LDA,N
|
* INTEGER INCX,K,LDA,N
|
||||||
* CHARACTER DIAG,TRANS,UPLO
|
* CHARACTER DIAG,TRANS,UPLO
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION A(LDA,*),X(*)
|
* DOUBLE PRECISION A(LDA,*),X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -163,12 +163,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level2
|
*> \ingroup double_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -189,10 +189,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
|
SUBROUTINE DTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,K,LDA,N
|
INTEGER INCX,K,LDA,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX)
|
* SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
* CHARACTER DIAG,TRANS,UPLO
|
* CHARACTER DIAG,TRANS,UPLO
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION AP(*),X(*)
|
* DOUBLE PRECISION AP(*),X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -102,7 +102,7 @@
|
||||||
*> ( 1 + ( n - 1 )*abs( INCX ) ).
|
*> ( 1 + ( n - 1 )*abs( INCX ) ).
|
||||||
*> Before entry, the incremented array X must contain the n
|
*> Before entry, the incremented array X must contain the n
|
||||||
*> element vector x. On exit, X is overwritten with the
|
*> element vector x. On exit, X is overwritten with the
|
||||||
*> tranformed vector x.
|
*> transformed vector x.
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
*> \param[in] INCX
|
*> \param[in] INCX
|
||||||
|
|
@ -115,12 +115,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level2
|
*> \ingroup double_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -142,10 +142,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX)
|
SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,N
|
INTEGER INCX,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX)
|
* SUBROUTINE DTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
* CHARACTER DIAG,TRANS,UPLO
|
* CHARACTER DIAG,TRANS,UPLO
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION AP(*),X(*)
|
* DOUBLE PRECISION AP(*),X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -118,12 +118,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level2
|
*> \ingroup double_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -144,10 +144,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX)
|
SUBROUTINE DTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,N
|
INTEGER INCX,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
|
* SUBROUTINE DTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION ALPHA
|
* DOUBLE PRECISION ALPHA
|
||||||
* INTEGER LDA,LDB,M,N
|
* INTEGER LDA,LDB,M,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION A(LDA,*),B(LDB,*)
|
* DOUBLE PRECISION A(LDA,*),B(LDB,*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -151,12 +151,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level3
|
*> \ingroup double_blas_level3
|
||||||
*
|
*
|
||||||
|
|
@ -177,10 +177,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
|
SUBROUTINE DTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level3 routine (version 3.4.0) --
|
* -- Reference BLAS level3 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION ALPHA
|
DOUBLE PRECISION ALPHA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
|
* SUBROUTINE DTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,LDA,N
|
* INTEGER INCX,LDA,N
|
||||||
* CHARACTER DIAG,TRANS,UPLO
|
* CHARACTER DIAG,TRANS,UPLO
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION A(LDA,*),X(*)
|
* DOUBLE PRECISION A(LDA,*),X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -107,7 +107,7 @@
|
||||||
*> ( 1 + ( n - 1 )*abs( INCX ) ).
|
*> ( 1 + ( n - 1 )*abs( INCX ) ).
|
||||||
*> Before entry, the incremented array X must contain the n
|
*> Before entry, the incremented array X must contain the n
|
||||||
*> element vector x. On exit, X is overwritten with the
|
*> element vector x. On exit, X is overwritten with the
|
||||||
*> tranformed vector x.
|
*> transformed vector x.
|
||||||
*> \endverbatim
|
*> \endverbatim
|
||||||
*>
|
*>
|
||||||
*> \param[in] INCX
|
*> \param[in] INCX
|
||||||
|
|
@ -120,12 +120,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level2
|
*> \ingroup double_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -147,10 +147,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
|
SUBROUTINE DTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,LDA,N
|
INTEGER INCX,LDA,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
|
* SUBROUTINE DTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* DOUBLE PRECISION ALPHA
|
* DOUBLE PRECISION ALPHA
|
||||||
* INTEGER LDA,LDB,M,N
|
* INTEGER LDA,LDB,M,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION A(LDA,*),B(LDB,*)
|
* DOUBLE PRECISION A(LDA,*),B(LDB,*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -112,7 +112,7 @@
|
||||||
*> \param[in] A
|
*> \param[in] A
|
||||||
*> \verbatim
|
*> \verbatim
|
||||||
*> A is DOUBLE PRECISION array of DIMENSION ( LDA, k ),
|
*> A is DOUBLE PRECISION array of DIMENSION ( LDA, k ),
|
||||||
*> where k is m when SIDE = 'L' or 'l'
|
*> where k is m when SIDE = 'L' or 'l'
|
||||||
*> and k is n when SIDE = 'R' or 'r'.
|
*> and k is n when SIDE = 'R' or 'r'.
|
||||||
*> Before entry with UPLO = 'U' or 'u', the leading k by k
|
*> Before entry with UPLO = 'U' or 'u', the leading k by k
|
||||||
*> upper triangular part of the array A must contain the upper
|
*> upper triangular part of the array A must contain the upper
|
||||||
|
|
@ -154,12 +154,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level3
|
*> \ingroup double_blas_level3
|
||||||
*
|
*
|
||||||
|
|
@ -181,10 +181,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
|
SUBROUTINE DTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level3 routine (version 3.4.0) --
|
* -- Reference BLAS level3 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
DOUBLE PRECISION ALPHA
|
DOUBLE PRECISION ALPHA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE DTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
|
* SUBROUTINE DTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,LDA,N
|
* INTEGER INCX,LDA,N
|
||||||
* CHARACTER DIAG,TRANS,UPLO
|
* CHARACTER DIAG,TRANS,UPLO
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION A(LDA,*),X(*)
|
* DOUBLE PRECISION A(LDA,*),X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -131,22 +131,22 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level1
|
*> \ingroup double_blas_level1
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE DTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
|
SUBROUTINE DTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,LDA,N
|
INTEGER INCX,LDA,N
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* DOUBLE PRECISION FUNCTION DZASUM(N,ZX,INCX)
|
* DOUBLE PRECISION FUNCTION DZASUM(N,ZX,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX*16 ZX(*)
|
* COMPLEX*16 ZX(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -30,12 +30,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level1
|
*> \ingroup double_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -52,10 +52,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
DOUBLE PRECISION FUNCTION DZASUM(N,ZX,INCX)
|
DOUBLE PRECISION FUNCTION DZASUM(N,ZX,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.6.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,N
|
INTEGER INCX,N
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* DOUBLE PRECISION FUNCTION DZNRM2(N,X,INCX)
|
* DOUBLE PRECISION FUNCTION DZNRM2(N,X,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX*16 X(*)
|
* COMPLEX*16 X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -32,12 +32,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup double_blas_level1
|
*> \ingroup double_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -54,10 +54,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
DOUBLE PRECISION FUNCTION DZNRM2(N,X,INCX)
|
DOUBLE PRECISION FUNCTION DZNRM2(N,X,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,N
|
INTEGER INCX,N
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* INTEGER FUNCTION ICAMAX(N,CX,INCX)
|
* INTEGER FUNCTION ICAMAX(N,CX,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX CX(*)
|
* COMPLEX CX(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -29,12 +29,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup aux_blas
|
*> \ingroup aux_blas
|
||||||
*
|
*
|
||||||
|
|
@ -51,10 +51,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
INTEGER FUNCTION ICAMAX(N,CX,INCX)
|
INTEGER FUNCTION ICAMAX(N,CX,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.6.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,N
|
INTEGER INCX,N
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* INTEGER FUNCTION IDAMAX(N,DX,INCX)
|
* INTEGER FUNCTION IDAMAX(N,DX,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* DOUBLE PRECISION DX(*)
|
* DOUBLE PRECISION DX(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -29,12 +29,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup aux_blas
|
*> \ingroup aux_blas
|
||||||
*
|
*
|
||||||
|
|
@ -51,10 +51,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
INTEGER FUNCTION IDAMAX(N,DX,INCX)
|
INTEGER FUNCTION IDAMAX(N,DX,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.6.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,N
|
INTEGER INCX,N
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* INTEGER FUNCTION ISAMAX(N,SX,INCX)
|
* INTEGER FUNCTION ISAMAX(N,SX,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* REAL SX(*)
|
* REAL SX(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -29,12 +29,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup aux_blas
|
*> \ingroup aux_blas
|
||||||
*
|
*
|
||||||
|
|
@ -51,10 +51,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
INTEGER FUNCTION ISAMAX(N,SX,INCX)
|
INTEGER FUNCTION ISAMAX(N,SX,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.6.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,N
|
INTEGER INCX,N
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* INTEGER FUNCTION IZAMAX(N,ZX,INCX)
|
* INTEGER FUNCTION IZAMAX(N,ZX,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX*16 ZX(*)
|
* COMPLEX*16 ZX(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -29,12 +29,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup aux_blas
|
*> \ingroup aux_blas
|
||||||
*
|
*
|
||||||
|
|
@ -51,10 +51,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
INTEGER FUNCTION IZAMAX(N,ZX,INCX)
|
INTEGER FUNCTION IZAMAX(N,ZX,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.6.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,N
|
INTEGER INCX,N
|
||||||
|
|
|
||||||
|
|
@ -2,18 +2,18 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* LOGICAL FUNCTION LSAME(CA,CB)
|
* LOGICAL FUNCTION LSAME(CA,CB)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* CHARACTER CA,CB
|
* CHARACTER CA,CB
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -41,12 +41,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup aux_blas
|
*> \ingroup aux_blas
|
||||||
*
|
*
|
||||||
|
|
@ -56,7 +56,7 @@
|
||||||
* -- Reference BLAS level1 routine (version 3.1) --
|
* -- Reference BLAS level1 routine (version 3.1) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
CHARACTER CA,CB
|
CHARACTER CA,CB
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* REAL FUNCTION SASUM(N,SX,INCX)
|
* REAL FUNCTION SASUM(N,SX,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* REAL SX(*)
|
* REAL SX(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -30,12 +30,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup single_blas_level1
|
*> \ingroup single_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -52,10 +52,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
REAL FUNCTION SASUM(N,SX,INCX)
|
REAL FUNCTION SASUM(N,SX,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,N
|
INTEGER INCX,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE SAXPY(N,SA,SX,INCX,SY,INCY)
|
* SUBROUTINE SAXPY(N,SA,SX,INCX,SY,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* REAL SA
|
* REAL SA
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* REAL SX(*),SY(*)
|
* REAL SX(*),SY(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -31,12 +31,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup single_blas_level1
|
*> \ingroup single_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -52,10 +52,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE SAXPY(N,SA,SX,INCX,SY,INCY)
|
SUBROUTINE SAXPY(N,SA,SX,INCX,SY,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
REAL SA
|
REAL SA
|
||||||
|
|
|
||||||
|
|
@ -2,18 +2,18 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* REAL FUNCTION SCABS1(Z)
|
* REAL FUNCTION SCABS1(Z)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* COMPLEX Z
|
* COMPLEX Z
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -26,22 +26,22 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup single_blas_level1
|
*> \ingroup single_blas_level1
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
REAL FUNCTION SCABS1(Z)
|
REAL FUNCTION SCABS1(Z)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.6.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
COMPLEX Z
|
COMPLEX Z
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* REAL FUNCTION SCASUM(N,CX,INCX)
|
* REAL FUNCTION SCASUM(N,CX,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX CX(*)
|
* COMPLEX CX(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -30,12 +30,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup single_blas_level1
|
*> \ingroup single_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -52,10 +52,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
REAL FUNCTION SCASUM(N,CX,INCX)
|
REAL FUNCTION SCASUM(N,CX,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.6.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,N
|
INTEGER INCX,N
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* REAL FUNCTION SCNRM2(N,X,INCX)
|
* REAL FUNCTION SCNRM2(N,X,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* COMPLEX X(*)
|
* COMPLEX X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -32,12 +32,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup single_blas_level1
|
*> \ingroup single_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -54,10 +54,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
REAL FUNCTION SCNRM2(N,X,INCX)
|
REAL FUNCTION SCNRM2(N,X,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,N
|
INTEGER INCX,N
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE SCOPY(N,SX,INCX,SY,INCY)
|
* SUBROUTINE SCOPY(N,SX,INCX,SY,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* REAL SX(*),SY(*)
|
* REAL SX(*),SY(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -30,12 +30,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup single_blas_level1
|
*> \ingroup single_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -51,10 +51,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE SCOPY(N,SX,INCX,SY,INCY)
|
SUBROUTINE SCOPY(N,SX,INCX,SY,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,INCY,N
|
INTEGER INCX,INCY,N
|
||||||
|
|
@ -85,7 +85,7 @@
|
||||||
SY(I) = SX(I)
|
SY(I) = SX(I)
|
||||||
END DO
|
END DO
|
||||||
IF (N.LT.7) RETURN
|
IF (N.LT.7) RETURN
|
||||||
END IF
|
END IF
|
||||||
MP1 = M + 1
|
MP1 = M + 1
|
||||||
DO I = MP1,N,7
|
DO I = MP1,N,7
|
||||||
SY(I) = SX(I)
|
SY(I) = SX(I)
|
||||||
|
|
@ -96,7 +96,7 @@
|
||||||
SY(I+5) = SX(I+5)
|
SY(I+5) = SX(I+5)
|
||||||
SY(I+6) = SX(I+6)
|
SY(I+6) = SX(I+6)
|
||||||
END DO
|
END DO
|
||||||
ELSE
|
ELSE
|
||||||
*
|
*
|
||||||
* code for unequal increments or equal increments
|
* code for unequal increments or equal increments
|
||||||
* not equal to 1
|
* not equal to 1
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* REAL FUNCTION SDOT(N,SX,INCX,SY,INCY)
|
* REAL FUNCTION SDOT(N,SX,INCX,SY,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* REAL SX(*),SY(*)
|
* REAL SX(*),SY(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -30,12 +30,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup single_blas_level1
|
*> \ingroup single_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -51,10 +51,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
REAL FUNCTION SDOT(N,SX,INCX,SY,INCY)
|
REAL FUNCTION SDOT(N,SX,INCX,SY,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,INCY,N
|
INTEGER INCX,INCY,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* REAL FUNCTION SDSDOT(N,SB,SX,INCX,SY,INCY)
|
* REAL FUNCTION SDSDOT(N,SB,SX,INCX,SY,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* REAL SB
|
* REAL SB
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
|
|
@ -17,59 +17,59 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* REAL SX(*),SY(*)
|
* REAL SX(*),SY(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
* PURPOSE
|
* PURPOSE
|
||||||
* =======
|
* =======
|
||||||
*
|
*
|
||||||
* Compute the inner product of two vectors with extended
|
* Compute the inner product of two vectors with extended
|
||||||
* precision accumulation.
|
* precision accumulation.
|
||||||
*
|
*
|
||||||
* Returns S.P. result with dot product accumulated in D.P.
|
* Returns S.P. result with dot product accumulated in D.P.
|
||||||
* SDSDOT = SB + sum for I = 0 to N-1 of SX(LX+I*INCX)*SY(LY+I*INCY),
|
* SDSDOT = SB + sum for I = 0 to N-1 of SX(LX+I*INCX)*SY(LY+I*INCY),
|
||||||
* where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is
|
* where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is
|
||||||
* defined in a similar way using INCY.
|
* defined in a similar way using INCY.
|
||||||
*
|
*
|
||||||
* AUTHOR
|
* AUTHOR
|
||||||
* ======
|
* ======
|
||||||
* Lawson, C. L., (JPL), Hanson, R. J., (SNLA),
|
* Lawson, C. L., (JPL), Hanson, R. J., (SNLA),
|
||||||
* Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL)
|
* Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL)
|
||||||
*
|
*
|
||||||
* ARGUMENTS
|
* ARGUMENTS
|
||||||
* =========
|
* =========
|
||||||
*
|
*
|
||||||
* N (input) INTEGER
|
* N (input) INTEGER
|
||||||
* number of elements in input vector(s)
|
* number of elements in input vector(s)
|
||||||
*
|
*
|
||||||
* SB (input) REAL
|
* SB (input) REAL
|
||||||
* single precision scalar to be added to inner product
|
* single precision scalar to be added to inner product
|
||||||
*
|
*
|
||||||
* SX (input) REAL array, dimension (N)
|
* SX (input) REAL array, dimension (N)
|
||||||
* single precision vector with N elements
|
* single precision vector with N elements
|
||||||
*
|
*
|
||||||
* INCX (input) INTEGER
|
* INCX (input) INTEGER
|
||||||
* storage spacing between elements of SX
|
* storage spacing between elements of SX
|
||||||
*
|
*
|
||||||
* SY (input) REAL array, dimension (N)
|
* SY (input) REAL array, dimension (N)
|
||||||
* single precision vector with N elements
|
* single precision vector with N elements
|
||||||
*
|
*
|
||||||
* INCY (input) INTEGER
|
* INCY (input) INTEGER
|
||||||
* storage spacing between elements of SY
|
* storage spacing between elements of SY
|
||||||
*
|
*
|
||||||
* SDSDOT (output) REAL
|
* SDSDOT (output) REAL
|
||||||
* single precision dot product (SB if N .LE. 0)
|
* single precision dot product (SB if N .LE. 0)
|
||||||
*
|
*
|
||||||
* Further Details
|
* Further Details
|
||||||
* ===============
|
* ===============
|
||||||
*
|
*
|
||||||
* REFERENCES
|
* REFERENCES
|
||||||
*
|
*
|
||||||
* C. L. Lawson, R. J. Hanson, D. R. Kincaid and F. T.
|
* C. L. Lawson, R. J. Hanson, D. R. Kincaid and F. T.
|
||||||
* Krogh, Basic linear algebra subprograms for Fortran
|
* Krogh, Basic linear algebra subprograms for Fortran
|
||||||
* usage, Algorithm No. 539, Transactions on Mathematical
|
* usage, Algorithm No. 539, Transactions on Mathematical
|
||||||
* Software 5, 3 (September 1979), pp. 308-323.
|
* Software 5, 3 (September 1979), pp. 308-323.
|
||||||
*
|
*
|
||||||
* REVISION HISTORY (YYMMDD)
|
* REVISION HISTORY (YYMMDD)
|
||||||
*
|
*
|
||||||
* 791001 DATE WRITTEN
|
* 791001 DATE WRITTEN
|
||||||
* 890531 Changed all specific intrinsics to generic. (WRB)
|
* 890531 Changed all specific intrinsics to generic. (WRB)
|
||||||
* 890831 Modified array declarations. (WRB)
|
* 890831 Modified array declarations. (WRB)
|
||||||
|
|
@ -78,9 +78,9 @@
|
||||||
* 920310 Corrected definition of LX in DESCRIPTION. (WRB)
|
* 920310 Corrected definition of LX in DESCRIPTION. (WRB)
|
||||||
* 920501 Reformatted the REFERENCES section. (WRB)
|
* 920501 Reformatted the REFERENCES section. (WRB)
|
||||||
* 070118 Reformat to LAPACK coding style
|
* 070118 Reformat to LAPACK coding style
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
*
|
*
|
||||||
* .. Local Scalars ..
|
* .. Local Scalars ..
|
||||||
* DOUBLE PRECISION DSDOT
|
* DOUBLE PRECISION DSDOT
|
||||||
* INTEGER I,KX,KY,NS
|
* INTEGER I,KX,KY,NS
|
||||||
|
|
@ -92,19 +92,19 @@
|
||||||
* IF (N.LE.0) THEN
|
* IF (N.LE.0) THEN
|
||||||
* SDSDOT = DSDOT
|
* SDSDOT = DSDOT
|
||||||
* RETURN
|
* RETURN
|
||||||
* END IF
|
* END IF
|
||||||
* IF (INCX.EQ.INCY .AND. INCX.GT.0) THEN
|
* IF (INCX.EQ.INCY .AND. INCX.GT.0) THEN
|
||||||
*
|
*
|
||||||
* Code for equal and positive increments.
|
* Code for equal and positive increments.
|
||||||
*
|
*
|
||||||
* NS = N*INCX
|
* NS = N*INCX
|
||||||
* DO I = 1,NS,INCX
|
* DO I = 1,NS,INCX
|
||||||
* DSDOT = DSDOT + DBLE(SX(I))*DBLE(SY(I))
|
* DSDOT = DSDOT + DBLE(SX(I))*DBLE(SY(I))
|
||||||
* END DO
|
* END DO
|
||||||
* ELSE
|
* ELSE
|
||||||
*
|
*
|
||||||
* Code for unequal or nonpositive increments.
|
* Code for unequal or nonpositive increments.
|
||||||
*
|
*
|
||||||
* KX = 1
|
* KX = 1
|
||||||
* KY = 1
|
* KY = 1
|
||||||
* IF (INCX.LT.0) KX = 1 + (1-N)*INCX
|
* IF (INCX.LT.0) KX = 1 + (1-N)*INCX
|
||||||
|
|
@ -128,22 +128,22 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup single_blas_level1
|
*> \ingroup single_blas_level1
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
REAL FUNCTION SDSDOT(N,SB,SX,INCX,SY,INCY)
|
REAL FUNCTION SDSDOT(N,SB,SX,INCX,SY,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
REAL SB
|
REAL SB
|
||||||
|
|
@ -169,7 +169,7 @@
|
||||||
* Lawson, C. L., (JPL), Hanson, R. J., (SNLA),
|
* Lawson, C. L., (JPL), Hanson, R. J., (SNLA),
|
||||||
* Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL)
|
* Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL)
|
||||||
*
|
*
|
||||||
* ARGUMENTS
|
* ARGUMENTS
|
||||||
* =========
|
* =========
|
||||||
*
|
*
|
||||||
* N (input) INTEGER
|
* N (input) INTEGER
|
||||||
|
|
@ -204,7 +204,7 @@
|
||||||
* Software 5, 3 (September 1979), pp. 308-323.
|
* Software 5, 3 (September 1979), pp. 308-323.
|
||||||
*
|
*
|
||||||
* REVISION HISTORY (YYMMDD)
|
* REVISION HISTORY (YYMMDD)
|
||||||
*
|
*
|
||||||
* 791001 DATE WRITTEN
|
* 791001 DATE WRITTEN
|
||||||
* 890531 Changed all specific intrinsics to generic. (WRB)
|
* 890531 Changed all specific intrinsics to generic. (WRB)
|
||||||
* 890831 Modified array declarations. (WRB)
|
* 890831 Modified array declarations. (WRB)
|
||||||
|
|
@ -227,7 +227,7 @@
|
||||||
IF (N.LE.0) THEN
|
IF (N.LE.0) THEN
|
||||||
SDSDOT = DSDOT
|
SDSDOT = DSDOT
|
||||||
RETURN
|
RETURN
|
||||||
END IF
|
END IF
|
||||||
IF (INCX.EQ.INCY .AND. INCX.GT.0) THEN
|
IF (INCX.EQ.INCY .AND. INCX.GT.0) THEN
|
||||||
*
|
*
|
||||||
* Code for equal and positive increments.
|
* Code for equal and positive increments.
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE SGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
* SUBROUTINE SGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* REAL ALPHA,BETA
|
* REAL ALPHA,BETA
|
||||||
* INTEGER INCX,INCY,KL,KU,LDA,M,N
|
* INTEGER INCX,INCY,KL,KU,LDA,M,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* REAL A(LDA,*),X(*),Y(*)
|
* REAL A(LDA,*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -158,12 +158,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup single_blas_level2
|
*> \ingroup single_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -185,10 +185,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE SGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
SUBROUTINE SGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.6.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
REAL ALPHA,BETA
|
REAL ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE SGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
* SUBROUTINE SGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* REAL ALPHA,BETA
|
* REAL ALPHA,BETA
|
||||||
* INTEGER K,LDA,LDB,LDC,M,N
|
* INTEGER K,LDA,LDB,LDC,M,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* REAL A(LDA,*),B(LDB,*),C(LDC,*)
|
* REAL A(LDA,*),B(LDB,*),C(LDC,*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -161,12 +161,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup single_blas_level3
|
*> \ingroup single_blas_level3
|
||||||
*
|
*
|
||||||
|
|
@ -187,10 +187,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE SGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
SUBROUTINE SGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level3 routine (version 3.6.0) --
|
* -- Reference BLAS level3 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
REAL ALPHA,BETA
|
REAL ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE SGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
* SUBROUTINE SGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* REAL ALPHA,BETA
|
* REAL ALPHA,BETA
|
||||||
* INTEGER INCX,INCY,LDA,M,N
|
* INTEGER INCX,INCY,LDA,M,N
|
||||||
|
|
@ -18,7 +18,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* REAL A(LDA,*),X(*),Y(*)
|
* REAL A(LDA,*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -129,12 +129,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2015
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup single_blas_level2
|
*> \ingroup single_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -156,10 +156,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE SGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
SUBROUTINE SGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.6.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2015
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
REAL ALPHA,BETA
|
REAL ALPHA,BETA
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE SGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
* SUBROUTINE SGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* REAL ALPHA
|
* REAL ALPHA
|
||||||
* INTEGER INCX,INCY,LDA,M,N
|
* INTEGER INCX,INCY,LDA,M,N
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* REAL A(LDA,*),X(*),Y(*)
|
* REAL A(LDA,*),X(*),Y(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -104,12 +104,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup single_blas_level2
|
*> \ingroup single_blas_level2
|
||||||
*
|
*
|
||||||
|
|
@ -130,10 +130,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE SGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
SUBROUTINE SGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level2 routine (version 3.4.0) --
|
* -- Reference BLAS level2 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
REAL ALPHA
|
REAL ALPHA
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* REAL FUNCTION SNRM2(N,X,INCX)
|
* REAL FUNCTION SNRM2(N,X,INCX)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,N
|
* INTEGER INCX,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* REAL X(*)
|
* REAL X(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -32,12 +32,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup single_blas_level1
|
*> \ingroup single_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -54,10 +54,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
REAL FUNCTION SNRM2(N,X,INCX)
|
REAL FUNCTION SNRM2(N,X,INCX)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,N
|
INTEGER INCX,N
|
||||||
|
|
|
||||||
|
|
@ -2,14 +2,14 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE SROT(N,SX,INCX,SY,INCY,C,S)
|
* SUBROUTINE SROT(N,SX,INCX,SY,INCY,C,S)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* REAL C,S
|
* REAL C,S
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* REAL SX(*),SY(*)
|
* REAL SX(*),SY(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -30,12 +30,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup single_blas_level1
|
*> \ingroup single_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -51,10 +51,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE SROT(N,SX,INCX,SY,INCY,C,S)
|
SUBROUTINE SROT(N,SX,INCX,SY,INCY,C,S)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
REAL C,S
|
REAL C,S
|
||||||
|
|
|
||||||
|
|
@ -2,18 +2,18 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE SROTG(SA,SB,C,S)
|
* SUBROUTINE SROTG(SA,SB,C,S)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* REAL C,S,SA,SB
|
* REAL C,S,SA,SB
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -26,12 +26,12 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup single_blas_level1
|
*> \ingroup single_blas_level1
|
||||||
*
|
*
|
||||||
|
|
@ -46,10 +46,10 @@
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE SROTG(SA,SB,C,S)
|
SUBROUTINE SROTG(SA,SB,C,S)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
REAL C,S,SA,SB
|
REAL C,S,SA,SB
|
||||||
|
|
|
||||||
|
|
@ -2,21 +2,21 @@
|
||||||
*
|
*
|
||||||
* =========== DOCUMENTATION ===========
|
* =========== DOCUMENTATION ===========
|
||||||
*
|
*
|
||||||
* Online html documentation available at
|
* Online html documentation available at
|
||||||
* http://www.netlib.org/lapack/explore-html/
|
* http://www.netlib.org/lapack/explore-html/
|
||||||
*
|
*
|
||||||
* Definition:
|
* Definition:
|
||||||
* ===========
|
* ===========
|
||||||
*
|
*
|
||||||
* SUBROUTINE SROTM(N,SX,INCX,SY,INCY,SPARAM)
|
* SUBROUTINE SROTM(N,SX,INCX,SY,INCY,SPARAM)
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
* INTEGER INCX,INCY,N
|
* INTEGER INCX,INCY,N
|
||||||
* ..
|
* ..
|
||||||
* .. Array Arguments ..
|
* .. Array Arguments ..
|
||||||
* REAL SPARAM(5),SX(*),SY(*)
|
* REAL SPARAM(5),SX(*),SY(*)
|
||||||
* ..
|
* ..
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
*> \par Purpose:
|
*> \par Purpose:
|
||||||
* =============
|
* =============
|
||||||
|
|
@ -87,22 +87,22 @@
|
||||||
* Authors:
|
* Authors:
|
||||||
* ========
|
* ========
|
||||||
*
|
*
|
||||||
*> \author Univ. of Tennessee
|
*> \author Univ. of Tennessee
|
||||||
*> \author Univ. of California Berkeley
|
*> \author Univ. of California Berkeley
|
||||||
*> \author Univ. of Colorado Denver
|
*> \author Univ. of Colorado Denver
|
||||||
*> \author NAG Ltd.
|
*> \author NAG Ltd.
|
||||||
*
|
*
|
||||||
*> \date November 2011
|
*> \date December 2016
|
||||||
*
|
*
|
||||||
*> \ingroup single_blas_level1
|
*> \ingroup single_blas_level1
|
||||||
*
|
*
|
||||||
* =====================================================================
|
* =====================================================================
|
||||||
SUBROUTINE SROTM(N,SX,INCX,SY,INCY,SPARAM)
|
SUBROUTINE SROTM(N,SX,INCX,SY,INCY,SPARAM)
|
||||||
*
|
*
|
||||||
* -- Reference BLAS level1 routine (version 3.4.0) --
|
* -- Reference BLAS level1 routine (version 3.7.0) --
|
||||||
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
* -- Reference BLAS is a software package provided by Univ. of Tennessee, --
|
||||||
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
|
||||||
* November 2011
|
* December 2016
|
||||||
*
|
*
|
||||||
* .. Scalar Arguments ..
|
* .. Scalar Arguments ..
|
||||||
INTEGER INCX,INCY,N
|
INTEGER INCX,INCY,N
|
||||||
|
|
|
||||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue