direct_sum Subroutine

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(:)

Contents

None