IFPACK Development
ifp_lapackd.h
00001 /*      LAPACK++ (V. 1.0 Beta)                      */
00002 /*      (C) 1992-1994 All Rights Reserved.              */
00003 /*
00004               LAPACK++ 1.0: Linear Algebra Package 1.0
00005                University of Tennessee, Knoxvilee, TN.
00006             Oak Ridge National Laboratory, Oak Ridge, TN.
00007         Authors: J. J. Dongarra, E. Greaser, R. Pozo, D. Walker
00008                  (C) 1992-1993 All Rights Reserved
00009 
00010                              NOTICE
00011 
00012  Permission to use, copy, modify, and distribute this software and
00013  its documentation for any purpose and without fee is hereby granted
00014  provided that the above copyright notice appear in all copies and
00015  that both the copyright notice and this permission notice appear in
00016  supporting documentation.
00017 
00018  Neither the Institutions (University of Tennessee, and Oak Ridge National
00019  Laboratory) nor the Authors make any representations about the suitability
00020  of this software for any purpose.  This software is provided ``as is''
00021  without express or implied warranty.
00022 
00023  LAPACK++ was funded in part by the U.S. Department of Energy, the
00024  National Science Foundation and the State of Tennessee.
00025 */
00026 
00027 //      Double precision Lapack routines
00028 
00029 #ifndef _IFP_DLAPACK_H_
00030 #define _IFP_DLAPACK_H_
00031 
00032 #include "Ifpack_config.h"
00033 
00034 #include "ifp_arch.h"
00035 
00036 extern "C"
00037 {
00038 // *************************** Utility Routines **********************
00039 
00040 
00041     IFPACK_DEPRECATED double F77NAME(dlamch)(char *t);
00042 
00043 
00044 
00045 //******************** Linear Equation Solvers *************************
00046     IFPACK_DEPRECATED void F77NAME(dgesv)(integer *n, integer *k, doublereal *A, integer *lda, integer *ipiv,
00047             doublereal *X, integer *ldx, integer *info);
00048 
00049     IFPACK_DEPRECATED void F77NAME(dposv)(char *uplo, integer *m, integer *k , doublereal *A, integer *lda,
00050         doublereal *X, integer *ldx, integer *info);
00051 
00052     IFPACK_DEPRECATED void F77NAME(dsysv)(const char *uplo, integer *n, integer *nrhs, doublereal *A, 
00053             integer *lda, integer *ipv, integer *lidb, doublereal *work, integer *lwork, integer *info);
00054 
00055 //******************** Lapack Utility Routines ************************
00056 
00057     IFPACK_DEPRECATED void F77NAME(dgels)(char *trans, integer *m, integer *n, integer *nrhs, doublereal *A,
00058         integer *lda, doublereal *B, integer *ldb, doublereal *work, integer *lwork, integer *info);
00059 
00060     IFPACK_DEPRECATED void F77NAME(dtimmg)(integer *iflag, integer *m, integer *n, doublereal *A, integer *lda,
00061                 integer *kl, integer *ku);
00062 
00063     IFPACK_DEPRECATED void F77NAME(dlaswp)(integer *n, doublereal *A, integer *lda, integer *k1, integer *k2,
00064                 integer *ipiv, integer *incx);
00065 
00066     doublereal F77NAME(dopla)(char *subname, integer *m, integer *n, integer *kl, integer *ku,
00067             integer *nb);
00068 
00069 // ******************* LU Factorization Routines **********************
00070 
00071     IFPACK_DEPRECATED void F77NAME(dgetrf)(integer *m, integer *n, doublereal *A, integer *lda, integer *ipiv,
00072                 integer *info);
00073 
00074     IFPACK_DEPRECATED void F77NAME(dgetf2)(integer *m, integer *n, doublereal *A, integer *lda, integer *ipiv,
00075                 integer *info);
00076 
00077     IFPACK_DEPRECATED void F77NAME(dgbtrf)(integer *m, integer *n, integer *KL, integer *KU, doublereal *BM,
00078                 integer *LDBM, integer *ipiv, integer *info);
00079 
00080     IFPACK_DEPRECATED void F77NAME(dgttrf)(integer *N, doublereal *DL, doublereal *D, doublereal *DU,
00081                 doublereal *DU2, integer *ipiv, integer *info);
00082 
00083     IFPACK_DEPRECATED void F77NAME(dpotrf)(char *UPLO, integer *N, doublereal *SM, integer *LDSM,
00084                 integer *info);
00085 
00086     IFPACK_DEPRECATED void F77NAME(dsytrf)(char *UPLO, integer *N, doublereal *SM, integer *LDSM,
00087                 integer *ipiv, doublereal *WORK, integer *LWORK, integer *info);
00088 
00089     IFPACK_DEPRECATED void F77NAME(dpbtrf)(char *UPLO, integer *N, integer *KD, doublereal *SBM,
00090                 integer *LDSM, integer *info);
00091 
00092     IFPACK_DEPRECATED void F77NAME(dpttrf)(integer *N, doublereal *D, doublereal *E, integer *info);
00093 
00094 // ********************* LU Solve Routines ***************************
00095 
00096     IFPACK_DEPRECATED void F77NAME(dgetrs)(char *trans, integer *N, integer *nrhs, doublereal *A, integer *lda, 
00097             integer * ipiv, doublereal *b, integer *ldb, integer *info);
00098 
00099     IFPACK_DEPRECATED void F77NAME(dgbtrs)(char *trans, integer *N, integer *kl, integer *ku, integer *nrhs,
00100             doublereal *AB, integer *ldab, integer *ipiv, doublereal *b, integer *ldb, integer *info);
00101 
00102     IFPACK_DEPRECATED void F77NAME(dsytrs)(char *uplo, integer *N, integer *nrhs, doublereal *A, integer *lda, 
00103             integer *ipiv, doublereal *b, integer *ldb, integer *info);
00104 
00105     IFPACK_DEPRECATED void F77NAME(dgttrs)(char *trans, integer *N, integer *nrhs, doublereal *DL, 
00106                 doublereal *D, doublereal *DU, doublereal *DU2, integer *ipiv, doublereal *b, 
00107                 integer *ldb, integer *info);
00108 
00109     IFPACK_DEPRECATED void F77NAME(dpotrs)(char *UPLO, integer *N, integer *nrhs, doublereal *A, integer *LDA,
00110                 doublereal *b, integer *ldb, integer *info);
00111 
00112     IFPACK_DEPRECATED void F77NAME(dpttrs)(integer *N, integer *nrhs, doublereal *D, doublereal *E, 
00113                 doublereal *b, integer *ldb, integer *info);
00114 
00115     IFPACK_DEPRECATED void F77NAME(dpbtrs)(char *UPLO, integer *N, integer *KD, integer *nrhs, doublereal *AB,
00116                 integer *LDAB, doublereal *b, integer *ldb, integer *info);
00117 
00118 // ********************* Eigen Solve Routines ***************************
00119 
00120     IFPACK_DEPRECATED void F77NAME(dsyev)(char *jobz, char *uplo, integer *N, doublereal *S,
00121     integer *lda, doublereal *eig, doublereal *work, integer *lwork, integer *info);
00122 
00123 // *******************************
00124 }
00125 
00126 #endif 
 All Classes Files Functions Variables Enumerations Friends