Made sure this works with LAM.
This commit is contained in:
parent
d6ada01d73
commit
efa24c18a1
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user