FLA_lapack_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 LAPACK ------------------------------------------------------
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 // --- double-precision real LAPACK ------------------------------------------------------
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 // --- single-precision complex LAPACK ---------------------------------------------------
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 // --- double-precision complex LAPACK ---------------------------------------------------
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 );

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