August 2021 - mpi-forum - mailman3.cels.anl.gov

Re: [Mpi-forum] [EXTERNAL] Re: An f2c question
by Pritchard Jr., Howard 24 Aug '21

24 Aug '21

Hi Ralph, Okay, not quite right, looks like both mpich and open mpi use %MPI_VAL, so I'll go with that. Thanks, Howard On 8/24/21, 2:28 PM, "Rolf Rabenseifner" <rabenseifner(a)hlrs.de> wrote: Dear Howard, SUBROUTINE MPI_TYPE_COMMIT(DATATYPE, IERR) INTEGER :: IERR ! some module USE to include the definition of TYPE(MPI_Datatype) TYPE(MPI_Datatype) :: DATATYPE CALL MPI_X_TYPE_COMMIT(DATATYPE%IMPI_VAL, IERR) RETURN END I do not know how to handle the optional ierr, but here is the way you should handle the datatype handle. Best regards Rolf ----- Original Message ----- > From: "Main MPI Forum mailing list" <mpi-forum(a)lists.mpi-forum.org> > To: "Main MPI Forum mailing list" <mpi-forum(a)lists.mpi-forum.org> > Cc: "Pritchard" <howardp(a)lanl.gov> > Sent: Tuesday, August 24, 2021 10:19:27 PM > Subject: [Mpi-forum] An f2c question > Hi All, > > > > In porting an MPI application written mainly in Fortran and a little c to using > mpi_f08 rather than mpi, I’ve hit an issue. > > > > Namely, how would I write example 19.11 in the MPI 4 standard if the app uses > type(MPI_Type) rather than integer? > > Note I’m working with an application, so the MPI_Type structure is opaque, or at > least I thought we’re supposed to treat it as opaque. > > > > Here’s the example: > > > > Example 19.11 The example below illustrates how the Fortran MPI function > > MPI_TYPE_COMMIT can be implemented by wrapping the C MPI function > > MPI_Type_commit with a C wrapper to do handle conversions. In this example a > Fortran-C > > interface is assumed where a Fortran function is all upper case when referred to > from C and > > arguments are passed by addresses. > > ! FORTRAN PROCEDURE > > SUBROUTINE MPI_TYPE_COMMIT(DATATYPE, IERR) > > INTEGER :: DATATYPE, IERR > > CALL MPI_X_TYPE_COMMIT(DATATYPE, IERR) > > RETURN > > END > > /* C wrapper */ > > void MPI_X_TYPE_COMMIT(MPI_Fint *f_handle, MPI_Fint *ierr) > > { > > MPI_Datatype datatype; > > datatype = MPI_Type_f2c(*f_handle); > > *ierr = (MPI_Fint)MPI_Type_commit(&datatype); > > *f_handle = MPI_Type_c2f(datatype); > > return; > > } > > > > Now I suspect that most of the time if one has some old ‘c’ code assuming a > pointer to a 4 byte fortran integer argument for the datatype is just going to > work, but I’d rather not just try to be lucky. > > Anyway, there are fortran gurus on this project and they’d be sure to want a > better solution. > > > > Thanks for any help/ideas, > > > > Howard > > > > > > — > > > > > > > Howard Pritchard > > Research Scientist > > HPC-ENV > > > > Los Alamos National Laboratory > > howardp(a)lanl.gov > > > > [ https://www.instagram.com/losalamosnatlab/ ] [ > https://twitter.com/LosAlamosNatLab ] [ > https://www.linkedin.com/company/los-alamos-national-laboratory/ ] [ > https://www.facebook.com/LosAlamosNationalLab/ ] > > > > > > > _______________________________________________ > mpi-forum mailing list > mpi-forum(a)lists.mpi-forum.org > https://lists.mpi-forum.org/mailman/listinfo/mpi-forum -- Dr. Rolf Rabenseifner . . . . . . . . . .. email rabenseifner(a)hlrs.de . High Performance Computing Center (HLRS) . phone ++49(0)711/685-65530 . University of Stuttgart . . . . . . . . .. fax ++49(0)711 / 685-65832 . Head of Dpmt Parallel Computing . . . www.hlrs.de/people/rabenseifner . Nobelstr. 19, D-70550 Stuttgart, Germany . . . . (Office: Room 1.307) .

1 0

Re: [Mpi-forum] An f2c question
by Rolf Rabenseifner 24 Aug '21

24 Aug '21

Dear Howard, SUBROUTINE MPI_TYPE_COMMIT(DATATYPE, IERR) INTEGER :: IERR ! some module USE to include the definition of TYPE(MPI_Datatype) TYPE(MPI_Datatype) :: DATATYPE CALL MPI_X_TYPE_COMMIT(DATATYPE%IMPI_VAL, IERR) RETURN END I do not know how to handle the optional ierr, but here is the way you should handle the datatype handle. Best regards Rolf ----- Original Message ----- > From: "Main MPI Forum mailing list" <mpi-forum(a)lists.mpi-forum.org> > To: "Main MPI Forum mailing list" <mpi-forum(a)lists.mpi-forum.org> > Cc: "Pritchard" <howardp(a)lanl.gov> > Sent: Tuesday, August 24, 2021 10:19:27 PM > Subject: [Mpi-forum] An f2c question > Hi All, > > > > In porting an MPI application written mainly in Fortran and a little c to using > mpi_f08 rather than mpi, I’ve hit an issue. > > > > Namely, how would I write example 19.11 in the MPI 4 standard if the app uses > type(MPI_Type) rather than integer? > > Note I’m working with an application, so the MPI_Type structure is opaque, or at > least I thought we’re supposed to treat it as opaque. > > > > Here’s the example: > > > > Example 19.11 The example below illustrates how the Fortran MPI function > > MPI_TYPE_COMMIT can be implemented by wrapping the C MPI function > > MPI_Type_commit with a C wrapper to do handle conversions. In this example a > Fortran-C > > interface is assumed where a Fortran function is all upper case when referred to > from C and > > arguments are passed by addresses. > > ! FORTRAN PROCEDURE > > SUBROUTINE MPI_TYPE_COMMIT(DATATYPE, IERR) > > INTEGER :: DATATYPE, IERR > > CALL MPI_X_TYPE_COMMIT(DATATYPE, IERR) > > RETURN > > END > > /* C wrapper */ > > void MPI_X_TYPE_COMMIT(MPI_Fint *f_handle, MPI_Fint *ierr) > > { > > MPI_Datatype datatype; > > datatype = MPI_Type_f2c(*f_handle); > > *ierr = (MPI_Fint)MPI_Type_commit(&datatype); > > *f_handle = MPI_Type_c2f(datatype); > > return; > > } > > > > Now I suspect that most of the time if one has some old ‘c’ code assuming a > pointer to a 4 byte fortran integer argument for the datatype is just going to > work, but I’d rather not just try to be lucky. > > Anyway, there are fortran gurus on this project and they’d be sure to want a > better solution. > > > > Thanks for any help/ideas, > > > > Howard > > > > > > — > > > > > > > Howard Pritchard > > Research Scientist > > HPC-ENV > > > > Los Alamos National Laboratory > > howardp(a)lanl.gov > > > > [ https://www.instagram.com/losalamosnatlab/ ] [ > https://twitter.com/LosAlamosNatLab ] [ > https://www.linkedin.com/company/los-alamos-national-laboratory/ ] [ > https://www.facebook.com/LosAlamosNationalLab/ ] > > > > > > > _______________________________________________ > mpi-forum mailing list > mpi-forum(a)lists.mpi-forum.org > https://lists.mpi-forum.org/mailman/listinfo/mpi-forum -- Dr. Rolf Rabenseifner . . . . . . . . . .. email rabenseifner(a)hlrs.de . High Performance Computing Center (HLRS) . phone ++49(0)711/685-65530 . University of Stuttgart . . . . . . . . .. fax ++49(0)711 / 685-65832 . Head of Dpmt Parallel Computing . . . www.hlrs.de/people/rabenseifner . Nobelstr. 19, D-70550 Stuttgart, Germany . . . . (Office: Room 1.307) .

1 0

An f2c question
by Pritchard Jr., Howard 24 Aug '21

24 Aug '21

Hi All, In porting an MPI application written mainly in Fortran and a little c to using mpi_f08 rather than mpi, I’ve hit an issue. Namely, how would I write example 19.11 in the MPI 4 standard if the app uses type(MPI_Type) rather than integer? Note I’m working with an application, so the MPI_Type structure is opaque, or at least I thought we’re supposed to treat it as opaque. Here’s the example: Example 19.11 The example below illustrates how the Fortran MPI function MPI_TYPE_COMMIT can be implemented by wrapping the C MPI function MPI_Type_commit with a C wrapper to do handle conversions. In this example a Fortran-C interface is assumed where a Fortran function is all upper case when referred to from C and arguments are passed by addresses. ! FORTRAN PROCEDURE SUBROUTINE MPI_TYPE_COMMIT(DATATYPE, IERR) INTEGER :: DATATYPE, IERR CALL MPI_X_TYPE_COMMIT(DATATYPE, IERR) RETURN END /* C wrapper */ void MPI_X_TYPE_COMMIT(MPI_Fint *f_handle, MPI_Fint *ierr) { MPI_Datatype datatype; datatype = MPI_Type_f2c(*f_handle); *ierr = (MPI_Fint)MPI_Type_commit(&datatype); *f_handle = MPI_Type_c2f(datatype); return; } Now I suspect that most of the time if one has some old ‘c’ code assuming a pointer to a 4 byte fortran integer argument for the datatype is just going to work, but I’d rather not just try to be lucky. Anyway, there are fortran gurus on this project and they’d be sure to want a better solution. Thanks for any help/ideas, Howard — [signature_61897647] Howard Pritchard Research Scientist HPC-ENV Los Alamos National Laboratory howardp(a)lanl.gov [signature_577235141]<https://www.instagram.com/losalamosnatlab/>[signature_692833302]<https://twitter.com/LosAlamosNatLab>[signature_2019430084]<https://www.linkedin.com/company/los-alamos-national-laboratory/>[signature_231667440]<https://www.facebook.com/LosAlamosNationalLab/>

1 0

September Meeting / EuroMPI Registration Now Open & Send Reading/Vote Announcements
by Wesley Bland 23 Aug '21

23 Aug '21

Hi all, The registration link for the upcoming meeting is finally posted. https://forms.gle/vJ32yJqNxe2DCUxC7 <https://forms.gle/vJ32yJqNxe2DCUxC7> This link is used for both the MPI Forum and the EuroMPI conference (if you’d like to attend either/both). Please go ahead and register. If you have any reading/voting announcements for the meeting, please send those to the list as well. Because the meeting will only take place on Thursday and Friday, the announcements are due this Thursday. Thanks, Wes

1 0

Another reading announcement for September 2021 MPI Forum
by Pritchard Jr., Howard 19 Aug '21

19 Aug '21

HI Folks, Another reading I’d like to add to the agenda for the September 2021 MPI Forum meeting Errata Sessions: need to clarify limitations when mixing the sessions model with dynamic process model Issue on github: https://github.com/mpi-forum/mpi-issues/issues/434 Associated PR: https://github.com/mpi-forum/mpi-standard/pull/618 Thanks, Howard — [signature_61897647] Howard Pritchard Research Scientist HPC-ENV Los Alamos National Laboratory howardp(a)lanl.gov [signature_874608912]<https://www.instagram.com/losalamosnatlab/>[signature_1199976070]<https://twitter.com/LosAlamosNatLab>[signature_1616714731]<https://www.linkedin.com/company/los-alamos-national-laboratory/>[signature_1077178799]<https://www.facebook.com/LosAlamosNationalLab/>

1 0

Reading announcements for Sept 2021 MPI Forum meeting
by Dan Holmes 18 Aug '21

18 Aug '21

1 0

Re: [Mpi-forum] [EXTERNAL] Re: Reading announcement for issue 511
by Pritchard Jr., Howard 18 Aug '21

18 Aug '21

Hi Wesley, That’s what we’d like to do, correct. Howard From: Wesley Bland <work(a)wesbland.com> Date: Wednesday, August 18, 2021 at 7:17 AM To: mpi-forum <mpi-forum(a)lists.mpi-forum.org> Cc: "Pritchard Jr., Howard" <howardp(a)lanl.gov> Subject: [EXTERNAL] Re: [Mpi-forum] Reading announcement for issue 511 Just to clarify, this is marked as an errata reading. So it will be a reading and a vote. Is that correct? Thanks, Wes On Aug 17, 2021, at 3:40 PM, Pritchard Jr., Howard via mpi-forum <mpi-forum(a)lists.mpi-forum.org<mailto:[email protected]>> wrote: Hello All, For the upcoming September MPI forum, I’d like to announce a reading for a proposed change for the MPI 4.1 standard to clarify the error handler argument to MPI_Comm_create_from_group and MPI_Intercomm_create_from_groups. See issue https://github.com/mpi-forum/mpi-issues/issues/511 and associated pull request https://github.com/mpi-forum/mpi-standard/pull/610 Thanks, Howard — <image001.png> Howard Pritchard Research Scientist HPC-ENV Los Alamos National Laboratory howardp(a)lanl.gov<mailto:[email protected]> <image002.png><https://www.instagram.com/losalamosnatlab/><image003.png><https://twitter.com/LosAlamosNatLab><image004.png><https://www.linkedin.com/company/los-alamos-national-laboratory/><image005.png><https://www.facebook.com/LosAlamosNationalLab/> _______________________________________________ mpi-forum mailing list mpi-forum(a)lists.mpi-forum.org<mailto:[email protected]> https://lists.mpi-forum.org/mailman/listinfo/mpi-forum

1 0

Re: [Mpi-forum] Reading announcement for issue 511
by Wesley Bland 18 Aug '21

18 Aug '21

Just to clarify, this is marked as an errata reading. So it will be a reading and a vote. Is that correct? Thanks, Wes > On Aug 17, 2021, at 3:40 PM, Pritchard Jr., Howard via mpi-forum <mpi-forum(a)lists.mpi-forum.org> wrote: > > Hello All, > > For the upcoming September MPI forum, I’d like to announce a reading for a proposed change for the MPI 4.1 standard to clarify the error handler argument to MPI_Comm_create_from_group and MPI_Intercomm_create_from_groups. > > See issue > https://github.com/mpi-forum/mpi-issues/issues/511 <https://github.com/mpi-forum/mpi-issues/issues/511> > > and associated pull request > > https://github.com/mpi-forum/mpi-standard/pull/610 <https://github.com/mpi-forum/mpi-standard/pull/610> > > Thanks, > > Howard > > — > > <image001.png> > Howard Pritchard > Research Scientist > HPC-ENV > > Los Alamos National Laboratory > howardp(a)lanl.gov <mailto:[email protected]> > > <image002.png> <https://www.instagram.com/losalamosnatlab/><image003.png> <https://twitter.com/LosAlamosNatLab><image004.png> <https://www.linkedin.com/company/los-alamos-national-laboratory/><image005.png> <https://www.facebook.com/LosAlamosNationalLab/> > > > _______________________________________________ > mpi-forum mailing list > mpi-forum(a)lists.mpi-forum.org <mailto:[email protected]> > https://lists.mpi-forum.org/mailman/listinfo/mpi-forum <https://lists.mpi-forum.org/mailman/listinfo/mpi-forum>

1 0

No MPI Virtual Meeting today - next meeting on 8/25 (next week)
by Martin Schulz 18 Aug '21

18 Aug '21

Hi all, Since we don't have any particular topic lined up, we'll have no MPI Forum virtual meeting today (8/18). The next meeting will be next Wednesday - we'll again talk about minor clean-up issues for MPI 4.1. Specifically, Bill has several items he would like to go through. If there are other topics, please let Wesley and me know. Thanks! Martin -- Prof. Dr. Martin Schulz, Chair of Computer Architecture and Parallel Systems Department of Informatics, TU-Munich, Boltzmannstraße 3, D-85748 Garching Member of the Board of Directors at the Leibniz Supercomputing Centre (LRZ) Email: schulzm(a)in.tum.de

1 0

Reading announcement for issue 511
by Pritchard Jr., Howard 17 Aug '21

17 Aug '21

Hello All, For the upcoming September MPI forum, I’d like to announce a reading for a proposed change for the MPI 4.1 standard to clarify the error handler argument to MPI_Comm_create_from_group and MPI_Intercomm_create_from_groups. See issue https://github.com/mpi-forum/mpi-issues/issues/511 and associated pull request https://github.com/mpi-forum/mpi-standard/pull/610 Thanks, Howard — [signature_61897647] Howard Pritchard Research Scientist HPC-ENV Los Alamos National Laboratory howardp(a)lanl.gov [signature_1584871576]<https://www.instagram.com/losalamosnatlab/>[signature_1008770528]<https://twitter.com/LosAlamosNatLab>[signature_387240688]<https://www.linkedin.com/company/los-alamos-national-laboratory/>[signature_1173835964]<https://www.facebook.com/LosAlamosNationalLab/>

1 0