/*@HEADER // *********************************************************************** // // AztecOO: An Object-Oriented Aztec Linear Solver Package // Copyright (2002) Sandia Corporation // // Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive // license for use of this work by or on behalf of the U.S. Government. // // This library is free software; you can redistribute it and/or modify // it under the terms of the GNU Lesser General Public License as // published by the Free Software Foundation; either version 2.1 of the // License, or (at your option) any later version. // // This library is distributed in the hope that it will be useful, but // WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU // Lesser General Public License for more details. // // You should have received a copy of the GNU Lesser General Public // License along with this library; if not, write to the Free Software // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 // USA // Questions? Contact Michael A. Heroux (maherou@sandia.gov) // // *********************************************************************** //@HEADER */ #ifndef _AZ_F77FUNC_H_ #define _AZ_F77FUNC_H_ #include "az_aztec_defs.h" #include <string.h> #ifdef CHAR_MACRO #undef CHAR_MACRO #endif #if defined (INTEL_CXML) #define CHAR_MACRO(char_var) &char_var, 1 #else #define CHAR_MACRO(char_var) &char_var #endif /* Define fcd (Fortran az_fcd descriptor) for non-standard situations */ #if defined(CRAY_T3X) || defined(INTEL_CXML) || defined(INTEL_MKL) #if defined(CRAY_T3X) #include <fortran.h> #define PREFIX #define az_fcd fcd #elif defined(INTEL_CXML) #define PREFIX __stdcall #define az_fcd char *, unsigned int #elif defined(INTEL_MKL) #define PREFIX #define az_fcd char * #endif /* All three of these machines use a simple uppercase mangling of Fortran names */ /* if F77_FUNC is defined undefine it because we want to redefine */ #ifdef F77_FUNC #undef F77_FUNC #endif #define F77_FUNC(lcase,UCASE) UCASE #ifdef F77_FUNC_ #undef F77_FUNC_ #endif #define F77_FUNC_(lcase,UCASE) UCASE #else /* Define az_fcd for all other machines */ #define az_fcd char * #define PREFIX #ifdef TRILINOS_NO_CONFIG_H #ifdef F77_FUNC #undef F77_FUNC #endif #ifdef TRILINOS_HAVE_NO_FORTRAN_UNDERSCORE #define F77_FUNC(lcase,UCASE) lcase #define F77_FUNC_(lcase,UCASE) lcase #else /* TRILINOS_HAVE_NO_FORTRAN_UNDERSCORE not defined*/ #define F77_FUNC(lcase,UCASE) lcase ## _ #if defined(SGI32) || defined(SGI64) #define F77_FUNC_(lcase,UCASE) lcase ## _ #else #define F77_FUNC_(lcase,UCASE) lcase ## __ #endif #endif /* TRILINOS_HAVE_NO_FORTRAN_UNDERSCORE */ #endif /* TRILINOS_NO_CONFIG_H */ #endif #endif /* _AZ_F77FUNC_H_ */