Attachment 10268 Details for Bug 23281 – fortran f90 test code

fortran f90 test code

mpi_hello.f90 (text/plain), 604 bytes, created by eric gerbier on 2018-07-04 09:46:48 CEST

(hide)

Description:

Filename:

MIME Type:

Creator: eric gerbier

Created: 2018-07-04 09:46:48 CEST

Size: 604 bytes

patch

obsolete

      program hello
      use mpi
      parameter (MASTER = 0)

      integer numtasks, taskid, len, ierr
      character(MPI_MAX_PROCESSOR_NAME) hostname

      call MPI_INIT(ierr)
      call MPI_COMM_SIZE(MPI_COMM_WORLD, numtasks, ierr)
      call MPI_COMM_RANK(MPI_COMM_WORLD, taskid, ierr)

      call MPI_GET_PROCESSOR_NAME(hostname, len, ierr)
      write(*,20) taskid, hostname
      if (taskid .eq. MASTER) then
        write(*,30) numtasks
      end if

      call MPI_FINALIZE(ierr)

  20  format('Hello from task ',I2,' on ',A48)
  30  format('MASTER: Number of MPI tasks is: ',I2)

      end

Actions: View

Attachments on bug 23281: 10268