ROOTQF Subroutine

subroutine ROOTQF(N, NFE, IFLAG, RELERR, ABSERR, Y, YP, YOLD, YPOLD, A, Q, R, DZ, Z, W, T, F0, F1)

Uses

  • proc~~rootqf~~UsesGraph proc~rootqf ROOTQF module~homotopy HOMOTOPY proc~rootqf->module~homotopy module~real_precision REAL_PRECISION proc~rootqf->module~real_precision module~homotopy->module~real_precision module~hompack90_global HOMPACK90_GLOBAL module~homotopy->module~hompack90_global module~hompack90_global->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) :: Q(N+1,N+1)
real(kind=R8) :: R((N+1)*(N+2)/2)
real(kind=R8) :: DZ(N+1)
real(kind=R8) :: Z(N+1)
real(kind=R8) :: W(N+1)
real(kind=R8) :: T(N+1)
real(kind=R8) :: F0(N+1)
real(kind=R8) :: F1(N+1)

Calls

proc~~rootqf~~CallsGraph proc~rootqf ROOTQF dgemv dgemv proc~rootqf->dgemv dtpsv dtpsv proc~rootqf->dtpsv interface~f F proc~rootqf->interface~f interface~rho RHO proc~rootqf->interface~rho none~dnrm2~22 DNRM2 proc~rootqf->none~dnrm2~22 root root proc~rootqf->root upqrqf upqrqf proc~rootqf->upqrqf

Variables

Type Visibility Attributes Name Initial
real(kind=R8), public :: QOFS
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 :: ETA
real(kind=R8), public :: ONE
real(kind=R8), public :: P0
real(kind=R8), public :: P1
real(kind=R8), public :: PP0
real(kind=R8), public :: PP1
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
real(kind=R8), public :: ZERO
integer, public :: ISTEP
integer, public :: I
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)


Source Code

        SUBROUTINE ROOTQF(N,NFE,IFLAG,RELERR,ABSERR,Y,YP,YOLD,
     &    YPOLD,A,Q,R,DZ,Z,W,T,F0,F1)
        USE REAL_PRECISION
        REAL (KIND=R8):: RELERR, ABSERR
        INTEGER:: N, NFE, IFLAG
        REAL (KIND=R8):: A(:), DZ(N+1), F0(N+1), F1(N+1), 
     &    Q(N+1,N+1), R((N+1)*(N+2)/2), T(N+1), W(N+1),
     &    Y(:), YOLD(N+1), YP(N+1), YPOLD(N+1), Z(N+1)
        END SUBROUTINE ROOTQF