ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE/libBASS/mpiBASS.h
Revision: 1233
Committed: Fri Jun 4 02:38:23 2004 UTC (20 years, 1 month ago) by gezelter
Content type: text/plain
File size: 1213 byte(s)
Log Message:
Config changes for fortran access to SimError

File Contents

# Content
1 #ifndef __MPIBASS_H
2 #define __MPIBASS_H
3 #include "config.h"
4
5 #define MPI_INTERFACE_ABORT 2
6 #define MPI_INTERFACE_DONE 1
7 #define MPI_INTERFACE_CONTINUE 0
8
9 #include <mpi.h>
10
11 #ifndef __is_lex__
12 #include "BASS_interface.h"
13 #endif
14
15 #ifdef __cplusplus
16 extern "C" {
17 #endif
18
19 void mpiInterfaceExit(void);
20 void mpiEventInit(void);
21 #ifndef __is_lex__
22 void throwMPIEvent(event* event);
23 void mpiEventLoop(void);
24 #endif
25
26 #ifdef __cplusplus
27 }
28 #endif
29
30 // Structure to pass mpi a BASS event
31
32 typedef struct mpiBASSEvent{
33 int type;
34 double d1,d2,d3;
35 int i1;
36 char cArray[120];
37 char lhs[80];
38 } mBEvent;
39
40 // types for mpiBASSEvent.type
41 #define mpiMOLECULE 0
42 #define mpiATOM 1
43 #define mpiBOND 2
44 #define mpiBEND 3
45 #define mpiTORSION 4
46 #define mpiCOMPONENT 5
47 #define mpiPOSITION 6
48 #define mpiASSIGNMENT_i 7
49 #define mpiASSIGNMENT_d 8
50 #define mpiASSIGNMENT_s 9
51 #define mpiMEMBERS 10
52 #define mpiCONSTRAINT 11
53 #define mpiORIENTATION 12
54 #define mpiBLOCK_END 13
55 #define mpiZCONSTRAINT 14
56 #define mpiRIGIDBODY 15
57 #define mpiCUTOFFGROUP 16
58 #define mpiMEMBER 17
59
60
61 // Define the mpi datatype
62 #ifdef __mpiBASSEVENT
63 MPI_Datatype mpiBASSEventType;
64 #endif
65
66 #endif