mdtools/headers/mpiComponentPlan.h

#ifdefine __C
/* This header provides dual access for mpi structure in fortran and in
   c, C++
*/

typdef struct{
  int nMolGlobal;
  int nAtomsGlobal;
  int myMolStart;
  int myMolEnd;
  int myAtomStart;
  int myAtomEnd;
  int myMol;
  int myNlocal;
  int myNode;
  int numberProcessors;
  int rowComm;
  int columnComm;
  int numberRows;
  int numberColumns;
  int nComponentsRow;
  int nComponentsColumn;
} mpiComponentPlan;


#endif


#ifdef __FORTRAN90
type, public :: mpiComponentPlan
     sequence
     integer :: nMolGlobal = 0
     integer :: nAtomsGlobal = 0
     integer :: myMolStart = 0
     integer :: myMolEnd = 0
     integer :: myAtomStart = 0
     integer :: myAtomEnd = 0
     integer :: myMol = 0
     integer :: myNlocal = 0
     integer :: myNode = 0
     integer :: numberProcessors = 0
     integer :: rowComm = 0
     integer :: columnComm = 0
     integer :: numberRows = 0
     integer :: numberColumns = 0
     integer :: nComponentsRow = 0
     integer :: nComponentsColumn = 0
end type mpiComponentPlan

#endif
Revision:	203
Committed:	Tue Dec 10 22:09:44 2002 UTC (21 years, 7 months ago) by chuckv
Content type:	text/plain
File size:	1045 byte(s)
Log Message:	Added mpiComponentPlan.h a dual fortran c header file defining mpi simulation parameters for both c and fortran.
#	User	Rev	Content
1	chuckv	203	#ifdefine __C
2			/* This header provides dual access for mpi structure in fortran and in
3			c, C++
4			*/
5
6			typdef struct{
7			int nMolGlobal;
8			int nAtomsGlobal;
9			int myMolStart;
10			int myMolEnd;
11			int myAtomStart;
12			int myAtomEnd;
13			int myMol;
14			int myNlocal;
15			int myNode;
16			int numberProcessors;
17			int rowComm;
18			int columnComm;
19			int numberRows;
20			int numberColumns;
21			int nComponentsRow;
22			int nComponentsColumn;
23			} mpiComponentPlan;
24
25
26
27
28
29			#endif
30
31
32			#ifdef __FORTRAN90
33			type, public :: mpiComponentPlan
34			sequence
35			integer :: nMolGlobal = 0
36			integer :: nAtomsGlobal = 0
37			integer :: myMolStart = 0
38			integer :: myMolEnd = 0
39			integer :: myAtomStart = 0
40			integer :: myAtomEnd = 0
41			integer :: myMol = 0
42			integer :: myNlocal = 0
43			integer :: myNode = 0
44			integer :: numberProcessors = 0
45			integer :: rowComm = 0
46			integer :: columnComm = 0
47			integer :: numberRows = 0
48			integer :: numberColumns = 0
49			integer :: nComponentsRow = 0
50			integer :: nComponentsColumn = 0
51			end type mpiComponentPlan
52
53			#endif