OOPSE/libBASS/mpiBASS.h

#ifndef __MPIBASS_H
#define __MPIBASS_H
#include "config.h"

#define MPI_INTERFACE_ABORT 2
#define MPI_INTERFACE_DONE  1
#define MPI_INTERFACE_CONTINUE 0

#include <mpi.h>

#ifndef __is_lex__
#include "BASS_interface.h"
#endif

#ifdef __cplusplus
extern "C" {
#endif

  void mpiInterfaceExit(void);
  void mpiEventInit(void);
#ifndef __is_lex__
  void throwMPIEvent(event* event);
  void mpiEventLoop(void);
#endif

#ifdef __cplusplus
}
#endif

// Structure to pass mpi a BASS event

typedef struct mpiBASSEvent{
  int type;
  double d1,d2,d3;
  int    i1;
  char   cArray[120];
  char   lhs[80];
} mBEvent;

// types for mpiBASSEvent.type
#define mpiMOLECULE     0
#define mpiATOM         1
#define mpiBOND         2
#define mpiBEND         3
#define mpiTORSION      4
#define mpiCOMPONENT    5
#define mpiPOSITION     6
#define mpiASSIGNMENT_i 7
#define mpiASSIGNMENT_d 8
#define mpiASSIGNMENT_s 9
#define mpiMEMBERS      10
#define mpiCONSTRAINT   11
#define mpiORIENTATION  12
#define mpiBLOCK_END    13
#define mpiZCONSTRAINT  14
#define mpiRIGIDBODY    15
#define mpiCUTOFFGROUP  16
#define mpiMEMBER       17


// Define the mpi datatype
#ifdef __mpiBASSEVENT
MPI_Datatype mpiBASSEventType;
#endif

#endif
Revision:	1233
Committed:	Fri Jun 4 02:38:23 2004 UTC (20 years, 3 months ago) by gezelter
Content type:	text/plain
File size:	1213 byte(s)
Log Message:	Config changes for fortran access to SimError
#	User	Rev	Content
1	mmeineke	377	#ifndef __MPIBASS_H
2			#define __MPIBASS_H
3	gezelter	1233	#include "config.h"
4	mmeineke	377
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	gezelter	998	int i1;
36	mmeineke	377	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	gezelter	988	#define mpiMEMBERS 10
52	mmeineke	377	#define mpiCONSTRAINT 11
53			#define mpiORIENTATION 12
54			#define mpiBLOCK_END 13
55	mmeineke	675	#define mpiZCONSTRAINT 14
56	gezelter	957	#define mpiRIGIDBODY 15
57	gezelter	1153	#define mpiCUTOFFGROUP 16
58			#define mpiMEMBER 17
59	mmeineke	377
60
61			// Define the mpi datatype
62			#ifdef __mpiBASSEVENT
63			MPI_Datatype mpiBASSEventType;
64			#endif
65
66			#endif