MPI F90 template

! to compile, use

! mpif90 parallelize_outer_of_triple_sum.mpi.f90

! to run, use

! mpirun -np 2 ./a.out

program parallel

implicit none

include 'mpif.h'

integer numcpu, rank, ierr

call MPI_INIT(ierr)

call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr)

call MPI_COMM_SIZE(MPI_COMM_WORLD, numcpu, ierr)

print *, 'Number of CPUs=',numcpu,' My rank=',rank

call mpi_finalize(ierr)

end program parallel