Mercurial > octave-nkf

comparison src/DLD-FUNCTIONS/besselj.cc @ 4153:6b96ce9f5743

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-11-06 20:38:49 by jwe]
author jwe
date Wed, 06 Nov 2002 20:38:50 +0000
parents f19f00339363
children 9f7ef92b50b0
comparison
equal deleted inserted replaced
4152:f14251d33b01 4153:6b96ce9f5743
23 #ifdef HAVE_CONFIG_H 23 #ifdef HAVE_CONFIG_H
24 #include <config.h> 24 #include <config.h>
25 #endif 25 #endif
26 26
27 #include "lo-specfun.h" 27 #include "lo-specfun.h"
28 #include "quit.h"
28 29
29 #include "defun-dld.h" 30 #include "defun-dld.h"
30 #include "error.h" 31 #include "error.h"
31 #include "gripes.h" 32 #include "gripes.h"
32 #include "oct-obj.h" 33 #include "oct-obj.h"
85 86
86 Matrix retval (nr, nc); 87 Matrix retval (nr, nc);
87 88
88 for (int j = 0; j < nc; j++) 89 for (int j = 0; j < nc; j++)
89 for (int i = 0; i < nr; i++) 90 for (int i = 0; i < nr; i++)
90 retval(i,j) = (double) (a(i,j)); 91 {
92 OCTAVE_QUIT;
93
94 retval(i,j) = (double) (a(i,j));
95 }
91 96
92 return retval; 97 return retval;
93 } 98 }
94 99
95 static void 100 static void