6/14/2012 by Adam
[unres.git] / source / unres / src_CSA / bank.F
index 38723ba..fc365e3 100644 (file)
@@ -1,3 +1,4 @@
+#ifdef MPI
 cc---------------------------------
       subroutine refresh_bank(ntrial)
       implicit real*8 (a-h,o-z)
@@ -1349,3 +1350,4 @@ c------------------------------------------------
       call flush(iout)
       return
       end
+#endif