STEPNS Subroutine

subroutine STEPNS(N, NFE, IFLAG, START, CRASH, HOLD, H, RELERR, ABSERR, S, Y, YP, YOLD, YPOLD, A, MODE, LENQR, SSPAR, TZ, W, WP, Z0, Z1)

Uses

  • proc~~stepns~~UsesGraph proc~stepns STEPNS module~real_precision REAL_PRECISION proc~stepns->module~real_precision

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: N
integer, intent(inout) :: NFE
integer, intent(inout) :: IFLAG
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) :: 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(:)
integer, intent(in) :: MODE
integer, intent(in) :: LENQR
real(kind=R8), intent(in) :: SSPAR(8)
real(kind=R8), intent(out), DIMENSION(:) :: TZ
real(kind=R8), intent(out), DIMENSION(:) :: W
real(kind=R8), intent(out), DIMENSION(:) :: WP
real(kind=R8), intent(out), DIMENSION(:) :: Z0
real(kind=R8), intent(out), DIMENSION(:) :: Z1

Calls

proc~~stepns~~CallsGraph proc~stepns STEPNS none~dnrm2~26 DNRM2 proc~stepns->none~dnrm2~26 none~tangns~2 TANGNS proc~stepns->none~tangns~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 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 STEPNS(NC,NFEC,IFLAGC,START,CRASH,HOLD,H,RELERR,
     &     ABSERR,S,Y,YP,YOLD,YPOLD,A,MODE,LENQR,SSPAR,TZ,W,WP,Z0,Z1)
        USE HOMOTOPY, QR => QRSPARSE
        USE REAL_PRECISION
        INTEGER, INTENT(IN):: LENQR,MODE,NC
        INTEGER, INTENT(IN OUT):: IFLAGC,NFEC
        LOGICAL, INTENT(IN OUT):: CRASH,START
        REAL (KIND=R8), INTENT(IN):: A(:),SSPAR(8)
        REAL (KIND=R8), INTENT(IN OUT):: ABSERR,H,HOLD,RELERR,S,
     &    Y(:),YOLD(:),YP(:),YPOLD(:)
        REAL (KIND=R8), INTENT(OUT), DIMENSION(:):: TZ,W,WP,Z0,Z1
        END SUBROUTINE STEPNS