Go to the source code of this file.
|
subroutine | qinit (meqn, mbc, mx, my, xlower, ylower, dx, dy, q, maux, aux) |
|
subroutine qinit |
( |
integer, intent(in) |
meqn, |
|
|
integer, intent(in) |
mbc, |
|
|
integer, intent(in) |
mx, |
|
|
integer, intent(in) |
my, |
|
|
real(kind=8), intent(in) |
xlower, |
|
|
real(kind=8), intent(in) |
ylower, |
|
|
real(kind=8), intent(in) |
dx, |
|
|
real(kind=8), intent(in) |
dy, |
|
|
real(kind=8), dimension(meqn,1-mbc:mx+mbc,1-mbc:my+mbc), intent(inout) |
q, |
|
|
integer, intent(in) |
maux, |
|
|
real(kind=8), dimension(maux,1-mbc:mx+mbc,1-mbc:my+mbc), intent(in) |
aux |
|
) |
| |