LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ ctest()

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

Definition at line 708 of file cblat1.f.

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