dewset Subroutine

public subroutine dewset(N, Itol, Rtol, Atol, Ycur, Ewt)

NAME

dewset(3f) - [M_odepack] Set error weight vector.

SYNOPSIS

    subroutine dewset(N,Itol,Rtol,Atol,Ycur,Ewt)
    integer,intent(in)        :: N
    integer,intent(in)        :: Itol
    real(kind=dp),intent(in)  :: Rtol(*)
    real(kind=dp),intent(in)  :: Atol(*)
    real(kind=dp),intent(in)  :: Ycur(N)
    real(kind=dp),intent(out) :: Ewt(N)

DESCRIPTION

This subroutine sets the error weight vector EWT according to

   EWT(i) = RTOL(i)*ABS(YCUR(i)) + ATOL(i),  i = 1,...,N,

with the subscript on RTOL and/or ATOL possibly replaced by 1 above, depending on the value of ITOL.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: N
integer, intent(in) :: Itol
real(kind=dp), intent(in) :: Rtol(*)
real(kind=dp), intent(in) :: Atol(*)
real(kind=dp), intent(in) :: Ycur(N)
real(kind=dp), intent(out) :: Ewt(N)

Called by

proc~~dewset~2~~CalledByGraph proc~dewset~2 M_odepack::dewset proc~dlsodar~2 M_odepack::dlsodar proc~dlsodar~2->proc~dewset~2 proc~dlsoda~2 M_odepack::dlsoda proc~dlsoda~2->proc~dewset~2 proc~dlsodes~2 M_odepack::dlsodes proc~dlsodes~2->proc~dewset~2 proc~dlsode~2 M_odepack::dlsode proc~dlsode~2->proc~dewset~2 proc~dlsodis~2 M_odepack::dlsodis proc~dlsodis~2->proc~dewset~2 proc~dlsodi~2 M_odepack::dlsodi proc~dlsodi~2->proc~dewset~2 proc~dlsodkr~2 M_odepack::dlsodkr proc~dlsodkr~2->proc~dewset~2 proc~dlsodpk~2 M_odepack::dlsodpk proc~dlsodpk~2->proc~dewset~2 proc~dlsoibt~2 M_odepack::dlsoibt proc~dlsoibt~2->proc~dewset~2