Transpose SafeArray

STDMETHODIMP CVBA::Transpose(VARIANT* array_in_out)
{
    if (!array_in_out->vt & VT_ARRAY) { return E_INVALIDARG; }
    if (array_in_out->parray->cDims != 2) { return E_INVALIDARG; }
    size_t lLbound_0 = array_in_out->parray->rgsabound[0].lLbound;
    size_t cElements_0 = array_in_out->parray->rgsabound[0].cElements;
    size_t lLbound_1 = array_in_out->parray->rgsabound[1].lLbound;
    size_t cElements_1 = array_in_out->parray->rgsabound[1].cElements;
    size_t elemSize = SafeArrayGetElemsize(array_in_out->parray);
    char HUGEP *arr;//в с-массив
    HRESULT hr = SafeArrayAccessData(array_in_out->parray, (void HUGEP**)&arr);
    if (FAILED(hr)) return hr;
 
    char* arrBuf= new char[cElements_0 * cElements_1 * elemSize];
    memcpy(arrBuf, arr, cElements_0 * cElements_1 * elemSize);
    char *arrTmp = arr;
    for (long j = 0; j < cElements_1; j++) {
        for (long i = 0; i < cElements_0; i++) {
            char *arrBufTmp = arrBuf + (j + i * cElements_1) * elemSize;
            memcpy(arrTmp, arrBufTmp, elemSize);
            arrTmp += elemSize;
        }
    }
    delete[] arrBuf;
 
    array_in_out->parray->rgsabound[0].lLbound = lLbound_1;
    array_in_out->parray->rgsabound[0].cElements = cElements_1;
    array_in_out->parray->rgsabound[1].lLbound = lLbound_0;
    array_in_out->parray->rgsabound[1].cElements = cElements_0;
 
    hr = SafeArrayUnaccessData(array_in_out->parray);
    if (FAILED(hr)) return hr;
    return S_OK;
}