TANGNS Subroutine

subroutine TANGNS(RHOLEN, Y, YP, TZ, YPOLD, A, MODE, LENQR, NFE, N, IFLAG)

Uses

  • proc~~tangns~~UsesGraph proc~tangns TANGNS module~homotopy HOMOTOPY proc~tangns->module~homotopy module~real_precision REAL_PRECISION proc~tangns->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), 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

Calls

proc~~tangns~~CallsGraph proc~tangns TANGNS interface~f F proc~tangns->interface~f interface~fjacs FJACS proc~tangns->interface~fjacs interface~rho RHO proc~tangns->interface~rho interface~rhojs RHOJS proc~tangns->interface~rhojs none~dnrm2~35 DNRM2 proc~tangns->none~dnrm2~35 none~gmriluds~2 GMRILUDS proc~tangns->none~gmriluds~2 none~pcgds~2 PCGDS proc~tangns->none~pcgds~2 qr qr proc~tangns->qr

Variables

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

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, RHS)

    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 :: RHS(N)

interface

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

    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 :: RHS(N)

Source Code

        SUBROUTINE TANGNS(RHOLEN,Y,YP,TZ,YPOLD,A,MODE,LENQR,
     &    NFE,N,IFLAG)
        USE REAL_PRECISION
        REAL (KIND=R8), INTENT(IN), DIMENSION(:):: A,Y,YPOLD
        REAL (KIND=R8), INTENT(IN OUT):: RHOLEN
        REAL (KIND=R8), INTENT(OUT), DIMENSION(:):: TZ,YP
        INTEGER, INTENT(IN):: LENQR,MODE,N
        INTEGER, INTENT(IN OUT):: IFLAG,NFE
        END SUBROUTINE TANGNS