Browse Source
Merge pull request #1046 from wernsaar/develop
updated lapack to version 3.7.0 with latest patches from gittags/v0.2.20^2
Werner Saar
GitHub
9 years ago
100 changed files with 1618 additions and 1143 deletions
Split View
Diff Options
-
+55 -0exports/check_objs.sh
-
+446 -7exports/gensymbol
-
+8 -8interface/Makefile
-
+0 -19lapack-devel.log
-
+2 -2lapack-netlib/BLAS/CMakeLists.txt
-
+25 -25lapack-netlib/BLAS/SRC/CMakeLists.txt
-
+7 -7lapack-netlib/BLAS/SRC/Makefile
-
+11 -11lapack-netlib/BLAS/SRC/caxpy.f
-
+11 -11lapack-netlib/BLAS/SRC/ccopy.f
-
+11 -11lapack-netlib/BLAS/SRC/cdotc.f
-
+11 -11lapack-netlib/BLAS/SRC/cdotu.f
-
+11 -11lapack-netlib/BLAS/SRC/cgbmv.f
-
+11 -11lapack-netlib/BLAS/SRC/cgemm.f
-
+11 -11lapack-netlib/BLAS/SRC/cgemv.f
-
+11 -11lapack-netlib/BLAS/SRC/cgerc.f
-
+11 -11lapack-netlib/BLAS/SRC/cgeru.f
-
+11 -11lapack-netlib/BLAS/SRC/chbmv.f
-
+11 -11lapack-netlib/BLAS/SRC/chemm.f
-
+11 -11lapack-netlib/BLAS/SRC/chemv.f
-
+11 -11lapack-netlib/BLAS/SRC/cher.f
-
+11 -11lapack-netlib/BLAS/SRC/cher2.f
-
+11 -11lapack-netlib/BLAS/SRC/cher2k.f
-
+11 -11lapack-netlib/BLAS/SRC/cherk.f
-
+11 -11lapack-netlib/BLAS/SRC/chpmv.f
-
+11 -11lapack-netlib/BLAS/SRC/chpr.f
-
+11 -11lapack-netlib/BLAS/SRC/chpr2.f
-
+11 -11lapack-netlib/BLAS/SRC/crotg.f
-
+11 -11lapack-netlib/BLAS/SRC/cscal.f
-
+11 -11lapack-netlib/BLAS/SRC/csrot.f
-
+11 -11lapack-netlib/BLAS/SRC/csscal.f
-
+11 -11lapack-netlib/BLAS/SRC/cswap.f
-
+11 -11lapack-netlib/BLAS/SRC/csymm.f
-
+11 -11lapack-netlib/BLAS/SRC/csyr2k.f
-
+11 -11lapack-netlib/BLAS/SRC/csyrk.f
-
+12 -12lapack-netlib/BLAS/SRC/ctbmv.f
-
+11 -11lapack-netlib/BLAS/SRC/ctbsv.f
-
+12 -12lapack-netlib/BLAS/SRC/ctpmv.f
-
+11 -11lapack-netlib/BLAS/SRC/ctpsv.f
-
+11 -11lapack-netlib/BLAS/SRC/ctrmm.f
-
+12 -12lapack-netlib/BLAS/SRC/ctrmv.f
-
+12 -12lapack-netlib/BLAS/SRC/ctrsm.f
-
+11 -11lapack-netlib/BLAS/SRC/ctrsv.f
-
+11 -11lapack-netlib/BLAS/SRC/dasum.f
-
+11 -11lapack-netlib/BLAS/SRC/daxpy.f
-
+12 -12lapack-netlib/BLAS/SRC/dcabs1.f
-
+13 -13lapack-netlib/BLAS/SRC/dcopy.f
-
+11 -11lapack-netlib/BLAS/SRC/ddot.f
-
+11 -11lapack-netlib/BLAS/SRC/dgbmv.f
-
+11 -11lapack-netlib/BLAS/SRC/dgemm.f
-
+11 -11lapack-netlib/BLAS/SRC/dgemv.f
-
+11 -11lapack-netlib/BLAS/SRC/dger.f
-
+11 -11lapack-netlib/BLAS/SRC/dnrm2.f
-
+11 -11lapack-netlib/BLAS/SRC/drot.f
-
+11 -11lapack-netlib/BLAS/SRC/drotg.f
-
+11 -11lapack-netlib/BLAS/SRC/drotm.f
-
+20 -20lapack-netlib/BLAS/SRC/drotmg.f
-
+11 -11lapack-netlib/BLAS/SRC/dsbmv.f
-
+11 -11lapack-netlib/BLAS/SRC/dscal.f
-
+15 -15lapack-netlib/BLAS/SRC/dsdot.f
-
+11 -11lapack-netlib/BLAS/SRC/dspmv.f
-
+11 -11lapack-netlib/BLAS/SRC/dspr.f
-
+11 -11lapack-netlib/BLAS/SRC/dspr2.f
-
+11 -11lapack-netlib/BLAS/SRC/dswap.f
-
+11 -11lapack-netlib/BLAS/SRC/dsymm.f
-
+11 -11lapack-netlib/BLAS/SRC/dsymv.f
-
+11 -11lapack-netlib/BLAS/SRC/dsyr.f
-
+11 -11lapack-netlib/BLAS/SRC/dsyr2.f
-
+11 -11lapack-netlib/BLAS/SRC/dsyr2k.f
-
+11 -11lapack-netlib/BLAS/SRC/dsyrk.f
-
+12 -12lapack-netlib/BLAS/SRC/dtbmv.f
-
+11 -11lapack-netlib/BLAS/SRC/dtbsv.f
-
+12 -12lapack-netlib/BLAS/SRC/dtpmv.f
-
+11 -11lapack-netlib/BLAS/SRC/dtpsv.f
-
+11 -11lapack-netlib/BLAS/SRC/dtrmm.f
-
+12 -12lapack-netlib/BLAS/SRC/dtrmv.f
-
+12 -12lapack-netlib/BLAS/SRC/dtrsm.f
-
+11 -11lapack-netlib/BLAS/SRC/dtrsv.f
-
+11 -11lapack-netlib/BLAS/SRC/dzasum.f
-
+11 -11lapack-netlib/BLAS/SRC/dznrm2.f
-
+11 -11lapack-netlib/BLAS/SRC/icamax.f
-
+11 -11lapack-netlib/BLAS/SRC/idamax.f
-
+11 -11lapack-netlib/BLAS/SRC/isamax.f
-
+11 -11lapack-netlib/BLAS/SRC/izamax.f
-
+10 -10lapack-netlib/BLAS/SRC/lsame.f
-
+11 -11lapack-netlib/BLAS/SRC/sasum.f
-
+11 -11lapack-netlib/BLAS/SRC/saxpy.f
-
+11 -11lapack-netlib/BLAS/SRC/scabs1.f
-
+11 -11lapack-netlib/BLAS/SRC/scasum.f
-
+11 -11lapack-netlib/BLAS/SRC/scnrm2.f
-
+13 -13lapack-netlib/BLAS/SRC/scopy.f
-
+11 -11lapack-netlib/BLAS/SRC/sdot.f
-
+38 -38lapack-netlib/BLAS/SRC/sdsdot.f
-
+11 -11lapack-netlib/BLAS/SRC/sgbmv.f
-
+11 -11lapack-netlib/BLAS/SRC/sgemm.f
-
+11 -11lapack-netlib/BLAS/SRC/sgemv.f
-
+11 -11lapack-netlib/BLAS/SRC/sger.f
-
+11 -11lapack-netlib/BLAS/SRC/snrm2.f
-
+11 -11lapack-netlib/BLAS/SRC/srot.f
-
+11 -11lapack-netlib/BLAS/SRC/srotg.f
-
+11 -11lapack-netlib/BLAS/SRC/srotm.f
+ 55
- 0
exports/check_objs.sh
View File
| @@ -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 | |||
+ 446
- 7
exports/gensymbol
View File
| @@ -1,11 +1,21 @@ | |||
| #!/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 = ( | |||
| caxpy,ccopy,cdotc,cdotu,cgbmv,cgemm,cgemv,cgerc,cgeru, | |||
| chbmv,chemm,chemv,cher2,cher2k,cher,cherk, | |||
| chpmv,chpr2,chpr,crotg,cscal,csrot,csscal,cswap, | |||
| csymm,csyr2k,csyrk,ctbmv,ctbsv,ctpmv,ctpsv,ctrmm,ctrmv,ctrsm, | |||
| ctrsv, csymv, | |||
| ctrsv, | |||
| damax,damin,dasum,daxpy,dcabs1,dcopy,ddot,dgbmv,dgemm, | |||
| dgemv,dger,dmax,dmin,dnrm2,drot,drotg,drotm,drotmg,dsbmv, | |||
| dscal,dsdot,dspmv,dspr2, | |||
| @@ -21,10 +31,18 @@ | |||
| zdscal,zgbmv,zgemm,zgemv,zgerc,zgeru, | |||
| zhbmv,zhemm,zhemv,zher2,zher2k,zher,zherk,zhpmv,zhpr2, | |||
| zhpr,zrotg,zscal,zswap,zsymm,zsyr2k,zsyrk,ztbmv, | |||
| ztbsv,ztpmv,ztpsv,ztrmm,ztrmv,ztrsm,ztrsv, zsymv, | |||
| ztbsv,ztpmv,ztpsv,ztrmm,ztrmv,ztrsm,ztrsv, | |||
| xerbla, | |||
| saxpby,daxpby,caxpby,zaxpby, | |||
| saxpby,daxpby,caxpby,zaxpby, | |||
| sgeadd,dgeadd,cgeadd,zgeadd, | |||
| somatcopy, | |||
| simatcopy, | |||
| domatcopy, | |||
| dimatcopy, | |||
| comatcopy, | |||
| cimatcopy, | |||
| zomatcopy, | |||
| zimatcopy, | |||
| ); | |||
| @cblasobjs = ( | |||
| @@ -80,6 +98,12 @@ | |||
| cgemm3m,zgemm3m | |||
| ); | |||
| @cblasgemm3mobjs = ( | |||
| cblas_cgemm3m,cblas_zgemm3m | |||
| ); | |||
| #both underscore and no underscore | |||
| @misc_common_objs = ( | |||
| @@ -96,6 +120,7 @@ | |||
| ); | |||
| @misc_underscore_objs = ( | |||
| blas_thread_shutdown, | |||
| ); | |||
| @lapackobjs = ( | |||
| @@ -581,8 +606,208 @@ | |||
| zsbmv, | |||
| zspr2, | |||
| 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 = ( | |||
| @@ -597,6 +822,36 @@ | |||
| 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 = ( | |||
| # LAPACK C interface routines. | |||
| # | |||
| @@ -2948,7 +3203,186 @@ | |||
| LAPACKE_zsytrs_rook, | |||
| LAPACKE_zsytrs_rook_work, | |||
| 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. | |||
| @@ -3026,7 +3460,12 @@ if ($ARGV[6] == 1) { | |||
| #NO_LAPACKE=1 | |||
| @no_underscore_objs = (@no_underscore_objs); | |||
| } 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); | |||
+ 8
- 8
interface/Makefile
View File
| @@ -84,10 +84,10 @@ CBLAS1OBJS = \ | |||
| CBLAS2OBJS = \ | |||
| cgemv.$(SUFFIX) cgeru.$(SUFFIX) cgerc.$(SUFFIX) \ | |||
| ctrsv.$(SUFFIX) ctrmv.$(SUFFIX) csymv.$(SUFFIX) \ | |||
| csyr.$(SUFFIX) csyr2.$(SUFFIX) cgbmv.$(SUFFIX) \ | |||
| csbmv.$(SUFFIX) cspmv.$(SUFFIX) \ | |||
| cspr.$(SUFFIX) cspr2.$(SUFFIX) \ | |||
| ctrsv.$(SUFFIX) ctrmv.$(SUFFIX) \ | |||
| csyr2.$(SUFFIX) cgbmv.$(SUFFIX) \ | |||
| csbmv.$(SUFFIX) \ | |||
| cspr2.$(SUFFIX) \ | |||
| ctbsv.$(SUFFIX) ctbmv.$(SUFFIX) \ | |||
| ctpsv.$(SUFFIX) ctpmv.$(SUFFIX) \ | |||
| chemv.$(SUFFIX) chbmv.$(SUFFIX) \ | |||
| @@ -113,10 +113,10 @@ ZBLAS1OBJS = \ | |||
| ZBLAS2OBJS = \ | |||
| zgemv.$(SUFFIX) zgeru.$(SUFFIX) zgerc.$(SUFFIX) \ | |||
| ztrsv.$(SUFFIX) ztrmv.$(SUFFIX) zsymv.$(SUFFIX) \ | |||
| zsyr.$(SUFFIX) zsyr2.$(SUFFIX) zgbmv.$(SUFFIX) \ | |||
| zsbmv.$(SUFFIX) zspmv.$(SUFFIX) \ | |||
| zspr.$(SUFFIX) zspr2.$(SUFFIX) \ | |||
| ztrsv.$(SUFFIX) ztrmv.$(SUFFIX) \ | |||
| zsyr2.$(SUFFIX) zgbmv.$(SUFFIX) \ | |||
| zsbmv.$(SUFFIX) \ | |||
| zspr2.$(SUFFIX) \ | |||
| ztbsv.$(SUFFIX) ztbmv.$(SUFFIX) \ | |||
| ztpsv.$(SUFFIX) ztpmv.$(SUFFIX) \ | |||
| zhemv.$(SUFFIX) zhbmv.$(SUFFIX) \ | |||
+ 0
- 19
lapack-devel.log
View File
| @@ -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%) | |||
| ======================================================================================== | |||
+ 2
- 2
lapack-netlib/BLAS/CMakeLists.txt
View File
| @@ -1,8 +1,8 @@ | |||
| add_subdirectory(SRC) | |||
| if(BUILD_TESTING) | |||
| add_subdirectory(TESTING) | |||
| endif(BUILD_TESTING) | |||
| configure_file(${CMAKE_CURRENT_SOURCE_DIR}/blas.pc.in ${CMAKE_CURRENT_BINARY_DIR}/blas.pc) | |||
| endif() | |||
| configure_file(${CMAKE_CURRENT_SOURCE_DIR}/blas.pc.in ${CMAKE_CURRENT_BINARY_DIR}/blas.pc @ONLY) | |||
| install(FILES | |||
| ${CMAKE_CURRENT_BINARY_DIR}/blas.pc | |||
| DESTINATION ${PKG_CONFIG_DIR} | |||
+ 25
- 25
lapack-netlib/BLAS/SRC/CMakeLists.txt
View File
| @@ -57,19 +57,19 @@ | |||
| # Comment out the next 6 definitions if you already have | |||
| # the Level 1 BLAS. | |||
| #--------------------------------------------------------- | |||
| set(SBLAS1 isamax.f sasum.f saxpy.f scopy.f sdot.f snrm2.f | |||
| set(SBLAS1 isamax.f sasum.f saxpy.f scopy.f sdot.f snrm2.f | |||
| srot.f srotg.f sscal.f sswap.f sdsdot.f srotmg.f srotm.f) | |||
| set(CBLAS1 scabs1.f scasum.f scnrm2.f icamax.f caxpy.f ccopy.f | |||
| set(CBLAS1 scabs1.f scasum.f scnrm2.f icamax.f caxpy.f ccopy.f | |||
| cdotc.f cdotu.f csscal.f crotg.f cscal.f cswap.f csrot.f) | |||
| set(DBLAS1 idamax.f dasum.f daxpy.f dcopy.f ddot.f dnrm2.f | |||
| set(DBLAS1 idamax.f dasum.f daxpy.f dcopy.f ddot.f dnrm2.f | |||
| drot.f drotg.f dscal.f dsdot.f dswap.f drotmg.f drotm.f) | |||
| set(ZBLAS1 dcabs1.f dzasum.f dznrm2.f izamax.f zaxpy.f zcopy.f | |||
| set(ZBLAS1 dcabs1.f dzasum.f dznrm2.f izamax.f zaxpy.f zcopy.f | |||
| zdotc.f zdotu.f zdscal.f zrotg.f zscal.f zswap.f zdrot.f) | |||
| set(CB1AUX isamax.f sasum.f saxpy.f scopy.f snrm2.f sscal.f) | |||
| 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) | |||
| @@ -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 | |||
| # 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 | |||
| # the Level 2 BLAS. | |||
| #--------------------------------------------------------- | |||
| set(SBLAS2 sgemv.f sgbmv.f ssymv.f ssbmv.f sspmv.f | |||
| strmv.f stbmv.f stpmv.f strsv.f stbsv.f stpsv.f | |||
| set(SBLAS2 sgemv.f sgbmv.f ssymv.f ssbmv.f sspmv.f | |||
| strmv.f stbmv.f stpmv.f strsv.f stbsv.f stpsv.f | |||
| sger.f ssyr.f sspr.f ssyr2.f sspr2.f) | |||
| set(CBLAS2 cgemv.f cgbmv.f chemv.f chbmv.f chpmv.f | |||
| ctrmv.f ctbmv.f ctpmv.f ctrsv.f ctbsv.f ctpsv.f | |||
| set(CBLAS2 cgemv.f cgbmv.f chemv.f chbmv.f chpmv.f | |||
| ctrmv.f ctbmv.f ctpmv.f ctrsv.f ctbsv.f ctpsv.f | |||
| cgerc.f cgeru.f cher.f chpr.f cher2.f chpr2.f) | |||
| set(DBLAS2 dgemv.f dgbmv.f dsymv.f dsbmv.f dspmv.f | |||
| dtrmv.f dtbmv.f dtpmv.f dtrsv.f dtbsv.f dtpsv.f | |||
| set(DBLAS2 dgemv.f dgbmv.f dsymv.f dsbmv.f dspmv.f | |||
| dtrmv.f dtbmv.f dtpmv.f dtrsv.f dtbsv.f dtpsv.f | |||
| dger.f dsyr.f dspr.f dsyr2.f dspr2.f) | |||
| set(ZBLAS2 zgemv.f zgbmv.f zhemv.f zhbmv.f zhpmv.f | |||
| ztrmv.f ztbmv.f ztpmv.f ztrsv.f ztbsv.f ztpsv.f | |||
| set(ZBLAS2 zgemv.f zgbmv.f zhemv.f zhbmv.f zhpmv.f | |||
| ztrmv.f ztbmv.f ztpmv.f ztrsv.f ztbsv.f ztpsv.f | |||
| zgerc.f zgeru.f zher.f zhpr.f zher2.f zhpr2.f) | |||
| #--------------------------------------------------------- | |||
| # Comment out the next 4 definitions if you already have | |||
| # 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) | |||
| set(DBLAS3 dgemm.f dsymm.f dsyrk.f dsyr2k.f dtrmm.f dtrsm.f) | |||
| set(ZBLAS3 zgemm.f zsymm.f zsyrk.f zsyr2k.f ztrmm.f ztrsm.f | |||
| set(ZBLAS3 zgemm.f zsymm.f zsyrk.f zsyr2k.f ztrmm.f ztrsm.f | |||
| zhemm.f zherk.f zher2k.f) | |||
| # default build all of it | |||
| set(ALLOBJ ${SBLAS1} ${SBLAS2} ${SBLAS3} ${DBLAS1} ${DBLAS2} ${DBLAS3} | |||
| ${CBLAS1} ${CBLAS2} ${CBLAS3} ${ZBLAS1} | |||
| set(ALLOBJ ${SBLAS1} ${SBLAS2} ${SBLAS3} ${DBLAS1} ${DBLAS2} ${DBLAS3} | |||
| ${CBLAS1} ${CBLAS2} ${CBLAS3} ${ZBLAS1} | |||
| ${ZBLAS2} ${ZBLAS3} ${ALLBLAS}) | |||
| if(BLAS_SINGLE) | |||
| set(ALLOBJ ${SBLAS1} ${ALLBLAS} | |||
| set(ALLOBJ ${SBLAS1} ${ALLBLAS} | |||
| ${SBLAS2} ${SBLAS3}) | |||
| endif() | |||
| if(BLAS_DOUBLE) | |||
| set(ALLOBJ ${DBLAS1} ${ALLBLAS} | |||
| set(ALLOBJ ${DBLAS1} ${ALLBLAS} | |||
| ${DBLAS2} ${DBLAS3}) | |||
| endif() | |||
| if(BLAS_COMPLEX) | |||
| set(ALLOBJ ${BLASLIB} ${CBLAS1} ${CB1AUX} | |||
| set(ALLOBJ ${BLASLIB} ${CBLAS1} ${CB1AUX} | |||
| ${ALLBLAS} ${CBLAS2}) | |||
| endif() | |||
| if(BLAS_COMPLEX16) | |||
| set(ALLOBJ ${BLASLIB} ${ZBLAS1} ${ZB1AUX} | |||
| set(ALLOBJ ${BLASLIB} ${ZBLAS1} ${ZB1AUX} | |||
| ${ALLBLAS} ${ZBLAS2} ${ZBLAS3}) | |||
| endif() | |||
| add_library(blas ${ALLOBJ}) | |||
| #if(UNIX) | |||
| # target_link_libraries(blas m) | |||
+ 7
- 7
lapack-netlib/BLAS/SRC/Makefile
View File
| @@ -56,7 +56,7 @@ include ../../make.inc | |||
| ####################################################################### | |||
| all: $(BLASLIB) | |||
| #--------------------------------------------------------- | |||
| # Comment out the next 6 definitions if you already have | |||
| # the Level 1 BLAS. | |||
| @@ -88,8 +88,8 @@ $(ZB1AUX): $(FRC) | |||
| # Level 2 and Level 3 BLAS. Comment it out only if you already have | |||
| # both the Level 2 and 3 BLAS. | |||
| #--------------------------------------------------------------------- | |||
| ALLBLAS = lsame.o xerbla.o xerbla_array.o | |||
| $(ALLBLAS) : $(FRC) | |||
| ALLBLAS = lsame.o xerbla.o xerbla_array.o | |||
| $(ALLBLAS): $(FRC) | |||
| #--------------------------------------------------------- | |||
| # 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 | |||
| # the Level 3 BLAS. | |||
| #--------------------------------------------------------- | |||
| SBLAS3 = sgemm.o ssymm.o ssyrk.o ssyr2k.o strmm.o strsm.o | |||
| SBLAS3 = sgemm.o ssymm.o ssyrk.o ssyr2k.o strmm.o strsm.o | |||
| $(SBLAS3): $(FRC) | |||
| CBLAS3 = cgemm.o csymm.o csyrk.o csyr2k.o ctrmm.o ctrsm.o \ | |||
| @@ -133,7 +133,7 @@ ZBLAS3 = zgemm.o zsymm.o zsyrk.o zsyr2k.o ztrmm.o ztrsm.o \ | |||
| zhemm.o zherk.o zher2k.o | |||
| $(ZBLAS3): $(FRC) | |||
| ALLOBJ=$(SBLAS1) $(SBLAS2) $(SBLAS3) $(DBLAS1) $(DBLAS2) $(DBLAS3) \ | |||
| ALLOBJ = $(SBLAS1) $(SBLAS2) $(SBLAS3) $(DBLAS1) $(DBLAS2) $(DBLAS3) \ | |||
| $(CBLAS1) $(CBLAS2) $(CBLAS3) $(ZBLAS1) \ | |||
| $(ZBLAS2) $(ZBLAS3) $(ALLBLAS) | |||
| @@ -167,5 +167,5 @@ FRC: | |||
| clean: | |||
| rm -f *.o | |||
| .f.o: | |||
| $(FORTRAN) $(OPTS) -c $< -o $@ | |||
| .f.o: | |||
| $(FORTRAN) $(OPTS) -c -o $@ $< | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/caxpy.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CAXPY(N,CA,CX,INCX,CY,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX CA | |||
| * INTEGER INCX,INCY,N | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX CX(*),CY(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -30,12 +30,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level1 | |||
| * | |||
| @@ -51,10 +51,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX CA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/ccopy.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CCOPY(N,CX,INCX,CY,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,INCY,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * COMPLEX CX(*),CY(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -29,12 +29,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level1 | |||
| * | |||
| @@ -50,10 +50,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,INCY,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/cdotc.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,INCY,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * COMPLEX CX(*),CY(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -31,12 +31,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level1 | |||
| * | |||
| @@ -52,10 +52,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,INCY,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/cdotu.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,INCY,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * COMPLEX CX(*),CY(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -31,12 +31,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level1 | |||
| * | |||
| @@ -52,10 +52,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,INCY,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/cgbmv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX ALPHA,BETA | |||
| * INTEGER INCX,INCY,KL,KU,LDA,M,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -160,12 +160,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level2 | |||
| * | |||
| @@ -187,10 +187,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/cgemm.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX ALPHA,BETA | |||
| * INTEGER K,LDA,LDB,LDC,M,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -161,12 +161,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level3 | |||
| * | |||
| @@ -187,10 +187,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/cgemv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX ALPHA,BETA | |||
| * INTEGER INCX,INCY,LDA,M,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -131,12 +131,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level2 | |||
| * | |||
| @@ -158,10 +158,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/cgerc.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CGERC(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX ALPHA | |||
| * INTEGER INCX,INCY,LDA,M,N | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -104,12 +104,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level2 | |||
| * | |||
| @@ -130,10 +130,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX ALPHA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/cgeru.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX ALPHA | |||
| * INTEGER INCX,INCY,LDA,M,N | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -104,12 +104,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level2 | |||
| * | |||
| @@ -130,10 +130,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX ALPHA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/chbmv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX ALPHA,BETA | |||
| * INTEGER INCX,INCY,K,LDA,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -160,12 +160,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level2 | |||
| * | |||
| @@ -187,10 +187,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/chemm.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX ALPHA,BETA | |||
| * INTEGER LDA,LDB,LDC,M,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -165,12 +165,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level3 | |||
| * | |||
| @@ -191,10 +191,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/chemv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CHEMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX ALPHA,BETA | |||
| * INTEGER INCX,INCY,LDA,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -127,12 +127,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level2 | |||
| * | |||
| @@ -154,10 +154,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/cher.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CHER(UPLO,N,ALPHA,X,INCX,A,LDA) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * REAL ALPHA | |||
| * INTEGER INCX,LDA,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -109,12 +109,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level2 | |||
| * | |||
| @@ -135,10 +135,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| REAL ALPHA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/cher2.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CHER2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX ALPHA | |||
| * INTEGER INCX,INCY,LDA,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -124,12 +124,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level2 | |||
| * | |||
| @@ -150,10 +150,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX ALPHA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/cher2k.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX ALPHA | |||
| * REAL BETA | |||
| @@ -19,7 +19,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -168,12 +168,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level3 | |||
| * | |||
| @@ -197,10 +197,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX ALPHA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/cherk.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * REAL ALPHA,BETA | |||
| * INTEGER K,LDA,LDC,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),C(LDC,*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -144,12 +144,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level3 | |||
| * | |||
| @@ -173,10 +173,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| REAL ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/chpmv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX ALPHA,BETA | |||
| * INTEGER INCX,INCY,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX AP(*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -122,12 +122,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level2 | |||
| * | |||
| @@ -149,10 +149,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/chpr.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CHPR(UPLO,N,ALPHA,X,INCX,AP) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * REAL ALPHA | |||
| * INTEGER INCX,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX AP(*),X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -104,12 +104,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level2 | |||
| * | |||
| @@ -130,10 +130,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| REAL ALPHA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/chpr2.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX ALPHA | |||
| * INTEGER INCX,INCY,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX AP(*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -119,12 +119,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level2 | |||
| * | |||
| @@ -145,10 +145,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX ALPHA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/crotg.f
View File
| @@ -2,19 +2,19 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CROTG(CA,CB,C,S) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX CA,CB,S | |||
| * REAL C | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -27,22 +27,22 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level1 | |||
| * | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX CA,CB,S | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/cscal.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CSCAL(N,CA,CX,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX CA | |||
| * INTEGER INCX,N | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX CX(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -30,12 +30,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level1 | |||
| * | |||
| @@ -52,10 +52,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX CA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/csrot.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CSROT( N, CX, INCX, CY, INCY, C, S ) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX, INCY, N | |||
| * REAL C, S | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX CX( * ), CY( * ) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -86,22 +86,22 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level1 | |||
| * | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX, INCY, N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/csscal.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CSSCAL(N,SA,CX,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * REAL SA | |||
| * INTEGER INCX,N | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX CX(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -30,12 +30,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level1 | |||
| * | |||
| @@ -52,10 +52,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| REAL SA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/cswap.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CSWAP(N,CX,INCX,CY,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,INCY,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * COMPLEX CX(*),CY(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -29,12 +29,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level1 | |||
| * | |||
| @@ -50,10 +50,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,INCY,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/csymm.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX ALPHA,BETA | |||
| * INTEGER LDA,LDB,LDC,M,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -163,12 +163,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level3 | |||
| * | |||
| @@ -189,10 +189,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/csyr2k.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX ALPHA,BETA | |||
| * INTEGER K,LDA,LDB,LDC,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -162,12 +162,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level3 | |||
| * | |||
| @@ -188,10 +188,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/csyrk.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX ALPHA,BETA | |||
| * INTEGER K,LDA,LDC,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),C(LDC,*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -141,12 +141,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level3 | |||
| * | |||
| @@ -167,10 +167,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX ALPHA,BETA | |||
+ 12
- 12
lapack-netlib/BLAS/SRC/ctbmv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,K,LDA,N | |||
| * CHARACTER DIAG,TRANS,UPLO | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -146,7 +146,7 @@ | |||
| *> ( 1 + ( n - 1 )*abs( INCX ) ). | |||
| *> Before entry, the incremented array X must contain the n | |||
| *> element vector x. On exit, X is overwritten with the | |||
| *> tranformed vector x. | |||
| *> transformed vector x. | |||
| *> \endverbatim | |||
| *> | |||
| *> \param[in] INCX | |||
| @@ -159,12 +159,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level2 | |||
| * | |||
| @@ -186,10 +186,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,K,LDA,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/ctbsv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,K,LDA,N | |||
| * CHARACTER DIAG,TRANS,UPLO | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -163,12 +163,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level2 | |||
| * | |||
| @@ -189,10 +189,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,K,LDA,N | |||
+ 12
- 12
lapack-netlib/BLAS/SRC/ctpmv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,N | |||
| * CHARACTER DIAG,TRANS,UPLO | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX AP(*),X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -102,7 +102,7 @@ | |||
| *> ( 1 + ( n - 1 )*abs( INCX ) ). | |||
| *> Before entry, the incremented array X must contain the n | |||
| *> element vector x. On exit, X is overwritten with the | |||
| *> tranformed vector x. | |||
| *> transformed vector x. | |||
| *> \endverbatim | |||
| *> | |||
| *> \param[in] INCX | |||
| @@ -115,12 +115,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level2 | |||
| * | |||
| @@ -142,10 +142,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/ctpsv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,N | |||
| * CHARACTER DIAG,TRANS,UPLO | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX AP(*),X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -118,12 +118,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level2 | |||
| * | |||
| @@ -144,10 +144,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/ctrmm.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX ALPHA | |||
| * INTEGER LDA,LDB,M,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),B(LDB,*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -151,12 +151,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level3 | |||
| * | |||
| @@ -177,10 +177,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX ALPHA | |||
+ 12
- 12
lapack-netlib/BLAS/SRC/ctrmv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,LDA,N | |||
| * CHARACTER DIAG,TRANS,UPLO | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -107,7 +107,7 @@ | |||
| *> ( 1 + ( n - 1 )*abs( INCX ) ). | |||
| *> Before entry, the incremented array X must contain the n | |||
| *> element vector x. On exit, X is overwritten with the | |||
| *> tranformed vector x. | |||
| *> transformed vector x. | |||
| *> \endverbatim | |||
| *> | |||
| *> \param[in] INCX | |||
| @@ -120,12 +120,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level2 | |||
| * | |||
| @@ -147,10 +147,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,LDA,N | |||
+ 12
- 12
lapack-netlib/BLAS/SRC/ctrsm.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX ALPHA | |||
| * INTEGER LDA,LDB,M,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),B(LDB,*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -112,7 +112,7 @@ | |||
| *> \param[in] A | |||
| *> \verbatim | |||
| *> A is COMPLEX array of DIMENSION ( LDA, k ), | |||
| *> where k is m when SIDE = 'L' or 'l' | |||
| *> where k is m when SIDE = 'L' or 'l' | |||
| *> and k is n when SIDE = 'R' or 'r'. | |||
| *> Before entry with UPLO = 'U' or 'u', the leading k by k | |||
| *> upper triangular part of the array A must contain the upper | |||
| @@ -154,12 +154,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level3 | |||
| * | |||
| @@ -180,10 +180,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX ALPHA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/ctrsv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE CTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,LDA,N | |||
| * CHARACTER DIAG,TRANS,UPLO | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * COMPLEX A(LDA,*),X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -123,12 +123,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup complex_blas_level2 | |||
| * | |||
| @@ -149,10 +149,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,LDA,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dasum.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * DOUBLE PRECISION FUNCTION DASUM(N,DX,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION DX(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -29,12 +29,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level1 | |||
| * | |||
| @@ -51,10 +51,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/daxpy.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DAXPY(N,DA,DX,INCX,DY,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION DA | |||
| * INTEGER INCX,INCY,N | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION DX(*),DY(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -31,12 +31,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level1 | |||
| * | |||
| @@ -52,10 +52,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION DA | |||
+ 12
- 12
lapack-netlib/BLAS/SRC/dcabs1.f
View File
| @@ -2,47 +2,47 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * DOUBLE PRECISION FUNCTION DCABS1(Z) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX*16 Z | |||
| * .. | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| *> | |||
| *> \verbatim | |||
| *> | |||
| *> DCABS1 computes |Re(.)| + |Im(.)| of a double complex number | |||
| *> DCABS1 computes |Re(.)| + |Im(.)| of a double complex number | |||
| *> \endverbatim | |||
| * | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level1 | |||
| * | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX*16 Z | |||
+ 13
- 13
lapack-netlib/BLAS/SRC/dcopy.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DCOPY(N,DX,INCX,DY,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,INCY,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION DX(*),DY(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -30,12 +30,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level1 | |||
| * | |||
| @@ -51,10 +51,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,INCY,N | |||
| @@ -85,7 +85,7 @@ | |||
| DY(I) = DX(I) | |||
| END DO | |||
| IF (N.LT.7) RETURN | |||
| END IF | |||
| END IF | |||
| MP1 = M + 1 | |||
| DO I = MP1,N,7 | |||
| DY(I) = DX(I) | |||
| @@ -96,7 +96,7 @@ | |||
| DY(I+5) = DX(I+5) | |||
| DY(I+6) = DX(I+6) | |||
| END DO | |||
| ELSE | |||
| ELSE | |||
| * | |||
| * code for unequal increments or equal increments | |||
| * not equal to 1 | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/ddot.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,INCY,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION DX(*),DY(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -30,12 +30,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level1 | |||
| * | |||
| @@ -51,10 +51,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,INCY,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dgbmv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION ALPHA,BETA | |||
| * INTEGER INCX,INCY,KL,KU,LDA,M,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION A(LDA,*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -158,12 +158,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level2 | |||
| * | |||
| @@ -185,10 +185,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dgemm.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION ALPHA,BETA | |||
| * INTEGER K,LDA,LDB,LDC,M,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -161,12 +161,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level3 | |||
| * | |||
| @@ -187,10 +187,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dgemv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION ALPHA,BETA | |||
| * INTEGER INCX,INCY,LDA,M,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION A(LDA,*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -129,12 +129,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level2 | |||
| * | |||
| @@ -156,10 +156,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dger.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION ALPHA | |||
| * INTEGER INCX,INCY,LDA,M,N | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION A(LDA,*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -104,12 +104,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level2 | |||
| * | |||
| @@ -130,10 +130,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION ALPHA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dnrm2.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * DOUBLE PRECISION FUNCTION DNRM2(N,X,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -32,12 +32,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level1 | |||
| * | |||
| @@ -54,10 +54,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/drot.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DROT(N,DX,INCX,DY,INCY,C,S) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION C,S | |||
| * INTEGER INCX,INCY,N | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION DX(*),DY(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -30,12 +30,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level1 | |||
| * | |||
| @@ -51,10 +51,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION C,S | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/drotg.f
View File
| @@ -2,18 +2,18 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DROTG(DA,DB,C,S) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION C,DA,DB,S | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -26,12 +26,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level1 | |||
| * | |||
| @@ -46,10 +46,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION C,DA,DB,S | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/drotm.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,INCY,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION DPARAM(5),DX(*),DY(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -86,22 +86,22 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level1 | |||
| * | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,INCY,N | |||
+ 20
- 20
lapack-netlib/BLAS/SRC/drotmg.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION DD1,DD2,DX1,DY1 | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION DPARAM(5) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -78,22 +78,22 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level1 | |||
| * | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION DD1,DD2,DX1,DY1 | |||
| @@ -135,7 +135,7 @@ | |||
| DFLAG = -TWO | |||
| DPARAM(1) = DFLAG | |||
| RETURN | |||
| END IF | |||
| END IF | |||
| * REGULAR-CASE.. | |||
| DP1 = DD1*DX1 | |||
| DQ2 = DP2*DY1 | |||
| @@ -203,7 +203,7 @@ | |||
| END IF | |||
| ENDDO | |||
| END IF | |||
| IF (DD2.NE.ZERO) THEN | |||
| DO WHILE ( (DABS(DD2).LE.RGAMSQ) .OR. (DABS(DD2).GE.GAMSQ) ) | |||
| IF (DFLAG.EQ.ZERO) THEN | |||
| @@ -223,10 +223,10 @@ | |||
| DD2 = DD2/GAM**2 | |||
| DH21 = DH21*GAM | |||
| DH22 = DH22*GAM | |||
| END IF | |||
| END IF | |||
| END DO | |||
| END IF | |||
| END IF | |||
| IF (DFLAG.LT.ZERO) THEN | |||
| @@ -236,7 +236,7 @@ | |||
| DPARAM(5) = DH22 | |||
| ELSE IF (DFLAG.EQ.ZERO) THEN | |||
| DPARAM(3) = DH21 | |||
| DPARAM(4) = DH12 | |||
| DPARAM(4) = DH12 | |||
| ELSE | |||
| DPARAM(2) = DH11 | |||
| DPARAM(5) = DH22 | |||
| @@ -245,7 +245,7 @@ | |||
| DPARAM(1) = DFLAG | |||
| RETURN | |||
| END | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dsbmv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION ALPHA,BETA | |||
| * INTEGER INCX,INCY,K,LDA,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION A(LDA,*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -157,12 +157,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level2 | |||
| * | |||
| @@ -184,10 +184,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dscal.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DSCAL(N,DA,DX,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION DA | |||
| * INTEGER INCX,N | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION DX(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -31,12 +31,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level1 | |||
| * | |||
| @@ -53,10 +53,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION DA | |||
+ 15
- 15
lapack-netlib/BLAS/SRC/dsdot.f
View File
| @@ -2,26 +2,26 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * DOUBLE PRECISION FUNCTION DSDOT(N,SX,INCX,SY,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,INCY,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * REAL SX(*),SY(*) | |||
| * .. | |||
| * | |||
| * | |||
| * AUTHORS | |||
| * ======= | |||
| * Lawson, C. L., (JPL), Hanson, R. J., (SNLA), | |||
| * Lawson, C. L., (JPL), Hanson, R. J., (SNLA), | |||
| * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -79,12 +79,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level1 | |||
| * | |||
| @@ -99,7 +99,7 @@ | |||
| *> | |||
| *> \verbatim | |||
| *> | |||
| *> | |||
| *> | |||
| *> C. L. Lawson, R. J. Hanson, D. R. Kincaid and F. T. | |||
| *> Krogh, Basic linear algebra subprograms for Fortran | |||
| *> usage, Algorithm No. 539, Transactions on Mathematical | |||
| @@ -119,10 +119,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,INCY,N | |||
| @@ -133,7 +133,7 @@ | |||
| * | |||
| * Authors: | |||
| * ======== | |||
| * Lawson, C. L., (JPL), Hanson, R. J., (SNLA), | |||
| * Lawson, C. L., (JPL), Hanson, R. J., (SNLA), | |||
| * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) | |||
| * | |||
| * ===================================================================== | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dspmv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION ALPHA,BETA | |||
| * INTEGER INCX,INCY,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION AP(*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -120,12 +120,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level2 | |||
| * | |||
| @@ -147,10 +147,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dspr.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DSPR(UPLO,N,ALPHA,X,INCX,AP) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION ALPHA | |||
| * INTEGER INCX,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION AP(*),X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -101,12 +101,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level2 | |||
| * | |||
| @@ -127,10 +127,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION ALPHA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dspr2.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION ALPHA | |||
| * INTEGER INCX,INCY,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION AP(*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -116,12 +116,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level2 | |||
| * | |||
| @@ -142,10 +142,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION ALPHA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dswap.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DSWAP(N,DX,INCX,DY,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,INCY,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION DX(*),DY(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -30,12 +30,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level1 | |||
| * | |||
| @@ -51,10 +51,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,INCY,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dsymm.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION ALPHA,BETA | |||
| * INTEGER LDA,LDB,LDC,M,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -163,12 +163,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level3 | |||
| * | |||
| @@ -189,10 +189,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dsymv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DSYMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION ALPHA,BETA | |||
| * INTEGER INCX,INCY,LDA,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION A(LDA,*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -125,12 +125,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level2 | |||
| * | |||
| @@ -152,10 +152,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dsyr.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DSYR(UPLO,N,ALPHA,X,INCX,A,LDA) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION ALPHA | |||
| * INTEGER INCX,LDA,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION A(LDA,*),X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -106,12 +106,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level2 | |||
| * | |||
| @@ -132,10 +132,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION ALPHA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dsyr2.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DSYR2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION ALPHA | |||
| * INTEGER INCX,INCY,LDA,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION A(LDA,*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -121,12 +121,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level2 | |||
| * | |||
| @@ -147,10 +147,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION ALPHA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dsyr2k.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION ALPHA,BETA | |||
| * INTEGER K,LDA,LDB,LDC,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -165,12 +165,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level3 | |||
| * | |||
| @@ -192,10 +192,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dsyrk.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION ALPHA,BETA | |||
| * INTEGER K,LDA,LDC,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION A(LDA,*),C(LDC,*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -143,12 +143,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level3 | |||
| * | |||
| @@ -169,10 +169,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION ALPHA,BETA | |||
+ 12
- 12
lapack-netlib/BLAS/SRC/dtbmv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,K,LDA,N | |||
| * CHARACTER DIAG,TRANS,UPLO | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION A(LDA,*),X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -146,7 +146,7 @@ | |||
| *> ( 1 + ( n - 1 )*abs( INCX ) ). | |||
| *> Before entry, the incremented array X must contain the n | |||
| *> element vector x. On exit, X is overwritten with the | |||
| *> tranformed vector x. | |||
| *> transformed vector x. | |||
| *> \endverbatim | |||
| *> | |||
| *> \param[in] INCX | |||
| @@ -159,12 +159,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level2 | |||
| * | |||
| @@ -186,10 +186,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,K,LDA,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dtbsv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,K,LDA,N | |||
| * CHARACTER DIAG,TRANS,UPLO | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION A(LDA,*),X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -163,12 +163,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level2 | |||
| * | |||
| @@ -189,10 +189,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,K,LDA,N | |||
+ 12
- 12
lapack-netlib/BLAS/SRC/dtpmv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,N | |||
| * CHARACTER DIAG,TRANS,UPLO | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION AP(*),X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -102,7 +102,7 @@ | |||
| *> ( 1 + ( n - 1 )*abs( INCX ) ). | |||
| *> Before entry, the incremented array X must contain the n | |||
| *> element vector x. On exit, X is overwritten with the | |||
| *> tranformed vector x. | |||
| *> transformed vector x. | |||
| *> \endverbatim | |||
| *> | |||
| *> \param[in] INCX | |||
| @@ -115,12 +115,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level2 | |||
| * | |||
| @@ -142,10 +142,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dtpsv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,N | |||
| * CHARACTER DIAG,TRANS,UPLO | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION AP(*),X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -118,12 +118,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level2 | |||
| * | |||
| @@ -144,10 +144,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dtrmm.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION ALPHA | |||
| * INTEGER LDA,LDB,M,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION A(LDA,*),B(LDB,*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -151,12 +151,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level3 | |||
| * | |||
| @@ -177,10 +177,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION ALPHA | |||
+ 12
- 12
lapack-netlib/BLAS/SRC/dtrmv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,LDA,N | |||
| * CHARACTER DIAG,TRANS,UPLO | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION A(LDA,*),X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -107,7 +107,7 @@ | |||
| *> ( 1 + ( n - 1 )*abs( INCX ) ). | |||
| *> Before entry, the incremented array X must contain the n | |||
| *> element vector x. On exit, X is overwritten with the | |||
| *> tranformed vector x. | |||
| *> transformed vector x. | |||
| *> \endverbatim | |||
| *> | |||
| *> \param[in] INCX | |||
| @@ -120,12 +120,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level2 | |||
| * | |||
| @@ -147,10 +147,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,LDA,N | |||
+ 12
- 12
lapack-netlib/BLAS/SRC/dtrsm.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * DOUBLE PRECISION ALPHA | |||
| * INTEGER LDA,LDB,M,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION A(LDA,*),B(LDB,*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -112,7 +112,7 @@ | |||
| *> \param[in] A | |||
| *> \verbatim | |||
| *> A is DOUBLE PRECISION array of DIMENSION ( LDA, k ), | |||
| *> where k is m when SIDE = 'L' or 'l' | |||
| *> where k is m when SIDE = 'L' or 'l' | |||
| *> and k is n when SIDE = 'R' or 'r'. | |||
| *> Before entry with UPLO = 'U' or 'u', the leading k by k | |||
| *> upper triangular part of the array A must contain the upper | |||
| @@ -154,12 +154,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level3 | |||
| * | |||
| @@ -181,10 +181,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| DOUBLE PRECISION ALPHA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dtrsv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE DTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,LDA,N | |||
| * CHARACTER DIAG,TRANS,UPLO | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION A(LDA,*),X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -131,22 +131,22 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level1 | |||
| * | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,LDA,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dzasum.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * DOUBLE PRECISION FUNCTION DZASUM(N,ZX,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * COMPLEX*16 ZX(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -30,12 +30,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level1 | |||
| * | |||
| @@ -52,10 +52,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/dznrm2.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * DOUBLE PRECISION FUNCTION DZNRM2(N,X,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * COMPLEX*16 X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -32,12 +32,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup double_blas_level1 | |||
| * | |||
| @@ -54,10 +54,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/icamax.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * INTEGER FUNCTION ICAMAX(N,CX,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * COMPLEX CX(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -29,12 +29,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup aux_blas | |||
| * | |||
| @@ -51,10 +51,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/idamax.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * INTEGER FUNCTION IDAMAX(N,DX,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * DOUBLE PRECISION DX(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -29,12 +29,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup aux_blas | |||
| * | |||
| @@ -51,10 +51,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/isamax.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * INTEGER FUNCTION ISAMAX(N,SX,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * REAL SX(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -29,12 +29,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup aux_blas | |||
| * | |||
| @@ -51,10 +51,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/izamax.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * INTEGER FUNCTION IZAMAX(N,ZX,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * COMPLEX*16 ZX(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -29,12 +29,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup aux_blas | |||
| * | |||
| @@ -51,10 +51,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,N | |||
+ 10
- 10
lapack-netlib/BLAS/SRC/lsame.f
View File
| @@ -2,18 +2,18 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * LOGICAL FUNCTION LSAME(CA,CB) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * CHARACTER CA,CB | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -41,12 +41,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup aux_blas | |||
| * | |||
| @@ -56,7 +56,7 @@ | |||
| * -- Reference BLAS level1 routine (version 3.1) -- | |||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| CHARACTER CA,CB | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/sasum.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * REAL FUNCTION SASUM(N,SX,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * REAL SX(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -30,12 +30,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup single_blas_level1 | |||
| * | |||
| @@ -52,10 +52,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/saxpy.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE SAXPY(N,SA,SX,INCX,SY,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * REAL SA | |||
| * INTEGER INCX,INCY,N | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * REAL SX(*),SY(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -31,12 +31,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup single_blas_level1 | |||
| * | |||
| @@ -52,10 +52,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| REAL SA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/scabs1.f
View File
| @@ -2,18 +2,18 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * REAL FUNCTION SCABS1(Z) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * COMPLEX Z | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -26,22 +26,22 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup single_blas_level1 | |||
| * | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| COMPLEX Z | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/scasum.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * REAL FUNCTION SCASUM(N,CX,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * COMPLEX CX(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -30,12 +30,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup single_blas_level1 | |||
| * | |||
| @@ -52,10 +52,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/scnrm2.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * REAL FUNCTION SCNRM2(N,X,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * COMPLEX X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -32,12 +32,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup single_blas_level1 | |||
| * | |||
| @@ -54,10 +54,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,N | |||
+ 13
- 13
lapack-netlib/BLAS/SRC/scopy.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE SCOPY(N,SX,INCX,SY,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,INCY,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * REAL SX(*),SY(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -30,12 +30,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup single_blas_level1 | |||
| * | |||
| @@ -51,10 +51,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,INCY,N | |||
| @@ -85,7 +85,7 @@ | |||
| SY(I) = SX(I) | |||
| END DO | |||
| IF (N.LT.7) RETURN | |||
| END IF | |||
| END IF | |||
| MP1 = M + 1 | |||
| DO I = MP1,N,7 | |||
| SY(I) = SX(I) | |||
| @@ -96,7 +96,7 @@ | |||
| SY(I+5) = SX(I+5) | |||
| SY(I+6) = SX(I+6) | |||
| END DO | |||
| ELSE | |||
| ELSE | |||
| * | |||
| * code for unequal increments or equal increments | |||
| * not equal to 1 | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/sdot.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * REAL FUNCTION SDOT(N,SX,INCX,SY,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,INCY,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * REAL SX(*),SY(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -30,12 +30,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup single_blas_level1 | |||
| * | |||
| @@ -51,10 +51,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,INCY,N | |||
+ 38
- 38
lapack-netlib/BLAS/SRC/sdsdot.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * REAL FUNCTION SDSDOT(N,SB,SX,INCX,SY,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * REAL SB | |||
| * INTEGER INCX,INCY,N | |||
| @@ -17,59 +17,59 @@ | |||
| * .. Array Arguments .. | |||
| * REAL SX(*),SY(*) | |||
| * .. | |||
| * | |||
| * | |||
| * PURPOSE | |||
| * ======= | |||
| * | |||
| * | |||
| * Compute the inner product of two vectors with extended | |||
| * precision accumulation. | |||
| * | |||
| * | |||
| * Returns S.P. result with dot product accumulated in D.P. | |||
| * SDSDOT = SB + sum for I = 0 to N-1 of SX(LX+I*INCX)*SY(LY+I*INCY), | |||
| * where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is | |||
| * defined in a similar way using INCY. | |||
| * | |||
| * | |||
| * AUTHOR | |||
| * ====== | |||
| * Lawson, C. L., (JPL), Hanson, R. J., (SNLA), | |||
| * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) | |||
| * | |||
| * ARGUMENTS | |||
| * | |||
| * ARGUMENTS | |||
| * ========= | |||
| * | |||
| * | |||
| * N (input) INTEGER | |||
| * number of elements in input vector(s) | |||
| * | |||
| * | |||
| * SB (input) REAL | |||
| * single precision scalar to be added to inner product | |||
| * | |||
| * | |||
| * SX (input) REAL array, dimension (N) | |||
| * single precision vector with N elements | |||
| * | |||
| * | |||
| * INCX (input) INTEGER | |||
| * storage spacing between elements of SX | |||
| * | |||
| * | |||
| * SY (input) REAL array, dimension (N) | |||
| * single precision vector with N elements | |||
| * | |||
| * | |||
| * INCY (input) INTEGER | |||
| * storage spacing between elements of SY | |||
| * | |||
| * | |||
| * SDSDOT (output) REAL | |||
| * single precision dot product (SB if N .LE. 0) | |||
| * | |||
| * | |||
| * Further Details | |||
| * =============== | |||
| * | |||
| * | |||
| * REFERENCES | |||
| * | |||
| * | |||
| * C. L. Lawson, R. J. Hanson, D. R. Kincaid and F. T. | |||
| * Krogh, Basic linear algebra subprograms for Fortran | |||
| * usage, Algorithm No. 539, Transactions on Mathematical | |||
| * Software 5, 3 (September 1979), pp. 308-323. | |||
| * | |||
| * | |||
| * REVISION HISTORY (YYMMDD) | |||
| * | |||
| * | |||
| * 791001 DATE WRITTEN | |||
| * 890531 Changed all specific intrinsics to generic. (WRB) | |||
| * 890831 Modified array declarations. (WRB) | |||
| @@ -78,9 +78,9 @@ | |||
| * 920310 Corrected definition of LX in DESCRIPTION. (WRB) | |||
| * 920501 Reformatted the REFERENCES section. (WRB) | |||
| * 070118 Reformat to LAPACK coding style | |||
| * | |||
| * | |||
| * ===================================================================== | |||
| * | |||
| * | |||
| * .. Local Scalars .. | |||
| * DOUBLE PRECISION DSDOT | |||
| * INTEGER I,KX,KY,NS | |||
| @@ -92,19 +92,19 @@ | |||
| * IF (N.LE.0) THEN | |||
| * SDSDOT = DSDOT | |||
| * RETURN | |||
| * END IF | |||
| * END IF | |||
| * IF (INCX.EQ.INCY .AND. INCX.GT.0) THEN | |||
| * | |||
| * | |||
| * Code for equal and positive increments. | |||
| * | |||
| * | |||
| * NS = N*INCX | |||
| * DO I = 1,NS,INCX | |||
| * DSDOT = DSDOT + DBLE(SX(I))*DBLE(SY(I)) | |||
| * END DO | |||
| * ELSE | |||
| * | |||
| * | |||
| * Code for unequal or nonpositive increments. | |||
| * | |||
| * | |||
| * KX = 1 | |||
| * KY = 1 | |||
| * IF (INCX.LT.0) KX = 1 + (1-N)*INCX | |||
| @@ -128,22 +128,22 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup single_blas_level1 | |||
| * | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| REAL SB | |||
| @@ -169,7 +169,7 @@ | |||
| * Lawson, C. L., (JPL), Hanson, R. J., (SNLA), | |||
| * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) | |||
| * | |||
| * ARGUMENTS | |||
| * ARGUMENTS | |||
| * ========= | |||
| * | |||
| * N (input) INTEGER | |||
| @@ -204,7 +204,7 @@ | |||
| * Software 5, 3 (September 1979), pp. 308-323. | |||
| * | |||
| * REVISION HISTORY (YYMMDD) | |||
| * | |||
| * | |||
| * 791001 DATE WRITTEN | |||
| * 890531 Changed all specific intrinsics to generic. (WRB) | |||
| * 890831 Modified array declarations. (WRB) | |||
| @@ -227,7 +227,7 @@ | |||
| IF (N.LE.0) THEN | |||
| SDSDOT = DSDOT | |||
| RETURN | |||
| END IF | |||
| END IF | |||
| IF (INCX.EQ.INCY .AND. INCX.GT.0) THEN | |||
| * | |||
| * Code for equal and positive increments. | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/sgbmv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE SGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * REAL ALPHA,BETA | |||
| * INTEGER INCX,INCY,KL,KU,LDA,M,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * REAL A(LDA,*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -158,12 +158,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup single_blas_level2 | |||
| * | |||
| @@ -185,10 +185,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| REAL ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/sgemm.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE SGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * REAL ALPHA,BETA | |||
| * INTEGER K,LDA,LDB,LDC,M,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * REAL A(LDA,*),B(LDB,*),C(LDC,*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -161,12 +161,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup single_blas_level3 | |||
| * | |||
| @@ -187,10 +187,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| REAL ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/sgemv.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE SGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * REAL ALPHA,BETA | |||
| * INTEGER INCX,INCY,LDA,M,N | |||
| @@ -18,7 +18,7 @@ | |||
| * .. Array Arguments .. | |||
| * REAL A(LDA,*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -129,12 +129,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2015 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup single_blas_level2 | |||
| * | |||
| @@ -156,10 +156,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2015 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| REAL ALPHA,BETA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/sger.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE SGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * REAL ALPHA | |||
| * INTEGER INCX,INCY,LDA,M,N | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * REAL A(LDA,*),X(*),Y(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -104,12 +104,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup single_blas_level2 | |||
| * | |||
| @@ -130,10 +130,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| REAL ALPHA | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/snrm2.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * REAL FUNCTION SNRM2(N,X,INCX) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * REAL X(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -32,12 +32,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup single_blas_level1 | |||
| * | |||
| @@ -54,10 +54,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,N | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/srot.f
View File
| @@ -2,14 +2,14 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE SROT(N,SX,INCX,SY,INCY,C,S) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * REAL C,S | |||
| * INTEGER INCX,INCY,N | |||
| @@ -17,7 +17,7 @@ | |||
| * .. Array Arguments .. | |||
| * REAL SX(*),SY(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -30,12 +30,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup single_blas_level1 | |||
| * | |||
| @@ -51,10 +51,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| REAL C,S | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/srotg.f
View File
| @@ -2,18 +2,18 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE SROTG(SA,SB,C,S) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * REAL C,S,SA,SB | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -26,12 +26,12 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup single_blas_level1 | |||
| * | |||
| @@ -46,10 +46,10 @@ | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| REAL C,S,SA,SB | |||
+ 11
- 11
lapack-netlib/BLAS/SRC/srotm.f
View File
| @@ -2,21 +2,21 @@ | |||
| * | |||
| * =========== DOCUMENTATION =========== | |||
| * | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * Online html documentation available at | |||
| * http://www.netlib.org/lapack/explore-html/ | |||
| * | |||
| * Definition: | |||
| * =========== | |||
| * | |||
| * SUBROUTINE SROTM(N,SX,INCX,SY,INCY,SPARAM) | |||
| * | |||
| * | |||
| * .. Scalar Arguments .. | |||
| * INTEGER INCX,INCY,N | |||
| * .. | |||
| * .. Array Arguments .. | |||
| * REAL SPARAM(5),SX(*),SY(*) | |||
| * .. | |||
| * | |||
| * | |||
| * | |||
| *> \par Purpose: | |||
| * ============= | |||
| @@ -87,22 +87,22 @@ | |||
| * Authors: | |||
| * ======== | |||
| * | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| *> \author Univ. of Tennessee | |||
| *> \author Univ. of California Berkeley | |||
| *> \author Univ. of Colorado Denver | |||
| *> \author NAG Ltd. | |||
| * | |||
| *> \date November 2011 | |||
| *> \date December 2016 | |||
| * | |||
| *> \ingroup single_blas_level1 | |||
| * | |||
| * ===================================================================== | |||
| 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, -- | |||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | |||
| * November 2011 | |||
| * December 2016 | |||
| * | |||
| * .. Scalar Arguments .. | |||
| INTEGER INCX,INCY,N | |||