FODEDS Subroutine

subroutine FODEDS(S, Y, YP, N, IFLAG, YPOLD, A, NDIMA, LENQR, MODE, NFE)

Uses

  • proc~~fodeds~~UsesGraph proc~fodeds FODEDS module~homotopy HOMOTOPY proc~fodeds->module~homotopy module~real_precision REAL_PRECISION proc~fodeds->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
real(kind=R8) :: S
real(kind=R8) :: Y(N+1)
real(kind=R8) :: YP(N+1)
integer :: N
integer :: IFLAG
real(kind=R8) :: YPOLD(N+1)
real(kind=R8) :: A(NDIMA)
integer :: NDIMA
integer :: LENQR
integer :: MODE
integer :: NFE

Calls

proc~~fodeds~~CallsGraph proc~fodeds FODEDS interface~f F proc~fodeds->interface~f interface~fjacs FJACS proc~fodeds->interface~fjacs interface~rhojs RHOJS proc~fodeds->interface~rhojs none~dnrm2~10 DNRM2 proc~fodeds->none~dnrm2~10 none~gmriluds GMRILUDS proc~fodeds->none~gmriluds none~pcgds PCGDS proc~fodeds->none~pcgds qr qr proc~fodeds->qr

Variables

Type Visibility Attributes Name Initial
real(kind=R8), public :: LAMBDA
real(kind=R8), public :: YPNORM
integer, public :: J
integer, public :: JPOS
integer, public :: NP1

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 PCGDS(N, LENQR, IFLAG, YP, RHO)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: N
    integer, intent(in) :: LENQR
    integer, intent(inout) :: IFLAG
    real(kind=R8), intent(inout) :: YP(N+1)
    real(kind=R8), intent(in), optional :: RHO(N)

interface

  • subroutine GMRILUDS(N, LENQR, IFLAG, YP, RHO)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: N
    integer, intent(in) :: LENQR
    integer, intent(inout) :: IFLAG
    real(kind=R8), intent(inout) :: YP(N+1)
    real(kind=R8), intent(in), optional :: RHO(N)

Source Code

        SUBROUTINE FODEDS(S,Y,YP,N,IFLAG,YPOLD,A,NDIMA,LENQR,MODE,NFE)
        USE HOMOTOPY, QR => QRSPARSE
        USE REAL_PRECISION
        INTEGER:: IFLAG,LENQR,MODE,N,NDIMA,NFE
        REAL (KIND=R8):: A(NDIMA),S,Y(N+1),YP(N+1),YPOLD(N+1)
        END SUBROUTINE FODEDS