Subroutine cld_n

subroutine cld_n

        ! Variables
    integer, intent(in) :: n1
    integer, intent(in) :: m1
    integer, intent(in) :: nf
    integer, intent(in) :: nu
    integer, intent(in) :: init
    integer, intent(in) :: flag1
    integer, intent(in) :: flag2
    integer, intent(in) :: fdim1
    integer, intent(in) :: fdim2
    integer, intent(in) :: nun
    double precision, intent(in) :: beta
    double precision, intent(in) :: rm
    double precision, intent(in), dimension (fdim1,fdim1) :: e1
    double precision, intent(in), dimension (fdim1-flag1,fdim1-flag1) :: e2
    double precision, intent(in), dimension (fdim1) :: w1
    double precision, intent(in), dimension (fdim1-flag1) :: w2
    double precision, intent(inout), dimension (0:nu,0:m1) :: u
    double precision, intent(inout), dimension (0:nf,0:m1) :: f
    double precision, intent(inout), dimension (0:nun,9) :: un
    double precision, intent(inout), dimension (3*(m1-1),0:n1-2) :: ws
    integer :: i
    integer :: j
    integer :: k
    integer :: m
    integer :: m2
    integer :: n
    integer :: n2
    double precision, dimension (0:fdim1,0:fdim2) :: ainit1
    double precision, dimension (0:fdim1-flag1,0:fdim2-flag1) :: ainit2
    double precision, dimension (0:fdim1,0:fdim2) :: binit1
    double precision, dimension (0:fdim1-flag1,0:fdim2-flag1) :: binit2
    double precision, dimension (0:nf,0:m1) :: la
    double precision :: pi
    double precision, dimension (3*(n1+1)+30) :: cosn
    double precision, dimension (3*(m1+1)+30) :: cosm
    real, dimension (2) :: tt

end subroutine cld_n

subroutine cld_n(n1,m1,rm,beta,f,nf,u,nu,e1,e2,w1,w2,ws,init,flag1,flag2,fdim1,fdim2,un,nun)

Solve the 2D Helmholtz equation rm*u -u_xx -beta u_yy = f with nonhomogeneous Diriclet Boundary Conditions in IxI by using the Chebychev-Legendre method.

Input in Chebychev - calls The legendre solver after transform.

Output in Chebychev

Input:

f: f(0:nf, 0:m1) coefficients in Chebychev of right hand side f
un: The values at the boundaries. un(0:nun,9)
nf: nf>=n1
e#,w#: Output from ledeig.f, contain eigenfunctions and eigenvalues of -u_{xx}= \lambda u.
ws: working array. There are initialized with init=1, they can be repeatedly used with init.ne.1.
rm,beta: constants in the Helmholtz equation
init: initialization flag: init=1, initialize ws.

Output:

u, coefficients in Chebychev of the solution. (nu >= n1)

Author: Jan Ivar Moldekleiv

Version: 0.8

Description of Variables

n1

integer, intent(in) :: n1

m1

integer, intent(in) :: m1

nf

integer, intent(in) :: nf

nu

integer, intent(in) :: nu

init

integer, intent(in) :: init

flag1

integer, intent(in) :: flag1

flag2

integer, intent(in) :: flag2

fdim1

integer, intent(in) :: fdim1

fdim2

integer, intent(in) :: fdim2

nun

integer, intent(in) :: nun

beta

double precision, intent(in) :: beta

rm

double precision, intent(in) :: rm

e1

double precision, intent(in), dimension (fdim1,fdim1) :: e1

e2

double precision, intent(in), dimension (fdim1-flag1,fdim1-flag1) :: e2

w1

double precision, intent(in), dimension (fdim1) :: w1

w2

double precision, intent(in), dimension (fdim1-flag1) :: w2

u

double precision, intent(inout), dimension (0:nu,0:m1) :: u

f

double precision, intent(inout), dimension (0:nf,0:m1) :: f

un

double precision, intent(inout), dimension (0:nun,9) :: un

ws

double precision, intent(inout), dimension (3*(m1-1),0:n1-2) :: ws

i

integer :: i

j

integer :: j

k

integer :: k

m

integer :: m

m2

integer :: m2

n

integer :: n

n2

integer :: n2

ainit1

double precision, dimension (0:fdim1,0:fdim2) :: ainit1

ainit2

double precision, dimension (0:fdim1-flag1,0:fdim2-flag1) :: ainit2

binit1

double precision, dimension (0:fdim1,0:fdim2) :: binit1

binit2

double precision, dimension (0:fdim1-flag1,0:fdim2-flag1) :: binit2

la

double precision, dimension (0:nf,0:m1) :: la

pi

double precision :: pi

cosn

double precision, dimension (3*(n1+1)+30) :: cosn

cosm

double precision, dimension (3*(m1+1)+30) :: cosm

tt

real, dimension (2) :: tt