prismdrv_set_scc_info |
CALL
MPI_Send(ila_scc_info, 5, MPI_Integer, PRISMdrv_root + i, 0,
MPI_COMM_WORLD, id_err) CALL MPI_Recv (ila_scc_info, 5, MPI_Integer, PRISMdrv_root, 0, MPI_COMM_WORLD, il_status, id_err) |
prismtrs_bcast2trs |
broadcast the
number of exchanges CALL MPI_Bcast( ila_bcast, 2, MPI_Integer, PRISM_root, comm_drv_local, id_err ) |
broadcast the
informations on the exchanges and interp CALL MPI_Bcast( ila_info_exch, ila_info_exch_size*Number_of_Exchanges, MPI_Integer, PRISM_root, comm_drv_local, id_err ) CALL MPI_Bcast( ila_info_interp, 27*Number_of_Interps, MPI_Integer, PRISM_root, comm_drv_local, id_err ) CALL MPI_Bcast( dla_buffer, Number_of_Interps, MPI_DOUBLE_PRECISION, PRISM_root, comm_drv_local, id_err ) |
prismtrs_loop |
master
PRISM_root receives info from applications that they are in
prism_terminate when all applications are sent this message, master PRISM_root sends |