TrimArrayReal Subroutine

public subroutine TrimArrayReal(a, k)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(inout),		allocatable	::	a(:,:)
integer,	intent(in)			::	k