STEPNF Subroutine

subroutine STEPNF(N, NFE, IFLAG, START, CRASH, HOLD, H, RELERR, ABSERR, S, Y, YP, YOLD, YPOLD, A, QR, ALPHA, TZ, PIVOT, W, WP, Z0, Z1, SSPAR)

Uses

  • proc~~stepnf~~UsesGraph proc~stepnf STEPNF module~real_precision REAL_PRECISION proc~stepnf->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) :: 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) :: 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)
real(kind=R8) :: Z0(N+1)
real(kind=R8) :: Z1(N+1)
real(kind=R8) :: SSPAR(8)

Calls

proc~~stepnf~~CallsGraph proc~stepnf STEPNF none~dnrm2~24 DNRM2 proc~stepnf->none~dnrm2~24 none~tangnf~2 TANGNF proc~stepnf->none~tangnf~2

Variables

Type Visibility Attributes Name Initial
real(kind=R8), public :: DCALC
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 :: FOURU
real(kind=R8), public :: FP0
real(kind=R8), public :: FP1
real(kind=R8), public :: HFAIL
real(kind=R8), public :: HT
real(kind=R8), public :: LCALC
real(kind=R8), public :: QOFS
real(kind=R8), public :: RCALC
real(kind=R8), public :: RHOLEN
real(kind=R8), public :: TEMP
real(kind=R8), public :: TWOU
integer, public :: ITNUM
integer, public :: J
integer, public :: JUDY
integer, public :: NP1
logical, public :: FAIL
integer, public, parameter :: LITFH = 4

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 STEPNF(N,NFE,IFLAG,START,CRASH,HOLD,H,RELERR,
     &    ABSERR,S,Y,YP,YOLD,YPOLD,A,QR,ALPHA,TZ,PIVOT,W,WP,
     &    Z0,Z1,SSPAR)
        USE REAL_PRECISION
        REAL (KIND=R8):: ABSERR,H,HOLD,RELERR,S
        INTEGER:: IFLAG,N,NFE
        LOGICAL:: CRASH,START
        REAL (KIND=R8):: A(:),ALPHA(3*N+3),QR(N,N+2),SSPAR(8),TZ(N+1),
     &    W(N+1),WP(N+1),Y(:),YOLD(N+1),YP(N+1),YPOLD(N+1),
     &    Z0(N+1),Z1(N+1)
        INTEGER:: PIVOT(N+1)
        END SUBROUTINE STEPNF