cftf161 Subroutine

public subroutine cftf161(a, w)

Arguments

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