Made sure this works with LAM.

This commit is contained in:
kolev 2008-05-19 16:40:13 +00:00
parent d6ada01d73
commit efa24c18a1

View File

@ -75,8 +75,12 @@ c-----------------------------------------------------------------------
call MPI_INIT(ierr)
call MPI_COMM_RANK(MPI_COMM_WORLD, myid, ierr)
call MPI_COMM_SIZE(MPI_COMM_WORLD, num_procs, ierr)
c for mpich, this is ok (LAM?)
mpi_comm = MPI_COMM_WORLD
c Convert the Fortran MPI communicator to a C version that can be used in hypre.
c Uncomment the line below if you are using MPICH
mpi_comm = MPI_COMM_WORLD
c Uncomment the line below if you are using LAM-MPI
c call HYPRE_MPI_Comm_f2c(mpi_comm, MPI_COMM_WORLD, ierr)
c Default problem parameters
n = 33