add_transpose Subroutine

public subroutine add_transpose(mat)

Adds a square matrix and its transpose in place: $A_{ij} = A_{ij } + A_{ji}$

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rp),	intent(inout),		dimension(:,:)	::	mat	(n,n) array