|
IMPACT Z
|
Fourier function class in Math Function module of FUNCTION layer. More...
Data Types | |
| interface | fftcrlocal_fft |
| interface | fftrclocal_fft |
Functions/Subroutines | |
| subroutine | fft3d1_fft (nx, ny, nz, nsizez, nsizey, nsizexy, nsizeyz, ksign, scalex, scaley, scalez, x, xstable, xrtable, ystable, yrtable, nprocrow, commrow, nproccol, commcol, comm2d, myidx, myidy, xout) |
| 3_D FFT. More... | |
| subroutine | invfft3d1_fft (nz, ny, nx, nsizexy, nsizeyz, nsizey, nsizez, ksign, scalex, scaley, scalez, x, xstable, xrtable, ystable, yrtable, nprocrow, commrow, nproccol, commcol, comm2d, myidx, myidy, xout) |
| 3_D inverse FFT for open BCs. More... | |
| subroutine | invfft3d1img_fft (nz, ny, nx, nsizexy, nsizeyz, nsizey, nsizez, ksign, scalex, scaley, scalez, x, xstable, xrtable, ystable, yrtable, nprocrow, commrow, nproccol, commcol, comm2d, myidx, myidy, xout) |
| 3_D inverse FFT for open BCs. More... | |
| subroutine | fftlocal0_fft (ksign, scale, x, ny, nsizex) |
| used to find the first derivative after FFT. Subroutine to perform 1D FFT along y in 2D array. Here y is local to each processor. More... | |
| subroutine | fftlocal_fft (ksign, scale, x, ny, nsizex) |
| Subroutine to perform 1D FFT along y in 2D array. Here y is local to each processor. More... | |
| subroutine | fftrclocal1_fft (ksign, scale, x, ny, nsizex, y) |
| Subroutine to perform 1D real to complex FFT along y in 2D array. Here y is local to each processor. More... | |
| subroutine | fftrclocal2_fft (ksign, scale, x, ny, nsizex, y) |
| subroutine | fftcrlocal1_fft (ksign, scale, x, ny, nsizex, y) |
| Subroutine to perform 1D complex to real FFT along y in 2D array. Here y is local to each processor. More... | |
| subroutine | fftcrlocal2_fft (ksign, scale, x, ny, nsizex, y) |
| subroutine | four1 (data, nn, isign) |
| Fast fourier transform. More... | |
| subroutine | realft (data, n, isign) |
| real fast Fourier tranform More... | |
| subroutine | sinft (y, ny) |
| fast discrete sine transform More... | |
| subroutine | cosft1_fftpack (y, n) |
| fast discrete cosine transform More... | |
| subroutine | rvec_pack2nr_cosft1 (r, ny, y) |
| transfer real vector from fftpack style to nr style for (forward) cost1D More... | |
| subroutine | rvec_nr2pack_sint1f (r, n, y) |
| transfer real vector from nr style to fftpack style for (forward) sint1D More... | |
| subroutine | rvec_pack2nr_sint1f (r, n, y) |
| transfer real vector from fftpack style to nr style for (forward) sint 1D More... | |
| subroutine | rvec_nr2pack_rfft1f (r, n, data) |
| transfer real vector from nr style to fftpack style for forward real fft 1D More... | |
| subroutine | rvec_pack2nr_rfft1f (r, n, data) |
| transfer real vector from pack style to nr style for forward real fft 1D More... | |
| subroutine | rvec_nr2pack_rfft1b (r, n, data) |
| transfer real vector from nr style to fftpack style for backward real fft 1D More... | |
| subroutine | rvec_pack2nr_rfft1b (r, n, data) |
| transfer real vector from pack style to nr style for backward real fft 1D More... | |
| subroutine | rvec_nr2pack_gnl (r, n, data) |
| transfer real vector from nr style to fftpack style generally More... | |
| subroutine | rvec_pack2nr_gnl (r, n, data) |
| tansfer real vector from fftpack style to nr style generally More... | |
| subroutine | c1f2kb (ido, l1, na, cc, in1, ch, in2, wa) |
| C1F2KB is an FFTPACK5.1 auxiliary routine. More... | |
| subroutine | c1f2kf (ido, l1, na, cc, in1, ch, in2, wa) |
| C1F2KF is an FFTPACK5.1 auxiliary routine. More... | |
| subroutine | c1f3kb (ido, l1, na, cc, in1, ch, in2, wa) |
| C1F3KB is an FFTPACK5.1 auxiliary routine. More... | |
| subroutine | c1f3kf (ido, l1, na, cc, in1, ch, in2, wa) |
| C1F3KF is an FFTPACK5.1 auxiliary routine. More... | |
| subroutine | c1f4kb (ido, l1, na, cc, in1, ch, in2, wa) |
| C1F4KB is an FFTPACK5.1 auxiliary routine. More... | |
| subroutine | c1f4kf (ido, l1, na, cc, in1, ch, in2, wa) |
| C1F4KF is an FFTPACK5.1 auxiliary routine. More... | |
| subroutine | c1f5kb (ido, l1, na, cc, in1, ch, in2, wa) |
| C1F5KB is an FFTPACK5.1 auxiliary routine. More... | |
| subroutine | c1f5kf (ido, l1, na, cc, in1, ch, in2, wa) |
| C1F5KF is an FFTPACK5.1 auxiliary routine. More... | |
| subroutine | c1fgkb (ido, ip, l1, lid, na, cc, cc1, in1, ch, ch1, in2, |
| C1FGKB is an FFTPACK5.1 auxiliary routine. More... | |
| subroutine | c1fgkf (ido, ip, l1, lid, na, cc, cc1, in1, ch, ch1, in2, |
| C1FGKF is an FFTPACK5.1 auxiliary routine. More... | |
| subroutine | c1fm1b (n, inc, c, ch, wa, fnf, fac) |
| C1FM1B is an FFTPACK5.1 auxiliary routine. More... | |
| subroutine | c1fm1f (n, inc, c, ch, wa, fnf, fac) |
| C1FM1F is an FFTPACK5.1 auxiliary routine. More... | |
| subroutine | cfft1b (n, inc, c, lenc, wsave, lensav, work, lenwrk, ier |
| CFFT1B: complex single precision backward fast Fourier transform, 1D. More... | |
| subroutine | cfft1f (n, inc, c, lenc, wsave, lensav, work, lenwrk, ier |
| CFFT1F: complex single precision forward fast Fourier transform, 1D. More... | |
| subroutine | cfft1i (n, wsave, lensav, ier) |
| CFFT1I: initialization for CFFT1B and CFFT1F. More... | |
| subroutine | cmf2kb (lot, ido, l1, na, cc, im1, in1, ch, im2, in2, wa) |
| CMF2KB is an FFTPACK5.1 auxiliary routine. More... | |
| subroutine | cmf2kf (lot, ido, l1, na, cc, im1, in1, ch, im2, in2, wa) |
| CMF2KF is an FFTPACK5.1 auxiliary routine. More... | |
| subroutine | cmf3kb (lot, ido, l1, na, cc, im1, in1, ch, im2, in2, wa) |
| CMF3KB is an FFTPACK5.1 auxiliary routine. More... | |
| subroutine | cmf3kf (lot, ido, l1, na, cc, im1, in1, ch, im2, in2, wa) |
| CMF3KF is an FFTPACK5.1 auxiliary routine. More... | |
| subroutine | cmf4kb (lot, ido, l1, na, cc, im1, in1, ch, im2, in2, wa) |
| CMF4KB is an FFTPACK5.1 auxiliary routine. More... | |
| subroutine | cmf4kf (lot, ido, l1, na, cc, im1, in1, ch, im2, in2, wa) |
| CMF4KF is an FFTPACK5.1 auxiliary routine. More... | |
| subroutine | cmf5kb (lot, ido, l1, na, cc, im1, in1, ch, im2, in2, wa) |
| subroutine | cmf5kf (lot, ido, l1, na, cc, im1, in1, ch, im2, in2, wa) |
| subroutine | cmfgkb (lot, ido, ip, l1, lid, na, cc, cc1, im1, in1, ch, ch1, im2, in2, wa) |
| subroutine | cmfgkf (lot, ido, ip, l1, lid, na, cc, cc1, im1, in1, ch, ch1, im2, in2, wa) |
| subroutine | cosq1b (n, inc, x, lenx, wsave, lensav, work, lenwrk, ier) |
| subroutine | cosq1f (n, inc, x, lenx, wsave, lensav, work, lenwrk, ier) |
| subroutine | cosq1i (n, wsave, lensav, ier) |
| subroutine | cosqb1 (n, inc, x, wsave, work, ier) |
| subroutine | cosqf1 (n, inc, x, wsave, work, ier) |
| subroutine | cosqmb (lot, jump, n, inc, x, lenx, wsave, lensav, work, len |
| subroutine | cosqmf (lot, jump, n, inc, x, lenx, wsave, lensav, work, lenwrk, ier) |
| subroutine | cosqmi (n, wsave, lensav, ier) |
| subroutine | cost1b (n, inc, x, lenx, wsave, lensav, work, lenwrk, ier) |
| subroutine | cost1f (n, inc, x, lenx, wsave, lensav, work, lenwrk, ier) |
| subroutine | cost1i (n, wsave, lensav, ier) |
| subroutine | costb1 (n, inc, x, wsave, work, ier) |
| subroutine | costf1 (n, inc, x, wsave, work, ier) |
| subroutine | costmb (lot, jump, n, inc, x, lenx, wsave, lensav, work, lenwrk, ier) |
| subroutine | costmf (lot, jump, n, inc, x, lenx, wsave, lensav, work, lenwrk, ier) |
| subroutine | costmi (n, wsave, lensav, ier) |
| subroutine | mcsqb1 (lot, jump, n, inc, x, wsave, work, ier) |
| subroutine | mcsqf1 (lot, jump, n, inc, x, wsave, work, ier) |
| subroutine | mcstb1 (lot, jump, n, inc, x, wsave, dsum, work, ier) |
| subroutine | mcstf1 (lot, jump, n, inc, x, wsave, dsum, work, ier) |
| subroutine | mradb2 (m, ido, l1, cc, im1, in1, ch, im2, in2, wa1) |
| subroutine | mradb3 (m, ido, l1, cc, im1, in1, ch, im2, in2, wa1, wa2) |
| subroutine | mradb4 (m, ido, l1, cc, im1, in1, ch, im2, in2, wa1, wa2, wa3) |
| subroutine | mradb5 (m, ido, l1, cc, im1, in1, ch, im2, in2, wa1, wa2, wa3, wa4) |
| subroutine | mradbg (m, ido, ip, l1, idl1, cc, c1, c2, im1, in1, ch, ch2, im2, in2, wa) |
| subroutine | mradf2 (m, ido, l1, cc, im1, in1, ch, im2, in2, wa1) |
| subroutine | mradf3 (m, ido, l1, cc, im1, in1, ch, im2, in2, wa1, wa2) |
| subroutine | mradf4 (m, ido, l1, cc, im1, in1, ch, im2, in2, wa1, wa2, wa3) |
| subroutine | mradf5 (m, ido, l1, cc, im1, in1, ch, im2, in2, wa1, wa2, wa3, wa4) |
| subroutine | mradfg (m, ido, ip, l1, idl1, cc, c1, c2, im1, in1, ch, ch2, im2, in2, wa) |
| subroutine | mrftb1 (m, im, n, in, c, ch, wa, fac) |
| subroutine | mrftf1 (m, im, n, in, c, ch, wa, fac) |
| subroutine | mrfti1 (n, wa, fac) |
| subroutine | msntb1 (lot, jump, n, inc, x, wsave, dsum, xh, work, ier) |
| subroutine | msntf1 (lot, jump, n, inc, x, wsave, dsum, xh, work, ier) |
| subroutine | r1f2kb (ido, l1, cc, in1, ch, in2, wa1) |
| subroutine | r1f2kf (ido, l1, cc, in1, ch, in2, wa1) |
| subroutine | r1f3kb (ido, l1, cc, in1, ch, in2, wa1, wa2) |
| subroutine | r1f3kf (ido, l1, cc, in1, ch, in2, wa1, wa2) |
| subroutine | r1f4kb (ido, l1, cc, in1, ch, in2, wa1, wa2, wa3) |
| subroutine | r1f4kf (ido, l1, cc, in1, ch, in2, wa1, wa2, wa3) |
| subroutine | r1f5kb (ido, l1, cc, in1, ch, in2, wa1, wa2, wa3, wa4) |
| subroutine | r1f5kf (ido, l1, cc, in1, ch, in2, wa1, wa2, wa3, wa4) |
| subroutine | r1fgkb (ido, ip, l1, idl1, cc, c1, c2, in1, ch, ch2, in2, wa) |
| subroutine | r1fgkf (ido, ip, l1, idl1, cc, c1, c2, in1, ch, ch2, in2, wa) |
| subroutine | r2w (ldr, ldw, l, m, r, w) |
| subroutine | r4_factor (n, nf, fac) |
| subroutine | r4_mcfti1 (n, wa, fnf, fac) |
| subroutine | r4_tables (ido, ip, wa) |
| subroutine | r8_factor (n, nf, fac) |
| subroutine | r8_mcfti1 (n, wa, fnf, fac) |
| subroutine | r8_tables (ido, ip, wa) |
| subroutine | rfft1b (n, inc, r, lenr, wsave, lensav, work, lenwrk, ier) |
| subroutine | rfft1f (n, inc, r, lenr, wsave, lensav, work, lenwrk, ier) |
| subroutine | rfft1i (n, wsave, lensav, ier) |
| subroutine | rfftb1 (n, in, c, ch, wa, fac) |
| subroutine | rfftf1 (n, in, c, ch, wa, fac) |
| subroutine | rffti1 (n, wa, fac) |
| subroutine | rfftmb (lot, jump, n, inc, r, lenr, wsave, lensav, work, len |
| subroutine | rfftmf (lot, jump, n, inc, r, lenr, wsave, lensav, work, lenwrk, ier) |
| subroutine | rfftmi (n, wsave, lensav, ier) |
| subroutine | sinq1b (n, inc, x, lenx, wsave, lensav, work, lenwrk, ier) |
| subroutine | sinq1f (n, inc, x, lenx, wsave, lensav, work, lenwrk, ier) |
| subroutine | sinq1i (n, wsave, lensav, ier) |
| subroutine | sinqmb (lot, jump, n, inc, x, lenx, wsave, lensav, work, lenwrk, ier) |
| subroutine | sinqmf (lot, jump, n, inc, x, lenx, wsave, lensav, work, lenwrk, ier) |
| subroutine | sinqmi (n, wsave, lensav, ier) |
| subroutine | sint1b (n, inc, x, lenx, wsave, lensav, work, lenwrk, ier) |
| subroutine | sint1f (n, inc, x, lenx, wsave, lensav, work, lenwrk, ier) |
| subroutine | sint1i (n, wsave, lensav, ier) |
| subroutine | sintb1 (n, inc, x, wsave, xh, work, ier) |
| subroutine | sintf1 (n, inc, x, wsave, xh, work, ier) |
| subroutine | sintmb (lot, jump, n, inc, x, lenx, wsave, lensav, work, lenwrk, ier) |
| subroutine | sintmf (lot, jump, n, inc, x, lenx, wsave, lensav, work, lenwrk, ier) |
| subroutine | sintmi (n, wsave, lensav, ier) |
| subroutine | w2r (ldr, ldw, l, m, r, w) |
| logical function | xercon (inc, jump, n, lot) |
| subroutine | xerfft (srname, info) |
Fourier function class in Math Function module of FUNCTION layer.
This class defines the 3d FFT transformation subject to open or periodic conditions, Fourier Sine transformation, Complex-Complex, Complex-Real, and Real-Complex FFT.
| subroutine fftclass::c1f2kb | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(in1,l1,ido,2) | cc, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,l1,2,ido) | ch, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido,1,2) | wa | ||
| ) |
C1F2KB is an FFTPACK5.1 auxiliary routine.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| subroutine fftclass::c1f2kf | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(in1,l1,ido,2) | cc, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,l1,2,ido) | ch, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido,1,2) | wa | ||
| ) |
C1F2KF is an FFTPACK5.1 auxiliary routine.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| subroutine fftclass::c1f3kb | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(in1,l1,ido,3) | cc, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,l1,3,ido) | ch, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido,2,2) | wa | ||
| ) |
C1F3KB is an FFTPACK5.1 auxiliary routine.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| subroutine fftclass::c1f3kf | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(in1,l1,ido,3) | cc, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,l1,3,ido) | ch, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido,2,2) | wa | ||
| ) |
C1F3KF is an FFTPACK5.1 auxiliary routine.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| subroutine fftclass::c1f4kb | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(in1,l1,ido,4) | cc, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,l1,4,ido) | ch, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido,3,2) | wa | ||
| ) |
C1F4KB is an FFTPACK5.1 auxiliary routine.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| subroutine fftclass::c1f4kf | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(in1,l1,ido,4) | cc, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,l1,4,ido) | ch, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido,3,2) | wa | ||
| ) |
C1F4KF is an FFTPACK5.1 auxiliary routine.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| subroutine fftclass::c1f5kb | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(in1,l1,ido,5) | cc, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,l1,5,ido) | ch, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido,4,2) | wa | ||
| ) |
C1F5KB is an FFTPACK5.1 auxiliary routine.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| subroutine fftclass::c1f5kf | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(in1,l1,ido,5) | cc, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,l1,5,ido) | ch, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido,4,2) | wa | ||
| ) |
C1F5KF is an FFTPACK5.1 auxiliary routine.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| subroutine fftclass::c1fgkb | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | ip, | ||
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | lid, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(in1,l1,ip,ido) | cc, | ||
| real ( kind = 8 ), dimension(in1,lid,ip) | cc1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,l1,ido,ip) | ch, | ||
| real ( kind = 8 ), dimension(in2,lid,ip) | ch1, | ||
| integer ( kind = 4 ) | in2 | ||
| ) |
C1FGKB is an FFTPACK5.1 auxiliary routine.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| subroutine fftclass::c1fgkf | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | ip, | ||
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | lid, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(in1,l1,ip,ido) | cc, | ||
| real ( kind = 8 ), dimension(in1,lid,ip) | cc1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,l1,ido,ip) | ch, | ||
| real ( kind = 8 ), dimension(in2,lid,ip) | ch1, | ||
| integer ( kind = 4 ) | in2 | ||
| ) |
C1FGKF is an FFTPACK5.1 auxiliary routine.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| subroutine fftclass::c1fm1b | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(*) | c, | ||
| real ( kind = 8 ), dimension(*) | ch, | ||
| real ( kind = 8 ), dimension(*) | wa, | ||
| real ( kind = 8 ) | fnf, | ||
| real ( kind = 8 ), dimension(*) | fac | ||
| ) |
C1FM1B is an FFTPACK5.1 auxiliary routine.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| subroutine fftclass::c1fm1f | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(*) | c, | ||
| real ( kind = 8 ), dimension(*) | ch, | ||
| real ( kind = 8 ), dimension(*) | wa, | ||
| real ( kind = 8 ) | fnf, | ||
| real ( kind = 8 ), dimension(*) | fac | ||
| ) |
C1FM1F is an FFTPACK5.1 auxiliary routine.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| subroutine fftclass::cfft1b | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real (kind = 8 ), dimension(2*lenc) | c, | ||
| integer ( kind = 4 ) | lenc, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
CFFT1B: complex single precision backward fast Fourier transform, 1D.
Discussion: CFFT1B computes the one-dimensional Fourier transform of a single periodic sequence within a complex array. This transform is referred to as the backward transform or Fourier synthesis, transforming the sequence from spectral to physical space. This transform is normalized since a call to CFFT1B followed by a call to CFFT1F (or vice-versa) reproduces the original array within roundoff error.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| [in] | N | integer ( kind = 4 ), the length of the sequence to be transformed. The transform is most efficient when N is a product of small primes. |
| [in] | INC | integer ( kind = 4 ), the increment between the locations, in array C, of two consecutive elements within the sequence to be transformed. |
| [in,out] | C(LENC) | complex ( kind = 8 ) containing the sequence to be transformed. |
| [in] | LENC | integer ( kind = 4 ), the dimension of the C array. LENC must be at least INC*(N-1) + 1. |
| [in] | WSAVE(LENSAV) | real ( kind = 8 ). WSAVE's contents must be initialized with a call to CFFT1I before the first call to routine CFFT1F or CFFT1B for a given transform length N. WSAVE's contents may be re-used for subsequent calls to CFFT1F and CFFT1B with the same N. |
| [in] | LENSAV | integer ( kind = 4 ), the dimension of the WSAVE array. LENSAV must be at least 2*N + INT(LOG(REAL(N))) + 4. |
| [in] | WORK(LENWRK) | real ( kind = 8 ), Workspace. |
| [in] | LENWRK | integer ( kind = 4 ), the dimension of the WORK array. LENWRK must be at least 2*N. |
| [out] | IER | integer ( kind = 4 ), error flag. 0, successful exit; 1, input parameter LENC not big enough; 2, input parameter LENSAV not big enough; 3, input parameter LENWRK not big enough; 20, input error returned by lower level routine. |
| subroutine fftclass::cfft1f | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(2*lenc) | c, | ||
| integer ( kind = 4 ) | lenc, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
CFFT1F: complex single precision forward fast Fourier transform, 1D.
Discussion: CFFT1F computes the one-dimensional Fourier transform of a single periodic sequence within a complex array. This transform is referred to as the forward transform or Fourier analysis, transforming the sequence from physical to spectral space. This transform is normalized since a call to CFFT1F followed by a call to CFFT1B (or vice-versa) reproduces the original array within roundoff error.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| [in] | N | integer ( kind = 4 ), the length of the sequence to be transformed. The transform is most efficient when N is a product of small primes. |
| [in] | INC | integer ( kind = 4 ), the increment between the locations, in array C, of two consecutive elements within the sequence to be transformed. |
| [in,out] | C(LENC) | complex ( kind = 8 ) containing the sequence to be transformed. |
| [in] | LENC | integer ( kind = 4 ), the dimension of the C array. LENC must be at least INC*(N-1) + 1. |
| [in] | WSAVE(LENSAV) | real ( kind = 8 ). WSAVE's contents must be initialized with a call to CFFT1I before the first call to routine CFFT1F or CFFT1B for a given transform length N. WSAVE's contents may be re-used for subsequent calls to CFFT1F and CFFT1B with the same N. |
| [in] | LENSAV | integer ( kind = 4 ), the dimension of the WSAVE array. LENSAV must be at least 2*N + INT(LOG(REAL(N))) + 4. |
| [in] | WORK(LENWRK) | real ( kind = 8 ), Workspace. |
| [in] | LENWRK | integer ( kind = 4 ), the dimension of the WORK array. LENWRK must be at least 2*N. |
| [out] | IER | integer ( kind = 4 ), error flag. 0, successful exit; 1, input parameter LENC not big enough; 2, input parameter LENSAV not big enough; 3, input parameter LENWRK not big enough; 20, input error returned by lower level routine. |
| subroutine fftclass::cfft1i | ( | integer ( kind = 4 ) | n, |
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
CFFT1I: initialization for CFFT1B and CFFT1F.
Discussion: CFFT1I initializes array WSAVE for use in its companion routines CFFT1B and CFFT1F. Routine CFFT1I must be called before the first call to CFFT1B or CFFT1F, and after whenever the value of integer N changes.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| [in] | N | integer ( kind = 4 ), the length of the sequence to be transformed. The transform is most efficient when N is a product of small primes. |
| [in] | LENSAV | integer ( kind = 4 ), the dimension of the WSAVE array. LENSAV must be at least 2*N + INT(LOG(REAL(N))) + 4. |
| [out] | WSAVE(LENSAV) | real ( kind = 8 ), containing the prime factors of N and also containing certain trigonometric values which will be used in routines CFFT1B or CFFT1F. |
| [out] | IER | integer ( kind = 4 ), error flag. 0, successful exit; 2, input parameter LENSAV not big enough. |
| subroutine fftclass::cmf2kb | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(2,in1,l1,ido,2) | cc, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(2,in2,l1,2,ido) | ch, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido,1,2) | wa | ||
| ) |
CMF2KB is an FFTPACK5.1 auxiliary routine.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984. @param
| subroutine fftclass::cmf2kf | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(2,in1,l1,ido,2) | cc, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(2,in2,l1,2,ido) | ch, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido,1,2) | wa | ||
| ) |
CMF2KF is an FFTPACK5.1 auxiliary routine.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| subroutine fftclass::cmf3kb | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(2,in1,l1,ido,3) | cc, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(2,in2,l1,3,ido) | ch, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido,2,2) | wa | ||
| ) |
CMF3KB is an FFTPACK5.1 auxiliary routine.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| subroutine fftclass::cmf3kf | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(2,in1,l1,ido,3) | cc, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(2,in2,l1,3,ido) | ch, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido,2,2) | wa | ||
| ) |
CMF3KF is an FFTPACK5.1 auxiliary routine.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| subroutine fftclass::cmf4kb | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(2,in1,l1,ido,4) | cc, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(2,in2,l1,4,ido) | ch, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido,3,2) | wa | ||
| ) |
CMF4KB is an FFTPACK5.1 auxiliary routine.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| subroutine fftclass::cmf4kf | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(2,in1,l1,ido,4) | cc, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(2,in2,l1,4,ido) | ch, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido,3,2) | wa | ||
| ) |
CMF4KF is an FFTPACK5.1 auxiliary routine.
Reference: Paul Swarztrauber, Vectorizing the Fast Fourier Transforms, in Parallel Computations, edited by G. Rodrigue, Academic Press, 1982. Paul Swarztrauber, Fast Fourier Transform Algorithms for Vector Computers, Parallel Computing, pages 45-63, 1984.
| subroutine fftclass::cmf5kb | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(2,in1,l1,ido,5) | cc, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(2,in2,l1,5,ido) | ch, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido,4,2) | wa | ||
| ) |
| subroutine fftclass::cmf5kf | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(2,in1,l1,ido,5) | cc, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(2,in2,l1,5,ido) | ch, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido,4,2) | wa | ||
| ) |
| subroutine fftclass::cmfgkb | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | ip, | ||
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | lid, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(2,in1,l1,ip,ido) | cc, | ||
| real ( kind = 8 ), dimension(2,in1,lid,ip) | cc1, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(2,in2,l1,ido,ip) | ch, | ||
| real ( kind = 8 ), dimension(2,in2,lid,ip) | ch1, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido,ip-1,2) | wa | ||
| ) |
| subroutine fftclass::cmfgkf | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | ip, | ||
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | lid, | ||
| integer ( kind = 4 ) | na, | ||
| real ( kind = 8 ), dimension(2,in1,l1,ip,ido) | cc, | ||
| real ( kind = 8 ), dimension(2,in1,lid,ip) | cc1, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(2,in2,l1,ido,ip) | ch, | ||
| real ( kind = 8 ), dimension(2,in2,lid,ip) | ch1, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido,ip-1,2) | wa | ||
| ) |
| subroutine fftclass::cosft1_fftpack | ( | real*8, dimension(n+1) | y, |
| integer | n | ||
| ) |
fast discrete cosine transform
| subroutine fftclass::cosq1b | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| integer ( kind = 4 ) | lenx, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::cosq1f | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| integer ( kind = 4 ) | lenx, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::cosq1i | ( | integer ( kind = 4 ) | n, |
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::cosqb1 | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| real ( kind = 8 ), dimension(*) | wsave, | ||
| real ( kind = 8 ), dimension(*) | work, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::cosqf1 | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| real ( kind = 8 ), dimension(*) | wsave, | ||
| real ( kind = 8 ), dimension(*) | work, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::cosqmb | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | jump, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| integer ( kind = 4 ) | lenx, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| len | |||
| ) |
| subroutine fftclass::cosqmf | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | jump, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| integer ( kind = 4 ) | lenx, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::cosqmi | ( | integer ( kind = 4 ) | n, |
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::cost1b | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| integer ( kind = 4 ) | lenx, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::cost1f | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| integer ( kind = 4 ) | lenx, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::cost1i | ( | integer ( kind = 4 ) | n, |
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::costb1 | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| real ( kind = 8 ), dimension(*) | wsave, | ||
| real ( kind = 8 ), dimension(*) | work, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::costf1 | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| real ( kind = 8 ), dimension(*) | wsave, | ||
| real ( kind = 8 ), dimension(*) | work, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::costmb | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | jump, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| integer ( kind = 4 ) | lenx, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::costmf | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | jump, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| integer ( kind = 4 ) | lenx, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::costmi | ( | integer ( kind = 4 ) | n, |
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::fft3d1_fft | ( | integer, intent(in) | nx, |
| integer, intent(in) | ny, | ||
| integer, intent(in) | nz, | ||
| integer, intent(in) | nsizez, | ||
| integer, intent(in) | nsizey, | ||
| integer, intent(in) | nsizexy, | ||
| integer, intent(in) | nsizeyz, | ||
| integer, intent(in) | ksign, | ||
| double precision, intent(in) | scalex, | ||
| double precision, intent(in) | scaley, | ||
| double precision, intent(in) | scalez, | ||
| double precision, dimension(nx/2,nsizey,nsizez), intent(in) | x, | ||
| integer, dimension(0:nprocrow-1), intent(in) | xstable, | ||
| integer, dimension(0:nprocrow-1), intent(in) | xrtable, | ||
| integer, dimension(0:nproccol-1), intent(in) | ystable, | ||
| integer, dimension(0:nproccol-1), intent(in) | yrtable, | ||
| integer, intent(in) | nprocrow, | ||
| integer, intent(in) | commrow, | ||
| integer, intent(in) | nproccol, | ||
| integer, intent(in) | commcol, | ||
| integer, intent(in) | comm2d, | ||
| integer, intent(in) | myidx, | ||
| integer, intent(in) | myidy, | ||
| double complex, dimension(nz,nsizexy,nsizeyz), intent(out) | xout | ||
| ) |
3_D FFT.
| subroutine fftclass::fftcrlocal1_fft | ( | integer, intent(in) | ksign, |
| double precision, intent(in) | scale, | ||
| double complex, dimension(ny/2+1,nsizex), intent(in) | x, | ||
| integer, intent(in) | ny, | ||
| integer, intent(in) | nsizex, | ||
| double precision, dimension(ny,nsizex), intent(out) | y | ||
| ) |
Subroutine to perform 1D complex to real FFT along y in 2D array. Here y is local to each processor.
| subroutine fftclass::fftcrlocal2_fft | ( | integer, intent(in) | ksign, |
| double precision, intent(in) | scale, | ||
| double precision, dimension(ny,nsizex), intent(in) | x, | ||
| integer, intent(in) | ny, | ||
| integer, intent(in) | nsizex, | ||
| double precision, dimension(ny,nsizex), intent(out) | y | ||
| ) |
| subroutine fftclass::fftlocal0_fft | ( | integer, intent(in) | ksign, |
| double precision, intent(in) | scale, | ||
| double precision, dimension(ny,nsizex), intent(inout) | x, | ||
| integer, intent(in) | ny, | ||
| integer, intent(in) | nsizex | ||
| ) |
used to find the first derivative after FFT. Subroutine to perform 1D FFT along y in 2D array. Here y is local to each processor.
| subroutine fftclass::fftlocal_fft | ( | integer, intent(in) | ksign, |
| double precision, intent(in) | scale, | ||
| double complex, dimension(ny,nsizex), intent(inout) | x, | ||
| integer, intent(in) | ny, | ||
| integer, intent(in) | nsizex | ||
| ) |
Subroutine to perform 1D FFT along y in 2D array. Here y is local to each processor.
| subroutine fftclass::fftrclocal1_fft | ( | integer, intent(in) | ksign, |
| double precision, intent(in) | scale, | ||
| double precision, dimension(ny,nsizex), intent(in) | x, | ||
| integer, intent(in) | ny, | ||
| integer, intent(in) | nsizex, | ||
| double complex, dimension(ny/2+1,nsizex), intent(out) | y | ||
| ) |
Subroutine to perform 1D real to complex FFT along y in 2D array. Here y is local to each processor.
| subroutine fftclass::fftrclocal2_fft | ( | integer, intent(in) | ksign, |
| double precision, intent(in) | scale, | ||
| double precision, dimension(ny,nsizex), intent(in) | x, | ||
| integer, intent(in) | ny, | ||
| integer, intent(in) | nsizex, | ||
| double precision, dimension(ny,nsizex), intent(out) | y | ||
| ) |
| subroutine fftclass::four1 | ( | real*8, dimension(2*nn) | data, |
| integer | nn, | ||
| integer | isign | ||
| ) |
Fast fourier transform.
| subroutine fftclass::invfft3d1_fft | ( | integer, intent(in) | nz, |
| integer, intent(in) | ny, | ||
| integer, intent(in) | nx, | ||
| integer, intent(in) | nsizexy, | ||
| integer, intent(in) | nsizeyz, | ||
| integer, intent(in) | nsizey, | ||
| integer, intent(in) | nsizez, | ||
| integer, intent(in) | ksign, | ||
| double precision, intent(in) | scalex, | ||
| double precision, intent(in) | scaley, | ||
| double precision, intent(in) | scalez, | ||
| double complex, dimension(nz,nsizexy,nsizeyz), intent(inout) | x, | ||
| integer, dimension(0:nprocrow-1), intent(in) | xstable, | ||
| integer, dimension(0:nprocrow-1), intent(in) | xrtable, | ||
| integer, dimension(0:nproccol-1), intent(in) | ystable, | ||
| integer, dimension(0:nproccol-1), intent(in) | yrtable, | ||
| integer, intent(in) | nprocrow, | ||
| integer, intent(in) | commrow, | ||
| integer, intent(in) | nproccol, | ||
| integer, intent(in) | commcol, | ||
| integer, intent(in) | comm2d, | ||
| integer, intent(in) | myidx, | ||
| integer, intent(in) | myidy, | ||
| double precision, dimension(nx/2,nsizey,nsizez), intent(out) | xout | ||
| ) |
3_D inverse FFT for open BCs.
| subroutine fftclass::invfft3d1img_fft | ( | integer, intent(in) | nz, |
| integer, intent(in) | ny, | ||
| integer, intent(in) | nx, | ||
| integer, intent(in) | nsizexy, | ||
| integer, intent(in) | nsizeyz, | ||
| integer, intent(in) | nsizey, | ||
| integer, intent(in) | nsizez, | ||
| integer, intent(in) | ksign, | ||
| double precision, intent(in) | scalex, | ||
| double precision, intent(in) | scaley, | ||
| double precision, intent(in) | scalez, | ||
| double complex, dimension(nz,nsizexy,nsizeyz), intent(inout) | x, | ||
| integer, dimension(0:nprocrow-1), intent(in) | xstable, | ||
| integer, dimension(0:nprocrow-1), intent(in) | xrtable, | ||
| integer, dimension(0:nproccol-1), intent(in) | ystable, | ||
| integer, dimension(0:nproccol-1), intent(in) | yrtable, | ||
| integer, intent(in) | nprocrow, | ||
| integer, intent(in) | commrow, | ||
| integer, intent(in) | nproccol, | ||
| integer, intent(in) | commcol, | ||
| integer, intent(in) | comm2d, | ||
| integer, intent(in) | myidx, | ||
| integer, intent(in) | myidy, | ||
| double precision, dimension(nx/2,nsizey,nsizez), intent(out) | xout | ||
| ) |
3_D inverse FFT for open BCs.
| subroutine fftclass::mcsqb1 | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | jump, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| real ( kind = 8 ), dimension(*) | wsave, | ||
| real ( kind = 8 ), dimension(lot,*) | work, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::mcsqf1 | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | jump, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| real ( kind = 8 ), dimension(*) | wsave, | ||
| real ( kind = 8 ), dimension(lot,*) | work, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::mcstb1 | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | jump, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| real ( kind = 8 ), dimension(*) | wsave, | ||
| real ( kind = 8 ), dimension(*) | dsum, | ||
| real ( kind = 8 ), dimension(*) | work, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::mcstf1 | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | jump, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| real ( kind = 8 ), dimension(*) | wsave, | ||
| real ( kind = 8 ), dimension(*) | dsum, | ||
| real ( kind = 8 ), dimension(*) | work, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::mradb2 | ( | integer ( kind = 4 ) | m, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | l1, | ||
| real ( kind = 8 ), dimension(in1,ido,2,l1) | cc, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,l1,2) | ch, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa1 | ||
| ) |
| subroutine fftclass::mradb3 | ( | integer ( kind = 4 ) | m, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | l1, | ||
| real ( kind = 8 ), dimension(in1,ido,3,l1) | cc, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,l1,3) | ch, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa1, | ||
| real ( kind = 8 ), dimension(ido) | wa2 | ||
| ) |
| subroutine fftclass::mradb4 | ( | integer ( kind = 4 ) | m, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | l1, | ||
| real ( kind = 8 ), dimension(in1,ido,4,l1) | cc, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,l1,4) | ch, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa1, | ||
| real ( kind = 8 ), dimension(ido) | wa2, | ||
| real ( kind = 8 ), dimension(ido) | wa3 | ||
| ) |
| subroutine fftclass::mradb5 | ( | integer ( kind = 4 ) | m, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | l1, | ||
| real ( kind = 8 ), dimension(in1,ido,5,l1) | cc, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,l1,5) | ch, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa1, | ||
| real ( kind = 8 ), dimension(ido) | wa2, | ||
| real ( kind = 8 ), dimension(ido) | wa3, | ||
| real ( kind = 8 ), dimension(ido) | wa4 | ||
| ) |
| subroutine fftclass::mradbg | ( | integer ( kind = 4 ) | m, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | ip, | ||
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | idl1, | ||
| real ( kind = 8 ), dimension(in1,ido,ip,l1) | cc, | ||
| real ( kind = 8 ), dimension(in1,ido,l1,ip) | c1, | ||
| real ( kind = 8 ), dimension(in1,idl1,ip) | c2, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,l1,ip) | ch, | ||
| real ( kind = 8 ), dimension(in2,idl1,ip) | ch2, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa | ||
| ) |
| subroutine fftclass::mradf2 | ( | integer ( kind = 4 ) | m, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | l1, | ||
| real ( kind = 8 ), dimension(in1,ido,l1,2) | cc, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,2,l1) | ch, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa1 | ||
| ) |
| subroutine fftclass::mradf3 | ( | integer ( kind = 4 ) | m, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | l1, | ||
| real ( kind = 8 ), dimension(in1,ido,l1,3) | cc, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,3,l1) | ch, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa1, | ||
| real ( kind = 8 ), dimension(ido) | wa2 | ||
| ) |
| subroutine fftclass::mradf4 | ( | integer ( kind = 4 ) | m, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | l1, | ||
| real ( kind = 8 ), dimension(in1,ido,l1,4) | cc, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,4,l1) | ch, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa1, | ||
| real ( kind = 8 ), dimension(ido) | wa2, | ||
| real ( kind = 8 ), dimension(ido) | wa3 | ||
| ) |
| subroutine fftclass::mradf5 | ( | integer ( kind = 4 ) | m, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | l1, | ||
| real ( kind = 8 ), dimension(in1,ido,l1,5) | cc, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,5,l1) | ch, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa1, | ||
| real ( kind = 8 ), dimension(ido) | wa2, | ||
| real ( kind = 8 ), dimension(ido) | wa3, | ||
| real ( kind = 8 ), dimension(ido) | wa4 | ||
| ) |
| subroutine fftclass::mradfg | ( | integer ( kind = 4 ) | m, |
| integer ( kind = 4 ) | ido, | ||
| integer ( kind = 4 ) | ip, | ||
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | idl1, | ||
| real ( kind = 8 ), dimension(in1,ido,ip,l1) | cc, | ||
| real ( kind = 8 ), dimension(in1,ido,l1,ip) | c1, | ||
| real ( kind = 8 ), dimension(in1,idl1,ip) | c2, | ||
| integer ( kind = 4 ) | im1, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,l1,ip) | ch, | ||
| real ( kind = 8 ), dimension(in2,idl1,ip) | ch2, | ||
| integer ( kind = 4 ) | im2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa | ||
| ) |
| subroutine fftclass::mrftb1 | ( | integer ( kind = 4 ) | m, |
| integer ( kind = 4 ) | im, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | in, | ||
| real ( kind = 8 ), dimension(in,*) | c, | ||
| real ( kind = 8 ), dimension(m,*) | ch, | ||
| real ( kind = 8 ), dimension(n) | wa, | ||
| real ( kind = 8 ), dimension(15) | fac | ||
| ) |
| subroutine fftclass::mrftf1 | ( | integer ( kind = 4 ) | m, |
| integer ( kind = 4 ) | im, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | in, | ||
| real ( kind = 8 ), dimension(in,*) | c, | ||
| real ( kind = 8 ), dimension(m,*) | ch, | ||
| real ( kind = 8 ), dimension(n) | wa, | ||
| real ( kind = 8 ), dimension(15) | fac | ||
| ) |
| subroutine fftclass::mrfti1 | ( | integer ( kind = 4 ) | n, |
| real ( kind = 8 ), dimension(n) | wa, | ||
| real ( kind = 8 ), dimension(15) | fac | ||
| ) |
| subroutine fftclass::msntb1 | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | jump, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| real ( kind = 8 ), dimension(*) | wsave, | ||
| real ( kind = 8 ), dimension(*) | dsum, | ||
| real ( kind = 8 ), dimension(lot,*) | xh, | ||
| real ( kind = 8 ), dimension(*) | work, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::msntf1 | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | jump, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| real ( kind = 8 ), dimension(*) | wsave, | ||
| real ( kind = 8 ), dimension(*) | dsum, | ||
| real ( kind = 8 ), dimension(lot,*) | xh, | ||
| real ( kind = 8 ), dimension(*) | work, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::r1f2kb | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | l1, | ||
| real ( kind = 8 ), dimension(in1,ido,2,l1) | cc, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,l1,2) | ch, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa1 | ||
| ) |
| subroutine fftclass::r1f2kf | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | l1, | ||
| real ( kind = 8 ), dimension(in1,ido,l1,2) | cc, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,2,l1) | ch, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa1 | ||
| ) |
| subroutine fftclass::r1f3kb | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | l1, | ||
| real ( kind = 8 ), dimension(in1,ido,3,l1) | cc, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,l1,3) | ch, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa1, | ||
| real ( kind = 8 ), dimension(ido) | wa2 | ||
| ) |
| subroutine fftclass::r1f3kf | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | l1, | ||
| real ( kind = 8 ), dimension(in1,ido,l1,3) | cc, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,3,l1) | ch, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa1, | ||
| real ( kind = 8 ), dimension(ido) | wa2 | ||
| ) |
| subroutine fftclass::r1f4kb | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | l1, | ||
| real ( kind = 8 ), dimension(in1,ido,4,l1) | cc, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,l1,4) | ch, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa1, | ||
| real ( kind = 8 ), dimension(ido) | wa2, | ||
| real ( kind = 8 ), dimension(ido) | wa3 | ||
| ) |
| subroutine fftclass::r1f4kf | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | l1, | ||
| real ( kind = 8 ), dimension(in1,ido,l1,4) | cc, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,4,l1) | ch, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa1, | ||
| real ( kind = 8 ), dimension(ido) | wa2, | ||
| real ( kind = 8 ), dimension(ido) | wa3 | ||
| ) |
| subroutine fftclass::r1f5kb | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | l1, | ||
| real ( kind = 8 ), dimension(in1,ido,5,l1) | cc, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,l1,5) | ch, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa1, | ||
| real ( kind = 8 ), dimension(ido) | wa2, | ||
| real ( kind = 8 ), dimension(ido) | wa3, | ||
| real ( kind = 8 ), dimension(ido) | wa4 | ||
| ) |
| subroutine fftclass::r1f5kf | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | l1, | ||
| real ( kind = 8 ), dimension(in1,ido,l1,5) | cc, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,5,l1) | ch, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa1, | ||
| real ( kind = 8 ), dimension(ido) | wa2, | ||
| real ( kind = 8 ), dimension(ido) | wa3, | ||
| real ( kind = 8 ), dimension(ido) | wa4 | ||
| ) |
| subroutine fftclass::r1fgkb | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | ip, | ||
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | idl1, | ||
| real ( kind = 8 ), dimension(in1,ido,ip,l1) | cc, | ||
| real ( kind = 8 ), dimension(in1,ido,l1,ip) | c1, | ||
| real ( kind = 8 ), dimension(in1,idl1,ip) | c2, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,l1,ip) | ch, | ||
| real ( kind = 8 ), dimension(in2,idl1,ip) | ch2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa | ||
| ) |
| subroutine fftclass::r1fgkf | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | ip, | ||
| integer ( kind = 4 ) | l1, | ||
| integer ( kind = 4 ) | idl1, | ||
| real ( kind = 8 ), dimension(in1,ido,ip,l1) | cc, | ||
| real ( kind = 8 ), dimension(in1,ido,l1,ip) | c1, | ||
| real ( kind = 8 ), dimension(in1,idl1,ip) | c2, | ||
| integer ( kind = 4 ) | in1, | ||
| real ( kind = 8 ), dimension(in2,ido,l1,ip) | ch, | ||
| real ( kind = 8 ), dimension(in2,idl1,ip) | ch2, | ||
| integer ( kind = 4 ) | in2, | ||
| real ( kind = 8 ), dimension(ido) | wa | ||
| ) |
| subroutine fftclass::r2w | ( | integer ( kind = 4 ) | ldr, |
| integer ( kind = 4 ) | ldw, | ||
| integer ( kind = 4 ) | l, | ||
| integer ( kind = 4 ) | m, | ||
| real ( kind = 8 ), dimension(ldr,m) | r, | ||
| real ( kind = 8 ), dimension(ldw,m) | w | ||
| ) |
| subroutine fftclass::r4_factor | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | nf, | ||
| real ( kind = 8 ), dimension(*) | fac | ||
| ) |
| subroutine fftclass::r4_mcfti1 | ( | integer ( kind = 4 ) | n, |
| real ( kind = 8 ), dimension(*) | wa, | ||
| real ( kind = 8 ) | fnf, | ||
| real ( kind = 8 ), dimension(*) | fac | ||
| ) |
| subroutine fftclass::r4_tables | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | ip, | ||
| real ( kind = 8 ), dimension(ido,ip-1,2) | wa | ||
| ) |
| subroutine fftclass::r8_factor | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | nf, | ||
| real ( kind = 8 ), dimension(*) | fac | ||
| ) |
| subroutine fftclass::r8_mcfti1 | ( | integer ( kind = 4 ) | n, |
| real ( kind = 8 ), dimension(*) | wa, | ||
| real ( kind = 8 ) | fnf, | ||
| real ( kind = 8 ), dimension(*) | fac | ||
| ) |
| subroutine fftclass::r8_tables | ( | integer ( kind = 4 ) | ido, |
| integer ( kind = 4 ) | ip, | ||
| real ( kind = 8 ), dimension(ido,ip-1,2) | wa | ||
| ) |
| subroutine fftclass::realft | ( | real*8, dimension(n) | data, |
| integer | n, | ||
| integer | isign | ||
| ) |
real fast Fourier tranform
| subroutine fftclass::rfft1b | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(lenr) | r, | ||
| integer ( kind = 4 ) | lenr, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::rfft1f | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(lenr) | r, | ||
| integer ( kind = 4 ) | lenr, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::rfft1i | ( | integer ( kind = 4 ) | n, |
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::rfftb1 | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | in, | ||
| real ( kind = 8 ), dimension(in,*) | c, | ||
| real ( kind = 8 ), dimension(*) | ch, | ||
| real ( kind = 8 ), dimension(n) | wa, | ||
| real ( kind = 8 ), dimension(15) | fac | ||
| ) |
| subroutine fftclass::rfftf1 | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | in, | ||
| real ( kind = 8 ), dimension(in,*) | c, | ||
| real ( kind = 8 ), dimension(*) | ch, | ||
| real ( kind = 8 ), dimension(n) | wa, | ||
| real ( kind = 8 ), dimension(15) | fac | ||
| ) |
| subroutine fftclass::rffti1 | ( | integer ( kind = 4 ) | n, |
| real ( kind = 8 ), dimension(n) | wa, | ||
| real ( kind = 8 ), dimension(15) | fac | ||
| ) |
| subroutine fftclass::rfftmb | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | jump, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(lenr) | r, | ||
| integer ( kind = 4 ) | lenr, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| len | |||
| ) |
| subroutine fftclass::rfftmf | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | jump, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(lenr) | r, | ||
| integer ( kind = 4 ) | lenr, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::rfftmi | ( | integer ( kind = 4 ) | n, |
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::rvec_nr2pack_gnl | ( | real ( kind = 8 ), dimension(n) | r, |
| integer | n, | ||
| real*8, dimension(n) | data | ||
| ) |
transfer real vector from nr style to fftpack style generally
| subroutine fftclass::rvec_nr2pack_rfft1b | ( | real ( kind = 8 ), dimension(n) | r, |
| integer | n, | ||
| real*8, dimension(n) | data | ||
| ) |
transfer real vector from nr style to fftpack style for backward real fft 1D
| subroutine fftclass::rvec_nr2pack_rfft1f | ( | real ( kind = 8 ), dimension(n) | r, |
| integer | n, | ||
| real*8, dimension(n) | data | ||
| ) |
transfer real vector from nr style to fftpack style for forward real fft 1D
| subroutine fftclass::rvec_nr2pack_sint1f | ( | real ( kind = 8 ), dimension(n) | r, |
| integer | n, | ||
| real*8, dimension(n+1) | y | ||
| ) |
transfer real vector from nr style to fftpack style for (forward) sint1D
| subroutine fftclass::rvec_pack2nr_cosft1 | ( | real ( kind = 8 ), dimension(ny) | r, |
| integer | ny, | ||
| real*8, dimension(ny) | y | ||
| ) |
transfer real vector from fftpack style to nr style for (forward) cost1D
| subroutine fftclass::rvec_pack2nr_gnl | ( | real ( kind = 8 ), dimension(n) | r, |
| integer | n, | ||
| real*8, dimension(n) | data | ||
| ) |
tansfer real vector from fftpack style to nr style generally
| subroutine fftclass::rvec_pack2nr_rfft1b | ( | real ( kind = 8 ), dimension(n) | r, |
| integer | n, | ||
| real*8, dimension(n) | data | ||
| ) |
transfer real vector from pack style to nr style for backward real fft 1D
| subroutine fftclass::rvec_pack2nr_rfft1f | ( | real ( kind = 8 ), dimension(n) | r, |
| integer | n, | ||
| real*8, dimension(n) | data | ||
| ) |
transfer real vector from pack style to nr style for forward real fft 1D
| subroutine fftclass::rvec_pack2nr_sint1f | ( | real ( kind = 8 ), dimension(n) | r, |
| integer | n, | ||
| real*8, dimension(n+1) | y | ||
| ) |
transfer real vector from fftpack style to nr style for (forward) sint 1D
| subroutine fftclass::sinft | ( | real*8, dimension(ny) | y, |
| integer | ny | ||
| ) |
fast discrete sine transform
| subroutine fftclass::sinq1b | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| integer ( kind = 4 ) | lenx, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::sinq1f | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| integer ( kind = 4 ) | lenx, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::sinq1i | ( | integer ( kind = 4 ) | n, |
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::sinqmb | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | jump, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| integer ( kind = 4 ) | lenx, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::sinqmf | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | jump, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| integer ( kind = 4 ) | lenx, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::sinqmi | ( | integer ( kind = 4 ) | n, |
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::sint1b | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| integer ( kind = 4 ) | lenx, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::sint1f | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| integer ( kind = 4 ) | lenx, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::sint1i | ( | integer ( kind = 4 ) | n, |
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::sintb1 | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| real ( kind = 8 ), dimension(*) | wsave, | ||
| real ( kind = 8 ), dimension(*) | xh, | ||
| real ( kind = 8 ), dimension(*) | work, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::sintf1 | ( | integer ( kind = 4 ) | n, |
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| real ( kind = 8 ), dimension(*) | wsave, | ||
| real ( kind = 8 ), dimension(*) | xh, | ||
| real ( kind = 8 ), dimension(*) | work, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::sintmb | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | jump, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| integer ( kind = 4 ) | lenx, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::sintmf | ( | integer ( kind = 4 ) | lot, |
| integer ( kind = 4 ) | jump, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | inc, | ||
| real ( kind = 8 ), dimension(inc,*) | x, | ||
| integer ( kind = 4 ) | lenx, | ||
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| real ( kind = 8 ), dimension(lenwrk) | work, | ||
| integer ( kind = 4 ) | lenwrk, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::sintmi | ( | integer ( kind = 4 ) | n, |
| real ( kind = 8 ), dimension(lensav) | wsave, | ||
| integer ( kind = 4 ) | lensav, | ||
| integer ( kind = 4 ) | ier | ||
| ) |
| subroutine fftclass::w2r | ( | integer ( kind = 4 ) | ldr, |
| integer ( kind = 4 ) | ldw, | ||
| integer ( kind = 4 ) | l, | ||
| integer ( kind = 4 ) | m, | ||
| real ( kind = 8 ), dimension(ldr,m) | r, | ||
| real ( kind = 8 ), dimension(ldw,m) | w | ||
| ) |
| logical function fftclass::xercon | ( | integer ( kind = 4 ) | inc, |
| integer ( kind = 4 ) | jump, | ||
| integer ( kind = 4 ) | n, | ||
| integer ( kind = 4 ) | lot | ||
| ) |
| subroutine fftclass::xerfft | ( | character ( len = * ) | srname, |
| integer ( kind = 4 ) | info | ||
| ) |


My Little Brother
Answer the following questions:
(Click in the correct circles to colour them.)
1)
What does the poet feel about her baby brother?
a
The poet feels that her baby brother is the sweetest duck.
b
The poet feels that her baby brother is cute.
c
The poet loves her baby brother.
d
The poet feels that her baby brother is very small.
2)
What does the poet count in her baby brother’s hands?
a
fingers
b
nails
c
dimples
d
toys
3)
What does the word ‘dozen’ mean?
a
ten
b
twelve
c
twenty
d
five
4)
What does the poet’s baby brother do with his feet?
a
kick
b
walk
c
run
d
jump
(Click on the blanks and then click in the correct boxes.)
5)
The poet thinks that her baby brother must be feeling
without hair on his head.
cold
warm
hot
cool
cold
6)
The poet wonders that when her baby brother
coos, what he would like to
.
say
speak
cry
say
weep
7)
At the end of the poem, the poet would have a
, if they ate up her baby brother.
treat
party
treat
delight
thrill


Orphanage Name
Email/UserName
Contact Number
Government Registration number
Password :
Confirm Password :
Passwords should match
Number of Orphans :
Address :
Select Country
Select State
I agree that our organization is a government certified organization


resumè
about
projects
links
github
twitter
{{ page.title }}
Tweet
{{ content }} {% if page.comments %}
Please enable JavaScript to view the
comments powered by Disqus.
{% endif %}


About Me
Hello! My name is Kodi Watkins, I live in Southeast Missouri. I am attending Southeast Missouri State University majoring in Computer Science! Although I am not very far in my degree I have always had an interest in coding and building things! My first and second favorite food is tacos! I love tacos so much that it takes up both spots for my top two favorite foods!
Featuring
Cape Girardeau
https://www.cityofcapegirardeau.org/
Udacity
https://www.udacity.com/
CSS is awesome!
https://css-tricks.com/


Preparation time
30 mins to 1 hour
Cooking time
less than 10 mins
Serves
Serves 4
This is an easy way to use up leftover Christmas turkey, plus it makes a delicious light meal to help make up for the excesses of Christmas.
Mix the shallots and salt in a large bowl and set aside for 30 minutes, or until softened.
Meanwhile, for the dressing, mix together the dressing ingredients in a separate bowl until well combined.
Just before serving, add the cold turkey strips to the bowl of salted shallots. Mix in the Chinese cabbage leaves, beansprouts, shredded carrot, herbs and peanuts until well combined.
Pour over the dressing, season, to taste, with freshly ground black pepper, then mix well until the dressing coats the salad ingredients.
To serve, pile the turkey salad into the centre of each of four serving plates. Sprinkle over the remaining chopped roasted peanuts.


<EMAIL_ADDRESS>(555) 555-5555
JavaScript, React, Chai, Mocha, Jest, Storybook, Cypress, Node, Express, CSS, HTML, jQuery, SQL, Python, Java, C#, Unity, Bash, Ubuntu
Story Creator is a multi-page web database application I built with one of my classmates as mid-term project for the Lighthouse Labs Web Development Bootcamp. It provides a platform for collaborative story-telling; users can begin stories, contribute to other users' stories, select from submitted contributions to one’s own story, and upvote other users' contributions. It utilizes Express, PostGresQL, and jQuery.
The Useless Word Bot was a Python script that generated words “not yet in the English language” and posted one to Twitter every ten minutes. It utilized a technique similar to Markov Chaining to produce strings which, despite conforming to common patterns of letters in English, were nevertheless not actual English words. While the bot stopped tweeting years ago after Twitter updated their API, the bot’s account is still online.
While working as an assistant manager for an independent resto-cafe in 2012, I wrote a command-line utility in Python that interfaced with our workforce management application’s API to flag possible timesheet errors and calculate tip distributions.
For Edmonton’s 2011 Sea of Sound festival, I used Processing–a Java-based language and framework for multimedia artists–to develop a program that generated live visuals based on input from a laptop webcam and MIDI controller. For the performance, I improvised live electronic music while my collaborator manipulated the visuals. 3D glasses were distributed to members of the audience.
As my capstone project for NAIT’s NET diploma program in 2011, I collaborated with a classmate to build a peer-to-peer audio streaming application in C# for Windows 7 which allowed users on a local area network to browse each other’s shared folders and listen to audio files.
Diploma in Full-Stack Web Development
Calgary, Alberta
Cambridge University Certificate in English-Language Teaching to Adults - Studied student-centered teaching methodology and language systems - Achieved the highest performance standard, “A”
Vancouver, B.C.
Network Engineering Technology Diploma - Studied electricity, electronics, digital circuits, SQL, .NET, C#, bash, TCP/IP, Linux, Windows Server, network security, etc. - Graduated with Honours
Edmonton, Alberta
Bachelor of Arts, Psychology - Achieved multiple scholarships and awards for academic excellence - Elected as Budget Manager for Student Council Graduated with a 3.46 cumulative GPA
Edmonton, Alberta
### Kirishima City Board of Education #### Kirishima, Japan #### Assistant Language Teacher (August 2016 - July 2017) - Collaborated with local English teachers in planning and delivering lessons - Presented on Canadian culture and the English language - Provided feeedback on students' homework assignments


Utah school from ‘High School Musical’ may get tourist boost
SALT LAKE CITY (AP) - The Utah high school where the Disney movie “High School Musical” was filmed over a decade ago has become a tourist destination, and the trend could grow with the premiere of Disney’s new streaming service series based on the film.
Much of the popular 2006 movie was filmed at East High School in Salt Lake City. To draw in fans, the state office of tourism has compiled a four-day, four-night “High School Musical Itinerary” for visitors to follow, the Deseret News recently reported.
The campus is open to visitors for a self-guided walking tour on weekdays from 2:30 until 7 p.m. Some tourists just want to take their pictures in front of the school’s now widely recognized façade.
TOP STORIES
Justice Department clears Trump of wrongdoing on Ukraine call
Wisc. county becomes a Second Amendment sanctuary: 'We like our guns'
Trump pardons two military service members accused of war crimes, restores rank of Navy SEAL
The school again welcomed a Disney cast and crew in 2018 to film a series based on the movie. The filming that went from the end of the school year through the summer made the campus busy, but it wasn’t overwhelming, East High School assistant principal Ken DeVries said.
“They’re very good to work with us. They’re doing everything they can to stay out of our way,” he said.
Most visitors to the school are respectful, though they can sometimes get a little aggressive. And it’s challenging when tour buses stop, he said.
“That’s when it gets a little obnoxious,” DeVries said.
But overall, having a place in Disney history and the hearts of fans who flock to campus has been positive, he said.
“They are delightful people and are just thrilled to see where their favorite show is made,” DeVries said.
Sign up for Daily Newsletters
Copyright © 2019 The Washington Times, LLC.
Please read our comment policy before commenting.


public class ZipFile extends Object implements Closeable
Unless otherwise noted, passing a null argument to a constructor
or method in this class will cause a NullPointerException
to be
thrown.
| Modifier and Type | Field and Description |
|---|---|
static int |
CENATT |
static int |
CENATX |
static int |
CENCOM |
static int |
CENCRC |
static int |
CENDSK |
static int |
CENEXT |
static int |
CENFLG |
static int |
CENHDR |
static int |
CENHOW |
static int |
CENLEN |
static int |
CENNAM |
static int |
CENOFF |
static long |
CENSIG |
static int |
CENSIZ |
static int |
CENTIM |
static int |
CENVEM |
static int |
CENVER |
static int |
ENDCOM |
static int |
ENDHDR |
static int |
ENDOFF |
static long |
ENDSIG |
static int |
ENDSIZ |
static int |
ENDSUB |
static int |
ENDTOT |
static int |
EXTCRC |
static int |
EXTHDR |
static int |
EXTLEN |
static long |
EXTSIG |
static int |
EXTSIZ |
static int |
LOCCRC |
static int |
LOCEXT |
static int |
LOCFLG |
static int |
LOCHDR |
static int |
LOCHOW |
static int |
LOCLEN |
static int |
LOCNAM |
static long |
LOCSIG |
static int |
LOCSIZ |
static int |
LOCTIM |
static int |
LOCVER |
static int |
OPEN_DELETE
Mode flag to open a zip file and mark it for deletion.
|
static int |
OPEN_READ
Mode flag to open a zip file for reading.
|
| Constructor and Description |
|---|
ZipFile(File file)
Opens a ZIP file for reading given the specified File object.
|
ZipFile(File file,
Charset charset)
Opens a ZIP file for reading given the specified File object.
|
ZipFile(File file,
int mode)
Opens a new
ZipFile to read from the specified
File object in the specified mode. |
ZipFile(File file,
int mode,
Charset charset)
Opens a new
ZipFile to read from the specified
File object in the specified mode. |
ZipFile(String name)
Opens a zip file for reading.
|
ZipFile(String name,
Charset charset)
Opens a zip file for reading.
|
| Modifier and Type | Method and Description |
|---|---|
void |
close()
Closes the ZIP file.
|
Enumeration<? extends ZipEntry> |
entries()
Returns an enumeration of the ZIP file entries.
|
protected void |
finalize()
Ensures that the system resources held by this ZipFile object are
released when there are no more references to it.
|
String |
getComment()
Returns the zip file comment, or null if none.
|
ZipEntry |
getEntry(String name)
Returns the zip file entry for the specified name, or null
if not found.
|
InputStream |
getInputStream(ZipEntry entry)
Returns an input stream for reading the contents of the specified
zip file entry.
|
String |
getName()
Returns the path name of the ZIP file.
|
int |
size()
Returns the number of entries in the ZIP file.
|
Stream<? extends ZipEntry> |
stream()
Return an ordered
Stream over the ZIP file entries. |
public static final int OPEN_READ
public static final int OPEN_DELETE
public static final long LOCSIG
public static final long EXTSIG
public static final long CENSIG
public static final long ENDSIG
public static final int LOCHDR
public static final int EXTHDR
public static final int CENHDR
public static final int ENDHDR
public static final int LOCVER
public static final int LOCFLG
public static final int LOCHOW
public static final int LOCTIM
public static final int LOCCRC
public static final int LOCSIZ
public static final int LOCLEN
public static final int LOCNAM
public static final int LOCEXT
public static final int EXTCRC
public static final int EXTSIZ
public static final int EXTLEN
public static final int CENVEM
public static final int CENVER
public static final int CENFLG
public static final int CENHOW
public static final int CENTIM
public static final int CENCRC
public static final int CENSIZ
public static final int CENLEN
public static final int CENNAM
public static final int CENEXT
public static final int CENCOM
public static final int CENDSK
public static final int CENATT
public static final int CENATX
public static final int CENOFF
public static final int ENDSUB
public static final int ENDTOT
public static final int ENDSIZ
public static final int ENDOFF
public static final int ENDCOM
public ZipFile(String name) throws IOException
First, if there is a security manager, its checkRead
method is called with the name
argument as its argument
to ensure the read is allowed.
The UTF-8 charset
is used to
decode the entry names and comments.
name
- the name of the zip fileZipException
- if a ZIP format error has occurredIOException
- if an I/O error has occurredSecurityException
- if a security manager exists and its
checkRead
method doesn't allow read access to the file.SecurityManager.checkRead(java.lang.String)
public ZipFile(File file, int mode) throws IOException
ZipFile
to read from the specified
File
object in the specified mode. The mode argument
must be either OPEN_READ or OPEN_READ | OPEN_DELETE.
First, if there is a security manager, its checkRead
method is called with the name
argument as its argument to
ensure the read is allowed.
The UTF-8 charset
is used to
decode the entry names and comments
file
- the ZIP file to be opened for readingmode
- the mode in which the file is to be openedZipException
- if a ZIP format error has occurredIOException
- if an I/O error has occurredSecurityException
- if a security manager exists and
its checkRead
method
doesn't allow read access to the file,
or its checkDelete
method doesn't allow deleting
the file when the OPEN_DELETE flag is set.IllegalArgumentException
- if the mode argument is invalidSecurityManager.checkRead(java.lang.String)
public ZipFile(File file) throws ZipException, IOException
The UTF-8 charset
is used to
decode the entry names and comments.
file
- the ZIP file to be opened for readingZipException
- if a ZIP format error has occurredIOException
- if an I/O error has occurredpublic ZipFile(File file, int mode, Charset charset) throws IOException
ZipFile
to read from the specified
File
object in the specified mode. The mode argument
must be either OPEN_READ or OPEN_READ | OPEN_DELETE.
First, if there is a security manager, its checkRead
method is called with the name
argument as its argument to
ensure the read is allowed.
file
- the ZIP file to be opened for readingmode
- the mode in which the file is to be openedcharset
- the charset to
be used to decode the ZIP entry name and comment that are not
encoded by using UTF-8 encoding (indicated by entry's general
purpose flag).ZipException
- if a ZIP format error has occurredIOException
- if an I/O error has occurredSecurityException
- if a security manager exists and its checkRead
method doesn't allow read access to the file,or its
checkDelete
method doesn't allow deleting the
file when the OPEN_DELETE flag is setIllegalArgumentException
- if the mode argument is invalidSecurityManager.checkRead(java.lang.String)
public ZipFile(String name, Charset charset) throws IOException
First, if there is a security manager, its checkRead
method is called with the name
argument as its argument
to ensure the read is allowed.
name
- the name of the zip filecharset
- the charset to
be used to decode the ZIP entry name and comment that are not
encoded by using UTF-8 encoding (indicated by entry's general
purpose flag).ZipException
- if a ZIP format error has occurredIOException
- if an I/O error has occurredSecurityException
- if a security manager exists and its checkRead
method doesn't allow read access to the fileSecurityManager.checkRead(java.lang.String)
public ZipFile(File file, Charset charset) throws IOException
file
- the ZIP file to be opened for readingcharset
- The charset to be
used to decode the ZIP entry name and comment (ignored if
the language
encoding bit of the ZIP entry's general purpose bit
flag is set).ZipException
- if a ZIP format error has occurredIOException
- if an I/O error has occurredpublic String getComment()
IllegalStateException
- if the zip file has been closed
Since 1.7public ZipEntry getEntry(String name)
name
- the name of the entryIllegalStateException
- if the zip file has been closedpublic InputStream getInputStream(ZipEntry entry) throws IOException
Closing this ZIP file will, in turn, close all input streams that have been returned by invocations of this method.
entry
- the zip file entryZipException
- if a ZIP format error has occurredIOException
- if an I/O error has occurredIllegalStateException
- if the zip file has been closedpublic String getName()
public Enumeration<? extends ZipEntry> entries()
IllegalStateException
- if the zip file has been closedpublic Stream<? extends ZipEntry> stream()
Stream
over the ZIP file entries.
Entries appear in the Stream
in the order they appear in
the central directory of the ZIP file.Stream
of entries in this ZIP fileIllegalStateException
- if the zip file has been closedpublic int size()
IllegalStateException
- if the zip file has been closedpublic void close() throws IOException
Closing this ZIP file will close all of the input streams
previously returned by invocations of the getInputStream
method.
close
in interface Closeable
close
in interface AutoCloseable
IOException
- if an I/O error has occurredprotected void finalize() throws IOException
Since the time when GC would invoke this method is undetermined,
it is strongly recommended that applications invoke the close
method as soon they have finished accessing this ZipFile
.
This will prevent holding up system resources for an undetermined
length of time.
finalize
in class Object
IOException
- if an I/O error has occurredclose()
Dracula Javadoc Sample, Made with Allan Im.


Linking your controls to an Interactive project will allow people who watch the game to see them. You can also upload your working control schema, or download it to the CDK. Missing something? Refresh this list.
Updated: {{ game.updatedAt | amTimeAgo }}


% include ./partials/head %>
Node Starter App with Mongo
Home
Signup
Help
Enter your login details
Keep me logged in
Login
Don't have an account?
Signup


In this example, the navigation bar is hidden on small screens and replaced by a button in the top right corner (try to re-size this window).
Only when the button is clicked, the navigation bar will be displayed.


Nope! Currently, about half of the housemates are vegetarian/vegan.
We have a policy that no raw meat can be brought into the house and that cooked meat should only be re-heated in the microwave (house pans shouldn't be used for meat). However, if you're ok with that set-up, there is no need to be vegetarian.
Including cooking, cleaning, and house meetings, about five hours a week. Part of this is regular cleaning and house upkeep. So, for example, one person might sweep the stairs, another might take out the compost, another keeps the bathroom tidy. Labor responsibilities generally take 30 min- 1 hour a week.
We also have coordinator positions. These are longer running, more big picture jobs. One person takes care of maintenance, meaning if there's something to be fixed, that person will either fix it or delegate the fixing to another housemate or to a professional. We have food shoppers who go out and buy food once a week. One or two people manage finances, and someone also manages membership and recruiting. The time commitment varies depending on the job, but typically require 15 min to an hour per week depending on the job.
About once a week, you are expected to cook dinner for the rest of the housemates. This usually involves 2 hours cooking and generally about a half hour to an hour with all the clean up.
The final time commitment is attendance at a weekly house meeting, where we discuss ongoing projects, any issues like maintenance requests, and any requests that people have of the house (ex: "please respect quiet hours"). You get to multitask by eating at the same time, but it is about an hour commitment.
Yes. Part of the monthly amount paid to the house goes towards buying food.
We have housemates whose coordinator position is to buy food from the grocery store each week and one person who orders the bulk food. Buying decisions are generally made as a group, with some judgement calls going to the food shoppers. If you ever want something specific, put it on the shopping list and they'll get it.
If you wanted it to, house food could cover all of your food needs for the month. However, you are also completely free to bring your own food into the house. Just label it with your name and no one will touch it.
Probably. Pets have to be approved by the housemates, and sometimes someone already living in the house has allergies, but we are certainly open to pets.
Pets that can live in your room are almost always ok. Bigger pets that require more space and care may not be a good fit for that particular generation of housemates. With that said, the house is generally pretty open as long as you are willing to take responsibility for the pet.
Yes, occasionally, though room preference is given to those who are able to sign full-year leases.
The costs will vary depending on which house you live in. Monthly costs break down into rent, utilities and food, with set amounts for each. Please see each house's page for information about how they do it. In general, we are committed to making the houses as affordable as possible and it will cost less than living in a typical apartment in Champaign-Urbana.
While certain characteristics certainly trend that way - we love our garden, compost daily, believe in shared responsibility - we, for the most part, don't think of ourselves like that. We have a lot of varied interests and view points and generally don't take ourselves too seriously. We've had musicians, librarians, biologists, engineers, poets, accountants, and many more live in the house (including those that work to live, not live to work!). The main commonality between housemates is a dedication to cooperation.
That said, harassment or discrimination will not be tolerated. The houses aim to be a safe space for people of color, LGBTQ+ people, and other marginalized groups. While no one is perfect, we seek to hold each other accountable so we can continue to grow together as human beings. People come to the houses from many different countries and backgrounds, and a little discussion of cultural differences and expectations can go a long way in preventing conflict.
Not in any official capacity. You may have heard about Jonah Weisskopf's co-ops and/or the Roundtable houses; while we share similar vibes and are down to network and collaborate with them, those systems are privately owned while we are democratically run as a nonprofit.