ROOTNF Subroutine

subroutine ROOTNF(N, NFE, IFLAG, RELERR, ABSERR, Y, YP, YOLD, YPOLD, A, QR, ALPHA, TZ, PIVOT, W, WP)

Uses

  • proc~~rootnf~~UsesGraph proc~rootnf ROOTNF module~real_precision REAL_PRECISION proc~rootnf->module~real_precision

Arguments

Type IntentOptional Attributes Name
integer :: N
integer :: NFE
integer :: IFLAG
real(kind=R8) :: RELERR
real(kind=R8) :: ABSERR
real(kind=R8) :: Y(:)
real(kind=R8) :: YP(N+1)
real(kind=R8) :: YOLD(N+1)
real(kind=R8) :: YPOLD(N+1)
real(kind=R8) :: A(:)
real(kind=R8) :: QR(N,N+2)
real(kind=R8) :: ALPHA(3*N+3)
real(kind=R8) :: TZ(N+1)
integer :: PIVOT(N+1)
real(kind=R8) :: W(N+1)
real(kind=R8) :: WP(N+1)

Calls

proc~~rootnf~~CallsGraph proc~rootnf ROOTNF none~dnrm2~17 DNRM2 proc~rootnf->none~dnrm2~17 none~tangnf TANGNF proc~rootnf->none~tangnf root root proc~rootnf->root

Variables

Type Visibility Attributes Name Initial
real(kind=R8), public :: AERR
real(kind=R8), public :: DD001
real(kind=R8), public :: DD0011
real(kind=R8), public :: DD01
real(kind=R8), public :: DD011
real(kind=R8), public :: DELS
real(kind=R8), public :: F0
real(kind=R8), public :: F1
real(kind=R8), public :: FP0
real(kind=R8), public :: FP1
real(kind=R8), public :: QOFS
real(kind=R8), public :: QSOUT
real(kind=R8), public :: RERR
real(kind=R8), public :: S
real(kind=R8), public :: SA
real(kind=R8), public :: SB
real(kind=R8), public :: SOUT
real(kind=R8), public :: U
integer, public :: JUDY
integer, public :: JW
integer, public :: LCODE
integer, public :: LIMIT
integer, public :: NP1
logical, public :: BRACK

Interfaces

interface

  • function DNRM2(N, X, STRIDE)

    Arguments

    Type IntentOptional Attributes Name
    integer :: N
    real(kind=R8) :: X(N)
    integer :: STRIDE

    Return Value real(kind=R8)

interface

  • subroutine TANGNF(RHOLEN, Y, YP, YPOLD, A, QR, ALPHA, TZ, PIVOT, NFE, N, IFLAG)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=R8) :: RHOLEN
    real(kind=R8) :: Y(:)
    real(kind=R8) :: YP(N+1)
    real(kind=R8) :: YPOLD(N+1)
    real(kind=R8) :: A(:)
    real(kind=R8) :: QR(N,N+2)
    real(kind=R8) :: ALPHA(3*N+3)
    real(kind=R8) :: TZ(N+1)
    integer :: PIVOT(N+1)
    integer :: NFE
    integer :: N
    integer :: IFLAG

Source Code

        SUBROUTINE ROOTNF(N,NFE,IFLAG,RELERR,ABSERR,Y,YP,YOLD,
     &    YPOLD,A,QR,ALPHA,TZ,PIVOT,W,WP)
        USE REAL_PRECISION
        REAL (KIND=R8):: ABSERR,RELERR
        INTEGER:: IFLAG,N,NFE
        REAL (KIND=R8):: A(:),ALPHA(3*N+3),QR(N,N+2),TZ(N+1),W(N+1),
     &    WP(N+1),Y(:),YOLD(N+1),YP(N+1),YPOLD(N+1)
        INTEGER:: PIVOT(N+1)
        END SUBROUTINE ROOTNF