source: palm/trunk/UTIL/chemistry/gasphase_preproc/kpp/int/rosenbrock_adj.def @ 4391

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

Merge of branch palm4u into trunk

File size: 355 bytes
Line 
1 
2#FUNCTION AGGREGATE
3#JACOBIAN SPARSE_LU_ROW
4
5#DOUBLE ON
6#INTFILE rosenbrock_adj
7
8#INLINE F77_GLOBAL
9      INTEGER Autonomous
10      COMMON /INTGDATA/ Autonomous
11      REAL*8 STEPSTART
12      COMMON /GDATA/ STEPSTART
13#ENDINLINE
14
15#INLINE F77_INIT
16        STEPMIN=0.0001
17        STEPMAX=3600.
18        Autonomous = 1
19        STEPSTART=STEPMIN
20#ENDINLINE
21
22
23
Note: See TracBrowser for help on using the repository browser.