source: palm/trunk/UTIL/chemistry/gasphase_preproc/kpp/int/oldies/ros4.def @ 3538

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

Merge of branch palm4u into trunk

File size: 1.3 KB
Line 
1 
2#FUNCTION AGGREGATE
3#JACOBIAN SPARSE_LU_ROW
4
5#DOUBLE ON
6#INTFILE ros4
7
8#INLINE F_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=1.e-4
17        STEPMAX=3600.
18        Autonomous = 0
19        STEPSTART=STEPMIN
20#ENDINLINE
21
22#INLINE F77_DECL_INT
23      INTEGER Autonomous
24      COMMON /INTGDATA/ Autonomous
25      REAL*8 STEPSTART
26      COMMON /GDATA/ STEPSTART
27#ENDINLINE
28
29#INLINE F90_INIT_INT
30        STEPMIN=1.e-4
31        STEPMAX=3600.
32        Autonomous = 0
33        STEPSTART=STEPMIN
34#ENDINLINE
35
36#INLINE F90_DECL_INT
37      INTEGER :: Autonomous
38      DOUBLE PRECISION :: STEPSTART
39#ENDINLINE
40
41#INLINE C_DECL_INT
42    extern int Autonomous;
43    extern double STEPSTART;
44#ENDINLINE
45 
46#INLINE C_DATA_INT
47int Autonomous;
48double STEPSTART;
49#ENDINLINE
50
51#INLINE C_INIT_INT
52        STEPMIN = 0.0001;
53        STEPMAX = 3600.0;
54        Autonomous = 0;
55        STEPSTART = STEPMIN;
56#ENDINLINE                                                                     
57
58#INLINE MATLAB_INIT_INT
59        STEPMIN = 0.0001;
60        STEPMAX = 3600.0;
61        Autonomous = 0;
62        STEPSTART = STEPMIN;
63#ENDINLINE                                                                     
Note: See TracBrowser for help on using the repository browser.