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

Comparing trunk/OOPSE-4/src/UseTheForce/DarkSide/eam.F90 (file contents):
Revision 2354 by chuckv, Wed Sep 14 20:31:38 2005 UTC vs.
Revision 2355 by chuckv, Wed Oct 12 18:59:16 2005 UTC

# Line 50 | Line 50 | module eam
50   #endif
51    implicit none
52    PRIVATE
53 + #define __FORTRAN90
54 + #include "UseTheForce/DarkSide/fInteractionMap.h"
55  
56    INTEGER, PARAMETER :: DP = selected_real_kind(15)
57  
# Line 862 | Line 864 | contains
864  
865   #ifdef IS_MPI
866         if (do_pot) then
867 <          pot_Row(atom1) = pot_Row(atom1) + phab*0.5
868 <          pot_Col(atom2) = pot_Col(atom2) + phab*0.5
867 >          pot_Row(EAM_POT,atom1) = pot_Row(EAM_POT,atom1) + phab*0.5
868 >          pot_Col(EAM_POT,atom2) = pot_Col(EAM_POT,atom2) + phab*0.5
869         end if
870  
871         f_Row(1,atom1) = f_Row(1,atom1) + fx

Diff Legend

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