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.
Hybrid Cod<strong>in</strong>g<br />
<strong>in</strong>clude ‘mpif.h’ <br />
program hybsimp <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 />
call MPI_Init(ierr) <br />
call MPI_Comm_rank (...,irank,ierr) <br />
call MPI_Comm_size (...,isize,ierr) <br />
! Setup shared mem, comp. & Comm <br />
!$OMP parallel do <br />
do i=1,n <br />
<br />
enddo <br />
! compute & communicate <br />
call MPI_F<strong>in</strong>alize(ierr) <br />
end <br />
ierr= MPI_Init(&argc,&argv[]); <br />
ierr= MPI_Comm_rank (...,&rank); <br />
ierr= MPI_Comm_size (...,&size); <br />
//Setup shared mem, compute & Comm <br />
#pragma omp parallel for <br />
for(i=0; i