X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Finitialize_p.F;h=855c7a4742e23dc827fde615b293543942966533;hb=b3efc8d5acc9051f49c246721f0d1f78dde46d01;hp=6806e622d297c69d5401cc9b32ea0cbb6ab24aea;hpb=e03a9f80b12c006af17dcbe2d9a6a8c431db1dd1;p=unres.git

diff --git a/source/unres/src-HCD-5D/initialize_p.F b/source/unres/src-HCD-5D/initialize_p.F
index 6806e62..855c7a4 100644
--- a/source/unres/src-HCD-5D/initialize_p.F
+++ b/source/unres/src-HCD-5D/initialize_p.F
@@ -446,6 +446,9 @@ c---------------------------------------------------------------------------
       include 'COMMON.TORCNSTR'
       include 'COMMON.IOUNITS'
       include 'COMMON.DERIV'
+#ifdef FOURBODY
+      include 'COMMON.CONTMAT'
+#endif
       include 'COMMON.CORRMAT'
       integer iturn3_start_all,iturn3_end_all,iturn4_start_all,
      & iturn4_end_all,iatel_s_all,