cftf081 Subroutine

public subroutine cftf081(a, w)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	a(0:15)
real(kind=8)				::	w(0:*)