Mercurial > octave-nkf

comparison liboctave/fCmplxGEPBAL.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
56 F77_CHAR_ARG_LEN_DECL); 56 F77_CHAR_ARG_LEN_DECL);
57 57
58 } 58 }
59 59
60 octave_idx_type 60 octave_idx_type
61 FloatComplexGEPBALANCE::init (const FloatComplexMatrix& a, const FloatComplexMatrix& b, 61 FloatComplexGEPBALANCE::init (const FloatComplexMatrix& a, const FloatComplexMatrix& b,
62 const std::string& balance_job) 62 const std::string& balance_job)
63 { 63 {
64 octave_idx_type n = a.cols (); 64 octave_idx_type n = a.cols ();
65 65
66 if (a.rows () != n) 66 if (a.rows () != n)
71 71
72 if (a.dims() != b.dims ()) 72 if (a.dims() != b.dims ())
73 { 73 {
74 gripe_nonconformant ("FloatComplexGEPBALANCE", n, n, b.rows(), b.cols()); 74 gripe_nonconformant ("FloatComplexGEPBALANCE", n, n, b.rows(), b.cols());
75 return -1; 75 return -1;
76 } 76 }
77 77
78 octave_idx_type info; 78 octave_idx_type info;
79 octave_idx_type ilo; 79 octave_idx_type ilo;
80 octave_idx_type ihi; 80 octave_idx_type ihi;
81 81
112 F77_CONST_CHAR_ARG2 ("L", 1), 112 F77_CONST_CHAR_ARG2 ("L", 1),
113 n, ilo, ihi, plscale, prscale, 113 n, ilo, ihi, plscale, prscale,
114 n, p_balancing_mat, n, info 114 n, p_balancing_mat, n, info
115 F77_CHAR_ARG_LEN (1) 115 F77_CHAR_ARG_LEN (1)
116 F77_CHAR_ARG_LEN (1))); 116 F77_CHAR_ARG_LEN (1)));
117 117
118 // then right 118 // then right
119 F77_XFCN (sggbak, SGGBAK, (F77_CONST_CHAR_ARG2 (&job, 1), 119 F77_XFCN (sggbak, SGGBAK, (F77_CONST_CHAR_ARG2 (&job, 1),
120 F77_CONST_CHAR_ARG2 ("R", 1), 120 F77_CONST_CHAR_ARG2 ("R", 1),
121 n, ilo, ihi, plscale, prscale, 121 n, ilo, ihi, plscale, prscale,
122 n, p_balancing_mat2, n, info 122 n, p_balancing_mat2, n, info