STEPQS Subroutine

subroutine STEPQS(N, NFE, IFLAG, MODE, LENQR, START, CRASH, HOLD, H, WK, RELERR, ABSERR, S, Y, YP, YOLD, YPOLD, A, Z0, DZ, T, SSPAR)

Uses

  • proc~~stepqs~~UsesGraph proc~stepqs STEPQS module~real_precision REAL_PRECISION proc~stepqs->module~real_precision

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: N
integer, intent(inout) :: NFE
integer, intent(inout) :: IFLAG
integer, intent(in) :: MODE
integer, intent(in) :: LENQR
logical, intent(inout) :: START
logical, intent(inout) :: CRASH
real(kind=R8), intent(inout) :: HOLD
real(kind=R8), intent(inout) :: H
real(kind=R8), intent(inout) :: WK
real(kind=R8), intent(inout) :: RELERR
real(kind=R8), intent(inout) :: ABSERR
real(kind=R8), intent(inout) :: S
real(kind=R8), intent(inout) :: Y(:)
real(kind=R8), intent(inout) :: YP(:)
real(kind=R8), intent(inout) :: YOLD(:)
real(kind=R8), intent(inout) :: YPOLD(:)
real(kind=R8), intent(in) :: A(:)
real(kind=R8), intent(out), DIMENSION(:) :: Z0
real(kind=R8), intent(out), DIMENSION(:) :: DZ
real(kind=R8), intent(out), DIMENSION(:) :: T
real(kind=R8), intent(in) :: SSPAR(4)

Calls

proc~~stepqs~~CallsGraph proc~stepqs STEPQS none~dnrm2~31 DNRM2 proc~stepqs->none~dnrm2~31 none~tangns~3 TANGNS proc~stepqs->none~tangns~3

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, SAVE :: ACOF(12)
real(kind=R8), public, SAVE :: ALPHA
real(kind=R8), public, SAVE :: CORDIS
real(kind=R8), public, SAVE :: DELS
real(kind=R8), public, SAVE :: FOURU
real(kind=R8), public, SAVE :: GAMMA
real(kind=R8), public, SAVE :: HFAIL
real(kind=R8), public, SAVE :: HTEMP
real(kind=R8), public, SAVE :: IDLERR
real(kind=R8), public, SAVE :: OMEGA
real(kind=R8), public, SAVE :: P0
real(kind=R8), public, SAVE :: P1
real(kind=R8), public, SAVE :: PP0
real(kind=R8), public, SAVE :: PP1
real(kind=R8), public, SAVE :: SIGMA
real(kind=R8), public, SAVE :: TEMP
real(kind=R8), public, SAVE :: THETA
real(kind=R8), public, SAVE :: TWOU
real(kind=R8), public, SAVE :: WKOLD
real(kind=R8), public, SAVE :: WRGE(8)
real(kind=R8), public, SAVE :: XSTEP
integer, public :: I
integer, public :: ITCNT
integer, public :: LK
integer, public :: LST
integer, public :: NP1
logical, public :: FAILED
integer, public, parameter :: LITFH = 10

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 STEPQS(N,NFE,IFLAGC,MODE,LENQR,START,CRASH,HOLD,H,
     &    WK,RELERR,ABSERR,S,Y,YP,YOLD,YPOLD,A,Z0,DZ,T,SSPAR)
        USE HOMOTOPY, QR => QRSPARSE
        USE REAL_PRECISION
        INTEGER, INTENT(IN):: LENQR,MODE,N
        INTEGER, INTENT(IN OUT):: IFLAGC,NFE
        LOGICAL, INTENT(IN OUT):: CRASH,START
        REAL (KIND=R8), INTENT(IN):: A(:),SSPAR(4)
        REAL (KIND=R8), INTENT(IN OUT):: ABSERR,H,HOLD,RELERR,S,WK,
     &    Y(:),YOLD(:),YP(:),YPOLD(:)
        REAL (KIND=R8), INTENT(OUT), DIMENSION(:):: DZ,T,Z0
        END SUBROUTINE STEPQS