X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA%2Fcsa.f;h=a5149f2dabd2ea26019bf44abdca7c20fc463fc1;hb=6783c8f3a48ca9c700931793e75ed1d10e92acb6;hp=cfb017abbdaed74bfb8b2155007953cdeedea345;hpb=a45ce81aae2c857c30b821e39e45a7a08356de4d;p=unres.git diff --git a/source/unres/src_CSA/csa.f b/source/unres/src_CSA/csa.f index cfb017a..a5149f2 100644 --- a/source/unres/src_CSA/csa.f +++ b/source/unres/src_CSA/csa.f @@ -213,6 +213,9 @@ ccccccccccccccccccccccccccccccccccccccccccccccccc include 'COMMON.BANK' include 'COMMON.GEO' include 'COMMON.CONTACTS' +#ifdef MOMENT + include 'COMMON.CONTACTS.MOMENT' +#endif integer ilen external ilen logical fail