您所在位置：主题：恳请高手帮我看看，为何数据写不进去？
170501123
[专家分：0] 发布于 2010-10-14 19:00:00
program main
implicit none
include 'mpif.h'
character*(MPI_MAX_PROCESSOR_NAME)processor_name
integer MYID,NUMPROCS,IERR,STATUS,RC,FH,a(6)
character*12 file_sct
CALL MPI_INIT(IERR)
CALL MPI_COMM_RANK(MPI_COMM_WORLD,MYID,IERR)
CALL MPI_COMM_SIZE(MPI_COMM_WORLD,NUMPROCS,IERR)
a(1)=9
file_sct='1111.txt'
if (myid==0) then
CALL MPI_FILE_OPEN(MPI_COMM_WORLD,file_sct,MPI_MODE_CREATE+MPI_MODE_WRONLY,MPI_INFO_NULL,FH,IERR)
CALL MPI_FILE_WRITE_AT(FH,1,a,1,MPI_INTEGER,STATUS,IERR)
CALL MPI_FILE_CLOSE(FH,IERR)
end if
CALL MPI_FINALIZE(ierr)
END
implicit none
include 'mpif.h'
character*(MPI_MAX_PROCESSOR_NAME)processor_name
integer MYID,NUMPROCS,IERR,STATUS,RC,FH,a(6)
character*12 file_sct
CALL MPI_INIT(IERR)
CALL MPI_COMM_RANK(MPI_COMM_WORLD,MYID,IERR)
CALL MPI_COMM_SIZE(MPI_COMM_WORLD,NUMPROCS,IERR)
a(1)=9
file_sct='1111.txt'
if (myid==0) then
CALL MPI_FILE_OPEN(MPI_COMM_WORLD,file_sct,MPI_MODE_CREATE+MPI_MODE_WRONLY,MPI_INFO_NULL,FH,IERR)
CALL MPI_FILE_WRITE_AT(FH,1,a,1,MPI_INTEGER,STATUS,IERR)
CALL MPI_FILE_CLOSE(FH,IERR)
end if
CALL MPI_FINALIZE(ierr)
END