1 |
|
|
2 |
|
c ================================================================== |
3 |
|
c HEADER MINIMIZATION |
4 |
|
c ================================================================== |
5 |
|
c |
6 |
|
c o Header for the minimization algorithm. |
7 |
|
c |
8 |
|
c started: Christian Eckert eckert@mit.edu 07-Apr-2000 |
9 |
|
c |
10 |
|
c changed: Christian Eckert eckert@mit.edu |
11 |
|
c |
12 |
|
c |
13 |
|
c ================================================================== |
14 |
|
c HEADER MINIMIZATION |
15 |
|
c ================================================================== |
16 |
|
|
17 |
|
common /minimization_l/ |
18 |
|
& fileavailable, |
19 |
|
& tileavailable |
20 |
|
logical tileavailable( nsx*npx, nsy*npy ) |
21 |
|
logical fileavailable( nsx*npx, nsy*npy ) |
22 |
|
|
23 |
|
c ================================================================== |
24 |
|
c END OF HEADER MINIMIZATION |
25 |
|
c ================================================================== |