C
implicit real*8 (a-h,o-z)
include 'DIMENSIONS'
+#ifdef MPI
+ include 'mpif.h'
+ include 'COMMON.SETUP'
+ include 'COMMON.TIME1'
+#endif
include 'COMMON.CHAIN'
include 'COMMON.LOCAL'
include 'COMMON.GEO'
logical lprn
C Set lprn=.true. for debugging
lprn = .false.
+#ifdef MPI
+ if (nfgtasks.gt.1) then
+ time00=MPI_Wtime()
+ if (fg_rank.eq.0)
+ & call MPI_Bcast(13,1,MPI_INTEGER,king,FG_COMM,IERROR)
+ time01=MPI_Wtime()
+ call MPI_Bcast(phi(1),nres,MPI_DOUBLE_PRECISION,
+ & king,FG_COMM,IERR)
+ call MPI_Bcast(theta(1),nres,MPI_DOUBLE_PRECISION,
+ & king,FG_COMM,IERR)
+ call MPI_Bcast(alph(1),nres,MPI_DOUBLE_PRECISION,
+ & king,FG_COMM,IERR)
+ call MPI_Bcast(omeg(1),nres,MPI_DOUBLE_PRECISION,
+ & king,FG_COMM,IERR)
+ time_bcast=time_bcast+MPI_Wtime()-time00
+ time_bcastc=time_bcastc+MPI_Wtime()-time01
+ endif
+#endif
C
C Define the origin and orientation of the coordinate system and locate the
C first three CA's and SC(2).