LAPACK  3.8.0
LAPACK: Linear Algebra PACKage

◆ stest1()

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

Definition at line 992 of file dblat1.f.

992 * ************************* STEST1 *****************************
993 *
994 * THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
995 * REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
996 * ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
997 *
998 * C.L. LAWSON, JPL, 1978 DEC 6
999 *
1000 * .. Scalar Arguments ..
1001  DOUBLE PRECISION scomp1, sfac, strue1
1002 * .. Array Arguments ..
1003  DOUBLE PRECISION ssize(*)
1004 * .. Local Arrays ..
1005  DOUBLE PRECISION scomp(1), strue(1)
1006 * .. External Subroutines ..
1007  EXTERNAL stest
1008 * .. Executable Statements ..
1009 *
1010  scomp(1) = scomp1
1011  strue(1) = strue1
1012  CALL stest(1,scomp,strue,ssize,sfac)
1013 *
1014  RETURN
subroutine stest(LEN, SCOMP, STRUE, SSIZE, SFAC)
Definition: cblat1.f:564
Here is the call graph for this function: