kronmult1_batched.hpp

#ifndef KRONMULT1_BATCHED_HPP
#define KRONMULT1_BATCHED_HPP 1

#include "kroncommon.hpp"

#include "kronmult1.hpp"



// --------------------------------------------------------------------
// Performs  Y(:,k) = kron(A1(k)) * X(:,k), k=1:batchCount
// Note  result in Y but X and W may be modified as temporary work space
// --------------------------------------------------------------------
template<typename T>
GLOBAL_FUNCTION
void kronmult1_batched(
                       int const n,
                       T const Aarray_[],
                       T X_[],
                       T Y_[],
                       T W_[],
                       int const batchCount)
//
// conceptual shape of Aarray is  (n,n,1,batchCount)
// X_ is (n^1, batchCount)
// Y_ is (n^1, batchCount)
// W_ is (n^1, batchCount)
//
{
#ifdef USE_GPU
        // -------------------------------------------
        // note 1-based matlab convention for indexing
        // -------------------------------------------
        int const iz_start = blockIdx.x + 1;
        int const iz_size =  gridDim.x;
        expect( gridDim.y == 1 );
        expect( gridDim.z == 1 );
#else
        int const iz_start = 1;
        int const iz_size = 1;
#endif




        auto X = [&] (int const i,
                      int const j) -> T& {
                return(  X_[ indx2f(i,j,n) ] );
        };

        auto Y = [&] (int const i,
                      int const j) -> T& {
                return(  Y_[ indx2f(i,j,n) ] );
        };

        auto W = [&] (int const i,
                      int const j) -> T& {
                return(  W_[ indx2f(i,j,n) ] );
        };

        auto Aarray = [&] (int const i1,
                           int const i2,
                           int const i3,
                           int const i4) -> T const & {
                return( Aarray_[ indx4f(i1,i2,i3,i4, n,n,1 ) ] );
        };

        for(int ibatch=iz_start; ibatch <= batchCount; ibatch += iz_size) {
                T* const Xp = &( X(1,ibatch) );
                T* const Yp = &( Y(1,ibatch) );
                T* const Wp = &( W(1,ibatch) );
                T const * const A1 = &(Aarray(1,1,1,ibatch));
                int const nvec = 1;
                kronmult1( n, nvec, A1, Xp, Yp, Wp );
        };

}



#endif