call MPI_ISEND(square,1,MPI_REAL,0,99,MPI_COMM_WORLD,req1,ierr)
		 |    |     |    |  |        |         |    |
               send   |  datatype| tag       |      request |
              buffer  |          |      communicator      error
		    entry    destination 
		    count  





call MPI_IRECV(  d2  ,1,MPI_REAL,1,99,MPI_COMM_WORLD,req1,ierr)
		 |    |     |    |  |        |         |    |
             receive  |  datatype| tag       |      request |
              buffer  |          |      communicator      error
		    entry      source    
		    count