GMRILUDS Subroutine

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

Uses

  • proc~~gmriluds~~UsesGraph proc~gmriluds GMRILUDS module~homotopy HOMOTOPY proc~gmriluds->module~homotopy module~real_precision REAL_PRECISION proc~gmriluds->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~~gmriluds~~CallsGraph proc~gmriluds GMRILUDS aa aa proc~gmriluds->aa iwork iwork proc~gmriluds->iwork none~gmres GMRES proc~gmriluds->none~gmres none~ilufds ILUFDS proc~gmriluds->none~ilufds work work proc~gmriluds->work

Variables

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

Interfaces

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

interface

  • subroutine ILUFDS(NN, Q, LENQ, ROWPOS, COLPOS)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: NN
    real(kind=R8), intent(inout) :: Q(LENQ)
    integer, intent(in) :: LENQ
    integer, intent(in) :: ROWPOS(NN+1)
    integer, intent(in) :: COLPOS(LENQ)

Source Code

        SUBROUTINE GMRILUDS(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 GMRILUDS