Mercurial > octave-libgccjit

comparison libinterp/corefcn/__pchip_deriv__.cc @ 18605:c29b00276818

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Periodic merge of gui-release to default.
author Rik <rik@octave.org>
date Sun, 30 Mar 2014 13:02:08 -0700
parents b560bac0fca2 e7369c43ebe0
children
comparison
equal deleted inserted replaced
18602:8d4d78285c8e 18605:c29b00276818
93 const octave_idx_type incfd = rows ? nyr : 1; 93 const octave_idx_type incfd = rows ? nyr : 1;
94 const octave_idx_type inc = rows ? 1 : nyr; 94 const octave_idx_type inc = rows ? 1 : nyr;
95 95
96 for (octave_idx_type i = (rows ? nyr : nyc); i > 0; i--) 96 for (octave_idx_type i = (rows ? nyr : nyc); i > 0; i--)
97 { 97 {
98 F77_FUNC (pchim, PCHIM) (nx, xvec.data (), 98 F77_XFCN (pchim, PCHIM, (nx, xvec.data (),
99 yvec, dvec, incfd, &ierr); 99 yvec, dvec, incfd, &ierr));
100 100
101 yvec += inc; 101 yvec += inc;
102 dvec += inc; 102 dvec += inc;
103 103
104 if (ierr < 0) 104 if (ierr < 0)
140 const octave_idx_type incfd = rows ? nyr : 1; 140 const octave_idx_type incfd = rows ? nyr : 1;
141 const octave_idx_type inc = rows ? 1 : nyr; 141 const octave_idx_type inc = rows ? 1 : nyr;
142 142
143 for (octave_idx_type i = (rows ? nyr : nyc); i > 0; i--) 143 for (octave_idx_type i = (rows ? nyr : nyc); i > 0; i--)
144 { 144 {
145 F77_FUNC (dpchim, DPCHIM) (nx, xvec.data (), 145 F77_XFCN (dpchim, DPCHIM, (nx, xvec.data (),
146 yvec, dvec, incfd, &ierr); 146 yvec, dvec, incfd, &ierr));
147 147
148 yvec += inc; 148 yvec += inc;
149 dvec += inc; 149 dvec += inc;
150 150
151 if (ierr < 0) 151 if (ierr < 0)