INITP Subroutine

subroutine INITP(IFLG1, N, NUMT, KDEG, COEF, IDEG, FACV, CL, PDG, QDG, R)

Uses

  • proc~~initp~~UsesGraph proc~initp INITP module~homotopy HOMOTOPY proc~initp->module~homotopy module~real_precision REAL_PRECISION proc~initp->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) :: IFLG1
integer, intent(in) :: N
integer, intent(in) :: NUMT(:)
integer, intent(inout) :: KDEG(:,:,:)
real(kind=R8), intent(inout) :: COEF(:,:)
integer, intent(out) :: IDEG(N)
real(kind=R8), intent(out) :: FACV(N)
real(kind=R8), intent(out) :: CL(2,N+1)
real(kind=R8), intent(out) :: PDG(2,N)
real(kind=R8), intent(out) :: QDG(2,N)
real(kind=R8), intent(out) :: R(2,N)

Calls

proc~~initp~~CallsGraph proc~initp INITP none~divp~3 DIVP proc~initp->none~divp~3 none~powp~3 POWP proc~initp->none~powp~3 none~sclgnp SCLGNP proc~initp->none~sclgnp

Variables

Type Visibility Attributes Name Initial
integer, public :: IERR
integer, public :: J
integer, public :: JJ
integer, public :: MAXT
integer, public :: N2
integer, public :: NP1
real(kind=R8), public :: CCL(2,11)
real(kind=R8), public :: P(2,10)
real(kind=R8), public :: Q(2,10)
real(kind=R8), public :: ZERO

Interfaces

interface

  • subroutine DIVP(XXXX, YYYY, ZZZZ, IERR)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=R8), intent(in), DIMENSION(2) :: XXXX
    real(kind=R8), intent(in), DIMENSION(2) :: YYYY
    real(kind=R8), intent(out), DIMENSION(2) :: ZZZZ
    integer, intent(out) :: IERR

interface

  • subroutine MULP(XXXX, YYYY, ZZZZ)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=R8), intent(in), DIMENSION(2) :: XXXX
    real(kind=R8), intent(in), DIMENSION(2) :: YYYY
    real(kind=R8), intent(out), DIMENSION(2) :: ZZZZ

interface

  • subroutine POWP(NNNN, XXXX, YYYY)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: NNNN
    real(kind=R8), intent(in), DIMENSION(2) :: XXXX
    real(kind=R8), intent(inout), DIMENSION(2) :: YYYY

interface

  • subroutine SCLGNP(N, MAXT, NUMT, DEG, MODE, EPS0, COEF, NNUMT, DDEG, CCOEF, ALPHA, BETA, RWORK, XWORK, FACV, FACE, COESCL, IERR)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: N
    integer, intent(in) :: MAXT
    integer, intent(in) :: NUMT(:)
    integer, intent(in) :: DEG(:,:,:)
    integer, intent(in) :: MODE
    real(kind=R8), intent(in) :: EPS0
    real(kind=R8), intent(in) :: COEF(:,:)
    integer, intent(inout) :: NNUMT(N)
    integer, intent(inout) :: DDEG(N,N+1,MAXT)
    real(kind=R8), intent(inout) :: CCOEF(N,MAXT)
    real(kind=R8), intent(inout) :: ALPHA(2*N,2*N)
    real(kind=R8), intent(inout) :: BETA(2*N)
    real(kind=R8), intent(inout) :: RWORK(N*(2*N+1))
    real(kind=R8), intent(inout) :: XWORK(2*N)
    real(kind=R8), intent(out) :: FACV(N)
    real(kind=R8), intent(out) :: FACE(N)
    real(kind=R8), intent(out) :: COESCL(N,MAXT)
    integer, intent(out) :: IERR

Source Code

        SUBROUTINE INITP(IFLG1,N,NUMT,KDEG,COEF,
     &                              IDEG,FACV,CL,PDG,QDG,R)
        USE HOMOTOPY
        USE REAL_PRECISION
        INTEGER, INTENT(IN):: IFLG1,N,NUMT(:)
        INTEGER, INTENT(IN OUT):: KDEG(:,:,:)
        REAL (KIND=R8), INTENT(IN OUT):: COEF(:,:)
        INTEGER, INTENT(OUT):: IDEG(N)
        REAL (KIND=R8), INTENT(OUT):: 
     &    FACV(N),CL(2,N+1),PDG(2,N),QDG(2*N),R(2,N)
        END SUBROUTINE INITP