slides - Spring School in Advanced Computing TACC @ UP
slides - Spring School in Advanced Computing TACC @ UP
slides - Spring School in Advanced Computing TACC @ UP
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
<strong>in</strong>clude ‘mpif.h’ <br />
program hybs<strong>in</strong>g <br />
Serialize through S<strong>in</strong>gle<br />
call mpi_<strong>in</strong>it_thread(MPI_THREAD_SERIALIZED, <br />
iprovided,ierr) <br />
!$OMP parallel <br />
!$OMP barrier <br />
!$OMP s<strong>in</strong>gle <br />
call MPI_(…,ierr) <br />
!$OMP end s<strong>in</strong>gle <br />
Fortran C <br />
#<strong>in</strong>clude <br />
<strong>in</strong>t ma<strong>in</strong>(<strong>in</strong>t argc, char **argv){ <br />
<strong>in</strong>t rank, size, ierr, i; <br />
mpi_<strong>in</strong>it_thread(MPI_THREAD_SERIALIZED, <br />
iprovided) <br />
#pragma omp parallel <br />
{ <br />
#pragma omp barrier <br />
#pragma omp s<strong>in</strong>gle <br />
{ <br />
ierr=MPI_(…) <br />
} <br />
!!OMP barrier <br />
!$OMP end parallel <br />
end <br />
//pragma omp barrier <br />
} <br />
} <br />
22