Mercurial > octave-nkf

comparison liboctave/lo-specfun.cc @ 7914:e998e81224b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Various compilation fixes for MSVC.
author John W. Eaton <jwe@octave.org>
date Thu, 10 Jul 2008 08:59:18 -0400
parents 82be108cc558
children ab0674a8b345
comparison
equal deleted inserted replaced
7913:f46e73bcb85b 7914:e998e81224b5
222 F77_XFCN (xdatanh, XDATANH, (x, retval)); 222 F77_XFCN (xdatanh, XDATANH, (x, retval));
223 return retval; 223 return retval;
224 } 224 }
225 #endif 225 #endif
226 226
227 #if !defined (HAVE_ATANHF)
228 float
229 atanhf (float x)
230 {
231 float retval;
232 F77_XFCN (xatanh, XATANH, (x, retval));
233 return retval;
234 }
235 #endif
236
227 #if !defined (HAVE_ERF) 237 #if !defined (HAVE_ERF)
228 double 238 double
229 erf (double x) 239 erf (double x)
230 { 240 {
231 double retval; 241 double retval;
234 } 244 }
235 #endif 245 #endif
236 246
237 #if !defined (HAVE_ERFF) 247 #if !defined (HAVE_ERFF)
238 float 248 float
239 erf (float x) 249 erff (float x)
240 { 250 {
241 float retval; 251 float retval;
242 F77_XFCN (xerf, XERF, (x, retval)); 252 F77_XFCN (xerf, XERF, (x, retval));
243 return retval; 253 return retval;
244 } 254 }
254 } 264 }
255 #endif 265 #endif
256 266
257 #if !defined (HAVE_ERFCF) 267 #if !defined (HAVE_ERFCF)
258 float 268 float
259 erfc (float x) 269 erfcf (float x)
260 { 270 {
261 float retval; 271 float retval;
262 F77_XFCN (xerfc, XERFC, (x, retval)); 272 F77_XFCN (xerfc, XERFC, (x, retval));
263 return retval; 273 return retval;
264 } 274 }