우선 질문 대상이 되는 코드는 아래와 같은 단순한 MPI 예제입니다.
process 0 이 process 1로부터 double들로 이루어진 배열을 받는 것인데요,
----------------------------------- script --------------------------------
1 program main
2 use MPI
3 integer count
4 real*8 data(0:99), value(200)
5 integer dest, i, ierr, num_procs, rank, status(MPI_STATUS_SIZE), tag
6 call MPI_INIT ( ierr )
7 call MPI_COMM_RANK ( MPI_COMM_WORLD, rank, ierr )
8 call MPI_COMM_SIZE ( MPI_COMM_WORLD, num_procs, ierr )
9 if ( rank .eq. 0 ) then