PCGDS Subroutine

subroutine PCGDS(NN, LENAA, IFLAG, START, RHS)

Uses

  • proc~~pcgds~~UsesGraph proc~pcgds PCGDS module~homotopy HOMOTOPY proc~pcgds->module~homotopy module~real_precision REAL_PRECISION proc~pcgds->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
integer, intent(in) :: NN
integer, intent(in) :: LENAA
integer, intent(inout) :: IFLAG
real(kind=R8), intent(inout) :: START(NN+1)
real(kind=R8), intent(in), optional :: RHS(NN)

Calls

proc~~pcgds~~CallsGraph proc~pcgds PCGDS aa aa proc~pcgds->aa none~gmfads GMFADS proc~pcgds->none~gmfads none~gmres~2 GMRES proc~pcgds->none~gmres~2 work work proc~pcgds->work

Variables

Type Visibility Attributes Name Initial
integer, public :: ITMAX
integer, public :: K
integer, public :: KD
integer, public :: NP1
integer, public :: QIND
integer, public :: ZBIND
integer, public :: ZUIND
real(kind=R8), public :: STARTK
real(kind=R8), public :: RHSC(NN+1)
integer, public, parameter :: SUBSPACE = 8

Interfaces

interface

  • subroutine GMFADS(NN, A, NWK, MAXA)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: NN
    real(kind=R8), intent(inout) :: A(NWK)
    integer, intent(in) :: NWK
    integer, intent(in) :: MAXA(NN+1)

interface

  • subroutine GMRES(N, KDMAX, ITMAX, RHSC, X, KVAL, Q, IFLAG, ROWPOSP, COLPOSP)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: N
    integer, intent(inout) :: KDMAX
    integer, intent(inout) :: ITMAX
    real(kind=R8), intent(in) :: RHSC(N)
    real(kind=R8), intent(inout) :: X(N)
    integer, intent(in) :: KVAL
    real(kind=R8), intent(in) :: Q(:)
    integer, intent(inout) :: IFLAG
    integer, intent(in), optional :: ROWPOSP(:)
    integer, intent(in), optional :: COLPOSP(:)

Source Code

        SUBROUTINE PCGDS(N,LENQR,IFLAG,YP,RHO)
          USE REAL_PRECISION
          INTEGER, INTENT(IN):: LENQR,N
          INTEGER, INTENT(IN OUT):: IFLAG
          REAL (KIND=R8), INTENT(IN OUT):: YP(N+1)
          REAL (KIND=R8), OPTIONAL, INTENT(IN):: RHO(N)
        END SUBROUTINE PCGDS