source:
palm/tags/release-6.0/UTIL/chemistry/gasphase_preproc/kpp/int/rosenbrock_adj.def
Last change on this file was 2696, checked in by kanani, 7 years ago | |
---|---|
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.