00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033 #include "FLA_F2C.h"
00034
00035
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
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
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
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
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
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
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
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
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
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
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
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