1 /* zztpats.f -- translated by f2c (version 19980913).
2 You must link the resulting object file with the libraries:
3 -lf2c -lm (in that order)
4 */
5
6 #include "f2c.h"
7
8 /* $Procedure ZZTPATS (Private, Time --- Time Patterns) */
zztpats_(integer * room,integer * nknown,char * known,char * meanng,ftnlen known_len,ftnlen meanng_len)9 logical zztpats_(integer *room, integer *nknown, char *known, char *meanng,
10 ftnlen known_len, ftnlen meanng_len)
11 {
12 /* System generated locals */
13 integer i__1, i__2;
14 logical ret_val;
15
16 /* Builtin functions */
17 /* Subroutine */ int s_copy(char *, char *, ftnlen, ftnlen);
18 integer s_rnge(char *, integer, char *, integer);
19
20 /* Local variables */
21 integer i__;
22 extern /* Subroutine */ int orderc_(char *, integer *, integer *, ftnlen),
23 reordc_(integer *, integer *, char *, ftnlen);
24 integer ordvec[203];
25 char mymnng[32*203], myknwn[32*203];
26
27 /* $ Abstract */
28
29 /* SPICE Private routine intended solely for the support of SPICE */
30 /* routines. Users should not call this routine directly due */
31 /* to the volatile nature of this routine. */
32
33 /* Initialize the built-in time patterns. */
34
35 /* $ Disclaimer */
36
37 /* THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE */
38 /* CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. */
39 /* GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE */
40 /* ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE */
41 /* PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" */
42 /* TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY */
43 /* WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A */
44 /* PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC */
45 /* SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE */
46 /* SOFTWARE AND RELATED MATERIALS, HOWEVER USED. */
47
48 /* IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA */
49 /* BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT */
50 /* LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, */
51 /* INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, */
52 /* REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE */
53 /* REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. */
54
55 /* RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF */
56 /* THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY */
57 /* CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE */
58 /* ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. */
59
60 /* $ Required_Reading */
61
62 /* None. */
63
64 /* $ Keywords */
65
66 /* PRIVATE */
67
68 /* $ Declarations */
69 /* $ Brief_I/O */
70
71 /* VARIABLE I/O DESCRIPTION */
72 /* -------- --- -------------------------------------------------- */
73 /* ROOM I The declared space available for patterns */
74 /* KNOWN O The patterns that are automatically recognized */
75 /* MEANNG O The meaning associated with the patterns. */
76 /* COUNT P The number of patterns built in to this routine. */
77 /* The function returns .TRUE. if the initialization is successful. */
78
79 /* $ Detailed_Input */
80
81 /* ROOM an integer giving the room available for known patterns */
82 /* and their meanings. */
83
84 /* If ROOM does not equal the number of built-in patterns */
85 /* the function returns only those patterns that will fit */
86 /* and returns the value FALSE. */
87
88 /* $ Detailed_Output */
89
90 /* NKNOWN is the number of patterns/meanings returned in the */
91 /* arrays KNOWN and MEANNG */
92
93 /* KNOWN is the array of automatically recognized calendar */
94 /* date patterns. KNOWN will be sorted according to */
95 /* the FORTRAN collating sequence. */
96
97 /* MEANNG is the array of "meanings" associated with the built-in */
98 /* patterns returned in the array KNOWN. MEANNG(I) is */
99 /* the "meaning" associated with known pattern KNOWN(I). */
100
101 /* The function returns TRUE if the arrays, KNOWN and MEANNG are */
102 /* successfully initialized. Otherwise it returns FALSE. */
103
104 /* $ Parameters */
105
106 /* COUNT is the number of patterns/meanings that are */
107 /* returned by this routine. */
108
109 /* $ Exceptions */
110
111 /* Error Free. */
112
113 /* 1) If ROOM is less than count, the function returns FALSE. */
114
115 /* $ Files */
116
117 /* None. */
118
119 /* $ Particulars */
120
121 /* This is a utility routine that supports the SPICE routine */
122 /* TPARTV that parses time strings. This routine initializes */
123 /* the set of built-in time patterns for use by TPARTV */
124
125 /* $ Examples */
126
127 /* See TPARTV */
128
129 /* $ Restrictions */
130
131 /* None. */
132
133 /* $ Literature_References */
134
135 /* None. */
136
137 /* $ Author_and_Institution */
138
139 /* W.L. Taber (JPL) */
140
141 /* $ Version */
142
143 /* - SPICELIB Version 3.1.0, 11-DEC-2013 (EDW) */
144
145 /* Corrected typo which showed MEANNG(203) assigned */
146 /* the value 'm*D*YH*M' rather than the correct assignment */
147 /* to MYMNNG( 203 ). The assignment error often prevented */
148 /* the Time subsystem from parsing time strings with */
149 /* the format 'i-i-Yi:i'. */
150
151 /* Corrected header section ordering to meet SPICE requirements. */
152
153 /* - SPICELIB Version 3.0.0, 16-AUG-2002 (WLT) */
154
155 /* The interface of the routine was changed from */
156
157 /* ZZTPATS( ROOM, KNOWN, MEANNG ) */
158
159 /* to */
160
161 /* ZZTPATS( ROOM, NKNOWN, KNOWN, MEANNG ) */
162
163 /* and made error free. */
164
165 /* - SPICELIB Version 2.0.0, 16-APR-1997 (WLT) */
166
167 /* The collection of recognized built in patterns was */
168 /* increased from 185 to 203 patterns. The new patterns */
169 /* begin at KNOWN(186) below. */
170
171 /* - SPICELIB Version 1.0.0, 02-APR-1996 (WLT) */
172
173 /* -& */
174 s_copy(myknwn, "Y-i-it", (ftnlen)32, (ftnlen)6);
175 s_copy(mymnng, "Y*m*D*", (ftnlen)32, (ftnlen)6);
176 s_copy(myknwn + 32, "Y-i-iti:i", (ftnlen)32, (ftnlen)9);
177 s_copy(mymnng + 32, "Y*m*D*H*M", (ftnlen)32, (ftnlen)9);
178 s_copy(myknwn + 64, "Y-i-iti:i:i", (ftnlen)32, (ftnlen)11);
179 s_copy(mymnng + 64, "Y*m*D*H*M*S", (ftnlen)32, (ftnlen)11);
180 s_copy(myknwn + 96, "Y-i-iti:i:n", (ftnlen)32, (ftnlen)11);
181 s_copy(mymnng + 96, "Y*m*D*H*M*S", (ftnlen)32, (ftnlen)11);
182 s_copy(myknwn + 128, "Y-i-iti:n", (ftnlen)32, (ftnlen)9);
183 s_copy(mymnng + 128, "Y*m*D*H*M", (ftnlen)32, (ftnlen)9);
184 s_copy(myknwn + 160, "Y-i/", (ftnlen)32, (ftnlen)4);
185 s_copy(mymnng + 160, "Y*y*", (ftnlen)32, (ftnlen)4);
186 s_copy(myknwn + 192, "Y-i/i:i", (ftnlen)32, (ftnlen)7);
187 s_copy(mymnng + 192, "Y*y*H*M", (ftnlen)32, (ftnlen)7);
188 s_copy(myknwn + 224, "Y-i/i:i:i", (ftnlen)32, (ftnlen)9);
189 s_copy(mymnng + 224, "Y*y*H*M*S", (ftnlen)32, (ftnlen)9);
190 s_copy(myknwn + 256, "Y-i/i:i:n", (ftnlen)32, (ftnlen)9);
191 s_copy(mymnng + 256, "Y*y*H*M*S", (ftnlen)32, (ftnlen)9);
192 s_copy(myknwn + 288, "Y-i/i:n", (ftnlen)32, (ftnlen)7);
193 s_copy(mymnng + 288, "Y*y*H*M", (ftnlen)32, (ftnlen)7);
194 s_copy(myknwn + 320, "Y-id", (ftnlen)32, (ftnlen)4);
195 s_copy(mymnng + 320, "Y*y*", (ftnlen)32, (ftnlen)4);
196 s_copy(myknwn + 352, "Y-idi:i", (ftnlen)32, (ftnlen)7);
197 s_copy(mymnng + 352, "Y*y*H*M", (ftnlen)32, (ftnlen)7);
198 s_copy(myknwn + 384, "Y-idi:i:i", (ftnlen)32, (ftnlen)9);
199 s_copy(mymnng + 384, "Y*y*H*M*S", (ftnlen)32, (ftnlen)9);
200 s_copy(myknwn + 416, "Y-idi:i:n", (ftnlen)32, (ftnlen)9);
201 s_copy(mymnng + 416, "Y*y*H*M*S", (ftnlen)32, (ftnlen)9);
202 s_copy(myknwn + 448, "Y-idi:n", (ftnlen)32, (ftnlen)7);
203 s_copy(mymnng + 448, "Y*y*H*M", (ftnlen)32, (ftnlen)7);
204 s_copy(myknwn + 480, "Y-it", (ftnlen)32, (ftnlen)4);
205 s_copy(mymnng + 480, "Y*y*", (ftnlen)32, (ftnlen)4);
206 s_copy(myknwn + 512, "Y-iti:i", (ftnlen)32, (ftnlen)7);
207 s_copy(mymnng + 512, "Y*y*H*M", (ftnlen)32, (ftnlen)7);
208 s_copy(myknwn + 544, "Y-iti:i:i", (ftnlen)32, (ftnlen)9);
209 s_copy(mymnng + 544, "Y*y*H*M*S", (ftnlen)32, (ftnlen)9);
210 s_copy(myknwn + 576, "Y-iti:i:n", (ftnlen)32, (ftnlen)9);
211 s_copy(mymnng + 576, "Y*y*H*M*S", (ftnlen)32, (ftnlen)9);
212 s_copy(myknwn + 608, "Y-iti:n", (ftnlen)32, (ftnlen)7);
213 s_copy(mymnng + 608, "Y*y*H*M", (ftnlen)32, (ftnlen)7);
214 s_copy(myknwn + 640, "Yid", (ftnlen)32, (ftnlen)3);
215 s_copy(mymnng + 640, "Yy*", (ftnlen)32, (ftnlen)3);
216 s_copy(myknwn + 672, "Yidi:i", (ftnlen)32, (ftnlen)6);
217 s_copy(mymnng + 672, "Yy*H*M", (ftnlen)32, (ftnlen)6);
218 s_copy(myknwn + 704, "Yidi:i:i", (ftnlen)32, (ftnlen)8);
219 s_copy(mymnng + 704, "Yy*H*M*S", (ftnlen)32, (ftnlen)8);
220 s_copy(myknwn + 736, "Yidi:i:n", (ftnlen)32, (ftnlen)8);
221 s_copy(mymnng + 736, "Yy*H*M*S", (ftnlen)32, (ftnlen)8);
222 s_copy(myknwn + 768, "Yidi:n", (ftnlen)32, (ftnlen)6);
223 s_copy(mymnng + 768, "Yy*H*M", (ftnlen)32, (ftnlen)6);
224 s_copy(myknwn + 800, "Yii", (ftnlen)32, (ftnlen)3);
225 s_copy(mymnng + 800, "YmD", (ftnlen)32, (ftnlen)3);
226 s_copy(myknwn + 832, "Yiii", (ftnlen)32, (ftnlen)4);
227 s_copy(mymnng + 832, "YmDH", (ftnlen)32, (ftnlen)4);
228 s_copy(myknwn + 864, "Yiii:i", (ftnlen)32, (ftnlen)6);
229 s_copy(mymnng + 864, "YmDH*M", (ftnlen)32, (ftnlen)6);
230 s_copy(myknwn + 896, "Yiii:i:i", (ftnlen)32, (ftnlen)8);
231 s_copy(mymnng + 896, "YmDH*M*S", (ftnlen)32, (ftnlen)8);
232 s_copy(myknwn + 928, "Yiii:i:n", (ftnlen)32, (ftnlen)8);
233 s_copy(mymnng + 928, "YmDH*M*S", (ftnlen)32, (ftnlen)8);
234 s_copy(myknwn + 960, "Yiii:n", (ftnlen)32, (ftnlen)6);
235 s_copy(mymnng + 960, "YmDH*M", (ftnlen)32, (ftnlen)6);
236 s_copy(myknwn + 992, "Yiiii", (ftnlen)32, (ftnlen)5);
237 s_copy(mymnng + 992, "YmDHM", (ftnlen)32, (ftnlen)5);
238 s_copy(myknwn + 1024, "Yiiiii", (ftnlen)32, (ftnlen)6);
239 s_copy(mymnng + 1024, "YmDHMS", (ftnlen)32, (ftnlen)6);
240 s_copy(myknwn + 1056, "Yiiiin", (ftnlen)32, (ftnlen)6);
241 s_copy(mymnng + 1056, "YmDHMS", (ftnlen)32, (ftnlen)6);
242 s_copy(myknwn + 1088, "Yiiin", (ftnlen)32, (ftnlen)5);
243 s_copy(mymnng + 1088, "YmDHM", (ftnlen)32, (ftnlen)5);
244 s_copy(myknwn + 1120, "Yiin", (ftnlen)32, (ftnlen)4);
245 s_copy(mymnng + 1120, "YmDH", (ftnlen)32, (ftnlen)4);
246 s_copy(myknwn + 1152, "Yim", (ftnlen)32, (ftnlen)3);
247 s_copy(mymnng + 1152, "YDm", (ftnlen)32, (ftnlen)3);
248 s_copy(myknwn + 1184, "Yimi", (ftnlen)32, (ftnlen)4);
249 s_copy(mymnng + 1184, "YDmH", (ftnlen)32, (ftnlen)4);
250 s_copy(myknwn + 1216, "Yimi:i", (ftnlen)32, (ftnlen)6);
251 s_copy(mymnng + 1216, "YDmH*M", (ftnlen)32, (ftnlen)6);
252 s_copy(myknwn + 1248, "Yimi:i:i", (ftnlen)32, (ftnlen)8);
253 s_copy(mymnng + 1248, "YDmH*M*S", (ftnlen)32, (ftnlen)8);
254 s_copy(myknwn + 1280, "Yimi:i:n", (ftnlen)32, (ftnlen)8);
255 s_copy(mymnng + 1280, "YDmH*M*S", (ftnlen)32, (ftnlen)8);
256 s_copy(myknwn + 1312, "Yimi:n", (ftnlen)32, (ftnlen)6);
257 s_copy(mymnng + 1312, "YDmH*M", (ftnlen)32, (ftnlen)6);
258 s_copy(myknwn + 1344, "Yimn", (ftnlen)32, (ftnlen)4);
259 s_copy(mymnng + 1344, "YDmH", (ftnlen)32, (ftnlen)4);
260 s_copy(myknwn + 1376, "Yin", (ftnlen)32, (ftnlen)3);
261 s_copy(mymnng + 1376, "YmD", (ftnlen)32, (ftnlen)3);
262 s_copy(myknwn + 1408, "Ymi", (ftnlen)32, (ftnlen)3);
263 s_copy(mymnng + 1408, "YmD", (ftnlen)32, (ftnlen)3);
264 s_copy(myknwn + 1440, "Ymii", (ftnlen)32, (ftnlen)4);
265 s_copy(mymnng + 1440, "YmDH", (ftnlen)32, (ftnlen)4);
266 s_copy(myknwn + 1472, "Ymii:i", (ftnlen)32, (ftnlen)6);
267 s_copy(mymnng + 1472, "YmDH*M", (ftnlen)32, (ftnlen)6);
268 s_copy(myknwn + 1504, "Ymii:i:i", (ftnlen)32, (ftnlen)8);
269 s_copy(mymnng + 1504, "YmDH*M*S", (ftnlen)32, (ftnlen)8);
270 s_copy(myknwn + 1536, "Ymii:i:n", (ftnlen)32, (ftnlen)8);
271 s_copy(mymnng + 1536, "YmDH*M*S", (ftnlen)32, (ftnlen)8);
272 s_copy(myknwn + 1568, "Ymii:n", (ftnlen)32, (ftnlen)6);
273 s_copy(mymnng + 1568, "YmDH*M", (ftnlen)32, (ftnlen)6);
274 s_copy(myknwn + 1600, "Ymin", (ftnlen)32, (ftnlen)4);
275 s_copy(mymnng + 1600, "YmDH", (ftnlen)32, (ftnlen)4);
276 s_copy(myknwn + 1632, "Ymn", (ftnlen)32, (ftnlen)3);
277 s_copy(mymnng + 1632, "YmD", (ftnlen)32, (ftnlen)3);
278 s_copy(myknwn + 1664, "Ynm", (ftnlen)32, (ftnlen)3);
279 s_copy(mymnng + 1664, "YDm", (ftnlen)32, (ftnlen)3);
280 s_copy(myknwn + 1696, "i-Y/", (ftnlen)32, (ftnlen)4);
281 s_copy(mymnng + 1696, "y*Y*", (ftnlen)32, (ftnlen)4);
282 s_copy(myknwn + 1728, "i-Y/i:i", (ftnlen)32, (ftnlen)7);
283 s_copy(mymnng + 1728, "y*Y*H*M", (ftnlen)32, (ftnlen)7);
284 s_copy(myknwn + 1760, "i-Y/i:i:i", (ftnlen)32, (ftnlen)9);
285 s_copy(mymnng + 1760, "y*Y*H*M*S", (ftnlen)32, (ftnlen)9);
286 s_copy(myknwn + 1792, "i-Y/i:i:n", (ftnlen)32, (ftnlen)9);
287 s_copy(mymnng + 1792, "y*Y*H*M*S", (ftnlen)32, (ftnlen)9);
288 s_copy(myknwn + 1824, "i-Y/i:n", (ftnlen)32, (ftnlen)7);
289 s_copy(mymnng + 1824, "y*Y*H*M", (ftnlen)32, (ftnlen)7);
290 s_copy(myknwn + 1856, "i-Yd", (ftnlen)32, (ftnlen)4);
291 s_copy(mymnng + 1856, "y*Y*", (ftnlen)32, (ftnlen)4);
292 s_copy(myknwn + 1888, "i-Ydi:i", (ftnlen)32, (ftnlen)7);
293 s_copy(mymnng + 1888, "y*Y*H*M", (ftnlen)32, (ftnlen)7);
294 s_copy(myknwn + 1920, "i-Ydi:i:i", (ftnlen)32, (ftnlen)9);
295 s_copy(mymnng + 1920, "y*Y*H*M*S", (ftnlen)32, (ftnlen)9);
296 s_copy(myknwn + 1952, "i-Ydi:i:n", (ftnlen)32, (ftnlen)9);
297 s_copy(mymnng + 1952, "y*Y*H*M*S", (ftnlen)32, (ftnlen)9);
298 s_copy(myknwn + 1984, "i-Ydi:n", (ftnlen)32, (ftnlen)7);
299 s_copy(mymnng + 1984, "y*Y*H*M", (ftnlen)32, (ftnlen)7);
300 s_copy(myknwn + 2016, "i-i-it", (ftnlen)32, (ftnlen)6);
301 s_copy(mymnng + 2016, "Y*m*D*", (ftnlen)32, (ftnlen)6);
302 s_copy(myknwn + 2048, "i-i-iti:i", (ftnlen)32, (ftnlen)9);
303 s_copy(mymnng + 2048, "Y*m*D*H*M", (ftnlen)32, (ftnlen)9);
304 s_copy(myknwn + 2080, "i-i-iti:i:i", (ftnlen)32, (ftnlen)11);
305 s_copy(mymnng + 2080, "Y*m*D*H*M*S", (ftnlen)32, (ftnlen)11);
306 s_copy(myknwn + 2112, "i-i-iti:i:n", (ftnlen)32, (ftnlen)11);
307 s_copy(mymnng + 2112, "Y*m*D*H*M*S", (ftnlen)32, (ftnlen)11);
308 s_copy(myknwn + 2144, "i-i-iti:n", (ftnlen)32, (ftnlen)9);
309 s_copy(mymnng + 2144, "Y*m*D*H*M", (ftnlen)32, (ftnlen)9);
310 s_copy(myknwn + 2176, "i-i/i:i", (ftnlen)32, (ftnlen)7);
311 s_copy(mymnng + 2176, "Y*y*H*M", (ftnlen)32, (ftnlen)7);
312 s_copy(myknwn + 2208, "i-i/i:i:i", (ftnlen)32, (ftnlen)9);
313 s_copy(mymnng + 2208, "Y*y*H*M*S", (ftnlen)32, (ftnlen)9);
314 s_copy(myknwn + 2240, "i-i/i:i:n", (ftnlen)32, (ftnlen)9);
315 s_copy(mymnng + 2240, "Y*y*H*M*S", (ftnlen)32, (ftnlen)9);
316 s_copy(myknwn + 2272, "i-i/i:n", (ftnlen)32, (ftnlen)7);
317 s_copy(mymnng + 2272, "Y*y*H*M", (ftnlen)32, (ftnlen)7);
318 s_copy(myknwn + 2304, "i-idi:i", (ftnlen)32, (ftnlen)7);
319 s_copy(mymnng + 2304, "Y*y*H*M", (ftnlen)32, (ftnlen)7);
320 s_copy(myknwn + 2336, "i-idi:i:i", (ftnlen)32, (ftnlen)9);
321 s_copy(mymnng + 2336, "Y*y*H*M*S", (ftnlen)32, (ftnlen)9);
322 s_copy(myknwn + 2368, "i-idi:i:n", (ftnlen)32, (ftnlen)9);
323 s_copy(mymnng + 2368, "Y*y*H*M*S", (ftnlen)32, (ftnlen)9);
324 s_copy(myknwn + 2400, "i-idi:n", (ftnlen)32, (ftnlen)7);
325 s_copy(mymnng + 2400, "Y*y*H*M", (ftnlen)32, (ftnlen)7);
326 s_copy(myknwn + 2432, "i-it", (ftnlen)32, (ftnlen)4);
327 s_copy(mymnng + 2432, "Y*y*", (ftnlen)32, (ftnlen)4);
328 s_copy(myknwn + 2464, "i-iti:i", (ftnlen)32, (ftnlen)7);
329 s_copy(mymnng + 2464, "Y*y*H*M", (ftnlen)32, (ftnlen)7);
330 s_copy(myknwn + 2496, "i-iti:i:i", (ftnlen)32, (ftnlen)9);
331 s_copy(mymnng + 2496, "Y*y*H*M*S", (ftnlen)32, (ftnlen)9);
332 s_copy(myknwn + 2528, "i-iti:i:n", (ftnlen)32, (ftnlen)9);
333 s_copy(mymnng + 2528, "Y*y*H*M*S", (ftnlen)32, (ftnlen)9);
334 s_copy(myknwn + 2560, "i-iti:n", (ftnlen)32, (ftnlen)7);
335 s_copy(mymnng + 2560, "Y*y*H*M", (ftnlen)32, (ftnlen)7);
336 s_copy(myknwn + 2592, "i:i:iimY", (ftnlen)32, (ftnlen)8);
337 s_copy(mymnng + 2592, "H*M*SDmY", (ftnlen)32, (ftnlen)8);
338 s_copy(myknwn + 2624, "i:i:imiY", (ftnlen)32, (ftnlen)8);
339 s_copy(mymnng + 2624, "H*M*SmDY", (ftnlen)32, (ftnlen)8);
340 s_copy(myknwn + 2656, "i:i:nimY", (ftnlen)32, (ftnlen)8);
341 s_copy(mymnng + 2656, "H*M*SDmY", (ftnlen)32, (ftnlen)8);
342 s_copy(myknwn + 2688, "i:i:nmiY", (ftnlen)32, (ftnlen)8);
343 s_copy(mymnng + 2688, "H*M*SmDY", (ftnlen)32, (ftnlen)8);
344 s_copy(myknwn + 2720, "i:iimY", (ftnlen)32, (ftnlen)6);
345 s_copy(mymnng + 2720, "H*MDmY", (ftnlen)32, (ftnlen)6);
346 s_copy(myknwn + 2752, "i:imiY", (ftnlen)32, (ftnlen)6);
347 s_copy(mymnng + 2752, "H*MmDY", (ftnlen)32, (ftnlen)6);
348 s_copy(myknwn + 2784, "i:nimY", (ftnlen)32, (ftnlen)6);
349 s_copy(mymnng + 2784, "H*MDmY", (ftnlen)32, (ftnlen)6);
350 s_copy(myknwn + 2816, "i:nmiY", (ftnlen)32, (ftnlen)6);
351 s_copy(mymnng + 2816, "H*MmDY", (ftnlen)32, (ftnlen)6);
352 s_copy(myknwn + 2848, "iYd", (ftnlen)32, (ftnlen)3);
353 s_copy(mymnng + 2848, "yY*", (ftnlen)32, (ftnlen)3);
354 s_copy(myknwn + 2880, "iYdi:i", (ftnlen)32, (ftnlen)6);
355 s_copy(mymnng + 2880, "yY*H*M", (ftnlen)32, (ftnlen)6);
356 s_copy(myknwn + 2912, "iYdi:i:i", (ftnlen)32, (ftnlen)8);
357 s_copy(mymnng + 2912, "yY*H*M*S", (ftnlen)32, (ftnlen)8);
358 s_copy(myknwn + 2944, "iYdi:i:n", (ftnlen)32, (ftnlen)8);
359 s_copy(mymnng + 2944, "yY*H*M*S", (ftnlen)32, (ftnlen)8);
360 s_copy(myknwn + 2976, "iYdi:n", (ftnlen)32, (ftnlen)6);
361 s_copy(mymnng + 2976, "yY*H*M", (ftnlen)32, (ftnlen)6);
362 s_copy(myknwn + 3008, "iiY", (ftnlen)32, (ftnlen)3);
363 s_copy(mymnng + 3008, "mDY", (ftnlen)32, (ftnlen)3);
364 s_copy(myknwn + 3040, "iiYi", (ftnlen)32, (ftnlen)4);
365 s_copy(mymnng + 3040, "mDYH", (ftnlen)32, (ftnlen)4);
366 s_copy(myknwn + 3072, "iiYi:i", (ftnlen)32, (ftnlen)6);
367 s_copy(mymnng + 3072, "mDYH*M", (ftnlen)32, (ftnlen)6);
368 s_copy(myknwn + 3104, "iiYi:i:i", (ftnlen)32, (ftnlen)8);
369 s_copy(mymnng + 3104, "mDYH*M*S", (ftnlen)32, (ftnlen)8);
370 s_copy(myknwn + 3136, "iiYi:i:n", (ftnlen)32, (ftnlen)8);
371 s_copy(mymnng + 3136, "mDYH*M*S", (ftnlen)32, (ftnlen)8);
372 s_copy(myknwn + 3168, "iiYi:n", (ftnlen)32, (ftnlen)6);
373 s_copy(mymnng + 3168, "mDYH*M", (ftnlen)32, (ftnlen)6);
374 s_copy(myknwn + 3200, "iiYn", (ftnlen)32, (ftnlen)4);
375 s_copy(mymnng + 3200, "mDYH", (ftnlen)32, (ftnlen)4);
376 s_copy(myknwn + 3232, "iid", (ftnlen)32, (ftnlen)3);
377 s_copy(mymnng + 3232, "Yy*", (ftnlen)32, (ftnlen)3);
378 s_copy(myknwn + 3264, "iidi:i", (ftnlen)32, (ftnlen)6);
379 s_copy(mymnng + 3264, "Yy*H*M", (ftnlen)32, (ftnlen)6);
380 s_copy(myknwn + 3296, "iidi:i:i", (ftnlen)32, (ftnlen)8);
381 s_copy(mymnng + 3296, "Yy*H*M*S", (ftnlen)32, (ftnlen)8);
382 s_copy(myknwn + 3328, "iidi:i:n", (ftnlen)32, (ftnlen)8);
383 s_copy(mymnng + 3328, "Yy*H*M*S", (ftnlen)32, (ftnlen)8);
384 s_copy(myknwn + 3360, "iidi:n", (ftnlen)32, (ftnlen)6);
385 s_copy(mymnng + 3360, "Yy*H*M", (ftnlen)32, (ftnlen)6);
386 s_copy(myknwn + 3392, "iim", (ftnlen)32, (ftnlen)3);
387 s_copy(mymnng + 3392, "YDm", (ftnlen)32, (ftnlen)3);
388 s_copy(myknwn + 3424, "iimi", (ftnlen)32, (ftnlen)4);
389 s_copy(mymnng + 3424, "YDmH", (ftnlen)32, (ftnlen)4);
390 s_copy(myknwn + 3456, "iimi:i", (ftnlen)32, (ftnlen)6);
391 s_copy(mymnng + 3456, "YDmH*M", (ftnlen)32, (ftnlen)6);
392 s_copy(myknwn + 3488, "iimi:i:i", (ftnlen)32, (ftnlen)8);
393 s_copy(mymnng + 3488, "YDmH*M*S", (ftnlen)32, (ftnlen)8);
394 s_copy(myknwn + 3520, "iimi:i:n", (ftnlen)32, (ftnlen)8);
395 s_copy(mymnng + 3520, "YDmH*M*S", (ftnlen)32, (ftnlen)8);
396 s_copy(myknwn + 3552, "iimi:n", (ftnlen)32, (ftnlen)6);
397 s_copy(mymnng + 3552, "YDmH*M", (ftnlen)32, (ftnlen)6);
398 s_copy(myknwn + 3584, "iimii", (ftnlen)32, (ftnlen)5);
399 s_copy(mymnng + 3584, "YDmHM", (ftnlen)32, (ftnlen)5);
400 s_copy(myknwn + 3616, "iimiii", (ftnlen)32, (ftnlen)6);
401 s_copy(mymnng + 3616, "YDmHMS", (ftnlen)32, (ftnlen)6);
402 s_copy(myknwn + 3648, "iimiin", (ftnlen)32, (ftnlen)6);
403 s_copy(mymnng + 3648, "YDmHMS", (ftnlen)32, (ftnlen)6);
404 s_copy(myknwn + 3680, "iimin", (ftnlen)32, (ftnlen)5);
405 s_copy(mymnng + 3680, "YDmHM", (ftnlen)32, (ftnlen)5);
406 s_copy(myknwn + 3712, "iimn", (ftnlen)32, (ftnlen)4);
407 s_copy(mymnng + 3712, "YDmH", (ftnlen)32, (ftnlen)4);
408 s_copy(myknwn + 3744, "imY", (ftnlen)32, (ftnlen)3);
409 s_copy(mymnng + 3744, "DmY", (ftnlen)32, (ftnlen)3);
410 s_copy(myknwn + 3776, "imYi", (ftnlen)32, (ftnlen)4);
411 s_copy(mymnng + 3776, "DmYH", (ftnlen)32, (ftnlen)4);
412 s_copy(myknwn + 3808, "imYi:i", (ftnlen)32, (ftnlen)6);
413 s_copy(mymnng + 3808, "DmYH*M", (ftnlen)32, (ftnlen)6);
414 s_copy(myknwn + 3840, "imYi:i:i", (ftnlen)32, (ftnlen)8);
415 s_copy(mymnng + 3840, "DmYH*M*S", (ftnlen)32, (ftnlen)8);
416 s_copy(myknwn + 3872, "imYi:i:n", (ftnlen)32, (ftnlen)8);
417 s_copy(mymnng + 3872, "DmYH*M*S", (ftnlen)32, (ftnlen)8);
418 s_copy(myknwn + 3904, "imYi:n", (ftnlen)32, (ftnlen)6);
419 s_copy(mymnng + 3904, "DmYH*M", (ftnlen)32, (ftnlen)6);
420 s_copy(myknwn + 3936, "imYn", (ftnlen)32, (ftnlen)4);
421 s_copy(mymnng + 3936, "DmYH", (ftnlen)32, (ftnlen)4);
422 s_copy(myknwn + 3968, "imi", (ftnlen)32, (ftnlen)3);
423 s_copy(mymnng + 3968, "YmD", (ftnlen)32, (ftnlen)3);
424 s_copy(myknwn + 4000, "imi:i:iY", (ftnlen)32, (ftnlen)8);
425 s_copy(mymnng + 4000, "DmH*M*SY", (ftnlen)32, (ftnlen)8);
426 s_copy(myknwn + 4032, "imi:i:nY", (ftnlen)32, (ftnlen)8);
427 s_copy(mymnng + 4032, "DmH*M*SY", (ftnlen)32, (ftnlen)8);
428 s_copy(myknwn + 4064, "imi:iY", (ftnlen)32, (ftnlen)6);
429 s_copy(mymnng + 4064, "DmH*MY", (ftnlen)32, (ftnlen)6);
430 s_copy(myknwn + 4096, "imi:nY", (ftnlen)32, (ftnlen)6);
431 s_copy(mymnng + 4096, "DmH*MY", (ftnlen)32, (ftnlen)6);
432 s_copy(myknwn + 4128, "imii", (ftnlen)32, (ftnlen)4);
433 s_copy(mymnng + 4128, "YmDH", (ftnlen)32, (ftnlen)4);
434 s_copy(myknwn + 4160, "imii:i", (ftnlen)32, (ftnlen)6);
435 s_copy(mymnng + 4160, "YmDH*M", (ftnlen)32, (ftnlen)6);
436 s_copy(myknwn + 4192, "imii:i:i", (ftnlen)32, (ftnlen)8);
437 s_copy(mymnng + 4192, "YmDH*M*S", (ftnlen)32, (ftnlen)8);
438 s_copy(myknwn + 4224, "imii:i:n", (ftnlen)32, (ftnlen)8);
439 s_copy(mymnng + 4224, "YmDH*M*S", (ftnlen)32, (ftnlen)8);
440 s_copy(myknwn + 4256, "imii:n", (ftnlen)32, (ftnlen)6);
441 s_copy(mymnng + 4256, "YmDH*M", (ftnlen)32, (ftnlen)6);
442 s_copy(myknwn + 4288, "imiii", (ftnlen)32, (ftnlen)5);
443 s_copy(mymnng + 4288, "YmDHM", (ftnlen)32, (ftnlen)5);
444 s_copy(myknwn + 4320, "imiiii", (ftnlen)32, (ftnlen)6);
445 s_copy(mymnng + 4320, "YmDHMS", (ftnlen)32, (ftnlen)6);
446 s_copy(myknwn + 4352, "imiiin", (ftnlen)32, (ftnlen)6);
447 s_copy(mymnng + 4352, "YmDHMS", (ftnlen)32, (ftnlen)6);
448 s_copy(myknwn + 4384, "imiin", (ftnlen)32, (ftnlen)5);
449 s_copy(mymnng + 4384, "YmDHM", (ftnlen)32, (ftnlen)5);
450 s_copy(myknwn + 4416, "imin", (ftnlen)32, (ftnlen)4);
451 s_copy(mymnng + 4416, "YmDH", (ftnlen)32, (ftnlen)4);
452 s_copy(myknwn + 4448, "imn", (ftnlen)32, (ftnlen)3);
453 s_copy(mymnng + 4448, "YmD", (ftnlen)32, (ftnlen)3);
454 s_copy(myknwn + 4480, "inY", (ftnlen)32, (ftnlen)3);
455 s_copy(mymnng + 4480, "mDY", (ftnlen)32, (ftnlen)3);
456 s_copy(myknwn + 4512, "inm", (ftnlen)32, (ftnlen)3);
457 s_copy(mymnng + 4512, "YDm", (ftnlen)32, (ftnlen)3);
458 s_copy(myknwn + 4544, "miY", (ftnlen)32, (ftnlen)3);
459 s_copy(mymnng + 4544, "mDY", (ftnlen)32, (ftnlen)3);
460 s_copy(myknwn + 4576, "miYi", (ftnlen)32, (ftnlen)4);
461 s_copy(mymnng + 4576, "mDYH", (ftnlen)32, (ftnlen)4);
462 s_copy(myknwn + 4608, "miYi:i", (ftnlen)32, (ftnlen)6);
463 s_copy(mymnng + 4608, "mDYH*M", (ftnlen)32, (ftnlen)6);
464 s_copy(myknwn + 4640, "miYi:i:i", (ftnlen)32, (ftnlen)8);
465 s_copy(mymnng + 4640, "mDYH*M*S", (ftnlen)32, (ftnlen)8);
466 s_copy(myknwn + 4672, "miYi:i:n", (ftnlen)32, (ftnlen)8);
467 s_copy(mymnng + 4672, "mDYH*M*S", (ftnlen)32, (ftnlen)8);
468 s_copy(myknwn + 4704, "miYi:n", (ftnlen)32, (ftnlen)6);
469 s_copy(mymnng + 4704, "mDYH*M", (ftnlen)32, (ftnlen)6);
470 s_copy(myknwn + 4736, "miYn", (ftnlen)32, (ftnlen)4);
471 s_copy(mymnng + 4736, "mDYH", (ftnlen)32, (ftnlen)4);
472 s_copy(myknwn + 4768, "mii", (ftnlen)32, (ftnlen)3);
473 s_copy(mymnng + 4768, "mDY", (ftnlen)32, (ftnlen)3);
474 s_copy(myknwn + 4800, "mii:i:iY", (ftnlen)32, (ftnlen)8);
475 s_copy(mymnng + 4800, "mDH*M*SY", (ftnlen)32, (ftnlen)8);
476 s_copy(myknwn + 4832, "mii:i:nY", (ftnlen)32, (ftnlen)8);
477 s_copy(mymnng + 4832, "mDH*M*SY", (ftnlen)32, (ftnlen)8);
478 s_copy(myknwn + 4864, "mii:iY", (ftnlen)32, (ftnlen)6);
479 s_copy(mymnng + 4864, "mDH*MY", (ftnlen)32, (ftnlen)6);
480 s_copy(myknwn + 4896, "mii:nY", (ftnlen)32, (ftnlen)6);
481 s_copy(mymnng + 4896, "mDH*MY", (ftnlen)32, (ftnlen)6);
482 s_copy(myknwn + 4928, "miii", (ftnlen)32, (ftnlen)4);
483 s_copy(mymnng + 4928, "mDYH", (ftnlen)32, (ftnlen)4);
484 s_copy(myknwn + 4960, "miii:i", (ftnlen)32, (ftnlen)6);
485 s_copy(mymnng + 4960, "mDYH*M", (ftnlen)32, (ftnlen)6);
486 s_copy(myknwn + 4992, "miii:i:i", (ftnlen)32, (ftnlen)8);
487 s_copy(mymnng + 4992, "mDYH*M*S", (ftnlen)32, (ftnlen)8);
488 s_copy(myknwn + 5024, "miii:i:n", (ftnlen)32, (ftnlen)8);
489 s_copy(mymnng + 5024, "mDYH*M*S", (ftnlen)32, (ftnlen)8);
490 s_copy(myknwn + 5056, "miii:n", (ftnlen)32, (ftnlen)6);
491 s_copy(mymnng + 5056, "mDYH*M", (ftnlen)32, (ftnlen)6);
492 s_copy(myknwn + 5088, "miiii", (ftnlen)32, (ftnlen)5);
493 s_copy(mymnng + 5088, "mDYHM", (ftnlen)32, (ftnlen)5);
494 s_copy(myknwn + 5120, "miiiii", (ftnlen)32, (ftnlen)6);
495 s_copy(mymnng + 5120, "mDYHMS", (ftnlen)32, (ftnlen)6);
496 s_copy(myknwn + 5152, "miiiin", (ftnlen)32, (ftnlen)6);
497 s_copy(mymnng + 5152, "mDYHMS", (ftnlen)32, (ftnlen)6);
498 s_copy(myknwn + 5184, "miiin", (ftnlen)32, (ftnlen)5);
499 s_copy(mymnng + 5184, "mDYHM", (ftnlen)32, (ftnlen)5);
500 s_copy(myknwn + 5216, "miin", (ftnlen)32, (ftnlen)4);
501 s_copy(mymnng + 5216, "mDYH", (ftnlen)32, (ftnlen)4);
502 s_copy(myknwn + 5248, "mnY", (ftnlen)32, (ftnlen)3);
503 s_copy(mymnng + 5248, "mDY", (ftnlen)32, (ftnlen)3);
504 s_copy(myknwn + 5280, "mni", (ftnlen)32, (ftnlen)3);
505 s_copy(mymnng + 5280, "mDY", (ftnlen)32, (ftnlen)3);
506 s_copy(myknwn + 5312, "nmY", (ftnlen)32, (ftnlen)3);
507 s_copy(mymnng + 5312, "DmY", (ftnlen)32, (ftnlen)3);
508 s_copy(myknwn + 5344, "i/i/i", (ftnlen)32, (ftnlen)5);
509 s_copy(mymnng + 5344, "m*D*Y", (ftnlen)32, (ftnlen)5);
510 s_copy(myknwn + 5376, "i/i/ii:i", (ftnlen)32, (ftnlen)8);
511 s_copy(mymnng + 5376, "m*D*YH*M", (ftnlen)32, (ftnlen)8);
512 s_copy(myknwn + 5408, "i/i/ii:n", (ftnlen)32, (ftnlen)8);
513 s_copy(mymnng + 5408, "m*D*YH*M", (ftnlen)32, (ftnlen)8);
514 s_copy(myknwn + 5440, "i/i/ii:i:n", (ftnlen)32, (ftnlen)10);
515 s_copy(mymnng + 5440, "m*D*YH*M*S", (ftnlen)32, (ftnlen)10);
516 s_copy(myknwn + 5472, "i/i/ii:i:i", (ftnlen)32, (ftnlen)10);
517 s_copy(mymnng + 5472, "m*D*YH*M*S", (ftnlen)32, (ftnlen)10);
518 s_copy(myknwn + 5504, "i/i/Y", (ftnlen)32, (ftnlen)5);
519 s_copy(mymnng + 5504, "m*D*Y", (ftnlen)32, (ftnlen)5);
520 s_copy(myknwn + 5536, "i/i/Yi:i", (ftnlen)32, (ftnlen)8);
521 s_copy(mymnng + 5536, "m*D*YH*M", (ftnlen)32, (ftnlen)8);
522 s_copy(myknwn + 5568, "i/i/ii:n", (ftnlen)32, (ftnlen)8);
523 s_copy(mymnng + 5568, "m*D*YH*M", (ftnlen)32, (ftnlen)8);
524 s_copy(myknwn + 5600, "i/i/Yi:i:n", (ftnlen)32, (ftnlen)10);
525 s_copy(mymnng + 5600, "m*D*YH*M*S", (ftnlen)32, (ftnlen)10);
526 s_copy(myknwn + 5632, "i/i/Yi:i:i", (ftnlen)32, (ftnlen)10);
527 s_copy(mymnng + 5632, "m*D*YH*M*S", (ftnlen)32, (ftnlen)10);
528 s_copy(myknwn + 5664, "Y-i-iti", (ftnlen)32, (ftnlen)7);
529 s_copy(mymnng + 5664, "Y*m*D*H", (ftnlen)32, (ftnlen)7);
530 s_copy(myknwn + 5696, "Y-iti", (ftnlen)32, (ftnlen)5);
531 s_copy(mymnng + 5696, "Y*y*H", (ftnlen)32, (ftnlen)5);
532 s_copy(myknwn + 5728, "Y-i-itn", (ftnlen)32, (ftnlen)7);
533 s_copy(mymnng + 5728, "Y*m*D*H", (ftnlen)32, (ftnlen)7);
534 s_copy(myknwn + 5760, "Y-itn", (ftnlen)32, (ftnlen)5);
535 s_copy(mymnng + 5760, "Y*y*H", (ftnlen)32, (ftnlen)5);
536 s_copy(myknwn + 5792, "i-i-iti", (ftnlen)32, (ftnlen)7);
537 s_copy(mymnng + 5792, "Y*m*D*H", (ftnlen)32, (ftnlen)7);
538 s_copy(myknwn + 5824, "i-i-itn", (ftnlen)32, (ftnlen)7);
539 s_copy(mymnng + 5824, "Y*m*D*H", (ftnlen)32, (ftnlen)7);
540 s_copy(myknwn + 5856, "i-iti", (ftnlen)32, (ftnlen)5);
541 s_copy(mymnng + 5856, "Y*y*H", (ftnlen)32, (ftnlen)5);
542 s_copy(myknwn + 5888, "i-itn", (ftnlen)32, (ftnlen)5);
543 s_copy(mymnng + 5888, "Y*y*H", (ftnlen)32, (ftnlen)5);
544 s_copy(myknwn + 5920, "i:ii/i/i", (ftnlen)32, (ftnlen)8);
545 s_copy(mymnng + 5920, "H*Mm*D*Y", (ftnlen)32, (ftnlen)8);
546 s_copy(myknwn + 5952, "i:ni/i/i", (ftnlen)32, (ftnlen)8);
547 s_copy(mymnng + 5952, "H*Mm*D*Y", (ftnlen)32, (ftnlen)8);
548 s_copy(myknwn + 5984, "i:i:ii/i/i", (ftnlen)32, (ftnlen)10);
549 s_copy(mymnng + 5984, "H*M*Sm*D*Y", (ftnlen)32, (ftnlen)10);
550 s_copy(myknwn + 6016, "i:i:ni/i/i", (ftnlen)32, (ftnlen)10);
551 s_copy(mymnng + 6016, "H*M*Sm*D*Y", (ftnlen)32, (ftnlen)10);
552 s_copy(myknwn + 6048, "i:ii/i/Y", (ftnlen)32, (ftnlen)8);
553 s_copy(mymnng + 6048, "H*Mm*D*Y", (ftnlen)32, (ftnlen)8);
554 s_copy(myknwn + 6080, "i:ni/i/Y", (ftnlen)32, (ftnlen)8);
555 s_copy(mymnng + 6080, "H*Mm*D*Y", (ftnlen)32, (ftnlen)8);
556 s_copy(myknwn + 6112, "i:i:ii/i/Y", (ftnlen)32, (ftnlen)10);
557 s_copy(mymnng + 6112, "H*M*Sm*D*Y", (ftnlen)32, (ftnlen)10);
558 s_copy(myknwn + 6144, "i:i:ni/i/Y", (ftnlen)32, (ftnlen)10);
559 s_copy(mymnng + 6144, "H*M*Sm*D*Y", (ftnlen)32, (ftnlen)10);
560 s_copy(myknwn + 6176, "i:ii-i-Y", (ftnlen)32, (ftnlen)8);
561 s_copy(mymnng + 6176, "H*Mm*D*Y", (ftnlen)32, (ftnlen)8);
562 s_copy(myknwn + 6208, "i:ni-i-Y", (ftnlen)32, (ftnlen)8);
563 s_copy(mymnng + 6208, "H*Mm*D*Y", (ftnlen)32, (ftnlen)8);
564 s_copy(myknwn + 6240, "i:i:ii-i-Y", (ftnlen)32, (ftnlen)10);
565 s_copy(mymnng + 6240, "H*M*Sm*D*Y", (ftnlen)32, (ftnlen)10);
566 s_copy(myknwn + 6272, "i:i:ni-i-Y", (ftnlen)32, (ftnlen)10);
567 s_copy(mymnng + 6272, "H*M*Sm*D*Y", (ftnlen)32, (ftnlen)10);
568 s_copy(myknwn + 6304, "i/i/Y/i:n", (ftnlen)32, (ftnlen)9);
569 s_copy(mymnng + 6304, "m*D*Y*H*M", (ftnlen)32, (ftnlen)9);
570 s_copy(myknwn + 6336, "i-i-Y", (ftnlen)32, (ftnlen)5);
571 s_copy(mymnng + 6336, "m*D*Y", (ftnlen)32, (ftnlen)5);
572 s_copy(myknwn + 6368, "i-i-Yi:n", (ftnlen)32, (ftnlen)8);
573 s_copy(mymnng + 6368, "m*D*YH*M", (ftnlen)32, (ftnlen)8);
574 s_copy(myknwn + 6400, "i-i-Yi:i:n", (ftnlen)32, (ftnlen)10);
575 s_copy(mymnng + 6400, "m*D*YH*M*S", (ftnlen)32, (ftnlen)10);
576 s_copy(myknwn + 6432, "i-i-Yi:i:i", (ftnlen)32, (ftnlen)10);
577 s_copy(mymnng + 6432, "m*D*YH*M*S", (ftnlen)32, (ftnlen)10);
578 s_copy(myknwn + 6464, "i-i-Yi:i", (ftnlen)32, (ftnlen)8);
579 s_copy(mymnng + 6464, "m*D*YH*M", (ftnlen)32, (ftnlen)8);
580
581 /* Copy as many patterns and meanings as the input arrays allow. */
582
583 *nknown = min(203,*room);
584 i__1 = *nknown;
585 for (i__ = 1; i__ <= i__1; ++i__) {
586 s_copy(known + (i__ - 1) * known_len, myknwn + (((i__2 = i__ - 1) <
587 203 && 0 <= i__2 ? i__2 : s_rnge("myknwn", i__2, "zztpats_", (
588 ftnlen)984)) << 5), known_len, (ftnlen)32);
589 s_copy(meanng + (i__ - 1) * meanng_len, mymnng + (((i__2 = i__ - 1) <
590 203 && 0 <= i__2 ? i__2 : s_rnge("mymnng", i__2, "zztpats_", (
591 ftnlen)985)) << 5), meanng_len, (ftnlen)32);
592 }
593
594 /* Make sure everything is in the proper order. */
595
596 orderc_(known, nknown, ordvec, known_len);
597 reordc_(ordvec, nknown, known, known_len);
598 reordc_(ordvec, nknown, meanng, meanng_len);
599
600 /* If there wasn't sufficient room to get all of the patterns */
601 /* and meanings, return FALSE. */
602
603 if (203 > *room) {
604 ret_val = FALSE_;
605 return ret_val;
606 }
607 ret_val = TRUE_;
608 return ret_val;
609 } /* zztpats_ */
610
611