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.

*     **************************** 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: