LAPACK  3.10.1
LAPACK: Linear Algebra PACKage

◆ ctest()

subroutine ctest ( integer  LEN,
complex*16, dimension(len)  CCOMP,
complex*16, dimension(len)  CTRUE,
complex*16, dimension(len)  CSIZE,
double precision  SFAC 
)

Definition at line 612 of file c_zblat1.f.

613 * **************************** CTEST *****************************
614 *
615 * C.L. LAWSON, JPL, 1978 DEC 6
616 *
617 * .. Scalar Arguments ..
618  DOUBLE PRECISION SFAC
619  INTEGER LEN
620 * .. Array Arguments ..
621  COMPLEX*16 CCOMP(LEN), CSIZE(LEN), CTRUE(LEN)
622 * .. Local Scalars ..
623  INTEGER I
624 * .. Local Arrays ..
625  DOUBLE PRECISION SCOMP(20), SSIZE(20), STRUE(20)
626 * .. External Subroutines ..
627  EXTERNAL stest
628 * .. Intrinsic Functions ..
629  INTRINSIC dimag, dble
630 * .. Executable Statements ..
631  DO 20 i = 1, len
632  scomp(2*i-1) = dble(ccomp(i))
633  scomp(2*i) = dimag(ccomp(i))
634  strue(2*i-1) = dble(ctrue(i))
635  strue(2*i) = dimag(ctrue(i))
636  ssize(2*i-1) = dble(csize(i))
637  ssize(2*i) = dimag(csize(i))
638  20 CONTINUE
639 *
640  CALL stest(2*len,scomp,strue,ssize,sfac)
641  RETURN
subroutine stest(LEN, SCOMP, STRUE, SSIZE, SFAC)
Definition: cblat1.f:609
Here is the call graph for this function: