1 c---------------------------------------------------------------------
2 c---------------------------------------------------------------------
4 subroutine bcast_inputs
6 c---------------------------------------------------------------------
7 c---------------------------------------------------------------------
14 c---------------------------------------------------------------------
16 c---------------------------------------------------------------------
19 c---------------------------------------------------------------------
20 c root broadcasts the data
21 c The data isn't contiguous or of the same type, so it's not
22 c clear how to send it in the "MPI" way.
23 c We could pack the info into a buffer or we could create
24 c an obscene datatype to handle it all at once. Since we only
25 c broadcast the data once, just use a separate broadcast for
27 c---------------------------------------------------------------------
28 call MPI_BCAST(ipr, 1, MPI_INTEGER, root, MPI_COMM_WORLD, ierr)
29 call MPI_BCAST(inorm, 1, MPI_INTEGER, root, MPI_COMM_WORLD, ierr)
30 call MPI_BCAST(itmax, 1, MPI_INTEGER, root, MPI_COMM_WORLD, ierr)
31 call MPI_BCAST(dt, 1, dp_type, root, MPI_COMM_WORLD, ierr)
32 call MPI_BCAST(omega, 1, dp_type, root, MPI_COMM_WORLD, ierr)
33 call MPI_BCAST(tolrsd, 5, dp_type, root, MPI_COMM_WORLD, ierr)
34 call MPI_BCAST(nx0, 1, MPI_INTEGER, root, MPI_COMM_WORLD, ierr)
35 call MPI_BCAST(ny0, 1, MPI_INTEGER, root, MPI_COMM_WORLD, ierr)
36 call MPI_BCAST(nz0, 1, MPI_INTEGER, root, MPI_COMM_WORLD, ierr)