2
* This header file provides definitions for c for the names of the
3
* c message passing routines accessible from FORTRAN. It need not
4
* be included directly in user c code, assuming that sndrcv.h has already.
6
* It is needed as the FORTRAN naming convention varies between machines
7
* and it is the FORTRAN interface that is portable, not the c interface.
8
* However by coding with the macro defnition names c portability is
11
* On most system V machines (at least Cray and Ardent) FORTRAN uppercases
12
* the names of all FORTRAN externals. On most BSD machines (at least
13
* Sun, Alliant, Encore, Balance) FORTRAN appends an underbar (_).
14
* Here the uppercase c routine name with an underbar is used as a
15
* macro name appropriately defined for each machine. Also the BSD naming
16
* is assumed by default.
17
* Note that pbegin and pfilecopy are only called from c.
22
#define BRDCST_ F77_FUNC(brdcst,BRDCST)
23
#define DGOP_ F77_FUNC(dgop,DGOP)
24
#define DRAND48_ F77_FUNC(drand48,DRAND48)
25
#define IGOP_ F77_FUNC(igop,IGOP)
26
#define LLOG_ F77_FUNC(llog,LLOG)
27
#define MDTOB_ F77_FUNC(mdtob,MDTOB)
28
#define MDTOI_ F77_FUNC(mdtoi,MDTOI)
29
#define MITOB_ F77_FUNC(mitob,MITOB)
30
#define MITOD_ F77_FUNC(mitod,MITOD)
31
#define MTIME_ F77_FUNC(mtime,MTIME)
32
#define NICEFTN_ F77_FUNC(niceftn,NICEFTN)
33
#define NNODES_ F77_FUNC(nnodes,NNODES)
34
#define NODEID_ F77_FUNC(nodeid,NODEID)
35
#define NXTVAL_ F77_FUNC(nxtval,NXTVAL)
36
#define PARERR_ F77_FUNC(parerr,PARERR)
37
#define PBEGINF_ F77_FUNC(pbeginf,PBEGINF)
38
#define PBGINF_ F77_FUNC(pbginf,PBGINF)
39
#define PEND_ F77_FUNC(pend,PEND)
40
#define PFCOPY_ F77_FUNC(pfcopy,PFCOPY)
41
#define PROBE_ F77_FUNC(probe,PROBE)
42
#define RCV_ F77_FUNC(rcv,RCV)
43
#define SETDBG_ F77_FUNC(setdbg,SETDBG)
44
#define SND_ F77_FUNC(snd,SND)
45
#define SRAND48_ F77_FUNC(srand48,SRAND48)
46
#define STATS_ F77_FUNC(stats,STATS)
47
#define SYNCH_ F77_FUNC(synch,SYNCH)
48
#define TCGREADY_ F77_FUNC(tcgready,TCGREADY)
49
#define TCGTIME_ F77_FUNC(tcgtime,TCGTIME)
50
#define WAITCOM_ F77_FUNC(waitcom,WAITCOM)
52
#endif /* SRFTOC_H_ */