X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA%2Ftogether.F;h=099c4692b7458b55df740b186a297b57c3bfe57e;hb=HEAD;hp=5737b4841ce978760fbd585d90c845fcd7a6e823;hpb=fef6575ec13df09d65b0b1ac7d7ca23ba4c57082;p=unres.git

diff --git a/source/unres/src_CSA/together.F b/source/unres/src_CSA/together.F
index 5737b48..099c469 100644
--- a/source/unres/src_CSA/together.F
+++ b/source/unres/src_CSA/together.F
@@ -1,3 +1,4 @@
+#ifdef MPI
       Subroutine together
 c  feeds tasks for parallel processing
       implicit real*8 (a-h,o-z)
@@ -718,6 +719,17 @@ cccccccccccccccccccccccccccccc
 
       return
       end
+#else
+      Subroutine together
+c  feeds tasks for parallel processing
+      implicit real*8 (a-h,o-z)
+      include 'DIMENSIONS'
+      include 'COMMON.IOUNITS'
+      write (iout,*) "Unsupported option for the serial version"
+      return
+      end
+#endif
+#ifdef MPI
 c-------------------------------------------------
       subroutine feedin(nconf,nft)
 c  sends out starting conformations and receives results of energy minimization
@@ -866,6 +878,7 @@ c  receives and stores data from soldiers
       include 'COMMON.CHAIN'
       include 'COMMON.CONTACTS'
       dimension ind(9),xout(maxvar),eout(mxch*(mxch+1)/2+1)
+      dimension cout(2)
 cjlee
       double precision przes(3),obr(3,3)
       logical non_conv
@@ -1278,3 +1291,4 @@ c----------------------------------------------------------
 #endif
        return
        end
+#endif