Mercurial > hg > octave-lyh

comparison liboctave/dMatrix.cc @ 7478:d7c5b101bb0f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ilaenv --> xilaenv
author John W. Eaton <jwe@octave.org>
date Tue, 12 Feb 2008 23:45:20 -0500
parents 8b22207ef9ca
children 29980c6b8604
comparison
equal deleted inserted replaced
7477:8b22207ef9ca 7478:d7c5b101bb0f
57 57
58 // Fortran functions we call. 58 // Fortran functions we call.
59 59
60 extern "C" 60 extern "C"
61 { 61 {
62 octave_idx_type 62 F77_RET_T
63 F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, 63 F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL,
64 F77_CONST_CHAR_ARG_DECL, 64 F77_CONST_CHAR_ARG_DECL,
65 const octave_idx_type&, const octave_idx_type&, 65 const octave_idx_type&, const octave_idx_type&,
66 const octave_idx_type&, const octave_idx_type& 66 const octave_idx_type&, const octave_idx_type&,
67 F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL, 67 octave_idx_type&
68 octave_idx_type&); 68 F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL);
69 69
70 F77_RET_T 70 F77_RET_T
71 F77_FUNC (dgebal, DGEBAL) (F77_CONST_CHAR_ARG_DECL, 71 F77_FUNC (dgebal, DGEBAL) (F77_CONST_CHAR_ARG_DECL,
72 const octave_idx_type&, double*, const octave_idx_type&, octave_idx_type&, 72 const octave_idx_type&, double*, const octave_idx_type&, octave_idx_type&,
73 octave_idx_type&, double*, octave_idx_type& 73 octave_idx_type&, double*, octave_idx_type&
2112 Array<double> work (1); 2112 Array<double> work (1);
2113 2113
2114 octave_idx_type smlsiz; 2114 octave_idx_type smlsiz;
2115 F77_FUNC (xilaenv, XILAENV) (9, F77_CONST_CHAR_ARG2 ("DGELSD", 6), 2115 F77_FUNC (xilaenv, XILAENV) (9, F77_CONST_CHAR_ARG2 ("DGELSD", 6),
2116 F77_CONST_CHAR_ARG2 (" ", 1), 2116 F77_CONST_CHAR_ARG2 (" ", 1),
2117 0, 0, 0, 0 2117 0, 0, 0, 0, smlsiz
2118 F77_CHAR_ARG_LEN (6) 2118 F77_CHAR_ARG_LEN (6)
2119 F77_CHAR_ARG_LEN (1), smlsiz); 2119 F77_CHAR_ARG_LEN (1));
2120 2120
2121 // We compute the size of iwork because DGELSD in older versions 2121 // We compute the size of iwork because DGELSD in older versions
2122 // of LAPACK does not return it on a query call. 2122 // of LAPACK does not return it on a query call.
2123 double dminmn = static_cast<double> (minmn); 2123 double dminmn = static_cast<double> (minmn);
2124 double dsmlsizp1 = static_cast<double> (smlsiz+1); 2124 double dsmlsizp1 = static_cast<double> (smlsiz+1);