6/14/2012 by Adam

[unres.git] / source / unres / src_CSA / minim_mult.F

diff --git a/source/unres/src_CSA/minim_mult.F b/source/unres/src_CSA/minim_mult.F
index 835ea90..0af0b3b 100644 (file)
--- 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
+