dsinqf - compute the Fourier coefficients in a sine series representation with only odd wave numbers. The SINQ operations are unnormalized inverses of themselves, so a call to SINQF followed by a call to SINQB will multiply the input sequence by 4 * N.
SUBROUTINE DSINQF( N, X, WSAVE) INTEGER N DOUBLE PRECISION X(*), WSAVE(*)
SUBROUTINE DSINQF_64( N, X, WSAVE) INTEGER*8 N DOUBLE PRECISION X(*), WSAVE(*)
SUBROUTINE SINQF( [N], X, WSAVE) INTEGER :: N REAL(8), DIMENSION(:) :: X, WSAVE
SUBROUTINE SINQF_64( [N], X, WSAVE) INTEGER(8) :: N REAL(8), DIMENSION(:) :: X, WSAVE
#include <sunperf.h>
void dsinqf(int n, double *x, double *wsave);
void dsinqf_64(long n, double *x, double *wsave);