Mercurial > octave-nkf

comparison src/DLD-FUNCTIONS/fft2.cc @ 5275:23b37da9fd5b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-04-08 16:07:35 by jwe]
author jwe
date Fri, 08 Apr 2005 16:07:37 +0000
parents 3dfdf6f36854
children 4c8a2e4e0717
comparison
equal deleted inserted replaced
5274:eae7b40388e9 5275:23b37da9fd5b
54 return retval; 54 return retval;
55 } 55 }
56 56
57 octave_value arg = args(0); 57 octave_value arg = args(0);
58 dim_vector dims = arg.dims (); 58 dim_vector dims = arg.dims ();
59 int n_rows = -1; 59 octave_idx_type n_rows = -1;
60 60
61 if (nargin > 1) 61 if (nargin > 1)
62 { 62 {
63 double dval = args(1).double_value (); 63 double dval = args(1).double_value ();
64 if (xisnan (dval)) 64 if (xisnan (dval))
65 error ("%s: NaN is invalid as the N_ROWS", fcn); 65 error ("%s: NaN is invalid as the N_ROWS", fcn);
66 else 66 else
67 { 67 {
68 n_rows = NINT (dval); 68 n_rows = NINTbig (dval);
69 if (n_rows < 0) 69 if (n_rows < 0)
70 error ("%s: number of rows must be greater than zero", fcn); 70 error ("%s: number of rows must be greater than zero", fcn);
71 } 71 }
72 } 72 }
73 73
74 if (error_state) 74 if (error_state)
75 return retval; 75 return retval;
76 76
77 int n_cols = -1; 77 octave_idx_type n_cols = -1;
78 if (nargin > 2) 78 if (nargin > 2)
79 { 79 {
80 double dval = args(2).double_value (); 80 double dval = args(2).double_value ();
81 if (xisnan (dval)) 81 if (xisnan (dval))
82 error ("%s: NaN is invalid as the N_COLS", fcn); 82 error ("%s: NaN is invalid as the N_COLS", fcn);
83 else 83 else
84 { 84 {
85 n_cols = NINT (dval); 85 n_cols = NINTbig (dval);
86 if (n_cols < 0) 86 if (n_cols < 0)
87 error ("%s: number of columns must be greater than zero", fcn); 87 error ("%s: number of columns must be greater than zero", fcn);
88 } 88 }
89 } 89 }
90 90