LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ stest1()

subroutine stest1 ( real  scomp1,
real  strue1,
real, dimension(*)  ssize,
real  sfac 
)

Definition at line 672 of file cblat1.f.

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