35 #include "qrm_common.h" 56 real(kind(1.d0)),
intent(in) :: vec(:,:)
57 real(kind(1.d0)) :: nrm(:)
58 integer,
intent(in) :: n
62 real(kind(1.d0)) :: dnrm2
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) = dnrm2(n, vec(1,j), 1)
124 real(kind(1.d0)),
intent(in) :: vec(:)
125 real(kind(1.d0)) :: nrm
126 integer,
intent(in) :: n
130 real(kind(1.d0)) :: dnrm2
134 character(len=*),
parameter :: name=
'qrm_vecnrm' 141 nrm = maxval(abs(vec))
145 nrm = nrm + abs(vec(i))
148 nrm = dnrm2(n, vec, 1)
subroutine qrm_err_push(code, sub, ied, aed)
This subroutine pushes an error on top of the stack.
subroutine dqrm_vecnrm2d(vec, n, ntype, nrm)
This subroutine computes the norm of multiple vectors.
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 dqrm_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...
This module contains various string handling routines.
subroutine qrm_err_act_restore(err_act)
Restores the value of the qrm_err_act variable.