Subroutine cheb_to_leg2

subroutine cheb_to_leg2

        ! Variables
    integer, intent(in) :: N
    integer, intent(in) :: M
    integer, intent(in) :: m1
    integer, intent(in) :: m2
    double precision, intent(in), dimension (0:N,0:M) :: cheb
    double precision, intent(in), dimension (0:m1,0:m1) :: A1
    double precision, intent(in), dimension (0:m2,0:m2) :: A2
    double precision, intent(out), dimension (0:N,0:M) :: leg
    integer :: i
    integer :: j
    integer :: k
    integer :: h
    double precision, dimension (0:m1,0:M) :: cheb1
    double precision, dimension (0:m2,0:M) :: cheb2
    double precision, dimension (0:M,0:m1) :: hep1
    double precision, dimension (0:M,0:m2) :: hep2
    character :: lside
    character :: rside
    character :: uplo
    character :: ytrans
    character :: ntrans
    character :: diag

end subroutine cheb_to_leg2

Identical to Cheb_to_leg, but allows for different N & M.

Author: Jan Ivar Moldekleiv & B.P Tjostheim

Version: 0.7

Description of Variables

N

integer, intent(in) :: N

M

integer, intent(in) :: M

m1

integer, intent(in) :: m1

m2

integer, intent(in) :: m2

cheb

double precision, intent(in), dimension (0:N,0:M) :: cheb

A1

double precision, intent(in), dimension (0:m1,0:m1) :: A1

A2

double precision, intent(in), dimension (0:m2,0:m2) :: A2

leg

double precision, intent(out), dimension (0:N,0:M) :: leg

i

integer :: i

j

integer :: j

k

integer :: k

h

integer :: h

cheb1

double precision, dimension (0:m1,0:M) :: cheb1

cheb2

double precision, dimension (0:m2,0:M) :: cheb2

hep1

double precision, dimension (0:M,0:m1) :: hep1

hep2

double precision, dimension (0:M,0:m2) :: hep2

lside

character :: lside

rside

character :: rside

uplo

character :: uplo

ytrans

character :: ytrans

ntrans

character :: ntrans

diag

character :: diag