ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-2.0/src/UseTheForce/mpiComponentPlan.h
Revision: 1930
Committed: Wed Jan 12 22:41:40 2005 UTC (19 years, 5 months ago) by gezelter
Content type: text/plain
File size: 3345 byte(s)
Log Message:
merging new_design branch into OOPSE-2.0

File Contents

# User Rev Content
1 gezelter 1930 /*
2     * Copyright (c) 2005 The University of Notre Dame. All Rights Reserved.
3     *
4     * The University of Notre Dame grants you ("Licensee") a
5     * non-exclusive, royalty free, license to use, modify and
6     * redistribute this software in source and binary code form, provided
7     * that the following conditions are met:
8     *
9     * 1. Acknowledgement of the program authors must be made in any
10     * publication of scientific results based in part on use of the
11     * program. An acceptable form of acknowledgement is citation of
12     * the article in which the program was described (Matthew
13     * A. Meineke, Charles F. Vardeman II, Teng Lin, Christopher
14     * J. Fennell and J. Daniel Gezelter, "OOPSE: An Object-Oriented
15     * Parallel Simulation Engine for Molecular Dynamics,"
16     * J. Comput. Chem. 26, pp. 252-271 (2005))
17     *
18     * 2. Redistributions of source code must retain the above copyright
19     * notice, this list of conditions and the following disclaimer.
20     *
21     * 3. Redistributions in binary form must reproduce the above copyright
22     * notice, this list of conditions and the following disclaimer in the
23     * documentation and/or other materials provided with the
24     * distribution.
25     *
26     * This software is provided "AS IS," without a warranty of any
27     * kind. All express or implied conditions, representations and
28     * warranties, including any implied warranty of merchantability,
29     * fitness for a particular purpose or non-infringement, are hereby
30     * excluded. The University of Notre Dame and its licensors shall not
31     * be liable for any damages suffered by licensee as a result of
32     * using, modifying or distributing the software or its
33     * derivatives. In no event will the University of Notre Dame or its
34     * licensors be liable for any lost revenue, profit or data, or for
35     * direct, indirect, special, consequential, incidental or punitive
36     * damages, however caused and regardless of the theory of liability,
37     * arising out of the use of or inability to use software, even if the
38     * University of Notre Dame has been advised of the possibility of
39     * such damages.
40     */
41    
42 gezelter 1490 #ifdef __C
43 gezelter 1930 #ifndef USETHEFORCE_MPICOMPONENTPLAN_H
44     #define USETHEFORCE_MPICOMPONENTPLAN_H
45 gezelter 1490
46 chuckv 1602
47 gezelter 1490 /** This header provides dual access for mpiComponentPlan
48     structure in fortran and in c, C++.
49     */
50    
51     typedef struct{
52     int nMolGlobal;
53     int nAtomsGlobal;
54     int nGroupsGlobal;
55     int nMolLocal;
56     int nAtomsLocal;
57     int nGroupsLocal;
58     int myNode;
59     int nProcessors;
60     int rowComm;
61     int columnComm;
62     int nRows;
63     int nColumns;
64     int nAtomsInRow;
65     int nAtomsInColumn;
66     int nGroupsInRow;
67     int nGroupsInColumn;
68     int rowIndex;
69     int columnIndex;
70     } mpiSimData;
71    
72     #endif // __MPICOMPONENTPLAN_H__
73    
74     #endif // __C
75    
76    
77     #ifdef __FORTRAN90
78     type, public :: mpiComponentPlan
79     sequence
80     integer :: nMolGlobal = 0
81     integer :: nAtomsGlobal = 0
82     integer :: nGroupsGlobal = 0
83     integer :: nMolLocal = 0
84     integer :: nAtomsLocal = 0
85     integer :: nGroupsLocal = 0
86     integer :: myNode = 0
87     integer :: nProcessors = 0
88     integer :: rowComm = 0
89     integer :: columnComm = 0
90     integer :: nRows = 0
91     integer :: nColumns = 0
92     integer :: nAtomsInRow = 0
93     integer :: nAtomsInColumn = 0
94     integer :: nGroupsInRow = 0
95     integer :: nGroupsInColumn = 0
96     integer :: rowIndex = 0
97     integer :: columnIndex = 0
98     end type mpiComponentPlan
99    
100     #endif