Contents
     sinqb - synthesize a Fourier sequence from  its  representa-
     tion  in  terms of a sine series with 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 SINQB(N, X, WSAVE)
     INTEGER N
     REAL X(*), WSAVE(*)
     SUBROUTINE SINQB_64(N, X, WSAVE)
     INTEGER*8 N
     REAL X(*), WSAVE(*)
  F95 INTERFACE
     SUBROUTINE SINQB(N, X, WSAVE)
     INTEGER :: N
     REAL, DIMENSION(:) :: X, WSAVE
     SUBROUTINE SINQB_64(N, X, WSAVE)
     INTEGER(8) :: N
     REAL, DIMENSION(:) :: X, WSAVE
  C INTERFACE
     #include <sunperf.h>
     void sinqb(int n, float *x, float *wsave);
     void sinqb_64(long n, float *x, float *wsave);
     N (input) Length of the sequence to be  transformed.   These
               subroutines are most efficient when N is a product
               of small primes.  N >= 0.
     X (input/output)
               On entry, an array  of  length  N  containing  the
               sequence   to   be   transformed.   On  exit,  the
               quarter-wave sine synthesis of the input.
     WSAVE (input)
               On entry, an array with dimension of at least (3 *
               N  +  15)  for  scalar subroutines, initialized by
               SINQI.