Procedure

     VSCLIP ( Vector scaling, 3 dimensions, in place )

     SUBROUTINE VSCLIP ( S, V )

Abstract

     Multiply a scalar and a 3-dimensional double precision vector,
     replacing the input vector with the result.

Required_Reading

     None.

Keywords

     VECTOR

Declarations

     IMPLICIT NONE

     DOUBLE PRECISION   S
     DOUBLE PRECISION   V ( 3 )

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     S          I   Scalar by which to multiply a vector.
     V         I-O  Vector to be multiplied/result of multiplication.

Detailed_Input

     S        is a double precision scalar used to multiply the vector
              V.

     V        is a 3-dimensional, double precision vector which is to
              be scaled by S.

Detailed_Output

     V        is the 3-dimensional, double precision vector resulting
              from the scalar multiplication

                 S * V

Parameters

     None.

Exceptions

     Error free.

Files

     None.

Particulars

     This routine is provided for situation where it is convenient to
     scale a vector in place rather than store the result in a
     separate variable. Note that the call

        CALL VSCL ( S, V, V )

     is not permitted by the ANSI Fortran 77 standard; this routine
     can be called instead to achieve the same result.

     VSCLIP multiplies each component of V by S to form the respective
     components of the output vector. No error checking is performed.

Examples

     The following table shows the output V as a function of the
     the inputs V and S.

        V on input         S          V on output
        -------------------------------------------------------
        (1D0, -2D0, 0D0)   -1D0       (-1D0, 2D0, 0D0)
        (0D0, 0D0, 0D0)     5D0       (0D0, 0D0, 0D0)

Restrictions

     1)  The user is responsible for insuring that no floating point
         overflow occurs from multiplying S by any component of V. No
         error recovery or reporting scheme is incorporated in this
         subroutine.

Literature_References

     None.

Author_and_Institution

     N.J. Bachman       (JPL)
     J. Diaz del Rio    (ODC Space)
     W.M. Owen          (JPL)

Version

    SPICELIB Version 1.1.0, 16-AUG-2021 (JDR)

        Added IMPLICIT NONE statement.

        Edited the header to comply with NAIF standard.

    SPICELIB Version 1.0.0, 01-SEP-2005 (NJB) (WMO)