Skip to content

Instantly share code, notes, and snippets.

@codedeep79

codedeep79/hello_mpi.f90

Created October 4, 2025 02:53
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save codedeep79/88915143a3de0735f29c6d587d5f4821 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save codedeep79/88915143a3de0735f29c6d587d5f4821 to your computer and use it in GitHub Desktop.
Download ZIP
Chương trình Fortran song song với MPI
Raw
hello_mpi.f90
program hello_mpi
use mpi
implicit none
integer :: rank, size, ierr
call MPI_Init(ierr)
call MPI_Comm_rank(MPI_COMM_WORLD, rank, ierr)
call MPI_Comm_size(MPI_COMM_WORLD, size, ierr)
print *, "Hello from rank", rank, "of", size, "processes!"
call MPI_Finalize(ierr)
end program hello_mpi
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment