1 /*
2     Copyright (C) 2008-2009 William Hart
3     Copyright (C) 2010 Fredrik Johansson
4     Copyright (C) 2014 Abhinav Baid
5 
6     This file is part of FLINT.
7 
8     FLINT is free software: you can redistribute it and/or modify it under
9     the terms of the GNU Lesser General Public License (LGPL) as published
10     by the Free Software Foundation; either version 2.1 of the License, or
11     (at your option) any later version.  See <http://www.gnu.org/licenses/>.
12 */
13 
14 #include "flint.h"
15 #include "mpfr_vec.h"
16 #include "mpfr_mat.h"
17 
18 void
mpfr_mat_set(mpfr_mat_t mat1,const mpfr_mat_t mat2)19 mpfr_mat_set(mpfr_mat_t mat1, const mpfr_mat_t mat2)
20 {
21     if (mat1 != mat2)
22     {
23         slong i;
24 
25         if (mat2->r && mat2->c)
26             for (i = 0; i < mat2->r; i++)
27                 _mpfr_vec_set(mat1->rows[i], mat2->rows[i], mat2->c);
28     }
29 }
30