Mercurial > octave-nkf

comparison src/expm.cc @ 90:cd4df7ad58fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-09-13 02:28:11 by jwe] (matrix_exp): Call is_empty instead of empty_arg.
author jwe
date Mon, 13 Sep 1993 02:28:11 +0000
parents 9eda1009cf95
children d1c5e5edbf1e
comparison
equal deleted inserted replaced
89:75a750fd15ce 90:cd4df7ad58fa
53 const double*, const int*, double*); 53 const double*, const int*, double*);
54 54
55 double F77_FCN (zlange) (const char*, const int*, const int*, 55 double F77_FCN (zlange) (const char*, const int*, const int*,
56 const Complex*, const int*, double*); 56 const Complex*, const int*, double*);
57 } 57 }
58
59 // XXX FIXME XXX
60 extern int empty_arg (tree_constant&);
61 58
62 tree_constant 59 tree_constant
63 matrix_exp (tree_constant& a) 60 matrix_exp (tree_constant& a)
64 { 61 {
65 tree_constant retval; 62 tree_constant retval;
77 4.8562548562548563e-6, 74 4.8562548562548563e-6,
78 1.3875013875013875e-7, 75 1.3875013875013875e-7,
79 1.9270852604185938e-9, 76 1.9270852604185938e-9,
80 }; 77 };
81 78
82 if (empty_arg (tmp)) 79 if (tmp.is_empty ())
83 { 80 {
84 int flag = user_pref.propagate_empty_matrices; 81 int flag = user_pref.propagate_empty_matrices;
85 if (flag != 0) 82 if (flag != 0)
86 { 83 {
87 if (flag < 0) 84 if (flag < 0)