gt;
> >> real*8 :: vec(2)=1.0
> >> integer :: ierr,i=0,request(1)
> >>
> >> call mpi_init(ierr)
> >> do
> >> call mpi_isend(vec,2,mpi_real8,
> >> 0,1,mpi_comm_world,request(1),ierr)
> >>
()) then
>> call
>> mpi_recv(vec,2,mpi_real8,1,1,mpi_comm_world,MPI_STATUS_IGNORE,ierr)
>> end if
>> call usleep_fortran(0.05d0)
>>
>> end do
>>
>> contains
>>
>> function key_present()
>> impl
The following code tries to send a message, but if it takes too long the
message is cancelled:
#define DEADLOCK_ABORT (30.0)
MPI_Isend(message, count, MPI_BYTE, comm_id,
MPI_MESSAGE_TAG, MPI_COMM_WORLD, &request);
t0 = time(NULL);
cancelled = FALSE;
while(TRUE)
{
//do som
