+#ifdef MPI
Subroutine together
c feeds tasks for parallel processing
implicit real*8 (a-h,o-z)
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
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
#endif
return
end
+#endif