Mercurial > hg > octave-lyh

comparison liboctave/fCMatrix.cc @ 10124:e5c6600e3400

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use octave_idx_type where needed
author Jaroslav Hajek <highegg@gmail.com>
date Sun, 17 Jan 2010 15:13:53 +0100
parents 018d92ad0730
children 829e69ec3110
comparison
equal deleted inserted replaced
10123:8590f3c51868 10124:e5c6600e3400
3779 F77_CONST_CHAR_ARG2 (ctra, 1), 3779 F77_CONST_CHAR_ARG2 (ctra, 1),
3780 a_nr, a_nc, 1.0, 3780 a_nr, a_nc, 1.0,
3781 a.data (), lda, 0.0, c, a_nr 3781 a.data (), lda, 0.0, c, a_nr
3782 F77_CHAR_ARG_LEN (1) 3782 F77_CHAR_ARG_LEN (1)
3783 F77_CHAR_ARG_LEN (1))); 3783 F77_CHAR_ARG_LEN (1)));
3784 for (int j = 0; j < a_nr; j++) 3784 for (octave_idx_type j = 0; j < a_nr; j++)
3785 for (int i = 0; i < j; i++) 3785 for (octave_idx_type i = 0; i < j; i++)
3786 retval.xelem (j,i) = std::conj (retval.xelem (i,j)); 3786 retval.xelem (j,i) = std::conj (retval.xelem (i,j));
3787 } 3787 }
3788 else 3788 else
3789 { 3789 {
3790 F77_XFCN (csyrk, CSYRK, (F77_CONST_CHAR_ARG2 ("U", 1), 3790 F77_XFCN (csyrk, CSYRK, (F77_CONST_CHAR_ARG2 ("U", 1),
3791 F77_CONST_CHAR_ARG2 (ctra, 1), 3791 F77_CONST_CHAR_ARG2 (ctra, 1),
3792 a_nr, a_nc, 1.0, 3792 a_nr, a_nc, 1.0,
3793 a.data (), lda, 0.0, c, a_nr 3793 a.data (), lda, 0.0, c, a_nr
3794 F77_CHAR_ARG_LEN (1) 3794 F77_CHAR_ARG_LEN (1)
3795 F77_CHAR_ARG_LEN (1))); 3795 F77_CHAR_ARG_LEN (1)));
3796 for (int j = 0; j < a_nr; j++) 3796 for (octave_idx_type j = 0; j < a_nr; j++)
3797 for (int i = 0; i < j; i++) 3797 for (octave_idx_type i = 0; i < j; i++)
3798 retval.xelem (j,i) = retval.xelem (i,j); 3798 retval.xelem (j,i) = retval.xelem (i,j);
3799 3799
3800 } 3800 }
3801 3801
3802 } 3802 }