unres_package_Oct_2016 from emilial

[unres4.git] / source / unres / md_calc.f90

diff --git a/source/unres/md_calc.f90 b/source/unres/md_calc.f90
index e602ef9..50f23d7 100644 (file)
--- a/source/unres/md_calc.f90
+++ b/source/unres/md_calc.f90
@@ -3,6 +3,7 @@
       use io_units
       use MD_data, only:D_ban,IP
       use geometry_data
+!      use prng        ! prng.f90 or prng_32.f90
       implicit none
 !
 !-----------------------------------------------------------------------------
@@ -675,6 +676,7 @@
       integer :: L,JL,JK,J,JM1,K
       real(kind=8) :: A(*)
       real(kind=8) :: D(L)
+!el      real(kind=8) :: E(L)
       real(kind=8) :: E(*)!el E(L)
       real(kind=8) :: F
       real(kind=8) :: G