IFPACK Development
ifp_spblas.h
00001 /*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
00002 /*             ********   ***                                 SparseLib++    */
00003 /*          *******  **  ***       ***      ***               v. 1.5         */
00004 /*           *****      ***     ******** ********                            */
00005 /*            *****    ***     ******** ********              R. Pozo        */
00006 /*       **  *******  ***   **   ***      ***                 K. Remington   */
00007 /*        ********   ********                                 A. Lumsdaine   */
00008 /*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
00009 /*                                                                           */
00010 /*                                                                           */
00011 /*                     SparseLib++ : Sparse Matrix Library                   */
00012 /*                                                                           */
00013 /*               National Institute of Standards and Technology              */
00014 /*                        University of Notre Dame                           */
00015 /*              Authors: R. Pozo, K. Remington, A. Lumsdaine                 */
00016 /*                                                                           */
00017 /*                                 NOTICE                                    */
00018 /*                                                                           */
00019 /* Permission to use, copy, modify, and distribute this software and         */
00020 /* its documentation for any purpose and without fee is hereby granted       */
00021 /* provided that the above notice appear in all copies and supporting        */
00022 /* documentation.                                                            */
00023 /*                                                                           */
00024 /* Neither the Institutions (National Institute of Standards and Technology, */
00025 /* University of Notre Dame) nor the Authors make any representations about  */
00026 /* the suitability of this software for any purpose.  This software is       */
00027 /* provided ``as is'' without expressed or implied warranty.                 */
00028 /*                                                                           */
00029 /*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
00030 
00031 
00032 #ifndef IFP_SPBLAS_H
00033 #define IFP_SPBLAS_H
00034 
00035 #include "Ifpack_config.h"
00036 
00037 #include "ifp_arch.h"
00038 
00039 #ifdef COMPLEX_SUPPORT
00040 #include "complex.h"
00041 #endif
00042 
00043 extern "C" {
00044 
00045 IFPACK_DEPRECATED void F77NAME(scoomm)
00046   (const int &transa, const int &m, const int &n, const int &k, 
00047    const float &alpha, 
00048    const int descra[], const float *val, 
00049    const int *indx, const int *jndx, const int &nnz, 
00050    const float *b, const int &ldb, 
00051    const float &beta, float *c, const int &ldc, 
00052    float *work, const int &lwork);
00053 
00054 IFPACK_DEPRECATED void F77NAME(scscmm)
00055   (const int &transa, const int &m, const int &n, const int &k, 
00056    const float &alpha, 
00057    const int descra[], const float *val, 
00058    const int *indx, const int *pntr, const float *b, int &ldb, 
00059    const float &beta, float *c, const int &ldc, 
00060    float *work, const int &lwork);
00061    
00062 IFPACK_DEPRECATED void F77NAME(scsrmm)
00063   (const int &transa, const int &m, const int &n, const int &k, 
00064    const float &alpha, 
00065    const int descra[], const float *val, 
00066    const int *indx, const int *pntr, const float *b, int &ldb, 
00067    const float &beta, float *c, const int &ldc, 
00068    float *work, const int &lwork);
00069    
00070 IFPACK_DEPRECATED void F77NAME(dcoomm)
00071   (const int &transa, const int &m, const int &n, const int &k, 
00072    const double &alpha, 
00073    const int descra[], const double *val, 
00074    const int *indx, const int *jndx, const int &nnz, 
00075    const double *b, const int &ldb, 
00076    const double &beta, double *c, const int &ldc, 
00077    double *work, const int &lwork);
00078 
00079 IFPACK_DEPRECATED void F77NAME(dcscmm)
00080   (const int &transa, const int &m, const int &n, const int &k, 
00081    const double &alpha, 
00082    const int descra[], const double *val, 
00083    const int *indx, const int *pntr, const double *b, int &ldb, 
00084    const double &beta, double *c, const int &ldc, 
00085    double *work, const int &lwork);
00086    
00087 IFPACK_DEPRECATED void F77NAME(dcsrmm)
00088   (const int &transa, const int &m, const int &n, const int &k, 
00089    const double &alpha, 
00090    const int descra[], const double *val, 
00091    const int *indx, const int *pntr, const double *b, int &ldb, 
00092    const double &beta, double *c, const int &ldc, 
00093    double *work, const int &lwork);
00094   
00095 
00096 IFPACK_DEPRECATED void F77NAME(dcscsm)
00097   (const int &transa, const int &m, const int &n,
00098    const int &unitd, const double *dv, const double &alpha, 
00099    const int descra[], const double *val, 
00100    const int *indx, const int *pntr, const double *b, int &ldb, 
00101    const double &beta, double *c, const int &ldc, 
00102    double *work, const int &lwork);
00103 
00104 IFPACK_DEPRECATED void F77NAME(dcsrsm)
00105   (const int &transa, const int &m, const int &n,
00106    const int &unitd, const double *dv, const double &alpha, 
00107    const int descra[], const double *val, 
00108    const int *indx, const int *pntr, const double *b, int &ldb, 
00109    const double &beta, double *c, const int &ldc, 
00110    double *work, const int &lwork);
00111 
00112 IFPACK_DEPRECATED void F77NAME(scscsm)
00113   (const int &transa, const int &m, const int &n,
00114    const int &unitd, const float *dv, const float &alpha, 
00115    const int descra[], const float *val, 
00116    const int *indx, const int *pntr, const float *b, int &ldb, 
00117    const float &beta, float *c, const int &ldc, 
00118    float *work, const int &lwork);
00119 
00120 IFPACK_DEPRECATED void F77NAME(scsrsm)
00121   (const int &transa, const int &m, const int &n,
00122    const int &unitd, const float *dv, const float &alpha, 
00123    const int descra[], const float *val, 
00124    const int *indx, const int *pntr, const float *b, int &ldb, 
00125    const float &beta, float *c, const int &ldc, 
00126    float *work, const int &lwork);
00127 
00128 #ifdef COMPLEX_SUPPORT
00129 
00130 IFPACK_DEPRECATED void F77NAME(zcoomm)
00131   (const int &transa, const int &m, const int &n, const int &k, 
00132    const complex &alpha, 
00133    const int descra[], const complex *val, 
00134    const int *indx, const int *jndx, const int &nnz, 
00135    const complex *b, const int &ldb, 
00136    const complex &beta, complex *c, const int &ldc, 
00137    complex *work, const int &lwork);
00138 
00139 IFPACK_DEPRECATED void F77NAME(zcscmm)
00140   (const int &transa, const int &m, const int &n, const int &k, 
00141    const complex &alpha, 
00142    const int descra[], const complex *val, 
00143    const int *indx, const int *pntr, const complex *b, int &ldb, 
00144    const complex &beta, complex *c, const int &ldc, 
00145    complex *work, const int &lwork);
00146    
00147 IFPACK_DEPRECATED void F77NAME(zcsrmm)
00148   (const int &transa, const int &m, const int &n, const int &k, 
00149    const complex &alpha, 
00150    const int descra[], const complex *val, 
00151    const int *indx, const int *pntr, const complex *b, int &ldb, 
00152    const complex &beta, complex *c, const int &ldc, 
00153    complex *work, const int &lwork);
00154 
00155 IFPACK_DEPRECATED void F77NAME(zcscsm)
00156   (const int &transa, const int &m, const int &n,
00157    const int &unitd, const complex *dv, const complex &alpha, 
00158    const int descra[], const complex *val, 
00159    const int *indx, const int *pntr, const complex *b, int &ldb, 
00160    const complex &beta, complex *c, const int &ldc, 
00161    complex *work, const int &lwork);
00162 
00163 IFPACK_DEPRECATED void F77NAME(zcsrsm)
00164   (const int &transa, const int &m, const int &n,
00165    const int &unitd, const complex *dv, const complex &alpha, 
00166    const int descra[], const complex *val, 
00167    const int *indx, const int *pntr, const complex *b, int &ldb, 
00168    const complex &beta, complex *c, const int &ldc, 
00169    complex *work, const int &lwork);
00170 
00171 
00172 #endif
00173 // COMPLEX_SUPPORT
00174 
00175 
00176 
00177 }
00178 
00179 #endif
 All Classes Files Functions Variables Enumerations Friends