OOPSE/libmdtools/mpiComponentPlan.h

#ifdef __C
#ifndef __MPICOMPONENTPLAN_H__
#define __MPICOMPONENTPLAN_H__

/** This header provides dual access for mpiComponentPlan 
    structure in fortran and in c, C++. 
*/

typedef struct{
  int nMolGlobal;
  int nAtomsGlobal;
  int nGroupsGlobal;
  int nBondsGlobal;
  int nBendsGlobal;
  int nTorsionsGlobal;
  int nSRIGlobal;
  int nMolLocal;
  int nAtomsLocal;
  int nGroupsLocal;
  int myNode;
  int nProcessors;
  int rowComm;
  int columnComm;
  int nRows;
  int nColumns;
  int nAtomsInRow;
  int nAtomsInColumn;
  int nGroupsInRow;
  int nGroupsInColumn;
  int rowIndex;
  int columnIndex;
} mpiSimData;

#endif // __MPICOMPONENTPLAN_H__

#endif // __C


#ifdef __FORTRAN90
type, public :: mpiComponentPlan
     sequence
     integer :: nMolGlobal = 0
     integer :: nAtomsGlobal = 0
     integer :: nGroupsGlobal = 0
     integer :: nBondsGlobal = 0
     integer :: nBendsGlobal = 0
     integer :: nTorsionsGlobal = 0
     integer :: nSRIGlobal = 0
     integer :: nMolLocal = 0
     integer :: nAtomsLocal = 0
     integer :: nGroupsLocal = 0
     integer :: myNode = 0
     integer :: nProcessors = 0
     integer :: rowComm = 0
     integer :: columnComm = 0
     integer :: nRows = 0
     integer :: nColumns = 0
     integer :: nAtomsInRow = 0
     integer :: nAtomsInColumn = 0
     integer :: nGroupsInRow = 0
     integer :: nGroupsInColumn = 0
     integer :: rowIndex = 0
     integer :: columnIndex = 0
end type mpiComponentPlan

#endif
Revision:	1198
Committed:	Thu May 27 00:48:12 2004 UTC (20 years, 1 month ago) by tim
Content type:	text/plain
File size:	1465 byte(s)
Log Message:	in the progress of fixing MPI version of cutoff group
#	User	Rev	Content
1	mmeineke	377	#ifdef __C
2	mmeineke	836	#ifndef __MPICOMPONENTPLAN_H__
3			#define __MPICOMPONENTPLAN_H__
4
5	gezelter	1150	/** This header provides dual access for mpiComponentPlan
6	mmeineke	377	structure in fortran and in c, C++.
7			*/
8
9			typedef struct{
10			int nMolGlobal;
11			int nAtomsGlobal;
12	tim	1198	int nGroupsGlobal;
13	mmeineke	377	int nBondsGlobal;
14			int nBendsGlobal;
15			int nTorsionsGlobal;
16			int nSRIGlobal;
17	tim	1198	int nMolLocal;
18			int nAtomsLocal;
19			int nGroupsLocal;
20	mmeineke	377	int myNode;
21	tim	1198	int nProcessors;
22	mmeineke	377	int rowComm;
23			int columnComm;
24	tim	1198	int nRows;
25			int nColumns;
26			int nAtomsInRow;
27			int nAtomsInColumn;
28			int nGroupsInRow;
29			int nGroupsInColumn;
30	mmeineke	377	int rowIndex;
31			int columnIndex;
32			} mpiSimData;
33
34	mmeineke	836	#endif // __MPICOMPONENTPLAN_H__
35	mmeineke	377
36	mmeineke	836	#endif // __C
37	mmeineke	377
38
39			#ifdef __FORTRAN90
40			type, public :: mpiComponentPlan
41			sequence
42			integer :: nMolGlobal = 0
43			integer :: nAtomsGlobal = 0
44	tim	1198	integer :: nGroupsGlobal = 0
45	mmeineke	377	integer :: nBondsGlobal = 0
46			integer :: nBendsGlobal = 0
47			integer :: nTorsionsGlobal = 0
48			integer :: nSRIGlobal = 0
49	tim	1198	integer :: nMolLocal = 0
50			integer :: nAtomsLocal = 0
51			integer :: nGroupsLocal = 0
52	mmeineke	377	integer :: myNode = 0
53	tim	1198	integer :: nProcessors = 0
54	mmeineke	377	integer :: rowComm = 0
55			integer :: columnComm = 0
56	tim	1198	integer :: nRows = 0
57			integer :: nColumns = 0
58			integer :: nAtomsInRow = 0
59			integer :: nAtomsInColumn = 0
60			integer :: nGroupsInRow = 0
61			integer :: nGroupsInColumn = 0
62	mmeineke	377	integer :: rowIndex = 0
63			integer :: columnIndex = 0
64			end type mpiComponentPlan
65
66			#endif