GNU/Linux |
CentOS 4.8 |
i386 |
![]() |
dlasq6(l) |
![]() |
DLASQ6 - compute one dqd (shift equal to zero) transform in ping-pong form, with protection against underflow and overflow
SUBROUTINE DLASQ6( |
I0, N0, Z, PP, DMIN, DMIN1, DMIN2, DN, DNM1, DNM2 ) | ||
INTEGER |
I0, N0, PP | ||
DOUBLE |
PRECISION DMIN, DMIN1, DMIN2, DN, DNM1, DNM2 | ||
DOUBLE |
PRECISION Z( * ) |
DLASQ6 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) DOUBLE PRECISION 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) DOUBLE PRECISION
Minimum value of d.
DMIN1 (output) DOUBLE PRECISION Minimum value of d, excluding D( N0 ).
DMIN2 (output) DOUBLE PRECISION Minimum value of d, excluding D( N0 ) and D( N0-1 ).
DN (output) DOUBLE PRECISION
d(N0), the last value of d.
DNM1 (output) DOUBLE PRECISION
d(N0-1).
DNM2 (output) DOUBLE PRECISION
d(N0-2).
![]() |
dlasq6(l) | ![]() |