X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA%2Fcheckder_p.F;h=3fc2e62d5b91c3fa55b2911a04c234ba5a38e474;hb=09cef8a826bd79949bdefd4f8b5dae831a04979e;hp=67465bbfed2a4bfc03c83f7b9dc5ff1e825603ec;hpb=478a9d9a1c99eb3f4bc4ca676ff3162bdd01d633;p=unres.git

diff --git a/source/unres/src_CSA/checkder_p.F b/source/unres/src_CSA/checkder_p.F
index 67465bb..3fc2e62 100644
--- a/source/unres/src_CSA/checkder_p.F
+++ b/source/unres/src_CSA/checkder_p.F
@@ -180,6 +180,9 @@ C Check the gradient of the energy in Cartesian coordinates.
       include 'COMMON.IOUNITS'
       include 'COMMON.VAR'
       include 'COMMON.CONTACTS'
+#ifdef MOMENT
+      include 'COMMON.CONTACTS.MOMENT'
+#endif	
       common /srutu/ icall
       dimension ggg(6),cc(3),xx(3),ddc(3),ddx(3),x(maxvar),g(maxvar)
       dimension grad_s(6,maxres)
@@ -258,6 +261,9 @@ C Check the gradient of the energy in Cartesian coordinates.
       include 'COMMON.IOUNITS'
       include 'COMMON.VAR'
       include 'COMMON.CONTACTS'
+#ifdef MOMENT
+      include 'COMMON.CONTACTS.MOMENT'
+#endif	
       include 'COMMON.MD_'
       include 'COMMON.LOCAL'
       include 'COMMON.SPLITELE'