updated lapack to version 3.7.0 with latest patches from gittags/v0.2.20^2
| @@ -0,0 +1,55 @@ | |||||
| #!/bin/bash | |||||
| while read OBJ; do | |||||
| if echo "$OBJ"|grep "_$" >/dev/null | |||||
| then | |||||
| O1=$(echo "$OBJ"|sed -e 's/_$//' ) | |||||
| if grep -w "$O1" exports/gensymbol >/dev/null | |||||
| then | |||||
| true | |||||
| else | |||||
| echo "$O1" | |||||
| fi | |||||
| fi | |||||
| if echo "$OBJ"|grep "^cblas" >/dev/null | |||||
| then | |||||
| if grep -w "$OBJ" exports/gensymbol >/dev/null | |||||
| then | |||||
| true | |||||
| else | |||||
| echo "$OBJ" | |||||
| fi | |||||
| fi | |||||
| if echo "$OBJ"|grep "^LAPACKE" >/dev/null | |||||
| then | |||||
| if grep -w "$OBJ" exports/gensymbol >/dev/null | |||||
| then | |||||
| true | |||||
| else | |||||
| echo "$OBJ" | |||||
| fi | |||||
| fi | |||||
| if echo "$OBJ"|grep "^lapack" >/dev/null | |||||
| then | |||||
| if grep -w "$OBJ" exports/gensymbol >/dev/null | |||||
| then | |||||
| true | |||||
| else | |||||
| echo "$OBJ" | |||||
| fi | |||||
| fi | |||||
| done | |||||
| @@ -1,11 +1,21 @@ | |||||
| #!/usr/bin/perl | #!/usr/bin/perl | ||||
| # Changelog | |||||
| # 2017/07/01 Saar | |||||
| # removed zsymv and csymv from @blasobs, because these functions | |||||
| # are now in lapack-3.7.0 | |||||
| # added blas_thread_shutdown | |||||
| # added cblas_cgemm3m and cblas_zgemm3m | |||||
| # added somatcopy, simatcopy ... | |||||
| # added new functions from lapack-3.7.0 | |||||
| # added LAPACKE deprecated objs from lapack-3.7.0 | |||||
| # | |||||
| @blasobjs = ( | @blasobjs = ( | ||||
| caxpy,ccopy,cdotc,cdotu,cgbmv,cgemm,cgemv,cgerc,cgeru, | caxpy,ccopy,cdotc,cdotu,cgbmv,cgemm,cgemv,cgerc,cgeru, | ||||
| chbmv,chemm,chemv,cher2,cher2k,cher,cherk, | chbmv,chemm,chemv,cher2,cher2k,cher,cherk, | ||||
| chpmv,chpr2,chpr,crotg,cscal,csrot,csscal,cswap, | chpmv,chpr2,chpr,crotg,cscal,csrot,csscal,cswap, | ||||
| csymm,csyr2k,csyrk,ctbmv,ctbsv,ctpmv,ctpsv,ctrmm,ctrmv,ctrsm, | csymm,csyr2k,csyrk,ctbmv,ctbsv,ctpmv,ctpsv,ctrmm,ctrmv,ctrsm, | ||||
| ctrsv, csymv, | |||||
| ctrsv, | |||||
| damax,damin,dasum,daxpy,dcabs1,dcopy,ddot,dgbmv,dgemm, | damax,damin,dasum,daxpy,dcabs1,dcopy,ddot,dgbmv,dgemm, | ||||
| dgemv,dger,dmax,dmin,dnrm2,drot,drotg,drotm,drotmg,dsbmv, | dgemv,dger,dmax,dmin,dnrm2,drot,drotg,drotm,drotmg,dsbmv, | ||||
| dscal,dsdot,dspmv,dspr2, | dscal,dsdot,dspmv,dspr2, | ||||
| @@ -21,10 +31,18 @@ | |||||
| zdscal,zgbmv,zgemm,zgemv,zgerc,zgeru, | zdscal,zgbmv,zgemm,zgemv,zgerc,zgeru, | ||||
| zhbmv,zhemm,zhemv,zher2,zher2k,zher,zherk,zhpmv,zhpr2, | zhbmv,zhemm,zhemv,zher2,zher2k,zher,zherk,zhpmv,zhpr2, | ||||
| zhpr,zrotg,zscal,zswap,zsymm,zsyr2k,zsyrk,ztbmv, | zhpr,zrotg,zscal,zswap,zsymm,zsyr2k,zsyrk,ztbmv, | ||||
| ztbsv,ztpmv,ztpsv,ztrmm,ztrmv,ztrsm,ztrsv, zsymv, | |||||
| ztbsv,ztpmv,ztpsv,ztrmm,ztrmv,ztrsm,ztrsv, | |||||
| xerbla, | xerbla, | ||||
| saxpby,daxpby,caxpby,zaxpby, | |||||
| saxpby,daxpby,caxpby,zaxpby, | |||||
| sgeadd,dgeadd,cgeadd,zgeadd, | sgeadd,dgeadd,cgeadd,zgeadd, | ||||
| somatcopy, | |||||
| simatcopy, | |||||
| domatcopy, | |||||
| dimatcopy, | |||||
| comatcopy, | |||||
| cimatcopy, | |||||
| zomatcopy, | |||||
| zimatcopy, | |||||
| ); | ); | ||||
| @cblasobjs = ( | @cblasobjs = ( | ||||
| @@ -80,6 +98,12 @@ | |||||
| cgemm3m,zgemm3m | cgemm3m,zgemm3m | ||||
| ); | ); | ||||
| @cblasgemm3mobjs = ( | |||||
| cblas_cgemm3m,cblas_zgemm3m | |||||
| ); | |||||
| #both underscore and no underscore | #both underscore and no underscore | ||||
| @misc_common_objs = ( | @misc_common_objs = ( | ||||
| @@ -96,6 +120,7 @@ | |||||
| ); | ); | ||||
| @misc_underscore_objs = ( | @misc_underscore_objs = ( | ||||
| blas_thread_shutdown, | |||||
| ); | ); | ||||
| @lapackobjs = ( | @lapackobjs = ( | ||||
| @@ -581,8 +606,208 @@ | |||||
| zsbmv, | zsbmv, | ||||
| zspr2, | zspr2, | ||||
| zsyr2, | zsyr2, | ||||
| zunm22 | |||||
| zunm22, | |||||
| # functions added for lapack-3.7.0 | |||||
| slarfy, | |||||
| slasyf_rk, | |||||
| ssyconvf_rook, | |||||
| ssytf2_rk, | |||||
| ssytrf_rk, | |||||
| ssytrs_3, | |||||
| ssytri_3, | |||||
| ssytri_3x, | |||||
| ssycon_3, | |||||
| ssysv_rk, | |||||
| slasyf_aa, | |||||
| ssysv_aa, | |||||
| ssytrf_aa, | |||||
| ssytrs_aa, | |||||
| strevc3, | |||||
| sgelqt, | |||||
| sgelqt3, | |||||
| sgemlqt, | |||||
| sgetsls, | |||||
| sgeqr, | |||||
| slatsqr, | |||||
| slamtsqr, | |||||
| sgemqr, | |||||
| sgelq, | |||||
| slaswlq, | |||||
| slamswlq, | |||||
| sgemlq, | |||||
| stplqt, | |||||
| stplqt2, | |||||
| stpmlqt, | |||||
| ssytrd_2stage, | |||||
| ssytrd_sy2sb, | |||||
| ssytrd_sb2st, | |||||
| ssb2st_kernels, | |||||
| ssyevd_2stage, | |||||
| ssyev_2stage, | |||||
| ssyevx_2stage, | |||||
| ssyevr_2stage, | |||||
| ssbev_2stage, | |||||
| ssbevx_2stage, | |||||
| ssbevd_2stage, | |||||
| ssygv_2stage, | |||||
| dlarfy, | |||||
| dlasyf_rk, | |||||
| dsyconvf, | |||||
| dsyconvf_rook, | |||||
| dsytf2_rk, | |||||
| dsytrf_rk, | |||||
| dsytrs_3, | |||||
| dsytri_3, | |||||
| dsytri_3x, | |||||
| dsycon_3, | |||||
| dsysv_rk, | |||||
| dlasyf_aa, | |||||
| dsysv_aa, | |||||
| dsytrf_aa, | |||||
| dsytrs_aa, | |||||
| dtrevc3, | |||||
| dgelqt, | |||||
| dgelqt3, | |||||
| dgemlqt, | |||||
| dgetsls, | |||||
| dgeqr, | |||||
| dlatsqr, | |||||
| dlamtsqr, | |||||
| dgemqr, | |||||
| dgelq, | |||||
| dlaswlq, | |||||
| dlamswlq, | |||||
| dgemlq, | |||||
| dtplqt, | |||||
| dtplqt2, | |||||
| dtpmlqt, | |||||
| dsytrd_2stage, | |||||
| dsytrd_sy2sb, | |||||
| dsytrd_sb2st, | |||||
| dsb2st_kernels, | |||||
| dsyevd_2stage, | |||||
| dsyev_2stage, | |||||
| dsyevx_2stage, | |||||
| dsyevr_2stage, | |||||
| dsbev_2stage, | |||||
| dsbevx_2stage, | |||||
| dsbevd_2stage, | |||||
| dsygv_2stage, | |||||
| chetf2_rk, | |||||
| chetrf_rk, | |||||
| chetri_3, | |||||
| chetri_3x, | |||||
| chetrs_3, | |||||
| checon_3, | |||||
| chesv_rk, | |||||
| chesv_aa, | |||||
| chetrf_aa, | |||||
| chetrs_aa, | |||||
| clahef_aa, | |||||
| clahef_rk, | |||||
| clarfy, | |||||
| clasyf_rk, | |||||
| clasyf_aa, | |||||
| csyconvf, | |||||
| csyconvf_rook, | |||||
| csytf2_rk, | |||||
| csytrf_rk, | |||||
| csytrf_aa, | |||||
| csytrs_3, | |||||
| csytrs_aa, | |||||
| csytri_3, | |||||
| csytri_3x, | |||||
| csycon_3, | |||||
| csysv_rk, | |||||
| csysv_aa, | |||||
| ctrevc3, | |||||
| cgelqt, | |||||
| cgelqt3, | |||||
| cgemlqt, | |||||
| cgetsls, | |||||
| cgeqr, | |||||
| clatsqr, | |||||
| clamtsqr, | |||||
| cgemqr, | |||||
| cgelq, | |||||
| claswlq, | |||||
| clamswlq, | |||||
| cgemlq, | |||||
| ctplqt, | |||||
| ctplqt2, | |||||
| ctpmlqt, | |||||
| chetrd_2stage, | |||||
| chetrd_he2hb, | |||||
| chetrd_hb2st, | |||||
| chb2st_kernels, | |||||
| cheevd_2stage, | |||||
| cheev_2stage, | |||||
| cheevx_2stage, | |||||
| cheevr_2stage, | |||||
| chbev_2stage, | |||||
| chbevx_2stage, | |||||
| chbevd_2stage, | |||||
| chegv_2stage, | |||||
| zhetf2_rk, | |||||
| zhetrf_rk, | |||||
| zhetri_3, | |||||
| zhetri_3x, | |||||
| zhetrs_3, | |||||
| zhecon_3, | |||||
| zhesv_rk, | |||||
| zhesv_aa, | |||||
| zhetrf_aa, | |||||
| zhetrs_aa, | |||||
| zlahef_aa, | |||||
| zlahef_rk, | |||||
| zlarfy, | |||||
| zlasyf_rk, | |||||
| zlasyf_aa, | |||||
| zsyconvf, | |||||
| zsyconvf_rook, | |||||
| zsytrs_aa, | |||||
| zsytf2_rk, | |||||
| zsytrf_rk, | |||||
| zsytrf_aa, | |||||
| zsytrs_3, | |||||
| zsytri_3, | |||||
| zsytri_3x, | |||||
| zsycon_3, | |||||
| zsysv_rk, | |||||
| zsysv_aa, | |||||
| ztrevc3, | |||||
| ztplqt, | |||||
| ztplqt2, | |||||
| ztpmlqt, | |||||
| zgelqt, | |||||
| zgelqt3, | |||||
| zgemlqt, | |||||
| zgetsls, | |||||
| zgeqr, | |||||
| zlatsqr, | |||||
| zlamtsqr, | |||||
| zgemqr, | |||||
| zgelq, | |||||
| zlaswlq, | |||||
| zlamswlq, | |||||
| zgemlq, | |||||
| zhetrd_2stage, | |||||
| zhetrd_he2hb, | |||||
| zhetrd_hb2st, | |||||
| zhb2st_kernels, | |||||
| zheevd_2stage, | |||||
| zheev_2stage, | |||||
| zheevx_2stage, | |||||
| zheevr_2stage, | |||||
| zhbev_2stage, | |||||
| zhbevx_2stage, | |||||
| zhbevd_2stage, | |||||
| zhegv_2stage, | |||||
| sladiv1, | |||||
| dladiv1, | |||||
| iparam2stage, | |||||
| ); | ); | ||||
| @lapack_extendedprecision_objs = ( | @lapack_extendedprecision_objs = ( | ||||
| @@ -597,6 +822,36 @@ | |||||
| cgeqpf, clatzm, dgelsx, dlahrd, sgegv, sggsvp, zgegs, zggsvd, ztzrqf, | cgeqpf, clatzm, dgelsx, dlahrd, sgegv, sggsvp, zgegs, zggsvd, ztzrqf, | ||||
| ); | ); | ||||
| @lapacke_deprecated_objs = ( | |||||
| LAPACKE_cggsvp, | |||||
| LAPACKE_cggsvp_work, | |||||
| LAPACKE_dggsvp, | |||||
| LAPACKE_dggsvp_work, | |||||
| LAPACKE_sggsvp, | |||||
| LAPACKE_sggsvp_work, | |||||
| LAPACKE_zggsvp, | |||||
| LAPACKE_zggsvp_work, | |||||
| LAPACKE_cggsvd, | |||||
| LAPACKE_cggsvd_work, | |||||
| LAPACKE_dggsvd, | |||||
| LAPACKE_dggsvd_work, | |||||
| LAPACKE_sggsvd, | |||||
| LAPACKE_sggsvd_work, | |||||
| LAPACKE_zggsvd, | |||||
| LAPACKE_zggsvd_work, | |||||
| LAPACKE_cgeqpf, | |||||
| LAPACKE_cgeqpf_work, | |||||
| LAPACKE_dgeqpf, | |||||
| LAPACKE_dgeqpf_work, | |||||
| LAPACKE_sgeqpf, | |||||
| LAPACKE_sgeqpf_work, | |||||
| LAPACKE_zgeqpf, | |||||
| LAPACKE_zgeqpf_work, | |||||
| ); | |||||
| @lapackeobjs = ( | @lapackeobjs = ( | ||||
| # LAPACK C interface routines. | # LAPACK C interface routines. | ||||
| # | # | ||||
| @@ -2948,7 +3203,186 @@ | |||||
| LAPACKE_zsytrs_rook, | LAPACKE_zsytrs_rook, | ||||
| LAPACKE_zsytrs_rook_work, | LAPACKE_zsytrs_rook_work, | ||||
| LAPACKE_zuncsd2by1, | LAPACKE_zuncsd2by1, | ||||
| LAPACKE_zuncsd2by1_work | |||||
| LAPACKE_zuncsd2by1_work, | |||||
| ## new function from lapack-3.7.0 | |||||
| LAPACKE_cgemqr, | |||||
| LAPACKE_cgemqr_work, | |||||
| LAPACKE_cgetsls, | |||||
| LAPACKE_cgetsls_work, | |||||
| LAPACKE_chbev_2stage, | |||||
| LAPACKE_chbev_2stage_work, | |||||
| LAPACKE_chbevd_2stage, | |||||
| LAPACKE_chbevd_2stage_work, | |||||
| LAPACKE_chbevx_2stage, | |||||
| LAPACKE_chbevx_2stage_work, | |||||
| LAPACKE_checon_3, | |||||
| LAPACKE_checon_3_work, | |||||
| LAPACKE_cheev_2stage, | |||||
| LAPACKE_cheev_2stage_work, | |||||
| LAPACKE_cheevd_2stage, | |||||
| LAPACKE_cheevd_2stage_work, | |||||
| LAPACKE_cheevr_2stage, | |||||
| LAPACKE_cheevr_2stage_work, | |||||
| LAPACKE_cheevx_2stage, | |||||
| LAPACKE_cheevx_2stage_work, | |||||
| LAPACKE_chegv_2stage, | |||||
| LAPACKE_chegv_2stage_work, | |||||
| LAPACKE_chesv_aa, | |||||
| LAPACKE_chesv_aa_work, | |||||
| LAPACKE_chesv_rk, | |||||
| LAPACKE_chesv_rk_work, | |||||
| LAPACKE_chetrf_aa, | |||||
| LAPACKE_chetrf_aa_work, | |||||
| LAPACKE_chetrf_rk, | |||||
| LAPACKE_chetrf_rk_work, | |||||
| LAPACKE_chetri_3, | |||||
| LAPACKE_chetri_3_work, | |||||
| LAPACKE_chetrs_aa, | |||||
| LAPACKE_chetrs_aa_work, | |||||
| LAPACKE_chetrs_3, | |||||
| LAPACKE_chetrs_3_work, | |||||
| LAPACKE_csycon_3, | |||||
| LAPACKE_csycon_3_work, | |||||
| LAPACKE_csysv_aa, | |||||
| LAPACKE_csysv_aa_work, | |||||
| LAPACKE_csysv_rk, | |||||
| LAPACKE_csysv_rk_work, | |||||
| LAPACKE_csytrf_aa, | |||||
| LAPACKE_csytrf_aa_work, | |||||
| LAPACKE_csytrf_rk, | |||||
| LAPACKE_csytrf_rk_work, | |||||
| LAPACKE_csytri_3, | |||||
| LAPACKE_csytri_3_work, | |||||
| LAPACKE_csytrs_aa, | |||||
| LAPACKE_csytrs_aa_work, | |||||
| LAPACKE_csytrs_3, | |||||
| LAPACKE_csytrs_3_work, | |||||
| LAPACKE_dgemqr, | |||||
| LAPACKE_dgemqr_work, | |||||
| LAPACKE_dgetsls, | |||||
| LAPACKE_dgetsls_work, | |||||
| LAPACKE_dsbev_2stage, | |||||
| LAPACKE_dsbev_2stage_work, | |||||
| LAPACKE_dsbevd_2stage, | |||||
| LAPACKE_dsbevd_2stage_work, | |||||
| LAPACKE_dsbevx_2stage, | |||||
| LAPACKE_dsbevx_2stage_work, | |||||
| LAPACKE_dsycon_3, | |||||
| LAPACKE_dsycon_3_work, | |||||
| LAPACKE_dsyev_2stage, | |||||
| LAPACKE_dsyev_2stage_work, | |||||
| LAPACKE_dsyevd_2stage, | |||||
| LAPACKE_dsyevd_2stage_work, | |||||
| LAPACKE_dsyevr_2stage, | |||||
| LAPACKE_dsyevr_2stage_work, | |||||
| LAPACKE_dsyevx_2stage, | |||||
| LAPACKE_dsyevx_2stage_work, | |||||
| LAPACKE_dsygv_2stage, | |||||
| LAPACKE_dsygv_2stage_work, | |||||
| LAPACKE_dsysv_aa, | |||||
| LAPACKE_dsysv_aa_work, | |||||
| LAPACKE_dsysv_rk, | |||||
| LAPACKE_dsysv_rk_work, | |||||
| LAPACKE_dsytrf_aa, | |||||
| LAPACKE_dsytrf_aa_work, | |||||
| LAPACKE_dsytrf_rk, | |||||
| LAPACKE_dsytrf_rk_work, | |||||
| LAPACKE_dsytri_3, | |||||
| LAPACKE_dsytri_3_work, | |||||
| LAPACKE_dsytrs_aa, | |||||
| LAPACKE_dsytrs_aa_work, | |||||
| LAPACKE_dsytrs_3, | |||||
| LAPACKE_dsytrs_3_work, | |||||
| LAPACKE_sgemqr, | |||||
| LAPACKE_sgemqr_work, | |||||
| LAPACKE_sgetsls, | |||||
| LAPACKE_sgetsls_work, | |||||
| LAPACKE_ssbev_2stage, | |||||
| LAPACKE_ssbev_2stage_work, | |||||
| LAPACKE_ssbevd_2stage, | |||||
| LAPACKE_ssbevd_2stage_work, | |||||
| LAPACKE_ssbevx_2stage, | |||||
| LAPACKE_ssbevx_2stage_work, | |||||
| LAPACKE_ssycon_3, | |||||
| LAPACKE_ssycon_3_work, | |||||
| LAPACKE_ssyev_2stage, | |||||
| LAPACKE_ssyev_2stage_work, | |||||
| LAPACKE_ssyevd_2stage, | |||||
| LAPACKE_ssyevd_2stage_work, | |||||
| LAPACKE_ssyevr_2stage, | |||||
| LAPACKE_ssyevr_2stage_work, | |||||
| LAPACKE_ssyevx_2stage, | |||||
| LAPACKE_ssyevx_2stage_work, | |||||
| LAPACKE_ssygv_2stage, | |||||
| LAPACKE_ssygv_2stage_work, | |||||
| LAPACKE_ssysv_aa, | |||||
| LAPACKE_ssysv_aa_work, | |||||
| LAPACKE_ssysv_rk, | |||||
| LAPACKE_ssysv_rk_work, | |||||
| LAPACKE_ssytrf_aa, | |||||
| LAPACKE_ssytrf_aa_work, | |||||
| LAPACKE_ssytrf_rk, | |||||
| LAPACKE_ssytrf_rk_work, | |||||
| LAPACKE_ssytri_3, | |||||
| LAPACKE_ssytri_3_work, | |||||
| LAPACKE_ssytrs_aa, | |||||
| LAPACKE_ssytrs_aa_work, | |||||
| LAPACKE_ssytrs_3, | |||||
| LAPACKE_ssytrs_3_work, | |||||
| LAPACKE_zgemqr, | |||||
| LAPACKE_zgemqr_work, | |||||
| LAPACKE_zgetsls, | |||||
| LAPACKE_zgetsls_work, | |||||
| LAPACKE_zhbev_2stage, | |||||
| LAPACKE_zhbev_2stage_work, | |||||
| LAPACKE_zhbevd_2stage, | |||||
| LAPACKE_zhbevd_2stage_work, | |||||
| LAPACKE_zhbevx_2stage, | |||||
| LAPACKE_zhbevx_2stage_work, | |||||
| LAPACKE_zhecon_3, | |||||
| LAPACKE_zhecon_3_work, | |||||
| LAPACKE_zheev_2stage, | |||||
| LAPACKE_zheev_2stage_work, | |||||
| LAPACKE_zheevd_2stage, | |||||
| LAPACKE_zheevd_2stage_work, | |||||
| LAPACKE_zheevr_2stage, | |||||
| LAPACKE_zheevr_2stage_work, | |||||
| LAPACKE_zheevx_2stage, | |||||
| LAPACKE_zheevx_2stage_work, | |||||
| LAPACKE_zhegv_2stage, | |||||
| LAPACKE_zhegv_2stage_work, | |||||
| LAPACKE_zhesv_aa, | |||||
| LAPACKE_zhesv_aa_work, | |||||
| LAPACKE_zhesv_rk, | |||||
| LAPACKE_zhesv_rk_work, | |||||
| LAPACKE_zhetrf_aa, | |||||
| LAPACKE_zhetrf_aa_work, | |||||
| LAPACKE_zhetrf_rk, | |||||
| LAPACKE_zhetrf_rk_work, | |||||
| LAPACKE_zhetri_3, | |||||
| LAPACKE_zhetri_3_work, | |||||
| LAPACKE_zhetrs_aa, | |||||
| LAPACKE_zhetrs_aa_work, | |||||
| LAPACKE_zhetrs_3, | |||||
| LAPACKE_zhetrs_3_work, | |||||
| LAPACKE_zsycon_3, | |||||
| LAPACKE_zsycon_3_work, | |||||
| LAPACKE_zsysv_aa, | |||||
| LAPACKE_zsysv_aa_work, | |||||
| LAPACKE_zsysv_rk, | |||||
| LAPACKE_zsysv_rk_work, | |||||
| LAPACKE_zsytrf_aa, | |||||
| LAPACKE_zsytrf_aa_work, | |||||
| LAPACKE_zsytrf_rk, | |||||
| LAPACKE_zsytrf_rk_work, | |||||
| LAPACKE_zsytri_3, | |||||
| LAPACKE_zsytri_3_work, | |||||
| LAPACKE_zsytrs_aa, | |||||
| LAPACKE_zsytrs_aa_work, | |||||
| LAPACKE_zsytrs_3, | |||||
| LAPACKE_zsytrs_3_work, | |||||
| ); | ); | ||||
| #These function may need 2 underscores. | #These function may need 2 underscores. | ||||
| @@ -3026,7 +3460,12 @@ if ($ARGV[6] == 1) { | |||||
| #NO_LAPACKE=1 | #NO_LAPACKE=1 | ||||
| @no_underscore_objs = (@no_underscore_objs); | @no_underscore_objs = (@no_underscore_objs); | ||||
| } else { | } else { | ||||
| @no_underscore_objs = (@no_underscore_objs, @lapackeobjs); | |||||
| if ($ARGV[11] == 1){ | |||||
| #BUILD_LAPACK_DEPRECATED=1 | |||||
| @no_underscore_objs = (@no_underscore_objs, @lapackeobjs, @lapacke_deprecated_objs); | |||||
| }else{ | |||||
| @no_underscore_objs = (@no_underscore_objs, @lapackeobjs); | |||||
| } | |||||
| } | } | ||||
| @hplobjs = (daxpy, dcopy, dscal, idamax, dgemv, dtrsv, dger, dgemm, dtrsm); | @hplobjs = (daxpy, dcopy, dscal, idamax, dgemv, dtrsv, dger, dgemm, dtrsm); | ||||
| @@ -84,10 +84,10 @@ CBLAS1OBJS = \ | |||||
| CBLAS2OBJS = \ | CBLAS2OBJS = \ | ||||
| cgemv.$(SUFFIX) cgeru.$(SUFFIX) cgerc.$(SUFFIX) \ | cgemv.$(SUFFIX) cgeru.$(SUFFIX) cgerc.$(SUFFIX) \ | ||||
| ctrsv.$(SUFFIX) ctrmv.$(SUFFIX) csymv.$(SUFFIX) \ | |||||
| 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) \ | ctbsv.$(SUFFIX) ctbmv.$(SUFFIX) \ | ||||
| ctpsv.$(SUFFIX) ctpmv.$(SUFFIX) \ | ctpsv.$(SUFFIX) ctpmv.$(SUFFIX) \ | ||||
| chemv.$(SUFFIX) chbmv.$(SUFFIX) \ | chemv.$(SUFFIX) chbmv.$(SUFFIX) \ | ||||
| @@ -113,10 +113,10 @@ ZBLAS1OBJS = \ | |||||
| ZBLAS2OBJS = \ | ZBLAS2OBJS = \ | ||||
| zgemv.$(SUFFIX) zgeru.$(SUFFIX) zgerc.$(SUFFIX) \ | zgemv.$(SUFFIX) zgeru.$(SUFFIX) zgerc.$(SUFFIX) \ | ||||
| ztrsv.$(SUFFIX) ztrmv.$(SUFFIX) zsymv.$(SUFFIX) \ | |||||
| 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) \ | ztbsv.$(SUFFIX) ztbmv.$(SUFFIX) \ | ||||
| ztpsv.$(SUFFIX) ztpmv.$(SUFFIX) \ | ztpsv.$(SUFFIX) ztpmv.$(SUFFIX) \ | ||||
| zhemv.$(SUFFIX) zhbmv.$(SUFFIX) \ | zhemv.$(SUFFIX) zhbmv.$(SUFFIX) \ | ||||
| @@ -1,19 +0,0 @@ | |||||
| ======================================================================================== | |||||
| 2014/05/07 Saar | |||||
| Platform: BULLDOZER single thread | |||||
| --> LAPACK TESTING SUMMARY <-- | |||||
| Processing LAPACK Testing output found in the TESTING direcory | |||||
| SUMMARY nb test run numerical error other error | |||||
| ================ =========== ================= ================ | |||||
| REAL 1079349 0 (0.000%) 0 (0.000%) | |||||
| DOUBLE PRECISION 1080161 0 (0.000%) 0 (0.000%) | |||||
| COMPLEX 556022 0 (0.000%) 0 (0.000%) | |||||
| COMPLEX16 556834 0 (0.000%) 0 (0.000%) | |||||
| --> ALL PRECISIONS 3272366 0 (0.000%) 0 (0.000%) | |||||
| ======================================================================================== | |||||
| @@ -1,8 +1,8 @@ | |||||
| add_subdirectory(SRC) | add_subdirectory(SRC) | ||||
| if(BUILD_TESTING) | if(BUILD_TESTING) | ||||
| add_subdirectory(TESTING) | add_subdirectory(TESTING) | ||||
| endif(BUILD_TESTING) | |||||
| 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 | install(FILES | ||||
| ${CMAKE_CURRENT_BINARY_DIR}/blas.pc | ${CMAKE_CURRENT_BINARY_DIR}/blas.pc | ||||
| DESTINATION ${PKG_CONFIG_DIR} | DESTINATION ${PKG_CONFIG_DIR} | ||||
| @@ -57,19 +57,19 @@ | |||||
| # Comment out the next 6 definitions if you already have | # Comment out the next 6 definitions if you already have | ||||
| # the Level 1 BLAS. | # the Level 1 BLAS. | ||||
| #--------------------------------------------------------- | #--------------------------------------------------------- | ||||
| set(SBLAS1 isamax.f sasum.f saxpy.f scopy.f sdot.f snrm2.f | |||||
| set(SBLAS1 isamax.f sasum.f saxpy.f scopy.f sdot.f snrm2.f | |||||
| srot.f srotg.f sscal.f sswap.f sdsdot.f srotmg.f srotm.f) | srot.f srotg.f sscal.f sswap.f sdsdot.f srotmg.f srotm.f) | ||||
| set(CBLAS1 scabs1.f scasum.f scnrm2.f icamax.f caxpy.f ccopy.f | |||||
| set(CBLAS1 scabs1.f scasum.f scnrm2.f icamax.f caxpy.f ccopy.f | |||||
| cdotc.f cdotu.f csscal.f crotg.f cscal.f cswap.f csrot.f) | cdotc.f cdotu.f csscal.f crotg.f cscal.f cswap.f csrot.f) | ||||
| set(DBLAS1 idamax.f dasum.f daxpy.f dcopy.f ddot.f dnrm2.f | |||||
| set(DBLAS1 idamax.f dasum.f daxpy.f dcopy.f ddot.f dnrm2.f | |||||
| drot.f drotg.f dscal.f dsdot.f dswap.f drotmg.f drotm.f) | drot.f drotg.f dscal.f dsdot.f dswap.f drotmg.f drotm.f) | ||||
| set(ZBLAS1 dcabs1.f dzasum.f dznrm2.f izamax.f zaxpy.f zcopy.f | |||||
| set(ZBLAS1 dcabs1.f dzasum.f dznrm2.f izamax.f zaxpy.f zcopy.f | |||||
| zdotc.f zdotu.f zdscal.f zrotg.f zscal.f zswap.f zdrot.f) | zdotc.f zdotu.f zdscal.f zrotg.f zscal.f zswap.f zdrot.f) | ||||
| set(CB1AUX isamax.f sasum.f saxpy.f scopy.f snrm2.f sscal.f) | |||||
| set(CB1AUX isamax.f sasum.f saxpy.f scopy.f snrm2.f sscal.f) | |||||
| set(ZB1AUX idamax.f dasum.f daxpy.f dcopy.f dnrm2.f dscal.f) | set(ZB1AUX idamax.f dasum.f daxpy.f dcopy.f dnrm2.f dscal.f) | ||||
| @@ -78,64 +78,64 @@ set(ZB1AUX idamax.f dasum.f daxpy.f dcopy.f dnrm2.f dscal.f) | |||||
| # Level 2 and Level 3 BLAS. Comment it out only if you already have | # Level 2 and Level 3 BLAS. Comment it out only if you already have | ||||
| # both the Level 2 and 3 BLAS. | # both the Level 2 and 3 BLAS. | ||||
| #--------------------------------------------------------------------- | #--------------------------------------------------------------------- | ||||
| set(ALLBLAS lsame.f xerbla.f xerbla_array.f) | |||||
| set(ALLBLAS lsame.f xerbla.f xerbla_array.f) | |||||
| #--------------------------------------------------------- | #--------------------------------------------------------- | ||||
| # Comment out the next 4 definitions if you already have | # Comment out the next 4 definitions if you already have | ||||
| # the Level 2 BLAS. | # the Level 2 BLAS. | ||||
| #--------------------------------------------------------- | #--------------------------------------------------------- | ||||
| set(SBLAS2 sgemv.f sgbmv.f ssymv.f ssbmv.f sspmv.f | |||||
| 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) | 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) | 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) | 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) | zgerc.f zgeru.f zher.f zhpr.f zher2.f zhpr2.f) | ||||
| #--------------------------------------------------------- | #--------------------------------------------------------- | ||||
| # Comment out the next 4 definitions if you already have | # Comment out the next 4 definitions if you already have | ||||
| # the Level 3 BLAS. | # the Level 3 BLAS. | ||||
| #--------------------------------------------------------- | #--------------------------------------------------------- | ||||
| set(SBLAS3 sgemm.f ssymm.f ssyrk.f ssyr2k.f strmm.f strsm.f ) | |||||
| set(SBLAS3 sgemm.f ssymm.f ssyrk.f ssyr2k.f strmm.f strsm.f) | |||||
| set(CBLAS3 cgemm.f csymm.f csyrk.f csyr2k.f ctrmm.f ctrsm.f | |||||
| set(CBLAS3 cgemm.f csymm.f csyrk.f csyr2k.f ctrmm.f ctrsm.f | |||||
| chemm.f cherk.f cher2k.f) | chemm.f cherk.f cher2k.f) | ||||
| set(DBLAS3 dgemm.f dsymm.f dsyrk.f dsyr2k.f dtrmm.f dtrsm.f) | set(DBLAS3 dgemm.f dsymm.f dsyrk.f dsyr2k.f dtrmm.f dtrsm.f) | ||||
| set(ZBLAS3 zgemm.f zsymm.f zsyrk.f zsyr2k.f ztrmm.f ztrsm.f | |||||
| set(ZBLAS3 zgemm.f zsymm.f zsyrk.f zsyr2k.f ztrmm.f ztrsm.f | |||||
| zhemm.f zherk.f zher2k.f) | zhemm.f zherk.f zher2k.f) | ||||
| # default build all of it | # default build all of it | ||||
| set(ALLOBJ ${SBLAS1} ${SBLAS2} ${SBLAS3} ${DBLAS1} ${DBLAS2} ${DBLAS3} | |||||
| ${CBLAS1} ${CBLAS2} ${CBLAS3} ${ZBLAS1} | |||||
| set(ALLOBJ ${SBLAS1} ${SBLAS2} ${SBLAS3} ${DBLAS1} ${DBLAS2} ${DBLAS3} | |||||
| ${CBLAS1} ${CBLAS2} ${CBLAS3} ${ZBLAS1} | |||||
| ${ZBLAS2} ${ZBLAS3} ${ALLBLAS}) | ${ZBLAS2} ${ZBLAS3} ${ALLBLAS}) | ||||
| if(BLAS_SINGLE) | if(BLAS_SINGLE) | ||||
| set(ALLOBJ ${SBLAS1} ${ALLBLAS} | |||||
| set(ALLOBJ ${SBLAS1} ${ALLBLAS} | |||||
| ${SBLAS2} ${SBLAS3}) | ${SBLAS2} ${SBLAS3}) | ||||
| endif() | endif() | ||||
| if(BLAS_DOUBLE) | if(BLAS_DOUBLE) | ||||
| set(ALLOBJ ${DBLAS1} ${ALLBLAS} | |||||
| set(ALLOBJ ${DBLAS1} ${ALLBLAS} | |||||
| ${DBLAS2} ${DBLAS3}) | ${DBLAS2} ${DBLAS3}) | ||||
| endif() | endif() | ||||
| if(BLAS_COMPLEX) | if(BLAS_COMPLEX) | ||||
| set(ALLOBJ ${BLASLIB} ${CBLAS1} ${CB1AUX} | |||||
| set(ALLOBJ ${BLASLIB} ${CBLAS1} ${CB1AUX} | |||||
| ${ALLBLAS} ${CBLAS2}) | ${ALLBLAS} ${CBLAS2}) | ||||
| endif() | endif() | ||||
| if(BLAS_COMPLEX16) | if(BLAS_COMPLEX16) | ||||
| set(ALLOBJ ${BLASLIB} ${ZBLAS1} ${ZB1AUX} | |||||
| set(ALLOBJ ${BLASLIB} ${ZBLAS1} ${ZB1AUX} | |||||
| ${ALLBLAS} ${ZBLAS2} ${ZBLAS3}) | ${ALLBLAS} ${ZBLAS2} ${ZBLAS3}) | ||||
| endif() | endif() | ||||
| add_library(blas ${ALLOBJ}) | add_library(blas ${ALLOBJ}) | ||||
| #if(UNIX) | #if(UNIX) | ||||
| # target_link_libraries(blas m) | # target_link_libraries(blas m) | ||||
| @@ -56,7 +56,7 @@ include ../../make.inc | |||||
| ####################################################################### | ####################################################################### | ||||
| all: $(BLASLIB) | all: $(BLASLIB) | ||||
| #--------------------------------------------------------- | #--------------------------------------------------------- | ||||
| # Comment out the next 6 definitions if you already have | # Comment out the next 6 definitions if you already have | ||||
| # the Level 1 BLAS. | # the Level 1 BLAS. | ||||
| @@ -88,8 +88,8 @@ $(ZB1AUX): $(FRC) | |||||
| # Level 2 and Level 3 BLAS. Comment it out only if you already have | # Level 2 and Level 3 BLAS. Comment it out only if you already have | ||||
| # both the Level 2 and 3 BLAS. | # both the Level 2 and 3 BLAS. | ||||
| #--------------------------------------------------------------------- | #--------------------------------------------------------------------- | ||||
| ALLBLAS = lsame.o xerbla.o xerbla_array.o | |||||
| $(ALLBLAS) : $(FRC) | |||||
| ALLBLAS = lsame.o xerbla.o xerbla_array.o | |||||
| $(ALLBLAS): $(FRC) | |||||
| #--------------------------------------------------------- | #--------------------------------------------------------- | ||||
| # Comment out the next 4 definitions if you already have | # Comment out the next 4 definitions if you already have | ||||
| @@ -119,7 +119,7 @@ $(ZBLAS2): $(FRC) | |||||
| # Comment out the next 4 definitions if you already have | # Comment out the next 4 definitions if you already have | ||||
| # the Level 3 BLAS. | # the Level 3 BLAS. | ||||
| #--------------------------------------------------------- | #--------------------------------------------------------- | ||||
| SBLAS3 = sgemm.o ssymm.o ssyrk.o ssyr2k.o strmm.o strsm.o | |||||
| SBLAS3 = sgemm.o ssymm.o ssyrk.o ssyr2k.o strmm.o strsm.o | |||||
| $(SBLAS3): $(FRC) | $(SBLAS3): $(FRC) | ||||
| CBLAS3 = cgemm.o csymm.o csyrk.o csyr2k.o ctrmm.o ctrsm.o \ | CBLAS3 = cgemm.o csymm.o csyrk.o csyr2k.o ctrmm.o ctrsm.o \ | ||||
| @@ -133,7 +133,7 @@ ZBLAS3 = zgemm.o zsymm.o zsyrk.o zsyr2k.o ztrmm.o ztrsm.o \ | |||||
| zhemm.o zherk.o zher2k.o | zhemm.o zherk.o zher2k.o | ||||
| $(ZBLAS3): $(FRC) | $(ZBLAS3): $(FRC) | ||||
| ALLOBJ=$(SBLAS1) $(SBLAS2) $(SBLAS3) $(DBLAS1) $(DBLAS2) $(DBLAS3) \ | |||||
| ALLOBJ = $(SBLAS1) $(SBLAS2) $(SBLAS3) $(DBLAS1) $(DBLAS2) $(DBLAS3) \ | |||||
| $(CBLAS1) $(CBLAS2) $(CBLAS3) $(ZBLAS1) \ | $(CBLAS1) $(CBLAS2) $(CBLAS3) $(ZBLAS1) \ | ||||
| $(ZBLAS2) $(ZBLAS3) $(ALLBLAS) | $(ZBLAS2) $(ZBLAS3) $(ALLBLAS) | ||||
| @@ -167,5 +167,5 @@ FRC: | |||||
| clean: | clean: | ||||
| rm -f *.o | rm -f *.o | ||||
| .f.o: | |||||
| $(FORTRAN) $(OPTS) -c $< -o $@ | |||||
| .f.o: | |||||
| $(FORTRAN) $(OPTS) -c -o $@ $< | |||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== 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: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CAXPY(N,CA,CX,INCX,CY,INCY) | * SUBROUTINE CAXPY(N,CA,CX,INCX,CY,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX CA | * COMPLEX CA | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX CX(*),CY(*) | * COMPLEX CX(*),CY(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -30,12 +30,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level1 | ||||
| * | * | ||||
| @@ -51,10 +51,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CAXPY(N,CA,CX,INCX,CY,INCY) | SUBROUTINE CAXPY(N,CA,CX,INCX,CY,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX CA | COMPLEX CA | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CCOPY(N,CX,INCX,CY,INCY) | * SUBROUTINE CCOPY(N,CX,INCX,CY,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX CX(*),CY(*) | * COMPLEX CX(*),CY(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -29,12 +29,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level1 | ||||
| * | * | ||||
| @@ -50,10 +50,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CCOPY(N,CX,INCX,CY,INCY) | SUBROUTINE CCOPY(N,CX,INCX,CY,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,INCY,N | INTEGER INCX,INCY,N | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY) | * COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX CX(*),CY(*) | * COMPLEX CX(*),CY(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -31,12 +31,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level1 | ||||
| * | * | ||||
| @@ -52,10 +52,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY) | COMPLEX FUNCTION CDOTC(N,CX,INCX,CY,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,INCY,N | INTEGER INCX,INCY,N | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY) | * COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX CX(*),CY(*) | * COMPLEX CX(*),CY(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -31,12 +31,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level1 | ||||
| * | * | ||||
| @@ -52,10 +52,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY) | COMPLEX FUNCTION CDOTU(N,CX,INCX,CY,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,INCY,N | INTEGER INCX,INCY,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | * SUBROUTINE CGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX ALPHA,BETA | * COMPLEX ALPHA,BETA | ||||
| * INTEGER INCX,INCY,KL,KU,LDA,M,N | * INTEGER INCX,INCY,KL,KU,LDA,M,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),X(*),Y(*) | * COMPLEX A(LDA,*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -160,12 +160,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level2 | ||||
| * | * | ||||
| @@ -187,10 +187,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | SUBROUTINE CGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX ALPHA,BETA | COMPLEX ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | * SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX ALPHA,BETA | * COMPLEX ALPHA,BETA | ||||
| * INTEGER K,LDA,LDB,LDC,M,N | * INTEGER K,LDA,LDB,LDC,M,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) | * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -161,12 +161,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level3 | ||||
| * | * | ||||
| @@ -187,10 +187,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | SUBROUTINE CGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | ||||
| * | * | ||||
| * -- Reference BLAS level3 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level3 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX ALPHA,BETA | COMPLEX ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | * SUBROUTINE CGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX ALPHA,BETA | * COMPLEX ALPHA,BETA | ||||
| * INTEGER INCX,INCY,LDA,M,N | * INTEGER INCX,INCY,LDA,M,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),X(*),Y(*) | * COMPLEX A(LDA,*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -131,12 +131,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level2 | ||||
| * | * | ||||
| @@ -158,10 +158,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | SUBROUTINE CGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX ALPHA,BETA | COMPLEX ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CGERC(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | * SUBROUTINE CGERC(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX ALPHA | * COMPLEX ALPHA | ||||
| * INTEGER INCX,INCY,LDA,M,N | * INTEGER INCX,INCY,LDA,M,N | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),X(*),Y(*) | * COMPLEX A(LDA,*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -104,12 +104,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level2 | ||||
| * | * | ||||
| @@ -130,10 +130,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CGERC(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | SUBROUTINE CGERC(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX ALPHA | COMPLEX ALPHA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | * SUBROUTINE CGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX ALPHA | * COMPLEX ALPHA | ||||
| * INTEGER INCX,INCY,LDA,M,N | * INTEGER INCX,INCY,LDA,M,N | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),X(*),Y(*) | * COMPLEX A(LDA,*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -104,12 +104,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level2 | ||||
| * | * | ||||
| @@ -130,10 +130,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | SUBROUTINE CGERU(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX ALPHA | COMPLEX ALPHA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | * SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX ALPHA,BETA | * COMPLEX ALPHA,BETA | ||||
| * INTEGER INCX,INCY,K,LDA,N | * INTEGER INCX,INCY,K,LDA,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),X(*),Y(*) | * COMPLEX A(LDA,*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -160,12 +160,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level2 | ||||
| * | * | ||||
| @@ -187,10 +187,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | SUBROUTINE CHBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX ALPHA,BETA | COMPLEX ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | * SUBROUTINE CHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX ALPHA,BETA | * COMPLEX ALPHA,BETA | ||||
| * INTEGER LDA,LDB,LDC,M,N | * INTEGER LDA,LDB,LDC,M,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) | * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -165,12 +165,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level3 | ||||
| * | * | ||||
| @@ -191,10 +191,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | SUBROUTINE CHEMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | ||||
| * | * | ||||
| * -- Reference BLAS level3 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level3 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX ALPHA,BETA | COMPLEX ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CHEMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | * SUBROUTINE CHEMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX ALPHA,BETA | * COMPLEX ALPHA,BETA | ||||
| * INTEGER INCX,INCY,LDA,N | * INTEGER INCX,INCY,LDA,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),X(*),Y(*) | * COMPLEX A(LDA,*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -127,12 +127,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level2 | ||||
| * | * | ||||
| @@ -154,10 +154,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CHEMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | SUBROUTINE CHEMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX ALPHA,BETA | COMPLEX ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CHER(UPLO,N,ALPHA,X,INCX,A,LDA) | * SUBROUTINE CHER(UPLO,N,ALPHA,X,INCX,A,LDA) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * REAL ALPHA | * REAL ALPHA | ||||
| * INTEGER INCX,LDA,N | * INTEGER INCX,LDA,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),X(*) | * COMPLEX A(LDA,*),X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -109,12 +109,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level2 | ||||
| * | * | ||||
| @@ -135,10 +135,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CHER(UPLO,N,ALPHA,X,INCX,A,LDA) | SUBROUTINE CHER(UPLO,N,ALPHA,X,INCX,A,LDA) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| REAL ALPHA | REAL ALPHA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CHER2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) | * SUBROUTINE CHER2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX ALPHA | * COMPLEX ALPHA | ||||
| * INTEGER INCX,INCY,LDA,N | * INTEGER INCX,INCY,LDA,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),X(*),Y(*) | * COMPLEX A(LDA,*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -124,12 +124,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level2 | ||||
| * | * | ||||
| @@ -150,10 +150,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CHER2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) | SUBROUTINE CHER2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX ALPHA | COMPLEX ALPHA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | * SUBROUTINE CHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX ALPHA | * COMPLEX ALPHA | ||||
| * REAL BETA | * REAL BETA | ||||
| @@ -19,7 +19,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) | * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -168,12 +168,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level3 | ||||
| * | * | ||||
| @@ -197,10 +197,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | SUBROUTINE CHER2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | ||||
| * | * | ||||
| * -- Reference BLAS level3 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level3 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX ALPHA | COMPLEX ALPHA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) | * SUBROUTINE CHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * REAL ALPHA,BETA | * REAL ALPHA,BETA | ||||
| * INTEGER K,LDA,LDC,N | * INTEGER K,LDA,LDC,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),C(LDC,*) | * COMPLEX A(LDA,*),C(LDC,*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -144,12 +144,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level3 | ||||
| * | * | ||||
| @@ -173,10 +173,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) | SUBROUTINE CHERK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) | ||||
| * | * | ||||
| * -- Reference BLAS level3 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level3 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| REAL ALPHA,BETA | REAL ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) | * SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX ALPHA,BETA | * COMPLEX ALPHA,BETA | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX AP(*),X(*),Y(*) | * COMPLEX AP(*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -122,12 +122,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level2 | ||||
| * | * | ||||
| @@ -149,10 +149,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) | SUBROUTINE CHPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX ALPHA,BETA | COMPLEX ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CHPR(UPLO,N,ALPHA,X,INCX,AP) | * SUBROUTINE CHPR(UPLO,N,ALPHA,X,INCX,AP) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * REAL ALPHA | * REAL ALPHA | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX AP(*),X(*) | * COMPLEX AP(*),X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -104,12 +104,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level2 | ||||
| * | * | ||||
| @@ -130,10 +130,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CHPR(UPLO,N,ALPHA,X,INCX,AP) | SUBROUTINE CHPR(UPLO,N,ALPHA,X,INCX,AP) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| REAL ALPHA | REAL ALPHA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) | * SUBROUTINE CHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX ALPHA | * COMPLEX ALPHA | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX AP(*),X(*),Y(*) | * COMPLEX AP(*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -119,12 +119,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level2 | ||||
| * | * | ||||
| @@ -145,10 +145,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) | SUBROUTINE CHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX ALPHA | COMPLEX ALPHA | ||||
| @@ -2,19 +2,19 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CROTG(CA,CB,C,S) | * SUBROUTINE CROTG(CA,CB,C,S) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX CA,CB,S | * COMPLEX CA,CB,S | ||||
| * REAL C | * REAL C | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -27,22 +27,22 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level1 | ||||
| * | * | ||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CROTG(CA,CB,C,S) | SUBROUTINE CROTG(CA,CB,C,S) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX CA,CB,S | COMPLEX CA,CB,S | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CSCAL(N,CA,CX,INCX) | * SUBROUTINE CSCAL(N,CA,CX,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX CA | * COMPLEX CA | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX CX(*) | * COMPLEX CX(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -30,12 +30,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level1 | ||||
| * | * | ||||
| @@ -52,10 +52,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CSCAL(N,CA,CX,INCX) | SUBROUTINE CSCAL(N,CA,CX,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX CA | COMPLEX CA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CSROT( N, CX, INCX, CY, INCY, C, S ) | * SUBROUTINE CSROT( N, CX, INCX, CY, INCY, C, S ) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX, INCY, N | * INTEGER INCX, INCY, N | ||||
| * REAL C, S | * REAL C, S | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX CX( * ), CY( * ) | * COMPLEX CX( * ), CY( * ) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -86,22 +86,22 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level1 | ||||
| * | * | ||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CSROT( N, CX, INCX, CY, INCY, C, S ) | SUBROUTINE CSROT( N, CX, INCX, CY, INCY, C, S ) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX, INCY, N | INTEGER INCX, INCY, N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CSSCAL(N,SA,CX,INCX) | * SUBROUTINE CSSCAL(N,SA,CX,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * REAL SA | * REAL SA | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX CX(*) | * COMPLEX CX(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -30,12 +30,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level1 | ||||
| * | * | ||||
| @@ -52,10 +52,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CSSCAL(N,SA,CX,INCX) | SUBROUTINE CSSCAL(N,SA,CX,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| REAL SA | REAL SA | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CSWAP(N,CX,INCX,CY,INCY) | * SUBROUTINE CSWAP(N,CX,INCX,CY,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX CX(*),CY(*) | * COMPLEX CX(*),CY(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -29,12 +29,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level1 | ||||
| * | * | ||||
| @@ -50,10 +50,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CSWAP(N,CX,INCX,CY,INCY) | SUBROUTINE CSWAP(N,CX,INCX,CY,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,INCY,N | INTEGER INCX,INCY,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | * SUBROUTINE CSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX ALPHA,BETA | * COMPLEX ALPHA,BETA | ||||
| * INTEGER LDA,LDB,LDC,M,N | * INTEGER LDA,LDB,LDC,M,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) | * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -163,12 +163,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level3 | ||||
| * | * | ||||
| @@ -189,10 +189,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | SUBROUTINE CSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | ||||
| * | * | ||||
| * -- Reference BLAS level3 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level3 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX ALPHA,BETA | COMPLEX ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | * SUBROUTINE CSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX ALPHA,BETA | * COMPLEX ALPHA,BETA | ||||
| * INTEGER K,LDA,LDB,LDC,N | * INTEGER K,LDA,LDB,LDC,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) | * COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -162,12 +162,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level3 | ||||
| * | * | ||||
| @@ -188,10 +188,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | SUBROUTINE CSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | ||||
| * | * | ||||
| * -- Reference BLAS level3 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level3 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX ALPHA,BETA | COMPLEX ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) | * SUBROUTINE CSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX ALPHA,BETA | * COMPLEX ALPHA,BETA | ||||
| * INTEGER K,LDA,LDC,N | * INTEGER K,LDA,LDC,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),C(LDC,*) | * COMPLEX A(LDA,*),C(LDC,*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -141,12 +141,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level3 | ||||
| * | * | ||||
| @@ -167,10 +167,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) | SUBROUTINE CSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) | ||||
| * | * | ||||
| * -- Reference BLAS level3 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level3 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX ALPHA,BETA | COMPLEX ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | * SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,K,LDA,N | * INTEGER INCX,K,LDA,N | ||||
| * CHARACTER DIAG,TRANS,UPLO | * CHARACTER DIAG,TRANS,UPLO | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),X(*) | * COMPLEX A(LDA,*),X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -146,7 +146,7 @@ | |||||
| *> ( 1 + ( n - 1 )*abs( INCX ) ). | *> ( 1 + ( n - 1 )*abs( INCX ) ). | ||||
| *> Before entry, the incremented array X must contain the n | *> Before entry, the incremented array X must contain the n | ||||
| *> element vector x. On exit, X is overwritten with the | *> element vector x. On exit, X is overwritten with the | ||||
| *> tranformed vector x. | |||||
| *> transformed vector x. | |||||
| *> \endverbatim | *> \endverbatim | ||||
| *> | *> | ||||
| *> \param[in] INCX | *> \param[in] INCX | ||||
| @@ -159,12 +159,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level2 | ||||
| * | * | ||||
| @@ -186,10 +186,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | SUBROUTINE CTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,K,LDA,N | INTEGER INCX,K,LDA,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | * SUBROUTINE CTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,K,LDA,N | * INTEGER INCX,K,LDA,N | ||||
| * CHARACTER DIAG,TRANS,UPLO | * CHARACTER DIAG,TRANS,UPLO | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),X(*) | * COMPLEX A(LDA,*),X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -163,12 +163,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level2 | ||||
| * | * | ||||
| @@ -189,10 +189,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | SUBROUTINE CTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,K,LDA,N | INTEGER INCX,K,LDA,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) | * SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| * CHARACTER DIAG,TRANS,UPLO | * CHARACTER DIAG,TRANS,UPLO | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX AP(*),X(*) | * COMPLEX AP(*),X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -102,7 +102,7 @@ | |||||
| *> ( 1 + ( n - 1 )*abs( INCX ) ). | *> ( 1 + ( n - 1 )*abs( INCX ) ). | ||||
| *> Before entry, the incremented array X must contain the n | *> Before entry, the incremented array X must contain the n | ||||
| *> element vector x. On exit, X is overwritten with the | *> element vector x. On exit, X is overwritten with the | ||||
| *> tranformed vector x. | |||||
| *> transformed vector x. | |||||
| *> \endverbatim | *> \endverbatim | ||||
| *> | *> | ||||
| *> \param[in] INCX | *> \param[in] INCX | ||||
| @@ -115,12 +115,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level2 | ||||
| * | * | ||||
| @@ -142,10 +142,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) | SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,N | INTEGER INCX,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) | * SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| * CHARACTER DIAG,TRANS,UPLO | * CHARACTER DIAG,TRANS,UPLO | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX AP(*),X(*) | * COMPLEX AP(*),X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -118,12 +118,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level2 | ||||
| * | * | ||||
| @@ -144,10 +144,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) | SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,N | INTEGER INCX,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | * SUBROUTINE CTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX ALPHA | * COMPLEX ALPHA | ||||
| * INTEGER LDA,LDB,M,N | * INTEGER LDA,LDB,M,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),B(LDB,*) | * COMPLEX A(LDA,*),B(LDB,*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -151,12 +151,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level3 | ||||
| * | * | ||||
| @@ -177,10 +177,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | SUBROUTINE CTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | ||||
| * | * | ||||
| * -- Reference BLAS level3 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level3 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX ALPHA | COMPLEX ALPHA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | * SUBROUTINE CTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,LDA,N | * INTEGER INCX,LDA,N | ||||
| * CHARACTER DIAG,TRANS,UPLO | * CHARACTER DIAG,TRANS,UPLO | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),X(*) | * COMPLEX A(LDA,*),X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -107,7 +107,7 @@ | |||||
| *> ( 1 + ( n - 1 )*abs( INCX ) ). | *> ( 1 + ( n - 1 )*abs( INCX ) ). | ||||
| *> Before entry, the incremented array X must contain the n | *> Before entry, the incremented array X must contain the n | ||||
| *> element vector x. On exit, X is overwritten with the | *> element vector x. On exit, X is overwritten with the | ||||
| *> tranformed vector x. | |||||
| *> transformed vector x. | |||||
| *> \endverbatim | *> \endverbatim | ||||
| *> | *> | ||||
| *> \param[in] INCX | *> \param[in] INCX | ||||
| @@ -120,12 +120,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level2 | ||||
| * | * | ||||
| @@ -147,10 +147,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | SUBROUTINE CTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,LDA,N | INTEGER INCX,LDA,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | * SUBROUTINE CTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX ALPHA | * COMPLEX ALPHA | ||||
| * INTEGER LDA,LDB,M,N | * INTEGER LDA,LDB,M,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),B(LDB,*) | * COMPLEX A(LDA,*),B(LDB,*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -112,7 +112,7 @@ | |||||
| *> \param[in] A | *> \param[in] A | ||||
| *> \verbatim | *> \verbatim | ||||
| *> A is COMPLEX array of DIMENSION ( LDA, k ), | *> A is COMPLEX array of DIMENSION ( LDA, k ), | ||||
| *> where k is m when SIDE = 'L' or 'l' | |||||
| *> where k is m when SIDE = 'L' or 'l' | |||||
| *> and k is n when SIDE = 'R' or 'r'. | *> and k is n when SIDE = 'R' or 'r'. | ||||
| *> Before entry with UPLO = 'U' or 'u', the leading k by k | *> Before entry with UPLO = 'U' or 'u', the leading k by k | ||||
| *> upper triangular part of the array A must contain the upper | *> upper triangular part of the array A must contain the upper | ||||
| @@ -154,12 +154,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level3 | ||||
| * | * | ||||
| @@ -180,10 +180,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | SUBROUTINE CTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | ||||
| * | * | ||||
| * -- Reference BLAS level3 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level3 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX ALPHA | COMPLEX ALPHA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE CTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | * SUBROUTINE CTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,LDA,N | * INTEGER INCX,LDA,N | ||||
| * CHARACTER DIAG,TRANS,UPLO | * CHARACTER DIAG,TRANS,UPLO | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX A(LDA,*),X(*) | * COMPLEX A(LDA,*),X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -123,12 +123,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup complex_blas_level2 | ||||
| * | * | ||||
| @@ -149,10 +149,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE CTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | SUBROUTINE CTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,LDA,N | INTEGER INCX,LDA,N | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * DOUBLE PRECISION FUNCTION DASUM(N,DX,INCX) | * DOUBLE PRECISION FUNCTION DASUM(N,DX,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION DX(*) | * DOUBLE PRECISION DX(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -29,12 +29,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level1 | ||||
| * | * | ||||
| @@ -51,10 +51,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| DOUBLE PRECISION FUNCTION DASUM(N,DX,INCX) | DOUBLE PRECISION FUNCTION DASUM(N,DX,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,N | INTEGER INCX,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DAXPY(N,DA,DX,INCX,DY,INCY) | * SUBROUTINE DAXPY(N,DA,DX,INCX,DY,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION DA | * DOUBLE PRECISION DA | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION DX(*),DY(*) | * DOUBLE PRECISION DX(*),DY(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -31,12 +31,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level1 | ||||
| * | * | ||||
| @@ -52,10 +52,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DAXPY(N,DA,DX,INCX,DY,INCY) | SUBROUTINE DAXPY(N,DA,DX,INCX,DY,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION DA | DOUBLE PRECISION DA | ||||
| @@ -2,47 +2,47 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * DOUBLE PRECISION FUNCTION DCABS1(Z) | * DOUBLE PRECISION FUNCTION DCABS1(Z) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX*16 Z | * COMPLEX*16 Z | ||||
| * .. | * .. | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| *> | *> | ||||
| *> \verbatim | *> \verbatim | ||||
| *> | *> | ||||
| *> DCABS1 computes |Re(.)| + |Im(.)| of a double complex number | |||||
| *> DCABS1 computes |Re(.)| + |Im(.)| of a double complex number | |||||
| *> \endverbatim | *> \endverbatim | ||||
| * | * | ||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level1 | ||||
| * | * | ||||
| * ===================================================================== | * ===================================================================== | ||||
| DOUBLE PRECISION FUNCTION DCABS1(Z) | DOUBLE PRECISION FUNCTION DCABS1(Z) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX*16 Z | COMPLEX*16 Z | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DCOPY(N,DX,INCX,DY,INCY) | * SUBROUTINE DCOPY(N,DX,INCX,DY,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION DX(*),DY(*) | * DOUBLE PRECISION DX(*),DY(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -30,12 +30,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level1 | ||||
| * | * | ||||
| @@ -51,10 +51,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DCOPY(N,DX,INCX,DY,INCY) | SUBROUTINE DCOPY(N,DX,INCX,DY,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,INCY,N | INTEGER INCX,INCY,N | ||||
| @@ -85,7 +85,7 @@ | |||||
| DY(I) = DX(I) | DY(I) = DX(I) | ||||
| END DO | END DO | ||||
| IF (N.LT.7) RETURN | IF (N.LT.7) RETURN | ||||
| END IF | |||||
| END IF | |||||
| MP1 = M + 1 | MP1 = M + 1 | ||||
| DO I = MP1,N,7 | DO I = MP1,N,7 | ||||
| DY(I) = DX(I) | DY(I) = DX(I) | ||||
| @@ -96,7 +96,7 @@ | |||||
| DY(I+5) = DX(I+5) | DY(I+5) = DX(I+5) | ||||
| DY(I+6) = DX(I+6) | DY(I+6) = DX(I+6) | ||||
| END DO | END DO | ||||
| ELSE | |||||
| ELSE | |||||
| * | * | ||||
| * code for unequal increments or equal increments | * code for unequal increments or equal increments | ||||
| * not equal to 1 | * not equal to 1 | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY) | * DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION DX(*),DY(*) | * DOUBLE PRECISION DX(*),DY(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -30,12 +30,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level1 | ||||
| * | * | ||||
| @@ -51,10 +51,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY) | DOUBLE PRECISION FUNCTION DDOT(N,DX,INCX,DY,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,INCY,N | INTEGER INCX,INCY,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | * SUBROUTINE DGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION ALPHA,BETA | * DOUBLE PRECISION ALPHA,BETA | ||||
| * INTEGER INCX,INCY,KL,KU,LDA,M,N | * INTEGER INCX,INCY,KL,KU,LDA,M,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION A(LDA,*),X(*),Y(*) | * DOUBLE PRECISION A(LDA,*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -158,12 +158,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level2 | ||||
| * | * | ||||
| @@ -185,10 +185,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | SUBROUTINE DGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION ALPHA,BETA | DOUBLE PRECISION ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | * SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION ALPHA,BETA | * DOUBLE PRECISION ALPHA,BETA | ||||
| * INTEGER K,LDA,LDB,LDC,M,N | * INTEGER K,LDA,LDB,LDC,M,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*) | * DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -161,12 +161,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level3 | ||||
| * | * | ||||
| @@ -187,10 +187,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | SUBROUTINE DGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | ||||
| * | * | ||||
| * -- Reference BLAS level3 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level3 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION ALPHA,BETA | DOUBLE PRECISION ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | * SUBROUTINE DGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION ALPHA,BETA | * DOUBLE PRECISION ALPHA,BETA | ||||
| * INTEGER INCX,INCY,LDA,M,N | * INTEGER INCX,INCY,LDA,M,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION A(LDA,*),X(*),Y(*) | * DOUBLE PRECISION A(LDA,*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -129,12 +129,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level2 | ||||
| * | * | ||||
| @@ -156,10 +156,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | SUBROUTINE DGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION ALPHA,BETA | DOUBLE PRECISION ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | * SUBROUTINE DGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION ALPHA | * DOUBLE PRECISION ALPHA | ||||
| * INTEGER INCX,INCY,LDA,M,N | * INTEGER INCX,INCY,LDA,M,N | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION A(LDA,*),X(*),Y(*) | * DOUBLE PRECISION A(LDA,*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -104,12 +104,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level2 | ||||
| * | * | ||||
| @@ -130,10 +130,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | SUBROUTINE DGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION ALPHA | DOUBLE PRECISION ALPHA | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * DOUBLE PRECISION FUNCTION DNRM2(N,X,INCX) | * DOUBLE PRECISION FUNCTION DNRM2(N,X,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION X(*) | * DOUBLE PRECISION X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -32,12 +32,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level1 | ||||
| * | * | ||||
| @@ -54,10 +54,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| DOUBLE PRECISION FUNCTION DNRM2(N,X,INCX) | DOUBLE PRECISION FUNCTION DNRM2(N,X,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,N | INTEGER INCX,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DROT(N,DX,INCX,DY,INCY,C,S) | * SUBROUTINE DROT(N,DX,INCX,DY,INCY,C,S) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION C,S | * DOUBLE PRECISION C,S | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION DX(*),DY(*) | * DOUBLE PRECISION DX(*),DY(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -30,12 +30,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level1 | ||||
| * | * | ||||
| @@ -51,10 +51,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DROT(N,DX,INCX,DY,INCY,C,S) | SUBROUTINE DROT(N,DX,INCX,DY,INCY,C,S) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION C,S | DOUBLE PRECISION C,S | ||||
| @@ -2,18 +2,18 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DROTG(DA,DB,C,S) | * SUBROUTINE DROTG(DA,DB,C,S) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION C,DA,DB,S | * DOUBLE PRECISION C,DA,DB,S | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -26,12 +26,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level1 | ||||
| * | * | ||||
| @@ -46,10 +46,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DROTG(DA,DB,C,S) | SUBROUTINE DROTG(DA,DB,C,S) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION C,DA,DB,S | DOUBLE PRECISION C,DA,DB,S | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM) | * SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION DPARAM(5),DX(*),DY(*) | * DOUBLE PRECISION DPARAM(5),DX(*),DY(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -86,22 +86,22 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level1 | ||||
| * | * | ||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM) | SUBROUTINE DROTM(N,DX,INCX,DY,INCY,DPARAM) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,INCY,N | INTEGER INCX,INCY,N | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM) | * SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION DD1,DD2,DX1,DY1 | * DOUBLE PRECISION DD1,DD2,DX1,DY1 | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION DPARAM(5) | * DOUBLE PRECISION DPARAM(5) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -78,22 +78,22 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level1 | ||||
| * | * | ||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM) | SUBROUTINE DROTMG(DD1,DD2,DX1,DY1,DPARAM) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION DD1,DD2,DX1,DY1 | DOUBLE PRECISION DD1,DD2,DX1,DY1 | ||||
| @@ -135,7 +135,7 @@ | |||||
| DFLAG = -TWO | DFLAG = -TWO | ||||
| DPARAM(1) = DFLAG | DPARAM(1) = DFLAG | ||||
| RETURN | RETURN | ||||
| END IF | |||||
| END IF | |||||
| * REGULAR-CASE.. | * REGULAR-CASE.. | ||||
| DP1 = DD1*DX1 | DP1 = DD1*DX1 | ||||
| DQ2 = DP2*DY1 | DQ2 = DP2*DY1 | ||||
| @@ -203,7 +203,7 @@ | |||||
| END IF | END IF | ||||
| ENDDO | ENDDO | ||||
| END IF | END IF | ||||
| IF (DD2.NE.ZERO) THEN | IF (DD2.NE.ZERO) THEN | ||||
| DO WHILE ( (DABS(DD2).LE.RGAMSQ) .OR. (DABS(DD2).GE.GAMSQ) ) | DO WHILE ( (DABS(DD2).LE.RGAMSQ) .OR. (DABS(DD2).GE.GAMSQ) ) | ||||
| IF (DFLAG.EQ.ZERO) THEN | IF (DFLAG.EQ.ZERO) THEN | ||||
| @@ -223,10 +223,10 @@ | |||||
| DD2 = DD2/GAM**2 | DD2 = DD2/GAM**2 | ||||
| DH21 = DH21*GAM | DH21 = DH21*GAM | ||||
| DH22 = DH22*GAM | DH22 = DH22*GAM | ||||
| END IF | |||||
| END IF | |||||
| END DO | END DO | ||||
| END IF | END IF | ||||
| END IF | END IF | ||||
| IF (DFLAG.LT.ZERO) THEN | IF (DFLAG.LT.ZERO) THEN | ||||
| @@ -236,7 +236,7 @@ | |||||
| DPARAM(5) = DH22 | DPARAM(5) = DH22 | ||||
| ELSE IF (DFLAG.EQ.ZERO) THEN | ELSE IF (DFLAG.EQ.ZERO) THEN | ||||
| DPARAM(3) = DH21 | DPARAM(3) = DH21 | ||||
| DPARAM(4) = DH12 | |||||
| DPARAM(4) = DH12 | |||||
| ELSE | ELSE | ||||
| DPARAM(2) = DH11 | DPARAM(2) = DH11 | ||||
| DPARAM(5) = DH22 | DPARAM(5) = DH22 | ||||
| @@ -245,7 +245,7 @@ | |||||
| DPARAM(1) = DFLAG | DPARAM(1) = DFLAG | ||||
| RETURN | RETURN | ||||
| END | END | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | * SUBROUTINE DSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION ALPHA,BETA | * DOUBLE PRECISION ALPHA,BETA | ||||
| * INTEGER INCX,INCY,K,LDA,N | * INTEGER INCX,INCY,K,LDA,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION A(LDA,*),X(*),Y(*) | * DOUBLE PRECISION A(LDA,*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -157,12 +157,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level2 | ||||
| * | * | ||||
| @@ -184,10 +184,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | SUBROUTINE DSBMV(UPLO,N,K,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION ALPHA,BETA | DOUBLE PRECISION ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DSCAL(N,DA,DX,INCX) | * SUBROUTINE DSCAL(N,DA,DX,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION DA | * DOUBLE PRECISION DA | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION DX(*) | * DOUBLE PRECISION DX(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -31,12 +31,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level1 | ||||
| * | * | ||||
| @@ -53,10 +53,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DSCAL(N,DA,DX,INCX) | SUBROUTINE DSCAL(N,DA,DX,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION DA | DOUBLE PRECISION DA | ||||
| @@ -2,26 +2,26 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * DOUBLE PRECISION FUNCTION DSDOT(N,SX,INCX,SY,INCY) | * DOUBLE PRECISION FUNCTION DSDOT(N,SX,INCX,SY,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * REAL SX(*),SY(*) | * REAL SX(*),SY(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * AUTHORS | * AUTHORS | ||||
| * ======= | * ======= | ||||
| * Lawson, C. L., (JPL), Hanson, R. J., (SNLA), | |||||
| * Lawson, C. L., (JPL), Hanson, R. J., (SNLA), | |||||
| * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) | * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -79,12 +79,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level1 | ||||
| * | * | ||||
| @@ -99,7 +99,7 @@ | |||||
| *> | *> | ||||
| *> \verbatim | *> \verbatim | ||||
| *> | *> | ||||
| *> | |||||
| *> | |||||
| *> C. L. Lawson, R. J. Hanson, D. R. Kincaid and F. T. | *> C. L. Lawson, R. J. Hanson, D. R. Kincaid and F. T. | ||||
| *> Krogh, Basic linear algebra subprograms for Fortran | *> Krogh, Basic linear algebra subprograms for Fortran | ||||
| *> usage, Algorithm No. 539, Transactions on Mathematical | *> usage, Algorithm No. 539, Transactions on Mathematical | ||||
| @@ -119,10 +119,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| DOUBLE PRECISION FUNCTION DSDOT(N,SX,INCX,SY,INCY) | DOUBLE PRECISION FUNCTION DSDOT(N,SX,INCX,SY,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,INCY,N | INTEGER INCX,INCY,N | ||||
| @@ -133,7 +133,7 @@ | |||||
| * | * | ||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * Lawson, C. L., (JPL), Hanson, R. J., (SNLA), | |||||
| * Lawson, C. L., (JPL), Hanson, R. J., (SNLA), | |||||
| * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) | * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) | ||||
| * | * | ||||
| * ===================================================================== | * ===================================================================== | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) | * SUBROUTINE DSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION ALPHA,BETA | * DOUBLE PRECISION ALPHA,BETA | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION AP(*),X(*),Y(*) | * DOUBLE PRECISION AP(*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -120,12 +120,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level2 | ||||
| * | * | ||||
| @@ -147,10 +147,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) | SUBROUTINE DSPMV(UPLO,N,ALPHA,AP,X,INCX,BETA,Y,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION ALPHA,BETA | DOUBLE PRECISION ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DSPR(UPLO,N,ALPHA,X,INCX,AP) | * SUBROUTINE DSPR(UPLO,N,ALPHA,X,INCX,AP) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION ALPHA | * DOUBLE PRECISION ALPHA | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION AP(*),X(*) | * DOUBLE PRECISION AP(*),X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -101,12 +101,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level2 | ||||
| * | * | ||||
| @@ -127,10 +127,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DSPR(UPLO,N,ALPHA,X,INCX,AP) | SUBROUTINE DSPR(UPLO,N,ALPHA,X,INCX,AP) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION ALPHA | DOUBLE PRECISION ALPHA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) | * SUBROUTINE DSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION ALPHA | * DOUBLE PRECISION ALPHA | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION AP(*),X(*),Y(*) | * DOUBLE PRECISION AP(*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -116,12 +116,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level2 | ||||
| * | * | ||||
| @@ -142,10 +142,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) | SUBROUTINE DSPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION ALPHA | DOUBLE PRECISION ALPHA | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DSWAP(N,DX,INCX,DY,INCY) | * SUBROUTINE DSWAP(N,DX,INCX,DY,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION DX(*),DY(*) | * DOUBLE PRECISION DX(*),DY(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -30,12 +30,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level1 | ||||
| * | * | ||||
| @@ -51,10 +51,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DSWAP(N,DX,INCX,DY,INCY) | SUBROUTINE DSWAP(N,DX,INCX,DY,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,INCY,N | INTEGER INCX,INCY,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | * SUBROUTINE DSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION ALPHA,BETA | * DOUBLE PRECISION ALPHA,BETA | ||||
| * INTEGER LDA,LDB,LDC,M,N | * INTEGER LDA,LDB,LDC,M,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*) | * DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -163,12 +163,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level3 | ||||
| * | * | ||||
| @@ -189,10 +189,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | SUBROUTINE DSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | ||||
| * | * | ||||
| * -- Reference BLAS level3 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level3 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION ALPHA,BETA | DOUBLE PRECISION ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DSYMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | * SUBROUTINE DSYMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION ALPHA,BETA | * DOUBLE PRECISION ALPHA,BETA | ||||
| * INTEGER INCX,INCY,LDA,N | * INTEGER INCX,INCY,LDA,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION A(LDA,*),X(*),Y(*) | * DOUBLE PRECISION A(LDA,*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -125,12 +125,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level2 | ||||
| * | * | ||||
| @@ -152,10 +152,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DSYMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | SUBROUTINE DSYMV(UPLO,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION ALPHA,BETA | DOUBLE PRECISION ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DSYR(UPLO,N,ALPHA,X,INCX,A,LDA) | * SUBROUTINE DSYR(UPLO,N,ALPHA,X,INCX,A,LDA) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION ALPHA | * DOUBLE PRECISION ALPHA | ||||
| * INTEGER INCX,LDA,N | * INTEGER INCX,LDA,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION A(LDA,*),X(*) | * DOUBLE PRECISION A(LDA,*),X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -106,12 +106,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level2 | ||||
| * | * | ||||
| @@ -132,10 +132,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DSYR(UPLO,N,ALPHA,X,INCX,A,LDA) | SUBROUTINE DSYR(UPLO,N,ALPHA,X,INCX,A,LDA) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION ALPHA | DOUBLE PRECISION ALPHA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DSYR2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) | * SUBROUTINE DSYR2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION ALPHA | * DOUBLE PRECISION ALPHA | ||||
| * INTEGER INCX,INCY,LDA,N | * INTEGER INCX,INCY,LDA,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION A(LDA,*),X(*),Y(*) | * DOUBLE PRECISION A(LDA,*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -121,12 +121,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level2 | ||||
| * | * | ||||
| @@ -147,10 +147,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DSYR2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) | SUBROUTINE DSYR2(UPLO,N,ALPHA,X,INCX,Y,INCY,A,LDA) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION ALPHA | DOUBLE PRECISION ALPHA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | * SUBROUTINE DSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION ALPHA,BETA | * DOUBLE PRECISION ALPHA,BETA | ||||
| * INTEGER K,LDA,LDB,LDC,N | * INTEGER K,LDA,LDB,LDC,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*) | * DOUBLE PRECISION A(LDA,*),B(LDB,*),C(LDC,*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -165,12 +165,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level3 | ||||
| * | * | ||||
| @@ -192,10 +192,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | SUBROUTINE DSYR2K(UPLO,TRANS,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | ||||
| * | * | ||||
| * -- Reference BLAS level3 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level3 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION ALPHA,BETA | DOUBLE PRECISION ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) | * SUBROUTINE DSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION ALPHA,BETA | * DOUBLE PRECISION ALPHA,BETA | ||||
| * INTEGER K,LDA,LDC,N | * INTEGER K,LDA,LDC,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION A(LDA,*),C(LDC,*) | * DOUBLE PRECISION A(LDA,*),C(LDC,*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -143,12 +143,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level3 | ||||
| * | * | ||||
| @@ -169,10 +169,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) | SUBROUTINE DSYRK(UPLO,TRANS,N,K,ALPHA,A,LDA,BETA,C,LDC) | ||||
| * | * | ||||
| * -- Reference BLAS level3 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level3 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION ALPHA,BETA | DOUBLE PRECISION ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | * SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,K,LDA,N | * INTEGER INCX,K,LDA,N | ||||
| * CHARACTER DIAG,TRANS,UPLO | * CHARACTER DIAG,TRANS,UPLO | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION A(LDA,*),X(*) | * DOUBLE PRECISION A(LDA,*),X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -146,7 +146,7 @@ | |||||
| *> ( 1 + ( n - 1 )*abs( INCX ) ). | *> ( 1 + ( n - 1 )*abs( INCX ) ). | ||||
| *> Before entry, the incremented array X must contain the n | *> Before entry, the incremented array X must contain the n | ||||
| *> element vector x. On exit, X is overwritten with the | *> element vector x. On exit, X is overwritten with the | ||||
| *> tranformed vector x. | |||||
| *> transformed vector x. | |||||
| *> \endverbatim | *> \endverbatim | ||||
| *> | *> | ||||
| *> \param[in] INCX | *> \param[in] INCX | ||||
| @@ -159,12 +159,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level2 | ||||
| * | * | ||||
| @@ -186,10 +186,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,K,LDA,N | INTEGER INCX,K,LDA,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | * SUBROUTINE DTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,K,LDA,N | * INTEGER INCX,K,LDA,N | ||||
| * CHARACTER DIAG,TRANS,UPLO | * CHARACTER DIAG,TRANS,UPLO | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION A(LDA,*),X(*) | * DOUBLE PRECISION A(LDA,*),X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -163,12 +163,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level2 | ||||
| * | * | ||||
| @@ -189,10 +189,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | SUBROUTINE DTBSV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,K,LDA,N | INTEGER INCX,K,LDA,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) | * SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| * CHARACTER DIAG,TRANS,UPLO | * CHARACTER DIAG,TRANS,UPLO | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION AP(*),X(*) | * DOUBLE PRECISION AP(*),X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -102,7 +102,7 @@ | |||||
| *> ( 1 + ( n - 1 )*abs( INCX ) ). | *> ( 1 + ( n - 1 )*abs( INCX ) ). | ||||
| *> Before entry, the incremented array X must contain the n | *> Before entry, the incremented array X must contain the n | ||||
| *> element vector x. On exit, X is overwritten with the | *> element vector x. On exit, X is overwritten with the | ||||
| *> tranformed vector x. | |||||
| *> transformed vector x. | |||||
| *> \endverbatim | *> \endverbatim | ||||
| *> | *> | ||||
| *> \param[in] INCX | *> \param[in] INCX | ||||
| @@ -115,12 +115,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level2 | ||||
| * | * | ||||
| @@ -142,10 +142,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) | SUBROUTINE DTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,N | INTEGER INCX,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) | * SUBROUTINE DTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| * CHARACTER DIAG,TRANS,UPLO | * CHARACTER DIAG,TRANS,UPLO | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION AP(*),X(*) | * DOUBLE PRECISION AP(*),X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -118,12 +118,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level2 | ||||
| * | * | ||||
| @@ -144,10 +144,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) | SUBROUTINE DTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,N | INTEGER INCX,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | * SUBROUTINE DTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION ALPHA | * DOUBLE PRECISION ALPHA | ||||
| * INTEGER LDA,LDB,M,N | * INTEGER LDA,LDB,M,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION A(LDA,*),B(LDB,*) | * DOUBLE PRECISION A(LDA,*),B(LDB,*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -151,12 +151,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level3 | ||||
| * | * | ||||
| @@ -177,10 +177,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | SUBROUTINE DTRMM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | ||||
| * | * | ||||
| * -- Reference BLAS level3 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level3 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION ALPHA | DOUBLE PRECISION ALPHA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | * SUBROUTINE DTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,LDA,N | * INTEGER INCX,LDA,N | ||||
| * CHARACTER DIAG,TRANS,UPLO | * CHARACTER DIAG,TRANS,UPLO | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION A(LDA,*),X(*) | * DOUBLE PRECISION A(LDA,*),X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -107,7 +107,7 @@ | |||||
| *> ( 1 + ( n - 1 )*abs( INCX ) ). | *> ( 1 + ( n - 1 )*abs( INCX ) ). | ||||
| *> Before entry, the incremented array X must contain the n | *> Before entry, the incremented array X must contain the n | ||||
| *> element vector x. On exit, X is overwritten with the | *> element vector x. On exit, X is overwritten with the | ||||
| *> tranformed vector x. | |||||
| *> transformed vector x. | |||||
| *> \endverbatim | *> \endverbatim | ||||
| *> | *> | ||||
| *> \param[in] INCX | *> \param[in] INCX | ||||
| @@ -120,12 +120,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level2 | ||||
| * | * | ||||
| @@ -147,10 +147,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | SUBROUTINE DTRMV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,LDA,N | INTEGER INCX,LDA,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | * SUBROUTINE DTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * DOUBLE PRECISION ALPHA | * DOUBLE PRECISION ALPHA | ||||
| * INTEGER LDA,LDB,M,N | * INTEGER LDA,LDB,M,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION A(LDA,*),B(LDB,*) | * DOUBLE PRECISION A(LDA,*),B(LDB,*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -112,7 +112,7 @@ | |||||
| *> \param[in] A | *> \param[in] A | ||||
| *> \verbatim | *> \verbatim | ||||
| *> A is DOUBLE PRECISION array of DIMENSION ( LDA, k ), | *> A is DOUBLE PRECISION array of DIMENSION ( LDA, k ), | ||||
| *> where k is m when SIDE = 'L' or 'l' | |||||
| *> where k is m when SIDE = 'L' or 'l' | |||||
| *> and k is n when SIDE = 'R' or 'r'. | *> and k is n when SIDE = 'R' or 'r'. | ||||
| *> Before entry with UPLO = 'U' or 'u', the leading k by k | *> Before entry with UPLO = 'U' or 'u', the leading k by k | ||||
| *> upper triangular part of the array A must contain the upper | *> upper triangular part of the array A must contain the upper | ||||
| @@ -154,12 +154,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level3 | ||||
| * | * | ||||
| @@ -181,10 +181,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | SUBROUTINE DTRSM(SIDE,UPLO,TRANSA,DIAG,M,N,ALPHA,A,LDA,B,LDB) | ||||
| * | * | ||||
| * -- Reference BLAS level3 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level3 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| DOUBLE PRECISION ALPHA | DOUBLE PRECISION ALPHA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE DTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | * SUBROUTINE DTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,LDA,N | * INTEGER INCX,LDA,N | ||||
| * CHARACTER DIAG,TRANS,UPLO | * CHARACTER DIAG,TRANS,UPLO | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION A(LDA,*),X(*) | * DOUBLE PRECISION A(LDA,*),X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -131,22 +131,22 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level1 | ||||
| * | * | ||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE DTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | SUBROUTINE DTRSV(UPLO,TRANS,DIAG,N,A,LDA,X,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,LDA,N | INTEGER INCX,LDA,N | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * DOUBLE PRECISION FUNCTION DZASUM(N,ZX,INCX) | * DOUBLE PRECISION FUNCTION DZASUM(N,ZX,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX*16 ZX(*) | * COMPLEX*16 ZX(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -30,12 +30,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level1 | ||||
| * | * | ||||
| @@ -52,10 +52,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| DOUBLE PRECISION FUNCTION DZASUM(N,ZX,INCX) | DOUBLE PRECISION FUNCTION DZASUM(N,ZX,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,N | INTEGER INCX,N | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * DOUBLE PRECISION FUNCTION DZNRM2(N,X,INCX) | * DOUBLE PRECISION FUNCTION DZNRM2(N,X,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX*16 X(*) | * COMPLEX*16 X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -32,12 +32,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup double_blas_level1 | ||||
| * | * | ||||
| @@ -54,10 +54,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| DOUBLE PRECISION FUNCTION DZNRM2(N,X,INCX) | DOUBLE PRECISION FUNCTION DZNRM2(N,X,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,N | INTEGER INCX,N | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * INTEGER FUNCTION ICAMAX(N,CX,INCX) | * INTEGER FUNCTION ICAMAX(N,CX,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX CX(*) | * COMPLEX CX(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -29,12 +29,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup aux_blas | ||||
| * | * | ||||
| @@ -51,10 +51,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| INTEGER FUNCTION ICAMAX(N,CX,INCX) | INTEGER FUNCTION ICAMAX(N,CX,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,N | INTEGER INCX,N | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * INTEGER FUNCTION IDAMAX(N,DX,INCX) | * INTEGER FUNCTION IDAMAX(N,DX,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * DOUBLE PRECISION DX(*) | * DOUBLE PRECISION DX(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -29,12 +29,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup aux_blas | ||||
| * | * | ||||
| @@ -51,10 +51,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| INTEGER FUNCTION IDAMAX(N,DX,INCX) | INTEGER FUNCTION IDAMAX(N,DX,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,N | INTEGER INCX,N | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * INTEGER FUNCTION ISAMAX(N,SX,INCX) | * INTEGER FUNCTION ISAMAX(N,SX,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * REAL SX(*) | * REAL SX(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -29,12 +29,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup aux_blas | ||||
| * | * | ||||
| @@ -51,10 +51,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| INTEGER FUNCTION ISAMAX(N,SX,INCX) | INTEGER FUNCTION ISAMAX(N,SX,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,N | INTEGER INCX,N | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * INTEGER FUNCTION IZAMAX(N,ZX,INCX) | * INTEGER FUNCTION IZAMAX(N,ZX,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX*16 ZX(*) | * COMPLEX*16 ZX(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -29,12 +29,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup aux_blas | ||||
| * | * | ||||
| @@ -51,10 +51,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| INTEGER FUNCTION IZAMAX(N,ZX,INCX) | INTEGER FUNCTION IZAMAX(N,ZX,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,N | INTEGER INCX,N | ||||
| @@ -2,18 +2,18 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * LOGICAL FUNCTION LSAME(CA,CB) | * LOGICAL FUNCTION LSAME(CA,CB) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * CHARACTER CA,CB | * CHARACTER CA,CB | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -41,12 +41,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup aux_blas | ||||
| * | * | ||||
| @@ -56,7 +56,7 @@ | |||||
| * -- Reference BLAS level1 routine (version 3.1) -- | * -- Reference BLAS level1 routine (version 3.1) -- | ||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| CHARACTER CA,CB | CHARACTER CA,CB | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * REAL FUNCTION SASUM(N,SX,INCX) | * REAL FUNCTION SASUM(N,SX,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * REAL SX(*) | * REAL SX(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -30,12 +30,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup single_blas_level1 | ||||
| * | * | ||||
| @@ -52,10 +52,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| REAL FUNCTION SASUM(N,SX,INCX) | REAL FUNCTION SASUM(N,SX,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,N | INTEGER INCX,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE SAXPY(N,SA,SX,INCX,SY,INCY) | * SUBROUTINE SAXPY(N,SA,SX,INCX,SY,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * REAL SA | * REAL SA | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * REAL SX(*),SY(*) | * REAL SX(*),SY(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -31,12 +31,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup single_blas_level1 | ||||
| * | * | ||||
| @@ -52,10 +52,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE SAXPY(N,SA,SX,INCX,SY,INCY) | SUBROUTINE SAXPY(N,SA,SX,INCX,SY,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| REAL SA | REAL SA | ||||
| @@ -2,18 +2,18 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * REAL FUNCTION SCABS1(Z) | * REAL FUNCTION SCABS1(Z) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * COMPLEX Z | * COMPLEX Z | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -26,22 +26,22 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup single_blas_level1 | ||||
| * | * | ||||
| * ===================================================================== | * ===================================================================== | ||||
| REAL FUNCTION SCABS1(Z) | REAL FUNCTION SCABS1(Z) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| COMPLEX Z | COMPLEX Z | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * REAL FUNCTION SCASUM(N,CX,INCX) | * REAL FUNCTION SCASUM(N,CX,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX CX(*) | * COMPLEX CX(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -30,12 +30,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup single_blas_level1 | ||||
| * | * | ||||
| @@ -52,10 +52,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| REAL FUNCTION SCASUM(N,CX,INCX) | REAL FUNCTION SCASUM(N,CX,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,N | INTEGER INCX,N | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * REAL FUNCTION SCNRM2(N,X,INCX) | * REAL FUNCTION SCNRM2(N,X,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * COMPLEX X(*) | * COMPLEX X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -32,12 +32,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup single_blas_level1 | ||||
| * | * | ||||
| @@ -54,10 +54,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| REAL FUNCTION SCNRM2(N,X,INCX) | REAL FUNCTION SCNRM2(N,X,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,N | INTEGER INCX,N | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE SCOPY(N,SX,INCX,SY,INCY) | * SUBROUTINE SCOPY(N,SX,INCX,SY,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * REAL SX(*),SY(*) | * REAL SX(*),SY(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -30,12 +30,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup single_blas_level1 | ||||
| * | * | ||||
| @@ -51,10 +51,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE SCOPY(N,SX,INCX,SY,INCY) | SUBROUTINE SCOPY(N,SX,INCX,SY,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,INCY,N | INTEGER INCX,INCY,N | ||||
| @@ -85,7 +85,7 @@ | |||||
| SY(I) = SX(I) | SY(I) = SX(I) | ||||
| END DO | END DO | ||||
| IF (N.LT.7) RETURN | IF (N.LT.7) RETURN | ||||
| END IF | |||||
| END IF | |||||
| MP1 = M + 1 | MP1 = M + 1 | ||||
| DO I = MP1,N,7 | DO I = MP1,N,7 | ||||
| SY(I) = SX(I) | SY(I) = SX(I) | ||||
| @@ -96,7 +96,7 @@ | |||||
| SY(I+5) = SX(I+5) | SY(I+5) = SX(I+5) | ||||
| SY(I+6) = SX(I+6) | SY(I+6) = SX(I+6) | ||||
| END DO | END DO | ||||
| ELSE | |||||
| ELSE | |||||
| * | * | ||||
| * code for unequal increments or equal increments | * code for unequal increments or equal increments | ||||
| * not equal to 1 | * not equal to 1 | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * REAL FUNCTION SDOT(N,SX,INCX,SY,INCY) | * REAL FUNCTION SDOT(N,SX,INCX,SY,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * REAL SX(*),SY(*) | * REAL SX(*),SY(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -30,12 +30,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup single_blas_level1 | ||||
| * | * | ||||
| @@ -51,10 +51,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| REAL FUNCTION SDOT(N,SX,INCX,SY,INCY) | REAL FUNCTION SDOT(N,SX,INCX,SY,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,INCY,N | INTEGER INCX,INCY,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * REAL FUNCTION SDSDOT(N,SB,SX,INCX,SY,INCY) | * REAL FUNCTION SDSDOT(N,SB,SX,INCX,SY,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * REAL SB | * REAL SB | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| @@ -17,59 +17,59 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * REAL SX(*),SY(*) | * REAL SX(*),SY(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * PURPOSE | * PURPOSE | ||||
| * ======= | * ======= | ||||
| * | |||||
| * | |||||
| * Compute the inner product of two vectors with extended | * Compute the inner product of two vectors with extended | ||||
| * precision accumulation. | * precision accumulation. | ||||
| * | |||||
| * | |||||
| * Returns S.P. result with dot product accumulated in D.P. | * Returns S.P. result with dot product accumulated in D.P. | ||||
| * SDSDOT = SB + sum for I = 0 to N-1 of SX(LX+I*INCX)*SY(LY+I*INCY), | * SDSDOT = SB + sum for I = 0 to N-1 of SX(LX+I*INCX)*SY(LY+I*INCY), | ||||
| * where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is | * where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is | ||||
| * defined in a similar way using INCY. | * defined in a similar way using INCY. | ||||
| * | |||||
| * | |||||
| * AUTHOR | * AUTHOR | ||||
| * ====== | * ====== | ||||
| * Lawson, C. L., (JPL), Hanson, R. J., (SNLA), | * Lawson, C. L., (JPL), Hanson, R. J., (SNLA), | ||||
| * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) | * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) | ||||
| * | |||||
| * ARGUMENTS | |||||
| * | |||||
| * ARGUMENTS | |||||
| * ========= | * ========= | ||||
| * | |||||
| * | |||||
| * N (input) INTEGER | * N (input) INTEGER | ||||
| * number of elements in input vector(s) | * number of elements in input vector(s) | ||||
| * | |||||
| * | |||||
| * SB (input) REAL | * SB (input) REAL | ||||
| * single precision scalar to be added to inner product | * single precision scalar to be added to inner product | ||||
| * | |||||
| * | |||||
| * SX (input) REAL array, dimension (N) | * SX (input) REAL array, dimension (N) | ||||
| * single precision vector with N elements | * single precision vector with N elements | ||||
| * | |||||
| * | |||||
| * INCX (input) INTEGER | * INCX (input) INTEGER | ||||
| * storage spacing between elements of SX | * storage spacing between elements of SX | ||||
| * | |||||
| * | |||||
| * SY (input) REAL array, dimension (N) | * SY (input) REAL array, dimension (N) | ||||
| * single precision vector with N elements | * single precision vector with N elements | ||||
| * | |||||
| * | |||||
| * INCY (input) INTEGER | * INCY (input) INTEGER | ||||
| * storage spacing between elements of SY | * storage spacing between elements of SY | ||||
| * | |||||
| * | |||||
| * SDSDOT (output) REAL | * SDSDOT (output) REAL | ||||
| * single precision dot product (SB if N .LE. 0) | * single precision dot product (SB if N .LE. 0) | ||||
| * | |||||
| * | |||||
| * Further Details | * Further Details | ||||
| * =============== | * =============== | ||||
| * | |||||
| * | |||||
| * REFERENCES | * REFERENCES | ||||
| * | |||||
| * | |||||
| * C. L. Lawson, R. J. Hanson, D. R. Kincaid and F. T. | * C. L. Lawson, R. J. Hanson, D. R. Kincaid and F. T. | ||||
| * Krogh, Basic linear algebra subprograms for Fortran | * Krogh, Basic linear algebra subprograms for Fortran | ||||
| * usage, Algorithm No. 539, Transactions on Mathematical | * usage, Algorithm No. 539, Transactions on Mathematical | ||||
| * Software 5, 3 (September 1979), pp. 308-323. | * Software 5, 3 (September 1979), pp. 308-323. | ||||
| * | |||||
| * | |||||
| * REVISION HISTORY (YYMMDD) | * REVISION HISTORY (YYMMDD) | ||||
| * | |||||
| * | |||||
| * 791001 DATE WRITTEN | * 791001 DATE WRITTEN | ||||
| * 890531 Changed all specific intrinsics to generic. (WRB) | * 890531 Changed all specific intrinsics to generic. (WRB) | ||||
| * 890831 Modified array declarations. (WRB) | * 890831 Modified array declarations. (WRB) | ||||
| @@ -78,9 +78,9 @@ | |||||
| * 920310 Corrected definition of LX in DESCRIPTION. (WRB) | * 920310 Corrected definition of LX in DESCRIPTION. (WRB) | ||||
| * 920501 Reformatted the REFERENCES section. (WRB) | * 920501 Reformatted the REFERENCES section. (WRB) | ||||
| * 070118 Reformat to LAPACK coding style | * 070118 Reformat to LAPACK coding style | ||||
| * | |||||
| * | |||||
| * ===================================================================== | * ===================================================================== | ||||
| * | |||||
| * | |||||
| * .. Local Scalars .. | * .. Local Scalars .. | ||||
| * DOUBLE PRECISION DSDOT | * DOUBLE PRECISION DSDOT | ||||
| * INTEGER I,KX,KY,NS | * INTEGER I,KX,KY,NS | ||||
| @@ -92,19 +92,19 @@ | |||||
| * IF (N.LE.0) THEN | * IF (N.LE.0) THEN | ||||
| * SDSDOT = DSDOT | * SDSDOT = DSDOT | ||||
| * RETURN | * RETURN | ||||
| * END IF | |||||
| * END IF | |||||
| * IF (INCX.EQ.INCY .AND. INCX.GT.0) THEN | * IF (INCX.EQ.INCY .AND. INCX.GT.0) THEN | ||||
| * | |||||
| * | |||||
| * Code for equal and positive increments. | * Code for equal and positive increments. | ||||
| * | |||||
| * | |||||
| * NS = N*INCX | * NS = N*INCX | ||||
| * DO I = 1,NS,INCX | * DO I = 1,NS,INCX | ||||
| * DSDOT = DSDOT + DBLE(SX(I))*DBLE(SY(I)) | * DSDOT = DSDOT + DBLE(SX(I))*DBLE(SY(I)) | ||||
| * END DO | * END DO | ||||
| * ELSE | * ELSE | ||||
| * | |||||
| * | |||||
| * Code for unequal or nonpositive increments. | * Code for unequal or nonpositive increments. | ||||
| * | |||||
| * | |||||
| * KX = 1 | * KX = 1 | ||||
| * KY = 1 | * KY = 1 | ||||
| * IF (INCX.LT.0) KX = 1 + (1-N)*INCX | * IF (INCX.LT.0) KX = 1 + (1-N)*INCX | ||||
| @@ -128,22 +128,22 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup single_blas_level1 | ||||
| * | * | ||||
| * ===================================================================== | * ===================================================================== | ||||
| REAL FUNCTION SDSDOT(N,SB,SX,INCX,SY,INCY) | REAL FUNCTION SDSDOT(N,SB,SX,INCX,SY,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| REAL SB | REAL SB | ||||
| @@ -169,7 +169,7 @@ | |||||
| * Lawson, C. L., (JPL), Hanson, R. J., (SNLA), | * Lawson, C. L., (JPL), Hanson, R. J., (SNLA), | ||||
| * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) | * Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL) | ||||
| * | * | ||||
| * ARGUMENTS | |||||
| * ARGUMENTS | |||||
| * ========= | * ========= | ||||
| * | * | ||||
| * N (input) INTEGER | * N (input) INTEGER | ||||
| @@ -204,7 +204,7 @@ | |||||
| * Software 5, 3 (September 1979), pp. 308-323. | * Software 5, 3 (September 1979), pp. 308-323. | ||||
| * | * | ||||
| * REVISION HISTORY (YYMMDD) | * REVISION HISTORY (YYMMDD) | ||||
| * | |||||
| * | |||||
| * 791001 DATE WRITTEN | * 791001 DATE WRITTEN | ||||
| * 890531 Changed all specific intrinsics to generic. (WRB) | * 890531 Changed all specific intrinsics to generic. (WRB) | ||||
| * 890831 Modified array declarations. (WRB) | * 890831 Modified array declarations. (WRB) | ||||
| @@ -227,7 +227,7 @@ | |||||
| IF (N.LE.0) THEN | IF (N.LE.0) THEN | ||||
| SDSDOT = DSDOT | SDSDOT = DSDOT | ||||
| RETURN | RETURN | ||||
| END IF | |||||
| END IF | |||||
| IF (INCX.EQ.INCY .AND. INCX.GT.0) THEN | IF (INCX.EQ.INCY .AND. INCX.GT.0) THEN | ||||
| * | * | ||||
| * Code for equal and positive increments. | * Code for equal and positive increments. | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE SGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | * SUBROUTINE SGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * REAL ALPHA,BETA | * REAL ALPHA,BETA | ||||
| * INTEGER INCX,INCY,KL,KU,LDA,M,N | * INTEGER INCX,INCY,KL,KU,LDA,M,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * REAL A(LDA,*),X(*),Y(*) | * REAL A(LDA,*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -158,12 +158,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup single_blas_level2 | ||||
| * | * | ||||
| @@ -185,10 +185,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE SGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | SUBROUTINE SGBMV(TRANS,M,N,KL,KU,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| REAL ALPHA,BETA | REAL ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE SGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | * SUBROUTINE SGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * REAL ALPHA,BETA | * REAL ALPHA,BETA | ||||
| * INTEGER K,LDA,LDB,LDC,M,N | * INTEGER K,LDA,LDB,LDC,M,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * REAL A(LDA,*),B(LDB,*),C(LDC,*) | * REAL A(LDA,*),B(LDB,*),C(LDC,*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -161,12 +161,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup single_blas_level3 | ||||
| * | * | ||||
| @@ -187,10 +187,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE SGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | SUBROUTINE SGEMM(TRANSA,TRANSB,M,N,K,ALPHA,A,LDA,B,LDB,BETA,C,LDC) | ||||
| * | * | ||||
| * -- Reference BLAS level3 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level3 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| REAL ALPHA,BETA | REAL ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE SGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | * SUBROUTINE SGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * REAL ALPHA,BETA | * REAL ALPHA,BETA | ||||
| * INTEGER INCX,INCY,LDA,M,N | * INTEGER INCX,INCY,LDA,M,N | ||||
| @@ -18,7 +18,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * REAL A(LDA,*),X(*),Y(*) | * REAL A(LDA,*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -129,12 +129,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup single_blas_level2 | ||||
| * | * | ||||
| @@ -156,10 +156,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE SGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | SUBROUTINE SGEMV(TRANS,M,N,ALPHA,A,LDA,X,INCX,BETA,Y,INCY) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.6.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2015 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| REAL ALPHA,BETA | REAL ALPHA,BETA | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE SGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | * SUBROUTINE SGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * REAL ALPHA | * REAL ALPHA | ||||
| * INTEGER INCX,INCY,LDA,M,N | * INTEGER INCX,INCY,LDA,M,N | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * REAL A(LDA,*),X(*),Y(*) | * REAL A(LDA,*),X(*),Y(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -104,12 +104,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup single_blas_level2 | ||||
| * | * | ||||
| @@ -130,10 +130,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE SGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | SUBROUTINE SGER(M,N,ALPHA,X,INCX,Y,INCY,A,LDA) | ||||
| * | * | ||||
| * -- Reference BLAS level2 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level2 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| REAL ALPHA | REAL ALPHA | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * REAL FUNCTION SNRM2(N,X,INCX) | * REAL FUNCTION SNRM2(N,X,INCX) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,N | * INTEGER INCX,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * REAL X(*) | * REAL X(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -32,12 +32,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup single_blas_level1 | ||||
| * | * | ||||
| @@ -54,10 +54,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| REAL FUNCTION SNRM2(N,X,INCX) | REAL FUNCTION SNRM2(N,X,INCX) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,N | INTEGER INCX,N | ||||
| @@ -2,14 +2,14 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE SROT(N,SX,INCX,SY,INCY,C,S) | * SUBROUTINE SROT(N,SX,INCX,SY,INCY,C,S) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * REAL C,S | * REAL C,S | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| @@ -17,7 +17,7 @@ | |||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * REAL SX(*),SY(*) | * REAL SX(*),SY(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -30,12 +30,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup single_blas_level1 | ||||
| * | * | ||||
| @@ -51,10 +51,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE SROT(N,SX,INCX,SY,INCY,C,S) | SUBROUTINE SROT(N,SX,INCX,SY,INCY,C,S) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| REAL C,S | REAL C,S | ||||
| @@ -2,18 +2,18 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE SROTG(SA,SB,C,S) | * SUBROUTINE SROTG(SA,SB,C,S) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * REAL C,S,SA,SB | * REAL C,S,SA,SB | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -26,12 +26,12 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup single_blas_level1 | ||||
| * | * | ||||
| @@ -46,10 +46,10 @@ | |||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE SROTG(SA,SB,C,S) | SUBROUTINE SROTG(SA,SB,C,S) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| REAL C,S,SA,SB | REAL C,S,SA,SB | ||||
| @@ -2,21 +2,21 @@ | |||||
| * | * | ||||
| * =========== DOCUMENTATION =========== | * =========== DOCUMENTATION =========== | ||||
| * | * | ||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * Online html documentation available at | |||||
| * http://www.netlib.org/lapack/explore-html/ | |||||
| * | * | ||||
| * Definition: | * Definition: | ||||
| * =========== | * =========== | ||||
| * | * | ||||
| * SUBROUTINE SROTM(N,SX,INCX,SY,INCY,SPARAM) | * SUBROUTINE SROTM(N,SX,INCX,SY,INCY,SPARAM) | ||||
| * | |||||
| * | |||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| * INTEGER INCX,INCY,N | * INTEGER INCX,INCY,N | ||||
| * .. | * .. | ||||
| * .. Array Arguments .. | * .. Array Arguments .. | ||||
| * REAL SPARAM(5),SX(*),SY(*) | * REAL SPARAM(5),SX(*),SY(*) | ||||
| * .. | * .. | ||||
| * | |||||
| * | |||||
| * | * | ||||
| *> \par Purpose: | *> \par Purpose: | ||||
| * ============= | * ============= | ||||
| @@ -87,22 +87,22 @@ | |||||
| * Authors: | * Authors: | ||||
| * ======== | * ======== | ||||
| * | * | ||||
| *> \author Univ. of Tennessee | |||||
| *> \author Univ. of 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 | *> \ingroup single_blas_level1 | ||||
| * | * | ||||
| * ===================================================================== | * ===================================================================== | ||||
| SUBROUTINE SROTM(N,SX,INCX,SY,INCY,SPARAM) | SUBROUTINE SROTM(N,SX,INCX,SY,INCY,SPARAM) | ||||
| * | * | ||||
| * -- Reference BLAS level1 routine (version 3.4.0) -- | |||||
| * -- Reference BLAS level1 routine (version 3.7.0) -- | |||||
| * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | * -- Reference BLAS is a software package provided by Univ. of Tennessee, -- | ||||
| * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- | ||||
| * November 2011 | |||||
| * December 2016 | |||||
| * | * | ||||
| * .. Scalar Arguments .. | * .. Scalar Arguments .. | ||||
| INTEGER INCX,INCY,N | INTEGER INCX,INCY,N | ||||