P_DOT Interface

public interface P_DOT

Module Procedures

private function CP_DOT(P, R0, w, s)

Arguments

Type IntentOptional Attributes Name
real(kind=realdp), intent(in), allocatable :: P(:,:,:)
complex(kind=realdp), intent(in), allocatable :: R0(:,:)
complex(kind=realdp), intent(in) :: w(1-LAP:nx+LAP,1-LAP:ny+LAP)
integer :: s

Return Value complex(kind=realdp), (s)

private function RP_DOT(P, R0, w, s)

made a big mistake here, only found after done numerous tests,

Arguments

Type IntentOptional Attributes Name
real(kind=realdp), intent(in), allocatable :: P(:,:,:)
real(kind=realdp), intent(in), allocatable :: R0(:,:)
real(kind=realdp), intent(in) :: w(1-LAP:nx+LAP,1-LAP:ny+LAP)
integer :: s

Return Value real(kind=realdp), (s)