ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE_old/src/mdtools/libmdCode/atype_module.F90
(Generate patch)

Comparing trunk/OOPSE_old/src/mdtools/libmdCode/atype_module.F90 (file contents):
Revision 355 by mmeineke, Mon Mar 17 20:14:33 2003 UTC vs.
Revision 364 by gezelter, Tue Mar 18 21:28:21 2003 UTC

# Line 83 | Line 83 | contains
83         call setElementProperty(atypes, me, "GB_eps_ratio", GB_eps_ratio)
84         call setElementProperty(atypes, me, "GB_mu", GB_mu)
85         call setElementProperty(atypes, me, "GB_nu", GB_nu)
86 +       call check_gb_pair_FF(status)
87 +       if (status .ne. 0) call set_gb_pair_params(GB_sigma, GB_l2b_ratio, &
88 +            GB_eps, GB_eps_ratio, GB_mu, GB_nu)
89      endif
90  
91    end subroutine new_atype

Diff Legend

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