source: branches/flexpart91_hasod/src_parallel/random_mod.mod @ 8

Last change on this file since 8 was 8, checked in by hasod, 11 years ago

Added parallel version of Flexpart91

File size: 3.2 KB
Line 
1GFORTRAN module version '6' created from random_mod.f90 on Tue Jul 23 11:18:11 2013
2MD5:892cb5e9b83ab9a6dd3185b00b0ae783 -- If you edit this, you'll get what you deserve.
3
4(() () () () () () () () () () () () () () () () () () () () () () ()
5() () () ())
6
7()
8
9()
10
11()
12
13()
14
15()
16
17(2 'gasdev' 'random_mod' 'gasdev' 1 ((PROCEDURE UNKNOWN-INTENT
18MODULE-PROC DECL UNKNOWN 0 0 FUNCTION) (REAL 4 0 0 REAL ()) 3 0 (4) () 2
19() () () 0 0)
205 'gasdev1' 'random_mod' 'gasdev1' 1 ((PROCEDURE UNKNOWN-INTENT
21MODULE-PROC DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 6 0
22(7 8 9) () 0 () () () 0 0)
2310 'idummy_ran3_advance' 'random_mod' 'idummy_ran3_advance' 1 ((
24VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (
25INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
2611 'idummy_ran3_conv' 'random_mod' 'idummy_ran3_conv' 1 ((VARIABLE
27UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0
28INTEGER ()) 0 0 () () 0 () () () 0 0)
2912 'idummy_ran3_initialize' 'random_mod' 'idummy_ran3_initialize' 1 ((
30VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (
31INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
3213 'ran1' 'random_mod' 'ran1' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
33DECL UNKNOWN 0 0 FUNCTION) (REAL 4 0 0 REAL ()) 14 0 (15) () 13 () () ()
340 0)
3516 'ran3' 'random_mod' 'ran3' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
36DECL UNKNOWN 0 0 FUNCTION) (REAL 4 0 0 REAL ()) 17 0 (18) () 16 () () ()
370 0)
3819 'ran3_advance' 'random_mod' 'ran3_advance' 1 ((VARIABLE
39UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0 DIMENSION) (REAL 4
400 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
41'1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3500000')) 0 () () () 0 0)
4220 'ran3_conv' 'random_mod' 'ran3_conv' 1 ((VARIABLE UNKNOWN-INTENT
43UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0 DIMENSION) (REAL 4 0 0 REAL ()) 0
440 () (1 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
45CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3500000')) 0 () () () 0 0)
4621 'ran3_initialize' 'random_mod' 'ran3_initialize' 1 ((VARIABLE
47UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0 DIMENSION) (REAL 4
480 0 REAL ()) 0 0 () (1 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
49'1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3500000')) 0 () () () 0 0)
5015 'idum' '' 'idum' 14 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
51UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
524 'idum' '' 'idum' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
53UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
547 'idum' '' 'idum' 6 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
55UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
568 'random1' '' 'random1' 6 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
57UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
589 'random2' '' 'random2' 6 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
59UNKNOWN UNKNOWN 0 0 DUMMY) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
6018 'idum' '' 'idum' 17 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
61UNKNOWN 0 0 DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
62)
63
64('gasdev' 0 2 'gasdev1' 0 5 'idummy_ran3_advance' 0 10 'idummy_ran3_conv'
650 11 'idummy_ran3_initialize' 0 12 'ran1' 0 13 'ran3' 0 16 'ran3_advance'
660 19 'ran3_conv' 0 20 'ran3_initialize' 0 21)
Note: See TracBrowser for help on using the repository browser.
hosted by ZAMG