mdtools/headers/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 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;
  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 :: 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
     integer :: rowIndex = 0
     integer :: columnIndex = 0
end type mpiComponentPlan

#endif
Revision:	253
Committed:	Thu Jan 30 15:20:21 2003 UTC (22 years, 9 months ago) by chuckv
Content type:	text/plain
File size:	1361 byte(s)
Log Message:	Added a generic util code directory and moved Linux_ifc_machdep to it. MPI changes to compile MPI modules.
#	User	Rev	Content
1	chuckv	204	#ifdef __C
2	chuckv	206	/** This header provides dual access for mpiComponenPlan
3			structure in fortran and in c, C++.
4	chuckv	203	*/
5
6	chuckv	253	typedef struct{
7	chuckv	203	int nMolGlobal;
8			int nAtomsGlobal;
9	chuckv	215	int nBondsGlobal;
10			int nBendsGlobal;
11			int nTorsionsGlobal;
12			int nSRIGlobal;
13	chuckv	203	int myMolStart;
14			int myMolEnd;
15			int myAtomStart;
16			int myAtomEnd;
17			int myMol;
18			int myNlocal;
19			int myNode;
20			int numberProcessors;
21			int rowComm;
22			int columnComm;
23			int numberRows;
24			int numberColumns;
25			int nComponentsRow;
26			int nComponentsColumn;
27	chuckv	206	int rowIndex;
28			int columnIndex;
29	chuckv	215	} mpiSimData;
30	chuckv	203
31
32			#endif
33
34
35			#ifdef __FORTRAN90
36			type, public :: mpiComponentPlan
37			sequence
38			integer :: nMolGlobal = 0
39			integer :: nAtomsGlobal = 0
40	chuckv	215	integer :: nBondsGlobal = 0
41			integer :: nBendsGlobal = 0
42			integer :: nTorsionsGlobal = 0
43	chuckv	239	integer :: nSRIGlobal = 0
44	chuckv	203	integer :: myMolStart = 0
45			integer :: myMolEnd = 0
46			integer :: myAtomStart = 0
47			integer :: myAtomEnd = 0
48			integer :: myMol = 0
49			integer :: myNlocal = 0
50			integer :: myNode = 0
51			integer :: numberProcessors = 0
52			integer :: rowComm = 0
53			integer :: columnComm = 0
54			integer :: numberRows = 0
55			integer :: numberColumns = 0
56			integer :: nComponentsRow = 0
57			integer :: nComponentsColumn = 0
58	chuckv	206	integer :: rowIndex = 0
59			integer :: columnIndex = 0
60	chuckv	203	end type mpiComponentPlan
61
62			#endif