Commit b8e1acb2 authored by D'azevedo, Ed's avatar D'azevedo, Ed
Browse files

add option to choose Xlacpy_ and dmrg_lacpy

parent aecfdb5d

src/setup_sparse_batch.c

+13 −8
Original line number Diff line number Diff line
@@ -77,6 +77,7 @@ void setup_sparse_batch( 
{

  const int idebug = 0;

  const int ialign = 32;

  const int use_Xlacpy = 0;



  int ipatch = 0;
@@ -409,10 +410,12 @@ void setup_sparse_batch( 
        assert( isok );





        // --------------------------------------------------

        // Xlacpy_(  &uplo, &m, &n, Asrc, &ld1, Adest, &ld2);

        // --------------------------------------------------

        if (use_Xlacpy) {

           Xlacpy_(  &uplo, &m, &n, Asrc, &ld1, Adest, &ld2);

           }

        else {

           dmrg_lacpy( uplo, m,n,  Asrc,ld1, Adest, ld2 );

           };

        

        Adest += (ld2 * n);

        };
@@ -427,10 +430,12 @@ void setup_sparse_batch( 
        int isok = (1 <= m) && (1 <= n) && (m <= ld1) && (m <= ld2);

        assert(isok);



        // --------------------------------------------------

        // Xlacpy_(  &uplo, &m, &n, Bsrc, &ld1, Bdest, &ld2);

        // --------------------------------------------------

        if (use_Xlacpy) {

           Xlacpy_(  &uplo, &m, &n, Bsrc, &ld1, Bdest, &ld2);

           }

        else {

           dmrg_lacpy( uplo, m,n, Bsrc, ld1, Bdest, ld2 );

        };



        Bdest += (ld2 * n);