ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/OpenMD/trunk/src/UseTheForce/mpiComponentPlan.h
(Generate patch)

Comparing trunk/src/UseTheForce/mpiComponentPlan.h (file contents):
Revision 253 by tim, Thu Jan 13 19:40:37 2005 UTC vs.
Revision 1390 by gezelter, Wed Nov 25 20:02:06 2009 UTC

# Line 1 | Line 1
1 < #ifdef __C
1 > #ifdef __OPENMD_C
2   #ifndef USETHEFORCE_MPICOMPONENTPLAN_H
3   #define USETHEFORCE_MPICOMPONENTPLAN_H
4  
# Line 28 | Line 28 | typedef struct{
28    int columnIndex;
29   } mpiSimData;
30  
31 < #endif // __MPICOMPONENTPLAN_H__
31 > #endif /* __MPICOMPONENTPLAN_H__*/
32  
33 < #endif // __C
33 > #endif /* __OPENMD_C*/
34  
35  
36   #ifdef __FORTRAN90
37 < type, public :: mpiComponentPlan
38 <     sequence
39 <     integer :: nMolGlobal = 0
40 <     integer :: nAtomsGlobal = 0
41 <     integer :: nGroupsGlobal = 0
42 <     integer :: nMolLocal = 0
43 <     integer :: nAtomsLocal = 0
44 <     integer :: nGroupsLocal = 0
45 <     integer :: myNode = 0
46 <     integer :: nProcessors = 0
47 <     integer :: rowComm = 0
48 <     integer :: columnComm = 0
49 <     integer :: nRows = 0
50 <     integer :: nColumns = 0
51 <     integer :: nAtomsInRow = 0
52 <     integer :: nAtomsInColumn = 0
53 <     integer :: nGroupsInRow = 0
54 <     integer :: nGroupsInColumn = 0
55 <     integer :: rowIndex = 0
56 <     integer :: columnIndex = 0
57 < end type mpiComponentPlan
37 >  type, public :: mpiComponentPlan
38 >    sequence
39 >    integer :: nMolGlobal = 0
40 >    integer :: nAtomsGlobal = 0
41 >    integer :: nGroupsGlobal = 0
42 >    integer :: nMolLocal = 0
43 >    integer :: nAtomsLocal = 0
44 >    integer :: nGroupsLocal = 0
45 >    integer :: myNode = 0
46 >    integer :: nProcessors = 0
47 >    integer :: rowComm = 0
48 >    integer :: columnComm = 0
49 >    integer :: nRows = 0
50 >    integer :: nColumns = 0
51 >    integer :: nAtomsInRow = 0
52 >    integer :: nAtomsInColumn = 0
53 >    integer :: nGroupsInRow = 0
54 >    integer :: nGroupsInColumn = 0
55 >    integer :: rowIndex = 0
56 >    integer :: columnIndex = 0
57 >  end type mpiComponentPlan
58  
59   #endif

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines