diapos Subroutine

subroutine diapos(n, ja, ia, idiag)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	n
integer				::	ja(*)
integer				::	ia(n+1)
integer				::	idiag(n)