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 void FLA_C2F( spotrf )( char* uplo, int* n, float* a, int* lda, int* info );
00037 void FLA_C2F( spotf2 )( char* uplo, int* n, float* a, int* lda, int* info );
00038
00039 void FLA_C2F( sgetrf )( int* m, int* n, float* a, int* lda, int* ipiv, int* info );
00040 void FLA_C2F( sgetf2 )( int* m, int* n, float* a, int* lda, int* ipiv, int* info );
00041
00042 void FLA_C2F( sgetnf )( int* m, int* n, float* a, int* lda, int* info );
00043 void FLA_C2F( sgetn2 )( int* m, int* n, float* a, int* lda, int* info );
00044
00045 void FLA_C2F( sgeqrf )( int* m, int* n, float* a, int* lda, float* tau, float* work, int* lwork, int* info );
00046 void FLA_C2F( sgeqr2 )( int* m, int* n, float* a, int* lda, float* tau, float* work, int* info );
00047
00048 void FLA_C2F( sgeqrfut )( int* m, int* n, float* a, int* lda, float* tau, float* work, int* lwork, int* info );
00049 void FLA_C2F( sgeqr2ut )( int* m, int* n, float* a, int* lda, float* tau, float* work, int* info );
00050
00051 void FLA_C2F( sgelqf )( int* m, int* n, float* a, int* lda, float* tau, float* work, int* lwork, int* info );
00052 void FLA_C2F( sgelq2 )( int* m, int* n, float* a, int* lda, float* tau, float* work, int* info );
00053
00054 void FLA_C2F( sgelqfut )( int* m, int* n, float* a, int* lda, float* tau, float* work, int* lwork, int* info );
00055 void FLA_C2F( sgelq2ut )( int* m, int* n, float* a, int* lda, float* tau, float* work, int* info );
00056
00057 void FLA_C2F( slarftut )( char* direct, char* storev, int* n, int* k, float* v, int* ldv, float* tau, float* t, int* ldt );
00058 void FLA_C2F( slarfbut )( char* side, char* trans, char* direct, char* storev, int* m, int* n, int* k, float* v, int* ldv, float* t, int* ldt, float* c, int* ldc, float* work, int* ldwork );
00059 void FLA_C2F( slarfgut )( int* n, float* alpha, float* x, int* incx, float* tau );
00060
00061 void FLA_C2F( sgehrd )( int* n, int* ilo, int* ihi, float* a, int* lda, float* tau, float* work, int* lwork, int* info );
00062 void FLA_C2F( sgehd2 )( int* n, int* ilo, int* ihi, float* a, int* lda, float* tau, float* work, int* info );
00063
00064 void FLA_C2F( strtri )( char* uplo, char* diag, int* n, float* a, int* lda, int* info );
00065 void FLA_C2F( strti2 )( char* uplo, char* diag, int* n, float* a, int* lda, int* info );
00066
00067 void FLA_C2F( slauum )( char* uplo, int* n, float* a, int* lda, int* info );
00068 void FLA_C2F( slauu2 )( char* uplo, int* n, float* a, int* lda, int* info );
00069
00070 void FLA_C2F( strsyl )( char* transa, char* transb, int* isgn, int* m, int* n, float* a, int* lda, float* b, int* ldb, float* c, int* ldc, float* scale, int* info );
00071
00072 void FLA_C2F( slaswp )( int* n, float* a, int* lda, int* k1, int* k2, int* ipiv, int* incx );
00073 void FLA_C2F( slarft )( char* direct, char* storev, int* n, int* k, float* v, int* ldv, float* tau, float* t, int* ldt );
00074 void FLA_C2F( slarfg )( int* n, float* alpha, float* x, int* incx, float* tau );
00075 void FLA_C2F( slaset )( char* uplo, int* m, int* n, float* alpha, float* beta, float* a, int* lda );
00076
00077 void FLA_C2F( sormqr )( char* side, char* trans, int* m, int* n, int* k, float* a, int* lda, float* tau, float* c, int* ldc, float* work, int* lwork, int* info );
00078 void FLA_C2F( sorm2r )( char* side, char* trans, int* m, int* n, int* k, float* a, int* lda, float* tau, float* c, int* ldc, float* work, int* info );
00079 void FLA_C2F( sormlq )( char* side, char* trans, int* m, int* n, int* k, float* a, int* lda, float* tau, float* c, int* ldc, float* work, int* lwork, int* info );
00080 void FLA_C2F( sorml2 )( char* side, char* trans, int* m, int* n, int* k, float* a, int* lda, float* tau, float* c, int* ldc, float* work, int* info );
00081
00082
00083 void FLA_C2F( dpotrf )( char* uplo, int* n, double* a, int* lda, int* info );
00084 void FLA_C2F( dpotf2 )( char* uplo, int* n, double* a, int* lda, int* info );
00085
00086 void FLA_C2F( dgetrf )( int* m, int* n, double* a, int* lda, int* ipiv, int* info );
00087 void FLA_C2F( dgetf2 )( int* m, int* n, double* a, int* lda, int* ipiv, int* info );
00088
00089 void FLA_C2F( dgetnf )( int* m, int* n, double* a, int* lda, int* info );
00090 void FLA_C2F( dgetn2 )( int* m, int* n, double* a, int* lda, int* info );
00091
00092 void FLA_C2F( dgeqrf )( int* m, int* n, double* a, int* lda, double* tau, double* work, int* lwork, int* info );
00093 void FLA_C2F( dgeqr2 )( int* m, int* n, double* a, int* lda, double* tau, double* work, int* info );
00094
00095 void FLA_C2F( dgeqrfut )( int* m, int* n, double* a, int* lda, double* tau, double* work, int* lwork, int* info );
00096 void FLA_C2F( dgeqr2ut )( int* m, int* n, double* a, int* lda, double* tau, double* work, int* info );
00097
00098 void FLA_C2F( dgelqf )( int* m, int* n, double* a, int* lda, double* tau, double* work, int* lwork, int* info );
00099 void FLA_C2F( dgelq2 )( int* m, int* n, double* a, int* lda, double* tau, double* work, int* info );
00100
00101 void FLA_C2F( dgelqfut )( int* m, int* n, double* a, int* lda, double* tau, double* work, int* lwork, int* info );
00102 void FLA_C2F( dgelq2ut )( int* m, int* n, double* a, int* lda, double* tau, double* work, int* info );
00103
00104 void FLA_C2F( dlarftut )( char* direct, char* storev, int* n, int* k, double* v, int* ldv, double* tau, double* t, int* ldt );
00105 void FLA_C2F( dlarfbut )( char* side, char* trans, char* direct, char* storev, int* m, int* n, int* k, double* v, int* ldv, double* t, int* ldt, double* c, int* ldc, double* work, int* ldwork );
00106 void FLA_C2F( dlarfgut )( int* n, double* alpha, double* x, int* incx, double* tau );
00107
00108 void FLA_C2F( dgehrd )( int* n, int* ilo, int* ihi, double* a, int* lda, double* tau, double* work, int* lwork, int* info );
00109 void FLA_C2F( dgehd2 )( int* n, int* ilo, int* ihi, double* a, int* lda, double* tau, double* work, int* info );
00110
00111 void FLA_C2F( dtrtri )( char* uplo, char* diag, int* n, double* a, int* lda, int* info );
00112 void FLA_C2F( dtrti2 )( char* uplo, char* diag, int* n, double* a, int* lda, int* info );
00113
00114 void FLA_C2F( dlauum )( char* uplo, int* n, double* a, int* lda, int* info );
00115 void FLA_C2F( dlauu2 )( char* uplo, int* n, double* a, int* lda, int* info );
00116
00117 void FLA_C2F( dtrsyl )( char* transa, char* transb, int* isgn, int* m, int* n, double* a, int* lda, double* b, int* ldb, double* c, int* ldc, double* scale, int* info );
00118
00119 void FLA_C2F( dlaswp )( int* n, double* a, int* lda, int* k1, int* k2, int* ipiv, int* incx );
00120 void FLA_C2F( dlarft )( char* direct, char* storev, int* n, int* k, double* v, int* ldv, double* tau, double* t, int* ldt );
00121 void FLA_C2F( dlarfg )( int* n, double* alpha, double* x, int* incx, double* tau );
00122 void FLA_C2F( dlaset )( char* uplo, int* m, int* n, double* alpha, double* beta, double* a, int* lda );
00123
00124 void FLA_C2F( dormqr )( char* side, char* trans, int* m, int* n, int* k, double* a, int* lda, double* tau, double* c, int* ldc, double* work, int* lwork, int* info );
00125 void FLA_C2F( dorm2r )( char* side, char* trans, int* m, int* n, int* k, double* a, int* lda, double* tau, double* c, int* ldc, double* work, int* info );
00126 void FLA_C2F( dormlq )( char* side, char* trans, int* m, int* n, int* k, double* a, int* lda, double* tau, double* c, int* ldc, double* work, int* lwork, int* info );
00127 void FLA_C2F( dorml2 )( char* side, char* trans, int* m, int* n, int* k, double* a, int* lda, double* tau, double* c, int* ldc, double* work, int* info );
00128
00129
00130 void FLA_C2F( cpotrf )( char* uplo, int* n, scomplex* a, int* lda, int* info );
00131 void FLA_C2F( cpotf2 )( char* uplo, int* n, scomplex* a, int* lda, int* info );
00132
00133 void FLA_C2F( cgetrf )( int* m, int* n, scomplex* a, int* lda, int* ipiv, int* info );
00134 void FLA_C2F( cgetf2 )( int* m, int* n, scomplex* a, int* lda, int* ipiv, int* info );
00135
00136 void FLA_C2F( cgetnf )( int* m, int* n, scomplex* a, int* lda, int* info );
00137 void FLA_C2F( cgetn2 )( int* m, int* n, scomplex* a, int* lda, int* info );
00138
00139 void FLA_C2F( cgeqrf )( int* m, int* n, scomplex* a, int* lda, scomplex* tau, scomplex* work, int* lwork, int* info );
00140 void FLA_C2F( cgeqr2 )( int* m, int* n, scomplex* a, int* lda, scomplex* tau, scomplex* work, int* info );
00141
00142 void FLA_C2F( cgeqrfut )( int* m, int* n, scomplex* a, int* lda, scomplex* tau, scomplex* work, int* lwork, int* info );
00143 void FLA_C2F( cgeqr2ut )( int* m, int* n, scomplex* a, int* lda, scomplex* tau, scomplex* work, int* info );
00144
00145 void FLA_C2F( cgelqf )( int* m, int* n, scomplex* a, int* lda, scomplex* tau, scomplex* work, int* lwork, int* info );
00146 void FLA_C2F( cgelq2 )( int* m, int* n, scomplex* a, int* lda, scomplex* tau, scomplex* work, int* info );
00147
00148 void FLA_C2F( cgelqfut )( int* m, int* n, scomplex* a, int* lda, scomplex* tau, scomplex* work, int* lwork, int* info );
00149 void FLA_C2F( cgelq2ut )( int* m, int* n, scomplex* a, int* lda, scomplex* tau, scomplex* work, int* info );
00150
00151 void FLA_C2F( clarftut )( char* direct, char* storev, int* n, int* k, scomplex* v, int* ldv, scomplex* tau, scomplex* t, int* ldt );
00152 void FLA_C2F( clarfbut )( char* side, char* trans, char* direct, char* storev, int* m, int* n, int* k, scomplex* v, int* ldv, scomplex* t, int* ldt, scomplex* c, int* ldc, scomplex* work, int* ldwork );
00153 void FLA_C2F( clarfgut )( int* n, scomplex* alpha, scomplex* x, int* incx, scomplex* tau );
00154
00155 void FLA_C2F( cgehrd )( int* n, int* ilo, int* ihi, scomplex* a, int* lda, scomplex* tau, scomplex* work, int* lwork, int* info );
00156 void FLA_C2F( cgehd2 )( int* n, int* ilo, int* ihi, scomplex* a, int* lda, scomplex* tau, scomplex* work, int* info );
00157
00158 void FLA_C2F( ctrtri )( char* uplo, char* diag, int* n, scomplex* a, int* lda, int* info );
00159 void FLA_C2F( ctrti2 )( char* uplo, char* diag, int* n, scomplex* a, int* lda, int* info );
00160
00161 void FLA_C2F( clauum )( char* uplo, int* n, scomplex* a, int* lda, int* info );
00162 void FLA_C2F( clauu2 )( char* uplo, int* n, scomplex* a, int* lda, int* info );
00163
00164 void FLA_C2F( ctrsyl )( char* transa, char* transb, int* isgn, int* m, int* n, scomplex* a, int* lda, scomplex* b, int* ldb, scomplex* c, int* ldc, float* scale, int* info );
00165
00166 void FLA_C2F( claswp )( int* n, scomplex* a, int* lda, int* k1, int* k2, int* ipiv, int* incx );
00167 void FLA_C2F( clarft )( char* direct, char* storev, int* n, int* k, scomplex* v, int* ldv, scomplex* tau, scomplex* t, int* ldt );
00168 void FLA_C2F( clarfg )( int* n, scomplex* alpha, scomplex* x, int* incx, scomplex* tau );
00169 void FLA_C2F( claset )( char* uplo, int* m, int* n, scomplex* alpha, scomplex* beta, scomplex* a, int* lda );
00170
00171 void FLA_C2F( cunmqr )( char* side, char* trans, int* m, int* n, int* k, scomplex* a, int* lda, scomplex* tau, scomplex* c, int* ldc, scomplex* work, int* lwork, int* info );
00172 void FLA_C2F( cunm2r )( char* side, char* trans, int* m, int* n, int* k, scomplex* a, int* lda, scomplex* tau, scomplex* c, int* ldc, scomplex* work, int* info );
00173 void FLA_C2F( cunmlq )( char* side, char* trans, int* m, int* n, int* k, scomplex* a, int* lda, scomplex* tau, scomplex* c, int* ldc, scomplex* work, int* lwork, int* info );
00174 void FLA_C2F( cunml2 )( char* side, char* trans, int* m, int* n, int* k, scomplex* a, int* lda, scomplex* tau, scomplex* c, int* ldc, scomplex* work, int* info );
00175
00176
00177 void FLA_C2F( zpotrf )( char* uplo, int* n, dcomplex* a, int* lda, int* info );
00178 void FLA_C2F( zpotf2 )( char* uplo, int* n, dcomplex* a, int* lda, int* info );
00179
00180 void FLA_C2F( zgetrf )( int* m, int* n, dcomplex* a, int* lda, int* ipiv, int* info );
00181 void FLA_C2F( zgetf2 )( int* m, int* n, dcomplex* a, int* lda, int* ipiv, int* info );
00182
00183 void FLA_C2F( zgetnf )( int* m, int* n, dcomplex* a, int* lda, int* info );
00184 void FLA_C2F( zgetn2 )( int* m, int* n, dcomplex* a, int* lda, int* info );
00185
00186 void FLA_C2F( zgeqrf )( int* m, int* n, dcomplex* a, int* lda, dcomplex* tau, dcomplex* work, int* lwork, int* info );
00187 void FLA_C2F( zgeqr2 )( int* m, int* n, dcomplex* a, int* lda, dcomplex* tau, dcomplex* work, int* info );
00188
00189 void FLA_C2F( zgeqrfut )( int* m, int* n, dcomplex* a, int* lda, dcomplex* tau, dcomplex* work, int* lwork, int* info );
00190 void FLA_C2F( zgeqr2ut )( int* m, int* n, dcomplex* a, int* lda, dcomplex* tau, dcomplex* work, int* info );
00191
00192 void FLA_C2F( zgelqf )( int* m, int* n, dcomplex* a, int* lda, dcomplex* tau, dcomplex* work, int* lwork, int* info );
00193 void FLA_C2F( zgelq2 )( int* m, int* n, dcomplex* a, int* lda, dcomplex* tau, dcomplex* work, int* info );
00194
00195 void FLA_C2F( zgelqfut )( int* m, int* n, dcomplex* a, int* lda, dcomplex* tau, dcomplex* work, int* lwork, int* info );
00196 void FLA_C2F( zgelq2ut )( int* m, int* n, dcomplex* a, int* lda, dcomplex* tau, dcomplex* work, int* info );
00197
00198 void FLA_C2F( zlarftut )( char* direct, char* storev, int* n, int* k, dcomplex* v, int* ldv, dcomplex* tau, dcomplex* t, int* ldt );
00199 void FLA_C2F( zlarfbut )( char* side, char* trans, char* direct, char* storev, int* m, int* n, int* k, dcomplex* v, int* ldv, dcomplex* t, int* ldt, dcomplex* c, int* ldc, dcomplex* work, int* ldwork );
00200 void FLA_C2F( zlarfgut )( int* n, dcomplex* alpha, dcomplex* x, int* incx, dcomplex* tau );
00201
00202 void FLA_C2F( zgehrd )( int* n, int* ilo, int* ihi, dcomplex* a, int* lda, dcomplex* tau, dcomplex* work, int* lwork, int* info );
00203 void FLA_C2F( zgehd2 )( int* n, int* ilo, int* ihi, dcomplex* a, int* lda, dcomplex* tau, dcomplex* work, int* info );
00204
00205 void FLA_C2F( ztrtri )( char* uplo, char* diag, int* n, dcomplex* a, int* lda, int* info );
00206 void FLA_C2F( ztrti2 )( char* uplo, char* diag, int* n, dcomplex* a, int* lda, int* info );
00207
00208 void FLA_C2F( zlauum )( char* uplo, int* n, dcomplex* a, int* lda, int* info );
00209 void FLA_C2F( zlauu2 )( char* uplo, int* n, dcomplex* a, int* lda, int* info );
00210
00211 void FLA_C2F( ztrsyl )( char* transa, char* transb, int* isgn, int* m, int* n, dcomplex* a, int* lda, dcomplex* b, int* ldb, dcomplex* c, int* ldc, double* scale, int* info );
00212
00213 void FLA_C2F( zlaswp )( int* n, dcomplex* a, int* lda, int* k1, int* k2, int* ipiv, int* incx );
00214 void FLA_C2F( zlarft )( char* direct, char* storev, int* n, int* k, dcomplex* v, int* ldv, dcomplex* tau, dcomplex* t, int* ldt );
00215 void FLA_C2F( zlarfg )( int* n, dcomplex* alpha, dcomplex* x, int* incx, dcomplex* tau );
00216 void FLA_C2F( zlaset )( char* uplo, int* m, int* n, dcomplex* alpha, dcomplex* beta, dcomplex* a, int* lda );
00217
00218 void FLA_C2F( zunmqr )( char* side, char* trans, int* m, int* n, int* k, dcomplex* a, int* lda, dcomplex* tau, dcomplex* c, int* ldc, dcomplex* work, int* lwork, int* info );
00219 void FLA_C2F( zunm2r )( char* side, char* trans, int* m, int* n, int* k, dcomplex* a, int* lda, dcomplex* tau, dcomplex* c, int* ldc, dcomplex* work, int* info );
00220 void FLA_C2F( zunmlq )( char* side, char* trans, int* m, int* n, int* k, dcomplex* a, int* lda, dcomplex* tau, dcomplex* c, int* ldc, dcomplex* work, int* lwork, int* info );
00221 void FLA_C2F( zunml2 )( char* side, char* trans, int* m, int* n, int* k, dcomplex* a, int* lda, dcomplex* tau, dcomplex* c, int* ldc, dcomplex* work, int* info );