GFORTRAN module created from /Users/rjl/git/rjleveque/clawpack-4.6.3/geoclaw/2d/lib/dtopo_mod.f90 on Mon Jan 21 19:41:08 2013 If you edit this, you'll get what you deserve. (() () () () () () () () () () () () () () () () () () () () ()) () () () () (2 'dtopotype' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 3 'dtopofname' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (CHARACTER 1 ((CONSTANT (INTEGER 4 ()) 0 '150'))) 0 0 () (1 DEFERRED () ()) 0 () ()) 4 'dtopo_module' 'dtopo_module' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (UNKNOWN 0 ()) 0 0 () () 0 () ()) 5 'dtdtopo' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 6 'dtopowork' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 7 'dz' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (REAL 8 ()) 0 0 () () 0 () ()) 8 'dydtopo' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 9 'dxdtopo' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 10 'maxleveldtopo' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 11 'mdtopo' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 12 'i0dtopo' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 13 'mtdtopo' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 14 'mxdtopo' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 15 'num_dtopo' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (INTEGER 4 ()) 0 0 () () 0 () ()) 16 'read_dtopo_header' 'dtopo_module' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 17 0 (18 19 20 21 22 23 24 25 26 27 28 29 30 31) () 0 () ()) 32 'read_dtopo' 'dtopo_module' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 33 0 (34 35 36 37 38 39) () 0 () ()) 40 'tfdtopo' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 41 't0dtopo' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 42 'set_dtopo' 'dtopo_module' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 ()) 43 0 (44) () 0 () ()) 45 'mydtopo' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 46 'yhidtopo' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 47 'xlowdtopo' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 48 'xhidtopo' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 49 'ylowdtopo' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 50 'topoaltered' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (LOGICAL 4 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 51 'minleveldtopo' 'dtopo_module' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 ()) 0 0 () (1 DEFERRED () ()) 0 () ()) 44 'fname' '' 43 ((VARIABLE IN UNKNOWN-PROC UNKNOWN OPTIONAL DUMMY) ( CHARACTER 1 ((CONSTANT (INTEGER 4 ()) 0 '25'))) 0 0 () () 0 () ()) 35 'my' '' 33 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 36 'mt' '' 33 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 34 'mx' '' 33 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 37 'dtopo_type' '' 33 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) ( INTEGER 4 ()) 0 0 () () 0 () ()) 39 'dtopo' '' 33 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN DIMENSION DUMMY) (REAL 8 ()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '1') (OP ( INTEGER 4 ()) 0 TIMES (OP (INTEGER 4 ()) 0 TIMES (VARIABLE (INTEGER 4 ()) 0 34 ()) (VARIABLE (INTEGER 4 ()) 0 35 ())) (VARIABLE (INTEGER 4 ()) 0 36 ()))) 0 () ()) 18 'fname' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER 1 ((CONSTANT (INTEGER 4 ()) 0 '150'))) 0 0 () () 0 () ()) 19 'topo_type' '' 17 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 21 'my' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 20 'mx' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) 24 'ylow' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (REAL 8 ()) 0 0 () () 0 () ()) 38 'fname' '' 33 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (CHARACTER 1 ((CONSTANT (INTEGER 4 ()) 0 '150'))) 0 0 () () 0 () ()) 23 'xlow' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (REAL 8 ()) 0 0 () () 0 () ()) 25 't0' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (REAL 8 ()) 0 0 () () 0 () ()) 26 'xhi' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (REAL 8 ()) 0 0 () () 0 () ()) 27 'yhi' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (REAL 8 ()) 0 0 () () 0 () ()) 30 'dy' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (REAL 8 ()) 0 0 () () 0 () ()) 29 'dx' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (REAL 8 ()) 0 0 () () 0 () ()) 31 'dt' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (REAL 8 ()) 0 0 () () 0 () ()) 28 'tf' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (REAL 8 ()) 0 0 () () 0 () ()) 22 'mt' '' 17 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DUMMY) (INTEGER 4 ()) 0 0 () () 0 () ()) ) ('minleveldtopo' 0 51 'i0dtopo' 0 12 'dxdtopo' 0 9 'dtopowork' 0 6 'dtdtopo' 0 5 'dtopo_module' 0 4 'dtopofname' 0 3 'dtopotype' 0 2 'dydtopo' 0 8 'dz' 0 7 'mdtopo' 0 11 'maxleveldtopo' 0 10 'topoaltered' 0 50 'mydtopo' 0 45 'mxdtopo' 0 14 'mtdtopo' 0 13 'set_dtopo' 0 42 'read_dtopo' 0 32 'num_dtopo' 0 15 'read_dtopo_header' 0 16 't0dtopo' 0 41 'tfdtopo' 0 40 'ylowdtopo' 0 49 'xhidtopo' 0 48 'xlowdtopo' 0 47 'yhidtopo' 0 46)