tnsp_ext Module

! mpi

Uses

- tensor_type
- tools
- string
- error
- mpi
- mod_rand

Derived Types

type, public :: tnary

Components

Type	Visibility	Attributes		Name		Initial
type(Tensor),	public		::	tn
type(Tensor),	public,	allocatable	::	tns(:,:)

Functions

public function dbl(T) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
class(tensor),	intent(in)			::	T

Return Value real(kind=8)

public function randten_sign(ten, th1, th2, rand_grad, n1, n2, tot) result(rand_ten)

Arguments

Type	Intent	Optional	Attributes		Name
type(tensor),	intent(in)			::	ten
real(kind=8),	intent(in)			::	th1
real(kind=8),	intent(in)			::	th2
type(randomer),	intent(inout)			::	rand_grad
integer,	intent(inout)			::	n1
integer,	intent(inout)			::	n2
integer,	intent(inout)			::	tot

Return Value type(tensor)

public function test_same_tensor(T1, T2) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
type(tensor),	intent(in),		target	::	T1
type(tensor),	intent(in),		target	::	T2

Return Value logical

public function test_not_empty(T, mpi_comm) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
type(tensor),	intent(in)			::	T
integer,	intent(in)			::	mpi_comm

Return Value integer

public function test_same_type(T, mpi_comm) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
type(tensor),	intent(in)			::	T
integer,	intent(in)			::	mpi_comm

Return Value integer

public function test_same_length(T, mpi_comm) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
type(tensor),	intent(in)			::	T
integer,	intent(in)			::	mpi_comm

Return Value integer

Subroutines

public subroutine kill_D1_ind(T)

Arguments

Type	Intent	Optional	Attributes		Name
type(tensor),	intent(inout)			::	T

public subroutine permute_as(T, P)

Arguments

Type	Intent	Optional	Attributes		Name
type(tensor),	intent(inout)			::	T
type(tensor),	intent(in)			::	P

public subroutine print_data(T, unit, fmt)

Arguments

Type	Intent	Optional	Attributes		Name
type(tensor),	intent(inout)			::	T
integer,	intent(in)			::	unit
logical,	intent(in)			::	fmt

public subroutine HOSVD(T, uni, env, cen, names, Dc)

Arguments

Type	Intent	Optional	Attributes		Name
type(tensor),	intent(inout)			::	T
type(tensor),	intent(inout)			::	uni(:)
type(tensor),	intent(inout)			::	env(:)
type(tensor),	intent(inout)			::	cen
character(len=*),	intent(in)			::	names(:)
integer,	intent(in),	optional		::	Dc

public subroutine cre_ann_number(A, A_dg, N, N2, D)

Arguments

Type	Intent	Optional	Attributes		Name
type(Tensor),	intent(out)			::	A
type(Tensor),	intent(out)			::	A_dg
type(Tensor),	intent(out)			::	N
type(Tensor),	intent(out)			::	N2
integer,	intent(in)			::	D

public subroutine spin_matrix(sx, sy, sz, s)

Arguments

Type	Intent	Optional	Attributes		Name
type(Tensor),	intent(inout)			::	sx
type(Tensor),	intent(inout)			::	sy
type(Tensor),	intent(inout)			::	sz
real(kind=8),	intent(in)			::	s

public subroutine spin_matrix2(sx, sy, sz, sp, sm, s)

Arguments

Type	Intent	Optional	Attributes		Name
type(Tensor),	intent(inout)			::	sx
type(Tensor),	intent(inout)			::	sy
type(Tensor),	intent(inout)			::	sz
type(Tensor),	intent(inout)			::	sp
type(Tensor),	intent(inout)			::	sm
real(kind=8),	intent(in)			::	s

public subroutine set_Dc(myten, Dc, randomscal)

Arguments

Type	Intent	Optional	Attributes		Name
type(tensor),	intent(inout),		pointer	::	myten
integer,	intent(in)			::	Dc
real(kind=8),	intent(in)			::	randomscal

public subroutine direct_sum(ten1, ten2, ten3, freeze)

Arguments

Type	Intent	Optional	Attributes		Name
type(tensor),	intent(inout)			::	ten1
type(tensor),	intent(inout)			::	ten2
type(tensor),	intent(inout)			::	ten3
character(len=*),	intent(in)			::	freeze(:)

public subroutine ind2pos(ind, dims, pos)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ind
integer,	intent(in)			::	dims(:)
integer,	intent(inout)			::	pos(:)

public subroutine wc_allreduce_Tensor(inTensor, outTensor, op, MPIcommon, ierr)

Arguments

Type	Intent	Optional	Attributes		Name
type(Tensor),	intent(in),		target	::	inTensor
type(Tensor),	intent(inout),		target	::	outTensor
integer,	intent(in)			::	op
integer,	intent(in),	optional		::	MPIcommon
integer,	intent(inout)			::	ierr

public subroutine wc_reduce_Tensor(inTensor, outTensor, op, root, MPIcommon, ierr)

Arguments

Type	Intent	Optional	Attributes		Name
type(Tensor),	intent(in),		target	::	inTensor
type(Tensor),	intent(inout),		target	::	outTensor
integer,	intent(in)			::	op
integer,	intent(in),	optional		::	root
integer,	intent(in),	optional		::	MPIcommon
integer,	intent(inout)			::	ierr