b4step1.f.html | |
Source file: b4step1.f | |
Directory: /Users/rjl/clawpack_src/clawpack_master/apps/fvmbook/chap16/vctraffic | |
Converted: Sat Mar 23 2024 at 11:04:24 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