LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ stest1()

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

Definition at line 947 of file sblat1.f.

947 * ************************* STEST1 *****************************
948 *
949 * THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
950 * REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
951 * ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
952 *
953 * C.L. LAWSON, JPL, 1978 DEC 6
954 *
955 * .. Scalar Arguments ..
956  REAL scomp1, sfac, strue1
957 * .. Array Arguments ..
958  REAL ssize(*)
959 * .. Local Arrays ..
960  REAL scomp(1), strue(1)
961 * .. External Subroutines ..
962  EXTERNAL stest
963 * .. Executable Statements ..
964 *
965  scomp(1) = scomp1
966  strue(1) = strue1
967  CALL stest(1,scomp,strue,ssize,sfac)
968 *
969  RETURN
subroutine stest(LEN, SCOMP, STRUE, SSIZE, SFAC)
Definition: cblat1.f:564
Here is the call graph for this function: