include/callf77.h

   1 /*
   2  * $Id$
   3  *
   4  *                This source code is part of
   5  *
   6  *                 G   R   O   M   A   C   S
   7  *
   8  *          GROningen MAchine for Chemical Simulations
   9  *
  10  *                        VERSION 3.0
  11  *
  12  * Copyright (c) 1991-2001
  13  * BIOSON Research Institute, Dept. of Biophysical Chemistry
  14  * University of Groningen, The Netherlands
  15  *
  16  * This program is free software; you can redistribute it and/or
  17  * modify it under the terms of the GNU General Public License
  18  * as published by the Free Software Foundation; either version 2
  19  * of the License, or (at your option) any later version.
  20  *
  21  * If you want to redistribute modifications, please consider that
  22  * scientific software is very special. Version control is crucial -
  23  * bugs must be traceable. We will be happy to consider code for
  24  * inclusion in the official distribution, but derived work must not
  25  * be called official GROMACS. Details are found in the README & COPYING
  26  * files - if they are missing, get the official version at www.gromacs.org.
  27  *
  28  * To help us fund GROMACS development, we humbly ask that you cite
  29  * the papers on the package - you can find them in the top README file.
  30  *
  31  * Do check out http://www.gromacs.org , or mail us at gromacs@gromacs.org .
  32  *
  33  * And Hey:
  34  * Giving Russians Opium May Alter Current Situation
  35  */
  36
  37 #ifndef _callf77_h
  38 #define _callf77_h
  39
  40 static char *SRCID_callf77_h = "$Id$";
  41 #ifdef HAVE_CONFIG_H
  42 #include <config.h>
  43 #endif
  44
  45 #ifdef USE_FORTRAN
  46
  47 #define FUNC(name,NAME) F77_FUNC(name,NAME)
  48 #define SCALARG(name) *name
  49 #define SCAL(name) &(name)
  50
  51 /* define f77 name mangling - we dont need any
  52  * special macros for names with underscores since
  53  * no such identifiers exist in gromacs right now.
  54  * If you add one you should include the definition
  55  * of F77_NAME_EXTRA_UNDERSCORE below and create
  56  * the macro F77_FUNC_(name,NAME).
  57  */
  58 #ifdef F77_NAME_LOWERCASE
  59 #  define F77_FUNC(name,NAME)     name
  60 #  ifdef F77_NAME_EXTRA_UNDERSCORE
  61 #    define F77_FUNC_(name,NAME)  name ## _
  62 #  else
  63 #    define F77_FUNC_(name,NAME)  name
  64 #  endif
  65 #elif defined F77_NAME_LOWERCASE_UNDERSCORE
  66 #  define F77_FUNC(name,NAME)     name ## _
  67 #  ifdef F77_NAME_EXTRA_UNDERSCORE
  68 #    define F77_FUNC_(name,NAME)  name ## __
  69 #  else
  70 #    define F77_FUNC_(name,NAME)  name ## _
  71 #  endif
  72 #elif defined F77_NAME_UPPERCASE
  73 #  define F77_FUNC(name,NAME)     NAME
  74 #  ifdef F77_NAME_EXTRA_UNDERSCORE
  75 #    define F77_FUNC_(name,NAME)  NAME ## _
  76 #  else
  77 #    define F77_FUNC_(name,NAME)  NAME
  78 #  endif
  79 #elif defined F77_NAME_UPPERCASE_UNDERSCORE
  80 #  define F77_FUNC(name,NAME)     NAME ## _
  81 #  ifdef F77_NAME_EXTRA_UNDERSCORE
  82 #    define F77_FUNC_(name,NAME)  NAME ## __
  83 #  else
  84 #    define F77_FUNC_(name,NAME)  NAME ## _
  85 #  endif
  86 #endif
  87
  88 #else /* Use C */
  89
  90 #define FUNC(name,NAME) name
  91 #define SCALARG(name) name
  92 #define SCAL(name) name
  93
  94 #endif
  95
  96 #endif