SUBROUTINE SWIENER( N_POINTS, ACOR, XCOR, FLTR, EROP, ISW, IERR) INTEGER N_POINTS, ISW, IERR REAL ACOR(*), XCOR(*), FLTR(*), EROP(*) SUBROUTINE SWIENER_64( N_POINTS, ACOR, XCOR, FLTR, EROP, ISW, IERR) INTEGER*8 N_POINTS, ISW, IERR REAL ACOR(*), XCOR(*), FLTR(*), EROP(*)
SUBROUTINE WIENER( N_POINTS, ACOR, XCOR, FLTR, EROP, ISW, IERR) INTEGER :: N_POINTS, ISW, IERR REAL, DIMENSION(:) :: ACOR, XCOR, FLTR, EROP SUBROUTINE WIENER_64( N_POINTS, ACOR, XCOR, FLTR, EROP, ISW, IERR) INTEGER(8) :: N_POINTS, ISW, IERR REAL, DIMENSION(:) :: ACOR, XCOR, FLTR, EROP
void swiener(int n_points, float *acor, float *xcor, float *fltr, float *erop, int *isw, int *ierr);
void swiener_64(long n_points, float *acor, float *xcor, float *fltr, float *erop, long *isw, long *ierr);