<div dir="ltr">I don't think it's worth a plenary.  It really comes down to whether the Fortran Wizards (Rolf, Bill, Hubert) accept this.  The implementation of this change is easy.<div><br></div><div>Jeff</div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Mon, Nov 29, 2021 at 4:03 PM Wesley Bland <<a href="mailto:work@wesbland.com">work@wesbland.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div style="overflow-wrap: break-word;">As long as we’re having remote meetings, we’re not setting up WG time during the meeting itself. So each WG is just having its usual con calls on their own schedule (or in the case of Fortran, not). If you folks want to throw together a plenary, we can still put that on the agenda though.<div><br></div><div><div>Thanks,</div><div>Wes</div><div><br><blockquote type="cite"><div>On Nov 29, 2021, at 3:45 AM, Jeff Hammond via mpiwg-fortran <<a href="mailto:mpiwg-fortran@lists.mpi-forum.org" target="_blank">mpiwg-fortran@lists.mpi-forum.org</a>> wrote:</div><br><div><div dir="ltr" style="font-family:Helvetica;font-size:12px;font-style:normal;font-variant-caps:normal;font-weight:normal;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;text-decoration:none">I created<span> </span><a href="https://github.com/mpi-forum/mpi-issues/issues/528" target="_blank">https://github.com/mpi-forum/mpi-issues/issues/528</a>.<div><br></div><div>Normally, we would have a Fortran WG meeting during the quarterly meeting.  Is there going to be a Fortran WG session at the December meeting?<br><div><br></div><div>Jeff</div></div></div><br style="font-family:Helvetica;font-size:12px;font-style:normal;font-variant-caps:normal;font-weight:normal;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;text-decoration:none"><div class="gmail_quote" style="font-family:Helvetica;font-size:12px;font-style:normal;font-variant-caps:normal;font-weight:normal;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;text-decoration:none"><div dir="ltr" class="gmail_attr">On Sat, Nov 27, 2021 at 9:14 PM William Gropp <<a href="mailto:wgropp@illinois.edu" target="_blank">wgropp@illinois.edu</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div>I agree with Jeff here.  This is a good enhancement; I believe the only reason that we hadn’t done this before is that we’ve stuck closely to the original Fortran look-and-feel - which was pre-Fortran 90.  We could have done this earlier, and now that there are explicit interfaces that are only available in Fortran08, there is no reason not to do this.<div><br></div><div>Bill</div><div><br><div><div dir="auto" style="letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;text-decoration:none"><div>William Gropp<br>Director, NCSA<br>Thomas M. Siebel Chair in Computer Science</div><div>University of Illinois Urbana-Champaign</div><div>IEEE-CS President-Elect</div><div><br></div></div><br><br></div><div><br><blockquote type="cite"><div>On Nov 25, 2021, at 4:42 AM, Jeff Hammond via mpiwg-fortran <<a href="mailto:mpiwg-fortran@lists.mpi-forum.org" target="_blank">mpiwg-fortran@lists.mpi-forum.org</a>> wrote:</div><br><div><div dir="ltr"><div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>RMA absolutely did the right thing with MPI_Aint size and displacement arguments.</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><br></font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>In C, it is no problem to pass 32b integers to these arguments when AINT is 64b, because C type promotion rules just work.</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><br></font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>In Fortran, I cannot do this, because an integer literal is not compatible with an AINT argument.  I find it tedious to have to declare a variable just for this, or to explicitly cast with integer(100,</font></span><span style="font-variant-ligatures:no-common-ligatures">MPI_ADDRESS_KIND).</span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures"><br></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures">Since Fortran does polymorphism right and can have subroutine declarations for both default integer and AINT integer scalar arguments, is there a good reason not to add the former?</span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures"><br></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures">This proposal applies not to just MPI_Win_allocate but any RMA function that uses AINT scalar arguments.</span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures"><br></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures">Thanks,</span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures"><br></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures">Jeff</span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><br></font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>% mpifort y.F90</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>y.F90:20:60:</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco;min-height:17px"><font style="background-color:rgb(255,255,255)"><span style="font-variant-ligatures:no-common-ligatures"></span><br></font></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><span>  <span> </span></span>20 |<span> </span><span> <span> </span></span>call MPI_Win_allocate(100, 1, MPI_INFO_NULL, comm, XA, WA)</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><font style="background-color:rgb(255,255,255)"><span style="font-variant-ligatures:no-common-ligatures"><span>     <span> </span></span>|<span>                                                           <span> </span></span></span><span style="font-variant-ligatures:no-common-ligatures">1</span></font></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><font style="background-color:rgb(255,255,255)"><span style="font-variant-ligatures:no-common-ligatures">Error:</span><span style="font-variant-ligatures:no-common-ligatures"><span> </span>There is no specific subroutine for the generic '</span><span style="font-variant-ligatures:no-common-ligatures">mpi_win_allocate</span><span style="font-variant-ligatures:no-common-ligatures">' at<span> </span></span><span style="font-variant-ligatures:no-common-ligatures">(1)</span></font></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><font style="background-color:rgb(255,255,255)"><span style="font-variant-ligatures:no-common-ligatures"><br></span></font></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>% cat y.F90<span> </span><span>   </span></font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>! USE mpi_f08</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>! MPI_Win_allocate(size, disp_unit, info, comm, baseptr, win, ierror)</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>!<span>   <span> </span></span>USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>!<span>   <span> </span></span>INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(IN) :: size</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>!<span>   <span> </span></span>INTEGER, INTENT(IN) :: disp_unit</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>!<span>   <span> </span></span>TYPE(MPI_Info), INTENT(IN) :: info</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>!<span>   <span> </span></span>TYPE(MPI_Comm), INTENT(IN) :: comm</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>!<span>   <span> </span></span>TYPE(C_PTR), INTENT(OUT) :: baseptr</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>!<span>   <span> </span></span>TYPE(MPI_Win), INTENT(OUT) :: win</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>!<span>   <span> </span></span>INTEGER, OPTIONAL, INTENT(OUT) :: ierror</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>program main</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><span> <span> </span></span>use iso_fortran_env</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><span> <span> </span></span>use mpi_f08</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><span> <span> </span></span>implicit none</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><span> <span> </span></span>integer(kind=MPI_ADDRESS_KIND) :: as = 100</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><span> <span> </span></span>type(c_ptr) :: XA</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><span> <span> </span></span>type(MPI_Win) :: WA</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><span> <span> </span></span>TYPE(MPI_Comm) :: comm = MPI_COMM_WORLD</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><span> <span> </span></span>call MPI_Win_allocate(as, 1, MPI_INFO_NULL, comm, XA, WA)</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><span> <span> </span></span>call MPI_Win_allocate(100, 1, MPI_INFO_NULL, comm, XA, WA)</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures"><font><span style="background-color:rgb(255,255,255)">end program main</span></font></span></div></div><div><font style="background-color:rgb(255,255,255)"><br></font></div><div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures">% mpicc y.c && echo SUCCESS</span><br></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>SUCCESS</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><br></font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>% cat y.c<span> </span></font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>#include <mpi.h></font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>int main(void)</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>{</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><span> <span> </span></span>MPI_Aint as = 100;</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><span> <span> </span></span>int * XA;</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><span> <span> </span></span>MPI_Win WA;</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><span> <span> </span></span>MPI_Win_allocate(as, 1, MPI_INFO_NULL, MPI_COMM_WORLD, XA, &WA);</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font><span> <span> </span></span>MPI_Win_allocate(100, 1, MPI_INFO_NULL, MPI_COMM_WORLD, XA, &WA);</font></span></div><div style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:13px;line-height:normal;font-family:Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font>}</font></span></div></div><br clear="all"><div><br></div>--<span> </span><br><div dir="ltr">Jeff Hammond<br><a href="mailto:jeff.science@gmail.com" target="_blank">jeff.science@gmail.com</a><br><a href="https://urldefense.com/v3/__http://jeffhammond.github.io/__;!!DZ3fjg!rCl1MJjLBm7CR4j1i2TYIuosrHBzzhChv0RVTrxnOAOtUZyYsqrBQtmV0jab6YK9fw$" target="_blank">http://jeffhammond.github.io/</a></div></div>_______________________________________________<br>mpiwg-fortran mailing list<br><a href="mailto:mpiwg-fortran@lists.mpi-forum.org" target="_blank">mpiwg-fortran@lists.mpi-forum.org</a><br><a href="https://urldefense.com/v3/__https://lists.mpi-forum.org/mailman/listinfo/mpiwg-fortran__;!!DZ3fjg!rCl1MJjLBm7CR4j1i2TYIuosrHBzzhChv0RVTrxnOAOtUZyYsqrBQtmV0jZut-fk-w$" target="_blank">https://urldefense.com/v3/__https://lists.mpi-forum.org/mailman/listinfo/mpiwg-fortran__;!!DZ3fjg!rCl1MJjLBm7CR4j1i2TYIuosrHBzzhChv0RVTrxnOAOtUZyYsqrBQtmV0jZut-fk-w$</a><span> </span><br></div></blockquote></div><br></div></div></blockquote></div><br clear="all" style="font-family:Helvetica;font-size:12px;font-style:normal;font-variant-caps:normal;font-weight:normal;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;text-decoration:none"><div style="font-family:Helvetica;font-size:12px;font-style:normal;font-variant-caps:normal;font-weight:normal;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;text-decoration:none"><br></div><span style="font-family:Helvetica;font-size:12px;font-style:normal;font-variant-caps:normal;font-weight:normal;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;text-decoration:none;float:none;display:inline">--<span> </span></span><br style="font-family:Helvetica;font-size:12px;font-style:normal;font-variant-caps:normal;font-weight:normal;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;text-decoration:none"><div dir="ltr" style="font-family:Helvetica;font-size:12px;font-style:normal;font-variant-caps:normal;font-weight:normal;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;text-decoration:none">Jeff Hammond<br><a href="mailto:jeff.science@gmail.com" target="_blank">jeff.science@gmail.com</a><br><a href="http://jeffhammond.github.io/" target="_blank">http://jeffhammond.github.io/</a></div><span style="font-family:Helvetica;font-size:12px;font-style:normal;font-variant-caps:normal;font-weight:normal;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;text-decoration:none;float:none;display:inline">_______________________________________________</span><br style="font-family:Helvetica;font-size:12px;font-style:normal;font-variant-caps:normal;font-weight:normal;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;text-decoration:none"><span style="font-family:Helvetica;font-size:12px;font-style:normal;font-variant-caps:normal;font-weight:normal;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;text-decoration:none;float:none;display:inline">mpiwg-fortran mailing list</span><br style="font-family:Helvetica;font-size:12px;font-style:normal;font-variant-caps:normal;font-weight:normal;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;text-decoration:none"><a href="mailto:mpiwg-fortran@lists.mpi-forum.org" style="font-family:Helvetica;font-size:12px;font-style:normal;font-variant-caps:normal;font-weight:normal;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px" target="_blank">mpiwg-fortran@lists.mpi-forum.org</a><br style="font-family:Helvetica;font-size:12px;font-style:normal;font-variant-caps:normal;font-weight:normal;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;text-decoration:none"><a href="https://lists.mpi-forum.org/mailman/listinfo/mpiwg-fortran" style="font-family:Helvetica;font-size:12px;font-style:normal;font-variant-caps:normal;font-weight:normal;letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px" target="_blank">https://lists.mpi-forum.org/mailman/listinfo/mpiwg-fortran</a></div></blockquote></div><br></div></div></blockquote></div><br clear="all"><div><br></div>-- <br><div dir="ltr" class="gmail_signature">Jeff Hammond<br><a href="mailto:jeff.science@gmail.com" target="_blank">jeff.science@gmail.com</a><br><a href="http://jeffhammond.github.io/" target="_blank">http://jeffhammond.github.io/</a></div>