5 |
c CTRL_SIZE.h |
c CTRL_SIZE.h |
6 |
c ================================================================== |
c ================================================================== |
7 |
|
|
8 |
|
#if (defined (ALLOW_GENARR2D_CONTROL) || defined (ALLOW_GENARR3D_CONTROL) || defined (ALLOW_GENTIM2D_CONTROL)) |
9 |
|
|
10 |
C Generic control variable array dimension |
C Generic control variable array dimension |
11 |
C ---------------------------------------- |
C ---------------------------------------- |
12 |
C |
C |
23 |
integer maxCtrlTim2D |
integer maxCtrlTim2D |
24 |
parameter ( maxCtrlTim2D = 1 ) |
parameter ( maxCtrlTim2D = 1 ) |
25 |
|
|
26 |
|
#endif |
27 |
|
|
28 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
29 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |
30 |
CEH3 ;;; End: *** |
CEH3 ;;; End: *** |