teshsuite/smpi/mpich-test/pt2pt/sendcplx.f

   1       PROGRAM MAIN
   2       INCLUDE 'mpif.h'
   3
   4       INTEGER LDA
   5       PARAMETER (LDA=2)
   6       INTEGER myid,IERR,NPROCS, stat(MPI_STATUS_SIZE)
   7       COMPLEX A(2,2)
   8
   9       CALL MPI_INIT(IERR)
  10       CALL MPI_COMM_RANK(MPI_COMM_WORLD,myid,IERR)
  11       CALL MPI_COMM_SIZE(MPI_COMM_WORLD,NPROCS,IERR)
  12
  13       J0 = 1
  14       J1 = 2
  15
  16       IF (myid .EQ. 0) THEN
  17          A(1,1) = CMPLX(1,1)
  18          A(2,1) = CMPLX(2,1)
  19          A(1,2) = CMPLX(1,2)
  20          A(2,2) = CMPLX(2,2)
  21          CALL MPI_SEND(A(1,1),LDA*(J1-J0+1),MPI_COMPLEX,1,
  22      +                 0,MPI_COMM_WORLD,IERR)
  23       ELSE
  24          CALL MPI_RECV(A(1,1),LDA*(J1-J0+1),MPI_COMPLEX,
  25      +             0,MPI_ANY_TAG,MPI_COMM_WORLD,stat,IERR)
  26          PRINT *,'Received A'
  27          PRINT *,'A(1,1) = ',A(1,1),' A(1,2) = ',A(1,2)
  28          PRINT *,'A(2,1) = ',A(2,1),' A(2,2) = ',A(2,2)
  29       ENDIF
  30       CALL MPI_FINALIZE(IERR)
  31       END