src/UseTheForce/mpiComponentPlan.h

#ifdef __C
#ifndef USETHEFORCE_MPICOMPONENTPLAN_H
#define USETHEFORCE_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 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 :: 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:	564
Committed:	Wed Jul 13 15:54:00 2005 UTC (20 years, 3 months ago) by tim
Content type:	text/plain
File size:	1257 byte(s)
Log Message:	replace c++ style comment in c files
#	User	Rev	Content
1	gezelter	2	#ifdef __C
2	gezelter	246	#ifndef USETHEFORCE_MPICOMPONENTPLAN_H
3			#define USETHEFORCE_MPICOMPONENTPLAN_H
4	gezelter	2
5	chuckv	109
6	gezelter	2	/** This header provides dual access for mpiComponentPlan
7			structure in fortran and in c, C++.
8			*/
9
10			typedef struct{
11			int nMolGlobal;
12			int nAtomsGlobal;
13			int nGroupsGlobal;
14			int nMolLocal;
15			int nAtomsLocal;
16			int nGroupsLocal;
17			int myNode;
18			int nProcessors;
19			int rowComm;
20			int columnComm;
21			int nRows;
22			int nColumns;
23			int nAtomsInRow;
24			int nAtomsInColumn;
25			int nGroupsInRow;
26			int nGroupsInColumn;
27			int rowIndex;
28			int columnIndex;
29			} mpiSimData;
30
31	tim	564	#endif /* __MPICOMPONENTPLAN_H__*/
32	gezelter	2
33	tim	564	#endif /* __C*/
34	gezelter	2
35
36			#ifdef __FORTRAN90
37	gezelter	507	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	gezelter	2
59			#endif