Commit e5dcc0e7 authored by Francois Tessier's avatar Francois Tessier

MPI-IO based TAPIOCA module for BT

parent d3aaafbe
...@@ -26,17 +26,7 @@ c--------------------------------------------------------------------- ...@@ -26,17 +26,7 @@ c---------------------------------------------------------------------
call mpi_bcast(collbuf_size, 1, MPI_INTEGER, call mpi_bcast(collbuf_size, 1, MPI_INTEGER,
> root, comm_setup, ierr) > root, comm_setup, ierr)
if (collbuf_nodes .eq. 0) then info = MPI_INFO_NULL
info = MPI_INFO_NULL
else
write (cb_nodes,*) collbuf_nodes
write (cb_size,*) collbuf_size
call MPI_Info_create(info, ierr)
call MPI_Info_set(info, 'cb_nodes', cb_nodes, ierr)
call MPI_Info_set(info, 'cb_buffer_size', cb_size, ierr)
call MPI_Info_set(info, 'collective_buffering', 'true', ierr)
endif
call MPI_Type_contiguous(5, MPI_DOUBLE_PRECISION, call MPI_Type_contiguous(5, MPI_DOUBLE_PRECISION,
$ element, ierr) $ element, ierr)
call MPI_Type_commit(element, ierr) call MPI_Type_commit(element, ierr)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment