|
qinit.f90.html |
|
|
Source file: qinit.f90
|
|
Directory: /Users/rjl/git/rjleveque/clawpack-4.6.3/clawpack/1d/lib
|
|
Converted: Mon Jan 21 2013 at 20:15:50
using clawcode2html
|
|
This documentation file will
not reflect any later changes in the source file.
|
! Default qinit function
subroutine qinit(maxmx,meqn,mbc,mx,xlower,dx,q,maux,aux)
implicit none
integer, intent(in) :: maxmx,meqn,mbc,mx,maux
double precision, intent(in) :: xlower,dx
double precision, intent(inout) :: q(1-mbc:maxmx+mbc,meqn)
double precision, intent(inout) :: aux(1-mbc:maxmx+mbc,maux)
end subroutine qinit