<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.6000.16705" name=GENERATOR></HEAD>
<BODY>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN
class=645041016-14102008>Hi,</SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN
class=645041016-14102008> I am not a Fortran expert but what is the exit
condition for the while loop ?</SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN
class=645041016-14102008></SPAN></FONT> </DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN
class=645041016-14102008>=====================================</SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT><SPAN class=645041016-14102008> do while
(.true.) <BR> call mpi_display_real_array(myid, a) <BR>
enddo </SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT><SPAN class=645041016-14102008>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN
class=645041016-14102008>=====================================</SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN
class=645041016-14102008> Looks like an infinite loop to
me.</SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN
class=645041016-14102008></SPAN></FONT><FONT face=Arial color=#0000ff
size=2><SPAN class=645041016-14102008></SPAN></FONT> </DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN
class=645041016-14102008>Regards,</SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN
class=645041016-14102008>Jayesh</SPAN></FONT></DIV></SPAN></FONT></DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN
class=645041016-14102008></SPAN></FONT> </DIV>
<DIV dir=ltr align=left><FONT face=Arial color=#0000ff size=2><SPAN
class=645041016-14102008> </SPAN></FONT></DIV>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left>
<HR tabIndex=-1>
<FONT face=Tahoma size=2><B>From:</B> owner-mpich-discuss@mcs.anl.gov
[mailto:owner-mpich-discuss@mcs.anl.gov] <B>On Behalf Of </B>Yaqi
Wang<BR><B>Sent:</B> Friday, October 10, 2008 8:28 PM<BR><B>To:</B>
mpich-discuss@mcs.anl.gov<BR><B>Subject:</B> [mpich-discuss] Memory issue of
MPICH2 when displaying a real array<BR></FONT><BR></DIV>
<DIV></DIV>
<DIV dir=ltr>
<DIV id=inbdy><A name=msg_119703f22a1c428b></A>I am using MPICH2 1.0.7 with
Windows XP SP3. The compiler is Intel <BR>Visual Fortran 10.1. <BR>
<P>I compiled the following code. <BR>====================== <BR>
<P>program aaa <BR> use MPI <BR> implicit none <BR> integer ::
ierr, myid, numprocs <BR> integer :: i <BR> real(8) :: a(10) <BR>
<P> ! initialization of MPI <BR> CALL MPI_INIT( ierr ) <BR>
CALL MPI_COMM_RANK( MPI_COMM_WORLD, myid, ierr ) <BR> CALL MPI_COMM_SIZE(
MPI_COMM_WORLD, numprocs, ierr ) <BR>
<P> a = 0.0_8 <BR>
<P> do while (.true.) <BR> call
mpi_display_real_array(myid, a) <BR> enddo <BR>
<P> CALL MPI_FINALIZE(ierr) <BR>contains <BR>
<P> SUBROUTINE mpi_display_real_array(myid, num) <BR>
integer myid <BR> REAL(8) :: num(:) <BR>
WRITE(*,*) myid, num <BR> RETURN <BR>
END SUBROUTINE mpi_display_real_array <BR>end program aaa <BR>
<P>================== <BR>
<P>And be able to run it with 'mpiexec -n 1 test.exe' on my local <BR>computer.
test.f90 is the name of the source code. Number of <BR>processors here is
irrelavant, I used 1. <BR>
<P>I noticed after running it, the memory cost of the 'smpd' process <BR>kept
increasing, which I did not expect. Anybody knows what I did <BR>wrong here?
<BR>
<P>Thanks. <BR></P>
<P></P>
<P></P>
<P></P>
<P></P>
<P></P>
<P></P>
<P></P>
<P></P>
<P></P>
<P></P></DIV></DIV></BODY></HTML>