Open MPI logo

Open MPI User's Mailing List Archives

  |   Home   |   Support   |   FAQ   |   all Open MPI User's mailing list

From: Michael Kluskens (mkluskens_at_[hidden])
Date: 2006-04-25 10:17:06


I'm using OpenMPI 1.1 (today a3r9704) because 1.0.1 and 1.0.2 didn't
have enough support for the two MPI-2 commands I need for my project.

Because a tight deadline I'm not testing the trunk which is
openmpi-1.2a1r9704 at the moment.

Instead I'm making the fix to 1.1 I described below and then re-making.

Michael

On Apr 25, 2006, at 9:58 AM, Jeff Squyres (jsquyres) wrote:

> I apologize for the delay (and I actually do greatly appreciate your
> reminders!). I made a change on the trunk back when I replied; I'm
> waiting for my resident F90 expert to give me the "correct" fix (the
> bindings are actually generated out of CHASM and XSL files) so that it
> can be properly applied to the v1.1 branch.
>
> Is the trunk working properly for you? (i.e., I did a hackaround
> on the
> trunk to get the interface right, but I need to XSL fixes before I can
> commit it to the branch)
>
>
>> -----Original Message-----
>> From: users-bounces_at_[hidden]
>> [mailto:users-bounces_at_[hidden]] On Behalf Of Michael Kluskens
>> Sent: Tuesday, April 25, 2006 9:45 AM
>> To: Open MPI Users
>> Subject: Re: [OMPI users] f90 interface error?: MPI_Comm_get_attr
>>
>> This problem still exists in OpenMPI 1.1a3r9704 (Apr 24, 2006), I
>> reported it for 9663 (Apr 20, 2006).
>>
>> Michael
>>
>> On Apr 21, 2006, at 12:32 AM, Jeff Squyres (jsquyres) wrote:
>>
>>> You're correct on all counts.
>>>
>>> I've corrected the .h.sh script in the trunk and will get
>> the correct
>>> XSL (!) fixes in shortly (even the .h.sh script is generated from a
>>> marked up version of mpi.h -- don't ask ;-) ). I also corrected
>>> type_get_attr and win_get_attr.
>>>
>>> Thanks!
>>>
>>>
>>>> -----Original Message-----
>>>> From: users-bounces_at_[hidden]
>>>> [mailto:users-bounces_at_[hidden]] On Behalf Of Michael Kluskens
>>>> Sent: Thursday, April 20, 2006 3:22 PM
>>>> To: Open MPI Users
>>>> Subject: Re: [OMPI users] f90 interface error?: MPI_Comm_get_attr
>>>>
>>>> The file 'ompi/mpi/f90/mpi-f90-interfaces.h' is automatically
>>>> generated by ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh? I
>>>> couldn't get my temp fix to stick so I modified the latter.
>>>>
>>>> Should be?
>>>>
>>>> ----------------------------------------
>>>> subroutine ${procedure}(comm, comm_keyval, attribute_val,
>> flag, ierr)
>>>> include 'mpif.h'
>>>> integer, intent(in) :: comm
>>>> integer, intent(in) :: comm_keyval
>>>> integer(kind=MPI_ADDRESS_KIND), intent(out) :: attribute_val
>>>> logical, intent(out) :: flag
>>>> integer, intent(out) :: ierr
>>>> end subroutine ${procedure}
>>>>
>>>> EOF
>>>> }
>>>>
>>>> start MPI_Comm_get_attr small
>>>> output MPI_Comm_get_attr
>>>> end MPI_Comm_get_attr
>>>> ----------------------------------------
>>>>
>>>> I notice that f77 is correct in: ompi/mpi/f77/prototypes_mpi.h
>>>> PN(void, mpi_comm_get_attr, MPI_COMM_GET_ATTR, (MPI_Fint *comm,
>>>> MPI_Fint *comm_keyval, MPI_Aint *attribute_val, MPI_Flogical *flag,
>>>> MPI_Fint *ierr));
>>>>
>>>> On Apr 20, 2006, at 2:24 PM, Michael Kluskens wrote:
>>>>
>>>>> Error in:
>>>>>
>>>>> openmpi-1.1a3r9663/ompi/mpi/f90/mpi-f90-interfaces.h
>>>>>
>>>>> subroutine MPI_Comm_get_attr(comm, comm_keyval,
>> attribute_val, flag,
>>>>> ierr)
>>>>> include 'mpif.h'
>>>>> integer, intent(in) :: comm
>>>>> integer, intent(in) :: comm_keyval
>>>>> integer(kind=MPI_ADDRESS_KIND), intent(out) :: attribute_val
>>>>> integer, intent(out) :: flag
>>>>> integer, intent(out) :: ierr
>>>>> end subroutine MPI_Comm_get_attr
>>>>>
>>>>> flag should be a logical. Only in C is it an integer.
>>>>>
>>>>> Compare with page 294 of MPI--The Complete Reference, Volume 1 and
>>>>> page 176 of Using MPI, 2nd ed.
>>>>>
>>>>> In my test case I'm using:
>>>>>
>>>>> call MPI_Comm_get_attr(MPI_COMM_WORLD, MPI_UNIVERSE_SIZE, &
>>>>> universe_size, flag, ierr)
>>>>>
>>>>> integer :: ierr
>>>>> integer (kind=MPI_ADDRESS_KIND) :: universe_size
>>>>> logical :: flag
>>>>>
>>>>> This compiled and worked as of version 9427.
>>>>>
>>>>> Michael
>>>>>
>>>>> _______________________________________________
>>>>> users mailing list
>>>>> users_at_[hidden]
>>>>> http://www.open-mpi.org/mailman/listinfo.cgi/users
>>>>>
>>>>
>>>> _______________________________________________
>>>> users mailing list
>>>> users_at_[hidden]
>>>> http://www.open-mpi.org/mailman/listinfo.cgi/users
>>>>
>>>
>>> _______________________________________________
>>> users mailing list
>>> users_at_[hidden]
>>> http://www.open-mpi.org/mailman/listinfo.cgi/users
>>>
>>
>> _______________________________________________
>> users mailing list
>> users_at_[hidden]
>> http://www.open-mpi.org/mailman/listinfo.cgi/users
>>
>
> _______________________________________________
> users mailing list
> users_at_[hidden]
> http://www.open-mpi.org/mailman/listinfo.cgi/users
>