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