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

Definition at line 620 of file zblat1.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 ..
      DOUBLE PRECISION  scomp1, sfac, strue1
*     .. Array Arguments ..
      DOUBLE PRECISION  ssize(*)
*     .. Local Arrays ..
      DOUBLE PRECISION  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: