35 #include "qrm_common.h" 55 real(kind(1.d0)) :: nrm
58 real(kind(1.d0)),
allocatable :: tmp(:)
60 real(kind(1.d0)) :: dnrm2
64 character(len=*),
parameter :: name=
'qrm_matnrm' 69 call qrm_aalloc(tmp, qrm_mat%m)
70 __qrm_check_ret(name,
'qrm_aalloc',9999)
74 tmp(r) = tmp(r)+abs(qrm_mat%val(i))
78 call qrm_aalloc(tmp, qrm_mat%n)
79 __qrm_check_ret(name,
'qrm_aalloc',9999)
83 tmp(c) = tmp(c)+abs(qrm_mat%val(i))
87 nrm = dnrm2(qrm_mat%nz, qrm_mat%val, 1)
93 call qrm_adealloc(tmp)
94 __qrm_check_ret(name,
'qrm_adealloc',9999)
subroutine qrm_err_push(code, sub, ied, aed)
This subroutine pushes an error on top of the stack.
subroutine qrm_err_act_save(err_act)
Saves a copy of the qrm_err_act variable.
This module contains all the error management routines and data.
This module contains the definition of the basic sparse matrix type and of the associated methods...
integer, parameter qrm_abort_
Possible actions to be performed upon detection of an error.
subroutine qrm_err_check()
This subroutine checks the errors stack. If something is found all the entries in the stack are poppe...
This type defines the data structure used to store a matrix.
This module contains various string handling routines.
subroutine dqrm_matnrm(qrm_mat, ntype, nrm)
This subroutine computes the matrix norm. The return value is a real scalar.
subroutine qrm_err_act_restore(err_act)
Restores the value of the qrm_err_act variable.