X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Feconstr_qlike.F;h=1190ebf43db220a4737fcbe9e695090ddd9de798;hb=a30bd29e64da2aa47b84963fdd0bf4192ead2738;hp=9086093b63431f6e82d815b007da4626dc5e3a0c;hpb=020e579626d686ec20ecd9f0cc4c8313f474e152;p=unres.git

diff --git a/source/unres/src-HCD-5D/econstr_qlike.F b/source/unres/src-HCD-5D/econstr_qlike.F
index 9086093..1190ebf 100644
--- a/source/unres/src-HCD-5D/econstr_qlike.F
+++ b/source/unres/src-HCD-5D/econstr_qlike.F
@@ -1,15 +1,20 @@
       subroutine Econstr_back_qlike
 c     MD with umbrella_sampling using Wolyne's distance measure as a constraint
-      implicit real*8 (a-h,o-z)
+      implicit none
       include 'DIMENSIONS'
       include 'COMMON.CONTROL'
       include 'COMMON.VAR'
       include 'COMMON.MD'
+      include 'COMMON.QRESTR'
 #ifndef LANG0
       include 'COMMON.LANGEVIN'
 #else
+#ifdef FIVEDIAG
+      include 'COMMON.LANGEVIN.lang0.5diag'
+#else
       include 'COMMON.LANGEVIN.lang0'
 #endif
+#endif
       include 'COMMON.CHAIN'
       include 'COMMON.DERIV'
       include 'COMMON.GEO'
@@ -18,10 +23,14 @@ c     MD with umbrella_sampling using Wolyne's distance measure as a constraint
       include 'COMMON.IOUNITS'
       include 'COMMON.NAMES'
       include 'COMMON.TIME1'
+      integer i,ii,j,k
+      double precision utheta_i,dtheta_i,expthet,ugamma_i,dgamma_i,
+     & expgam,usc_i,dxx,dyy,dzz,expsc
       double precision sigmaang/0.1d0/,sigmadih /0.1d0/,sigmasc /0.1d0/
 c      double precision sigmaang/0.2d0/,sigmadih /0.4d0/,sigmasc /0.5d0/
       double precision auxvec(maxres),auxtab(3,maxres),
      & auxtab1(3,maxres),auxtabx(3,maxres)
+      double precision pinorm
       Uconst_back=0.0d0
       do i=1,nres
         dutheta(i)=0.0d0