| Procedure | Location | Procedure Type | Description |
|---|---|---|---|
| elementcopy | m_la | Interface | |
| linspace | m_la | Interface | |
| mat_flop | m_la | Function | !GFORTRAN BUG in 8.3 !real,save :: mas(2,14)=reshape([ & ! & real(Z’ffffffff’,kind=kind(0.0)),real(Z’fff0ffff’,kind=kind(0.0)), & ! & real(Z’ffffffff’,kind=kind(0.0)),real(Z’ff00ffff’,kind=kind(0.0)), & ! & real(Z’ffffffff’,kind=kind(0.0)),real(Z’f000ffff’,kind=kind(0.0)), & ! & real(Z’ffffffff’,kind=kind(0.0)),real(Z‘0000ffff’,kind=kind(0.0)), & ! & real(Z’ffffffff’,kind=kind(0.0)),real(Z‘0000fff0’,kind=kind(0.0)), & ! & real(Z’ffffffff’,kind=kind(0.0)),real(Z‘0000ff00’,kind=kind(0.0)), & ! & real(Z’ffffffff’,kind=kind(0.0)),real(Z‘0000f000’,kind=kind(0.0)), & ! & real(Z’ffffffff’,kind=kind(0.0)),real(Z‘00000000’,kind=kind(0.0)), & ! & real(Z’fff0ffff’,kind=kind(0.0)),real(Z‘00000000’,kind=kind(0.0)), & ! & real(Z’ff00ffff’,kind=kind(0.0)),real(Z‘00000000’,kind=kind(0.0)), & ! & real(Z’f000ffff’,kind=kind(0.0)),real(Z‘00000000’,kind=kind(0.0)), & ! & real(Z‘0000ffff’,kind=kind(0.0)),real(Z‘00000000’,kind=kind(0.0)), & ! & real(Z‘0000fff0’,kind=kind(0.0)),real(Z‘00000000’,kind=kind(0.0)), & ! & real(Z‘0000ff80’,kind=kind(0.0)),real(Z‘00000000’,kind=kind(0.0))],shape(mas)) |
| mat_inverse_hilbert | m_la | Subroutine | |
| mat_iwamax | m_la | Function | |
| mat_magic | m_la | Subroutine | mat_magic(3f) - [M_LA] create an N x N magic square array, N>2 |
| mat_pythag | m_la | Function | |
| mat_rat | m_la | Subroutine | |
| mat_round | m_la | Function | |
| mat_rref | m_la | Subroutine | |
| mat_rrot | m_la | Subroutine | |
| mat_rrotg | m_la | Subroutine | |
| mat_rset | m_la | Subroutine | |
| mat_rswap | m_la | Subroutine | |
| mat_urand | m_la | Function | |
| mat_wasum | m_la | Function | |
| mat_watan | m_la | Subroutine | |
| mat_wcopy | m_la | Subroutine | |
| mat_wdiv | m_la | Subroutine | |
| mat_wdotci | m_la | Function | |
| mat_wdotcr | m_la | Function | |
| mat_wdotui | m_la | Function | |
| mat_wdotur | m_la | Function | |
| mat_wlog | m_la | Subroutine | |
| mat_wmul | m_la | Subroutine | |
| mat_wnrm2 | m_la | Function | |
| mat_wpofa | m_la | Subroutine | |
| mat_wpow | m_la | Subroutine | |
| mat_wrscal | m_la | Subroutine | |
| mat_wscal | m_la | Subroutine | |
| mat_wset | m_la | Subroutine | |
| mat_wsign | m_la | Subroutine | |
| mat_wsqrt | m_la | Subroutine | |
| mat_wswap | m_la | Subroutine | |
| matx_waxpy | M_LA.f90 | Subroutine | |
| ml_comqr3 | M_LA.f90 | Subroutine | DETERMINED AFTER A TOTAL OF 30*N ITERATIONS. |
| ml_corth | M_LA.f90 | Subroutine | |
| ml_htribk | M_LA.f90 | Subroutine | |
| ml_htridi | M_LA.f90 | Subroutine | |
| ml_imtql2 | M_LA.f90 | Subroutine | |
| ml_wgeco | M_LA.f90 | Subroutine | |
| ml_wgedi | M_LA.f90 | Subroutine | |
| ml_wgefa | M_LA.f90 | Subroutine | |
| ml_wgesl | M_LA.f90 | Subroutine | |
| ml_wqrdc | M_LA.f90 | Subroutine | |
| ml_wqrsl | M_LA.f90 | Subroutine | |
| ml_wsvdc | M_LA.f90 | Subroutine |