Mercurial > octave

comparison liboctave/cruft/lapack-xtra/crsf2csf.f @ 23084:ef4d915df748

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Merge stable to default.
author John W. Eaton <jwe@octave.org>
date Mon, 23 Jan 2017 14:27:48 -0500
parents 0dcff7695e26 e9a0469dedd9
children 092078913d54
comparison
equal deleted inserted replaced
23081:7485462a6924 23084:ef4d915df748
92 t = x(i)*c + y(i)*cmplx(0,s) 92 t = x(i)*c + y(i)*cmplx(0,s)
93 y(i) = y(i)*c + x(i)*cmplx(0,s) 93 y(i) = y(i)*c + x(i)*cmplx(0,s)
94 x(i) = t 94 x(i) = t
95 end do 95 end do
96 end subroutine 96 end subroutine
97
98
99
100
101