Subroutine nycheb_leg_disk

subroutine nycheb_leg_disk

        ! Variables
    integer, intent(in) :: N
    integer, intent(in) :: m1
    integer, intent(in) :: m2
    double precision, intent(in) :: pi
    double precision, intent(out), dimension (0:m1,0:m1) :: AA1
    double precision, intent(out), dimension (0:m2,0:m2) :: AA2
    double precision, intent(out), dimension (0:m1,0:m1) :: BB1
    double precision, intent(out), dimension (0:m2,0:m2) :: BB2
    integer :: i
    integer :: j
    double precision :: k
    double precision :: h
    double precision :: konst
    double precision, dimension (0:N,0:N) :: A1
    double precision, dimension (0:N,0:N) :: B1

end subroutine nycheb_leg_disk

Description of Variables

N

integer, intent(in) :: N

m1

integer, intent(in) :: m1

m2

integer, intent(in) :: m2

pi

double precision, intent(in) :: pi

AA1

double precision, intent(out), dimension (0:m1,0:m1) :: AA1

AA2

double precision, intent(out), dimension (0:m2,0:m2) :: AA2

BB1

double precision, intent(out), dimension (0:m1,0:m1) :: BB1

BB2

double precision, intent(out), dimension (0:m2,0:m2) :: BB2

i

integer :: i

j

integer :: j

k

double precision :: k

h

double precision :: h

konst

double precision :: konst

A1

double precision, dimension (0:N,0:N) :: A1

B1

double precision, dimension (0:N,0:N) :: B1