program testmpi
include 'mpif.h'
integer :: num_proc, ierr, my_rank
call MPI_INIT(ierr)
call MPI_COMM_SIZE(MPI_COMM_WORLD, num_proc, ierr)
call MPI_COMM_RANK(MPI_COMM_WORLD, my_rank, ierr)
write(*,*) 'hello from CPU', my_rank,'of',num_proc,'CPUs'
call MPI_Finalize(Ierr)
end program