program saludo
implicit none
include 'mpif.h'
integer :: ierror, iquien, icuantos
call MPI_INIT (ierror)
call MPI_COMM_RANK(MPI_COMM_WORLD,iquien,ierror)
call MPI_COMM_SIZE(MPI_COMM_WORLD,icuantos,ierror)
write (*,*) "Hola futuros esclavos!!!! }:D>"
write (*,*) "proceso ", iquien, " de ", icuantos
call MPI_FINALIZE (ierror)
end program
Hola mundo con instrucciones de MPI para identificar el numero de proceso y el total de procesos
Be the first to comment
You can use [html][/html], [css][/css], [php][/php] and more to embed the code. Urls are automatically hyperlinked. Line breaks and paragraphs are automatically generated.