Hi Gilles,
Thank you very much for your answer. I modified the code and it worked!
Here is the modified code:
program main
use mpi
integer myid, numprocs, ierr
integer comm1d, nbrbottom, nbrtop, s, e, it
call MPI_INIT( ierr )
call MPI_COMM_RANK( MPI_COMM_WORLD, myid, ierr )
call MPI_COMM_SIZE( MPI_COMM_WORLD, numprocs, ierr )
!
call MPI_CART_CREATE( MPI_COMM_WORLD, 1, *[numprocs], [.false.]*,
.true., comm1d, ierr )
!
call MPI_COMM_RANK( comm1d, myid, ierr )
call MPI_Cart_shift( comm1d, 0, 1, nbrbottom, nbrtop, ierr )
!
call MPI_FINALIZE(ierr)
end program
Best regards,
Hector
On Tue, Oct 6, 2015 at 4:30 PM, Gilles Gouaillardet <
gilles.gouaillar...@gmail.com> wrote:
> Hector,
>
> numprocs and .false. are scalars and MPI_Cart_create expects one dimension
> array.
> can you fix this and try again ?
>
> Cheers,
>
> Gilles
>
>
> On Wednesday, October 7, 2015, Hector E Barrios Molano <hect...@utexas.edu>
> wrote:
>
>> Hi Open MPI Experts!
>>
>> I'm using OpenMPI v1.10.0 and get this error when using MPI_CART_CREATE:
>>
>> simple.f90(10): error #6285: There is no matching specific subroutine for
>> this generic subroutine call. [MPI_CART_CREATE]
>> call MPI_CART_CREATE( MPI_COMM_WORLD, 1, numprocs, .false., .true.,
>> comm1d, ierr )
>> ---------^
>> compilation aborted for simple.f90 (code 1)
>>
>>
>> I'm using ifort v 15.0.3 through mpifort wrapper
>>
>> Here is the code I'm trying to compile:
>>
>> program main
>> use mpi
>> integer myid, numprocs, ierr
>> integer comm1d, nbrbottom, nbrtop, s, e, it
>>
>> call MPI_INIT( ierr )
>> call MPI_COMM_RANK( MPI_COMM_WORLD, myid, ierr )
>> call MPI_COMM_SIZE( MPI_COMM_WORLD, numprocs, ierr )
>> !
>> call MPI_CART_CREATE( MPI_COMM_WORLD, 1, numprocs, .false., .true.,
>> comm1d, ierr )
>> !
>> call MPI_COMM_RANK( comm1d, myid, ierr )
>> call MPI_Cart_shift( comm1d, 0, 1, nbrbottom, nbrtop, ierr )
>> !
>> call MPI_FINALIZE(ierr)
>> end program
>>
>>
>> It seems that everything is ok, do you know why I'm having this problem?
>>
>> Thank you very much for your help!
>>
>> Best regards,
>>
>> Hector
>>
>
> _______________________________________________
> users mailing list
> us...@open-mpi.org
> Subscription: http://www.open-mpi.org/mailman/listinfo.cgi/users
> Link to this post:
> http://www.open-mpi.org/community/lists/users/2015/10/27824.php
>
