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

Definition at line 613 of file c_cblat1.f.

*     **************************** CTEST *****************************
*
*     C.L. LAWSON, JPL, 1978 DEC 6
*
*     .. Scalar Arguments ..
      REAL             sfac
      INTEGER          len
*     .. Array Arguments ..
      COMPLEX          ccomp(len), csize(len), ctrue(len)
*     .. Local Scalars ..
      INTEGER          i
*     .. Local Arrays ..
      REAL             scomp(20), ssize(20), strue(20)
*     .. External Subroutines ..
      EXTERNAL         stest
*     .. Intrinsic Functions ..
      INTRINSIC        aimag, real
*     .. Executable Statements ..
      DO 20 i = 1, len
         scomp(2*i-1) = REAL(ccomp(i))
         scomp(2*i) = aimag(ccomp(i))
         strue(2*i-1) = REAL(ctrue(i))
         strue(2*i) = aimag(ctrue(i))
         ssize(2*i-1) = REAL(csize(i))
         ssize(2*i) = aimag(csize(i))
   20 CONTINUE
*
      CALL stest(2*len,scomp,strue,ssize,sfac)
      RETURN

Here is the call graph for this function: