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 653 of file c_sblat1.f.

654* ************************* STEST1 *****************************
655*
656* THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
657* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
658* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
659*
660* C.L. LAWSON, JPL, 1978 DEC 6
661*
662* .. Scalar Arguments ..
663 REAL SCOMP1, SFAC, STRUE1
664* .. Array Arguments ..
665 REAL SSIZE(*)
666* .. Local Arrays ..
667 REAL SCOMP(1), STRUE(1)
668* .. External Subroutines ..
669 EXTERNAL stest
670* .. Executable Statements ..
671*
672 scomp(1) = scomp1
673 strue(1) = strue1
674 CALL stest(1,scomp,strue,ssize,sfac)
675*
676 RETURN
subroutine stest(len, scomp, strue, ssize, sfac)
Definition cblat1.f:614
Here is the call graph for this function: