File: fh.c

package info (click to toggle)
cfortran 20110621-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster
  • size: 1,120 kB
  • sloc: ansic: 3,390; fortran: 959; makefile: 112; sh: 14
file content (17 lines) | stat: -rw-r--r-- 492 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
/* fh.c == fh.C */             /* anonymous ftp@zebra.desy.de */
/* An example from cfortran.h package. Requires fh_f.f        */
/* Burkhard Burow  burow@desy.de                 1990 - 1997. */

#include <stdio.h>
#include <stdlib.h>    /* EXIT_SUCCESS */
#include "cfortran.h"

char *Cch() {return "hello";}
FCALLSCFUN0(STRING,Cch,CCH,cch)


PROTOCCALLSFFUN0(STRING,FH,fh)
#define FH()               CCALLSFFUN0(FH,fh)

int main() 
{printf("FH() returns %s.\n",FH()); return EXIT_SUCCESS;}