Skip to content
Snippets Groups Projects
Select Git revision
  • aa30af07037a3b17bd397948a5ac0c9dae926ce9
  • 2022 default
  • 2021
  • master protected
  • 2021
5 results

hello_mpi.f90

Blame
  • user avatar
    Kjartan Thor Wikfeldt authored
    1be3169d
    History
    hello_mpi.f90 266 B
    program MPI
    
    include "mpif.h"
    integer myrank,size,ierr
    
    call MPI_Init(ierr)
    call MPI_Comm_rank(MPI_COMM_WORLD,myrank,ierr)
    call MPI_Comm_size(MPI_COMM_WORLD,size,ierr)
    
    write(*,*) "Processor ",myrank," of ",size,": Hello World!"
    
    call MPI_Finalize(ierr)
    end program