jacobi Interface

interface
public subroutine jacobi(a, d, v, nrot)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=SP),	intent(inout),		DIMENSION(:,:)	::	a
real(kind=SP),	intent(out),		DIMENSION(:)	::	d
real(kind=SP),	intent(out),		DIMENSION(:,:)	::	v
integer(kind=I4B),	intent(out)			::	nrot