Mercurial > octave
view liboctave/external/lapack-xtra/xilaenv.f @ 31225:3eab70385569
sparse-xpow.cc: Use faster multiplication technique, this time for complex
author | Arun Giridhar <arungiridhar@gmail.com> |
---|---|
date | Sun, 11 Sep 2022 13:53:38 -0400 |
parents | f4d4d83f15c5 |
children |
line wrap: on
line source
subroutine xilaenv (ispec, name, opts, n1, n2, n3, n4, retval) character*(*) name, opts integer ilaenv, ispec, n1, n2, n3, n4, retval retval = ilaenv (ispec, name, opts, n1, n2, n3, n4) return end