LAPACK 3.12.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 713 of file cblat1.f.

714* **************************** CTEST *****************************
715*
716* C.L. LAWSON, JPL, 1978 DEC 6
717*
718* .. Scalar Arguments ..
719 REAL SFAC
720 INTEGER LEN
721* .. Array Arguments ..
722 COMPLEX CCOMP(LEN), CSIZE(LEN), CTRUE(LEN)
723* .. Local Scalars ..
724 INTEGER I
725* .. Local Arrays ..
726 REAL SCOMP(20), SSIZE(20), STRUE(20)
727* .. External Subroutines ..
728 EXTERNAL stest
729* .. Intrinsic Functions ..
730 INTRINSIC aimag, real
731* .. Executable Statements ..
732 DO 20 i = 1, len
733 scomp(2*i-1) = real(ccomp(i))
734 scomp(2*i) = aimag(ccomp(i))
735 strue(2*i-1) = real(ctrue(i))
736 strue(2*i) = aimag(ctrue(i))
737 ssize(2*i-1) = real(csize(i))
738 ssize(2*i) = aimag(csize(i))
739 20 CONTINUE
740*
741 CALL stest(2*len,scomp,strue,ssize,sfac)
742 RETURN
743*
744* End of CTEST
745*
subroutine stest(len, scomp, strue, ssize, sfac)
Definition cblat1.f:614
Here is the call graph for this function:
Here is the caller graph for this function: