35 #include "qrm_common.h"
58 _qrm_real,
allocatable :: tmp(:)
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 = _rxnrm2(qrm_mat%nz, qrm_mat%val, 1)
93 call qrm_adealloc(tmp)
94 __qrm_check_ret(name,
'qrm_adealloc',9999)
101 if(err_act .eq. qrm_abort_)
then
This module contains all the error management routines and data.
subroutine qrm_err_act_restore(err_act)
Restores the value of the qrm_err_act variable.
subroutine qrm_err_check()
This subroutine checks the errors stack. If something is found all the entries in the stack are poppe...
subroutine _qrm_matnrm(qrm_mat, ntype, nrm)
This subroutine computes the matrix norm. The return value is a real scalar.
This type defines the data structure used to store a matrix.
This module contains the definition of the basic sparse matrix type and of the associated methods...
This module contains various string handling routines.
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.