Sandia Home Sandia Home
Main Page | Publications | Downloads | Configuration | Running the Code | Solver Parameters | FAQ | Namespace List | Class Hierarchy | Class List | File List | Namespace Members | Class Members | File Members | Related Pages

APPSPACK_LAPACK_Wrappers.hpp

Go to the documentation of this file.
00001 // $Id: APPSPACK_LAPACK_Wrappers.hpp,v 1.12 2006/01/26 21:53:09 jgriffi Exp $ 
00002 // $Source: /space/CVS-Acro/acro/packages/appspack/appspack/src/APPSPACK_LAPACK_Wrappers.hpp,v $ 
00003 
00004 //@HEADER
00005 // ************************************************************************
00006 // 
00007 //          APPSPACK: Asynchronous Parallel Pattern Search
00008 //                 Copyright (2003) Sandia Corporation
00009 // 
00010 // Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
00011 // license for use of this work by or on behalf of the U.S. Government.
00012 // 
00013 // This library is free software; you can redistribute it and/or modify
00014 // it under the terms of the GNU Lesser General Public License as
00015 // published by the Free Software Foundation; either version 2.1 of the
00016 // License, or (at your option) any later version.
00017 //  
00018 // This library is distributed in the hope that it will be useful, but
00019 // WITHOUT ANY WARRANTY; without even the implied warranty of
00020 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00021 // Lesser General Public License for more details.
00022 //                                                                                 
00023 // You should have received a copy of the GNU Lesser General Public
00024 // License along with this library; if not, write to the Free Software
00025 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
00026 // USA.                                                                           .
00027 // 
00028 // Questions? Contact Tammy Kolda (tgkolda@sandia.gov) 
00029 // 
00030 // ************************************************************************
00031 //@HEADER
00032 
00038 #include "APPSPACK_Common.hpp"
00039 #ifndef APPSPACK_LAPACK_WRAPPERS_HPP
00040 #define APPSPACK_LAPACK_WRAPPERS_HPP
00041 
00042 namespace APPSPACK
00043 {
00044   
00045 #ifdef  HAVE_LAPACK
00046 
00048 #define DGELQF_F77 F77_FUNC(dgelqf,DGELQF)
00049 
00051 #define DGGLSE_F77 F77_FUNC(dgglse,DGGLSE)
00052 
00054 #define DGESVD_F77 F77_FUNC(dgesvd,DGESVD)
00055 
00057 #define DGEMM_F77 F77_FUNC(dgemm,DGEMM)
00058 
00060 #define DGEMM_F77 F77_FUNC(dgemm,DGEMM)
00061 
00063 #define DGEMV_F77 F77_FUNC(dgemv,DGEMV)
00064 
00066 #define DDOT_F77 F77_FUNC(ddot,DDOT)
00067 
00068 #ifdef __cplusplus
00069 extern "C" {
00070 #endif
00071 
00128   void DGELQF_F77(int* M, int* N, double A[], int* LDA, double TAU[], 
00129                   double WORK[], int* LWORK, int* INFO );
00130   
00206   void DGGLSE_F77(int* M, int* N, int* P, double B[], int* LDB, double A[], 
00207                   int* LDA, double C[], double D[], double X[], double WORK[], 
00208                   int* LWORK, int* INFO);
00209 
00210 
00304   void DGESVD_F77(char* JOBU, char* JOBVT, int* M, int* N, double A[], int* LDA,
00305                   double S[], double U[], int* LDU, double VT[], int* LDVT,
00306                   double WORK[], int* LWORK, int* INFO);
00307 
00392   void DGEMM_F77(char* TRANSA, char* TRANSB, int* M, int* N, int* K, double* ALPHA, 
00393                  double A[], int* LDA, double B[], int* LDB, double* BETA, double C[], 
00394                  int* LDC);
00395 
00444   void DGEMV_F77(char* TRANS, int* M, int* N, double* ALPHA, double A[], int* LDA, 
00445                  double X[], int* INCX, double* BETA, double Y[], int* INCY);
00446 
00457   double DDOT_F77(int* n, double dx[], int* incx, double dy[], int* incy);
00458 
00459 
00460 #ifdef __cplusplus
00461 }
00462 #endif
00463 
00464 #else
00465   
00467 void DGELQF_F77(...);
00468 
00470 void DGGLSE_F77(...);
00471 
00473 void DGESVD_F77(...);
00474 
00476 void DGEMM_F77(...);
00477 
00479 void DGEMV_F77(...);
00480   
00482 double DDOT_F77(...);
00483 
00484 #endif
00485 
00486 }
00487 
00488 #endif
00489 

 

© Sandia Corporation | Site Contact | Privacy and Security

Generated on Fri Feb 16 10:33:35 2007 for APPSPACK 5.0.1 by doxygen 1.3.9.1 written by Dimitri van Heesch, © 1997-2002