LAPACK 3.11.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ ctest()

subroutine ctest ( integer  LEN,
complex, dimension(len)  CCOMP,
complex, dimension(len)  CTRUE,
complex, dimension(len)  CSIZE,
real  SFAC 
)

Definition at line 612 of file c_cblat1.f.

613* **************************** CTEST *****************************
614*
615* C.L. LAWSON, JPL, 1978 DEC 6
616*
617* .. Scalar Arguments ..
618 REAL SFAC
619 INTEGER LEN
620* .. Array Arguments ..
621 COMPLEX CCOMP(LEN), CSIZE(LEN), CTRUE(LEN)
622* .. Local Scalars ..
623 INTEGER I
624* .. Local Arrays ..
625 REAL SCOMP(20), SSIZE(20), STRUE(20)
626* .. External Subroutines ..
627 EXTERNAL stest
628* .. Intrinsic Functions ..
629 INTRINSIC aimag, real
630* .. Executable Statements ..
631 DO 20 i = 1, len
632 scomp(2*i-1) = real(ccomp(i))
633 scomp(2*i) = aimag(ccomp(i))
634 strue(2*i-1) = real(ctrue(i))
635 strue(2*i) = aimag(ctrue(i))
636 ssize(2*i-1) = real(csize(i))
637 ssize(2*i) = aimag(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: