6/14/2012 by Adam

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

diff --git a/source/unres/src_CSA/minim_jlee.F b/source/unres/src_CSA/minim_jlee.F
index f1e00be..2b53f11 100644 (file)
--- a/source/unres/src_CSA/minim_jlee.F
+++ b/source/unres/src_CSA/minim_jlee.F
@@ -1,3 +1,4 @@
+#ifdef MPI
       subroutine minim_jlee
 c  controls minimization and sorting routines
       implicit real*8 (a-h,o-z)
@@ -375,6 +376,16 @@ cd          call enerprint(energia(0))
      *  i4,' # of gradient calls ',i4,10x)
   975 format (' energy ',1p,e12.4,' scaled gradient ',e11.3,32x)
       end
+#else
+      subroutine minim_jlee
+c  controls minimization and sorting routines
+      implicit real*8 (a-h,o-z)
+      include 'DIMENSIONS'
+      include 'COMMON.IOUNITS'
+      write (iout,*) "Unsupported option for serial version"
+      return
+      end
+#endif
 
       logical function check_var(var,info)
       implicit real*8 (a-h,o-z)