I am trying to parallelize a Fortran 77 program that I compile and run on a Linux cluster using PGI. The program calls an IMSL function, DRLSE. The serial version works fine. With mpi statements added to the program, it hangs when the call drlse statement is included, runs fine without it. The call statement is:
The parallel compile and run statements I use are listed below.
$MPIF90 $F90FLAGS test.f $LINK_MPI
mpirun -np 4 -nolocal a.out
The serial compile statement is
pgf90 $F90FLAGS test.f $LINK_F90
I call another IMSL routine: call rnset(iseed), and use imsl routines to generate random numbers. These do not cause any problem in the parallel version.
Any idea what could be causing this?