projects
/
unres4.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 io_units
use MD_data, only:D_ban,IP
use geometry_data
+! use prng ! prng.f90 or prng_32.f90
implicit none
!
!-----------------------------------------------------------------------------
implicit none
!
!-----------------------------------------------------------------------------
@@
-675,6
+676,7
@@
integer :: L,JL,JK,J,JM1,K
real(kind=8) :: A(*)
real(kind=8) :: D(L)
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
real(kind=8) :: E(*)!el E(L)
real(kind=8) :: F
real(kind=8) :: G