SURFEX  V8_0
Surfex V8_0 release
 All Classes Files Functions Variables
default_data_cover.F90
Go to the documentation of this file.
1 !SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
2 !SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
3 !SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
4 !SFX_LIC for details. version 1.
5 SUBROUTINE default_data_cover
6 !
7 USE modd_surf_par
8 USE modd_data_cover_par
9 USE modd_data_cover
10 USE yomhook ,ONLY : lhook, dr_hook
11 USE parkind1 ,ONLY : jprb
12 IMPLICIT NONE
13 !
14 !* Declaration of local variables
15 ! ------------------------------
16 !
17 REAL(KIND=JPRB) :: zhook_handle
18 !
19 !------------------------------------------------------------------------------
20 !
21 IF (lhook) CALL dr_hook('DEFAULT_DATA_COVER',0,zhook_handle)
22 !
23 xdata_town(:) = (/ &
24  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, &
25  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
26  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
27  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
28  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
29  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
30  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
31  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
32  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
33  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
34  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
35  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
36  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
37  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
38  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
39  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.30, 0.10, 0.10, &
40  0.20, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
41  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
42  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
43  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
44  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
45  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
46  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
47  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
48  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
49  0.00, 0.00, 0.00, 1.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
50  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
51  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
52  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
53  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
54  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
55  0.00, 0.01, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, &
56  0.00, 0.01, 0.02, 0.01, 0.01, 0.01, 0.00, 0.00, 0.00, 0.01, &
57  0.00, 0.00, 0.00, 0.00, 0.01, 0.02, 0.01, 0.00, 0.00, 0.01, &
58  0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
59  0.00, 0.00, 0.02, 0.01, 0.00, 0.00, 0.01, 0.01, 0.00, 0.01, &
60  0.02, 0.01, 0.02, 0.00, 0.01, 0.02, 0.00, 0.00, 0.00, 0.00, &
61  0.00, 0.00, 0.00, 0.00, 0.00, 0.03, 0.00, 0.00, 0.00, 0.00, &
62  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
63  0.00, 0.01, 0.01, 0.04, 0.00, 0.00, 0.00, 0.02, 0.01, 0.01, &
64  0.01, 0.01, 0.01, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
65  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
66  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.01, 0.01, &
67  0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
68  0.00, 0.00, 0.03, 0.04, 0.01, 0.01, 0.02, 0.01, 0.02, 0.02, &
69  0.04, 0.05, 0.09, 0.04, 0.02, 0.02, 0.03, 0.05, 0.03, 0.02, &
70  0.00, 0.00, 0.00, 0.02, 0.01, 0.02, 0.04, 0.00, 0.02, 0.01, &
71  0.02, 0.04, 0.08, 0.05, 0.03, 0.02, 0.02, 0.02, 0.00, 0.02, &
72  0.02, 0.02, 0.01, 0.03, 0.03, 0.02, 0.02, 0.02, 0.02, 0.00, &
73  0.02, 0.01, 0.02, 0.01, 0.00, 0.02, 0.00, 0.00, 0.00, 0.00, &
74  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, &
75  0.01, 0.02, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.00, 0.02, &
76  0.02, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.02, &
77  0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
78  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
79  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.02, 0.01, &
80  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
81  1.00, 0.00, 0.01 &
82  /)
83 !-------------------------------------------------------------------
84 xdata_nature(:) = (/ &
85  0.00, 0.00, 0.00, 1.00, 1.00, 1.00, 0.00, 1.00, 1.00, 1.00, &
86  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
87  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
88  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
89  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
90  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
91  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
92  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
93  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
94  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
95  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
96  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
97  1.00, 1.00, 1.00, 0.80, 0.80, 0.00, 0.00, 0.00, 0.00, 0.00, &
98  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
99  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
100  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.70, 0.90, 0.90, &
101  0.80, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
102  1.00, 1.00, 1.00, 1.00, 1.00, 0.80, 1.00, 1.00, 1.00, 1.00, &
103  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
104  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
105  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
106  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
107  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
108  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.80, 0.80, 0.80, &
109  0.50, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
110  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
111  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
112  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
113  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
114  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
115  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
116  1.00, 0.99, 1.00, 0.99, 1.00, 1.00, 1.00, 1.00, 1.00, 0.99, &
117  1.00, 0.99, 0.98, 0.99, 0.99, 0.99, 1.00, 1.00, 1.00, 0.99, &
118  1.00, 1.00, 1.00, 1.00, 0.99, 0.98, 0.99, 1.00, 1.00, 0.99, &
119  1.00, 0.99, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
120  1.00, 1.00, 0.98, 0.99, 1.00, 1.00, 0.99, 0.99, 1.00, 0.99, &
121  0.98, 0.99, 0.98, 1.00, 0.99, 0.98, 1.00, 1.00, 1.00, 1.00, &
122  1.00, 1.00, 1.00, 1.00, 1.00, 0.97, 1.00, 1.00, 1.00, 1.00, &
123  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
124  1.00, 0.99, 0.99, 0.96, 1.00, 1.00, 1.00, 0.98, 0.99, 0.99, &
125  0.99, 0.99, 0.99, 0.99, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
126  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
127  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.99, 0.99, 0.99, &
128  0.99, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
129  1.00, 1.00, 0.97, 0.96, 0.99, 0.99, 0.98, 0.99, 0.98, 0.98, &
130  0.96, 0.95, 0.91, 0.96, 0.98, 0.98, 0.97, 0.95, 0.97, 0.98, &
131  1.00, 1.00, 1.00, 0.98, 0.99, 0.98, 0.96, 1.00, 0.98, 0.99, &
132  0.98, 0.96, 0.92, 0.95, 0.97, 0.98, 0.98, 0.98, 1.00, 0.98, &
133  0.98, 0.98, 0.99, 0.97, 0.97, 0.98, 0.98, 0.98, 0.98, 1.00, &
134  0.98, 0.99, 0.98, 0.99, 1.00, 0.98, 1.00, 1.00, 1.00, 1.00, &
135  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.99, &
136  0.99, 0.98, 0.99, 0.99, 0.99, 0.99, 0.99, 0.99, 1.00, 0.98, &
137  0.98, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.98, &
138  0.99, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
139  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.00, 0.45, &
140  0.05, 1.00, 0.01, 0.02, 0.03, 0.25, 1.00, 0.99, 0.98, 0.99, &
141  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
142  0.00, 1.00, 0.99 &
143  /)
144 !-------------------------------------------------------------------
145 xdata_water(:) = (/ &
146  0.00, 1.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
147  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
148  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
149  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
150  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
151  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
152  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
153  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
154  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
155  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
156  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
157  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
158  0.00, 0.00, 0.00, 0.20, 0.20, 0.00, 0.00, 0.00, 0.00, 0.00, &
159  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
160  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
161  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
162  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
163  0.00, 0.00, 0.00, 0.00, 0.00, 0.20, 0.00, 0.00, 0.00, 0.00, &
164  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
165  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
166  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
167  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
168  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
169  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.20, 0.20, 0.20, &
170  0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
171  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
172  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
173  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
174  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
175  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
176  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
177  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
178  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
179  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
180  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
181  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
182  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
183  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
184  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
185  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
186  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
187  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
188  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
189  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
190  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
191  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
192  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
193  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
194  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
195  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
196  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
197  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
198  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
199  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
200  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
201  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
202  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
203  0.00, 0.00, 0.00 &
204  /)
205 !-------------------------------------------------------------------
206 xdata_sea(:) = (/ &
207  1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
208  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
209  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
210  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
211  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
212  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
213  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
214  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
215  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
216  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
217  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
218  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
219  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
220  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
221  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
222  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
223  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
224  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
225  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
226  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
227  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
228  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
229  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
230  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
231  0.00, 0.50, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
232  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
233  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
234  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
235  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
236  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
237  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
238  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
239  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
240  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
241  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
242  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
243  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
244  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
245  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
246  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
247  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
248  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
249  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
250  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
251  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
252  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
253  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
254  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
255  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
256  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
257  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
258  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
259  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
260  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
261  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 0.55, &
262  0.95, 0.00, 0.99, 0.98, 0.97, 0.75, 0.00, 0.00, 0.00, 0.00, &
263  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
264  0.00, 0.00, 0.00 &
265  /)
266 !-------------------------------------------------------------------
267 WHERE(xdata_town>0.) xdata_z0_town(:) = 1.000
268 xdata_z0_town(151) = 3.000
269 xdata_z0_town(155) = 2.000
270 xdata_z0_town(156) = 0.500
271 xdata_z0_town(157) = 2.000
272 xdata_z0_town(158) = 0.010
273 xdata_z0_town(159) = 0.100
274 xdata_z0_town(160) = 0.500
275 xdata_z0_town(254) = 2.000
276 xdata_z0_town(255) = 2.000
277 !-------------------------------------------------------------------
278 WHERE(xdata_town>0.) xdata_bld_height(:) = 10.
279 xdata_bld_height(151) = 30.
280 xdata_bld_height(155) = 20.
281 xdata_bld_height(156) = 5.
282 xdata_bld_height(157) = 20.
283 xdata_bld_height(159) = 5.
284 xdata_bld_height(160) = 5.
285 xdata_bld_height(254) = 20.
286 xdata_bld_height(255) = 20.
287 !-------------------------------------------------------------------
288 WHERE(xdata_town>0.) xdata_wall_o_hor(:) =0.50
289 xdata_wall_o_hor( 7) =0.30
290 xdata_wall_o_hor(151) =0.90
291 xdata_wall_o_hor(152) =0.30
292 xdata_wall_o_hor(153) =0.30
293 xdata_wall_o_hor(154) =0.30
294 xdata_wall_o_hor(155) =0.45
295 xdata_wall_o_hor(156) =0.09
296 xdata_wall_o_hor(157) =0.90
297 xdata_wall_o_hor(158) =0.10
298 xdata_wall_o_hor(159) =0.10
299 xdata_wall_o_hor(160) =0.10
300 xdata_wall_o_hor(161) =1.00
301 xdata_wall_o_hor(254) =1.50
302 xdata_wall_o_hor(255) =1.50
303 xdata_wall_o_hor(561) =0.28
304 xdata_wall_o_hor(562) =0.27
305 xdata_wall_o_hor(563) =0.25
306 xdata_wall_o_hor(564) =0.16
307 xdata_wall_o_hor(565) =0.31
308 xdata_wall_o_hor(566) =0.28
309 xdata_wall_o_hor(567) =0.31
310 xdata_wall_o_hor(568) =0.25
311 xdata_wall_o_hor(569) =0.24
312 xdata_wall_o_hor(570) =0.25
313 xdata_wall_o_hor(571) =0.28
314 !-------------------------------------------------------------------
315 WHERE(xdata_town>0.) xdata_bld(:) =0.50
316 xdata_bld( 7) =0.30
317 xdata_bld(151) =0.45
318 xdata_bld(152) =0.30
319 xdata_bld(153) =0.30
320 xdata_bld(154) =0.30
321 xdata_bld(155) =0.45
322 xdata_bld(156) =0.09
323 xdata_bld(157) =0.45
324 xdata_bld(158) =0.10
325 xdata_bld(159) =0.10
326 xdata_bld(160) =0.10
327 xdata_bld(254) =0.60
328 xdata_bld(255) =0.60
329 xdata_bld(561) =0.28
330 xdata_bld(562) =0.27
331 xdata_bld(563) =0.25
332 xdata_bld(564) =0.16
333 xdata_bld(565) =0.31
334 xdata_bld(566) =0.28
335 xdata_bld(567) =0.31
336 xdata_bld(568) =0.25
337 xdata_bld(569) =0.24
338 xdata_bld(570) =0.25
339 xdata_bld(571) =0.28
340 !-------------------------------------------------------------------
341 WHERE(xdata_town>0.) xdata_garden(:) =0.00
342 xdata_garden( 7) =0.40
343 xdata_garden(151) =0.10
344 xdata_garden(152) =0.40
345 xdata_garden(153) =0.40
346 xdata_garden(154) =0.40
347 xdata_garden(155) =0.10
348 xdata_garden(156) =0.10
349 xdata_garden(157) =0.10
350 xdata_garden(561) =0.44
351 xdata_garden(562) =0.45
352 xdata_garden(563) =0.51
353 xdata_garden(564) =0.48
354 xdata_garden(565) =0.37
355 xdata_garden(566) =0.44
356 xdata_garden(567) =0.38
357 xdata_garden(568) =0.49
358 xdata_garden(569) =0.52
359 xdata_garden(570) =0.51
360 xdata_garden(571) =0.44
361 !-------------------------------------------------------------------
362 WHERE(xdata_town>0.) xdata_alb_roof(:) =0.15
363 !-------------------------------------------------------------------
364 WHERE(xdata_town>0.) xdata_alb_road(:) =0.08
365 !-------------------------------------------------------------------
366 WHERE(xdata_town>0.) xdata_alb_wall(:) =0.25
367 !-------------------------------------------------------------------
368 WHERE(xdata_town>0.) xdata_emis_roof(:) =0.90
369 !-------------------------------------------------------------------
370 WHERE(xdata_town>0.) xdata_emis_road(:) =0.94
371 !-------------------------------------------------------------------
372 WHERE(xdata_town>0.) xdata_emis_wall(:) =0.85
373 !-------------------------------------------------------------------
374 WHERE(xdata_town>0.) xdata_hc_roof(:, 1) =2.11 * 1.e6
375 !-------------------------------------------------------------------
376 WHERE(xdata_town>0.) xdata_hc_roof(:, 2) =0.28 * 1.e6
377 !-------------------------------------------------------------------
378 WHERE(xdata_town>0.) xdata_hc_roof(:, 3) =0.29 * 1.e6
379 !-------------------------------------------------------------------
380 WHERE(xdata_town>0.) xdata_tc_roof(:, 1) =1.5100
381 !-------------------------------------------------------------------
382 WHERE(xdata_town>0.) xdata_tc_roof(:, 2) =0.0800
383 !-------------------------------------------------------------------
384 WHERE(xdata_town>0.) xdata_tc_roof(:, 3) =0.0500
385 !-------------------------------------------------------------------
386 WHERE(xdata_town>0.) xdata_d_roof(:, 1) =0.050
387 !-------------------------------------------------------------------
388 WHERE(xdata_town>0.) xdata_d_roof(:, 2) =0.400
389 !-------------------------------------------------------------------
390 WHERE(xdata_town>0.) xdata_d_roof(:, 3) =0.100
391 !-------------------------------------------------------------------
392 WHERE(xdata_town>0.) xdata_hc_road(:, 1) =1.94 * 1.e6
393 !-------------------------------------------------------------------
394 WHERE(xdata_town>0.) xdata_hc_road(:, 2) =1.28 * 1.e6
395 !-------------------------------------------------------------------
396 WHERE(xdata_town>0.) xdata_hc_road(:, 3) =1.28 * 1.e6
397 !-------------------------------------------------------------------
398 WHERE(xdata_town>0.) xdata_tc_road(:, 1) =0.7454
399 !-------------------------------------------------------------------
400 WHERE(xdata_town>0.) xdata_tc_road(:, 2) =0.2513
401 !-------------------------------------------------------------------
402 WHERE(xdata_town>0.) xdata_tc_road(:, 3) =0.2513
403 !-------------------------------------------------------------------
404 WHERE(xdata_town>0.) xdata_d_road(:, 1) =0.050
405 !-------------------------------------------------------------------
406 WHERE(xdata_town>0.) xdata_d_road(:, 2) =0.100
407 !-------------------------------------------------------------------
408 WHERE(xdata_town>0.) xdata_d_road(:, 3) =1.000
409 !-------------------------------------------------------------------
410 WHERE(xdata_town>0.) xdata_hc_wall(:, 1) =1.55 * 1.e6
411 !-------------------------------------------------------------------
412 WHERE(xdata_town>0.) xdata_hc_wall(:, 2) =1.55 * 1.e6
413 !-------------------------------------------------------------------
414 WHERE(xdata_town>0.) xdata_hc_wall(:, 3) =0.29 * 1.e6
415 !-------------------------------------------------------------------
416 WHERE(xdata_town>0.) xdata_tc_wall(:, 1) =0.9338
417 !-------------------------------------------------------------------
418 WHERE(xdata_town>0.) xdata_tc_wall(:, 2) =0.9338
419 !-------------------------------------------------------------------
420 WHERE(xdata_town>0.) xdata_tc_wall(:, 3) =0.0500
421 !-------------------------------------------------------------------
422 WHERE(xdata_town>0.) xdata_d_wall(:, 1) =0.020
423 !-------------------------------------------------------------------
424 WHERE(xdata_town>0.) xdata_d_wall(:, 2) =0.125
425 !-------------------------------------------------------------------
426 WHERE(xdata_town>0.) xdata_d_wall(:, 3) =0.050
427 !-------------------------------------------------------------------
428 WHERE(xdata_town>0.) xdata_h_traffic(:) = 10.
429 xdata_h_traffic(151) = 20.
430 xdata_h_traffic(156) = 30.
431 xdata_h_traffic(159) = 0.
432 xdata_h_traffic(160) = 0.
433 xdata_h_traffic(161) = 0.
434 xdata_h_traffic(254) = 0.
435 xdata_h_traffic(255) = 0.
436 !-------------------------------------------------------------------
437 WHERE(xdata_town>0.) xdata_le_traffic(:) = 0.
438 !-------------------------------------------------------------------
439 WHERE(xdata_town>0.) xdata_h_industry(:) = 5.
440 xdata_h_industry(151) = 10.
441 xdata_h_industry(155) = 20.
442 xdata_h_industry(156) = 0.
443 xdata_h_industry(157) = 20.
444 xdata_h_industry(158) = 0.
445 xdata_h_industry(159) = 0.
446 xdata_h_industry(160) = 0.
447 xdata_h_industry(161) = 0.
448 xdata_h_industry(254) = 0.
449 xdata_h_industry(255) = 0.
450 !-------------------------------------------------------------------
451 WHERE(xdata_town>0.) xdata_le_industry(:) = 0.
452 !-------------------------------------------------------------------
453 xdata_vegtype(:, 1) = (/ &
454  0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.90, 0.00, &
455  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
456  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
457  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.10, &
458  0.00, 0.00, 0.00, 0.10, 0.00, 0.00, 0.00, 0.30, 0.20, 0.00, &
459  0.20, 0.00, 0.20, 0.00, 0.00, 0.20, 0.00, 0.30, 0.00, 0.00, &
460  0.00, 0.00, 0.00, 0.10, 0.00, 0.10, 0.30, 0.20, 0.20, 0.30, &
461  0.30, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.60, &
462  0.50, 0.70, 0.20, 0.30, 0.40, 0.30, 0.70, 0.00, 0.00, 0.00, &
463  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
464  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
465  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
466  0.00, 0.00, 0.90, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
467  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
468  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
469  0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 1.00, 0.00, 1.00, 0.00, &
470  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
471  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, 0.50, 0.50, 0.00, &
472  0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
473  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
474  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
475  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.20, &
476  0.00, 0.00, 0.50, 0.00, 0.30, 0.10, 0.10, 0.00, 0.00, 0.40, &
477  0.50, 0.50, 0.20, 0.10, 0.00, 0.80, 1.00, 0.00, 0.00, 0.00, &
478  0.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
479  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
480  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
481  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
482  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
483  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
484  0.06, 0.01, 0.00, 0.03, 0.03, 0.00, 0.00, 0.00, 0.00, 0.05, &
485  0.03, 0.05, 0.00, 0.01, 0.02, 0.01, 0.02, 0.01, 0.01, 0.00, &
486  0.00, 0.02, 0.08, 0.04, 0.07, 0.04, 0.30, 0.02, 0.05, 0.09, &
487  0.06, 0.03, 0.04, 0.04, 0.11, 0.19, 0.12, 0.25, 0.20, 0.11, &
488  0.05, 0.15, 0.13, 0.20, 0.10, 0.10, 0.10, 0.05, 0.04, 0.40, &
489  0.08, 0.09, 0.08, 0.00, 0.10, 0.50, 0.55, 0.60, 0.70, 0.05, &
490  0.06, 0.04, 0.09, 0.07, 0.14, 0.16, 0.30, 0.45, 0.55, 0.57, &
491  0.70, 0.70, 0.65, 0.75, 0.85, 0.30, 0.39, 0.43, 0.30, 0.28, &
492  0.15, 0.33, 0.54, 0.25, 0.35, 0.48, 0.44, 0.40, 0.35, 0.15, &
493  0.15, 0.03, 0.04, 0.30, 0.20, 0.07, 0.15, 0.17, 0.35, 0.30, &
494  0.30, 0.25, 0.15, 0.20, 0.15, 0.10, 0.30, 0.40, 0.60, 0.65, &
495  0.60, 0.18, 0.45, 0.55, 0.63, 0.23, 0.45, 0.32, 0.50, 0.30, &
496  0.22, 0.45, 0.57, 0.55, 0.30, 0.50, 0.55, 0.50, 0.27, 0.10, &
497  0.22, 0.77, 0.63, 0.74, 0.52, 0.65, 0.88, 0.72, 0.80, 0.90, &
498  0.89, 0.07, 0.07, 0.09, 0.18, 0.15, 0.15, 0.12, 0.15, 0.15, &
499  0.20, 0.12, 0.15, 0.14, 0.08, 0.06, 0.12, 0.29, 0.15, 0.09, &
500  0.09, 0.09, 0.09, 0.13, 0.06, 0.06, 0.13, 0.14, 0.09, 0.02, &
501  0.25, 0.15, 0.35, 0.12, 0.17, 0.11, 0.43, 0.18, 0.13, 0.10, &
502  0.08, 0.06, 0.22, 0.07, 0.06, 0.07, 0.04, 0.01, 0.06, 0.20, &
503  0.03, 0.05, 0.06, 0.09, 0.42, 0.42, 0.27, 0.14, 0.08, 0.22, &
504  0.07, 0.16, 0.25, 0.48, 0.45, 0.07, 0.21, 0.16, 0.37, 0.12, &
505  0.10, 0.27, 0.25, 0.12, 0.33, 0.14, 0.14, 0.42, 0.15, 0.34, &
506  0.06, 0.32, 0.03, 0.08, 0.09, 0.17, 0.32, 0.51, 0.15, 0.08, &
507  0.72, 0.16, 0.00, 0.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.80, &
508  0.76, 0.89, 0.90, 0.97, 0.81, 0.60, 0.85, 0.00, 0.00, 0.01, &
509  1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
510  0.02, 0.02, 0.02, 0.05, 0.14, 0.01, 0.13, 0.16, 0.00, 0.02, &
511  0.04, 0.47, 0.46 &
512  /)
513 !-------------------------------------------------------------------
514 xdata_vegtype(:, 2) = (/ &
515  0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
516  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
517  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
518  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
519  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
520  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
521  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
522  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
523  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
524  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
525  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
526  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
527  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
528  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
529  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
530  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
531  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
532  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
533  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
534  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
535  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
536  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
537  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
538  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
539  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
540  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
541  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
542  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
543  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
544  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
545  0.06, 0.01, 0.00, 0.04, 0.04, 0.00, 0.01, 0.00, 0.01, 0.05, &
546  0.03, 0.05, 0.00, 0.02, 0.03, 0.01, 0.02, 0.02, 0.02, 0.04, &
547  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
548  0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, &
549  0.00, 0.00, 0.00, 0.40, 0.30, 0.20, 0.15, 0.10, 0.08, 0.05, &
550  0.00, 0.00, 0.00, 0.00, 0.00, 0.05, 0.05, 0.05, 0.10, 0.00, &
551  0.00, 0.00, 0.00, 0.00, 0.01, 0.02, 0.05, 0.05, 0.05, 0.13, &
552  0.05, 0.05, 0.05, 0.05, 0.05, 0.00, 0.01, 0.02, 0.00, 0.02, &
553  0.01, 0.00, 0.01, 0.00, 0.00, 0.02, 0.06, 0.00, 0.00, 0.00, &
554  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
555  0.00, 0.00, 0.00, 0.00, 0.00, 0.02, 0.05, 0.05, 0.05, 0.05, &
556  0.05, 0.02, 0.05, 0.05, 0.07, 0.02, 0.05, 0.23, 0.05, 0.05, &
557  0.03, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.03, 0.02, &
558  0.03, 0.08, 0.27, 0.16, 0.23, 0.10, 0.07, 0.21, 0.12, 0.00, &
559  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
560  0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, &
561  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, &
562  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
563  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
564  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.03, &
565  0.00, 0.01, 0.03, 0.06, 0.05, 0.01, 0.02, 0.01, 0.03, 0.01, &
566  0.01, 0.02, 0.02, 0.01, 0.02, 0.01, 0.01, 0.02, 0.01, 0.03, &
567  0.01, 0.03, 0.00, 0.00, 0.00, 0.00, 0.00, 0.03, 0.01, 0.00, &
568  0.00, 0.07, 1.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.19, &
569  0.19, 0.09, 0.00, 0.02, 0.12, 0.25, 0.00, 0.00, 0.00, 0.00, &
570  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
571  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
572  0.02, 0.00, 0.00 &
573  /)
574 !-------------------------------------------------------------------
575 xdata_vegtype(:, 3) = (/ &
576  0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, 0.00, &
577  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
578  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
579  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
580  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
581  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
582  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
583  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
584  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
585  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
586  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
587  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
588  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
589  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
590  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
591  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
592  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
593  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
594  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
595  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
596  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
597  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
598  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
599  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
600  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
601  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
602  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
603  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
604  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
605  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
606  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
607  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
608  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
609  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
610  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
611  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
612  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
613  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
614  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
615  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
616  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
617  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
618  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
619  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
620  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
621  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
622  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
623  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
624  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
625  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
626  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
627  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
628  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
629  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
630  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.10, 1.00, 0.00, 0.00, &
631  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
632  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
633  0.00, 0.00, 0.00 &
634  /)
635 !-------------------------------------------------------------------
636 xdata_vegtype(:, 4) = (/ &
637  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, 0.00, 0.00, 0.00, &
638  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
639  0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, 0.50, &
640  0.00, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
641  0.00, 0.00, 0.00, 0.40, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
642  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.20, 0.00, 0.00, &
643  0.00, 0.00, 0.00, 0.00, 0.00, 0.30, 0.00, 0.00, 0.00, 0.00, &
644  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
645  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
646  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
647  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
648  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
649  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
650  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
651  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
652  0.50, 0.50, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, &
653  0.20, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
654  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, 0.50, 0.50, 0.50, &
655  0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.10, 0.10, 0.10, 0.10, &
656  0.10, 0.40, 0.40, 0.40, 0.40, 0.00, 0.00, 0.30, 1.00, 1.00, &
657  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.00, 0.00, 0.00, &
658  0.00, 0.00, 0.00, 0.00, 0.50, 0.50, 0.50, 0.50, 0.50, 0.00, &
659  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.20, &
660  0.50, 0.00, 0.60, 0.00, 0.60, 0.00, 0.00, 0.50, 0.00, 0.00, &
661  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
662  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
663  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
664  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
665  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
666  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
667  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
668  0.00, 0.00, 0.00, 0.40, 0.00, 0.00, 0.10, 0.00, 0.14, 0.25, &
669  0.51, 0.49, 0.11, 0.13, 0.07, 0.54, 0.00, 0.00, 0.31, 0.00, &
670  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
671  0.00, 0.15, 0.39, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
672  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.08, &
673  0.22, 0.04, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
674  0.00, 0.00, 0.00, 0.00, 0.00, 0.14, 0.00, 0.00, 0.00, 0.00, &
675  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
676  0.00, 0.16, 0.00, 0.00, 0.00, 0.00, 0.35, 0.00, 0.00, 0.07, &
677  0.00, 0.07, 0.00, 0.05, 0.04, 0.00, 0.00, 0.00, 0.00, 0.00, &
678  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
679  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.07, 0.00, 0.00, &
680  0.10, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
681  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.04, 0.00, &
682  0.00, 0.16, 0.44, 0.00, 0.17, 0.23, 0.14, 0.28, 0.00, 0.00, &
683  0.00, 0.00, 0.00, 0.06, 0.10, 0.13, 0.19, 0.00, 0.07, 0.00, &
684  0.00, 0.00, 0.00, 0.09, 0.02, 0.03, 0.00, 0.25, 0.00, 0.04, &
685  0.03, 0.01, 0.00, 0.10, 0.09, 0.14, 0.04, 0.02, 0.12, 0.00, &
686  0.13, 0.35, 0.04, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, &
687  0.00, 0.00, 0.00, 0.00, 0.00, 0.02, 0.02, 0.00, 0.00, 0.00, &
688  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
689  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
690  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
691  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
692  0.00, 0.00, 0.00, 0.00, 0.00, 0.22, 0.00, 0.00, 0.00, 0.20, &
693  0.18, 0.21, 0.26, 0.15, 0.04, 0.00, 0.04, 0.19, 0.07, 0.07, &
694  0.00, 0.00, 0.00 &
695  /)
696 !-------------------------------------------------------------------
697 xdata_vegtype(:, 5) = (/ &
698  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
699  1.00, 0.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
700  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
701  0.50, 0.00, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
702  0.50, 0.50, 0.00, 0.00, 0.50, 0.50, 0.00, 0.00, 0.00, 0.00, &
703  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.30, 0.30, &
704  0.00, 0.00, 0.00, 0.30, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
705  0.00, 0.00, 0.00, 0.20, 0.20, 0.00, 0.20, 0.00, 0.00, 0.00, &
706  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
707  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
708  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
709  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
710  0.00, 0.00, 0.00, 0.00, 0.20, 0.00, 0.00, 0.00, 0.00, 0.00, &
711  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
712  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
713  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
714  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
715  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
716  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
717  0.00, 0.00, 0.00, 0.00, 0.00, 0.40, 0.40, 0.00, 0.00, 0.00, &
718  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 1.00, 1.00, &
719  1.00, 1.00, 1.00, 0.00, 0.50, 0.50, 0.50, 0.50, 0.50, 0.00, &
720  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
721  0.00, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.20, 0.00, &
722  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
723  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
724  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
725  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
726  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
727  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
728  0.27, 0.07, 0.14, 0.88, 0.84, 0.15, 0.85, 0.18, 0.82, 0.73, &
729  0.73, 0.71, 0.18, 0.48, 0.86, 0.86, 0.80, 0.87, 0.78, 0.13, &
730  0.07, 0.00, 0.24, 0.55, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
731  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
732  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, &
733  0.06, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.09, &
734  0.00, 0.00, 0.00, 0.00, 0.00, 0.02, 0.00, 0.00, 0.00, 0.00, &
735  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, &
736  0.05, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
737  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
738  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
739  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
740  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
741  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
742  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
743  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
744  0.05, 0.13, 0.04, 0.06, 0.05, 0.05, 0.00, 0.00, 0.00, 0.08, &
745  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, &
746  0.02, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
747  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
748  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
749  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
750  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
751  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
752  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
753  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.40, 0.02, 0.04, 0.00, &
754  0.00, 0.00, 0.34, 0.07, 0.00, 0.48, 0.00, 0.00, 0.00, 0.00, &
755  0.00, 0.00, 0.00 &
756  /)
757 !-------------------------------------------------------------------
758 xdata_vegtype(:, 6) = (/ &
759  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
760  0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
761  1.00, 1.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
762  0.00, 0.00, 0.00, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.00, &
763  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.30, &
764  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.30, 0.00, 0.00, 0.00, &
765  0.30, 0.30, 0.00, 0.00, 0.30, 0.00, 0.00, 0.00, 0.00, 0.00, &
766  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
767  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
768  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
769  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
770  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
771  0.00, 0.00, 0.00, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
772  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
773  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
774  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
775  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
776  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
777  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
778  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
779  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
780  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
781  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
782  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
783  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
784  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
785  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
786  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
787  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
788  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
789  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
790  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
791  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
792  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
793  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
794  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
795  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
796  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
797  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
798  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
799  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
800  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
801  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
802  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
803  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
804  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
805  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
806  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
807  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
808  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
809  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
810  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
811  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
812  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
813  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
814  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
815  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
816  0.00, 0.00, 0.00 &
817  /)
818 !-------------------------------------------------------------------
819 xdata_vegtype(:, 7) = (/ &
820  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
821  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
822  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
823  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.20, 0.00, 0.00, &
824  0.00, 0.50, 0.50, 0.00, 0.00, 0.00, 0.40, 0.00, 0.00, 0.00, &
825  0.00, 0.00, 0.00, 0.00, 0.70, 0.00, 0.00, 0.00, 0.00, 0.50, &
826  0.50, 0.00, 0.40, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
827  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
828  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
829  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
830  0.00, 0.00, 0.00, 0.00, 0.50, 0.90, 0.50, 0.90, 1.00, 0.00, &
831  0.50, 0.00, 1.00, 0.90, 0.70, 0.90, 0.80, 0.30, 0.80, 1.00, &
832  1.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
833  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
834  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
835  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
836  0.00, 0.90, 0.90, 0.90, 0.90, 1.00, 1.00, 0.90, 0.90, 0.90, &
837  1.00, 0.80, 0.90, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
838  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.90, 0.90, 0.90, 0.90, &
839  0.90, 0.60, 0.60, 0.60, 0.60, 0.60, 0.60, 0.40, 0.00, 0.00, &
840  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
841  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
842  0.00, 0.00, 0.00, 0.00, 0.00, 0.50, 0.00, 0.00, 0.00, 0.00, &
843  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
844  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
845  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
846  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
847  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
848  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
849  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
850  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, &
851  0.03, 0.01, 0.00, 0.01, 0.02, 0.00, 0.03, 0.02, 0.03, 0.03, &
852  0.00, 0.05, 0.08, 0.01, 0.04, 0.02, 0.00, 0.00, 0.01, 0.01, &
853  0.01, 0.00, 0.01, 0.00, 0.00, 0.01, 0.01, 0.00, 0.01, 0.03, &
854  0.01, 0.02, 0.02, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.10, &
855  0.03, 0.00, 0.05, 0.04, 0.00, 0.01, 0.09, 0.01, 0.03, 0.02, &
856  0.29, 0.10, 0.30, 0.05, 0.06, 0.01, 0.02, 0.00, 0.00, 0.00, &
857  0.00, 0.03, 0.00, 0.01, 0.00, 0.09, 0.04, 0.04, 0.04, 0.02, &
858  0.12, 0.04, 0.15, 0.05, 0.00, 0.00, 0.00, 0.00, 0.04, 0.09, &
859  0.08, 0.05, 0.14, 0.26, 0.04, 0.09, 0.15, 0.19, 0.34, 0.19, &
860  0.14, 0.14, 0.09, 0.06, 0.09, 0.30, 0.00, 0.00, 0.00, 0.00, &
861  0.24, 0.35, 0.12, 0.09, 0.06, 0.04, 0.05, 0.01, 0.00, 0.04, &
862  0.05, 0.01, 0.00, 0.01, 0.04, 0.12, 0.03, 0.09, 0.06, 0.12, &
863  0.04, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
864  0.00, 0.35, 0.05, 0.05, 0.02, 0.66, 0.67, 0.55, 0.57, 0.52, &
865  0.39, 0.39, 0.20, 0.18, 0.10, 0.33, 0.27, 0.09, 0.42, 0.45, &
866  0.65, 0.34, 0.53, 0.55, 0.58, 0.45, 0.17, 0.62, 0.55, 0.78, &
867  0.58, 0.69, 0.57, 0.63, 0.62, 0.71, 0.37, 0.32, 0.64, 0.56, &
868  0.80, 0.79, 0.72, 0.62, 0.61, 0.67, 0.80, 0.84, 0.54, 0.43, &
869  0.72, 0.55, 0.76, 0.63, 0.52, 0.24, 0.61, 0.74, 0.49, 0.42, &
870  0.49, 0.61, 0.44, 0.35, 0.36, 0.75, 0.66, 0.63, 0.34, 0.58, &
871  0.46, 0.13, 0.53, 0.34, 0.14, 0.53, 0.24, 0.08, 0.32, 0.18, &
872  0.32, 0.39, 0.00, 0.00, 0.00, 0.00, 0.07, 0.00, 0.15, 0.03, &
873  0.00, 0.02, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
874  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
875  0.00, 0.00, 0.00, 0.00, 0.00, 0.05, 0.00, 0.00, 0.00, 0.10, &
876  0.20, 0.39, 0.19, 0.35, 0.14, 0.20, 0.15, 0.29, 0.69, 0.53, &
877  0.19, 0.01, 0.01 &
878  /)
879 !-------------------------------------------------------------------
880 xdata_vegtype(:, 8) = (/ &
881  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
882  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
883  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
884  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.30, 0.00, 0.00, &
885  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.10, 0.00, 0.00, 0.00, &
886  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.70, 0.00, 0.00, 0.20, &
887  0.20, 0.00, 0.30, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
888  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
889  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
890  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
891  0.00, 0.00, 0.00, 0.00, 0.50, 0.10, 0.50, 0.10, 0.00, 1.00, &
892  0.50, 1.00, 0.00, 0.10, 0.30, 0.10, 0.20, 0.70, 0.20, 0.00, &
893  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
894  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
895  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
896  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
897  0.00, 0.10, 0.10, 0.10, 0.10, 0.00, 0.00, 0.10, 0.10, 0.10, &
898  0.00, 0.20, 0.10, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
899  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
900  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
901  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
902  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
903  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
904  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
905  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
906  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
907  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
908  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
909  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
910  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
911  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
912  0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.02, &
913  0.02, 0.01, 0.01, 0.01, 0.00, 0.01, 0.00, 0.02, 0.01, 0.01, &
914  0.01, 0.00, 0.00, 0.00, 0.00, 0.01, 0.01, 0.00, 0.01, 0.00, &
915  0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
916  0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.01, 0.00, 0.00, 0.01, &
917  0.01, 0.00, 0.05, 0.00, 0.02, 0.01, 0.00, 0.00, 0.00, 0.00, &
918  0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.01, 0.01, 0.00, 0.01, &
919  0.03, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.01, &
920  0.02, 0.01, 0.01, 0.01, 0.00, 0.01, 0.00, 0.01, 0.01, 0.01, &
921  0.01, 0.01, 0.01, 0.01, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, &
922  0.01, 0.01, 0.01, 0.01, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, &
923  0.00, 0.00, 0.00, 0.00, 0.01, 0.01, 0.00, 0.01, 0.01, 0.01, &
924  0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
925  0.00, 0.45, 0.68, 0.73, 0.18, 0.01, 0.02, 0.01, 0.04, 0.01, &
926  0.02, 0.02, 0.02, 0.02, 0.15, 0.01, 0.02, 0.01, 0.10, 0.08, &
927  0.05, 0.01, 0.02, 0.05, 0.02, 0.08, 0.47, 0.03, 0.05, 0.00, &
928  0.01, 0.01, 0.00, 0.01, 0.14, 0.09, 0.01, 0.03, 0.05, 0.04, &
929  0.01, 0.01, 0.03, 0.01, 0.00, 0.05, 0.01, 0.00, 0.02, 0.01, &
930  0.00, 0.03, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.00, &
931  0.01, 0.00, 0.02, 0.01, 0.00, 0.02, 0.01, 0.01, 0.01, 0.01, &
932  0.00, 0.01, 0.01, 0.01, 0.01, 0.02, 0.00, 0.01, 0.01, 0.01, &
933  0.02, 0.00, 0.05, 0.09, 0.04, 0.03, 0.03, 0.02, 0.01, 0.03, &
934  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
935  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
936  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
937  0.00, 0.01, 0.01, 0.05, 0.08, 0.00, 0.02, 0.01, 0.01, 0.07, &
938  0.01, 0.01, 0.04 &
939  /)
940 !-------------------------------------------------------------------
941 xdata_vegtype(:, 9) = (/ &
942  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
943  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
944  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
945  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
946  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
947  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
948  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
949  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
950  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
951  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
952  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
953  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
954  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
955  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
956  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
957  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
958  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
959  0.00, 0.00, 0.00, 1.00, 1.00, 1.00, 0.00, 0.00, 0.00, 0.00, &
960  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
961  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
962  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
963  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
964  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
965  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
966  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
967  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
968  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
969  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
970  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
971  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
972  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
973  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
974  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
975  0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.01, 0.00, 0.01, 0.00, &
976  0.00, 0.01, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
977  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
978  0.00, 0.00, 0.00, 0.00, 0.02, 0.00, 0.00, 0.00, 0.00, 0.00, &
979  0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.10, 0.00, 0.00, 0.00, &
980  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
981  0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.02, &
982  0.02, 0.00, 0.00, 0.01, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, &
983  0.01, 0.00, 0.02, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
984  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
985  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
986  0.00, 0.00, 0.18, 0.06, 0.48, 0.01, 0.01, 0.03, 0.07, 0.09, &
987  0.06, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.02, 0.00, 0.00, &
988  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
989  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.04, 0.01, 0.00, 0.01, &
990  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
991  0.00, 0.00, 0.00, 0.00, 0.00, 0.10, 0.04, 0.05, 0.00, 0.00, &
992  0.00, 0.02, 0.00, 0.04, 0.00, 0.01, 0.04, 0.01, 0.01, 0.01, &
993  0.01, 0.02, 0.02, 0.02, 0.03, 0.02, 0.02, 0.02, 0.02, 0.03, &
994  0.00, 0.00, 0.85, 0.76, 0.77, 0.63, 0.40, 0.31, 0.63, 0.82, &
995  0.26, 0.72, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
996  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
997  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
998  0.00, 0.00, 0.00, 0.00, 0.02, 0.00, 0.08, 0.07, 0.00, 0.00, &
999  0.10, 0.00, 0.00 &
1000  /)
1001 !-------------------------------------------------------------------
1002 xdata_vegtype(:, 10) = (/ &
1003  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.10, 0.00, &
1004  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1005  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1006  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1007  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1008  0.00, 0.00, 0.00, 0.70, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1009  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1010  0.00, 0.00, 0.00, 0.00, 0.60, 0.00, 0.00, 0.30, 0.60, 0.40, &
1011  0.00, 0.00, 0.80, 0.70, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1012  0.00, 1.00, 1.00, 0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, &
1013  1.00, 1.00, 1.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1014  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1015  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1016  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1017  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1018  0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 1.00, 0.00, 0.00, &
1019  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1020  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, &
1021  0.00, 1.00, 1.00, 1.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1022  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.30, 0.00, 0.00, &
1023  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1024  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.80, &
1025  1.00, 1.00, 0.50, 1.00, 0.70, 0.40, 0.90, 1.00, 1.00, 0.40, &
1026  0.00, 0.00, 0.20, 0.30, 0.40, 0.20, 0.00, 0.00, 0.00, 0.00, &
1027  1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1028  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1029  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1030  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1031  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1032  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1033  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1034  0.00, 0.05, 0.00, 0.05, 0.00, 0.00, 0.02, 0.00, 0.01, 0.53, &
1035  0.40, 0.30, 0.48, 0.26, 0.33, 0.27, 0.01, 0.01, 0.32, 0.10, &
1036  0.03, 0.25, 0.55, 0.38, 0.23, 0.44, 0.33, 0.11, 0.00, 0.61, &
1037  0.71, 0.59, 0.36, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.35, &
1038  0.76, 0.77, 0.75, 0.82, 0.57, 0.31, 0.22, 0.24, 0.12, 0.75, &
1039  0.32, 0.75, 0.48, 0.84, 0.59, 0.73, 0.50, 0.40, 0.33, 0.25, &
1040  0.22, 0.18, 0.25, 0.17, 0.09, 0.41, 0.28, 0.24, 0.48, 0.49, &
1041  0.55, 0.42, 0.21, 0.52, 0.49, 0.39, 0.40, 0.45, 0.46, 0.55, &
1042  0.64, 0.75, 0.74, 0.33, 0.59, 0.64, 0.35, 0.48, 0.24, 0.35, &
1043  0.36, 0.49, 0.48, 0.32, 0.67, 0.43, 0.47, 0.43, 0.28, 0.30, &
1044  0.07, 0.37, 0.22, 0.23, 0.21, 0.60, 0.37, 0.40, 0.44, 0.51, &
1045  0.54, 0.40, 0.32, 0.32, 0.45, 0.25, 0.33, 0.23, 0.34, 0.56, &
1046  0.48, 0.14, 0.10, 0.10, 0.22, 0.22, 0.05, 0.07, 0.08, 0.10, &
1047  0.00, 0.13, 0.00, 0.01, 0.01, 0.14, 0.13, 0.18, 0.13, 0.16, &
1048  0.19, 0.27, 0.08, 0.18, 0.35, 0.30, 0.43, 0.04, 0.24, 0.19, &
1049  0.00, 0.30, 0.22, 0.15, 0.19, 0.08, 0.03, 0.20, 0.24, 0.10, &
1050  0.00, 0.15, 0.08, 0.11, 0.04, 0.06, 0.09, 0.10, 0.12, 0.25, &
1051  0.06, 0.12, 0.03, 0.13, 0.15, 0.07, 0.09, 0.10, 0.22, 0.28, &
1052  0.04, 0.02, 0.13, 0.12, 0.05, 0.10, 0.05, 0.04, 0.37, 0.30, &
1053  0.38, 0.17, 0.23, 0.03, 0.12, 0.10, 0.04, 0.12, 0.16, 0.13, &
1054  0.20, 0.26, 0.06, 0.19, 0.05, 0.22, 0.31, 0.12, 0.18, 0.20, &
1055  0.53, 0.12, 0.07, 0.07, 0.07, 0.05, 0.04, 0.03, 0.04, 0.02, &
1056  0.02, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, &
1057  0.05, 0.01, 0.10, 0.01, 0.07, 0.00, 0.00, 0.00, 0.00, 0.00, &
1058  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.03, 0.05, &
1059  0.48, 0.26, 0.17, 0.31, 0.49, 0.10, 0.49, 0.19, 0.22, 0.30, &
1060  0.40, 0.04, 0.00 &
1061  /)
1062 !-------------------------------------------------------------------
1063 xdata_vegtype(:, 11) = (/ &
1064  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, 0.00, 0.00, &
1065  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1066  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1067  0.00, 0.00, 0.00, 0.50, 0.50, 0.50, 0.50, 0.00, 0.50, 0.50, &
1068  0.00, 0.00, 0.00, 0.50, 0.00, 0.00, 0.00, 0.50, 0.60, 0.70, &
1069  0.60, 0.70, 0.60, 0.00, 0.00, 0.60, 0.00, 0.50, 0.00, 0.00, &
1070  0.00, 0.70, 0.00, 0.00, 0.70, 0.60, 0.50, 0.60, 0.60, 0.50, &
1071  0.50, 0.60, 0.60, 0.00, 0.00, 0.60, 0.00, 0.30, 0.00, 0.00, &
1072  0.50, 0.30, 0.00, 0.00, 0.00, 0.00, 0.30, 1.00, 1.00, 1.00, &
1073  1.00, 0.00, 0.00, 1.00, 1.00, 1.00, 0.00, 0.00, 0.00, 0.00, &
1074  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1075  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1076  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1077  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1078  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1079  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1080  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1081  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1082  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1083  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1084  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1085  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1086  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1087  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1088  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1089  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1090  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1091  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1092  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1093  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1094  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1095  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1096  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, &
1097  0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, &
1098  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1099  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1100  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1101  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1102  0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.01, 0.00, 0.00, &
1103  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1104  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1105  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, &
1106  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1107  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1108  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1109  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1110  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1111  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1112  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1113  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1114  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1115  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1116  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1117  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1118  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1119  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1120  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1121  0.00, 0.00, 0.00 &
1122  /)
1123 !-------------------------------------------------------------------
1124 xdata_vegtype(:, 12) = (/ &
1125  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, 0.00, 0.00, 0.00, &
1126  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1127  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1128  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1129  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1130  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1131  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1132  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1133  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1134  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1135  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1136  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1137  0.00, 0.00, 0.00, 0.50, 0.80, 0.00, 0.00, 0.00, 0.00, 0.00, &
1138  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1139  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1140  0.50, 0.50, 0.50, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, &
1141  0.80, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1142  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1143  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1144  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1145  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1146  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1147  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1148  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, 0.80, 1.00, &
1149  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1150  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1151  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1152  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1153  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1154  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1155  0.08, 0.03, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.06, &
1156  0.03, 0.07, 0.01, 0.02, 0.02, 0.00, 0.01, 0.01, 0.01, 0.00, &
1157  0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.06, &
1158  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1159  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, &
1160  0.02, 0.09, 0.03, 0.03, 0.31, 0.01, 0.02, 0.00, 0.01, 0.00, &
1161  0.00, 0.04, 0.00, 0.01, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, &
1162  0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, &
1163  0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1164  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1165  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1166  0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1167  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1168  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1169  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1170  0.01, 0.00, 0.00, 0.02, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, &
1171  0.00, 0.00, 0.00, 0.00, 0.00, 0.15, 0.01, 0.00, 0.00, 0.00, &
1172  0.02, 0.00, 0.00, 0.01, 0.01, 0.00, 0.01, 0.01, 0.05, 0.00, &
1173  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.01, 0.00, 0.00, &
1174  0.00, 0.00, 0.00, 0.01, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, &
1175  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1176  0.00, 0.00, 0.02, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, &
1177  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, &
1178  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1179  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.99, &
1180  0.00, 1.00, 1.00, 1.00, 1.00, 0.18, 0.55, 0.94, 0.89, 0.10, &
1181  0.02, 0.01, 0.01, 0.02, 0.06, 0.04, 0.07, 0.02, 0.00, 0.00, &
1182  0.02, 0.00, 0.00 &
1183  /)
1184 !-------------------------------------------------------------------
1185 xdata_vegtype(:, 13) = (/ &
1186  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, 0.00, 0.00, &
1187  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1188  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, &
1189  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1190  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.20, 0.20, 0.00, &
1191  0.20, 0.00, 0.00, 0.00, 0.00, 0.20, 0.00, 0.00, 0.00, 0.00, &
1192  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1193  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1194  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1195  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1196  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1197  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1198  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1199  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1200  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1201  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1202  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1203  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1204  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1205  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1206  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1207  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1208  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1209  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1210  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1211  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1212  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1213  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1214  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1215  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1216  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1217  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1218  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1219  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1220  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1221  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1222  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1223  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1224  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1225  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1226  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1227  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1228  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1229  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1230  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1231  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1232  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1233  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1234  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1235  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1236  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1237  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1238  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1239  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1240  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1241  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1242  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1243  0.00, 0.00, 0.00 &
1244  /)
1245 !-------------------------------------------------------------------
1246 xdata_vegtype(:, 14) = (/ &
1247  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1248  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1249  0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 1.00, 0.50, 0.00, &
1250  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.40, &
1251  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1252  0.00, 0.30, 0.20, 0.30, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1253  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1254  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1255  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1256  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1257  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1258  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1259  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1260  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1261  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1262  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1263  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1264  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1265  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1266  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1267  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1268  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1269  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1270  0.00, 0.00, 0.00, 0.60, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1271  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1272  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1273  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1274  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1275  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1276  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1277  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1278  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1279  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.06, 0.00, 0.07, &
1280  0.06, 0.56, 0.28, 0.27, 0.34, 0.10, 0.20, 0.08, 0.72, 0.14, &
1281  0.21, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1282  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1283  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1284  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1285  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1286  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.11, 0.00, 0.00, &
1287  0.10, 0.00, 0.07, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1288  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1289  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.11, 0.13, &
1290  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1291  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1292  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1293  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1294  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.03, 0.00, 0.00, 0.00, &
1295  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1296  0.00, 0.00, 0.00, 0.12, 0.00, 0.07, 0.00, 0.01, 0.00, 0.00, &
1297  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.12, &
1298  0.17, 0.22, 0.07, 0.19, 0.20, 0.06, 0.20, 0.19, 0.24, 0.17, &
1299  0.06, 0.00, 0.00, 0.00, 0.03, 0.12, 0.10, 0.10, 0.01, 0.00, &
1300  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1301  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1302  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1303  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1304  0.17, 0.00, 0.00 &
1305  /)
1306 !-------------------------------------------------------------------
1307 xdata_vegtype(:, 15) = (/ &
1308  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 1.00, &
1309  0.00, 1.00, 0.00, 1.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1310  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, 0.50, &
1311  0.00, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1312  0.00, 0.00, 0.50, 0.00, 0.00, 0.00, 0.50, 0.00, 0.00, 0.00, &
1313  0.00, 0.00, 0.00, 0.00, 0.30, 0.00, 0.00, 0.00, 0.00, 0.00, &
1314  0.00, 0.00, 0.30, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1315  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.20, 0.00, 0.00, &
1316  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1317  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1318  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1319  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1320  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1321  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1322  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1323  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1324  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1325  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1326  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1327  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1328  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1329  0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1330  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1331  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1332  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1333  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1334  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1335  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1336  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1337  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1338  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1339  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1340  0.00, 0.13, 0.00, 0.00, 0.48, 0.12, 0.68, 0.89, 0.30, 0.66, &
1341  0.83, 0.16, 0.12, 0.31, 0.31, 0.23, 0.32, 0.56, 0.05, 0.11, &
1342  0.02, 0.08, 0.08, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1343  0.00, 0.04, 0.05, 0.07, 0.02, 0.00, 0.01, 0.00, 0.00, 0.00, &
1344  0.10, 0.03, 0.03, 0.02, 0.07, 0.00, 0.00, 0.00, 0.00, 0.00, &
1345  0.00, 0.00, 0.00, 0.00, 0.00, 0.03, 0.10, 0.10, 0.00, 0.00, &
1346  0.00, 0.05, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1347  0.01, 0.00, 0.04, 0.08, 0.00, 0.17, 0.00, 0.04, 0.00, 0.06, &
1348  0.07, 0.04, 0.20, 0.35, 0.03, 0.00, 0.00, 0.00, 0.00, 0.00, &
1349  0.00, 0.03, 0.03, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, &
1350  0.05, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.05, 0.18, 0.06, &
1351  0.12, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1352  0.00, 0.00, 0.00, 0.00, 0.05, 0.00, 0.01, 0.06, 0.00, 0.04, &
1353  0.00, 0.04, 0.11, 0.12, 0.15, 0.07, 0.02, 0.25, 0.01, 0.04, &
1354  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1355  0.00, 0.00, 0.00, 0.03, 0.00, 0.00, 0.02, 0.10, 0.00, 0.00, &
1356  0.00, 0.00, 0.00, 0.07, 0.09, 0.00, 0.01, 0.02, 0.04, 0.00, &
1357  0.08, 0.00, 0.00, 0.02, 0.00, 0.05, 0.01, 0.01, 0.02, 0.00, &
1358  0.00, 0.00, 0.00, 0.00, 0.00, 0.02, 0.00, 0.03, 0.04, 0.02, &
1359  0.05, 0.07, 0.02, 0.12, 0.22, 0.00, 0.08, 0.13, 0.07, 0.04, &
1360  0.00, 0.02, 0.00, 0.00, 0.00, 0.00, 0.04, 0.00, 0.00, 0.01, &
1361  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1362  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1363  0.00, 0.00, 0.00, 0.00, 0.00, 0.55, 0.00, 0.00, 0.00, 0.55, &
1364  0.10, 0.10, 0.00, 0.00, 0.03, 0.00, 0.02, 0.07, 0.01, 0.01, &
1365  0.05, 0.00, 0.01 &
1366  /)
1367 !-------------------------------------------------------------------
1368 xdata_vegtype(:, 16) = (/ &
1369  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1370  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1371  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1372  0.50, 0.00, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1373  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1374  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1375  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1376  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1377  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1378  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1379  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1380  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1381  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1382  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1383  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1384  0.00, 0.00, 0.00, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1385  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1386  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1387  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1388  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1389  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1390  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1391  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1392  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1393  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1394  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1395  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1396  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1397  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1398  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1399  0.09, 0.85, 0.85, 0.05, 0.08, 0.85, 0.14, 0.82, 0.17, 0.10, &
1400  0.15, 0.06, 0.81, 0.00, 0.05, 0.12, 0.00, 0.07, 0.00, 0.00, &
1401  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1402  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1403  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1404  0.05, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1405  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1406  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1407  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1408  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1409  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1410  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1411  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1412  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1413  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1414  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1415  0.11, 0.13, 0.10, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.02, &
1416  0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1417  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1418  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1419  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1420  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1421  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1422  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1423  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1424  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.02, 0.02, 0.04, 0.00, &
1425  0.00, 0.00, 0.00, 0.00, 0.00, 0.17, 0.00, 0.00, 0.00, 0.00, &
1426  0.00, 0.00, 0.00 &
1427  /)
1428 !-------------------------------------------------------------------
1429 xdata_vegtype(:, 17) = (/ &
1430  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1431  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1432  0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1433  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1434  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1435  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1436  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1437  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1438  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1439  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1440  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1441  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1442  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1443  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1444  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1445  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1446  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1447  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1448  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1449  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1450  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1451  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1452  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1453  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1454  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1455  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1456  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1457  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1458  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1459  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1460  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1461  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1462  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1463  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1464  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1465  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1466  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1467  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1468  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1469  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1470  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1471  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1472  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1473  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1474  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1475  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1476  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1477  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1478  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1479  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1480  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1481  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1482  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1483  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1484  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1485  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1486  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1487  0.00, 0.00, 0.00 &
1488  /)
1489 !-------------------------------------------------------------------
1490 xdata_vegtype(:, 18) = (/ &
1491  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1492  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1493  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1494  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1495  0.50, 0.00, 0.00, 0.00, 0.50, 0.50, 0.00, 0.00, 0.00, 0.00, &
1496  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.70, 0.00, &
1497  0.00, 0.00, 0.00, 0.60, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1498  0.00, 0.00, 0.00, 0.60, 0.00, 0.00, 0.60, 0.00, 0.00, 0.00, &
1499  0.00, 0.00, 0.00, 0.00, 0.60, 0.70, 0.00, 0.00, 0.00, 0.00, &
1500  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 1.00, 1.00, &
1501  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1502  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1503  0.00, 0.00, 0.10, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1504  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1505  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1506  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1507  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1508  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1509  0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, 0.00, &
1510  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1511  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1512  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1513  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1514  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1515  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1516  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1517  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1518  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1519  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1520  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1521  0.44, 0.03, 0.01, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, &
1522  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1523  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1524  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1525  0.00, 0.00, 0.00, 0.38, 0.55, 0.60, 0.68, 0.73, 0.86, 0.00, &
1526  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1527  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1528  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1529  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1530  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1531  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1532  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1533  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1534  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1535  0.11, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1536  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1537  0.05, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1538  0.13, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1539  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1540  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1541  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1542  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1543  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1544  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1545  0.00, 0.00, 0.00, 0.00, 0.00, 0.15, 0.05, 0.00, 0.00, 0.00, &
1546  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.03, 0.02, 0.00, 0.00, &
1547  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1548  0.00, 0.00, 0.00 &
1549  /)
1550 !-------------------------------------------------------------------
1551 xdata_vegtype(:, 19) = (/ &
1552  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1553  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1554  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1555  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1556  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1557  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1558  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.20, 0.20, 0.20, 0.20, &
1559  0.20, 0.20, 0.20, 0.00, 0.00, 0.20, 0.00, 0.00, 0.20, 0.00, &
1560  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1561  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1562  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1563  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1564  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1565  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1566  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1567  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1568  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1569  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1570  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1571  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1572  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1573  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1574  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1575  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1576  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1577  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1578  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1579  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1580  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1581  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1582  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1583  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1584  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1585  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1586  0.00, 0.00, 0.00, 0.02, 0.05, 0.10, 0.07, 0.10, 0.02, 0.09, &
1587  0.00, 0.01, 0.04, 0.04, 0.00, 0.10, 0.05, 0.10, 0.04, 0.00, &
1588  0.00, 0.00, 0.05, 0.01, 0.08, 0.05, 0.13, 0.10, 0.07, 0.05, &
1589  0.03, 0.04, 0.05, 0.02, 0.01, 0.00, 0.07, 0.16, 0.18, 0.17, &
1590  0.08, 0.15, 0.08, 0.18, 0.16, 0.10, 0.10, 0.14, 0.14, 0.20, &
1591  0.10, 0.00, 0.03, 0.01, 0.17, 0.02, 0.00, 0.00, 0.06, 0.00, &
1592  0.00, 0.00, 0.00, 0.00, 0.00, 0.15, 0.18, 0.12, 0.07, 0.00, &
1593  0.02, 0.04, 0.09, 0.07, 0.03, 0.09, 0.08, 0.04, 0.00, 0.10, &
1594  0.11, 0.09, 0.06, 0.07, 0.15, 0.06, 0.04, 0.00, 0.00, 0.00, &
1595  0.00, 0.01, 0.00, 0.00, 0.03, 0.03, 0.00, 0.00, 0.00, 0.00, &
1596  0.00, 0.00, 0.02, 0.06, 0.08, 0.03, 0.01, 0.05, 0.00, 0.03, &
1597  0.13, 0.00, 0.00, 0.33, 0.00, 0.00, 0.00, 0.00, 0.08, 0.15, &
1598  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1599  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1600  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.08, &
1601  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.03, 0.03, &
1602  0.05, 0.03, 0.03, 0.03, 0.02, 0.00, 0.00, 0.03, 0.04, 0.00, &
1603  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1604  0.00, 0.12, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1605  0.00, 0.02, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1606  0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1607  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1608  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1609  0.00, 0.47, 0.48 &
1610  /)
1611 !-------------------------------------------------------------------
1612 xdata_h_tree(:, 4) = (/ &
1613  xundef, xundef, xundef, xundef, xundef, xundef, 5., xundef, xundef, xundef, &
1614  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1615  xundef, xundef, xundef, xundef, xundef, 15., xundef, xundef, xundef, 15., &
1616  xundef, 15., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1617  xundef, xundef, xundef, 10., xundef, xundef, xundef, xundef, xundef, xundef, &
1618  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 5., xundef, xundef, &
1619  xundef, xundef, xundef, xundef, xundef, 5., xundef, xundef, xundef, xundef, &
1620  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1621  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1622  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1623  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1624  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1625  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1626  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1627  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1628  5., 5., 5., xundef, xundef, xundef, xundef, xundef, xundef, 5., &
1629  5., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1630  xundef, xundef, xundef, xundef, xundef, xundef, 1., 1., 5., 5., &
1631  5., xundef, xundef, xundef, xundef, xundef, 10., 10., 10., 10., &
1632  10., 10., 10., 10., 10., xundef, xundef, 10., 10., 10., &
1633  10., 10., 10., 10., 10., 10., 10., xundef, xundef, xundef, &
1634  xundef, xundef, xundef, xundef, 10., 10., 10., 10., 10., xundef, &
1635  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2., &
1636  2., xundef, 10., xundef, 10., xundef, xundef, 10., xundef, xundef, &
1637  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1638  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1639  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1640  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1641  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1642  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1643  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1644  xundef, xundef, xundef, 12., xundef, xundef, 13., xundef, 12., 15., &
1645  14., 11., 12., 12., 11., 11., xundef, xundef, 10., xundef, &
1646  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1647  xundef, 10., 10., xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1648  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 10., &
1649  5., 5., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1650  xundef, xundef, xundef, xundef, xundef, 5., xundef, xundef, xundef, xundef, &
1651  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1652  xundef, 10., xundef, xundef, xundef, xundef, 8., xundef, xundef, 5., &
1653  xundef, 4., xundef, 8., 4., xundef, xundef, xundef, xundef, xundef, &
1654  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1655  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 5., xundef, xundef, &
1656  8., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1657  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 5., xundef, &
1658  xundef, 5., 5., xundef, 8., 8., 5., 5., xundef, xundef, &
1659  xundef, xundef, xundef, 10., 10., 10., 10., xundef, 10., xundef, &
1660  xundef, xundef, xundef, 10., 8., 5., xundef, 8., xundef, 5., &
1661  10., 10., xundef, 10., 10., 10., 10., 10., 8., xundef, &
1662  10., 8., 8., xundef, xundef, xundef, 3., xundef, xundef, xundef, &
1663  xundef, xundef, xundef, xundef, xundef, 3., 3., xundef, xundef, xundef, &
1664  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1665  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1666  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1667  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1668  xundef, xundef, xundef, xundef, xundef, 11., xundef, xundef, xundef, 10., &
1669  7., 7., 8., 8., 5., xundef, 3., 6., 5., 9., &
1670  xundef, xundef, xundef &
1671  /)
1672 !-------------------------------------------------------------------
1673 xdata_h_tree(:, 5) = (/ &
1674  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1675  15., xundef, 15., xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1676  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1677  15., xundef, 15., xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1678  10., 15., xundef, xundef, 15., 15., xundef, xundef, xundef, xundef, &
1679  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 10., 15., &
1680  xundef, xundef, xundef, 10., xundef, xundef, xundef, xundef, xundef, xundef, &
1681  xundef, xundef, xundef, 2., 2., xundef, 2., xundef, xundef, xundef, &
1682  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1683  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1684  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1685  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1686  xundef, xundef, xundef, xundef, 10., xundef, xundef, xundef, xundef, xundef, &
1687  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1688  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1689  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1690  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1691  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1692  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1693  xundef, xundef, xundef, xundef, xundef, 10., 10., xundef, xundef, xundef, &
1694  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 10., 10., 10., &
1695  10., 10., 10., xundef, 10., 10., 10., 10., 10., xundef, &
1696  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1697  xundef, 2., xundef, xundef, xundef, xundef, xundef, xundef, 10., xundef, &
1698  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1699  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1700  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1701  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1702  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1703  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1704  14., 15., 15., 14., 15., 15., 15., 15., 15., 14., &
1705  13., 14., 13., 12., 13., 13., 13., 13., 12., 15., &
1706  14., xundef, 12., 12., xundef, xundef, xundef, xundef, xundef, xundef, &
1707  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1708  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 14., xundef, xundef, &
1709  10., xundef, xundef, xundef, xundef, 1., xundef, xundef, xundef, 10., &
1710  xundef, xundef, xundef, xundef, xundef, 2., xundef, xundef, xundef, xundef, &
1711  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2., &
1712  2., xundef, 1., xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1713  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1714  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1715  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1716  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1717  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1718  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1719  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1720  10., 10., 10., 10., 10., 10., xundef, xundef, xundef, 11., &
1721  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 8., xundef, &
1722  10., 10., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1723  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1724  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1725  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1726  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1727  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1728  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1729  xundef, xundef, xundef, xundef, xundef, xundef, 12., 13., 11., xundef, &
1730  xundef, xundef, 8., 8., xundef, 10., xundef, xundef, xundef, xundef, &
1731  xundef, xundef, xundef &
1732  /)
1733 !-------------------------------------------------------------------
1734 xdata_h_tree(:, 6) = (/ &
1735  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1736  xundef, xundef, xundef, xundef, xundef, 30., 20., 30., 20., 20., &
1737  30., 30., 20., xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1738  xundef, xundef, xundef, 10., 10., 15., 15., 20., 15., xundef, &
1739  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 15., &
1740  xundef, xundef, xundef, xundef, xundef, xundef, 30., xundef, xundef, xundef, &
1741  15., 15., xundef, xundef, 15., xundef, xundef, xundef, xundef, xundef, &
1742  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1743  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1744  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1745  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1746  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1747  xundef, xundef, xundef, 10., xundef, xundef, xundef, xundef, xundef, xundef, &
1748  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1749  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1750  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1751  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1752  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1753  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1754  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1755  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1756  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1757  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1758  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1759  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1760  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1761  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1762  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1763  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1764  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1765  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1766  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1767  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1768  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1769  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1770  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1771  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1772  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1773  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1774  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1775  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1776  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1777  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1778  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1779  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1780  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1781  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1782  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1783  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1784  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1785  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1786  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1787  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1788  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1789  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1790  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1791  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1792  xundef, xundef, xundef &
1793  /)
1794 !-------------------------------------------------------------------
1795 xdata_h_tree(:, 13) = (/ &
1796  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 15., xundef, xundef, &
1797  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1798  xundef, xundef, xundef, xundef, xundef, xundef, 20., xundef, xundef, xundef, &
1799  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1800  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 5., 10., xundef, &
1801  10., xundef, xundef, xundef, xundef, 10., xundef, xundef, xundef, xundef, &
1802  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1803  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1804  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1805  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1806  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1807  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1808  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1809  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1810  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1811  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1812  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1813  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1814  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1815  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1816  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1817  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1818  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1819  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1820  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1821  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1822  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1823  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1824  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1825  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1826  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1827  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1828  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1829  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1830  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1831  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1832  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1833  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1834  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1835  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1836  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1837  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1838  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1839  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1840  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1841  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1842  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1843  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1844  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1845  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1846  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1847  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1848  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1849  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1850  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1851  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1852  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1853  xundef, xundef, xundef &
1854  /)
1855 !-------------------------------------------------------------------
1856 xdata_h_tree(:, 14) = (/ &
1857  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1858  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1859  xundef, xundef, xundef, xundef, 20., xundef, xundef, 20., 15., xundef, &
1860  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 10., &
1861  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1862  xundef, 10., 5., 15., xundef, xundef, xundef, xundef, xundef, xundef, &
1863  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1864  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1865  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1866  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1867  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1868  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1869  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1870  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1871  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1872  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1873  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1874  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1875  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1876  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1877  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1878  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1879  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1880  xundef, xundef, xundef, 10., xundef, xundef, xundef, xundef, xundef, xundef, &
1881  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1882  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1883  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1884  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1885  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1886  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1887  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1888  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1889  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 10., xundef, 7., &
1890  10., 10., 10., 10., 10., 10., 10., 10., 10., 8., &
1891  8., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1892  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1893  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1894  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1895  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1896  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 5., xundef, xundef, &
1897  10., xundef, 8., xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1898  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1899  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 8., 5., &
1900  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1901  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1902  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1903  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1904  xundef, xundef, xundef, xundef, xundef, xundef, 5., xundef, xundef, xundef, &
1905  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1906  xundef, xundef, xundef, 5., xundef, 3., xundef, 3., xundef, xundef, &
1907  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 5., &
1908  5., 5., 5., 5., 8., 5., 7., 8., 7., 5., &
1909  3., xundef, xundef, xundef, 8., 8., 8., 8., 8., xundef, &
1910  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1911  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1912  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1913  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1914  6., xundef, xundef &
1915  /)
1916 !-------------------------------------------------------------------
1917 xdata_h_tree(:, 15) = (/ &
1918  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 15., &
1919  xundef, 15., xundef, 15., 20., xundef, xundef, xundef, xundef, xundef, &
1920  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 15., 15., &
1921  xundef, 15., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1922  xundef, xundef, 15., xundef, xundef, xundef, 15., xundef, xundef, xundef, &
1923  xundef, xundef, xundef, xundef, 15., xundef, xundef, xundef, xundef, xundef, &
1924  xundef, xundef, 10., xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1925  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2., xundef, xundef, &
1926  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1927  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1928  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1929  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1930  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1931  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1932  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1933  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1934  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1935  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1936  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1937  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1938  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1939  xundef, xundef, xundef, 10., xundef, xundef, xundef, xundef, xundef, xundef, &
1940  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1941  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1942  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1943  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1944  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1945  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1946  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1947  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1948  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1949  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1950  xundef, 11., xundef, xundef, 11., 11., 10., 10., 10., 10., &
1951  10., 10., 10., 10., 10., 10., 10., 10., 10., 10., &
1952  10., 10., 10., xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1953  xundef, 10., 10., 10., 10., xundef, 1., xundef, xundef, xundef, &
1954  5., 5., 2., 10., 3., xundef, xundef, xundef, xundef, xundef, &
1955  xundef, xundef, xundef, xundef, xundef, 5., 2., 1., xundef, xundef, &
1956  xundef, 2., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1957  1., xundef, 2., 2., xundef, 2., xundef, 5., xundef, 5., &
1958  5., 3., 8., 8., 4., xundef, xundef, xundef, xundef, xundef, &
1959  xundef, 1., 2., xundef, xundef, 2., xundef, xundef, xundef, xundef, &
1960  1., xundef, xundef, xundef, xundef, 2., xundef, 5., 8., 5., &
1961  8., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1962  xundef, xundef, xundef, xundef, 2., xundef, 2., 2., xundef, 2., &
1963  xundef, 5., 5., 7., 8., 8., 5., 5., 2., 2., &
1964  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1965  xundef, xundef, xundef, 10., xundef, xundef, 5., 8., xundef, xundef, &
1966  xundef, xundef, xundef, 10., 10., xundef, 10., 10., 8., xundef, &
1967  10., xundef, xundef, 5., xundef, 3., 3., 3., 2., xundef, &
1968  xundef, xundef, xundef, xundef, xundef, 3., xundef, 2., 2., 5., &
1969  5., 5., 5., 5., 8., xundef, 7., 8., 7., 5., &
1970  xundef, 2., xundef, xundef, xundef, xundef, 8., xundef, xundef, 5., &
1971  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1972  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1973  xundef, xundef, xundef, xundef, xundef, 13., xundef, xundef, xundef, 10., &
1974  7., 7., xundef, xundef, 5., xundef, 3., 6., 5., 9., &
1975  6., xundef, 1. &
1976  /)
1977 !-------------------------------------------------------------------
1978 xdata_h_tree(:, 16) = (/ &
1979  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1980  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1981  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1982  15., xundef, 15., xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1983  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1984  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1985  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1986  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1987  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1988  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1989  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1990  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1991  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1992  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1993  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1994  xundef, xundef, xundef, 5., xundef, xundef, xundef, xundef, xundef, xundef, &
1995  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1996  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1997  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1998  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1999  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2000  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2001  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2002  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2003  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2004  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2005  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2006  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2007  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2008  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2009  8., 15., 15., 8., 15., 15., 15., 15., 15., 14., &
2010  13., 14., 13., xundef, 13., 13., xundef, 13., xundef, xundef, &
2011  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2012  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2013  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2014  7., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2015  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2016  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2017  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2018  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2019  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2020  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2021  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2022  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2023  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2024  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2025  10., 10., 10., xundef, xundef, xundef, xundef, xundef, xundef, 11., &
2026  11., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2027  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2028  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2029  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2030  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2031  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2032  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2033  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2034  xundef, xundef, xundef, xundef, xundef, xundef, 5., 11., 11., xundef, &
2035  xundef, xundef, xundef, xundef, xundef, 10., xundef, xundef, xundef, xundef, &
2036  xundef, xundef, xundef &
2037  /)
2038 !-------------------------------------------------------------------
2039 WHERE(xdata_vegtype(:,17)>0.) xdata_h_tree(:, 17) = 15.
2040 !-------------------------------------------------------------------
2041 xdata_h_tree(:, 19) = (/ &
2042  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2043  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2044  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2045  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2046  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2047  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2048  xundef, xundef, xundef, xundef, xundef, xundef, 2., 2., 2., 2., &
2049  2., 2., 2., xundef, xundef, 2., xundef, xundef, 2., xundef, &
2050  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2051  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2052  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2053  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2054  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2055  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2056  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2057  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2058  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2059  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2060  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2061  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2062  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2063  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2064  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2065  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2066  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2067  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2068  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2069  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2070  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2071  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2072  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2073  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2074  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2075  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2076  xundef, xundef, xundef, 1., 1., 1., 1., 2., 2., 1., &
2077  xundef, 2., 2., 2., xundef, 1., 1., 1., 1., xundef, &
2078  xundef, xundef, 2., 2., 2., 2., 1., 1., 1., 1., &
2079  1., 1., 1., 1., 1., xundef, 2., 1., 2., 2., &
2080  2., 2., 1., 2., 1., 1., 1., 2., 2., 2., &
2081  1., xundef, 2., 2., 2., 2., xundef, xundef, 2., xundef, &
2082  xundef, xundef, xundef, xundef, xundef, 2., 2., 2., 2., xundef, &
2083  2., 1., 2., 1., 1., 2., 2., 1., xundef, 1., &
2084  1., 1., 1., 1., 2., 2., 1., xundef, xundef, xundef, &
2085  xundef, 1., xundef, xundef, 1., 1., xundef, xundef, xundef, xundef, &
2086  xundef, xundef, 2., 2., 2., 2., 2., 2., xundef, 2., &
2087  2., xundef, xundef, 1., xundef, xundef, xundef, xundef, 2., 2., &
2088  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2089  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2090  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1., &
2091  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2., 2., &
2092  2., 2., 2., 2., 2., xundef, xundef, 2., 2., xundef, &
2093  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2094  xundef, 2., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2095  xundef, 1., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2096  xundef, 1., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2097  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2098  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2099  xundef, 1., 1. &
2100  /)
2101 !-------------------------------------------------------------------
2102 WHERE(xdata_vegtype(:, 8)>0.) xdata_watsup(:, 8) = 0.
2103 !-------------------------------------------------------------------
2104 WHERE(xdata_vegtype(:, 9)>0.) xdata_watsup(:, 9) = 30.
2105 !-------------------------------------------------------------------
2106 WHERE(xdata_vegtype(:, 8)>0.) xdata_irrig(:, 8) = 0.00
2107 !-------------------------------------------------------------------
2108 WHERE(xdata_vegtype(:, 9)>0.) xdata_irrig(:, 9) = 1.00
2109 !-------------------------------------------------------------------
2110 xdata_root_depth(:, 1) = (/ &
2111  xundef, xundef, xundef, 0.50, xundef, xundef, xundef, xundef, 0.50, xundef, &
2112  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2113  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2114  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.50, &
2115  xundef, xundef, xundef, 0.50, xundef, xundef, xundef, 0.50, 0.50, xundef, &
2116  0.50, xundef, 0.50, xundef, xundef, 0.50, xundef, 0.50, xundef, xundef, &
2117  xundef, xundef, xundef, 0.50, xundef, 0.50, 0.50, 0.50, 0.50, 0.50, &
2118  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2119  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, xundef, xundef, xundef, &
2120  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2121  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2122  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2123  xundef, xundef, 0.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2124  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2125  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2126  xundef, xundef, xundef, xundef, 0.50, xundef, 0.50, xundef, 0.50, xundef, &
2127  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2128  xundef, xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, 1.00, xundef, &
2129  0.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2130  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2131  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2132  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.50, &
2133  xundef, xundef, 0.50, xundef, 0.50, 0.50, 0.50, xundef, xundef, 0.50, &
2134  0.50, 0.50, 0.50, 0.50, xundef, 0.50, 0.50, xundef, xundef, xundef, &
2135  xundef, 0.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2136  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2137  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2138  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2139  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2140  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2141  0.50, 0.50, xundef, 0.50, 0.50, xundef, xundef, xundef, xundef, 0.50, &
2142  0.50, 0.50, xundef, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, xundef, &
2143  xundef, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2144  0.50, 0.50, 0.50, 0.50, 1.00, 1.00, 1.00, 1.00, 1.00, 0.50, &
2145  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2146  0.50, 0.50, 0.50, xundef, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2147  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2148  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2149  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2150  0.50, 0.50, 0.50, 1.00, 1.00, 0.50, 0.50, 0.50, 0.50, 0.50, &
2151  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2152  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2153  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2154  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2155  0.50, 0.50, 0.50, 0.50, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2156  1.00, 1.00, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2157  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 1.00, 1.00, 1.00, 1.00, &
2158  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.50, 0.50, 0.50, 0.50, &
2159  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2160  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2161  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 1.00, &
2162  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2163  0.50, 0.50, 0.50, 0.50, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2164  1.00, 1.00, xundef, xundef, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2165  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, xundef, xundef, 0.50, &
2166  0.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2167  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, xundef, 0.50, &
2168  0.50, 1.00, 1.00 &
2169  /)
2170 !-------------------------------------------------------------------
2171 WHERE(xdata_vegtype(:, 2)>0.) xdata_root_depth(:, 2) = 0.20
2172 !-------------------------------------------------------------------
2173 WHERE(xdata_vegtype(:, 3)>0.) xdata_root_depth(:, 3) = 0.20
2174 !-------------------------------------------------------------------
2175 xdata_root_depth(:, 4) = (/ &
2176  xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, &
2177  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2178  xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, 2.00, &
2179  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2180  xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, &
2181  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, &
2182  xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, &
2183  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2184  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2185  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2186  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2187  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2188  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2189  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2190  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2191  2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
2192  2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2193  xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, 2.00, 2.00, &
2194  2.00, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, 2.00, 2.00, &
2195  2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, 2.00, 2.00, 2.00, &
2196  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, xundef, &
2197  xundef, xundef, xundef, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, &
2198  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
2199  2.00, xundef, 2.00, xundef, 2.00, xundef, xundef, 2.00, xundef, xundef, &
2200  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2201  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2202  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2203  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2204  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2205  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2206  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2207  xundef, xundef, xundef, 2.00, xundef, xundef, 2.00, xundef, 2.00, 2.00, &
2208  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, 2.00, xundef, &
2209  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2210  xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2211  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
2212  2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2213  xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, &
2214  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2215  xundef, 2.00, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, 1.50, &
2216  xundef, 1.50, xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, &
2217  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2218  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
2219  2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2220  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, &
2221  xundef, 2.00, 3.00, xundef, 2.00, 2.00, 2.00, 2.00, xundef, xundef, &
2222  xundef, xundef, xundef, 2.00, 2.00, 2.00, 2.00, xundef, 2.00, xundef, &
2223  xundef, xundef, xundef, 2.00, 2.00, 2.00, xundef, 2.00, xundef, 2.00, &
2224  2.00, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, &
2225  2.00, 2.00, 2.00, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, &
2226  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, xundef, xundef, &
2227  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2228  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2229  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2230  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2231  xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, 2.00, &
2232  2.00, 2.00, 2.00, 2.00, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, &
2233  xundef, xundef, xundef &
2234  /)
2235 !-------------------------------------------------------------------
2236 xdata_root_depth(:, 5) = (/ &
2237  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2238  2.00, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2239  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2240  2.00, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2241  2.00, 2.00, xundef, xundef, 2.00, 2.00, xundef, xundef, xundef, xundef, &
2242  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, &
2243  xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, &
2244  xundef, xundef, xundef, 1.50, 2.00, xundef, 1.50, xundef, xundef, xundef, &
2245  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2246  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2247  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2248  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2249  xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, &
2250  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2251  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2252  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2253  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2254  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2255  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2256  xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, xundef, xundef, xundef, &
2257  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, 2.00, &
2258  2.00, 2.00, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, &
2259  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2260  xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, &
2261  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2262  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2263  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2264  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2265  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2266  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2267  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
2268  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
2269  2.00, xundef, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, &
2270  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2271  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
2272  2.00, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, 2.00, &
2273  xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, &
2274  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
2275  2.00, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2276  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2277  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2278  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2279  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2280  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2281  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2282  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2283  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, xundef, 2.00, &
2284  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, &
2285  2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2286  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2287  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2288  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2289  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2290  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2291  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2292  xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, 2.00, xundef, &
2293  xundef, xundef, 2.00, 2.00, xundef, 2.00, xundef, xundef, xundef, xundef, &
2294  xundef, xundef, xundef &
2295  /)
2296 !-------------------------------------------------------------------
2297 xdata_root_depth(:, 6) = (/ &
2298  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2299  xundef, xundef, xundef, xundef, xundef, 8.00, 5.00, 8.00, 5.00, 5.00, &
2300  8.00, 5.00, 5.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2301  xundef, xundef, xundef, 3.00, 3.00, 3.00, 3.00, 5.00, 3.00, xundef, &
2302  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, &
2303  xundef, xundef, xundef, xundef, xundef, xundef, 5.00, xundef, xundef, xundef, &
2304  3.00, 3.00, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, &
2305  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2306  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2307  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2308  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2309  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2310  xundef, xundef, xundef, 5.00, xundef, xundef, xundef, xundef, xundef, xundef, &
2311  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2312  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2313  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2314  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2315  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2316  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2317  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2318  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2319  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2320  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2321  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2322  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2323  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2324  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2325  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2326  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2327  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2328  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2329  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2330  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2331  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2332  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2333  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2334  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2335  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2336  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2337  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2338  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2339  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2340  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2341  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2342  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2343  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2344  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2345  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2346  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2347  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2348  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2349  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2350  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2351  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2352  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2353  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2354  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2355  xundef, xundef, xundef &
2356  /)
2357 !-------------------------------------------------------------------
2358 xdata_root_depth(:, 7) = (/ &
2359  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2360  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2361  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2362  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, &
2363  xundef, 1.50, 1.50, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, &
2364  xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, 1.50, &
2365  1.50, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2366  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2367  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2368  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2369  xundef, xundef, xundef, xundef, 1.00, 1.50, 1.50, 1.50, 1.50, xundef, &
2370  1.50, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2371  1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2372  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2373  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2374  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2375  xundef, 1.00, 1.00, 1.00, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2376  1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2377  xundef, xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, 1.50, 1.50, &
2378  1.50, 1.00, 1.50, 1.50, 1.50, 1.00, 1.50, 1.00, xundef, xundef, &
2379  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2380  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2381  xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, &
2382  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2383  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2384  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2385  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2386  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2387  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2388  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2389  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
2390  1.50, 1.50, xundef, 1.50, 1.50, xundef, 1.50, 1.50, 1.50, 1.50, &
2391  xundef, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, 1.50, 1.50, &
2392  1.50, xundef, 1.00, xundef, xundef, 1.00, 1.00, xundef, 1.00, 1.00, &
2393  1.00, 1.00, 1.00, xundef, xundef, xundef, xundef, 1.00, xundef, 1.00, &
2394  1.00, xundef, 1.50, 1.00, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, &
2395  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, &
2396  xundef, 1.00, xundef, 1.00, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, &
2397  1.00, 1.00, 1.00, 1.50, xundef, xundef, xundef, xundef, 1.00, 1.00, &
2398  1.00, 1.50, 1.50, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2399  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, xundef, xundef, xundef, &
2400  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, 1.00, &
2401  1.00, 1.00, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2402  1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2403  xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2404  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2405  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2406  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2407  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2408  1.50, 1.50, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2409  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2410  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2411  1.00, 1.00, xundef, xundef, xundef, xundef, 1.00, xundef, 1.00, 1.00, &
2412  xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2413  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2414  xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, 1.50, &
2415  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2416  1.50, 1.50, 1.50 &
2417  /)
2418 !-------------------------------------------------------------------
2419 xdata_root_depth(:, 8) = (/ &
2420  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2421  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2422  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2423  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, &
2424  xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, &
2425  xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, 1.50, &
2426  1.50, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2427  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2428  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2429  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2430  xundef, xundef, xundef, xundef, 1.00, 1.50, 1.50, 1.50, xundef, 1.50, &
2431  1.50, 1.50, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, &
2432  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2433  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2434  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2435  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2436  xundef, 1.00, 1.00, 1.00, 1.50, xundef, xundef, 1.50, 1.50, 1.50, &
2437  xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2438  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2439  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2440  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2441  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2442  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2443  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2444  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2445  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2446  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2447  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2448  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2449  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2450  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2451  xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, 1.50, &
2452  1.50, 1.50, 1.50, 1.50, xundef, 1.50, xundef, 1.50, 1.50, 1.50, &
2453  1.50, xundef, xundef, xundef, xundef, 1.00, 1.00, xundef, 1.00, xundef, &
2454  xundef, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2455  xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, xundef, xundef, 1.00, &
2456  1.00, xundef, 1.00, xundef, 1.00, 1.00, xundef, xundef, xundef, xundef, &
2457  xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, 1.00, xundef, 1.00, &
2458  1.00, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, &
2459  1.00, 1.00, 1.00, 1.00, xundef, 1.00, xundef, 1.00, 1.00, 1.00, &
2460  1.00, 1.00, 1.00, 1.00, 1.00, xundef, xundef, xundef, xundef, xundef, &
2461  1.00, 1.00, 1.00, 1.00, xundef, 1.00, xundef, xundef, xundef, xundef, &
2462  xundef, xundef, xundef, xundef, 1.00, 1.00, xundef, 1.00, 1.00, 1.00, &
2463  1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2464  xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2465  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2466  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, &
2467  1.50, 1.50, xundef, 1.50, 1.50, 1.50, 1.00, 1.50, 1.50, 1.50, &
2468  1.50, 1.50, 1.50, 1.50, xundef, 1.50, 1.50, xundef, 1.50, 1.50, &
2469  xundef, 1.50, 1.50, 1.50, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, &
2470  1.00, xundef, 1.00, 1.00, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, &
2471  xundef, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, 1.00, 1.00, 1.00, &
2472  1.00, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2473  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2474  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2475  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2476  xundef, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, 1.50, 1.50, 1.50, &
2477  1.50, 1.50, 1.50 &
2478  /)
2479 !-------------------------------------------------------------------
2480 WHERE(xdata_vegtype(:, 9)>0.) xdata_root_depth(:, 9) = 1.50
2481 !-------------------------------------------------------------------
2482 xdata_root_depth(:, 10) = (/ &
2483  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.50, xundef, &
2484  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2485  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2486  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2487  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2488  xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, &
2489  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2490  xundef, xundef, xundef, xundef, 1.00, xundef, xundef, 1.00, 1.50, 0.50, &
2491  xundef, xundef, 1.00, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, &
2492  xundef, 1.50, 1.50, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, &
2493  1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, &
2494  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2495  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2496  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2497  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2498  xundef, xundef, xundef, xundef, xundef, 1.50, xundef, 1.00, xundef, xundef, &
2499  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2500  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
2501  xundef, 1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, &
2502  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, &
2503  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2504  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
2505  1.50, 1.50, 1.50, 1.50, 0.50, 1.00, 1.00, 1.00, 1.00, 1.00, &
2506  xundef, xundef, 1.50, 1.50, 1.50, 0.50, xundef, xundef, xundef, xundef, &
2507  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2508  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2509  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2510  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2511  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2512  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2513  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2514  xundef, 1.00, xundef, 1.00, xundef, xundef, 1.00, xundef, 1.00, 1.50, &
2515  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2516  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, &
2517  1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, &
2518  1.50, 1.50, 1.50, 1.50, 1.50, 1.00, 1.00, 0.50, 0.50, 1.50, &
2519  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.00, 1.00, 0.50, 0.50, &
2520  0.50, 0.50, 0.50, 0.50, 0.50, 1.50, 1.50, 1.00, 1.00, 1.00, &
2521  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2522  1.00, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2523  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 0.50, 0.50, &
2524  0.50, 1.50, 1.50, 1.00, 0.50, 1.00, 1.00, 0.50, 0.50, 1.00, &
2525  1.00, 0.50, 0.50, 0.50, 1.00, 0.50, 0.50, 1.50, 1.50, 1.50, &
2526  1.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2527  xundef, 1.50, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2528  1.50, 1.50, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2529  xundef, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.50, 1.50, &
2530  xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.00, 1.00, 1.00, 1.50, &
2531  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2532  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2533  1.50, 1.50, 1.50, 1.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2534  0.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2535  1.50, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2536  1.00, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.50, &
2537  0.50, 0.50, 0.50, 0.50, 0.50, xundef, xundef, xundef, xundef, xundef, &
2538  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, &
2539  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2540  1.50, 1.50, xundef &
2541  /)
2542 !-------------------------------------------------------------------
2543 xdata_root_depth(:, 11) = (/ &
2544  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, &
2545  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2546  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2547  xundef, xundef, xundef, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, 1.50, &
2548  xundef, xundef, xundef, 1.50, xundef, xundef, xundef, 1.00, 1.00, 1.50, &
2549  1.50, 1.00, 1.00, xundef, xundef, 1.50, xundef, 1.00, xundef, xundef, &
2550  xundef, 1.00, xundef, xundef, 1.50, 1.50, 1.00, 1.00, 1.00, 1.00, &
2551  1.00, 1.00, 1.00, xundef, xundef, 1.00, xundef, 1.00, xundef, xundef, &
2552  1.00, 0.50, xundef, xundef, xundef, xundef, 0.50, 1.50, 1.00, 1.50, &
2553  1.50, xundef, xundef, 1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, &
2554  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2555  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2556  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2557  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2558  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2559  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2560  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2561  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2562  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2563  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2564  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2565  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2566  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2567  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2568  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2569  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2570  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2571  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2572  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2573  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2574  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2575  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2576  xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, &
2577  xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, &
2578  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2579  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2580  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2581  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2582  xundef, xundef, xundef, xundef, xundef, 1.00, xundef, 1.00, xundef, xundef, &
2583  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2584  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2585  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.50, xundef, &
2586  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2587  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2588  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2589  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2590  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2591  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2592  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2593  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2594  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2595  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2596  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2597  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2598  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2599  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2600  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2601  xundef, xundef, xundef &
2602  /)
2603 !-------------------------------------------------------------------
2604 xdata_root_depth(:, 12) = (/ &
2605  xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, &
2606  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2607  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2608  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2609  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2610  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2611  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2612  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2613  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2614  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2615  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2616  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2617  xundef, xundef, xundef, 3.00, 2.00, xundef, xundef, xundef, xundef, xundef, &
2618  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2619  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2620  1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, 1.50, &
2621  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2622  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2623  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2624  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2625  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2626  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2627  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2628  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, 1.50, &
2629  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2630  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2631  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2632  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2633  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2634  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2635  1.00, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, &
2636  1.00, 1.00, 1.00, 1.00, 1.00, xundef, 1.00, 1.00, 1.00, xundef, &
2637  xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, 2.00, &
2638  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2639  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, &
2640  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, 1.00, xundef, &
2641  xundef, 1.00, xundef, 1.00, 1.00, xundef, xundef, xundef, xundef, xundef, &
2642  xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, &
2643  1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2644  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2645  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2646  xundef, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2647  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2648  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2649  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2650  1.50, xundef, xundef, 1.50, xundef, xundef, xundef, 1.50, xundef, xundef, &
2651  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, xundef, xundef, &
2652  1.50, xundef, xundef, 1.50, 1.50, xundef, 1.50, 1.50, 1.50, xundef, &
2653  xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, xundef, &
2654  xundef, xundef, xundef, 1.50, xundef, 1.50, xundef, xundef, xundef, xundef, &
2655  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2656  xundef, xundef, 1.50, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, &
2657  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
2658  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2659  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
2660  xundef, 1.50, 1.50, 1.50, 1.50, 2.00, 2.00, 2.00, 2.00, 2.00, &
2661  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, &
2662  1.50, xundef, xundef &
2663  /)
2664 !-------------------------------------------------------------------
2665 xdata_root_depth(:, 13) = (/ &
2666  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
2667  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2668  xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, &
2669  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2670  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, xundef, &
2671  3.00, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, &
2672  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2673  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2674  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2675  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2676  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2677  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2678  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2679  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2680  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2681  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2682  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2683  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2684  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2685  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2686  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2687  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2688  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2689  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2690  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2691  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2692  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2693  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2694  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2695  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2696  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2697  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2698  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2699  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2700  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2701  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2702  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2703  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2704  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2705  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2706  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2707  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2708  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2709  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2710  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2711  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2712  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2713  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2714  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2715  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2716  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2717  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2718  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2719  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2720  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2721  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2722  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2723  xundef, xundef, xundef &
2724  /)
2725 !-------------------------------------------------------------------
2726 xdata_root_depth(:, 14) = (/ &
2727  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2728  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2729  xundef, xundef, xundef, xundef, 3.00, xundef, xundef, 3.00, 2.00, xundef, &
2730  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
2731  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2732  xundef, 2.00, 2.00, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, &
2733  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2734  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2735  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2736  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2737  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2738  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2739  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2740  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2741  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2742  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2743  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2744  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2745  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2746  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2747  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2748  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2749  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2750  xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, &
2751  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2752  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2753  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2754  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2755  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2756  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2757  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2758  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2759  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, 2.00, &
2760  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 1.50, &
2761  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2762  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2763  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2764  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2765  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2766  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
2767  1.50, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2768  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2769  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, &
2770  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2771  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2772  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2773  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2774  xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, &
2775  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2776  xundef, xundef, xundef, 2.00, xundef, 1.50, xundef, 1.50, xundef, xundef, &
2777  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
2778  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
2779  2.00, xundef, xundef, xundef, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, &
2780  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2781  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2782  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2783  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2784  2.00, xundef, xundef &
2785  /)
2786 !-------------------------------------------------------------------
2787 xdata_root_depth(:, 15) = (/ &
2788  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
2789  xundef, 2.00, xundef, 2.00, 3.00, xundef, xundef, xundef, xundef, xundef, &
2790  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, &
2791  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2792  xundef, xundef, 2.00, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, &
2793  xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, &
2794  xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2795  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, &
2796  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2797  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2798  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2799  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2800  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2801  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2802  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2803  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2804  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2805  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2806  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2807  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2808  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2809  xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, &
2810  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2811  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2812  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2813  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2814  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2815  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2816  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2817  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2818  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2819  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2820  xundef, 2.00, xundef, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
2821  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 1.50, &
2822  1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2823  xundef, 2.00, 2.00, 2.00, 2.00, xundef, 1.50, xundef, xundef, xundef, &
2824  2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, &
2825  xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, 2.00, xundef, xundef, &
2826  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2827  2.00, xundef, 2.00, 2.00, xundef, 2.00, xundef, 2.00, xundef, 1.50, &
2828  1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, &
2829  xundef, 1.50, 1.50, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, &
2830  1.50, xundef, xundef, xundef, xundef, 1.50, xundef, 2.00, 2.00, 2.00, &
2831  2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2832  xundef, xundef, xundef, xundef, 2.00, xundef, 2.00, 2.00, xundef, 2.00, &
2833  xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
2834  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2835  xundef, xundef, xundef, 2.00, xundef, xundef, 2.00, 2.00, xundef, xundef, &
2836  xundef, xundef, xundef, 2.00, 2.00, xundef, 2.00, 2.00, 2.00, xundef, &
2837  2.00, xundef, xundef, 2.00, xundef, 1.50, 1.50, 1.50, 1.50, xundef, &
2838  xundef, xundef, xundef, xundef, xundef, 1.50, xundef, 1.50, 1.50, 2.00, &
2839  2.00, 2.00, 2.00, 2.00, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, &
2840  xundef, 2.00, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, 2.00, &
2841  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2842  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2843  xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, 2.00, &
2844  2.00, 2.00, xundef, xundef, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, &
2845  2.00, xundef, 2.00 &
2846  /)
2847 !-------------------------------------------------------------------
2848 WHERE(xdata_vegtype(:,16)>0.) xdata_root_depth(:, 16) = 2.00
2849 !-------------------------------------------------------------------
2850 WHERE(xdata_vegtype(:,17)>0.) xdata_root_depth(:, 17) = 2.00
2851 !-------------------------------------------------------------------
2852 xdata_root_depth(:, 18) = (/ &
2853  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2854  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2855  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2856  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2857  1.00, xundef, xundef, xundef, 1.50, 1.00, xundef, xundef, xundef, xundef, &
2858  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, &
2859  xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, &
2860  xundef, xundef, xundef, 1.00, xundef, xundef, 1.00, xundef, xundef, xundef, &
2861  xundef, xundef, xundef, xundef, 0.50, 1.50, xundef, xundef, xundef, xundef, &
2862  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.00, 1.00, &
2863  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2864  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2865  xundef, xundef, 0.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2866  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2867  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2868  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2869  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2870  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2871  xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, &
2872  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2873  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2874  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2875  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2876  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2877  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2878  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2879  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2880  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2881  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2882  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2883  1.00, 1.00, 1.00, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, &
2884  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2885  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2886  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2887  xundef, xundef, xundef, 0.50, 0.50, 0.50, 1.00, 1.00, 1.00, xundef, &
2888  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2889  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2890  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2891  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2892  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2893  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2894  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2895  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2896  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2897  0.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2898  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2899  1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2900  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2901  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2902  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2903  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2904  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2905  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2906  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2907  xundef, xundef, xundef, xundef, xundef, 0.50, 0.50, xundef, xundef, xundef, &
2908  xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, xundef, &
2909  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2910  xundef, xundef, xundef &
2911  /)
2912 !-------------------------------------------------------------------
2913 xdata_root_depth(:, 19) = (/ &
2914  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2915  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2916  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2917  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2918  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2919  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2920  xundef, xundef, xundef, xundef, xundef, xundef, 4.00, 4.00, 4.00, 4.00, &
2921  4.00, 4.00, 4.00, xundef, xundef, 3.00, xundef, xundef, 3.00, xundef, &
2922  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2923  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2924  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2925  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2926  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2927  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2928  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2929  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2930  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2931  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2932  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2933  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2934  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2935  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2936  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2937  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2938  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2939  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2940  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2941  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2942  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2943  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2944  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2945  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2946  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2947  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2948  xundef, xundef, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2949  xundef, 2.00, 2.00, 2.00, xundef, 1.50, 1.50, 1.50, 1.50, xundef, &
2950  xundef, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 1.50, 1.50, &
2951  1.50, 1.50, 1.50, 1.50, 1.50, xundef, 2.00, 2.00, 2.00, 2.00, &
2952  2.00, 2.00, 1.50, 2.00, 2.00, 1.50, 1.50, 1.50, 1.50, 2.00, &
2953  2.00, xundef, 2.00, 2.00, 2.00, 2.00, xundef, xundef, 1.50, xundef, &
2954  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, 1.50, 1.50, xundef, &
2955  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, &
2956  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, &
2957  xundef, 2.00, xundef, xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, &
2958  xundef, xundef, 2.00, 2.00, 3.00, 2.00, 2.00, 2.00, xundef, 2.00, &
2959  2.00, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, 2.00, 2.00, &
2960  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2961  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2962  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
2963  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, &
2964  1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, 1.50, 1.50, xundef, &
2965  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2966  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2967  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2968  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2969  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2970  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2971  xundef, 3.00, 3.00 &
2972  /)
2973 !-------------------------------------------------------------------
2974 xdata_ground_depth(:, 1) = (/ &
2975  xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, 1.00, xundef, &
2976  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2977  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2978  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, &
2979  xundef, xundef, xundef, 1.00, xundef, xundef, xundef, 1.00, 1.00, xundef, &
2980  1.00, xundef, 1.00, xundef, xundef, 1.00, xundef, 1.00, xundef, xundef, &
2981  xundef, xundef, xundef, 1.00, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, &
2982  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2983  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, xundef, xundef, &
2984  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2985  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2986  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2987  xundef, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2988  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2989  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2990  xundef, xundef, xundef, xundef, 1.00, xundef, 1.00, xundef, 1.00, xundef, &
2991  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2992  xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, 1.50, xundef, &
2993  1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2994  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2995  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2996  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, &
2997  xundef, xundef, 1.00, xundef, 1.00, 1.00, 1.00, xundef, xundef, 1.00, &
2998  1.00, 1.00, 1.00, 1.00, xundef, 1.00, 1.00, xundef, xundef, xundef, &
2999  xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3000  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3001  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3002  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3003  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3004  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3005  1.00, 1.00, xundef, 1.00, 1.00, xundef, xundef, xundef, xundef, 1.00, &
3006  1.00, 1.00, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, &
3007  xundef, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3008  1.00, 1.00, 1.00, 1.00, 1.50, 1.50, 1.50, 1.50, 1.50, 1.00, &
3009  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3010  1.00, 1.00, 1.00, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3011  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3012  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3013  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3014  1.00, 1.00, 1.00, 1.50, 1.50, 1.00, 1.00, 1.00, 1.00, 1.00, &
3015  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3016  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3017  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3018  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3019  1.00, 1.00, 1.00, 1.00, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3020  1.50, 1.50, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3021  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.50, 1.50, 1.50, 1.50, &
3022  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.00, 1.00, 1.00, 1.00, &
3023  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3024  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3025  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.50, &
3026  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3027  1.00, 1.00, 1.00, 1.00, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3028  1.50, 1.50, xundef, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3029  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, xundef, 1.00, &
3030  1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3031  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, 1.00, &
3032  1.00, 1.50, 1.50 &
3033  /)
3034 !-------------------------------------------------------------------
3035 WHERE(xdata_vegtype(:, 2)>0.) xdata_ground_depth(:, 2) = 0.20
3036 !-------------------------------------------------------------------
3037 WHERE(xdata_vegtype(:, 3)>0.) xdata_ground_depth(:, 3) = 0.20
3038 !-------------------------------------------------------------------
3039 xdata_ground_depth(:, 4) = (/ &
3040  xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, &
3041  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3042  xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, 3.00, &
3043  xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3044  xundef, xundef, xundef, 4.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3045  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, &
3046  xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, &
3047  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3048  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3049  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3050  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3051  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3052  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3053  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3054  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3055  3.00, 3.00, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, &
3056  3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3057  xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, 3.00, 3.00, &
3058  3.00, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, 3.00, 3.00, &
3059  3.00, 3.00, 3.00, 3.00, 3.00, xundef, xundef, 3.00, 3.00, 3.00, &
3060  3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, xundef, xundef, &
3061  xundef, xundef, xundef, xundef, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, &
3062  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
3063  2.00, xundef, 3.00, xundef, 3.00, xundef, xundef, 3.00, xundef, xundef, &
3064  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3065  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3066  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3067  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3068  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3069  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3070  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3071  xundef, xundef, xundef, 3.00, xundef, xundef, 3.00, xundef, 3.00, 3.00, &
3072  3.00, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, xundef, 3.00, xundef, &
3073  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3074  xundef, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3075  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, &
3076  3.00, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3077  xundef, xundef, xundef, xundef, xundef, 2.50, xundef, xundef, xundef, xundef, &
3078  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3079  xundef, 2.50, xundef, xundef, xundef, xundef, 2.50, xundef, xundef, 2.00, &
3080  xundef, 2.00, xundef, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, &
3081  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3082  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.50, xundef, xundef, &
3083  2.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3084  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, &
3085  xundef, 3.00, 3.00, xundef, 3.00, 2.50, 2.50, 2.50, xundef, xundef, &
3086  xundef, xundef, xundef, 3.00, 3.00, 3.00, 3.00, xundef, 3.00, xundef, &
3087  xundef, xundef, xundef, 3.00, 3.00, 3.00, xundef, 3.00, xundef, 3.00, &
3088  3.00, 3.00, xundef, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, &
3089  3.00, 3.00, 3.00, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, &
3090  xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, xundef, xundef, xundef, &
3091  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3092  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3093  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3094  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3095  xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, 3.00, &
3096  3.00, 3.00, 3.00, 3.00, 3.00, xundef, 3.00, 3.00, 3.00, 3.00, &
3097  xundef, xundef, xundef &
3098  /)
3099 !-------------------------------------------------------------------
3100 xdata_ground_depth(:, 5) = (/ &
3101  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3102  3.00, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3103  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3104  3.00, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3105  3.00, 3.00, xundef, xundef, 3.00, 3.00, xundef, xundef, xundef, xundef, &
3106  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, &
3107  xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3108  xundef, xundef, xundef, 2.00, 2.50, xundef, 2.00, xundef, xundef, xundef, &
3109  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3110  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3111  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3112  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3113  xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, &
3114  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3115  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3116  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3117  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3118  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3119  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3120  xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, xundef, xundef, xundef, &
3121  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, 3.00, &
3122  3.00, 3.00, 3.00, xundef, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, &
3123  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3124  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, &
3125  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3126  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3127  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3128  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3129  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3130  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3131  3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, &
3132  3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, &
3133  3.00, xundef, 3.00, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3134  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3135  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, &
3136  3.00, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, 3.00, &
3137  xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, &
3138  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.50, &
3139  2.50, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3140  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3141  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3142  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3143  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3144  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3145  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3146  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3147  3.00, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, xundef, xundef, 3.00, &
3148  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, &
3149  3.00, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3150  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3151  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3152  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3153  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3154  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3155  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3156  xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, 3.00, xundef, &
3157  xundef, xundef, 3.00, 3.00, xundef, 3.00, xundef, xundef, xundef, xundef, &
3158  xundef, xundef, xundef &
3159  /)
3160 !-------------------------------------------------------------------
3161 xdata_ground_depth(:, 6) = (/ &
3162  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3163  xundef, xundef, xundef, xundef, xundef, 8.00, 5.00, 8.00, 5.00, 5.00, &
3164  8.00, 5.00, 5.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3165  xundef, xundef, xundef, 4.00, 4.00, 4.00, 4.00, 5.00, 4.00, xundef, &
3166  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, &
3167  xundef, xundef, xundef, xundef, xundef, xundef, 5.00, xundef, xundef, xundef, &
3168  3.00, 4.00, xundef, xundef, 4.00, xundef, xundef, xundef, xundef, xundef, &
3169  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3170  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3171  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3172  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3173  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3174  xundef, xundef, xundef, 5.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3175  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3176  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3177  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3178  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3179  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3180  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3181  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3182  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3183  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3184  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3185  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3186  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3187  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3188  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3189  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3190  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3191  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3192  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3193  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3194  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3195  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3196  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3197  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3198  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3199  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3200  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3201  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3202  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3203  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3204  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3205  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3206  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3207  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3208  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3209  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3210  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3211  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3212  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3213  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3214  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3215  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3216  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3217  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3218  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3219  xundef, xundef, xundef &
3220  /)
3221 !-------------------------------------------------------------------
3222 xdata_ground_depth(:, 7) = (/ &
3223  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3224  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3225  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3226  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
3227  xundef, 2.00, 2.00, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, &
3228  xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, 2.00, &
3229  2.00, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3230  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3231  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3232  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3233  xundef, xundef, xundef, xundef, 1.50, 2.00, 2.00, 2.00, 2.00, xundef, &
3234  2.00, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3235  2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3236  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3237  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3238  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3239  xundef, 1.50, 1.50, 1.50, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3240  2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3241  xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, 2.00, 2.00, &
3242  2.00, 1.50, 2.00, 2.00, 2.00, 1.50, 2.00, 1.50, xundef, xundef, &
3243  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3244  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3245  xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, &
3246  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3247  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3248  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3249  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3250  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3251  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3252  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3253  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
3254  2.00, 2.00, xundef, 2.00, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, &
3255  xundef, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, 2.00, 2.00, &
3256  2.00, xundef, 1.50, xundef, xundef, 1.50, 1.50, xundef, 1.50, 1.50, &
3257  1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, 1.50, xundef, 1.50, &
3258  1.50, xundef, 2.00, 1.50, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, &
3259  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, xundef, &
3260  xundef, 1.50, xundef, 1.50, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, &
3261  1.50, 1.50, 1.50, 2.00, xundef, xundef, xundef, xundef, 1.50, 1.50, &
3262  1.50, 2.00, 2.00, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3263  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, &
3264  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, &
3265  1.50, 1.50, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3266  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3267  xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3268  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3269  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3270  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3271  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3272  2.00, 2.00, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3273  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3274  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3275  1.50, 1.50, xundef, xundef, xundef, xundef, 1.50, xundef, 1.50, 1.50, &
3276  xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3277  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3278  xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, 2.00, &
3279  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3280  2.00, 2.00, 2.00 &
3281  /)
3282 !-------------------------------------------------------------------
3283 xdata_ground_depth(:, 8) = (/ &
3284  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3285  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3286  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3287  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
3288  xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, &
3289  xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, 2.00, &
3290  2.00, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3291  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3292  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3293  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3294  xundef, xundef, xundef, xundef, 1.50, 2.00, 2.00, 2.00, xundef, 2.00, &
3295  2.00, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, &
3296  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3297  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3298  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3299  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3300  xundef, 1.50, 1.50, 1.50, 2.00, xundef, xundef, 2.00, 2.00, 2.00, &
3301  xundef, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3302  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3303  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3304  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3305  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3306  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3307  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3308  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3309  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3310  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3311  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3312  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3313  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3314  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3315  xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, 2.00, &
3316  2.00, 2.00, 2.00, 2.00, xundef, 2.00, xundef, 2.00, 2.00, 2.00, &
3317  2.00, xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, 1.50, xundef, &
3318  xundef, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3319  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, xundef, 1.50, &
3320  1.50, xundef, 1.50, xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, &
3321  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, 1.50, xundef, 1.50, &
3322  1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, &
3323  1.50, 1.50, 1.50, 1.50, xundef, 1.50, xundef, 1.50, 1.50, 1.50, &
3324  1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, &
3325  1.50, 1.50, 1.50, 1.50, xundef, 1.50, xundef, xundef, xundef, xundef, &
3326  xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, 1.50, 1.50, 1.50, &
3327  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3328  xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3329  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3330  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, &
3331  2.00, 2.00, xundef, 2.00, 2.00, 2.00, 1.50, 2.00, 2.00, 2.00, &
3332  2.00, 2.00, 2.00, 2.00, xundef, 2.00, 2.00, xundef, 2.00, 2.00, &
3333  xundef, 2.00, 2.00, 2.00, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, &
3334  1.50, xundef, 1.50, 1.50, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, &
3335  xundef, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, 1.50, 1.50, &
3336  1.50, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3337  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3338  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3339  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3340  xundef, 2.00, 2.00, 2.00, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, &
3341  2.00, 2.00, 2.00 &
3342  /)
3343 !-------------------------------------------------------------------
3344 WHERE(xdata_vegtype(:, 9)>0.) xdata_ground_depth(:, 9) = 2.00
3345 !-------------------------------------------------------------------
3346 xdata_ground_depth(:, 10) = (/ &
3347  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, &
3348  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3349  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3350  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3351  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3352  xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3353  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3354  xundef, xundef, xundef, xundef, 1.50, xundef, xundef, 1.50, 2.00, 1.00, &
3355  xundef, xundef, 1.50, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3356  xundef, 2.00, 2.00, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, &
3357  2.00, 2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3358  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3359  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3360  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3361  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3362  xundef, xundef, xundef, xundef, xundef, 2.00, xundef, 1.50, xundef, xundef, &
3363  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3364  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
3365  xundef, 2.00, 2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, &
3366  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
3367  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3368  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
3369  2.00, 2.00, 2.00, 2.00, 1.00, 1.50, 1.50, 1.50, 1.50, 1.50, &
3370  xundef, xundef, 2.00, 2.00, 2.00, 1.00, xundef, xundef, xundef, xundef, &
3371  2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3372  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3373  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3374  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3375  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3376  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3377  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3378  xundef, 1.50, xundef, 1.50, xundef, xundef, 1.50, xundef, 1.50, 2.00, &
3379  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3380  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, 2.00, &
3381  2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
3382  2.00, 2.00, 2.00, 2.00, 2.00, 1.50, 1.50, 1.00, 1.00, 2.00, &
3383  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 1.50, 1.50, 1.00, 1.00, &
3384  1.00, 1.00, 1.00, 1.00, 1.00, 2.00, 2.00, 1.50, 1.50, 1.50, &
3385  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3386  1.50, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3387  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 1.00, 1.00, &
3388  1.00, 2.00, 2.00, 1.50, 1.00, 1.50, 1.50, 1.00, 1.00, 1.50, &
3389  1.50, 1.00, 1.00, 1.00, 1.50, 1.00, 1.00, 2.00, 2.00, 2.00, &
3390  2.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3391  xundef, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3392  2.00, 2.00, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3393  xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 2.00, 2.00, &
3394  xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 1.50, 1.50, 1.50, 2.00, &
3395  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3396  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3397  2.00, 2.00, 2.00, 2.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3398  1.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3399  2.00, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3400  1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, &
3401  1.00, 1.00, 1.00, 1.00, 1.00, xundef, xundef, xundef, xundef, xundef, &
3402  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, &
3403  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3404  2.00, 2.00, xundef &
3405  /)
3406 !-------------------------------------------------------------------
3407 xdata_ground_depth(:, 11) = (/ &
3408  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, &
3409  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3410  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3411  xundef, xundef, xundef, 2.00, 2.00, 2.00, 2.00, xundef, 2.00, 2.00, &
3412  xundef, xundef, xundef, 2.00, xundef, xundef, xundef, 1.50, 1.50, 2.00, &
3413  2.00, 1.50, 1.50, xundef, xundef, 2.00, xundef, 1.50, xundef, xundef, &
3414  xundef, 1.50, xundef, xundef, 2.00, 2.00, 1.50, 1.50, 1.50, 1.50, &
3415  1.50, 1.50, 1.50, xundef, xundef, 1.50, xundef, 1.50, xundef, xundef, &
3416  1.50, 1.00, xundef, xundef, xundef, xundef, 1.00, 2.00, 1.50, 2.00, &
3417  2.00, xundef, xundef, 2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, &
3418  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3419  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3420  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3421  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3422  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3423  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3424  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3425  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3426  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3427  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3428  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3429  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3430  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3431  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3432  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3433  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3434  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3435  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3436  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3437  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3438  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3439  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3440  xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, &
3441  xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, &
3442  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3443  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3444  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3445  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3446  xundef, xundef, xundef, xundef, xundef, 1.50, xundef, 1.50, xundef, xundef, &
3447  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3448  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3449  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, &
3450  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3451  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3452  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3453  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3454  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3455  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3456  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3457  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3458  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3459  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3460  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3461  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3462  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3463  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3464  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3465  xundef, xundef, xundef &
3466  /)
3467 !-------------------------------------------------------------------
3468 xdata_ground_depth(:, 12) = (/ &
3469  xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, &
3470  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3471  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3472  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3473  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3474  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3475  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3476  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3477  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3478  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3479  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3480  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3481  xundef, xundef, xundef, 3.00, 2.00, xundef, xundef, xundef, xundef, xundef, &
3482  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3483  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3484  2.00, 2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, 2.00, &
3485  2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3486  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3487  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3488  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3489  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3490  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3491  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3492  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, 2.00, &
3493  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3494  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3495  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3496  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3497  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3498  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3499  1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
3500  1.50, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, 1.50, 1.50, xundef, &
3501  xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, 2.00, &
3502  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3503  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
3504  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, xundef, &
3505  xundef, 1.50, xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, &
3506  xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, &
3507  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3508  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3509  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3510  xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3511  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3512  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3513  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3514  2.00, xundef, xundef, 2.00, xundef, xundef, xundef, 2.00, xundef, xundef, &
3515  xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, xundef, xundef, xundef, &
3516  2.00, xundef, xundef, 2.00, 2.00, xundef, 2.00, 2.00, 2.00, xundef, &
3517  xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, xundef, xundef, &
3518  xundef, xundef, xundef, 2.00, xundef, 2.00, xundef, xundef, xundef, xundef, &
3519  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3520  xundef, xundef, 2.00, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
3521  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
3522  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3523  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
3524  xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3525  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, &
3526  2.00, xundef, xundef &
3527  /)
3528 !-------------------------------------------------------------------
3529 xdata_ground_depth(:, 13) = (/ &
3530  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, &
3531  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3532  xundef, xundef, xundef, xundef, xundef, xundef, 5.00, xundef, xundef, xundef, &
3533  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3534  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, xundef, &
3535  3.00, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, &
3536  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3537  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3538  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3539  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3540  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3541  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3542  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3543  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3544  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3545  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3546  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3547  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3548  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3549  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3550  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3551  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3552  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3553  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3554  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3555  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3556  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3557  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3558  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3559  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3560  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3561  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3562  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3563  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3564  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3565  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3566  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3567  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3568  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3569  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3570  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3571  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3572  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3573  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3574  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3575  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3576  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3577  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3578  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3579  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3580  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3581  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3582  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3583  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3584  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3585  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3586  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3587  xundef, xundef, xundef &
3588  /)
3589 !-------------------------------------------------------------------
3590 xdata_ground_depth(:, 14) = (/ &
3591  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3592  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3593  xundef, xundef, xundef, xundef, 5.00, xundef, xundef, 5.00, 3.00, xundef, &
3594  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, &
3595  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3596  xundef, 3.00, 3.00, 4.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3597  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3598  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3599  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3600  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3601  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3602  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3603  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3604  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3605  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3606  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3607  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3608  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3609  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3610  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3611  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3612  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3613  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3614  xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3615  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3616  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3617  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3618  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3619  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3620  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3621  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3622  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3623  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, 3.00, &
3624  3.00, 3.00, 2.50, 2.50, 2.50, 2.50, 2.50, 2.50, 2.50, 2.00, &
3625  2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3626  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3627  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3628  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3629  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3630  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.50, xundef, xundef, &
3631  2.00, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3632  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3633  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.50, 2.50, &
3634  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3635  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3636  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3637  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3638  xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, &
3639  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3640  xundef, xundef, xundef, 3.00, xundef, 2.00, xundef, 2.00, xundef, xundef, &
3641  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, &
3642  3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, &
3643  3.00, xundef, xundef, xundef, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, &
3644  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3645  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3646  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3647  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3648  3.00, xundef, xundef &
3649  /)
3650 !-------------------------------------------------------------------
3651 xdata_ground_depth(:, 15) = (/ &
3652  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, &
3653  xundef, 3.00, xundef, 3.00, 4.00, xundef, xundef, xundef, xundef, xundef, &
3654  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, &
3655  xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3656  xundef, xundef, 3.00, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, &
3657  xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, &
3658  xundef, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3659  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
3660  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3661  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3662  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3663  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3664  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3665  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3666  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3667  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3668  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3669  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3670  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3671  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3672  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3673  xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3674  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3675  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3676  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3677  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3678  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3679  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3680  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3681  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3682  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3683  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3684  xundef, 3.00, xundef, xundef, 3.00, 3.00, 2.50, 3.00, 3.00, 3.00, &
3685  3.00, 3.00, 2.50, 2.50, 2.50, 2.50, 2.50, 2.50, 2.50, 2.00, &
3686  2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3687  xundef, 3.00, 3.00, 3.00, 3.00, xundef, 2.00, xundef, xundef, xundef, &
3688  3.00, 3.00, 3.00, 3.00, 3.00, xundef, xundef, xundef, xundef, xundef, &
3689  xundef, xundef, xundef, xundef, xundef, 2.50, 2.50, 2.50, xundef, xundef, &
3690  xundef, 2.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3691  2.50, xundef, 2.50, 2.50, xundef, 2.50, xundef, 2.50, xundef, 2.00, &
3692  2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, &
3693  xundef, 2.00, 2.00, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, &
3694  2.00, xundef, xundef, xundef, xundef, 2.00, xundef, 2.50, 2.50, 2.50, &
3695  2.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3696  xundef, xundef, xundef, xundef, 3.00, xundef, 3.00, 3.00, xundef, 3.00, &
3697  xundef, 3.00, 3.00, 3.00, 3.00, 2.50, 2.50, 2.50, 2.50, 2.50, &
3698  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3699  xundef, xundef, xundef, 3.00, xundef, xundef, 3.00, 3.00, xundef, xundef, &
3700  xundef, xundef, xundef, 3.00, 3.00, xundef, 3.00, 3.00, 3.00, xundef, &
3701  3.00, xundef, xundef, 3.00, xundef, 2.00, 2.00, 2.00, 2.00, xundef, &
3702  xundef, xundef, xundef, xundef, xundef, 2.00, xundef, 2.00, 2.00, 3.00, &
3703  3.00, 3.00, 3.00, 3.00, 3.00, xundef, 3.00, 3.00, 3.00, 3.00, &
3704  xundef, 2.50, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, 3.00, &
3705  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3706  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3707  xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, 3.00, &
3708  3.00, 3.00, xundef, xundef, 3.00, xundef, 3.00, 3.00, 3.00, 3.00, &
3709  3.00, xundef, 3.00 &
3710  /)
3711 !-------------------------------------------------------------------
3712 WHERE(xdata_vegtype(:,16)>0.) xdata_ground_depth(:, 16) = 3.00
3713 !-------------------------------------------------------------------
3714 WHERE(xdata_vegtype(:,17)>0.) xdata_ground_depth(:, 17) = 3.00
3715 !-------------------------------------------------------------------
3716 xdata_ground_depth(:, 18) = (/ &
3717  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3718  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3719  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3720  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3721  1.50, xundef, xundef, xundef, 2.00, 1.50, xundef, xundef, xundef, xundef, &
3722  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, &
3723  xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, &
3724  xundef, xundef, xundef, 1.50, xundef, xundef, 1.50, xundef, xundef, xundef, &
3725  xundef, xundef, xundef, xundef, 1.00, 2.00, xundef, xundef, xundef, xundef, &
3726  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 1.50, 1.50, &
3727  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3728  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3729  xundef, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3730  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3731  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3732  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3733  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3734  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3735  xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, &
3736  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3737  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3738  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3739  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3740  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3741  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3742  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3743  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3744  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3745  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3746  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3747  1.50, 1.50, 1.50, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, &
3748  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3749  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3750  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3751  xundef, xundef, xundef, 1.00, 1.00, 1.00, 1.50, 1.50, 1.50, xundef, &
3752  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3753  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3754  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3755  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3756  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3757  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3758  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3759  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3760  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3761  1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3762  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3763  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3764  2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3765  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3766  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3767  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3768  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3769  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3770  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3771  xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, xundef, xundef, xundef, &
3772  xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, xundef, xundef, &
3773  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3774  xundef, xundef, xundef &
3775  /)
3776 !-------------------------------------------------------------------
3777 xdata_ground_depth(:, 19) = (/ &
3778  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3779  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3780  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3781  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3782  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3783  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3784  xundef, xundef, xundef, xundef, xundef, xundef, 4.00, 4.00, 4.00, 4.00, &
3785  4.00, 4.00, 4.00, xundef, xundef, 3.00, xundef, xundef, 3.00, xundef, &
3786  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3787  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3788  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3789  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3790  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3791  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3792  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3793  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3794  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3795  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3796  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3797  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3798  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3799  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3800  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3801  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3802  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3803  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3804  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3805  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3806  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3807  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3808  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3809  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3810  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3811  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3812  xundef, xundef, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3813  xundef, 3.00, 3.00, 3.00, xundef, 2.00, 2.00, 2.00, 2.00, xundef, &
3814  xundef, xundef, 3.00, 3.00, 3.00, 3.00, 2.50, 2.50, 2.00, 2.00, &
3815  2.00, 2.00, 2.00, 2.00, 2.00, xundef, 2.50, 2.50, 2.50, 2.50, &
3816  2.50, 2.50, 2.00, 2.50, 2.50, 2.00, 2.00, 2.00, 2.00, 2.50, &
3817  2.50, xundef, 2.50, 2.50, 2.50, 2.50, xundef, xundef, 2.00, xundef, &
3818  xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, 2.00, 2.00, xundef, &
3819  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, 2.00, &
3820  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, xundef, &
3821  xundef, 2.50, xundef, xundef, 2.00, 2.00, xundef, xundef, xundef, xundef, &
3822  xundef, xundef, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, 3.00, &
3823  3.00, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, 2.50, 2.50, &
3824  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3825  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3826  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, &
3827  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, &
3828  2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, 2.00, 2.00, xundef, &
3829  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3830  xundef, 2.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3831  xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3832  xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3833  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3834  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3835  xundef, 3.00, 3.00 &
3836  /)
3837 !-------------------------------------------------------------------
3838 xdata_dice(:, 1) = (/ &
3839  xundef, xundef, xundef, 0.50, xundef, xundef, xundef, xundef, 0.30, xundef, &
3840  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3841  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3842  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.40, &
3843  xundef, xundef, xundef, 0.40, xundef, xundef, xundef, 0.50, 0.50, xundef, &
3844  0.50, xundef, 0.50, xundef, xundef, 0.50, xundef, 0.50, xundef, xundef, &
3845  xundef, xundef, xundef, 0.30, xundef, 0.50, 0.50, 0.50, 0.50, 0.50, &
3846  0.50, 0.50, 0.50, 0.30, 0.40, 0.40, 0.30, 0.30, 0.50, 0.50, &
3847  0.50, 0.50, 0.40, 0.40, 0.30, 0.30, 0.40, xundef, xundef, xundef, &
3848  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3849  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3850  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3851  xundef, xundef, 0.30, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3852  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3853  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3854  xundef, xundef, xundef, xundef, 0.50, xundef, 0.50, xundef, 0.50, xundef, &
3855  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3856  xundef, xundef, xundef, xundef, xundef, xundef, 1.00, 0.80, 1.00, xundef, &
3857  0.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3858  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3859  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3860  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.50, &
3861  xundef, xundef, 0.50, xundef, 0.30, 0.50, 0.50, xundef, xundef, 0.50, &
3862  0.50, 0.50, 0.50, 0.50, xundef, 0.50, 0.50, xundef, xundef, xundef, &
3863  xundef, 0.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3864  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3865  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3866  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3867  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3868  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3869  0.25, 0.25, xundef, 0.25, 0.25, xundef, xundef, xundef, xundef, 0.25, &
3870  0.25, 0.30, xundef, 0.30, 0.30, 0.30, 0.30, 0.30, 0.30, xundef, &
3871  xundef, 0.40, 0.40, 0.40, 0.40, 0.40, 0.50, 0.50, 0.50, 0.40, &
3872  0.40, 0.50, 0.50, 0.50, 1.00, 1.00, 1.00, 1.00, 1.00, 0.50, &
3873  0.50, 0.50, 0.50, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.40, &
3874  0.40, 0.40, 0.40, xundef, 0.40, 0.50, 0.50, 0.50, 0.40, 0.40, &
3875  0.40, 0.40, 0.40, 0.40, 0.40, 0.40, 0.40, 0.40, 0.40, 0.40, &
3876  0.40, 0.40, 0.40, 0.40, 0.40, 0.50, 0.50, 0.50, 0.30, 0.40, &
3877  0.40, 0.50, 0.50, 0.50, 0.30, 0.40, 0.40, 0.40, 0.50, 0.50, &
3878  0.50, 0.40, 0.40, 1.00, 1.00, 0.50, 0.50, 0.50, 0.50, 0.50, &
3879  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
3880  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
3881  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
3882  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.25, &
3883  0.40, 0.40, 0.40, 0.40, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3884  0.80, 0.80, 0.40, 0.40, 0.40, 0.40, 0.40, 0.50, 0.40, 0.40, &
3885  0.30, 0.30, 0.30, 0.40, 0.40, 0.40, 0.80, 0.80, 0.80, 0.80, &
3886  0.80, 0.80, 0.80, 0.80, 0.80, 0.80, 0.50, 0.40, 0.40, 0.40, &
3887  0.40, 0.40, 0.40, 0.40, 0.40, 0.40, 0.40, 0.40, 0.40, 0.50, &
3888  0.40, 0.40, 0.40, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
3889  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 1.00, &
3890  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3891  0.40, 0.50, 0.50, 0.50, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3892  1.00, 1.00, xundef, xundef, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
3893  0.50, 0.50, 0.50, 0.50, 0.50, 0.25, 0.25, xundef, xundef, 0.50, &
3894  0.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3895  0.40, 0.40, 0.40, 0.40, 0.40, 0.30, 0.50, 0.50, xundef, 0.50, &
3896  0.50, 1.00, 1.00 &
3897  /)
3898 !-------------------------------------------------------------------
3899 xdata_dice(:, 2) = (/ &
3900  xundef, xundef, xundef, xundef, 0.20, xundef, xundef, xundef, xundef, xundef, &
3901  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3902  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3903  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3904  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3905  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3906  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3907  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3908  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3909  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3910  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3911  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3912  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3913  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3914  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3915  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3916  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3917  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3918  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3919  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3920  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3921  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3922  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3923  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3924  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3925  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3926  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3927  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3928  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3929  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3930  0.25, 0.25, xundef, 0.25, 0.25, xundef, 0.25, xundef, 0.25, 0.25, &
3931  0.25, 0.20, xundef, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, &
3932  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3933  xundef, xundef, xundef, xundef, xundef, 0.20, xundef, xundef, xundef, xundef, &
3934  xundef, xundef, xundef, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.20, &
3935  xundef, xundef, xundef, xundef, xundef, 0.20, 0.20, 0.20, 0.20, xundef, &
3936  xundef, xundef, xundef, xundef, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, &
3937  0.20, 0.20, 0.20, 0.20, 0.20, xundef, 0.20, 0.20, xundef, 0.20, &
3938  0.20, xundef, 0.20, xundef, xundef, 0.20, 0.20, xundef, xundef, xundef, &
3939  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3940  xundef, xundef, xundef, xundef, xundef, 0.20, 0.20, 0.20, 0.20, 0.20, &
3941  0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, &
3942  0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, &
3943  0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, xundef, &
3944  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3945  xundef, xundef, xundef, 0.20, xundef, xundef, xundef, 0.20, xundef, xundef, &
3946  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.20, xundef, xundef, &
3947  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3948  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3949  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.20, &
3950  xundef, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, &
3951  0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, &
3952  0.20, 0.20, xundef, xundef, xundef, xundef, xundef, 0.20, 0.20, xundef, &
3953  xundef, 0.20, 0.20, 0.20, xundef, xundef, xundef, xundef, xundef, 0.20, &
3954  0.20, 0.20, xundef, 0.20, 0.20, 0.25, xundef, xundef, xundef, xundef, &
3955  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3956  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3957  0.20, xundef, xundef &
3958  /)
3959 !-------------------------------------------------------------------
3960 xdata_dice(:, 3) = (/ &
3961  xundef, xundef, xundef, xundef, xundef, 0.20, xundef, xundef, xundef, xundef, &
3962  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3963  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3964  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3965  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3966  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3967  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3968  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3969  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3970  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3971  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3972  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3973  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3974  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3975  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3976  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3977  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3978  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3979  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3980  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3981  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3982  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3983  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3984  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3985  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3986  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3987  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3988  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3989  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3990  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3991  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3992  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3993  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3994  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3995  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3996  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3997  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3998  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3999  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4000  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4001  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4002  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4003  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4004  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4005  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4006  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4007  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4008  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4009  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4010  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4011  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4012  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4013  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4014  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4015  xundef, xundef, xundef, xundef, xundef, xundef, 0.25, 0.25, xundef, xundef, &
4016  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4017  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4018  xundef, xundef, xundef &
4019  /)
4020 !-------------------------------------------------------------------
4021 xdata_dice(:, 4) = (/ &
4022  xundef, xundef, xundef, xundef, xundef, xundef, 1.60, xundef, xundef, xundef, &
4023  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4024  xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, 1.00, &
4025  xundef, 1.60, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4026  xundef, xundef, xundef, 2.40, xundef, xundef, xundef, xundef, xundef, xundef, &
4027  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, &
4028  xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, &
4029  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4030  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4031  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4032  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4033  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4034  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4035  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4036  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4037  1.60, 2.00, 1.60, xundef, xundef, xundef, xundef, xundef, xundef, 1.60, &
4038  1.60, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4039  xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 2.40, 2.00, 1.60, &
4040  2.00, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, 1.60, 1.60, &
4041  1.60, 2.00, 1.60, 1.60, 1.60, xundef, xundef, 2.00, 2.00, 2.00, &
4042  2.00, 1.60, 1.60, 1.60, 1.60, 1.60, 1.60, xundef, xundef, xundef, &
4043  xundef, xundef, xundef, xundef, 2.00, 1.60, 1.60, 1.60, 1.60, xundef, &
4044  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
4045  2.00, xundef, 2.00, xundef, 1.60, xundef, xundef, 1.60, xundef, xundef, &
4046  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4047  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4048  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4049  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4050  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4051  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4052  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4053  xundef, xundef, xundef, 1.00, xundef, xundef, 1.00, xundef, 1.00, 1.60, &
4054  1.60, 1.60, 1.60, 1.60, 1.60, 1.60, xundef, xundef, 2.00, xundef, &
4055  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4056  xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4057  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.60, &
4058  1.60, 1.60, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4059  xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, &
4060  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4061  xundef, 1.60, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, 1.50, &
4062  xundef, 1.50, xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, &
4063  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4064  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
4065  2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4066  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, &
4067  xundef, 1.60, 2.40, xundef, 1.60, 1.60, 1.60, 2.00, xundef, xundef, &
4068  xundef, xundef, xundef, 1.60, 1.60, 1.60, 1.60, xundef, 1.60, xundef, &
4069  xundef, xundef, xundef, 1.60, 1.60, 1.60, xundef, 1.60, xundef, 1.60, &
4070  1.60, 1.60, xundef, 1.60, 1.60, 1.60, 1.60, 1.60, 1.60, xundef, &
4071  1.60, 1.60, 1.60, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, &
4072  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, xundef, xundef, &
4073  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4074  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4075  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4076  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4077  xundef, xundef, xundef, xundef, xundef, 1.60, xundef, xundef, xundef, 1.60, &
4078  1.60, 1.60, 1.60, 1.60, 1.60, xundef, 2.00, 2.00, 1.60, 2.00, &
4079  xundef, xundef, xundef &
4080  /)
4081 !-------------------------------------------------------------------
4082 xdata_dice(:, 5) = (/ &
4083  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4084  0.30, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4085  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4086  0.30, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4087  0.30, 1.00, xundef, xundef, 1.00, 1.00, xundef, xundef, xundef, xundef, &
4088  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.30, 1.00, &
4089  xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, &
4090  xundef, xundef, xundef, 0.30, 1.60, xundef, 0.30, xundef, xundef, xundef, &
4091  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4092  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4093  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4094  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4095  xundef, xundef, xundef, xundef, 0.30, xundef, xundef, xundef, xundef, xundef, &
4096  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4097  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4098  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4099  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4100  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4101  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4102  xundef, xundef, xundef, xundef, xundef, 2.00, 1.60, xundef, xundef, xundef, &
4103  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 1.60, 1.60, &
4104  1.60, 1.60, 1.60, xundef, 2.00, 1.60, 1.60, 1.60, 1.60, xundef, &
4105  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4106  xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, 1.60, xundef, &
4107  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4108  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4109  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4110  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4111  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4112  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4113  0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, &
4114  0.25, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.60, &
4115  1.60, xundef, 1.60, 1.60, xundef, xundef, xundef, xundef, xundef, xundef, &
4116  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4117  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.25, xundef, xundef, &
4118  1.60, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, 1.60, &
4119  xundef, xundef, xundef, xundef, xundef, 1.60, xundef, xundef, xundef, xundef, &
4120  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.60, &
4121  1.60, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4122  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4123  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4124  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4125  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4126  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4127  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4128  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4129  1.00, 1.00, 1.00, 1.60, 1.60, 1.60, xundef, xundef, xundef, 1.60, &
4130  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.60, xundef, &
4131  1.60, 1.60, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4132  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4133  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4134  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4135  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4136  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4137  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4138  xundef, xundef, xundef, xundef, xundef, xundef, 0.25, 1.00, 1.00, xundef, &
4139  xundef, xundef, 1.60, 1.60, xundef, 1.00, xundef, xundef, xundef, xundef, &
4140  xundef, xundef, xundef &
4141  /)
4142 !-------------------------------------------------------------------
4143 xdata_dice(:, 6) = (/ &
4144  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4145  xundef, xundef, xundef, xundef, xundef, 8.00, 5.00, 8.00, 4.00, 5.00, &
4146  8.00, 4.00, 5.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4147  xundef, xundef, xundef, 3.00, 3.00, 3.00, 3.00, 4.00, 3.00, xundef, &
4148  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, &
4149  xundef, xundef, xundef, xundef, xundef, xundef, 5.00, xundef, xundef, xundef, &
4150  2.40, 3.00, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, &
4151  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4152  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4153  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4154  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4155  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4156  xundef, xundef, xundef, 5.00, xundef, xundef, xundef, xundef, xundef, xundef, &
4157  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4158  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4159  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4160  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4161  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4162  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4163  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4164  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4165  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4166  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4167  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4168  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4169  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4170  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4171  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4172  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4173  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4174  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4175  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4176  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4177  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4178  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4179  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4180  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4181  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4182  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4183  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4184  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4185  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4186  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4187  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4188  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4189  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4190  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4191  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4192  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4193  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4194  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4195  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4196  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4197  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4198  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4199  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4200  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4201  xundef, xundef, xundef &
4202  /)
4203 !-------------------------------------------------------------------
4204 xdata_dice(:, 7) = (/ &
4205  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4206  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4207  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4208  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.20, xundef, xundef, &
4209  xundef, 0.80, 1.20, xundef, xundef, xundef, 1.20, xundef, xundef, xundef, &
4210  xundef, xundef, xundef, xundef, 1.20, xundef, xundef, xundef, xundef, 0.80, &
4211  1.20, xundef, 1.20, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4212  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4213  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4214  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4215  xundef, xundef, xundef, xundef, 1.00, 1.50, 1.50, 1.50, 1.50, xundef, &
4216  1.20, xundef, 1.20, 1.20, 1.20, 1.20, 1.20, 0.80, 1.20, 1.50, &
4217  1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4218  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4219  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4220  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4221  xundef, 1.00, 1.00, 1.00, 1.50, 1.20, 1.50, 1.20, 1.20, 1.20, &
4222  1.20, 1.20, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4223  xundef, xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, 1.20, 1.20, &
4224  1.20, 1.00, 1.20, 1.20, 1.20, 1.00, 1.20, 1.00, xundef, xundef, &
4225  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4226  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4227  xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, &
4228  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4229  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4230  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4231  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4232  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4233  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4234  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4235  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.25, &
4236  0.25, 0.60, xundef, 0.60, 0.60, xundef, 0.60, 0.60, 0.60, 1.20, &
4237  xundef, 1.20, 1.20, 1.20, 1.20, 1.20, xundef, xundef, 1.50, 1.20, &
4238  1.20, xundef, 1.00, xundef, xundef, 1.00, 1.00, xundef, 1.00, 1.00, &
4239  1.00, 1.00, 1.00, xundef, xundef, xundef, xundef, 0.25, xundef, 0.80, &
4240  0.80, xundef, 1.20, 0.80, xundef, 1.00, 1.00, 1.00, 0.80, 0.80, &
4241  1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, xundef, xundef, xundef, &
4242  xundef, 0.80, xundef, 0.80, xundef, 1.00, 1.00, 1.00, 0.40, 0.80, &
4243  0.80, 1.00, 1.00, 1.50, xundef, xundef, xundef, xundef, 1.00, 1.00, &
4244  1.00, 1.20, 1.20, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
4245  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, xundef, xundef, xundef, &
4246  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, 1.00, &
4247  1.00, 1.00, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
4248  1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4249  xundef, 1.20, 1.20, 1.20, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4250  1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.50, 1.20, 1.20, &
4251  0.60, 0.60, 0.60, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, &
4252  1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.50, 1.20, 1.20, 1.20, &
4253  1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.50, &
4254  1.20, 1.20, 0.80, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
4255  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
4256  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
4257  0.80, 1.00, xundef, xundef, xundef, xundef, 1.00, xundef, 1.00, 1.00, &
4258  xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4259  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4260  xundef, xundef, xundef, xundef, xundef, 0.80, xundef, xundef, xundef, 1.20, &
4261  1.20, 1.20, 1.20, 1.20, 1.20, 0.60, 1.50, 1.50, 1.20, 1.50, &
4262  1.50, 1.50, 1.50 &
4263  /)
4264 !-------------------------------------------------------------------
4265 xdata_dice(:, 8) = (/ &
4266  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4267  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4268  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4269  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.20, xundef, xundef, &
4270  xundef, xundef, xundef, xundef, xundef, xundef, 1.20, xundef, xundef, xundef, &
4271  xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, 0.80, &
4272  1.20, xundef, 1.20, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4273  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4274  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4275  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4276  xundef, xundef, xundef, xundef, 1.00, 1.50, 1.50, 1.50, xundef, 1.50, &
4277  1.20, 1.50, xundef, 1.20, 1.20, 1.20, 1.20, 0.80, 1.20, xundef, &
4278  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4279  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4280  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4281  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4282  xundef, 1.00, 1.00, 1.00, 1.50, xundef, xundef, 1.20, 1.20, 1.20, &
4283  xundef, 1.20, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4284  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4285  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4286  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4287  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4288  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4289  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4290  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4291  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4292  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4293  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4294  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4295  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4296  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4297  xundef, xundef, xundef, 0.60, xundef, xundef, xundef, xundef, xundef, 1.20, &
4298  1.20, 1.20, 1.20, 1.20, xundef, 1.20, xundef, 1.50, 1.50, 1.20, &
4299  1.20, xundef, xundef, xundef, xundef, 1.00, 1.00, xundef, 1.00, xundef, &
4300  xundef, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4301  xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, xundef, xundef, 0.80, &
4302  0.80, xundef, 0.80, xundef, 0.80, 0.80, xundef, xundef, xundef, xundef, &
4303  xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, 1.00, xundef, 0.80, &
4304  0.80, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, &
4305  1.00, 0.80, 0.80, 1.00, xundef, 1.00, xundef, 1.00, 1.00, 1.00, &
4306  1.00, 1.00, 1.00, 1.00, 1.00, xundef, xundef, xundef, xundef, xundef, &
4307  1.00, 1.00, 1.00, 1.00, xundef, 1.00, xundef, xundef, xundef, xundef, &
4308  xundef, xundef, xundef, xundef, 1.00, 1.00, xundef, 1.00, 1.00, 1.00, &
4309  1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4310  xundef, 1.20, 1.20, 1.20, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4311  1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.50, 1.20, 1.20, &
4312  0.60, 0.60, 0.60, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, xundef, &
4313  1.20, 1.20, xundef, 1.20, 1.20, 1.20, 1.00, 1.20, 1.20, 1.20, &
4314  1.20, 1.20, 1.20, 1.20, xundef, 1.20, 1.20, xundef, 1.20, 1.50, &
4315  xundef, 1.20, 1.20, 1.50, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, &
4316  1.00, xundef, 1.00, 1.00, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, &
4317  xundef, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, 1.00, 1.00, 1.00, &
4318  0.80, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4319  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4320  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4321  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4322  xundef, 1.20, 1.20, 1.20, 1.20, xundef, 1.50, 1.50, 1.20, 1.50, &
4323  1.50, 1.50, 1.50 &
4324  /)
4325 !-------------------------------------------------------------------
4326 xdata_dice(:, 9) = (/ &
4327  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4328  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4329  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4330  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4331  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4332  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4333  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4334  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4335  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4336  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4337  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4338  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4339  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4340  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4341  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4342  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4343  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4344  xundef, xundef, xundef, 1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, &
4345  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4346  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4347  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4348  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4349  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4350  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4351  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4352  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4353  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4354  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4355  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4356  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4357  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4358  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4359  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4360  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, 1.50, xundef, &
4361  xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4362  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4363  xundef, xundef, xundef, xundef, 1.20, xundef, xundef, xundef, xundef, xundef, &
4364  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, xundef, xundef, &
4365  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4366  xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, 1.50, &
4367  1.50, xundef, xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, &
4368  1.50, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4369  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4370  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4371  xundef, xundef, 1.20, 1.20, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4372  1.20, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, &
4373  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4374  xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.20, xundef, 1.20, &
4375  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4376  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, 1.50, xundef, xundef, &
4377  xundef, 1.50, xundef, 1.50, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, &
4378  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4379  xundef, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4380  1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4381  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4382  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4383  xundef, xundef, xundef, xundef, 1.20, xundef, 1.50, 1.50, xundef, xundef, &
4384  1.50, xundef, xundef &
4385  /)
4386 !-------------------------------------------------------------------
4387 xdata_dice(:, 10) = (/ &
4388  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.30, xundef, &
4389  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4390  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4391  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4392  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4393  xundef, xundef, xundef, 1.20, xundef, xundef, xundef, xundef, xundef, xundef, &
4394  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4395  xundef, xundef, xundef, xundef, 0.80, xundef, xundef, 0.50, 1.50, 0.50, &
4396  xundef, xundef, 0.80, 1.20, xundef, xundef, xundef, xundef, xundef, xundef, &
4397  xundef, 1.50, 1.20, xundef, xundef, xundef, 1.20, xundef, xundef, xundef, &
4398  1.20, 1.20, 0.80, 1.20, xundef, xundef, xundef, xundef, xundef, xundef, &
4399  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4400  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4401  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4402  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4403  xundef, xundef, xundef, xundef, xundef, 1.20, xundef, 0.80, xundef, xundef, &
4404  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4405  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.20, &
4406  xundef, 1.20, 1.20, 1.20, 1.20, xundef, xundef, xundef, xundef, xundef, &
4407  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, &
4408  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4409  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
4410  1.20, 1.20, 1.50, 1.20, 0.30, 1.00, 1.00, 0.80, 0.80, 1.00, &
4411  xundef, xundef, 1.50, 1.50, 1.20, 0.50, xundef, xundef, xundef, xundef, &
4412  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4413  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4414  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4415  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4416  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4417  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4418  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4419  xundef, 0.40, xundef, 0.40, xundef, xundef, 0.40, xundef, 0.40, 1.20, &
4420  1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.50, 1.50, 1.50, 1.20, &
4421  1.20, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, &
4422  1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, 0.80, &
4423  1.20, 1.20, 1.20, 1.20, 1.20, 1.00, 1.00, 0.50, 0.40, 1.20, &
4424  1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 0.80, 0.80, 0.40, 0.40, &
4425  0.40, 0.40, 0.40, 0.40, 0.40, 1.50, 1.50, 1.00, 0.40, 0.80, &
4426  0.80, 1.00, 1.00, 1.00, 0.40, 0.80, 0.80, 0.80, 1.00, 1.00, &
4427  1.00, 1.20, 1.20, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4428  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 0.50, 0.50, &
4429  0.50, 1.50, 1.50, 1.00, 0.50, 1.00, 1.00, 0.50, 0.50, 1.00, &
4430  1.00, 0.50, 0.50, 0.50, 1.00, 0.50, 0.50, 1.50, 1.50, 1.50, &
4431  1.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.25, &
4432  xundef, 1.20, xundef, 1.20, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4433  1.20, 1.20, 0.80, 0.80, 0.80, 0.80, 0.80, 1.00, 0.80, 0.80, &
4434  xundef, 0.40, 0.40, 0.80, 0.80, 0.80, 0.80, 0.80, 1.20, 1.20, &
4435  xundef, 1.20, 1.20, 1.20, 1.20, 1.20, 1.00, 0.80, 0.80, 1.20, &
4436  1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.50, &
4437  1.20, 1.20, 1.20, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4438  1.50, 1.50, 1.50, 1.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
4439  0.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4440  1.20, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
4441  1.00, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.50, &
4442  0.50, 0.50, 0.50, 0.50, 0.50, xundef, xundef, xundef, xundef, xundef, &
4443  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.60, 1.20, &
4444  1.20, 1.20, 1.20, 1.20, 1.20, 0.60, 1.50, 1.50, 1.20, 1.50, &
4445  1.50, 1.50, xundef &
4446  /)
4447 !-------------------------------------------------------------------
4448 xdata_dice(:, 11) = (/ &
4449  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, &
4450  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4451  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4452  xundef, xundef, xundef, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, 1.20, &
4453  xundef, xundef, xundef, 1.20, xundef, xundef, xundef, 1.00, 1.00, 1.50, &
4454  1.50, 1.00, 1.00, xundef, xundef, 1.50, xundef, 1.00, xundef, xundef, &
4455  xundef, 1.00, xundef, xundef, 1.50, 1.50, 1.00, 1.00, 1.00, 1.00, &
4456  1.00, 1.00, 1.00, xundef, xundef, 0.80, xundef, 0.50, xundef, xundef, &
4457  1.00, 0.50, xundef, xundef, xundef, xundef, 0.40, 1.50, 1.00, 1.50, &
4458  1.50, xundef, xundef, 1.20, 1.50, 1.50, xundef, xundef, xundef, xundef, &
4459  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4460  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4461  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4462  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4463  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4464  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4465  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4466  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4467  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4468  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4469  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4470  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4471  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4472  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4473  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4474  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4475  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4476  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4477  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4478  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4479  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4480  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4481  xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, &
4482  xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, &
4483  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4484  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4485  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4486  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4487  xundef, xundef, xundef, xundef, xundef, 0.80, xundef, 0.80, xundef, xundef, &
4488  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4489  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4490  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.50, xundef, &
4491  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4492  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4493  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4494  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4495  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4496  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4497  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4498  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4499  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4500  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4501  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4502  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4503  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4504  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4505  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4506  xundef, xundef, xundef &
4507  /)
4508 !-------------------------------------------------------------------
4509 xdata_dice(:, 12) = (/ &
4510  xundef, xundef, xundef, xundef, xundef, xundef, 0.80, xundef, xundef, xundef, &
4511  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4512  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4513  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4514  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4515  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4516  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4517  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4518  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4519  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4520  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4521  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4522  xundef, xundef, xundef, 3.00, 0.30, xundef, xundef, xundef, xundef, xundef, &
4523  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4524  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4525  1.20, 1.50, 1.20, 1.20, xundef, xundef, xundef, xundef, xundef, 1.20, &
4526  1.20, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4527  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4528  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4529  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4530  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4531  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4532  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4533  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.60, 1.60, 1.20, &
4534  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4535  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4536  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4537  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4538  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4539  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4540  0.25, 0.25, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.25, &
4541  0.25, 0.40, 0.40, 0.40, 0.40, xundef, 0.40, 0.40, 0.40, xundef, &
4542  xundef, xundef, xundef, xundef, 0.80, xundef, xundef, xundef, xundef, 1.60, &
4543  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4544  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.80, &
4545  0.80, 0.80, 0.80, 0.80, 0.80, 1.00, 1.00, xundef, 0.80, xundef, &
4546  xundef, 0.80, xundef, 0.80, 0.80, xundef, xundef, xundef, xundef, xundef, &
4547  xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, &
4548  0.80, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4549  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4550  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4551  xundef, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4552  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4553  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4554  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4555  1.20, xundef, xundef, 1.20, xundef, xundef, xundef, 1.50, xundef, xundef, &
4556  xundef, xundef, xundef, xundef, xundef, 1.20, 1.20, xundef, xundef, xundef, &
4557  1.20, xundef, xundef, 1.20, 1.20, xundef, 1.50, 1.20, 1.20, xundef, &
4558  xundef, xundef, xundef, xundef, xundef, xundef, 1.20, 1.20, xundef, xundef, &
4559  xundef, xundef, xundef, 1.50, xundef, 1.50, xundef, xundef, xundef, xundef, &
4560  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4561  xundef, xundef, 1.50, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, &
4562  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
4563  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4564  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
4565  xundef, 0.25, 1.50, 1.20, 1.20, 1.60, 0.25, 1.00, 1.00, 1.60, &
4566  1.20, 1.20, 1.20, 1.20, 1.20, 0.60, 1.50, 1.50, xundef, xundef, &
4567  1.50, xundef, xundef &
4568  /)
4569 !-------------------------------------------------------------------
4570 xdata_dice(:, 13) = (/ &
4571  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
4572  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4573  xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, &
4574  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4575  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, xundef, &
4576  3.00, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, &
4577  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4578  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4579  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4580  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4581  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4582  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4583  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4584  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4585  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4586  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4587  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4588  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4589  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4590  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4591  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4592  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4593  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4594  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4595  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4596  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4597  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4598  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4599  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4600  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4601  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4602  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4603  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4604  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4605  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4606  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4607  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4608  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4609  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4610  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4611  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4612  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4613  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4614  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4615  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4616  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4617  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4618  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4619  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4620  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4621  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4622  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4623  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4624  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4625  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4626  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4627  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4628  xundef, xundef, xundef &
4629  /)
4630 !-------------------------------------------------------------------
4631 xdata_dice(:, 14) = (/ &
4632  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4633  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4634  xundef, xundef, xundef, xundef, 3.00, xundef, xundef, 3.00, 2.00, xundef, &
4635  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.60, &
4636  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4637  xundef, 2.00, 2.00, 2.40, xundef, xundef, xundef, xundef, xundef, xundef, &
4638  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4639  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4640  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4641  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4642  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4643  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4644  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4645  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4646  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4647  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4648  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4649  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4650  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4651  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4652  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4653  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4654  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4655  xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, &
4656  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4657  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4658  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4659  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4660  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4661  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4662  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4663  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4664  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, 1.60, &
4665  1.60, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 1.50, &
4666  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4667  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4668  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4669  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4670  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4671  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
4672  1.50, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4673  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4674  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, &
4675  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4676  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4677  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4678  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4679  xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, &
4680  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4681  xundef, xundef, xundef, 2.00, xundef, 1.50, xundef, 1.50, xundef, xundef, &
4682  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
4683  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
4684  1.60, xundef, xundef, xundef, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, &
4685  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4686  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4687  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4688  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4689  2.00, xundef, xundef &
4690  /)
4691 !-------------------------------------------------------------------
4692 xdata_dice(:, 15) = (/ &
4693  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, &
4694  xundef, 1.60, xundef, 1.60, 1.50, xundef, xundef, xundef, xundef, xundef, &
4695  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 1.00, &
4696  xundef, 1.60, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4697  xundef, xundef, 1.60, xundef, xundef, xundef, 1.60, xundef, xundef, xundef, &
4698  xundef, xundef, xundef, xundef, 1.60, xundef, xundef, xundef, xundef, xundef, &
4699  xundef, xundef, 1.60, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4700  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.80, xundef, xundef, &
4701  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4702  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4703  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4704  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4705  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4706  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4707  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4708  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4709  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4710  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4711  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4712  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4713  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4714  xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, &
4715  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4716  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4717  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4718  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4719  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4720  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4721  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4722  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4723  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4724  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4725  xundef, 1.60, xundef, xundef, 1.60, 1.60, 2.00, 2.00, 2.00, 1.60, &
4726  1.60, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 1.50, &
4727  1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4728  xundef, 1.60, 1.60, 1.60, 1.60, xundef, 1.50, xundef, xundef, xundef, &
4729  1.60, 1.60, 1.60, 1.60, 1.60, xundef, xundef, xundef, xundef, xundef, &
4730  xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, 2.00, xundef, xundef, &
4731  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4732  2.00, xundef, 1.60, 2.00, xundef, 2.00, xundef, 2.00, xundef, 1.50, &
4733  1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, &
4734  xundef, 1.50, 1.50, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, &
4735  1.50, xundef, xundef, xundef, xundef, 1.50, xundef, 2.00, 2.00, 2.00, &
4736  2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4737  xundef, xundef, xundef, xundef, 2.00, xundef, 2.00, 2.00, xundef, 2.00, &
4738  xundef, 1.60, 1.60, 1.60, 1.60, 1.60, 1.60, 2.00, 1.60, 1.60, &
4739  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4740  xundef, xundef, xundef, 1.60, xundef, xundef, 2.00, 1.60, xundef, xundef, &
4741  xundef, xundef, xundef, 1.60, 1.60, xundef, 1.60, 1.60, 1.60, xundef, &
4742  1.60, xundef, xundef, 2.00, xundef, 1.50, 1.50, 1.50, 1.50, xundef, &
4743  xundef, xundef, xundef, xundef, xundef, 1.50, xundef, 1.50, 1.50, 2.00, &
4744  2.00, 2.00, 2.00, 2.00, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, &
4745  xundef, 2.00, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, 2.00, &
4746  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4747  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4748  xundef, xundef, xundef, xundef, xundef, 1.60, xundef, xundef, xundef, 1.60, &
4749  1.60, 1.60, xundef, xundef, 1.60, xundef, 2.00, 2.00, 1.60, 2.00, &
4750  2.00, xundef, 2.00 &
4751  /)
4752 !-------------------------------------------------------------------
4753 xdata_dice(:, 16) = (/ &
4754  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4755  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4756  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4757  0.30, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4758  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4759  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4760  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4761  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4762  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4763  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4764  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4765  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4766  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4767  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4768  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4769  xundef, xundef, xundef, 1.60, xundef, xundef, xundef, xundef, xundef, xundef, &
4770  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4771  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4772  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4773  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4774  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4775  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4776  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4777  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4778  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4779  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4780  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4781  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4782  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4783  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4784  0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, &
4785  0.25, 1.00, 1.00, xundef, 1.00, 1.00, xundef, 1.00, xundef, xundef, &
4786  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4787  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4788  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4789  1.60, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4790  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4791  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4792  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4793  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4794  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4795  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4796  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4797  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4798  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4799  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4800  1.00, 1.00, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, 1.60, &
4801  1.60, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4802  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4803  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4804  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4805  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4806  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4807  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4808  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4809  xundef, xundef, xundef, xundef, xundef, xundef, 0.25, 1.00, 1.00, xundef, &
4810  xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, &
4811  xundef, xundef, xundef &
4812  /)
4813 !-------------------------------------------------------------------
4814 WHERE(xdata_vegtype(:,17)>0.) xdata_dice(:, 17) = 0.30
4815 !-------------------------------------------------------------------
4816 xdata_dice(:, 18) = (/ &
4817  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4818  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4819  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4820  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4821  0.30, xundef, xundef, xundef, 0.80, 0.50, xundef, xundef, xundef, xundef, &
4822  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.30, xundef, &
4823  xundef, xundef, xundef, 0.50, xundef, xundef, xundef, xundef, xundef, xundef, &
4824  xundef, xundef, xundef, 0.30, xundef, xundef, 0.30, xundef, xundef, xundef, &
4825  xundef, xundef, xundef, xundef, 0.30, 0.30, xundef, xundef, xundef, xundef, &
4826  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.30, 0.80, 0.30, &
4827  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4828  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4829  xundef, xundef, 0.30, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4830  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4831  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4832  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4833  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4834  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4835  xundef, xundef, xundef, xundef, xundef, 1.20, xundef, xundef, xundef, xundef, &
4836  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4837  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4838  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4839  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4840  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4841  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4842  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4843  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4844  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4845  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4846  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4847  0.25, 0.25, 0.25, xundef, 0.25, xundef, xundef, xundef, xundef, xundef, &
4848  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4849  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4850  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4851  xundef, xundef, xundef, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, xundef, &
4852  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4853  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4854  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4855  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4856  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4857  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4858  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4859  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4860  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4861  0.40, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4862  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4863  0.40, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4864  1.20, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4865  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4866  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4867  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4868  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4869  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4870  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4871  xundef, xundef, xundef, xundef, xundef, 0.25, 0.25, xundef, xundef, xundef, &
4872  xundef, xundef, xundef, xundef, xundef, xundef, 0.25, 0.60, xundef, xundef, &
4873  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4874  xundef, xundef, xundef &
4875  /)
4876 !-------------------------------------------------------------------
4877 xdata_dice(:, 19) = (/ &
4878  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4879  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4880  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4881  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4882  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4883  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4884  xundef, xundef, xundef, xundef, xundef, xundef, 4.00, 4.00, 4.00, 4.00, &
4885  4.00, 4.00, 4.00, xundef, xundef, 2.40, xundef, xundef, 3.00, xundef, &
4886  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4887  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4888  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4889  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4890  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4891  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4892  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4893  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4894  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4895  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4896  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4897  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4898  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4899  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4900  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4901  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4902  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4903  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4904  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4905  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4906  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4907  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4908  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4909  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4910  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4911  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4912  xundef, xundef, xundef, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 1.20, &
4913  xundef, 1.60, 1.60, 1.60, xundef, 1.50, 1.50, 1.50, 1.20, xundef, &
4914  xundef, xundef, 1.60, 1.60, 1.60, 1.60, 1.60, 1.60, 1.20, 1.20, &
4915  1.20, 1.20, 1.20, 1.20, 1.20, xundef, 2.00, 2.00, 1.00, 1.60, &
4916  1.60, 2.00, 1.50, 2.00, 1.00, 1.20, 1.20, 1.20, 1.50, 2.00, &
4917  2.00, xundef, 1.60, 2.00, 2.00, 2.00, xundef, xundef, 1.50, xundef, &
4918  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, 1.50, 1.50, xundef, &
4919  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, &
4920  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, &
4921  xundef, 2.00, xundef, xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, &
4922  xundef, xundef, 1.60, 1.60, 3.00, 2.00, 2.00, 2.00, xundef, 2.00, &
4923  1.60, xundef, xundef, 2.40, xundef, xundef, xundef, xundef, 1.60, 1.60, &
4924  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4925  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4926  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
4927  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, &
4928  1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, 1.50, 1.50, xundef, &
4929  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4930  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4931  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4932  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4933  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4934  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4935  xundef, 3.00, 3.00 &
4936  /)
4937 !-------------------------------------------------------------------
4938 WHERE(xdata_vegtype(:, 9)>0. ) tdata_seed(:, 9)%TDATE%DAY =10
4939 !-------------------------------------------------------------------
4940 WHERE(xdata_vegtype(:, 9)>0. ) tdata_seed(:, 9)%TDATE%MONTH =05
4941 !-------------------------------------------------------------------
4942 WHERE(xdata_vegtype(:, 9)>0. ) tdata_reap(:, 9)%TDATE%DAY =01
4943 !-------------------------------------------------------------------
4944 WHERE(xdata_vegtype(:, 9)>0. ) tdata_reap(:, 9)%TDATE%MONTH =08
4945 !-------------------------------------------------------------------
4946 !
4947 IF (lhook) CALL dr_hook('DEFAULT_DATA_COVER',1,zhook_handle)
4948 !
4949 END SUBROUTINE default_data_cover
modd_data_cover_par
Definition: modd_data_cover_par.F90:6
modd_data_cover
Definition: modd_data_cover.F90:6
default_data_cover
subroutine default_data_cover
Definition: default_data_cover.F90:5
modd_surf_par
Definition: modd_surf_par.F90:6
Generated on Fri May 13 2016 09:31:02 for SURFEX by   doxygen 1.8.5