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)
96 if(err_act .eq. qrm_abort_)
then
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)
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 dqrm_vecnrm2d(vec, n, ntype, nrm)
This subroutine computes the norm of multiple vectors.
subroutine qrm_err_check()
This subroutine checks the errors stack. If something is found all the entries in the stack are poppe...
subroutine dqrm_vecnrm1d(vec, n, ntype, nrm)
This subroutine computes the norm of a vector.
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.