 /** Tensor Algebra Library for NVidia GPU: NV-TAL (CUDA based).
 AUTHOR: Dmitry I. Lyakh (Liakh): quant4me@gmail.com, liakhdi@ornl.gov
-REVISION: 2019/09/17
+REVISION: 2019/09/26
 
 Copyright (C) 2014-2019 Dmitry I. Lyakh (Liakh)
 Copyright (C) 2014-2019 Oak Ridge National Laboratory (UT-Battelle)

    n++; err=cudaSetDevice(i);
    if(err == cudaSuccess){
#ifdef USE_CUTENSOR
     err_cutensor=cutensorDestroy(cutensor_handle[i]);
#endif
#ifndef NO_BLAS

                                      (const void*)&h_zgemm_beta_one,
                                      darg,cuda_task->tens_cudesc[0],cumod_d,
                                      darg,cuda_task->tens_cudesc[0],cumod_d,
                                      CUTENSOR_OP_IDENTITY,CUDA_C_64F,CUTENSOR_ALGO_DEFAULT,
                                      cutensor_workspace[gpu_num],(uint64_t)cutensor_worksize[gpu_num],
                                      *cuda_stream);
     if(cuda_task->pref_ptr == &h_zgemm_beta_one) cuda_task->pref_ptr=NULL;
#else
     if(conj_r){
