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)
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)
subroutine qrm_err_push(code, sub, ied, aed)
This subroutine pushes an error on top of the stack.
subroutine _qrm_vecnrm1d(vec, n, ntype, nrm)
This subroutine computes the norm of a vector.
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.
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...
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_act_restore(err_act)
Restores the value of the qrm_err_act variable.