TANGNF Subroutine

subroutine TANGNF(RHOLEN, Y, YP, YPOLD, A, QR, ALPHA, TZ, PIVOT, NFE, N, IFLAG)

Uses

  • proc~~tangnf~~UsesGraph proc~tangnf TANGNF module~homotopy HOMOTOPY proc~tangnf->module~homotopy module~real_precision REAL_PRECISION proc~tangnf->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) :: 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

Calls

proc~~tangnf~~CallsGraph proc~tangnf TANGNF dgeqpf dgeqpf proc~tangnf->dgeqpf dormqr dormqr proc~tangnf->dormqr interface~f F proc~tangnf->interface~f interface~fjac FJAC proc~tangnf->interface~fjac interface~rho RHO proc~tangnf->interface~rho interface~rhojac RHOJAC proc~tangnf->interface~rhojac none~dnrm2~33 DNRM2 proc~tangnf->none~dnrm2~33

Variables

Type Visibility Attributes Name Initial
real(kind=R8), public :: LAMBDA
real(kind=R8), public :: SIGMA
real(kind=R8), public :: YPNORM
integer, public :: I
integer, public :: J
integer, public :: K
integer, public :: KP1
integer, public :: NP1
integer, public :: NP2

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)


Source Code

        SUBROUTINE TANGNF(RHOLEN,Y,YP,YPOLD,A,QR,ALPHA,TZ,PIVOT,
     &    NFE,N,IFLAG)
        USE REAL_PRECISION
        REAL (KIND=R8):: RHOLEN
        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+2),TZ(N+1)
        INTEGER:: PIVOT(N+1)
        END SUBROUTINE TANGNF