ctest()

subroutine ctest	(	integer	len,
		complex*16, dimension(len)	ccomp,
		complex*16, dimension(len)	ctrue,
		complex*16, dimension(len)	csize,
		double precision	sfac
	)

Definition at line 713 of file zblat1.f.

*     **************************** CTEST *****************************
*
*     C.L. LAWSON, JPL, 1978 DEC 6
*
*     .. Scalar Arguments ..
      DOUBLE PRECISION SFAC
      INTEGER          LEN
*     .. Array Arguments ..
      COMPLEX*16       CCOMP(LEN), CSIZE(LEN), CTRUE(LEN)
*     .. Local Scalars ..
      INTEGER          I
*     .. Local Arrays ..
      DOUBLE PRECISION SCOMP(20), SSIZE(20), STRUE(20)
*     .. External Subroutines ..
      EXTERNAL         stest
*     .. Intrinsic Functions ..
      INTRINSIC        dimag, dble
*     .. Executable Statements ..
      DO 20 i = 1, len
         scomp(2*i-1) = dble(ccomp(i))
         scomp(2*i) = dimag(ccomp(i))
         strue(2*i-1) = dble(ctrue(i))
         strue(2*i) = dimag(ctrue(i))
         ssize(2*i-1) = dble(csize(i))
         ssize(2*i) = dimag(csize(i))
   20 CONTINUE
*
      CALL stest(2*len,scomp,strue,ssize,sfac)
      RETURN
*
*     End of CTEST
*

Here is the call graph for this function: