84 SUBROUTINE zlaipd( N, A, INDA, VINDA )
92 INTEGER inda, n, vinda
102 DOUBLE PRECISION bignum
109 INTRINSIC dble, dcmplx
117 a( ia ) = dcmplx( dble( a( ia ) ), bignum )
double precision function dlamch(CMACH)
DLAMCH
subroutine zlaipd(N, A, INDA, VINDA)
ZLAIPD