dctsub Subroutine

public subroutine dctsub(n, a, nc, c)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	n
real(kind=8)				::	a(0:n-1)
integer				::	nc
real(kind=8)				::	c(0:nc-1)