<font size=2 face="sans-serif">Hi All,</font>
<br>
<br><font size=2 face="sans-serif">I have a FORTRAN program, which needs
to open a new file and write information to it. I only want the main processor
to do the writing, so I did this: </font>
<br>
<br><font size=3 color=red>     </font><font size=3> </font><font size=3 color=blue><b>IF</b></font><font size=3>
(IMRANK .EQ. 0) </font><font size=3 color=blue><b>THEN</b></font><font size=3 color=#008000><b>
  </b></font>
<br><font size=3 color=red>     </font><font size=3>  
 </font><font size=3 color=blue><b>OPEN</b></font><font size=3> (IDRUNT(IDEM),FILE=DIRFIL(IDEM),</font>
<br><font size=3 color=red>     </font><font size=3 color=white>&</font><font size=3>
        ACCESS=</font><font size=3 color=#800000>'DIRECT'</font><font size=3>,RECL=LREC_DIR)
      </font><font size=3 color=#008000><b>   
  </b></font>
<br><font size=3 color=red>     </font><font size=3> </font><font size=3 color=blue><b>END
IF</b></font><font size=3> </font>
<br>
<br><font size=2 face="sans-serif">However, no matter how many processors
I specified for the program, after the parallel program finishes, the file
(121M) generated by the main processor is different from the one (30M)
generated without paralleling.</font>
<br>
<br><font size=2 face="sans-serif">Can someone provide any insights? </font>
<br>
<br><font size=2 face="sans-serif">Thanks.</font>
<pre>_________________________________________________________________________

The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
material.  Any review, retransmission, dissemination or other use of, or
taking of any action in reliance upon, this information by persons or
entities other than the intended recipient is prohibited.   If you
Received this in error, please contact the sender and delete the material 
from any computer.
_________________________________________________________________________