28 |
#include "GRID.h" |
#include "GRID.h" |
29 |
|
|
30 |
#include "ctrl.h" |
#include "ctrl.h" |
|
|
|
|
#ifdef ALLOW_ECCO_OPTIMIZATION |
|
31 |
#include "optim.h" |
#include "optim.h" |
|
#endif |
|
32 |
|
|
33 |
c == routine arguments == |
c == routine arguments == |
34 |
|
|
43 |
|
|
44 |
c == local variables == |
c == local variables == |
45 |
|
|
|
#ifndef ALLOW_ECCO_OPTIMIZATION |
|
|
integer optimcycle |
|
|
#endif |
|
|
|
|
46 |
integer bi,bj |
integer bi,bj |
47 |
integer ip,jp |
integer ip,jp |
48 |
integer i,j,k |
integer i,j,k |
100 |
enddo |
enddo |
101 |
enddo |
enddo |
102 |
|
|
|
#ifndef ALLOW_ECCO_OPTIMIZATION |
|
|
optimcycle = 0 |
|
|
#endif |
|
|
|
|
103 |
c-- Only the master thread will do I/O. |
c-- Only the master thread will do I/O. |
104 |
_BEGIN_MASTER( mythid ) |
_BEGIN_MASTER( mythid ) |
105 |
|
|