subroutine stest1	(	real	SCOMP1,
		real	STRUE1,
		real, dimension(*)	SSIZE,
		real	SFAC
	)

Definition at line 947 of file sblat1.f.

*     ************************* STEST1 *****************************
*
*     THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE 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

Here is the call graph for this function: