ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-4/src/UseTheForce/DarkSide/simulation_interface.F90
(Generate patch)

Comparing trunk/OOPSE-4/src/UseTheForce/DarkSide/simulation_interface.F90 (file contents):
Revision 2757 by gezelter, Fri Apr 15 22:04:00 2005 UTC vs.
Revision 2758 by gezelter, Wed May 17 19:54:27 2006 UTC

# Line 2 | Line 2 | subroutine setFortranSim(setThisSim, CnGlobal, CnLocal
2       CnLocalExcludes, CexcludesLocal, CnGlobalExcludes, CexcludesGlobal, &
3       CmolMembership, Cmfact, CnGroups, CglobalGroupMembership, &
4       status)
5 <  use definitions, ONLY : dp    
5 >  use definitions  
6    use simulation
7  
8    type (simtype) :: setThisSim
# Line 30 | Line 30 | subroutine setFortranBox(cHmat, cHmatInv, cBoxIsOrthor
30  
31   subroutine setFortranBox(cHmat, cHmatInv, cBoxIsOrthorhombic)
32    use simulation, only : setBox
33 <  use definitions, ONLY : dp
33 >  use definitions
34    real(kind=dp), dimension(3,3) :: cHmat, cHmatInv
35    integer :: cBoxIsOrthorhombic
36  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines