A fast and precise DFT wavelet code

# convolut_simple_slab_k.f90 File Reference

Non-optimized convolution routines for kinetic operator. More...

Go to the source code of this file.

## Functions/Subroutines

subroutine convolut_kinetic_slab_c_k (n1, n2, n3, hgrid, x, y, c_in, k1, k2, k3)
Applies the modified kinetic energy operator onto x to get y. Works for the slab BC. Modified kinetic energy operator: A=-1/2 exp(Ikr) Delta exp(-Ikr)+C where k=(k1,k2,k3); r=(x,y,z).
subroutine convolut_kinetic_slab_T_k (n1, n2, n3, hgrid, x, y, ener, k1, k2, k3)
Applies the modified kinetic energy operator onto x to get y. Computes the kinetic energy too. Works for the slab BC. Modified kinetic energy operator: A=-1/2 exp(Ikr) Delta exp(-Ikr) where k=(k1,k2,k3); r=(x,y,z).

## Detailed Description

Non-optimized convolution routines for kinetic operator.

Definition in file convolut_simple_slab_k.f90.

## Function Documentation

 subroutine convolut_kinetic_slab_c_k ( integer,intent(in) n1, integer,intent(in) n2, integer,intent(in) n3, real(gp),dimension(3),intent(in) hgrid, real(wp),dimension(2,0:n1,0:n2,0:n3),intent(in) x, real(wp),dimension(2,0:n1,0:n2,0:n3),intent(out) y, real(gp),intent(in) c_in, real(gp),intent(in) k1, real(gp),intent(in) k2, real(gp),intent(in) k3 )

Applies the modified kinetic energy operator onto x to get y. Works for the slab BC. Modified kinetic energy operator: A=-1/2 exp(Ikr) Delta exp(-Ikr)+C where k=(k1,k2,k3); r=(x,y,z).

Definition at line 16 of file convolut_simple_slab_k.f90.

References max, and min.

Referenced by apply_hp_slab_k().

Here is the caller graph for this function:

 subroutine convolut_kinetic_slab_T_k ( integer,intent(in) n1, integer,intent(in) n2, integer,intent(in) n3, real(gp),dimension(3),intent(in) hgrid, real(wp),dimension(2,0:n1,0:n2,0:n3),intent(in) x, real(wp),dimension(2,0:n1,0:n2,0:n3),intent(inout) y, real(wp),intent(out) ener, real(gp),intent(in) k1, real(gp),intent(in) k2, real(gp),intent(in) k3 )

Applies the modified kinetic energy operator onto x to get y. Computes the kinetic energy too. Works for the slab BC. Modified kinetic energy operator: A=-1/2 exp(Ikr) Delta exp(-Ikr) where k=(k1,k2,k3); r=(x,y,z).

Definition at line 145 of file convolut_simple_slab_k.f90.

References max, and min.

Referenced by isf_to_daub_kinetic().

Here is the caller graph for this function: