Commit e594a9d7 authored by Alvarez, Gonzalo's avatar Alvarez, Gonzalo
Browse files

bug fix for exatn backend

parent 0b7c012b

src/Engine/MeraSolver.h

+2 −0
Original line number Diff line number Diff line
@@ -73,6 +73,7 @@ public: 
	      model_(paramsForMera_.model, paramsForMera_.hamiltonianConnection),

	      paramsForLanczos_(0)

	{

		TensorType::init();

		InputCheck inputCheck;

		InputNgType::Writeable ioWriteable(filename,inputCheck);

		InputNgType::Readable io(ioWriteable);
@@ -207,6 +208,7 @@ public: 
			energyTerms_[i] = 0;

		}



		TensorType::finalize();

		delete paramsForLanczos_;

	}

src/Engine/TensorExatn.h

+13 −3
Original line number Diff line number Diff line
@@ -275,6 +275,16 @@ public: 
		const TensorBlobType& data_;

	};



	static void init()

	{

		exatn::initialize();

	}



	static void finalize()

	{

		exatn::finalize();

	}



	// Tensor with only one dimension

	Tensor(PsimagLite::String name, SizeType dim0, SizeType ins)

	    : name_(name),
@@ -391,10 +401,10 @@ public: 
	TensorBlobType data() const

	{

		std::shared_ptr<talsh::Tensor> ptr = exatn::getLocalTensor(name_);

		const ComplexOrRealType** ptr2 = 0;

		bool ret = ptr->getDataAccessHostConst(ptr2);

		const ComplexOrRealType* ptr2;

		bool ret = ptr->getDataAccessHostConst(&ptr2);

		checkTalshErrorCode(ret, "getDataAccessHostConst");

		return TensorBlobType(ptr->getVolume(), *ptr2);

		return TensorBlobType(ptr->getVolume(), ptr2);

	}



	// Set data_ = data