LAPACK  3.9.1
LAPACK: Linear Algebra PACKage

◆ stest1()

subroutine stest1 ( double precision  SCOMP1,
double precision  STRUE1,
double precision, dimension(*)  SSIZE,
double precision  SFAC 
)

Definition at line 652 of file zblat1.f.

653 * ************************* STEST1 *****************************
654 *
655 * THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
656 * REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
657 * ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
658 *
659 * C.L. LAWSON, JPL, 1978 DEC 6
660 *
661 * .. Scalar Arguments ..
662  DOUBLE PRECISION SCOMP1, SFAC, STRUE1
663 * .. Array Arguments ..
664  DOUBLE PRECISION SSIZE(*)
665 * .. Local Arrays ..
666  DOUBLE PRECISION SCOMP(1), STRUE(1)
667 * .. External Subroutines ..
668  EXTERNAL stest
669 * .. Executable Statements ..
670 *
671  scomp(1) = scomp1
672  strue(1) = strue1
673  CALL stest(1,scomp,strue,ssize,sfac)
674 *
675  RETURN
stest
subroutine stest(LEN, SCOMP, STRUE, SSIZE, SFAC)
Definition: cblat1.f:597
Here is the call graph for this function: