添付ファイル 'sample_mpi.f90'
ダウンロード 1 PROGRAM MAIN
2 IMPLICIT NONE
3 include 'mpif.h'
4 INTEGER :: IERR,MYID,NPROCS
5 INTEGER :: STATUS
6 CHARACTER(128) :: HNAME
7 INTEGER(4) :: HOSTNM
8
9 CALL MPI_INIT(IERR)
10 CALL MPI_COMM_SIZE(MPI_COMM_WORLD,NPROCS,IERR)
11 CALL MPI_COMM_RANK(MPI_COMM_WORLD,MYID,IERR)
12
13 STATUS = HOSTNM(HNAME)
14 IF (MYID==0) WRITE(*,'("NUMBER OF PROCESSES: ",I3)') NPROCS
15 WRITE(*,'("HELLO WORLD! (MYID: ",I3,", HOST NAME: ",A10,")")') MYID,HNAME
16
17 CALL MPI_FINALIZE(IERR)
18
19 END PROGRAM MAIN
添付ファイル
添付ファイルを参照するには、(下のファイル一覧にあるように)attachment:filenameと記述します。 [get]リンクのURLは変更される可能性が高いので、利用しないでください。ファイルを添付する権限がありません。