LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
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 655 of file zblat1.f.

655 * **************************** CTEST *****************************
656 *
657 * C.L. LAWSON, JPL, 1978 DEC 6
658 *
659 * .. Scalar Arguments ..
660  DOUBLE PRECISION sfac
661  INTEGER len
662 * .. Array Arguments ..
663  COMPLEX*16 ccomp(len), csize(len), ctrue(len)
664 * .. Local Scalars ..
665  INTEGER i
666 * .. Local Arrays ..
667  DOUBLE PRECISION scomp(20), ssize(20), strue(20)
668 * .. External Subroutines ..
669  EXTERNAL stest
670 * .. Intrinsic Functions ..
671  INTRINSIC dimag, dble
672 * .. Executable Statements ..
673  DO 20 i = 1, len
674  scomp(2*i-1) = dble(ccomp(i))
675  scomp(2*i) = dimag(ccomp(i))
676  strue(2*i-1) = dble(ctrue(i))
677  strue(2*i) = dimag(ctrue(i))
678  ssize(2*i-1) = dble(csize(i))
679  ssize(2*i) = dimag(csize(i))
680  20 CONTINUE
681 *
682  CALL stest(2*len,scomp,strue,ssize,sfac)
683  RETURN
stest
subroutine stest(LEN, SCOMP, STRUE, SSIZE, SFAC)
Definition: cblat1.f:564

Here is the call graph for this function: