STRPTP Subroutine

subroutine STRPTP(N, ICOUNT, IDEG, R, X)

Uses

  • proc~~strptp~~UsesGraph proc~strptp STRPTP module~real_precision REAL_PRECISION proc~strptp->module~real_precision

Arguments

Type IntentOptional Attributes Name
integer :: N
integer :: ICOUNT(N)
integer :: IDEG(N)
real(kind=R8) :: R(2,N)
real(kind=R8) :: X(2*N)

Variables

Type Visibility Attributes Name Initial
integer, public :: J
real(kind=R8), public :: ANGLE
real(kind=R8), public :: TWOPI
complex(kind=R8), public :: XXXX

Source Code

        SUBROUTINE STRPTP(N,ICOUNT,IDEG,R,X)
        USE REAL_PRECISION
        INTEGER:: N,ICOUNT(N),IDEG(N)
        REAL (KIND=R8):: R(2,N),X(2*N)
        END SUBROUTINE STRPTP