libflame
revision_anchor
|
00001 /* 00002 00003 Copyright (C) 2014, The University of Texas at Austin 00004 00005 This file is part of libflame and is available under the 3-Clause 00006 BSD license, which can be found in the LICENSE file at the top-level 00007 directory, or at http://opensource.org/licenses/BSD-3-Clause 00008 00009 */ 00010 00011 // --- Level-1 BLAS-like prototypes -------------------------------------------- 00012 00013 // --- amax --- 00014 00015 void bl1_samax( int n, float* x, int incx, int* index ); 00016 void bl1_damax( int n, double* x, int incx, int* index ); 00017 void bl1_camax( int n, scomplex* x, int incx, int* index ); 00018 void bl1_zamax( int n, dcomplex* x, int incx, int* index ); 00019 00020 // --- asum --- 00021 00022 void bl1_sasum( int n, float* x, int incx, float* norm ); 00023 void bl1_dasum( int n, double* x, int incx, double* norm ); 00024 void bl1_casum( int n, scomplex* x, int incx, float* norm ); 00025 void bl1_zasum( int n, dcomplex* x, int incx, double* norm ); 00026 00027 // --- axpy --- 00028 00029 void bl1_saxpy( int n, float* alpha, float* x, int incx, float* y, int incy ); 00030 void bl1_daxpy( int n, double* alpha, double* x, int incx, double* y, int incy ); 00031 void bl1_caxpy( int n, scomplex* alpha, scomplex* x, int incx, scomplex* y, int incy ); 00032 void bl1_zaxpy( int n, dcomplex* alpha, dcomplex* x, int incx, dcomplex* y, int incy ); 00033 00034 // --- axpyv --- 00035 00036 void bl1_saxpyv( conj1_t conj, int n, float* alpha, float* x, int incx, float* y, int incy ); 00037 void bl1_daxpyv( conj1_t conj, int n, double* alpha, double* x, int incx, double* y, int incy ); 00038 void bl1_caxpyv( conj1_t conj, int n, scomplex* alpha, scomplex* x, int incx, scomplex* y, int incy ); 00039 void bl1_zaxpyv( conj1_t conj, int n, dcomplex* alpha, dcomplex* x, int incx, dcomplex* y, int incy ); 00040 00041 // --- axpymt --- 00042 00043 void bl1_saxpymt( trans1_t trans, int m, int n, float* alpha, float* a, int a_rs, int a_cs, float* b, int b_rs, int b_cs ); 00044 void bl1_daxpymt( trans1_t trans, int m, int n, double* alpha, double* a, int a_rs, int a_cs, double* b, int b_rs, int b_cs ); 00045 void bl1_caxpymt( trans1_t trans, int m, int n, scomplex* alpha, scomplex* a, int a_rs, int a_cs, scomplex* b, int b_rs, int b_cs ); 00046 void bl1_zaxpymt( trans1_t trans, int m, int n, dcomplex* alpha, dcomplex* a, int a_rs, int a_cs, dcomplex* b, int b_rs, int b_cs ); 00047 00048 // --- axpymrt --- 00049 00050 void bl1_saxpymrt( uplo1_t uplo, trans1_t trans, int m, int n, float* alpha, float* a, int a_rs, int a_cs, float* b, int b_rs, int b_cs ); 00051 void bl1_daxpymrt( uplo1_t uplo, trans1_t trans, int m, int n, double* alpha, double* a, int a_rs, int a_cs, double* b, int b_rs, int b_cs ); 00052 void bl1_caxpymrt( uplo1_t uplo, trans1_t trans, int m, int n, scomplex* alpha, scomplex* a, int a_rs, int a_cs, scomplex* b, int b_rs, int b_cs ); 00053 void bl1_zaxpymrt( uplo1_t uplo, trans1_t trans, int m, int n, dcomplex* alpha, dcomplex* a, int a_rs, int a_cs, dcomplex* b, int b_rs, int b_cs ); 00054 00055 // --- axpysv --- 00056 00057 void bl1_saxpysv( int n, float* alpha0, float* alpha1, float* x, int incx, float* beta, float* y, int incy ); 00058 void bl1_daxpysv( int n, double* alpha0, double* alpha1, double* x, int incx, double* beta, double* y, int incy ); 00059 void bl1_caxpysv( int n, scomplex* alpha0, scomplex* alpha1, scomplex* x, int incx, scomplex* beta, scomplex* y, int incy ); 00060 void bl1_zaxpysv( int n, dcomplex* alpha0, dcomplex* alpha1, dcomplex* x, int incx, dcomplex* beta, dcomplex* y, int incy ); 00061 00062 // --- axpysmt --- 00063 00064 void bl1_saxpysmt( trans1_t trans, int m, int n, float* alpha0, float* alpha1, float* a, int a_rs, int a_cs, float* beta, float* b, int b_rs, int b_cs ); 00065 void bl1_daxpysmt( trans1_t trans, int m, int n, double* alpha0, double* alpha1, double* a, int a_rs, int a_cs, double* beta, double* b, int b_rs, int b_cs ); 00066 void bl1_caxpysmt( trans1_t trans, int m, int n, scomplex* alpha0, scomplex* alpha1, scomplex* a, int a_rs, int a_cs, scomplex* beta, scomplex* b, int b_rs, int b_cs ); 00067 void bl1_zaxpysmt( trans1_t trans, int m, int n, dcomplex* alpha0, dcomplex* alpha1, dcomplex* a, int a_rs, int a_cs, dcomplex* beta, dcomplex* b, int b_rs, int b_cs ); 00068 00069 // --- conjv --- 00070 00071 void bl1_sconjv( int m, float* x, int incx ); 00072 void bl1_dconjv( int m, double* x, int incx ); 00073 void bl1_cconjv( int m, scomplex* x, int incx ); 00074 void bl1_zconjv( int m, dcomplex* x, int incx ); 00075 00076 // --- conjm --- 00077 00078 void bl1_sconjm( int m, int n, float* a, int a_rs, int a_cs ); 00079 void bl1_dconjm( int m, int n, double* a, int a_rs, int a_cs ); 00080 void bl1_cconjm( int m, int n, scomplex* a, int a_rs, int a_cs ); 00081 void bl1_zconjm( int m, int n, dcomplex* a, int a_rs, int a_cs ); 00082 00083 // --- conjmr --- 00084 00085 void bl1_sconjmr( uplo1_t uplo, int m, int n, float* a, int a_rs, int a_cs ); 00086 void bl1_dconjmr( uplo1_t uplo, int m, int n, double* a, int a_rs, int a_cs ); 00087 void bl1_cconjmr( uplo1_t uplo, int m, int n, scomplex* a, int a_rs, int a_cs ); 00088 void bl1_zconjmr( uplo1_t uplo, int m, int n, dcomplex* a, int a_rs, int a_cs ); 00089 00090 // --- copy --- 00091 00092 void bl1_scopy( int m, float* x, int incx, float* y, int incy ); 00093 void bl1_dcopy( int m, double* x, int incx, double* y, int incy ); 00094 void bl1_ccopy( int m, scomplex* x, int incx, scomplex* y, int incy ); 00095 void bl1_zcopy( int m, dcomplex* x, int incx, dcomplex* y, int incy ); 00096 00097 // --- copyv --- 00098 00099 void bl1_icopyv( conj1_t conj, int m, int* x, int incx, int* y, int incy ); 00100 void bl1_scopyv( conj1_t conj, int m, float* x, int incx, float* y, int incy ); 00101 void bl1_dcopyv( conj1_t conj, int m, double* x, int incx, double* y, int incy ); 00102 void bl1_ccopyv( conj1_t conj, int m, scomplex* x, int incx, scomplex* y, int incy ); 00103 void bl1_zcopyv( conj1_t conj, int m, dcomplex* x, int incx, dcomplex* y, int incy ); 00104 00105 void bl1_sdcopyv( conj1_t conj, int m, float* x, int incx, double* y, int incy ); 00106 void bl1_dscopyv( conj1_t conj, int m, double* x, int incx, float* y, int incy ); 00107 void bl1_sccopyv( conj1_t conj, int m, float* x, int incx, scomplex* y, int incy ); 00108 void bl1_cscopyv( conj1_t conj, int m, scomplex* x, int incx, float* y, int incy ); 00109 void bl1_szcopyv( conj1_t conj, int m, float* x, int incx, dcomplex* y, int incy ); 00110 void bl1_zscopyv( conj1_t conj, int m, dcomplex* x, int incx, float* y, int incy ); 00111 void bl1_dccopyv( conj1_t conj, int m, double* x, int incx, scomplex* y, int incy ); 00112 void bl1_cdcopyv( conj1_t conj, int m, scomplex* x, int incx, double* y, int incy ); 00113 void bl1_dzcopyv( conj1_t conj, int m, double* x, int incx, dcomplex* y, int incy ); 00114 void bl1_zdcopyv( conj1_t conj, int m, dcomplex* x, int incx, double* y, int incy ); 00115 void bl1_czcopyv( conj1_t conj, int m, scomplex* x, int incx, dcomplex* y, int incy ); 00116 void bl1_zccopyv( conj1_t conj, int m, dcomplex* x, int incx, scomplex* y, int incy ); 00117 00118 // --- copymr --- 00119 00120 void bl1_scopymr( uplo1_t uplo, int m, int n, float* a, int a_rs, int a_cs, float* b, int b_rs, int b_cs ); 00121 void bl1_dcopymr( uplo1_t uplo, int m, int n, double* a, int a_rs, int a_cs, double* b, int b_rs, int b_cs ); 00122 void bl1_ccopymr( uplo1_t uplo, int m, int n, scomplex* a, int a_rs, int a_cs, scomplex* b, int b_rs, int b_cs ); 00123 void bl1_zcopymr( uplo1_t uplo, int m, int n, dcomplex* a, int a_rs, int a_cs, dcomplex* b, int b_rs, int b_cs ); 00124 00125 void bl1_sscopymr( uplo1_t uplo, int m, int n, float* a, int a_rs, int a_cs, float* b, int b_rs, int b_cs ); 00126 void bl1_sdcopymr( uplo1_t uplo, int m, int n, float* a, int a_rs, int a_cs, double* b, int b_rs, int b_cs ); 00127 void bl1_dscopymr( uplo1_t uplo, int m, int n, double* a, int a_rs, int a_cs, float* b, int b_rs, int b_cs ); 00128 void bl1_sccopymr( uplo1_t uplo, int m, int n, float* a, int a_rs, int a_cs, scomplex* b, int b_rs, int b_cs ); 00129 void bl1_cscopymr( uplo1_t uplo, int m, int n, scomplex* a, int a_rs, int a_cs, float* b, int b_rs, int b_cs ); 00130 void bl1_szcopymr( uplo1_t uplo, int m, int n, float* a, int a_rs, int a_cs, dcomplex* b, int b_rs, int b_cs ); 00131 void bl1_zscopymr( uplo1_t uplo, int m, int n, dcomplex* a, int a_rs, int a_cs, float* b, int b_rs, int b_cs ); 00132 void bl1_ddcopymr( uplo1_t uplo, int m, int n, double* a, int a_rs, int a_cs, double* b, int b_rs, int b_cs ); 00133 void bl1_dccopymr( uplo1_t uplo, int m, int n, double* a, int a_rs, int a_cs, scomplex* b, int b_rs, int b_cs ); 00134 void bl1_cdcopymr( uplo1_t uplo, int m, int n, scomplex* a, int a_rs, int a_cs, double* b, int b_rs, int b_cs ); 00135 void bl1_dzcopymr( uplo1_t uplo, int m, int n, double* a, int a_rs, int a_cs, dcomplex* b, int b_rs, int b_cs ); 00136 void bl1_zdcopymr( uplo1_t uplo, int m, int n, dcomplex* a, int a_rs, int a_cs, double* b, int b_rs, int b_cs ); 00137 void bl1_cccopymr( uplo1_t uplo, int m, int n, scomplex* a, int a_rs, int a_cs, scomplex* b, int b_rs, int b_cs ); 00138 void bl1_czcopymr( uplo1_t uplo, int m, int n, scomplex* a, int a_rs, int a_cs, dcomplex* b, int b_rs, int b_cs ); 00139 void bl1_zccopymr( uplo1_t uplo, int m, int n, dcomplex* a, int a_rs, int a_cs, scomplex* b, int b_rs, int b_cs ); 00140 void bl1_zzcopymr( uplo1_t uplo, int m, int n, dcomplex* a, int a_rs, int a_cs, dcomplex* b, int b_rs, int b_cs ); 00141 00142 // --- copymrt --- 00143 00144 void bl1_scopymrt( uplo1_t uplo, trans1_t trans, int m, int n, float* a, int a_rs, int a_cs, float* b, int b_rs, int b_cs ); 00145 void bl1_dcopymrt( uplo1_t uplo, trans1_t trans, int m, int n, double* a, int a_rs, int a_cs, double* b, int b_rs, int b_cs ); 00146 void bl1_ccopymrt( uplo1_t uplo, trans1_t trans, int m, int n, scomplex* a, int a_rs, int a_cs, scomplex* b, int b_rs, int b_cs ); 00147 void bl1_zcopymrt( uplo1_t uplo, trans1_t trans, int m, int n, dcomplex* a, int a_rs, int a_cs, dcomplex* b, int b_rs, int b_cs ); 00148 00149 void bl1_sscopymrt( uplo1_t uplo, trans1_t trans, int m, int n, float* a, int a_rs, int a_cs, float* b, int b_rs, int b_cs ); 00150 void bl1_sdcopymrt( uplo1_t uplo, trans1_t trans, int m, int n, float* a, int a_rs, int a_cs, double* b, int b_rs, int b_cs ); 00151 void bl1_sccopymrt( uplo1_t uplo, trans1_t trans, int m, int n, float* a, int a_rs, int a_cs, scomplex* b, int b_rs, int b_cs ); 00152 void bl1_szcopymrt( uplo1_t uplo, trans1_t trans, int m, int n, float* a, int a_rs, int a_cs, dcomplex* b, int b_rs, int b_cs ); 00153 void bl1_dscopymrt( uplo1_t uplo, trans1_t trans, int m, int n, double* a, int a_rs, int a_cs, float* b, int b_rs, int b_cs ); 00154 void bl1_ddcopymrt( uplo1_t uplo, trans1_t trans, int m, int n, double* a, int a_rs, int a_cs, double* b, int b_rs, int b_cs ); 00155 void bl1_dccopymrt( uplo1_t uplo, trans1_t trans, int m, int n, double* a, int a_rs, int a_cs, scomplex* b, int b_rs, int b_cs ); 00156 void bl1_dzcopymrt( uplo1_t uplo, trans1_t trans, int m, int n, double* a, int a_rs, int a_cs, dcomplex* b, int b_rs, int b_cs ); 00157 void bl1_cscopymrt( uplo1_t uplo, trans1_t trans, int m, int n, scomplex* a, int a_rs, int a_cs, float* b, int b_rs, int b_cs ); 00158 void bl1_cdcopymrt( uplo1_t uplo, trans1_t trans, int m, int n, scomplex* a, int a_rs, int a_cs, double* b, int b_rs, int b_cs ); 00159 void bl1_cccopymrt( uplo1_t uplo, trans1_t trans, int m, int n, scomplex* a, int a_rs, int a_cs, scomplex* b, int b_rs, int b_cs ); 00160 void bl1_czcopymrt( uplo1_t uplo, trans1_t trans, int m, int n, scomplex* a, int a_rs, int a_cs, dcomplex* b, int b_rs, int b_cs ); 00161 void bl1_zscopymrt( uplo1_t uplo, trans1_t trans, int m, int n, dcomplex* a, int a_rs, int a_cs, float* b, int b_rs, int b_cs ); 00162 void bl1_zdcopymrt( uplo1_t uplo, trans1_t trans, int m, int n, dcomplex* a, int a_rs, int a_cs, double* b, int b_rs, int b_cs ); 00163 void bl1_zccopymrt( uplo1_t uplo, trans1_t trans, int m, int n, dcomplex* a, int a_rs, int a_cs, scomplex* b, int b_rs, int b_cs ); 00164 void bl1_zzcopymrt( uplo1_t uplo, trans1_t trans, int m, int n, dcomplex* a, int a_rs, int a_cs, dcomplex* b, int b_rs, int b_cs ); 00165 00166 // --- copymt --- 00167 00168 void bl1_icopymt( trans1_t trans, int m, int n, int* a, int a_rs, int a_cs, int* b, int b_rs, int b_cs ); 00169 void bl1_scopymt( trans1_t trans, int m, int n, float* a, int a_rs, int a_cs, float* b, int b_rs, int b_cs ); 00170 void bl1_dcopymt( trans1_t trans, int m, int n, double* a, int a_rs, int a_cs, double* b, int b_rs, int b_cs ); 00171 void bl1_ccopymt( trans1_t trans, int m, int n, scomplex* a, int a_rs, int a_cs, scomplex* b, int b_rs, int b_cs ); 00172 void bl1_zcopymt( trans1_t trans, int m, int n, dcomplex* a, int a_rs, int a_cs, dcomplex* b, int b_rs, int b_cs ); 00173 00174 void bl1_sscopymt( trans1_t trans, int m, int n, float* a, int a_rs, int a_cs, float* b, int b_rs, int b_cs ); 00175 void bl1_sdcopymt( trans1_t trans, int m, int n, float* a, int a_rs, int a_cs, double* b, int b_rs, int b_cs ); 00176 void bl1_dscopymt( trans1_t trans, int m, int n, double* a, int a_rs, int a_cs, float* b, int b_rs, int b_cs ); 00177 void bl1_sccopymt( trans1_t trans, int m, int n, float* a, int a_rs, int a_cs, scomplex* b, int b_rs, int b_cs ); 00178 void bl1_cscopymt( trans1_t trans, int m, int n, scomplex* a, int a_rs, int a_cs, float* b, int b_rs, int b_cs ); 00179 void bl1_szcopymt( trans1_t trans, int m, int n, float* a, int a_rs, int a_cs, dcomplex* b, int b_rs, int b_cs ); 00180 void bl1_zscopymt( trans1_t trans, int m, int n, dcomplex* a, int a_rs, int a_cs, float* b, int b_rs, int b_cs ); 00181 void bl1_ddcopymt( trans1_t trans, int m, int n, double* a, int a_rs, int a_cs, double* b, int b_rs, int b_cs ); 00182 void bl1_dccopymt( trans1_t trans, int m, int n, double* a, int a_rs, int a_cs, scomplex* b, int b_rs, int b_cs ); 00183 void bl1_cdcopymt( trans1_t trans, int m, int n, scomplex* a, int a_rs, int a_cs, double* b, int b_rs, int b_cs ); 00184 void bl1_dzcopymt( trans1_t trans, int m, int n, double* a, int a_rs, int a_cs, dcomplex* b, int b_rs, int b_cs ); 00185 void bl1_zdcopymt( trans1_t trans, int m, int n, dcomplex* a, int a_rs, int a_cs, double* b, int b_rs, int b_cs ); 00186 void bl1_cccopymt( trans1_t trans, int m, int n, scomplex* a, int a_rs, int a_cs, scomplex* b, int b_rs, int b_cs ); 00187 void bl1_czcopymt( trans1_t trans, int m, int n, scomplex* a, int a_rs, int a_cs, dcomplex* b, int b_rs, int b_cs ); 00188 void bl1_zccopymt( trans1_t trans, int m, int n, dcomplex* a, int a_rs, int a_cs, scomplex* b, int b_rs, int b_cs ); 00189 void bl1_zzcopymt( trans1_t trans, int m, int n, dcomplex* a, int a_rs, int a_cs, dcomplex* b, int b_rs, int b_cs ); 00190 00191 // --- dot --- 00192 00193 void bl1_cdot_in( conj1_t conj, int n, scomplex* x, int incx, scomplex* y, int incy, scomplex* rho ); 00194 void bl1_zdot_in( conj1_t conj, int n, dcomplex* x, int incx, dcomplex* y, int incy, dcomplex* rho ); 00195 00196 void bl1_sdot( conj1_t conj, int n, float* x, int incx, float* y, int incy, float* rho ); 00197 void bl1_ddot( conj1_t conj, int n, double* x, int incx, double* y, int incy, double* rho ); 00198 void bl1_cdot( conj1_t conj, int n, scomplex* x, int incx, scomplex* y, int incy, scomplex* rho ); 00199 void bl1_zdot( conj1_t conj, int n, dcomplex* x, int incx, dcomplex* y, int incy, dcomplex* rho ); 00200 00201 // --- dots --- 00202 00203 void bl1_sdots( conj1_t conj, int n, float* alpha, float* x, int incx, float* y, int incy, float* beta, float* rho ); 00204 void bl1_ddots( conj1_t conj, int n, double* alpha, double* x, int incx, double* y, int incy, double* beta, double* rho ); 00205 void bl1_cdots( conj1_t conj, int n, scomplex* alpha, scomplex* x, int incx, scomplex* y, int incy, scomplex* beta, scomplex* rho ); 00206 void bl1_zdots( conj1_t conj, int n, dcomplex* alpha, dcomplex* x, int incx, dcomplex* y, int incy, dcomplex* beta, dcomplex* rho ); 00207 00208 // --- dot2s --- 00209 00210 void bl1_sdot2s( conj1_t conj, int n, float* alpha, float* x, int incx, float* y, int incy, float* beta, float* rho ); 00211 void bl1_ddot2s( conj1_t conj, int n, double* alpha, double* x, int incx, double* y, int incy, double* beta, double* rho ); 00212 void bl1_cdot2s( conj1_t conj, int n, scomplex* alpha, scomplex* x, int incx, scomplex* y, int incy, scomplex* beta, scomplex* rho ); 00213 void bl1_zdot2s( conj1_t conj, int n, dcomplex* alpha, dcomplex* x, int incx, dcomplex* y, int incy, dcomplex* beta, dcomplex* rho ); 00214 00215 // --- fnorm --- 00216 00217 void bl1_sfnorm( int m, int n, float* a, int a_rs, int a_cs, float* norm ); 00218 void bl1_dfnorm( int m, int n, double* a, int a_rs, int a_cs, double* norm ); 00219 void bl1_cfnorm( int m, int n, scomplex* a, int a_rs, int a_cs, float* norm ); 00220 void bl1_zfnorm( int m, int n, dcomplex* a, int a_rs, int a_cs, double* norm ); 00221 00222 // --- invscalv --- 00223 00224 void bl1_sinvscalv( conj1_t conj, int n, float* alpha, float* x, int incx ); 00225 void bl1_dinvscalv( conj1_t conj, int n, double* alpha, double* x, int incx ); 00226 void bl1_csinvscalv( conj1_t conj, int n, float* alpha, scomplex* x, int incx ); 00227 void bl1_cinvscalv( conj1_t conj, int n, scomplex* alpha, scomplex* x, int incx ); 00228 void bl1_zdinvscalv( conj1_t conj, int n, double* alpha, dcomplex* x, int incx ); 00229 void bl1_zinvscalv( conj1_t conj, int n, dcomplex* alpha, dcomplex* x, int incx ); 00230 00231 // --- invscalm --- 00232 00233 void bl1_sinvscalm( conj1_t conj, int m, int n, float* alpha, float* a, int a_rs, int a_cs ); 00234 void bl1_dinvscalm( conj1_t conj, int m, int n, double* alpha, double* a, int a_rs, int a_cs ); 00235 void bl1_csinvscalm( conj1_t conj, int m, int n, float* alpha, scomplex* a, int a_rs, int a_cs ); 00236 void bl1_cinvscalm( conj1_t conj, int m, int n, scomplex* alpha, scomplex* a, int a_rs, int a_cs ); 00237 void bl1_zdinvscalm( conj1_t conj, int m, int n, double* alpha, dcomplex* a, int a_rs, int a_cs ); 00238 void bl1_zinvscalm( conj1_t conj, int m, int n, dcomplex* alpha, dcomplex* a, int a_rs, int a_cs ); 00239 00240 // --- nrm2 --- 00241 00242 void bl1_snrm2( int n, float* x, int incx, float* norm ); 00243 void bl1_dnrm2( int n, double* x, int incx, double* norm ); 00244 void bl1_cnrm2( int n, scomplex* x, int incx, float* norm ); 00245 void bl1_znrm2( int n, dcomplex* x, int incx, double* norm ); 00246 00247 // --- scal --- 00248 00249 void bl1_sscal( int n, float* alpha, float* x, int incx ); 00250 void bl1_dscal( int n, double* alpha, double* x, int incx ); 00251 void bl1_csscal( int n, float* alpha, scomplex* x, int incx ); 00252 void bl1_cscal( int n, scomplex* alpha, scomplex* x, int incx ); 00253 void bl1_zdscal( int n, double* alpha, dcomplex* x, int incx ); 00254 void bl1_zscal( int n, dcomplex* alpha, dcomplex* x, int incx ); 00255 00256 // --- scalv --- 00257 00258 void bl1_sscalv( conj1_t conj, int n, float* alpha, float* x, int incx ); 00259 void bl1_dscalv( conj1_t conj, int n, double* alpha, double* x, int incx ); 00260 void bl1_csscalv( conj1_t conj, int n, float* alpha, scomplex* x, int incx ); 00261 void bl1_cscalv( conj1_t conj, int n, scomplex* alpha, scomplex* x, int incx ); 00262 void bl1_zdscalv( conj1_t conj, int n, double* alpha, dcomplex* x, int incx ); 00263 void bl1_zscalv( conj1_t conj, int n, dcomplex* alpha, dcomplex* x, int incx ); 00264 00265 // --- scalm --- 00266 00267 void bl1_sscalm( conj1_t conj, int m, int n, float* alpha, float* a, int a_rs, int a_cs ); 00268 void bl1_dscalm( conj1_t conj, int m, int n, double* alpha, double* a, int a_rs, int a_cs ); 00269 void bl1_csscalm( conj1_t conj, int m, int n, float* alpha, scomplex* a, int a_rs, int a_cs ); 00270 void bl1_cscalm( conj1_t conj, int m, int n, scomplex* alpha, scomplex* a, int a_rs, int a_cs ); 00271 void bl1_zdscalm( conj1_t conj, int m, int n, double* alpha, dcomplex* a, int a_rs, int a_cs ); 00272 void bl1_zscalm( conj1_t conj, int m, int n, dcomplex* alpha, dcomplex* a, int a_rs, int a_cs ); 00273 00274 // --- scalmr --- 00275 00276 void bl1_sscalmr( uplo1_t uplo, int m, int n, float* alpha, float* a, int a_rs, int a_cs ); 00277 void bl1_dscalmr( uplo1_t uplo, int m, int n, double* alpha, double* a, int a_rs, int a_cs ); 00278 void bl1_csscalmr( uplo1_t uplo, int m, int n, float* alpha, scomplex* a, int a_rs, int a_cs ); 00279 void bl1_cscalmr( uplo1_t uplo, int m, int n, scomplex* alpha, scomplex* a, int a_rs, int a_cs ); 00280 void bl1_zdscalmr( uplo1_t uplo, int m, int n, double* alpha, dcomplex* a, int a_rs, int a_cs ); 00281 void bl1_zscalmr( uplo1_t uplo, int m, int n, dcomplex* alpha, dcomplex* a, int a_rs, int a_cs ); 00282 00283 // --- swap --- 00284 00285 void bl1_sswap( int n, float* x, int incx, float* y, int incy ); 00286 void bl1_dswap( int n, double* x, int incx, double* y, int incy ); 00287 void bl1_cswap( int n, scomplex* x, int incx, scomplex* y, int incy ); 00288 void bl1_zswap( int n, dcomplex* x, int incx, dcomplex* y, int incy ); 00289 00290 // --- swapv --- 00291 00292 void bl1_sswapv( int n, float* x, int incx, float* y, int incy ); 00293 void bl1_dswapv( int n, double* x, int incx, double* y, int incy ); 00294 void bl1_cswapv( int n, scomplex* x, int incx, scomplex* y, int incy ); 00295 void bl1_zswapv( int n, dcomplex* x, int incx, dcomplex* y, int incy ); 00296 00297 // --- swapmt --- 00298 00299 void bl1_sswapmt( trans1_t trans, int m, int n, float* a, int a_rs, int a_cs, float* b, int b_rs, int b_cs ); 00300 void bl1_dswapmt( trans1_t trans, int m, int n, double* a, int a_rs, int a_cs, double* b, int b_rs, int b_cs ); 00301 void bl1_cswapmt( trans1_t trans, int m, int n, scomplex* a, int a_rs, int a_cs, scomplex* b, int b_rs, int b_cs ); 00302 void bl1_zswapmt( trans1_t trans, int m, int n, dcomplex* a, int a_rs, int a_cs, dcomplex* b, int b_rs, int b_cs ); 00303