driver.f.html | ![]() |
Source file: driver.f | |
Directory: /Users/rjl/git/rjleveque/clawpack-4.6.3/apps/acoustics/2d/example1/1drad | |
Converted: Mon Jan 21 2013 at 20:15:16 using clawcode2html | |
This documentation file will not reflect any later changes in the source file. |
program driver c c Generic driver routine for claw1ez c c Author: Randall J. LeVeque c Version of March, 1999 -- CLAWPACK Version 4.0 c c implicit double precision (a-h,o-z) c # set parameters for maximum array sizes used in declarations c # these must be increased for larger problems. c c parameter (maxmx = 4000) parameter (mwork = 122864) parameter (mbc = 2) parameter (meqn = 2) parameter (mwaves = 2) parameter (maux = 0) c dimension q(1-mbc:maxmx+mbc, meqn) dimension aux(1) !# dummy variable since no aux arrays used dimension work(mwork) dimension mthlim(mwaves) call claw1ez(maxmx,meqn,mwaves,mbc,maux,mwork,mthlim, & q,work,aux) stop end