ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE/libmdtools/calc_eam.F90
(Generate patch)

Comparing trunk/OOPSE/libmdtools/calc_eam.F90 (file contents):
Revision 650 by chuckv, Thu Jul 24 19:57:35 2003 UTC vs.
Revision 653 by chuckv, Fri Jul 25 20:00:17 2003 UTC

# Line 84 | Line 84 | module eam
84  
85  
86    public :: init_EAM_FF
87 < !  public :: EAM_new_rcut
87 >  public :: setCutoffEAM
88    public :: do_eam_pair
89    public :: newEAMtype
90    public :: calc_eam_prepair_rho
# Line 335 | Line 335 | contains
335   #endif
336  
337    end subroutine allocateEAM
338 +
339 +  subroutine setCutoffEAM(rcut, status)
340 +    real(kind=dp) :: rcut
341 +    integer :: status
342 +
343 +    if (rcut < EAM_rcut) then
344 +       EAM_rcut = rcut
345 +    endif
346 +
347 +
348 +  end subroutine setCutoffEAM
349 +
350  
351  
352    subroutine clean_EAM()

Diff Legend

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