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.1
  11  * Copyright (c) 1991-2001, University of Groningen, The Netherlands
  12  * This program is free software; you can redistribute it and/or
  13  * modify it under the terms of the GNU General Public License
  14  * as published by the Free Software Foundation; either version 2
  15  * of the License, or (at your option) any later version.
  16  *
  17  * If you want to redistribute modifications, please consider that
  18  * scientific software is very special. Version control is crucial -
  19  * bugs must be traceable. We will be happy to consider code for
  20  * inclusion in the official distribution, but derived work must not
  21  * be called official GROMACS. Details are found in the README & COPYING
  22  * files - if they are missing, get the official version at www.gromacs.org.
  23  *
  24  * To help us fund GROMACS development, we humbly ask that you cite
  25  * the papers on the package - you can find them in the top README file.
  26  *
  27  * For more info, check our website at http://www.gromacs.org
  28  *
  29  * And Hey:
  30  * Grunge ROck MAChoS
  31  */
  32
  33 #ifndef _callf77_h
  34 #define _callf77_h
  35
  36 static char *SRCID_callf77_h = "$Id$";
  37 #ifdef HAVE_CONFIG_H
  38 #include <config.h>
  39 #endif
  40
  41 #ifdef USE_FORTRAN
  42
  43 #define FUNC(name,NAME) F77_FUNC(name,NAME)
  44 #define SCALARG(name) *name
  45 #define SCAL(name) &(name)
  46
  47 #else /* Use C */
  48
  49 #define FUNC(name,NAME) name
  50 #define SCALARG(name) name
  51 #define SCAL(name) name
  52
  53 #endif
  54
  55 #endif