1/* foo.h -- interface to fortran and C libraries 2 Copyright (C) 1998-1999 Free Software Foundation, Inc. 3 This file is part of GNU Libtool. 4 5This program is free software; you can redistribute it and/or modify 6it under the terms of the GNU General Public License as published by 7the Free Software Foundation; either version 2 of the License, or 8(at your option) any later version. 9 10This program is distributed in the hope that it will be useful, 11but WITHOUT ANY WARRANTY; without even the implied warranty of 12MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13GNU General Public License for more details. 14 15You should have received a copy of the GNU General Public License 16along with this program; if not, write to the Free Software 17Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 18USA. */ 19 20#ifndef _FOO_H_ 21#define _FOO_H_ 1 22 23/* config.h is necessary for the fortran name mangling */ 24#ifdef HAVE_CONFIG_H 25#include <config.h> 26#endif 27 28/* csub is an extremely useful subroutine that 29 * returns the argument multiplied by two :-) 30 */ 31extern int csub(int); 32 33/* This routine performs the same action, but 34 * calls the fortran subroutine fsub to do the 35 * real work. 36 */ 37extern int fwrapper(int); 38 39/* fsub does the same thing as csub, i.e. res=arg*2. 40 * Use autoconf macro for fortran function names. 41 * Note that fortran passes args by reference, so 42 * you need to provide pointers to your ints. 43 */ 44extern void F77_FUNC(fsub,FSUB)(int *arg, int *res); 45 46 47#endif 48