LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
subroutine stest1 ( double precision  SCOMP1,
double precision  STRUE1,
double precision, dimension(*)  SSIZE,
double precision  SFAC 
)

Definition at line 620 of file zblat1.f.

620 * ************************* STEST1 *****************************
621 *
622 * THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
623 * REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
624 * ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
625 *
626 * C.L. LAWSON, JPL, 1978 DEC 6
627 *
628 * .. Scalar Arguments ..
629  DOUBLE PRECISION scomp1, sfac, strue1
630 * .. Array Arguments ..
631  DOUBLE PRECISION ssize(*)
632 * .. Local Arrays ..
633  DOUBLE PRECISION scomp(1), strue(1)
634 * .. External Subroutines ..
635  EXTERNAL stest
636 * .. Executable Statements ..
637 *
638  scomp(1) = scomp1
639  strue(1) = strue1
640  CALL stest(1,scomp,strue,ssize,sfac)
641 *
642  RETURN
subroutine stest(LEN, SCOMP, STRUE, SSIZE, SFAC)
Definition: cblat1.f:564

Here is the call graph for this function: