4 |
|
status) |
5 |
|
use definitions, ONLY : dp |
6 |
|
use simulation |
7 |
< |
|
7 |
> |
|
8 |
|
type (simtype) :: setThisSim |
9 |
|
integer, intent(inout) :: CnGlobal, CnLocal |
10 |
|
integer, dimension(CnLocal),intent(inout) :: c_idents |
11 |
< |
|
11 |
> |
|
12 |
|
integer :: CnLocalExcludes |
13 |
|
integer, dimension(2,CnLocalExcludes), intent(inout) :: CexcludesLocal |
14 |
|
integer :: CnGlobalExcludes |
16 |
|
integer, dimension(CnGlobal),intent(inout) :: CmolMembership |
17 |
|
!! Result status, success = 0, status = -1 |
18 |
|
integer, intent(inout) :: status |
19 |
< |
|
19 |
> |
|
20 |
|
!! mass factors used for molecular cutoffs |
21 |
|
real ( kind = dp ), dimension(CnLocal) :: Cmfact |
22 |
|
integer, intent(in):: CnGroups |
23 |
|
integer, dimension(CnGlobal), intent(inout):: CglobalGroupMembership |
24 |
< |
|
24 |
> |
|
25 |
|
call SimulationSetup(setThisSim, CnGlobal, CnLocal, c_idents, & |
26 |
|
CnLocalExcludes, CexcludesLocal, CnGlobalExcludes, CexcludesGlobal, & |
27 |
|
CmolMembership, Cmfact, CnGroups, CglobalGroupMembership, & |
33 |
|
use definitions, ONLY : dp |
34 |
|
real(kind=dp), dimension(3,3) :: cHmat, cHmatInv |
35 |
|
integer :: cBoxIsOrthorhombic |
36 |
< |
|
36 |
> |
|
37 |
|
call setBox(cHmat, cHmatInv, cBoxIsOrthorhombic) |
38 |
< |
|
38 |
> |
|
39 |
|
end subroutine setFortranBox |