FLA_blas_f77_prototypes.h

Go to the documentation of this file.
00001 /*
00002    libflame
00003    An object-based infrastructure for developing high-performance
00004    dense linear algebra libraries.
00005 
00006    Copyright (C) 2009, The University of Texas
00007 
00008    libflame is free software; you can redistribute it and/or modify
00009    it under the terms of the GNU Lesser General Public License as
00010    published by the Free Software Foundation; either version 2.1 of
00011    the License, or (at your option) any later version.
00012 
00013    libflame is distributed in the hope that it will be useful, but
00014    WITHOUT ANY WARRANTY; without even the implied warranty of
00015    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
00016    Lesser General Public License for more details.
00017 
00018    You should have received a copy of the GNU Lesser General Public
00019    License along with libflame; if you did not receive a copy, see
00020    http://www.gnu.org/licenses/.
00021 
00022    For more information, please contact us at flame@cs.utexas.edu or
00023    send mail to:
00024 
00025    Field G. Van Zee and/or
00026    Robert A. van de Geijn
00027    The University of Texas at Austin
00028    Department of Computer Sciences
00029    1 University Station C0500
00030    Austin TX 78712
00031 */
00032 
00033 #include "FLA_F2C.h"
00034 
00035 // --- single-precision real level-1 BLAS ------------------------------------------------
00036 float    FLA_C2F( sasum  )( int* n, float* x, int* incx );
00037 void     FLA_C2F( saxpy  )( int* n, float* alpha, float* x, int* incx,  float* y, int* incy );
00038 void     FLA_C2F( scopy  )( int* n, float* x, int* incx, float* y, int* incy );
00039 float    FLA_C2F( sdot   )( int* n, float* x, int* incx, float* y, int* incy );
00040 int      FLA_C2F( isamax )( int* n, float* x, int* incx );
00041 float    FLA_C2F( snrm2  )( int* n, float* x, int* incx );
00042 void     FLA_C2F( sscal  )( int* n, float* alpha, float* y, int* incy );
00043 void     FLA_C2F( sswap  )( int* n, float* x, int* incx, float* y, int* incy );
00044 
00045 // --- double-precision real level-1 BLAS ------------------------------------------------
00046 double   FLA_C2F( dasum  )( int* n, double* x, int* incx );
00047 void     FLA_C2F( daxpy  )( int* n, double* alpha, double* x, int* incx,  double* y, int* incy );
00048 void     FLA_C2F( dcopy  )( int* n, double* x, int* incx, double* y, int* incy );
00049 double   FLA_C2F( ddot   )( int* n, double* x, int* incx, double* y, int* incy );
00050 int      FLA_C2F( idamax )( int* n, double* x, int* incx );
00051 double   FLA_C2F( dnrm2  )( int* n, double* x, int* incx );
00052 void     FLA_C2F( dscal  )( int* n, double* alpha, double* y, int* incy );
00053 void     FLA_C2F( dswap  )( int* n, double* x, int* incx, double* y, int* incy );
00054 
00055 // --- single-precision complex level-1 BLAS ---------------------------------------------
00056 float    FLA_C2F( scasum )( int* n, scomplex* x, int* incx );
00057 void     FLA_C2F( caxpy  )( int* n, scomplex* alpha, scomplex* x, int* incx,  scomplex* y, int* incy );
00058 void     FLA_C2F( ccopy  )( int* n, scomplex* x, int* incx, scomplex* y, int* incy );
00059 scomplex FLA_C2F( cdotu  )( int* n, scomplex* x, int* incx, scomplex* y, int* incy );
00060 scomplex FLA_C2F( cdotc  )( int* n, scomplex* x, int* incx, scomplex* y, int* incy );
00061 int      FLA_C2F( icamax )( int* n, scomplex* x, int* incx );
00062 float    FLA_C2F( scnrm2 )( int* n, scomplex* x, int* incx );
00063 void     FLA_C2F( cscal  )( int* n, scomplex* alpha, scomplex* y, int* incy );
00064 void     FLA_C2F( csscal )( int* n, float*   alpha, scomplex* y, int* incy );
00065 void     FLA_C2F( cswap  )( int* n, scomplex* x, int* incx, scomplex* y, int* incy );
00066 
00067 // --- double-precision complex level-1 BLAS ---------------------------------------------
00068 double   FLA_C2F( dzasum )( int* n, dcomplex* x, int* incx );
00069 void     FLA_C2F( zaxpy  )( int* n, dcomplex* alpha, dcomplex* x, int* incx,  dcomplex* y, int* incy );
00070 void     FLA_C2F( zcopy  )( int* n, dcomplex* x, int* incx, dcomplex* y, int* incy );
00071 dcomplex FLA_C2F( zdotu  )( int* n, dcomplex* x, int* incx, dcomplex* y, int* incy );
00072 dcomplex FLA_C2F( zdotc  )( int* n, dcomplex* x, int* incx, dcomplex* y, int* incy );
00073 int      FLA_C2F( izamax )( int* n, dcomplex* x, int* incx );
00074 double   FLA_C2F( dznrm2 )( int* n, dcomplex* x, int* incx );
00075 void     FLA_C2F( zscal  )( int* n, dcomplex* alpha, dcomplex* y, int* incy );
00076 void     FLA_C2F( zdscal )( int* n, double* alpha, dcomplex* y, int* incy );
00077 void     FLA_C2F( zswap  )( int* n, dcomplex* x, int* incx, dcomplex* y, int* incy );
00078 
00079 
00080 
00081 // --- single-precision real level-2 BLAS ------------------------------------------------
00082 void     FLA_C2F( sgemv  )( char* transa, int* m, int* n, float* alpha, float *a, int* lda, float* x, int* incx, float* beta, float *y, int* incy );
00083 void     FLA_C2F( sger   )( int* m, int* n, float* alpha, float* x, int* incx, float* y, int* incy, float* a, int* lda );
00084 void     FLA_C2F( ssymv  )( char* uplo, int* n, float* alpha, float* a, int* lda, float* x, int* incx, float* beta, float* y, int* incy );
00085 void     FLA_C2F( ssyr   )( char* uplo, int* n, float* alpha, float* x, int* incx, float* a, int* lda );
00086 void     FLA_C2F( ssyr2  )( char* uplo, int* n, float* alpha, float* x, int* incx, float* y, int* incy, float* a, int* lda );
00087 void     FLA_C2F( strmv  )( char* uplo, char* transa, char* diag, int* n,  float* a, int* lda, float* y, int* incy );
00088 void     FLA_C2F( strsv  )( char* uplo, char* transa, char* diag, int* n,  float* a, int* lda, float* y, int* incy );
00089 
00090 // --- double-precision real level-2 BLAS ------------------------------------------------
00091 void     FLA_C2F( dgemv  )( char* transa, int* m, int* n, double* alpha, double *a, int* lda, double* x, int* incx, double* beta, double *y, int* incy );
00092 void     FLA_C2F( dger   )( int* m, int* n, double* alpha, double* x, int* incx, double* y, int* incy, double* a, int* lda );
00093 void     FLA_C2F( dsymv  )( char* uplo, int* n, double* alpha, double* a, int* lda, double* x, int* incx, double* beta, double* y, int* incy );
00094 void     FLA_C2F( dsyr   )( char* uplo, int* n, double* alpha, double* x, int* incx, double* a, int* lda );
00095 void     FLA_C2F( dsyr2  )( char* uplo, int* n, double* alpha, double* x, int* incx, double* y, int* incy, double* a, int* lda );
00096 void     FLA_C2F( dtrmv  )( char* uplo, char* transa, char* diag, int* n,  double* a, int* lda, double* y, int* incy );
00097 void     FLA_C2F( dtrsv  )( char* uplo, char* transa, char* diag, int* n,  double* a, int* lda, double* y, int* incy );
00098 
00099 // --- single-precision complex level-2 BLAS ---------------------------------------------
00100 void     FLA_C2F( cgemv  )( char* transa, int* m, int* n, scomplex* alpha, scomplex *a, int* lda, scomplex* x, int* incx, scomplex* beta, scomplex *y, int* incy );
00101 void     FLA_C2F( cgerc  )( int* m, int* n, scomplex* alpha, scomplex* x, int* incx, scomplex* y, int* incy, scomplex* a, int* lda );
00102 void     FLA_C2F( cgeru  )( int* m, int* n, scomplex* alpha, scomplex* x, int* incx, scomplex* y, int* incy, scomplex* a, int* lda );
00103 void     FLA_C2F( chemv  )( char* uplo, int* n, scomplex* alpha, scomplex* a, int* lda, scomplex* x, int* incx, scomplex* beta, scomplex* y, int* incy );
00104 void     FLA_C2F( cher   )( char* uplo, int* n, float* alpha, scomplex* x, int* incx, scomplex* a, int* lda );
00105 void     FLA_C2F( cher2  )( char* uplo, int* n, scomplex* alpha, scomplex* x, int* incx, scomplex* y, int* incy, scomplex* a, int* lda );
00106 void     FLA_C2F( ctrmv  )( char* uplo, char* transa, char* diag, int* n,  scomplex* a, int* lda, scomplex* y, int* incy );
00107 void     FLA_C2F( ctrsv  )( char* uplo, char* transa, char* diag, int* n,  scomplex* a, int* lda, scomplex* y, int* incy );
00108 
00109 // --- double-precision complex level-2 BLAS ---------------------------------------------
00110 void     FLA_C2F( zgemv  )( char* transa, int* m, int* n, dcomplex* alpha, dcomplex *a, int* lda, dcomplex* x, int* incx, dcomplex* beta, dcomplex *y, int* incy );
00111 void     FLA_C2F( zgerc  )( int* m, int* n, dcomplex* alpha, dcomplex* x, int* incx, dcomplex* y, int* incy, dcomplex* a, int* lda );
00112 void     FLA_C2F( zgeru  )( int* m, int* n, dcomplex* alpha, dcomplex* x, int* incx, dcomplex* y, int* incy, dcomplex* a, int* lda );
00113 void     FLA_C2F( zhemv  )( char* uplo, int* n, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* x, int* incx, dcomplex* beta, dcomplex* y, int* incy );
00114 void     FLA_C2F( zher   )( char* uplo, int* n, double* alpha, dcomplex* x, int* incx, dcomplex* a, int* lda );
00115 void     FLA_C2F( zher2  )( char* uplo, int* n, dcomplex* alpha, dcomplex* x, int* incx, dcomplex* y, int* incy, dcomplex* a, int* lda );
00116 void     FLA_C2F( ztrmv  )( char* uplo, char* transa, char* diag, int* n,  dcomplex* a, int* lda, dcomplex* y, int* incy );
00117 void     FLA_C2F( ztrsv  )( char* uplo, char* transa, char* diag, int* n,  dcomplex* a, int* lda, dcomplex* y, int* incy );
00118 
00119 
00120 
00121 // --- single-precision real level-3 BLAS ------------------------------------------------
00122 void     FLA_C2F( sgemm  )( char* transa, char* transb, int* m, int* n, int* k, float* alpha, float* a, int* lda, float* b, int* ldb, float* beta, float* c, int* ldc );
00123 void     FLA_C2F( ssymm  )( char* side, char* uplo, int* m, int* n, float* alpha, float* a, int* lda, float* b, int* ldb, float* beta, float* c, int* ldc );
00124 void     FLA_C2F( ssyrk  )( char* uplo, char* transa, int* n, int* k, float* alpha, float* a, int* lda, float* beta, float* c, int* ldc );
00125 void     FLA_C2F( ssyr2k )( char* uplo, char* transa, int* n, int* k, float* alpha, float* a, int* lda, float* b, int* ldb, float* beta, float* c, int* ldc );
00126 void     FLA_C2F( strmm  )( char* side, char* uplo, char* transa, char* diag, int* m, int* n, float* alpha, float* a, int* lda, float* b, int* ldb );
00127 void     FLA_C2F( strsm  )( char* side, char* uplo, char* transa, char* diag, int* m, int* n, float* alpha, float* a, int* lda, float* b, int* ldb );
00128 
00129 // --- double-precision real level-3 BLAS ------------------------------------------------
00130 void     FLA_C2F( dgemm  )( char* transa, char* transb, int* m, int* n, int* k, double* alpha, double* a, int* lda, double* b, int* ldb, double* beta, double* c, int* ldc );
00131 void     FLA_C2F( dsymm  )( char* side, char* uplo, int* m, int* n, double* alpha, double* a, int* lda, double* b, int* ldb, double* beta, double* c, int* ldc );
00132 void     FLA_C2F( dsyrk  )( char* uplo, char* transa, int* n, int* k, double* alpha, double* a, int* lda, double* beta, double* c, int* ldc );
00133 void     FLA_C2F( dsyr2k )( char* uplo, char* transa, int* n, int* k, double* alpha, double* a, int* lda, double* b, int* ldb, double* beta, double* c, int* ldc );
00134 void     FLA_C2F( dtrmm  )( char* side, char* uplo, char* transa, char* diag, int* m, int* n, double* alpha, double* a, int* lda, double* b, int* ldb );
00135 void     FLA_C2F( dtrsm  )( char* side, char* uplo, char* transa, char* diag, int* m, int* n, double* alpha, double* a, int* lda, double* b, int* ldb );
00136 
00137 // --- single-precision complex level-3 BLAS ---------------------------------------------
00138 void     FLA_C2F( cgemm  )( char* transa, char* transb, int* m, int* n, int* k, scomplex* alpha, scomplex* a, int* lda, scomplex* b, int* ldb, scomplex* beta, scomplex* c, int* ldc );
00139 void     FLA_C2F( chemm  )( char* side, char* uplo, int* m, int* n, scomplex* alpha, scomplex* a, int* lda, scomplex* b, int* ldb, scomplex* beta, scomplex* c, int* ldc );
00140 void     FLA_C2F( cherk  )( char* uplo, char* transa, int* n, int* k, float* alpha, scomplex* a, int* lda, float* beta, scomplex* c, int* ldc );
00141 void     FLA_C2F( cher2k )( char* uplo, char* transa, int* n, int* k, scomplex* alpha, scomplex* a, int* lda, scomplex* b, int* ldb, float* beta, scomplex *c, int* ldc );
00142 void     FLA_C2F( csymm  )( char* side, char* uplo, int* m, int* n, scomplex* alpha, scomplex* a, int* lda, scomplex* b, int* ldb, scomplex* beta, scomplex* c, int* ldc );
00143 void     FLA_C2F( csyrk  )( char* uplo, char* transa, int* n, int* k, scomplex* alpha, scomplex* a, int* lda, scomplex* beta, scomplex* c, int* ldc );
00144 void     FLA_C2F( csyr2k )( char* uplo, char* transa, int* n, int* k, scomplex* alpha, scomplex* a, int* lda, scomplex* b, int* ldb, scomplex* beta, scomplex* c, int* ldc );
00145 void     FLA_C2F( ctrmm  )( char* side, char* uplo, char* transa, char* diag, int* m, int* n, scomplex* alpha, scomplex* a, int* lda, scomplex* b, int* ldb );
00146 void     FLA_C2F( ctrsm  )( char* side, char* uplo, char* transa, char* diag, int* m, int* n, scomplex* alpha, scomplex* a, int* lda, scomplex* b, int* ldb );
00147 
00148 // --- double-precision complex level-3 BLAS ---------------------------------------------
00149 void     FLA_C2F( zgemm  )( char* transa, char* transb, int* m, int* n, int* k, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* b, int* ldb, dcomplex* beta, dcomplex* c, int* ldc );
00150 void     FLA_C2F( zhemm  )( char* side, char* uplo, int* m, int* n, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* b, int* ldb, dcomplex* beta, dcomplex* c, int* ldc );
00151 void     FLA_C2F( zherk  )( char* uplo, char* transa, int* n, int* k, double* alpha, dcomplex* a, int* lda, double* beta, dcomplex* c, int* ldc );
00152 void     FLA_C2F( zher2k )( char* uplo, char* transa, int* n, int* k, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* b, int* ldb, double* beta, dcomplex *c, int* ldc );
00153 void     FLA_C2F( zsymm  )( char* side, char* uplo, int* m, int* n, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* b, int* ldb, dcomplex* beta, dcomplex* c, int* ldc );
00154 void     FLA_C2F( zsyrk  )( char* uplo, char* transa, int* n, int* k, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* beta, dcomplex* c, int* ldc );
00155 void     FLA_C2F( zsyr2k )( char* uplo, char* transa, int* n, int* k, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* b, int* ldb, dcomplex* beta, dcomplex* c, int* ldc );
00156 void     FLA_C2F( ztrmm  )( char* side, char* uplo, char* transa, char* diag, int* m, int* n, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* b, int* ldb );
00157 void     FLA_C2F( ztrsm  )( char* side, char* uplo, char* transa, char* diag, int* m, int* n, dcomplex* alpha, dcomplex* a, int* lda, dcomplex* b, int* ldb );
00158 

Generated on Mon Jul 6 05:45:48 2009 for libflame by  doxygen 1.5.9