<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta name="Generator" content="Microsoft Word 15 (filtered medium)">
<!--[if !mso]><style>v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]--><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Consolas;
panose-1:2 11 6 9 2 2 4 3 2 4;}
@font-face
{font-family:"Times New Roman \(Body CS\)";
panose-1:2 11 6 4 2 2 2 2 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
font-size:11.0pt;
font-family:"Calibri",sans-serif;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
code
{mso-style-priority:99;
font-family:"Courier New";}
p.xmsonormal, li.xmsonormal, div.xmsonormal
{mso-style-name:x_msonormal;
margin:0in;
font-size:11.0pt;
font-family:"Calibri",sans-serif;}
span.EmailStyle23
{mso-style-type:personal-reply;
font-family:Consolas;
color:windowtext;
font-weight:normal;
font-style:normal;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;
mso-ligatures:none;}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang="EN-US" link="blue" vlink="purple" style="word-wrap:break-word">
<div class="WordSection1">
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">Hui,<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">The option flag doesn't seem to help:<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">$ mpifort -fallow-argument-mismatch support_for_mpi_alloc_mem_cptr.F90<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">support_for_mpi_alloc_mem_cptr.F90:9:53:<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"> 9 | call MPI_Alloc_mem(sz, MPI_INFO_NULL, ptr, ierror)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"> | 1<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">Error: Type mismatch in argument 'baseptr' at (1); passed TYPE(c_ptr) to INTEGER(8)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">I did test and, yes, mpi_f08 does let it work. I think the issue is I'm not sure the library this is in can assume mpi_f08 support for all supported compilers.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">For example, I know NAG + Open MPI does not build mpi_f08. I haven't tried NAG + MPICH...if that does support it, maybe we could move there?<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">I did look around online, and the MPI Forum does sort of say my code should be supported:<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><a href="https://www.mpi-forum.org/docs/mpi-3.1/mpi31-report/node216.htm">https://www.mpi-forum.org/docs/mpi-3.1/mpi31-report/node216.htm</a><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">"If the Fortran compiler provides TYPE(C_PTR), then the following generic interface must be provided in the mpi module and should be provided in mpif.h through overloading, i.e., with
the same routine name as the routine with INTEGER(KIND=MPI_ADDRESS_KIND) BASEPTR, but with a different specific procedure name<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">...<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">The base procedure name of this overloaded function is MPI_ALLOC_MEM_CPTR"<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">If I look at the Open MPI source code, I do see "MPI_alloc_mem_cptr" there:<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><a href="https://github.com/open-mpi/ompi/blob/main/ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-interfaces.h.in#L207">https://github.com/open-mpi/ompi/blob/main/ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-interfaces.h.in#L207</a><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">but not in MPICH's.
<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">Now, I tried changing it to use MPI_ADDRESS_KIND like on the page above (thinking maybe that was it) but:<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">$ cat support_for_mpi_alloc_mem_cptr.address_kind.F90<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">program main<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"> use mpi<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"> use iso_c_binding, only: C_PTR<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"> integer(kind=MPI_ADDRESS_KIND) :: sz<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"> type (c_ptr) :: ptr<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"> call MPI_Alloc_mem(sz, MPI_INFO_NULL, ptr, ierror)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">end program main<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">$ mpifort support_for_mpi_alloc_mem_cptr.address_kind.F90<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">support_for_mpi_alloc_mem_cptr.address_kind.F90:8:53:<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"> 8 | call MPI_Alloc_mem(sz, MPI_INFO_NULL, ptr, ierror)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"> | 1<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">Error: Type mismatch in argument 'baseptr' at (1); passed TYPE(c_ptr) to INTEGER(8)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">Matt<o:p></o:p></span></p>
<div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">--<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">Matt Thompson, SSAI, Sr Scientific Programmer/Analyst<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">NASA GSFC, Global Modeling and Assimilation Office<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">Code 610.1, 8800 Greenbelt Rd, Greenbelt, MD 20771<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas">Phone: 301-614-6712 Fax: 301-614-6246<o:p></o:p></span></p>
</div>
</div>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><a href="http://science.gsfc.nasa.gov/sed/bio/matthew.thompson"><span style="color:#0563C1">http://science.gsfc.nasa.gov/sed/bio/matthew.thompson</span></a></span><span style="font-size:12.0pt;font-family:Consolas"><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:12.0pt;font-family:Consolas"><o:p> </o:p></span></p>
<div style="border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0in 0in 0in">
<p class="MsoNormal"><b><span style="font-size:12.0pt;color:black">From: </span></b><span style="font-size:12.0pt;color:black">"Zhou, Hui" <zhouh@anl.gov><br>
<b>Date: </b>Friday, September 22, 2023 at 11:29 AM<br>
<b>To: </b>"discuss@mpich.org" <discuss@mpich.org><br>
<b>Cc: </b>"Thompson, Matt (GSFC-610.1)[SCIENCE SYSTEMS AND APPLICATIONS INC]" <matthew.thompson@nasa.gov><br>
<b>Subject: </b>[EXTERNAL] Re: MPI_alloc_mem call code compiles with Open MPI, not MPICH<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;color:black">Hi Matt,<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;color:black"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;color:black">Are you able to test `</span><code><span style="font-size:10.0pt;color:black">use mpi_f08</span></code><span style="font-size:12.0pt;color:black">` instead? We'll open an issue to track this for
"use mpi". In the meantime, you may be able to bypass this issue by adding the `-fallow-argument-mismatch</span><code><span style="font-size:10.0pt;color:black"> flag to mpifort</span></code><span style="font-size:12.0pt;color:black">.<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;color:black"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-size:12.0pt;color:black">Hui<o:p></o:p></span></p>
</div>
<div class="MsoNormal" align="center" style="text-align:center">
<hr size="2" width="98%" align="center">
</div>
<div id="divRplyFwdMsg">
<p class="MsoNormal"><b><span style="color:black">From:</span></b><span style="color:black"> Thompson, Matt (GSFC-610.1)[SCIENCE SYSTEMS AND APPLICATIONS INC] via discuss <discuss@mpich.org><br>
<b>Sent:</b> Friday, September 22, 2023 9:11 AM<br>
<b>To:</b> discuss@mpich.org <discuss@mpich.org><br>
<b>Cc:</b> Thompson, Matt (GSFC-610.1)[SCIENCE SYSTEMS AND APPLICATIONS INC] <matthew.thompson@nasa.gov><br>
<b>Subject:</b> [mpich-discuss] MPI_alloc_mem call code compiles with Open MPI, not MPICH</span>
<o:p></o:p></p>
<div>
<p class="MsoNormal"> <o:p></o:p></p>
</div>
</div>
<div>
<div>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">All,</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> </span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">I'm sort of new to MPICH and I'm encountering one call that works with Open MPI but not MPICH. As such, I'm wondering if I built MPICH incorrectly or incompletely (always easy to miss
a configure flag!).</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> </span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">To wit, I have a code like:</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> </span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">program main</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> use mpi</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> use iso_fortran_env, only: INT64</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> use iso_c_binding, only: C_PTR</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> </span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> integer(kind=INT64) :: sz</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> type (c_ptr) :: ptr</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> </span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> call MPI_Alloc_mem(sz, MPI_INFO_NULL, ptr, ierror)</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> </span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">end program main</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> </span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">If I compile with GCC 12.1 + Open MPI 4.1.3, all is well:</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> </span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">$ mpifort --showme:version</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">mpifort: Open MPI 4.1.3 (Language: Fortran)</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">mathomp4@discover23 ~/MPITests/CPtr master ?25</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">$ mpifort support_for_mpi_alloc_mem_cptr.F90</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">mathomp4@discover23 ~/MPITests/CPtr master ?25</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">$ echo $?</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">0</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> </span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">I'll also say Intel MPI builds this code as well.</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> </span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">But with MPICH 4.1.2 I just built:</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> </span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">$ mpifort support_for_mpi_alloc_mem_cptr.F90</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">support_for_mpi_alloc_mem_cptr.F90:9:53:</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> </span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> 9 | call MPI_Alloc_mem(sz, MPI_INFO_NULL, ptr, ierror)</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> | 1</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">Error: Type mismatch in argument 'baseptr' at (1); passed TYPE(c_ptr) to INTEGER(8)</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> </span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">Now, my configure lines to Open MPI and MPICH are pretty boring, so the resulting mpiforts are as well:</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> </span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">$ mpifort -show</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">gfortran -I/discover/swdev/gmao_SIteam/MPI/openmpi/4.1.3/gcc-12.1.0/include -pthread -I/discover/swdev/gmao_SIteam/MPI/openmpi/4.1.3/gcc-12.1.0/lib -L/discover/swdev/gmao_SIteam/MPI/openmpi/4.1.3/gcc-12.1.0/lib
-lmpi_usempif08 -lmpi_usempi_ignore_tkr -lmpi_mpifh -lmpi</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> </span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">$ mpifort -show</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">gfortran -I/discover/swdev/gmao_SIteam/MPI/mpich/4.1.2/gcc-12.1.0/include -I/discover/swdev/gmao_SIteam/MPI/mpich/4.1.2/gcc-12.1.0/include -L/discover/swdev/gmao_SIteam/MPI/mpich/4.1.2/gcc-12.1.0/lib
-lmpifort -Wl,-rpath -Wl,/discover/swdev/gmao_SIteam/MPI/mpich/4.1.2/gcc-12.1.0/lib -Wl,--enable-new-dtags -lmpi</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> </span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">But I see Open MPI has that "mpi_usempi_ignore_tkr", is it possible that's what is doing it?</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> </span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">Perhaps we just need to recode the code (using transfer, etc?)</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"> </span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">Thanks for any help,</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">Matt</span><o:p></o:p></p>
<div>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">--</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">Matt Thompson, SSAI, Sr Scientific Programmer/Analyst</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">NASA GSFC, Global Modeling and Assimilation Office</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">Code 610.1, 8800 Greenbelt Rd, Greenbelt, MD 20771</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas">Phone: 301-614-6712 Fax: 301-614-6246</span><o:p></o:p></p>
<p class="xmsonormal"><span style="font-size:12.0pt;font-family:Consolas"><a href="http://science.gsfc.nasa.gov/sed/bio/matthew.thompson"><span style="color:#0563C1">http://science.gsfc.nasa.gov/sed/bio/matthew.thompson</span></a></span><o:p></o:p></p>
</div>
</div>
</div>
</div>
</body>
</html>