Last change
on this file since 3225 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.