X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA%2Fcheckder_p.F;fp=source%2Funres%2Fsrc_CSA%2Fcheckder_p.F;h=3fc2e62d5b91c3fa55b2911a04c234ba5a38e474;hb=0a11a2c4ccee14ed99ae44f2565b270ba8d4bbb6;hp=67465bbfed2a4bfc03c83f7b9dc5ff1e825603ec;hpb=5eb407964903815242c59de10960f42761139e10;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'