libflame  revision_anchor
blis_prototypes_level1.h
Go to the documentation of this file.
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