<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman, new york, times, serif;font-size:12pt"><DIV style="FONT-SIZE: 12pt; FONT-FAMILY: times new roman, new york, times, serif">I see your point. I will change it to<BR></DIV>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: times new roman, new york, times, serif">elseif(plevel . e. I_THREAD_SERIALIZED)then</DIV>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: times new roman, new york, times, serif"> </DIV>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: times new roman, new york, times, serif">Thanks.<BR></DIV>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: times new roman, new york, times, serif">----- Original Message ----<BR>From: Rusty Lusk <lusk@mcs.anl.gov><BR>To: mpich-discuss@mcs.anl.gov<BR>Sent: Monday, March 17, 2008 2:36:01 PM<BR>Subject: Re: [mpich-discuss] MPI_INIT_THREAD doesn't work properly under windows<BR><BR>Even then you might not get what the code below expects. The "provided" parameter can return a higher level of thread safety than requested, which is not an error, and should allow the application to proceed.
<DIV><BR>
<DIV>
<DIV>On Mar 17, 2008, at 2:01 PM, trymelz trymelz wrote:</DIV><BR class=Apple-interchange-newline>
<BLOCKQUOTE type="cite"><SPAN class=Apple-style-span style="WORD-SPACING: 0px; FONT: 16px Helvetica; TEXT-TRANSFORM: none; COLOR: rgb(0,0,0); TEXT-INDENT: 0px; WHITE-SPACE: normal; LETTER-SPACING: normal; BORDER-COLLAPSE: separate; orphans: 2; widows: 2">
<DIV style="FONT-SIZE: 12pt; MARGIN: 0px; FONT-FAMILY: 'times new roman', 'new york', times, serif">
<DIV style="MARGIN: 0px">Hi,</DIV>
<DIV style="MARGIN: 0px"> </DIV>
<DIV style="MARGIN: 0px">I have a mixed-language programming project using C and FORTRAN. In the FORTRAN file, I have the following code</DIV>
<DIV style="MARGIN: 0px"> </DIV>
<DIV style="MARGIN: 0px"> call MPI_INIT_THREAD(MPI_THREAD_SERIALIZED,plevel, impierr)<BR> if(<A href="http://impierr.ne.mp/" target=_blank>impierr.ne</A>.MPI_SUCCESS)then<BR> write(*,*)'MPI is not initialized, exit'<BR> elseif(plevel .ne. MPI_THREAD_SERIALIZED)then<BR> write(*,*)'MPI LEVEL ERROR,exit',plevel<BR> endif<BR></DIV>
<DIV style="MARGIN: 0px">I compiled this project with VC6 and Intel Fortran compiler. When I run it, I get</DIV>
<DIV style="MARGIN: 0px"> </DIV>
<DIV style="MARGIN: 0px"> MPI LEVEL ERROR,exit 0</DIV>
<DIV style="MARGIN: 0px"> </DIV>
<DIV style="MARGIN: 0px"> </DIV>
<DIV style="MARGIN: 0px">It seems to me that the MPICH2 doesn't support MPI_THREAD_SERIALIZED under windows. I did not find any notes about this on the manual, so I am wondering if I am missing something important. Thanks.</DIV>
<DIV style="MARGIN: 0px"> </DIV>
<DIV style="MARGIN: 0px"> </DIV>
<DIV style="MARGIN: 0px">Linfa</DIV></DIV><BR>
<HR SIZE=1>
Never miss a thing.<SPAN class=Apple-converted-space> </SPAN><A href="http://us.rd.yahoo.com/evt=51438/*http://www.yahoo.com/r/hs" target=_blank rel=nofollow>Make Yahoo your homepage.</A></SPAN></BLOCKQUOTE></DIV><BR></DIV></DIV>
<DIV style="FONT-SIZE: 12pt; FONT-FAMILY: times new roman, new york, times, serif"><BR></DIV></div><br>
<hr size=1>Never miss a thing. <a href="http://us.rd.yahoo.com/evt=51438/*http://www.yahoo.com/r/hs"> Make Yahoo your homepage.</a>
</body></html>