--- trunk/OOPSE-2.0/src/UseTheForce/doForces_interface.F90	2005/01/14 20:31:16	1948
+++ trunk/OOPSE-2.0/src/UseTheForce/doForces_interface.F90	2005/04/15 22:04:00	2204
@@ -3,15 +3,15 @@ subroutine initFortranFF(use_RF_c, thisStat)
 subroutine initFortranFF(use_RF_c, thisStat)
   use doForces, ONLY: init_FF
   logical, intent(in) :: use_RF_c
-  
+
   integer, intent(out) :: thisStat   
   call init_FF(use_RF_c, thisStat)
-  
+
 end subroutine initFortranFF
 
 subroutine doForceloop(q, q_group, A, eFrame, f, t, tau, pot, &
      do_pot_c, do_stress_c, error)
-  
+
   use definitions, ONLY: dp
   use simulation
   use doForces, ONLY: do_force_loop
@@ -27,14 +27,14 @@ subroutine doForceloop(q, q_group, A, eFrame, f, t, ta
   real ( kind = dp ), dimension(3,nLocal) :: f
   !! Torsion array provided by C, dimensioned by getNlocal
   real( kind = dp ), dimension(3,nLocal) :: t    
-  
+
   !! Stress Tensor
   real( kind = dp), dimension(9) :: tau   
   real ( kind = dp ) :: pot
   logical ( kind = 2) :: do_pot_c, do_stress_c
   integer :: error
-  
+
   call do_force_loop(q, q_group, A, eFrame, f, t, tau, pot, &
        do_pot_c, do_stress_c, error)
-  
+
 end subroutine doForceloop