stest1()

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

Definition at line 1003 of file sblat1.f.

*     ************************* STEST1 *****************************
*
*     THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
*     REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
*     ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
*
*     C.L. LAWSON, JPL, 1978 DEC 6
*
*     .. Scalar Arguments ..
      REAL              SCOMP1, SFAC, STRUE1
*     .. Array Arguments ..
      REAL              SSIZE(*)
*     .. Local Arrays ..
      REAL              SCOMP(1), STRUE(1)
*     .. External Subroutines ..
      EXTERNAL          stest
*     .. Executable Statements ..
*
      scomp(1) = scomp1
      strue(1) = strue1
      CALL stest(1,scomp,strue,ssize,sfac)
*
      RETURN
*
*     End of STEST1
*

Here is the call graph for this function: