ROOTNS Subroutine

subroutine ROOTNS(N, NFE, IFLAG, RELERR, ABSERR, Y, YP, YOLD, YPOLD, A, MODE, LENQR)

Uses

  • proc~~rootns~~UsesGraph proc~rootns ROOTNS module~real_precision REAL_PRECISION proc~rootns->module~real_precision

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: N
integer, intent(inout) :: NFE
integer, intent(inout) :: IFLAG
real(kind=R8), intent(in) :: RELERR
real(kind=R8), intent(in) :: ABSERR
real(kind=R8), intent(inout), DIMENSION(:) :: Y
real(kind=R8), intent(inout), DIMENSION(:) :: YP
real(kind=R8), intent(inout), DIMENSION(:) :: YOLD
real(kind=R8), intent(inout), DIMENSION(:) :: YPOLD
real(kind=R8), intent(in) :: A(:)
integer, intent(in) :: MODE
integer, intent(in) :: LENQR

Calls

proc~~rootns~~CallsGraph proc~rootns ROOTNS none~dnrm2~19 DNRM2 proc~rootns->none~dnrm2~19 none~tangns TANGNS proc~rootns->none~tangns root root proc~rootns->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 :: NP1
logical, public :: BRACK
real(kind=R8), public :: TZ(N+1)
real(kind=R8), public :: W(N+1)
real(kind=R8), public :: WP(N+1)
integer, public, parameter :: LIMIT = 20

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 TANGNS(RHOLEN, Y, YP, TZ, YPOLD, A, MODE, LENQR, NFE, N, IFLAG)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=R8), intent(inout) :: RHOLEN
    real(kind=R8), intent(in), DIMENSION(:) :: Y
    real(kind=R8), intent(out), DIMENSION(:) :: YP
    real(kind=R8), intent(out), DIMENSION(:) :: TZ
    real(kind=R8), intent(in), DIMENSION(:) :: YPOLD
    real(kind=R8), intent(in), DIMENSION(:) :: A
    integer, intent(in) :: MODE
    integer, intent(in) :: LENQR
    integer, intent(inout) :: NFE
    integer, intent(in) :: N
    integer, intent(inout) :: IFLAG

Source Code

        SUBROUTINE ROOTNS(NC,NFEC,IFLAGC,ANSRE,ANSAE,Y,YP,YOLD,YPOLD,
     &     A,MODE,LENQR)
        USE HOMOTOPY, QR => QRSPARSE
        USE REAL_PRECISION
        INTEGER, INTENT(IN):: LENQR,MODE,NC
        INTEGER, INTENT(IN OUT):: IFLAGC,NFEC
        REAL (KIND=R8), INTENT(IN):: A(:)
        REAL (KIND=R8), INTENT(IN):: ANSAE,ANSRE
        REAL (KIND=R8), DIMENSION(:), INTENT(IN OUT):: Y,YOLD,YP,YPOLD
        END SUBROUTINE ROOTNS