Newsgroups: comp.parallel.mpi
From: csv@parcom.ernet.in (Chaman Singh Verma)
Subject: PROBLEM with SSEND
Organization: Centre for Development of Advanced Computing (C-DAC), Pune, INDIA.
Date: Tue, 18 Jul 1995 13:26:50 GMT
Message-ID: <DBwyow.6r6@parcom.ernet.in>



Hello,


2.  Synchronize send "Ssend" Does not work.

    In this program if we replace send with ssend, results are 
    computed correctly, but in the last,messages comes

0 - Error in MPI_TYPE_FREE : Invalid datatype argument
Aborting program!
p0_4971:  p4_error: (null): 9
  I have received            1          10
bm_list_4972:  p4_error: interrupt SIGINT: 2
rm_l_-2140928960_4977:  p4_error: interrupt SIGINT: 2
rm_l_-1607466432_5193:  p4_error: interrupt SIGINT: 2
p1_5189:  p4_error: interrupt SIGINT: 2
p2_4973:  p4_error: interrupt SIGINT: 2

PROGRAM test

include 'mpif90.h'

integer		Ierror, Numprocs, status(MPI_STATUS_SIZE)

 Call MPI_INIT(Ierror)
 Call MPI_Comm_Rank(MPI_Comm_World, Myid, Ierror)
 Call MPI_Comm_Size(MPI_Comm_World, Numprocs, Ierror)


 IF( Myid == 0) Then
     Number = 10
     DO I = 1,Numprocs-1
        Call MPI_Send(number, 1, MPI_Integer, I, 0, MPI_Comm_WORLD, Ierror)
     ENDDO
 ELSE
     Call MPI_recv(number,1,MPI_Integer, 0, 0, MPI_Comm_World, Status, Ierror)
     print*, " I have received ", Myid, number
 ENDIF

 Call MPI_Finalize(ierror)

 END PROGRAM TEST
******************************************************************************

Thanx

Chaman Singh Verma
csv@parcom.ernet.in

