slides - Spring School in Advanced Computing TACC @ UP
slides - Spring School in Advanced Computing TACC @ UP
slides - Spring School in Advanced Computing TACC @ UP
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Funnel<strong>in</strong>g through Master<br />
<strong>in</strong>clude ‘mpif.h’ <br />
program hybmas <br />
!$OMP parallel <br />
!$OMP barrier <br />
!$OMP master <br />
call MPI_(…,ierr) <br />
!$OMP end master <br />
!$OMP barrier <br />
!$OMP end parallel <br />
end <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 />
#pragma omp parallel <br />
{ <br />
#pragma omp barrier <br />
#pragma omp master <br />
{ <br />
ierr=MPI_(…) <br />
} <br />
#pragma omp barrier <br />
} <br />
} <br />
20