tp2 Subroutine

public subroutine tp2(a, b, n1, n2)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(out)			::	a(n1,n2)
real(kind=real64),	intent(in)			::	b(n2,n1)
integer,	intent(in)			::	n1
integer,	intent(in)			::	n2