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

Comparing trunk/OOPSE-4/src/UseTheForce/doForces_interface.F90 (file contents):
Revision 2309 by chrisfen, Sun Sep 18 20:45:38 2005 UTC vs.
Revision 2358 by chuckv, Wed Oct 12 20:22:34 2005 UTC

# Line 20 | Line 20 | subroutine doForceloop(q, q_group, A, eFrame, f, t, ta
20    use definitions, ONLY: dp
21    use simulation
22    use doForces, ONLY: do_force_loop
23 +
24 + #define __FORTRAN90
25 + #include "UseTheForce/DarkSide/fInteractionMap.h"
26 +
27    !! Position array provided by C, dimensioned by getNlocal
28    real ( kind = dp ), dimension(3, nLocal) :: q
29    !! molecular center-of-mass position array
# Line 35 | Line 39 | subroutine doForceloop(q, q_group, A, eFrame, f, t, ta
39  
40    !! Stress Tensor
41    real( kind = dp), dimension(9) :: tau  
42 <  real ( kind = dp ) :: pot
42 >  real ( kind = dp ),dimension(POT_ARRAY_SIZE) :: pot
43    logical ( kind = 2) :: do_pot_c, do_stress_c
44    integer :: error
45  

Diff Legend

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