Procedures

ProcedureLocationProcedure TypeDescription
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))

Read more…
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

Read more…
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.

Read more…
ml_corth M_LA.f90 Subroutine
ml_htribk M_LA.f90 Subroutine
ml_htridi M_LA.f90 Subroutine
ml_imtql2 M_LA.f90 Subroutine Read more…
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