FODE Subroutine

subroutine FODE(S, Y, YP, YPOLD, A, QR, ALPHA, TZ, PIVOT, NFE, N, IFLAG)

Uses

  • proc~~fode~~UsesGraph proc~fode FODE module~homotopy HOMOTOPY proc~fode->module~homotopy module~real_precision REAL_PRECISION proc~fode->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(:)
real(kind=R8) :: YP(N+1)
real(kind=R8) :: YPOLD(N+1)
real(kind=R8) :: A(:)
real(kind=R8) :: QR(N,N+1)
real(kind=R8) :: ALPHA(3*N+3)
real(kind=R8) :: TZ(N+1)
integer, DIMENSION(N+1) :: PIVOT
integer :: NFE
integer :: N
integer :: IFLAG

Calls

proc~~fode~~CallsGraph proc~fode FODE dgeqpf dgeqpf proc~fode->dgeqpf interface~f F proc~fode->interface~f interface~fjac FJAC proc~fode->interface~fjac interface~rhojac RHOJAC proc~fode->interface~rhojac

Variables

Type Visibility Attributes Name Initial
real(kind=R8), public :: DNRM2
real(kind=R8), public :: YPNORM
integer, public :: I
integer, public :: IK
integer, public :: K
integer, public :: KP1
integer, public :: LW
integer, public :: NP1

Source Code

        SUBROUTINE FODE(S,Y,YP,YPOLD,A,QR,ALPHA,TZ,PIVOT,NFE,N,IFLAG)
        USE REAL_PRECISION
        REAL (KIND=R8):: S
        INTEGER:: IFLAG,N,NFE
        REAL (KIND=R8):: A(:),Y(:),YP(N+1),YPOLD(N+1)
        REAL (KIND=R8):: ALPHA(3*N+3),QR(N,N+1),TZ(N+1)
        INTEGER, DIMENSION(N+1):: PIVOT
        END SUBROUTINE FODE