Open MPI logo

Open MPI Development Mailing List Archives

  |   Home   |   Support   |   FAQ   |   all Development mailing list

Subject: Re: [OMPI devel] Fortran mpi module missing MPI_CART_SHIFT
From: Larry Baker (baker_at_[hidden])
Date: 2009-10-26 16:26:24


Jeff,

You are exactly right. I had a typo in the declaration of one of the
arguments, and I had neglected to use "Implicit None". I should know
better than to leave out "Implicit None".

Thanks for the diagnosis.

Larry Baker
US Geological Survey
650-329-5608
baker_at_[hidden]

On Oct 26, 2009, at 12:23 PM, Jeff Squyres wrote:

> On Oct 15, 2009, at 9:28 PM, Larry Baker wrote:
>
>> ../src/run_nnlsqs_mpi.f(39): error #6285: There is no matching
>> specific subroutine for this generic subroutine call.
>> [MPI_CART_SHIFT]
>> Call MPI_CART_SHIFT( mpi_comm_grid, direction, amount,
>> -------------^
>>
>
> Sorry for the delay in replying; my INBOX has grown totally out of
> hand. :-(
>
> I see that we do define MPI_CART_SHIFT in our F90 module as follows:
>
> subroutine MPI_Cart_shift(comm, direction, disp, rank_source,
> rank_dest, ierr)
> integer, intent(in) :: comm
> integer, intent(in) :: direction
> integer, intent(in) :: disp
> integer, intent(out) :: rank_source
> integer, intent(out) :: rank_dest
> integer, intent(out) :: ierr
> end subroutine MPI_Cart_shift
>
> Do all your arguments match? The output you give above only shows
> the first 3 parameters and none of their types.
>
>> With Fortran 90 "Include 'mpif.h'", no errors.
>>
>
>
> mpif.h does not provide any argument checking at all (even when
> compiled with an F90 compiler).
>
> --
> Jeff Squyres
> jsquyres_at_[hidden]
>
> _______________________________________________
> devel mailing list
> devel_at_[hidden]
> http://www.open-mpi.org/mailman/listinfo.cgi/devel