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

Comparing trunk/OOPSE/libmdtools/wrappers.F90 (file contents):
Revision 626 by mmeineke, Wed Jul 16 21:30:56 2003 UTC vs.
Revision 657 by chuckv, Wed Jul 30 21:17:01 2003 UTC

# Line 5 | Line 5 | subroutine wrapForceField(infoWrapper)
5    use do_Forces, ONLY: init_FF, do_force_loop
6    use sticky_pair, ONLY: set_sticky_params
7    use gb_pair, ONLY: set_gb_pair_params
8 +  use eam, ONLY: newEAMtype
9    external infoWrapper
10  
11    call infoWrapper(new_atype,init_FF,do_force_loop, &
12 <       set_sticky_params,set_gb_pair_params)
12 >       set_sticky_params,set_gb_pair_params,newEAMtype)
13    
14   end subroutine wrapForceField
15  

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines