stest1()

subroutine stest1	(	double precision	scomp1,
		double precision	strue1,
		double precision, dimension(*)	ssize,
		double precision	sfac
	)

Definition at line 577 of file c_zblat1.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 ..
      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: