X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2FCOMMON.TORCNSTR;h=5219a9274a957d0f9bed208032a47696a9294ad8;hb=43dfdc33f5b338546258b5a882326f97a76b5bd4;hp=9476b50a7f81aa45343f414306c80e15e34c0190;hpb=68aa1d135805a14583695611acfcf637748b4466;p=unres.git

diff --git a/source/unres/src-HCD-5D/COMMON.TORCNSTR b/source/unres/src-HCD-5D/COMMON.TORCNSTR
index 9476b50..5219a92 100644
--- a/source/unres/src-HCD-5D/COMMON.TORCNSTR
+++ b/source/unres/src-HCD-5D/COMMON.TORCNSTR
@@ -1,4 +1,5 @@
-      integer ndih_constr,idih_constr(maxdih_constr),ntheta_constr,
+      integer ndih_constr,idih_constr(maxdih_constr),
+     & iconstr_dih(maxres),ntheta_constr,
      & itheta_constr(maxdih_constr)
       integer ndih_nconstr,idih_nconstr(maxdih_constr)
       integer idihconstr_start,idihconstr_end,ithetaconstr_start,
@@ -10,7 +11,7 @@
      & vpsipred(3,maxdih_constr),sdihed(2,maxdih_constr),wdihc
       common /torcnstr/ phi0,drange,ftors,theta_constr0,theta_drange,
      & for_thet_constr,vpsipred,sdihed,wdihc,
-     &  ndih_constr,idih_constr,
+     &  ndih_constr,idih_constr,iconstr_dih,
      &  ndih_nconstr,idih_nconstr,idihconstr_start,idihconstr_end,
      & ntheta_constr,itheta_constr,ithetaconstr_start,
      & ithetaconstr_end,raw_psipred