|
qinit.f90.html |
|
|
Source file: qinit.f90
|
|
Directory: /home/rjl/git/rjleveque/clawpack-4.x/amrclaw/2d/lib
|
|
Converted: Sun May 15 2011 at 19:16:16
using clawcode2html
|
|
This documentation file will
not reflect any later changes in the source file.
|
! Default qinit file
subroutine qinit(maxmx,maxmy,meqn,mbc,mx,my,xlower,ylower,dx,dy,q,maux,aux)
implicit none
integer, intent(in) :: maxmx,maxmy,meqn,mbc,mx,my,maux
double precision, intent(in) :: xlower,ylower,dx,dy
double precision, intent(inout) :: q(1-mbc:maxmx+mbc,1-mbc:maxmy+mbc,meqn)
double precision, intent(inout) :: aux(1-mbc:maxmx+mbc,1-mbc:maxmy+mbc,maux)
end subroutine qinit