LAPACK  3.10.1
LAPACK: Linear Algebra PACKage

◆ stest1()

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

Definition at line 1047 of file dblat1.f.

1048 * ************************* STEST1 *****************************
1049 *
1050 * THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
1051 * REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
1052 * ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
1053 *
1054 * C.L. LAWSON, JPL, 1978 DEC 6
1055 *
1056 * .. Scalar Arguments ..
1057  DOUBLE PRECISION SCOMP1, SFAC, STRUE1
1058 * .. Array Arguments ..
1059  DOUBLE PRECISION SSIZE(*)
1060 * .. Local Arrays ..
1061  DOUBLE PRECISION SCOMP(1), STRUE(1)
1062 * .. External Subroutines ..
1063  EXTERNAL stest
1064 * .. Executable Statements ..
1065 *
1066  scomp(1) = scomp1
1067  strue(1) = strue1
1068  CALL stest(1,scomp,strue,ssize,sfac)
1069 *
1070  RETURN
1071 *
1072 * End of STEST1
1073 *
subroutine stest(LEN, SCOMP, STRUE, SSIZE, SFAC)
Definition: cblat1.f:609
Here is the call graph for this function: