STEPQF Subroutine

subroutine STEPQF(N, NFE, IFLAG, START, CRASH, HOLD, H, WK, RELERR, ABSERR, S, Y, YP, YOLD, YPOLD, A, Q, R, F0, F1, Z0, DZ, W, T, SSPAR)

Uses

  • proc~~stepqf~~UsesGraph proc~stepqf STEPQF module~homotopy HOMOTOPY proc~stepqf->module~homotopy module~real_precision REAL_PRECISION proc~stepqf->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
logical :: START
logical :: CRASH
real(kind=R8) :: HOLD
real(kind=R8) :: H
real(kind=R8) :: WK
real(kind=R8) :: RELERR
real(kind=R8) :: ABSERR
real(kind=R8) :: S
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) :: F0(N+1)
real(kind=R8) :: F1(N+1)
real(kind=R8) :: Z0(N+1)
real(kind=R8) :: DZ(N+1)
real(kind=R8) :: W(N+1)
real(kind=R8) :: T(N+1)
real(kind=R8) :: SSPAR(4)

Calls

proc~~stepqf~~CallsGraph proc~stepqf STEPQF dgemv dgemv proc~stepqf->dgemv dgeqrf dgeqrf proc~stepqf->dgeqrf dorgqr dorgqr proc~stepqf->dorgqr dtpsv dtpsv proc~stepqf->dtpsv interface~f F proc~stepqf->interface~f interface~fjac FJAC proc~stepqf->interface~fjac interface~rho RHO proc~stepqf->interface~rho interface~rhojac RHOJAC proc~stepqf->interface~rhojac none~dnrm2~29 DNRM2 proc~stepqf->none~dnrm2~29 none~tangqf TANGQF proc~stepqf->none~tangqf upqrqf upqrqf proc~stepqf->upqrqf

Variables

Type Visibility Attributes Name Initial
real(kind=R8), public :: DD001
real(kind=R8), public :: DD0011
real(kind=R8), public :: DD01
real(kind=R8), public :: DD011
real(kind=R8), public :: QOFS
real(kind=R8), public :: ALPHA
real(kind=R8), public :: DELS
real(kind=R8), public :: ETA
real(kind=R8), public :: FOURU
real(kind=R8), public :: GAMMA
real(kind=R8), public :: HFAIL
real(kind=R8), public :: HTEMP
real(kind=R8), public :: IDLERR
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 :: TEMP
real(kind=R8), public :: TWOU
real(kind=R8), public :: WKOLD
real(kind=R8), public :: ZERO
integer, public :: I
integer, public :: ITCNT
integer, public :: LITFH
integer, public :: J
integer, public :: JP1
integer, public :: NP1
logical, public :: FAILED

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 TANGQF(Y, YP, YPOLD, A, Q, R, W, S, T, N, IFLAG, NFE)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=R8) :: Y(:)
    real(kind=R8) :: YP(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) :: W(N+1)
    real(kind=R8) :: S(N+1)
    real(kind=R8) :: T(N+1)
    integer :: N
    integer :: IFLAG
    integer :: NFE

Source Code

        SUBROUTINE STEPQF(N,NFE,IFLAG,START,CRASH,HOLD,H,
     &    WK,RELERR,ABSERR,S,Y,YP,YOLD,YPOLD,A,Q,R,
     &    F0,F1,Z0,DZ,W,T,SSPAR)
        USE REAL_PRECISION
        INTEGER:: N, NFE, IFLAG
        LOGICAL:: START, CRASH
        REAL (KIND=R8):: HOLD, H, WK, RELERR, ABSERR, S
        REAL (KIND=R8):: A(:), DZ(N+1), F0(N+1), F1(N+1), 
     &    Q(N+1,N+1), R((N+1)*(N+2)/2), SSPAR(4), T(N+1), W(N+1),
     &    Y(:), YOLD(N+1), YP(N+1), YPOLD(N+1), Z0(N+1)
        END SUBROUTINE STEPQF