<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>&nbsp; use MPI <br>&nbsp; implicit none <br>&nbsp; integer :: ierr, myid, numprocs <br>&nbsp; integer :: i <br>&nbsp; real(8) :: a(10) <br>
<p>&nbsp; ! initialization of MPI <br>&nbsp; CALL MPI_INIT( ierr ) <br>&nbsp; CALL MPI_COMM_RANK( MPI_COMM_WORLD, myid, ierr ) <br>&nbsp; CALL MPI_COMM_SIZE( MPI_COMM_WORLD, numprocs, ierr ) <br>
<p>&nbsp; a = 0.0_8 <br>
<p>&nbsp; do while (.true.) <br>&nbsp; &nbsp; &nbsp;call mpi_display_real_array(myid, a) <br>&nbsp; enddo <br>
<p>&nbsp; CALL MPI_FINALIZE(ierr) <br>contains <br>
<p>&nbsp; &nbsp; SUBROUTINE mpi_display_real_array(myid, num) <br>&nbsp; &nbsp; &nbsp; integer myid <br>&nbsp; &nbsp; &nbsp; REAL(8) :: num(:) <br>&nbsp; &nbsp; &nbsp; WRITE(*,*) myid, num <br>&nbsp; &nbsp; &nbsp; RETURN <br>&nbsp; &nbsp; END SUBROUTINE mpi_display_real_array <br>end program aaa <br>

<p>================== <br>
<p>And be able to run it with &#39;mpiexec -n 1 test.exe&#39; 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 &#39;smpd&#39; 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></div></div>