parallel / 2-2010

# &

# & ) ( ( ! C ( Fortran. " ( MPI_Wtime MPI_Wtick, ) &

.

" ( MPI_SUCCESS

& & MPI_ERR_OTHER (

MPI_Init.

# &

( (

. :

MPI_ERR_BUFFER !;

MPI_ERR_COMM ;

MPI_ERR_RANK ;

MPI_ERR_OP ;

MPI_ERR_ARG ;

MPI_ERR_UNKNOWN &;

MPI_ERR_INTERN &. ( ,

.

MPI-

MPI-

MPI ,

.

( , ,

( ) ( !.

C + mpi.h:

#include "mpi.h"

FORTRAN mpif.h: include "mpif.h"

+ !

MPI.

MPI-

( MPI

MPI_Init,

MPI_Initialized, )

, MPI.

. Fortran

&: integer IERR

call mpi_init(ierr)

MPI-

C ! (

, :

MPI_Init(&argc, &argv);

. ( mpirun MPI-

, MPI_Init.

Fortran .

MPI_COMM_WORLD. /

) MPI.

MPI-

)

MPI_Finalize(ierr)

+ MPI

.

, ( MPI_Finalize

& .

MPI, ( MPI_Init, . " ( MPI_Initialized,

) ( " ", MPI_Init. %

.

MPI-

master-slave

program parallel

…

if ( = ) then master

else slave endif

…

end

# MPI-

MPI

MPI_Iinit(int *argc, char **argv)

( MPI.

1 argc argv C,

(

+ . %

& ( MPI