35 #include "qrm_common.h"
56 _qrm_data,
intent(in) :: vec(:,:)
58 integer,
intent(in) :: n
66 character(len=*),
parameter :: name=
'qrm_vecnrm'
74 nrm(j) = maxval(abs(vec(:,j)))
80 nrm(j) = nrm(j) + abs(vec(
i,j))
85 nrm(j) = _rxnrm2(n, vec(1,j), 1)
96 if(err_act .eq. qrm_abort_)
then
124 _qrm_data,
intent(in) :: vec(:)
126 integer,
intent(in) :: n
134 character(len=*),
parameter :: name=
'qrm_vecnrm'
141 nrm = maxval(abs(vec))
145 nrm = nrm + abs(vec(
i))
148 nrm = _rxnrm2(n, vec, 1)
158 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_vecnrm1d(vec, n, ntype, nrm)
This subroutine computes the norm of a vector.
subroutine qrm_err_check()
This subroutine checks the errors stack. If something is found all the entries in the stack are poppe...
subroutine _qrm_vecnrm2d(vec, n, ntype, nrm)
This subroutine computes the norm of multiple vectors.
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.