X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fdata%2Fenergy_data.f90;h=a26a0aa352549df91465e9894a7ee179ed502d9a;hb=4baa9e481f53d4c89b076f3aece756fc47282649;hp=2a1c416cfc4876e0c922bc22422d5e417c1a70a4;hpb=c6876dcce64a90f33b45e64810b2bf7f2de7d79e;p=unres4.git

diff --git a/source/unres/data/energy_data.f90 b/source/unres/data/energy_data.f90
index 2a1c416..a26a0aa 100644
--- a/source/unres/data/energy_data.f90
+++ b/source/unres/data/energy_data.f90
@@ -274,9 +274,9 @@
       integer,dimension(:),allocatable :: idih_constr,idih_nconstr,itheta_constr !(maxdih_constr)
       integer :: idihconstr_start,idihconstr_end, &
        ithetaconstr_start,ithetaconstr_end
-      real(kind=8) :: ftors
+!      real(kind=8) :: ftors
       real(kind=8),dimension(:),allocatable :: drange,theta_constr0,theta_drange !(maxdih_constr)
-      real(kind=8),dimension(:),allocatable :: phi0 !(maxdih_constr)
+      real(kind=8),dimension(:),allocatable :: phi0,ftors !(maxdih_constr)
       real(kind=8),dimension(:),allocatable :: for_thet_constr !(maxdih_constr)
 
 !-----------------------------------------------------------------------------