Newsgroups: comp.parallel.mpi
From: "Daniel E. Weeks" <dan@well.ox.ac.uk>
Subject: Help with FORTRAN/MPI on SGI?
Organization: Oxford University
Date: Tue, 15 Oct 1996 15:25:10 +0100
Mime-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
Message-ID: <Pine.SOL.3.95.961015152121.28155C-100000@hilbert>

Hello,

I am having difficulties running an MPI-parallelized FORTRAN program on
our multiprocessor SGI Power Challenge, and so was wondering if anyone
might have any suggestions?  Bascially, the test program, fpi.f, compiles
and links fine, but fails to run, even after I set the various LD_LIB...
paths (see detailed output below). 

Any ideas?  Does anyone have a FORTRAN/MPI program running on their
multiprocessor SGI?  

Thank you,
 -- Dan Weeks --

Script started on Tue Oct 15 10:10:44 1996
zeno{dan}41: env | grep LIB
TCL_LIBRARY=/local/lib/tcl
TK_LIBRARY=/local/lib/tk
RTFLIBDIR=/home/dan/src/rtftohtml
LD_LIBRARY_PATH=/usr/lib
LD_LIBRARYN32_PATH=/usr/lib32
LD_LIBRARY64_PATH=/usr/lib64
zeno{dan}42: make fpi
        f77  -64  -c fpi.f
        f77  -64  -o fpi fpi.o -L/usr/lib64 -lmpi 
zeno{dan}43: fpi

To run a MPI program on the local host only:

        mpirun -np N a.out [user args]

                 -or-

        setenv MPI_NP N
        a.out [user args]

        where N is the number of processes to start.

To run a MPI program on a different host or on multiple hosts, use mpirun.

zeno{dan}44: setenv MPI_NP 5
zeno{dan}45: fpi
 Process            0 of            0 is alive
Enter the number of intervals: (0 quits)
 Process            0 of            0 is alive
Enter the number of intervals: (0 quits)
 Process            0 of            0 is alive
Enter the number of intervals: (0 quits)
 Process            0 of            0 is alive
 Process            0 of            0 is alive
Enter the number of intervals: (0 quits)
Enter the number of intervals: (0 quits)
1
MPI Error, rank:2, function:MPI_BCAST, Invalid root
MPI_Abort() called, aborting program!
IOT Trap

*** An MPI process has terminated without calling MPI_Finalize()
*** Rank of process in MPI_COMM_WORLD: 2
*** Program aborted

zeno{dan}46: exit
script done on Tue Oct 15 10:11:13 1996



