Procedure

     MEQUG  ( Matrix equal to another, general dimension )

     SUBROUTINE MEQUG ( M1, NR, NC, MOUT )

Abstract

     Set one double precision matrix of arbitrary size equal to
     another.

Required_Reading

     None.

Keywords

     ASSIGNMENT
     MATRIX

Declarations

     IMPLICIT NONE

     INTEGER            NR
     INTEGER            NC
     DOUBLE PRECISION   M1   ( NR,NC )
     DOUBLE PRECISION   MOUT ( NR,NC )

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     M1         I   Input matrix.
     NR         I   Row dimension of M1 (and also MOUT).
     NC         I   Column dimension of M1 (and also MOUT).
     MOUT       O   Output matrix equal to M1.

Detailed_Input

     M1       is an arbitrary-sized double precision matrix.
              There are no restrictions on what it may contain.

     NR       is the number of rows in the input matrix.

     NC       is the number of columns in the input matrix.

Detailed_Output

     MOUT     is a NRxNC matrix set to be equal to M1.

Parameters

     None.

Exceptions

     Error free.

     1)  If NR < 1 or NC < 1, the elements of the matrix MOUT are not
         assigned any values.

Files

     None.

Particulars

     None.

Examples

     If  M1 = | 1.0D0   2.0D0 |
              |               |
              | 2.0D0   4.0D0 |
              |               |
              | 4.0D0   6.0D0 |

     the call

     CALL MEQUG ( M1, 3, 2, MOUT )

     produces the matrix

       MOUT = | 1.0D0   2.0D0 |
              |               |
              | 2.0D0   4.0D0 |
              |               |
              | 4.0D0   6.0D0 |

Restrictions

     None.

Literature_References

     None.

Author_and_Institution

     J. Diaz del Rio    (ODC Space)
     W.M. Owen          (JPL)
     W.L. Taber         (JPL)

Version

    SPICELIB Version 1.1.0, 04-JUL-2021 (JDR)

        Edited the header to comply with NAIF standard.

    SPICELIB Version 1.0.1, 10-MAR-1992 (WLT)

        Comment section for permuted index source lines was added
        following the header.

    SPICELIB Version 1.0.0, 31-JAN-1990 (WMO)