TANGQF Subroutine

subroutine TANGQF(Y, YP, YPOLD, A, Q, R, W, S, T, N, IFLAG, NFE)

Uses

  • proc~~tangqf~~UsesGraph proc~tangqf TANGQF module~homotopy HOMOTOPY proc~tangqf->module~homotopy module~real_precision REAL_PRECISION proc~tangqf->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) :: Y(:)
real(kind=R8) :: YP(N+1)
real(kind=R8) :: YPOLD(N+1)
real(kind=R8) :: A(:)
real(kind=R8) :: Q(N+1,N+1)
real(kind=R8) :: R((N+1)*(N+2)/2)
real(kind=R8) :: W(N+1)
real(kind=R8) :: S(N+1)
real(kind=R8) :: T(N+1)
integer :: N
integer :: IFLAG
integer :: NFE

Calls

proc~~tangqf~~CallsGraph proc~tangqf TANGQF dgeqrf dgeqrf proc~tangqf->dgeqrf dorgqr dorgqr proc~tangqf->dorgqr dtpsv dtpsv proc~tangqf->dtpsv interface~f F proc~tangqf->interface~f interface~fjac FJAC proc~tangqf->interface~fjac interface~rhojac RHOJAC proc~tangqf->interface~rhojac none~dnrm2~37 DNRM2 proc~tangqf->none~dnrm2~37 r1upqf r1upqf proc~tangqf->r1upqf

Variables

Type Visibility Attributes Name Initial
real(kind=R8), public :: LAMBDA
real(kind=R8), public :: YPNRM
integer, public :: I
integer, public :: J
integer, public :: JP1
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)


Source Code

        SUBROUTINE TANGQF(Y,YP,YPOLD,A,Q,R,W,S,T,N,IFLAG,NFE)
        USE HOMOTOPY
        USE REAL_PRECISION
        INTEGER:: N, IFLAG, NFE
        REAL (KIND=R8):: A(:), Q(N+1,N+1), R((N+1)*(N+2)/2),
     &    S(N+1), T(N+1), W(N+1), Y(:), YP(N+1), YPOLD(N+1)
        END SUBROUTINE TANGQF