GNU/Linux |
CentOS 4.8 |
i386 |
![]() |
slasq6(l) |
![]() |
SLASQ6 - compute one dqd (shift equal to zero) transform in ping-pong form, with protection against underflow and overflow
SUBROUTINE SLASQ6( |
I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, DNM1, DNM2 ) | ||
INTEGER |
I0, N0, PP | ||
REAL |
DMIN, DMIN1, DMIN2, DN, DNM1, DNM2 | ||
REAL |
Z( * ) |
SLASQ6 computes one dqd (shift equal to zero) transform in ping-pong form, with protection against underflow and overflow.
I0 (input) INTEGER
First index.
N0 (input) INTEGER
Last index.
Z (input) REAL array, dimension ( 4*N )
Z holds the qd array. EMIN is stored in Z(4*N0) to avoid an extra argument.
PP (input) INTEGER
PP=0 for ping, PP=1 for pong.
DMIN (output) REAL
Minimum value of d.
DMIN1 (output) REAL Minimum value of d, excluding D( N0 ).
DMIN2 (output) REAL Minimum value of d, excluding D( N0 ) and D( N0-1 ).
DN (output) REAL
d(N0), the last value of d.
DNM1 (output) REAL
d(N0-1).
DNM2 (output) REAL
d(N0-2).
![]() |
slasq6(l) | ![]() |