call MPI_TYPE_FREE( itype1 , ierr)
		      |        |
                   datatype  error
                 to be freed