[PVFS-users] new mailing list search engine

[Lei@ICS]

Hi,

In my Fortran code, MPI_FILE_OPEN() is unable to create a new file
On pvfs. (It can do so on /home/pan or /raid/pan).

The simple testing code and the makefile are attached in this email.

The error code I got is:

[pan@pluto00 dgx]$ mpirun -nolocal -machinefile machines.LINUX -np 2 test
 mpiMyNode:   0 , mpiNumNodes:   2
 ***** mpiMyNode:   0  name_out: /pvfs/pan/tmp.txt
 mpiMyNode:   1 , mpiNumNodes:   2
 ***** mpiMyNode:   1  name_out: /pvfs/pan/tmp.txt
 ***** MPI_FILE_OPEN  0  fdsc7:   0  ierror   16480
 ***** MPI_FILE_CLOSE  0  fdsc7:   0  ierror   24795
 ***** MPI_FILE_OPEN  1  fdsc7:   0  ierror   16480
 ***** MPI_FILE_CLOSE  1  fdsc7:   0  ierror   24795

Machines.LINUX has:
pluto00
pluto01

I know the error code should have some info. with it,
But I cannot find the table that maps the code to
The actual error message.
Can anybody please help me with this?


Thanks a lot in advance,

-Lei

---------------- test_pvfs.F ------------

      program test_pvfs

      implicit none
      include 'mpif.h'

      integer mpiMyNode, mpiNumNodes, ierror, fdsc7
      character*255 name_out

      call MPI_INIT(ierror)
      if (ierror .ne. 0) then
         print *,'Error - Can''t initialize MPI!'
         stop
      end if

      call MPI_COMM_RANK(MPI_COMM_WORLD, mpiMyNode, ierror)
      call MPI_COMM_SIZE(MPI_COMM_WORLD, mpiNumNodes, ierror)

      write(6,*) 'mpiMyNode: ',mpiMyNode,', mpiNumNodes: ',mpiNumNodes

      name_out = '/pvfs/pan/tmp.txt'
cc      name_out = '/home/pan/tmp.txt'
      write(6,*) '***** mpiMyNode: ', mpiMyNode, ' name_out: ', name_out

      call MPI_FILE_OPEN(MPI_COMM_WORLD, name_out,
     &  MPI_MODE_WRONLY + MPI_MODE_CREATE, MPI_INFO_NULL, fdsc7,
     &  ierror)
      write(6,*) '***** MPI_FILE_OPEN',mpiMyNode,' fdsc7: ',fdsc7,' ierror
',ierror

      call MPI_FILE_CLOSE(fdsc7,ierror)
      write(6,*) '***** MPI_FILE_CLOSE',mpiMyNode,' fdsc7: ',fdsc7,' ierror
',ierror

      call MPI_FINALIZE(ierror)

      end

---------- make_pvfs -----------------
SHELL = /bin/sh
F77 = mpif90

DEFINES = -DFFTW -DC32_IO

FOPTS =  -O -W 132 -s -YEXT_NAMES=LCS -YEXT_SFX=_ -YCFRL=1
COPTS =  -O -DUL

FLIB = -L/opt/local/lib -lpvfs -lminipvfs

CLIB = -lm
FINC = -I./include

OBJS = test_pvfs.o
all: test

test : $(OBJS)
    $(F77)  $(FOPTS) $(OBJS) -o test $(FLIB)

.F.o:
    $(F77) -c $(FOPTS) $(DEFINES) $(FINC) $<

.f.o:
    $(F77) $(FOPTS) $(FINC) -c $<

.c.o:
    $(CC) $(DEFINES) $(COPTS) -c $<

clean:
    $(RM) $(OBJS) test