<p>The most straight forward way to do this is to read from a single proc and then use MPI_BCAST . The program will look something like this</p>
<pre><code>PROGRAM broadcast<br />INCLUDE 'mpif.h'<br />INTEGER err, rank, size<br />INTEGER A(10)<br />CALL MPI_INIT(err)<br />CALL MPI_COMM_RANK(MPI_COMM_WORLD, rank, err)<br />CALL MPI_COMM_SIZE(MPI_COMM_WORLD, size, err)<br /> <br />open(file='vvv.data',status='old',unit=12,form='formatted')<br /><br />if(rank.eq.0) <br /><br />read(12,*) A(10)<br /><br />end if<br /> <br />call MPI_BCAST(A,10,MPI_INTEGER,0,MPI_COMM_WORLD,err)<br /><br /><br />CALL MPI_FINALIZE(err)<br /><br />close(unit=12) <br /><br />!-------------------------------------------------<br />END</code></pre>
<p>Sreenivas</p>
<p> </p>
<p>On Thu, 9 Jun 2011 03:14:14 +0500, Irfan Gul <hungu.orakzai@gmail.com> wrote:</p>
<blockquote style="padding-left: 5px; border-left: 2px solid #1010ff; margin-left: 5px; width: 100%;">Hi,<br />I need a simple program to read integer values from text file by multiple processes?<br />each process store n/p values in array. <br />for example text file have n values like.<br />4<br />2<br />7<br />4<br />9<br />6<br />3<br />1<br /> ..............................................................<br />thanks<br /><br />Regard: Irfan<br /></blockquote>
<p> </p>