1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
/* fm.c == fm.C */ /* anonymous ftp@zebra.desy.de */
/* An example from cfortran.h package. Requires fm_f.f */
/* Burkhard Burow burow@desy.de 1990 - 1997. */
#include <stdio.h>
#include <stdlib.h> /* EXIT_SUCCESS */
#include "cfortran.h"
/* FORTRAN_REAL, instead of float, is only required for CRAY T3E. */
FORTRAN_REAL Cm(FORTRAN_REAL a) {return a;}
FCALLSCFUN1(FLOAT,Cm,CM,cm, FLOAT)
PROTOCCALLSFFUN1(FLOAT,FM,fm,FLOAT)
#define FM(A) CCALLSFFUN1(FM,fm, FLOAT, A)
int main()
{printf("FM(111.) returns %f.\n",FM(111.)); return EXIT_SUCCESS;}
|
