working SC-base energy

[unres4.git] / source / unres / data / MD_data.f90

diff --git a/source/unres/data/MD_data.f90 b/source/unres/data/MD_data.f90
index 6087b9a..d0fa7e6 100644 (file)
--- a/source/unres/data/MD_data.f90
+++ b/source/unres/data/MD_data.f90
@@ -67,11 +67,11 @@
       real(kind=8),dimension(5) :: IP,mp
       real(kind=8),dimension(:,:),allocatable :: ISC,msc !(ntyp+1)
 !      common /langevin/
-      real(kind=8) :: rwat,etawat,stdfp,gamp!,Rb
-      real(kind=8), dimension(5) :: pstok
+      real(kind=8) :: rwat,etawat
+      real(kind=8), dimension(5) :: pstok,gamp,stdfp
       real(kind=8) :: cPoise=2.9361d0, Rb=0.001986d0
-      real(kind=8),dimension(:),allocatable :: gamsc !(ntyp1)
-      real(kind=8),dimension(:),allocatable :: stdfsc !(ntyp)
+      real(kind=8),dimension(:,:),allocatable :: gamsc !(ntyp1)
+      real(kind=8),dimension(:,:),allocatable :: stdfsc !(ntyp)
 
       real(kind=8),dimension(:,:),allocatable :: restok !(ntyp+1)
       logical :: surfarea