OTPUTP Subroutine

subroutine OTPUTP(N, NUMPAT, CL, FACV, CLX, X, XNP1)

Uses

  • proc~~otputp~~UsesGraph proc~otputp OTPUTP module~real_precision REAL_PRECISION proc~otputp->module~real_precision

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: N
integer, intent(in) :: NUMPAT
real(kind=R8), intent(in) :: CL(2,N+1)
real(kind=R8), intent(in) :: FACV(N)
real(kind=R8), intent(inout) :: CLX(2,N)
real(kind=R8), intent(inout) :: X(2,N)
real(kind=R8), intent(inout) :: XNP1(2)

Calls

proc~~otputp~~CallsGraph proc~otputp OTPUTP none~divp~4 DIVP proc~otputp->none~divp~4 none~mulp~4 MULP proc~otputp->none~mulp~4

Variables

Type Visibility Attributes Name Initial
integer, public :: I
integer, public :: IERR
integer, public :: J
integer, public :: NP1
real(kind=R8), public :: FAC
real(kind=R8), public :: TEMP(2)

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

Source Code

        SUBROUTINE OTPUTP(N,NUMPAT,CL,FACV,CLX,X,XNP1)
        USE REAL_PRECISION
        INTEGER, INTENT(IN):: N,NUMPAT
        REAL (KIND=R8), INTENT(IN):: CL(2,N+1),FACV(N)
        REAL (KIND=R8), INTENT(IN OUT):: CLX(2,N),X(2,N),XNP1(2)
        END SUBROUTINE OTPUTP