[PVFS-users] new mailing list search engine

[Rob Ross]

Hi,

Please don't cross-post to both developers and users.

What versions of everything are you using (PVFS, Linux, MPI-IO, MPI)?

What *does* work?  I mean, can you read/write files through the VFS to 
PVFS?  Do the various PVFS utilities work?  Do C MPI-IO programs work?

Thanks,

Rob

On Thu, 8 Jan 2004, Lei@ICS wrote:

> 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
> 
> 
> 
> _______________________________________________
> PVFS-users mailing list
> PVFS-users@www.beowulf-underground.org
> http://beowulf-underground.org/mailman/listinfo/pvfs-users
> 
>