LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ stest1()

subroutine stest1 ( real  SCOMP1,
real  STRUE1,
real, dimension(*)  SSIZE,
real  SFAC 
)

Definition at line 667 of file cblat1.f.

668 * ************************* STEST1 *****************************
669 *
670 * THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
671 * REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
672 * ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
673 *
674 * C.L. LAWSON, JPL, 1978 DEC 6
675 *
676 * .. Scalar Arguments ..
677  REAL SCOMP1, SFAC, STRUE1
678 * .. Array Arguments ..
679  REAL SSIZE(*)
680 * .. Local Arrays ..
681  REAL SCOMP(1), STRUE(1)
682 * .. External Subroutines ..
683  EXTERNAL stest
684 * .. Executable Statements ..
685 *
686  scomp(1) = scomp1
687  strue(1) = strue1
688  CALL stest(1,scomp,strue,ssize,sfac)
689 *
690  RETURN
691 *
692 * End of STEST1
693 *
subroutine stest(LEN, SCOMP, STRUE, SSIZE, SFAC)
Definition: cblat1.f:609
Here is the call graph for this function:
Here is the caller graph for this function: