GFORTRAN module created from courant.f90 on Tue Nov 15 10:43:44 2005
If you edit this, you'll get what you deserve.

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

()

()

()

()

(2 'calcul_de_courant' 'courant' 1 ((PROCEDURE UNKNOWN-INTENT
MODULE-PROC DECL SUBROUTINE) (UNKNOWN 0 ()) 3 0 (4) () 0 () ())
5 'courant' 'courant' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (
UNKNOWN 0 ()) 0 0 () () 0 () ())
6 'dy' 'namelistage' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (
REAL 4 ()) 0 0 () () 0 () ())
7 'a' 'constantes' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (
REAL 4 ()) 0 0 () (CONSTANT (REAL 4 ()) 0 '0.6136b80@6') () 0 () ())
8 'p' 'namelistage' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (
INTEGER 4 ()) 0 0 () () 0 () ())
9 'traiteerreur' 'erreur' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
SUBROUTINE) (UNKNOWN 0 ()) 10 0 (11) () 0 () ())
12 'ro' 'namelistage' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
ALLOCATABLE DIMENSION) (REAL 4 ()) 0 0 () (1 DEFERRED () ()) 0 () ())
13 'q' 'namelistage' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN) (
INTEGER 4 ()) 0 0 () () 0 () ())
14 'y' 'namelistage' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
ALLOCATABLE DIMENSION) (REAL 4 ()) 0 0 () (1 DEFERRED () ()) 0 () ())
15 'wplus' 'namelistage' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 ()) 0 0 () (2 DEFERRED () () () ())
0 () ())
16 'dz' 'namelistage' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN)
(REAL 4 ()) 0 0 () () 0 () ())
11 'num_erreur' '' 10 ((VARIABLE IN UNKNOWN-PROC UNKNOWN DUMMY) (
INTEGER 4 ()) 0 0 () () 0 () ())
4 'courantplus' '' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN DIMENSION DUMMY)
(REAL 4 ()) 0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 ()) 0 '0') (OP (
INTEGER 4 ()) 0 PLUS (VARIABLE (INTEGER 4 ()) 0 8 ()) (CONSTANT (
INTEGER 4 ()) 0 '1')) (CONSTANT (INTEGER 4 ()) 0 '1') (OP (INTEGER 4 ())
0 PLUS (VARIABLE (INTEGER 4 ()) 0 13 ()) (CONSTANT (INTEGER 4 ()) 0 '1')))
0 () ())
)

('dz' 0 16 'a' 0 7 'dy' 0 6 'courant' 0 5 'calcul_de_courant' 0 2 'wplus'
0 15 'q' 0 13 'p' 0 8 'ro' 0 12 'traiteerreur' 0 9 'y' 0 14)