driver.f.html | clawcode2html |
Source file: driver.f | |
Directory: /home/rjl/www/pubs/cise08/cise08levequeV2 | |
Converted: Wed Jul 2 2008 at 13:40:42 | |
This documentation file will not reflect any later changes in the source file. |
program driver c c Generic driver routine for claw2 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 = 240) parameter (maxmy = 600) parameter (mwork = 161268) parameter (mbc = 2) parameter (meqn = 1) parameter (mwaves = 1) parameter (maux = 3) dimension q(1-mbc:maxmx+mbc, 1-mbc:maxmy+mbc, meqn) dimension aux(1-mbc:maxmx+mbc, 1-mbc:maxmy+mbc, maux) dimension mthlim(mwaves) dimension work(mwork) c call claw2ez(maxmx,maxmy,meqn,mwaves,mbc,maux,mwork,mthlim, & q,work,aux) stop end