Mercurial > hg > octave-nkf

comparison liboctave/CollocWt.cc @ 10350:12884915a8e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge MArray classes & improve Array interface
author Jaroslav Hajek <highegg@gmail.com>
date Sat, 23 Jan 2010 21:41:03 +0100
parents 07ebe522dac2
children d909c4c14b63
comparison
equal deleted inserted replaced
10349:d4d13389c957 10350:12884915a8e4
100 return; 100 return;
101 } 101 }
102 else if (nt == 0) 102 else if (nt == 0)
103 return; 103 return;
104 104
105 Array<double> dif1 (nt); 105 Array<double> dif1 (nt, 1);
106 double *pdif1 = dif1.fortran_vec (); 106 double *pdif1 = dif1.fortran_vec ();
107 107
108 Array<double> dif2 (nt); 108 Array<double> dif2 (nt, 1);
109 double *pdif2 = dif2.fortran_vec (); 109 double *pdif2 = dif2.fortran_vec ();
110 110
111 Array<double> dif3 (nt); 111 Array<double> dif3 (nt, 1);
112 double *pdif3 = dif3.fortran_vec (); 112 double *pdif3 = dif3.fortran_vec ();
113 113
114 Array<double> vect (nt); 114 Array<double> vect (nt, 1);
115 double *pvect = vect.fortran_vec (); 115 double *pvect = vect.fortran_vec ();
116 116
117 r.resize (nt); 117 r.resize (nt, 1);
118 q.resize (nt); 118 q.resize (nt, 1);
119 A.resize (nt, nt); 119 A.resize (nt, nt);
120 B.resize (nt, nt); 120 B.resize (nt, nt);
121 121
122 double *pr = r.fortran_vec (); 122 double *pr = r.fortran_vec ();
123 123