Adam's unres update

[unres.git] / source / unres / src-HCD-5D / COMMON.TORCNSTR

diff --git a/source/unres/src-HCD-5D/COMMON.TORCNSTR b/source/unres/src-HCD-5D/COMMON.TORCNSTR
index 9476b50..5219a92 100644 (file)
--- 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