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 |