NAME

dezfti - initializes the array WSAVE, which is used in both DEZFTF and DEZFTB. =head1 SYNOPSIS

  SUBROUTINE DEZFTI( N, WSAVE)
  INTEGER N
  DOUBLE PRECISION WSAVE(*)
  SUBROUTINE DEZFTI_64( N, WSAVE)
  INTEGER*8 N
  DOUBLE PRECISION WSAVE(*)

F95 INTERFACE

  SUBROUTINE DEZFTI( N, WSAVE)
  INTEGER :: N
  REAL(8), DIMENSION(:) :: WSAVE
  SUBROUTINE DEZFTI_64( N, WSAVE)
  INTEGER(8) :: N
  REAL(8), DIMENSION(:) :: WSAVE

C INTERFACE

#include <sunperf.h>

void dezfti(int n, double *wsave);

void dezfti_64(long n, double *wsave);


ARGUMENTS