rnrms Subroutine

subroutine rnrms(nrow, nrm, a, ja, ia, diag)

Arguments

Type IntentOptional Attributes Name
integer :: nrow
integer :: nrm
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(nrow+1)
real(kind=8) :: diag(nrow)

Variables

Type Visibility Attributes Name Initial
real(kind=8), public :: scal