call MPI_Type_commit(MPI_UYZGRAD,IERROR)
call MPI_Type_contiguous(maxcontsshi,MPI_INTEGER,MPI_I50,IERROR)
call MPI_Type_commit(MPI_I50,IERROR)
call MPI_Type_commit(MPI_UYZGRAD,IERROR)
call MPI_Type_contiguous(maxcontsshi,MPI_INTEGER,MPI_I50,IERROR)
call MPI_Type_commit(MPI_I50,IERROR)