Newsgroups: comp.parallel.mpi
From: Pierre Lagier <pierre@fujitsu.co.uk>
Subject: Re: How to do this in F90, HPF, PVM, or MPI? (Summary of responses to
Organization: Fujistu Systems Europe Ltd
Date: 27 Jun 1995 17:15:12 GMT
Message-ID: <3speb0$pem@phoenix.fujitsu.co.uk>


Hum, what about "fuzzy barrier" ? 

..
        VPP_InitFuzzyBarrier(10);
> 	for ( j=0 ; j<M; j++ )
> 	{
> 		if ( IsTarget(A[i][j]) )
> 		{
> 			TargetList[k].distance = i ;
> 			TargetList[k].direction = j ;
                        if (VPP_PostFuzzyBarrier ());
> 			    goto finished ;
> 		}
> 	}
> finished:
> -------------------------------------------------

This should run on Fujitsu VPP series, using the message
passing kernel. 

Pierre Lagier / Fujitsu Systems Europe


