|
b4step1.f.html |
|
|
Source file: b4step1.f
|
|
Directory: /Users/rjl/git/clawpack/apps/fvmbook/chap16/vctraffic
|
|
Converted: Wed Jan 4 2017 at 21:04:03
using clawcode2html
|
|
This documentation file will
not reflect any later changes in the source file.
|
c ============================================
subroutine b4step1(mbc,mx,meqn,q,
& xlower,dx,t,dt,maux,aux)
c ============================================
c
c # called from claw1 before each call to step1.
c # use to set time-dependent aux arrays or perform other tasks
c # which must be done every time step.
c
c
c
implicit double precision (a-h,o-z)
dimension q(meqn,1-mbc:mx+mbc)
dimension aux(maux,1-mbc:mx+mbc)
common /comlxf/ alxf
c # coefficient needed in rp1lxf for Lax-Friedrichs:
alxf = dx / dt
c
return
end