1 #ifndef lint
2 static char vcid1[] = "$Id: lftcomm.c,v 1.1.1.1 2000-01-05 16:39:15 gropp Exp $";
3 #endif
4
5 #ifndef DEBUG_ALL
6 #define DEBUG_ALL
7 #endif
8
9 /*
10 This file contains those routines whose translation into Fortran
11 could not be handled by the automatic translator. Some of them
12 are not supported in Fortran.
13 */
14 #include "tools.h"
15 #include "comm/comm.h"
16
17 #if defined(FORTRANCAPS)
18 #define pinumtids_ PINUMTIDS
19 #define pimytid_ PIMYTID
20 #define pidiameter_ PIDIAMETER
21 #define synull_ SYNULL
22
23 #elif !defined(FORTRANUNDERSCORE)
24 #define pinumtids_ pinumtids
25 #define pimytid_ pimytid
26 #define pidiameter_ pidiameter
27 #define synull_ synull
28 #endif
29
msgallocsend_(a,b,c)30 void msgallocsend_(a,b,c)
31 int *a,*b,*c;
32 {
33 SETERRC(1,"MSGALLOCSEND has no Fortran counterpart");
34 }
msgallocrecv_(a,b,c)35 void msgallocrecv_(a,b,c)
36 {
37 SETERRC(1,"MSGALLOCRECV has no Fortran counterpart");
38 }
pinumtids_()39 int pinumtids_()
40 {
41 return PInumtids;
42 }
pimytid_()43 int pimytid_()
44 {
45 return PImytid;
46 }
pidiameter_()47 int pidiameter_()
48 {
49 return PIdiameter;
50 }
51 #ifndef _HAS_SYNULL
52 #define _HAS_SYNULL
synull_()53 void synull_()
54 {
55 }
56 #endif
57