OOPSE/libmdtools/mpiComponentPlan.h

#ifdef __C
/** This header provides dual access for mpiComponenPlan 
    structure in fortran and in c, C++. 
*/

typedef struct{
  int nMolGlobal;
  int nAtomsGlobal;
  int nBondsGlobal;
  int nBendsGlobal;
  int nTorsionsGlobal;
  int nSRIGlobal;
  int myNMol;
  int myNlocal;
  int myNode;
  int numberProcessors;
  int rowComm;
  int columnComm;
  int numberRows;
  int numberColumns;
  int nComponentsRow;
  int nComponentsColumn;
  int rowIndex;
  int columnIndex;
} mpiSimData;


#endif


#ifdef __FORTRAN90
type, public :: mpiComponentPlan
     sequence
     integer :: nMolGlobal = 0
     integer :: nAtomsGlobal = 0
     integer :: nBondsGlobal = 0
     integer :: nBendsGlobal = 0
     integer :: nTorsionsGlobal = 0
     integer :: nSRIGlobal = 0
     integer :: myNMol = 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
     integer :: rowIndex = 0
     integer :: columnIndex = 0
end type mpiComponentPlan

#endif
Revision:	405
Committed:	Wed Mar 26 18:02:18 2003 UTC (21 years, 3 months ago) by gezelter
Content type:	text/plain
File size:	1171 byte(s)
Log Message:	MPI stuff for passing out molecules
#	User	Rev	Content
1	mmeineke	377	#ifdef __C
2			/** This header provides dual access for mpiComponenPlan
3			structure in fortran and in c, C++.
4			*/
5
6			typedef struct{
7			int nMolGlobal;
8			int nAtomsGlobal;
9			int nBondsGlobal;
10			int nBendsGlobal;
11			int nTorsionsGlobal;
12			int nSRIGlobal;
13	gezelter	405	int myNMol;
14	mmeineke	377	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			int rowIndex;
24			int columnIndex;
25			} mpiSimData;
26
27
28			#endif
29
30
31			#ifdef __FORTRAN90
32			type, public :: mpiComponentPlan
33			sequence
34			integer :: nMolGlobal = 0
35			integer :: nAtomsGlobal = 0
36			integer :: nBondsGlobal = 0
37			integer :: nBendsGlobal = 0
38			integer :: nTorsionsGlobal = 0
39			integer :: nSRIGlobal = 0
40	gezelter	405	integer :: myNMol = 0
41	mmeineke	377	integer :: myNlocal = 0
42			integer :: myNode = 0
43			integer :: numberProcessors = 0
44			integer :: rowComm = 0
45			integer :: columnComm = 0
46			integer :: numberRows = 0
47			integer :: numberColumns = 0
48			integer :: nComponentsRow = 0
49			integer :: nComponentsColumn = 0
50			integer :: rowIndex = 0
51			integer :: columnIndex = 0
52			end type mpiComponentPlan
53
54			#endif