Hi All,

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:

      IF (IMRANK .EQ. 0) THEN  
         OPEN (IDRUNT(IDEM),FILE=DIRFIL(IDEM),
     &         ACCESS='DIRECT',RECL=LREC_DIR)            
      END IF

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.

Can someone provide any insights?

Thanks. 
_________________________________________________________________________

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.
_________________________________________________________________________