source: palm/trunk/UTIL/chemistry/gasphase_preproc/kpp/int/oldies/rodas3.def @ 4854

Last change on this file since 4854 was 2696, checked in by kanani, 7 years ago

Merge of branch palm4u into trunk

File size: 852 bytes
Line 
1 
2#FUNCTION AGGREGATE
3#JACOBIAN SPARSE_LU_ROW
4
5#DOUBLE ON
6#INTFILE rodas3
7
8#INLINE F77_DECL_INT
9      INTEGER Autonomous
10      COMMON /INTGDATA/ Autonomous
11      REAL*8 STEPSTART
12      COMMON /GDATA/ STEPSTART
13#ENDINLINE
14
15#INLINE F77_INIT_INT
16        STEPMIN=0.0001
17        STEPMAX=3600.
18        Autonomous = 0
19        STEPSTART=STEPMIN
20#ENDINLINE
21
22
23#INLINE F90_DECL_INT
24      INTEGER :: Autonomous
25      DOUBLE PRECISION :: STEPSTART
26#ENDINLINE
27
28#INLINE F90_INIT_INT
29        STEPMIN=1.e-4
30        STEPMAX=3600.
31        Autonomous = 0
32        STEPSTART=STEPMIN
33#ENDINLINE
34
35
36#INLINE C_DECL_INT
37extern int Autonomous;
38extern double STEPSTART;
39#ENDINLINE
40
41#INLINE C_DATA_INT
42int Autonomous;
43double STEPSTART;
44#ENDINLINE
45
46
47
48#INLINE C_INIT_INT
49        STEPMIN=0.0001;
50        STEPMAX=3600.0;
51        Autonomous = 0;
52        STEPSTART=STEPMIN;
53#ENDINLINE
54
55
Note: See TracBrowser for help on using the repository browser.