68 |
|
contains |
69 |
|
|
70 |
|
subroutine SimulationSetup(setThisSim, nComponents, c_idents, & |
71 |
< |
CnLocalExcludes, CexcludesLocal, CnGlobalExcludes, CexcludesGlobal, CmolMembership, & |
71 |
> |
CnLocalExcludes, CexcludesLocal, CnGlobalExcludes, CexcludesGlobal, & |
72 |
> |
CmolMembership, & |
73 |
|
status) |
74 |
|
|
75 |
|
type (simtype) :: setThisSim |
183 |
|
excludesGlobal(i) = CexcludesGlobal(i) |
184 |
|
enddo |
185 |
|
|
186 |
< |
molMemberShipList = CmolMembership |
186 |
> |
do i = 1, nComponents |
187 |
> |
molMemberShipList(i) = CmolMembership(i) |
188 |
> |
! write(0,*) 'molMembershipList(',i,') = ', molMemberShipList(i) |
189 |
> |
enddo |
190 |
|
|
191 |
|
if (status == 0) simulation_setup_complete = .true. |
192 |
|
|
364 |
|
subroutine FreeSimGlobals() |
365 |
|
|
366 |
|
!We free in the opposite order in which we allocate in. |
367 |
< |
|
367 |
> |
|
368 |
> |
if (allocated(molMembershipList)) deallocate(molMembershipList) |
369 |
|
if (allocated(excludesGlobal)) deallocate(excludesGlobal) |
370 |
|
if (allocated(excludesLocal)) deallocate(excludesLocal) |
371 |
< |
if (allocated(molMembershipList)) deallocate(molMembershipList) |
371 |
> |
|
372 |
|
end subroutine FreeSimGlobals |
373 |
|
|
374 |
|
pure function getNlocal() result(nlocal) |