Albany: a Trilinos-based PDE code: MOR_ExtendedEpetraLapack.cpp Source File

Go to the documentation of this file.
00001 //*****************************************************************//
00002 //    Albany 2.0:  Copyright 2012 Sandia Corporation               //
00003 //    This Software is released under the BSD license detailed     //
00004 //    in the file "license.txt" in the top-level Albany directory  //
00005 //*****************************************************************//
00006 #include "MOR_ExtendedEpetraLapack.hpp"
00007 
00008 #include "Epetra_LAPACK_wrappers.h"
00009 
00010 #define DLANSY_F77 F77_BLAS_MANGLE(dlansy, DLANSY)
00011 
00012 #ifdef __cplusplus
00013 extern "C" {
00014 #endif
00015 double PREFIX DLANSY_F77(Epetra_fcd norm, Epetra_fcd uplo, const int* n, const double* a, const int* lda, double * work);
00016 #ifdef __cplusplus
00017 }
00018 #endif
00019 
00020 #ifdef CHAR_MACRO
00021 #undef CHAR_MACRO
00022 #endif
00023 #if defined (INTEL_CXML)
00024 #define CHAR_MACRO(char_var) &char_var, 1
00025 #else
00026 #define CHAR_MACRO(char_var) &char_var
00027 #endif
00028 
00029 namespace MOR {
00030 
00031 double
00032 Extended_Epetra_LAPACK::LANSY(const char NORM, const char UPLO, const int N, const double *A, const int LDA, double *WORK) const {
00033   return DLANSY_F77(CHAR_MACRO(NORM), CHAR_MACRO(UPLO), &N, A, &LDA, WORK);
00034 }
00035 
00036 } // end namespace MOR