X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA%2Fminim_mult.F;h=0af0b3b8e703430a0cceeb1218538d07af3ff834;hb=5e13bfdf2c98103be8166d5d2bbf9269c40e63a4;hp=835ea90c4c3efaae029bcaf521a35000ebba7fb0;hpb=f0ab76db798e4461535a3ce519bf1188744a7d9b;p=unres.git

diff --git a/source/unres/src_CSA/minim_mult.F b/source/unres/src_CSA/minim_mult.F
index 835ea90..0af0b3b 100644
--- a/source/unres/src_CSA/minim_mult.F
+++ b/source/unres/src_CSA/minim_mult.F
@@ -1,3 +1,4 @@
+#ifdef MPI
       subroutine minim_mcmf
       implicit real*8 (a-h,o-z)
       include 'DIMENSIONS'
@@ -118,3 +119,13 @@ c       print *,indx(2),indx(5)
 
       return
       end
+#else
+      subroutine minim_mcmf
+      implicit real*8 (a-h,o-z)
+      include 'DIMENSIONS'
+      include 'COMMON.IOUNITS'
+      write (iout,*) "Unsupported option for serial version"
+      return
+      end
+#endif
+