| 1 |
< |
#ifdefine __C |
| 2 |
< |
/* This header provides dual access for mpi structure in fortran and in |
| 3 |
< |
c, C++ |
| 1 |
> |
#ifdef __C |
| 2 |
> |
/** This header provides dual access for mpiComponenPlan |
| 3 |
> |
structure in fortran and in c, C++. |
| 4 |
|
*/ |
| 5 |
|
|
| 6 |
|
typdef struct{ |
| 7 |
|
int nMolGlobal; |
| 8 |
|
int nAtomsGlobal; |
| 9 |
+ |
int nBondsGlobal; |
| 10 |
+ |
int nBendsGlobal; |
| 11 |
+ |
int nTorsionsGlobal; |
| 12 |
+ |
int nSRIGlobal; |
| 13 |
|
int myMolStart; |
| 14 |
|
int myMolEnd; |
| 15 |
|
int myAtomStart; |
| 24 |
|
int numberColumns; |
| 25 |
|
int nComponentsRow; |
| 26 |
|
int nComponentsColumn; |
| 27 |
< |
} mpiComponentPlan; |
| 27 |
> |
int rowIndex; |
| 28 |
> |
int columnIndex; |
| 29 |
> |
} mpiSimData; |
| 30 |
|
|
| 31 |
|
|
| 26 |
– |
|
| 27 |
– |
|
| 28 |
– |
|
| 32 |
|
#endif |
| 33 |
|
|
| 34 |
|
|
| 37 |
|
sequence |
| 38 |
|
integer :: nMolGlobal = 0 |
| 39 |
|
integer :: nAtomsGlobal = 0 |
| 40 |
+ |
integer :: nBondsGlobal = 0 |
| 41 |
+ |
integer :: nBendsGlobal = 0 |
| 42 |
+ |
integer :: nTorsionsGlobal = 0 |
| 43 |
+ |
integer :: nSRIGlobal = 0 |
| 44 |
|
integer :: myMolStart = 0 |
| 45 |
|
integer :: myMolEnd = 0 |
| 46 |
|
integer :: myAtomStart = 0 |
| 55 |
|
integer :: numberColumns = 0 |
| 56 |
|
integer :: nComponentsRow = 0 |
| 57 |
|
integer :: nComponentsColumn = 0 |
| 58 |
+ |
integer :: rowIndex = 0 |
| 59 |
+ |
integer :: columnIndex = 0 |
| 60 |
|
end type mpiComponentPlan |
| 61 |
|
|
| 62 |
|
#endif |
