Mercurial > octave-nkf

comparison liboctave/dbleGEPBAL.cc @ 11586:12df7854fa7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strip trailing whitespace from source files
author John W. Eaton <jwe@octave.org>
date Thu, 20 Jan 2011 17:24:59 -0500
parents fd0a3ac60b0e
children 72c96de7a403
comparison
equal deleted inserted replaced
11585:1473d0cf86d2 11586:12df7854fa7c
57 F77_CHAR_ARG_LEN_DECL); 57 F77_CHAR_ARG_LEN_DECL);
58 58
59 } 59 }
60 60
61 octave_idx_type 61 octave_idx_type
62 GEPBALANCE::init (const Matrix& a, const Matrix& b, 62 GEPBALANCE::init (const Matrix& a, const Matrix& b,
63 const std::string& balance_job) 63 const std::string& balance_job)
64 { 64 {
65 octave_idx_type n = a.cols (); 65 octave_idx_type n = a.cols ();
66 66
67 if (a.rows () != n) 67 if (a.rows () != n)
72 72
73 if (a.dims() != b.dims ()) 73 if (a.dims() != b.dims ())
74 { 74 {
75 gripe_nonconformant ("GEPBALANCE", n, n, b.rows(), b.cols()); 75 gripe_nonconformant ("GEPBALANCE", n, n, b.rows(), b.cols());
76 return -1; 76 return -1;
77 } 77 }
78 78
79 octave_idx_type info; 79 octave_idx_type info;
80 octave_idx_type ilo; 80 octave_idx_type ilo;
81 octave_idx_type ihi; 81 octave_idx_type ihi;
82 82
113 F77_CONST_CHAR_ARG2 ("L", 1), 113 F77_CONST_CHAR_ARG2 ("L", 1),
114 n, ilo, ihi, plscale, prscale, 114 n, ilo, ihi, plscale, prscale,
115 n, p_balancing_mat, n, info 115 n, p_balancing_mat, n, info
116 F77_CHAR_ARG_LEN (1) 116 F77_CHAR_ARG_LEN (1)
117 F77_CHAR_ARG_LEN (1))); 117 F77_CHAR_ARG_LEN (1)));
118 118
119 // then right 119 // then right
120 F77_XFCN (dggbak, DGGBAK, (F77_CONST_CHAR_ARG2 (&job, 1), 120 F77_XFCN (dggbak, DGGBAK, (F77_CONST_CHAR_ARG2 (&job, 1),
121 F77_CONST_CHAR_ARG2 ("R", 1), 121 F77_CONST_CHAR_ARG2 ("R", 1),
122 n, ilo, ihi, plscale, prscale, 122 n, ilo, ihi, plscale, prscale,
123 n, p_balancing_mat2, n, info 123 n, p_balancing_mat2, n, info