[ViewVC] Diff of: group/trunk/OOPSE-3.0/src/UseTheForce/DarkSide/simulation

Comparing trunk/OOPSE-3.0/src/UseTheForce/DarkSide/simulation_module.F90 (file contents):
Revision 1498 by tim, Tue Sep 28 21:08:18 2004 UTC vs.
Revision 1602 by chuckv, Tue Oct 19 20:44:36 2004 UTC

+end module simulation
-+
-+
-+
+ subroutine setFortranSim(setThisSim, CnGlobal, CnLocal, c_idents, &
-+
+       CnLocalExcludes, CexcludesLocal, CnGlobalExcludes, CexcludesGlobal, &
-+
+       CmolMembership, Cmfact, CnGroups, CglobalGroupMembership, &
-+
+       status)
-+
+       use definitions, ONLY : dp
-+
+       use simulation
-+
-+
+    type (simtype) :: setThisSim
-+
+    integer, intent(inout) :: CnGlobal, CnLocal
-+
+    integer, dimension(CnLocal),intent(inout) :: c_idents
-+
-+
+    integer :: CnLocalExcludes
-+
+    integer, dimension(2,CnLocalExcludes), intent(inout) :: CexcludesLocal
-+
+    integer :: CnGlobalExcludes
-+
+    integer, dimension(CnGlobalExcludes), intent(inout) :: CexcludesGlobal
-+
+    integer, dimension(CnGlobal),intent(inout) :: CmolMembership
-+
+    !!  Result status, success = 0, status = -1
-+
+    integer, intent(inout) :: status
-+
-+
+    !! mass factors used for molecular cutoffs
-+
+    real ( kind = dp ), dimension(CnLocal) :: Cmfact
-+
+    integer, intent(in):: CnGroups
-+
+    integer, dimension(CnGlobal), intent(inout):: CglobalGroupMembership
-+
+    integer :: status
-+
-+
+    call SimulationSetup(setThisSim, CnGlobal, CnLocal, c_idents, &
-+
+       CnLocalExcludes, CexcludesLocal, CnGlobalExcludes, CexcludesGlobal, &
-+
+       CmolMembership, Cmfact, CnGroups, CglobalGroupMembership, &
-+
+       status)
-+
+ end subroutine setFortranSim
-+
-+
+ subroutine setFortranBox(cHmat, cHmatInv, cBoxIsOrthorhombic)
-+
+    use simulation, only : setBox
-+
+    use definitions, ONLY : dp
-+
+    real(kind=dp), dimension(3,3) :: cHmat, cHmatInv
-+
+    integer :: cBoxIsOrthorhombic
-+
-+
+   call setBox(cHmat, cHmatInv, cBoxIsOrthorhombic)
-+
-+
+ end subroutine setFortranBox

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing trunk/OOPSE-3.0/src/UseTheForce/DarkSide/simulation_module.F90 (file contents): Revision 1498 by tim, Tue Sep 28 21:08:18 2004 UTC vs. Revision 1602 by chuckv, Tue Oct 19 20:44:36 2004 UTC

Diff Legend

Comparing trunk/OOPSE-3.0/src/UseTheForce/DarkSide/simulation_module.F90 (file contents):
Revision 1498 by tim, Tue Sep 28 21:08:18 2004 UTC vs.
Revision 1602 by chuckv, Tue Oct 19 20:44:36 2004 UTC