GFORTRAN module created from /Users/rjl/git/rjleveque/clawpack-4.6.3/geoclaw/2d/lib/geoclaw_mod.f90 on Mon Jan 21 19:39:35 2013
If you edit this, you'll get what you deserve.

(() () () () () () () () () () () () () () () () () () () () ())

()

()

()

()

(2 'drytolerance' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN) (REAL 8 ()) 0 0 () () 0 () ())
3 'depthdeep' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (REAL 8 ()) 0 0 () () 0 () ())
4 'coeffmanning' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN) (REAL 8 ()) 0 0 () () 0 () ())
5 'frictiondepth' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN) (REAL 8 ()) 0 0 () () 0 () ())
6 'geoclaw_module' 'geoclaw_module' 1 ((MODULE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN) (UNKNOWN 0 ()) 0 0 () () 0 () ())
7 'grav' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (REAL 8 ()) 0 0 () () 0 () ())
8 'geo_parm_unit' 'geoclaw_module' 1 ((PARAMETER UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () (CONSTANT (INTEGER 4 ()) 0
'78') () 0 () ())
9 'flowgradevalue' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 ()) 0 0 () (1
DEFERRED () ()) 0 () ())
10 'icoordsys' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (INTEGER 4 ()) 0 0 () () 0 () ())
11 'iflowgradetype' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 ()) 0 0 () (1
DEFERRED () ()) 0 () ())
12 'iflowgrademinlevel' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 ()) 0 0 () (1
DEFERRED () ()) 0 () ())
13 'ifriction' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (INTEGER 4 ()) 0 0 () () 0 () ())
14 'mflowgrades' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () () 0 () ())
15 'maxleveldry' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () () 0 () ())
16 'maxleveldeep' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () () 0 () ())
17 'minlevelwet' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () () 0 () ())
18 'pi' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (REAL 8 ()) 0 0 () () 0 () ())
19 'r2' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (REAL 8 ()) 0 0 () () 0 () ())
20 'sealevel' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (REAL 8 ()) 0 0 () () 0 () ())
21 'set_geo' 'geoclaw_module' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
DECL SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 ()) 22 0 (23) () 0 () ())
24 'set_flow_grades' 'geoclaw_module' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 ()) 25 0 (26) ()
0 () ())
27 'rearth' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (REAL 8 ()) 0 0 () () 0 () ())
28 'r1' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (REAL 8 ()) 0 0 () () 0 () ())
29 'iflowgradevariable' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 ()) 0 0 () (1
DEFERRED () ()) 0 () ())
30 'icoriolis' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN) (INTEGER 4 ()) 0 0 () () 0 () ())
31 'varreftime' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN) (LOGICAL 4 ()) 0 0 () () 0 () ())
32 'wavetolerance' 'geoclaw_module' 1 ((VARIABLE UNKNOWN-INTENT
UNKNOWN-PROC UNKNOWN) (REAL 8 ()) 0 0 () () 0 () ())
33 'set_tsunami' 'geoclaw_module' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 ()) 34 0 (35) ()
0 () ())
35 'fname' '' 34 ((VARIABLE IN UNKNOWN-PROC UNKNOWN OPTIONAL DUMMY) (
CHARACTER 1 ((CONSTANT (INTEGER 4 ()) 0 '25'))) 0 0 () () 0 () ())
26 'fname' '' 25 ((VARIABLE IN UNKNOWN-PROC UNKNOWN OPTIONAL DUMMY) (
CHARACTER 1 ((CONSTANT (INTEGER 4 ()) 0 '25'))) 0 0 () () 0 () ())
23 'fname' '' 22 ((VARIABLE IN UNKNOWN-PROC UNKNOWN OPTIONAL DUMMY) (
CHARACTER 1 ((CONSTANT (INTEGER 4 ()) 0 '25'))) 0 0 () () 0 () ())
)

('set_tsunami' 0 33 'icoriolis' 0 30 'icoordsys' 0 10 'flowgradevalue' 0
9 'coeffmanning' 0 4 'depthdeep' 0 3 'drytolerance' 0 2 'geo_parm_unit'
0 8 'frictiondepth' 0 5 'grav' 0 7 'geoclaw_module' 0 6
'iflowgradevariable' 0 29 'iflowgrademinlevel' 0 12 'iflowgradetype' 0
11 'r1' 0 28 'pi' 0 18 'minlevelwet' 0 17 'maxleveldeep' 0 16 'ifriction'
0 13 'maxleveldry' 0 15 'mflowgrades' 0 14 'rearth' 0 27 'r2' 0 19
'set_flow_grades' 0 24 'sealevel' 0 20 'set_geo' 0 21 'wavetolerance' 0
32 'varreftime' 0 31)