11 |
C maxCtrlArr2D :: number of 2-dim. generic control variables |
C maxCtrlArr2D :: number of 2-dim. generic control variables |
12 |
C maxCtrlArr3D :: number of 3-dim. generic control variables |
C maxCtrlArr3D :: number of 3-dim. generic control variables |
13 |
|
|
|
#ifdef ALLOW_GENARR2D_CONTROL |
|
14 |
integer maxCtrlArr2D |
integer maxCtrlArr2D |
15 |
parameter ( maxCtrlArr2D = 3 ) |
parameter ( maxCtrlArr2D = 1 ) |
|
#endif |
|
16 |
|
|
|
#ifdef ALLOW_GENARR3D_CONTROL |
|
17 |
integer maxCtrlArr3D |
integer maxCtrlArr3D |
18 |
parameter ( maxCtrlArr3D = 3 ) |
parameter ( maxCtrlArr3D = 1 ) |
|
#endif |
|
19 |
|
|
20 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
21 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |