RHS_marmousi Subroutine

public subroutine RHS_marmousi(b, xx, yy)

Marmousi problem A point source located at (6000,0)

Arguments

Type IntentOptional Attributes Name
complex(kind=realdp), dimension(1-LAP:nx+LAP,1-LAP:ny+LAP) :: b
real(kind=realdp), dimension(1-LAP:nx+LAP,1-LAP:ny+LAP) :: xx
real(kind=realdp), dimension(1-LAP:nx+LAP,1-LAP:ny+LAP) :: yy

Called by

proc~~rhs_marmousi~~CalledByGraph proc~rhs_marmousi RHS_marmousi program~helmholtz_2d helmholtz_2d program~helmholtz_2d->proc~rhs_marmousi