1 | /******************************************************************************/ |
---|
2 | /* */ |
---|
3 | /* CONV (converter) for Agrif (Adaptive Grid Refinement In Fortran) */ |
---|
4 | /* */ |
---|
5 | /* Copyright or or Copr. Laurent Debreu (Laurent.Debreu@imag.fr) */ |
---|
6 | /* Cyril Mazauric (Cyril_Mazauric@yahoo.fr) */ |
---|
7 | /* This software is governed by the CeCILL-C license under French law and */ |
---|
8 | /* abiding by the rules of distribution of free software. You can use, */ |
---|
9 | /* modify and/ or redistribute the software under the terms of the CeCILL-C */ |
---|
10 | /* license as circulated by CEA, CNRS and INRIA at the following URL */ |
---|
11 | /* "http://www.cecill.info". */ |
---|
12 | /* */ |
---|
13 | /* As a counterpart to the access to the source code and rights to copy, */ |
---|
14 | /* modify and redistribute granted by the license, users are provided only */ |
---|
15 | /* with a limited warranty and the software's author, the holder of the */ |
---|
16 | /* economic rights, and the successive licensors have only limited */ |
---|
17 | /* liability. */ |
---|
18 | /* */ |
---|
19 | /* In this respect, the user's attention is drawn to the risks associated */ |
---|
20 | /* with loading, using, modifying and/or developing or reproducing the */ |
---|
21 | /* software by the user in light of its specific status of free software, */ |
---|
22 | /* that may mean that it is complicated to manipulate, and that also */ |
---|
23 | /* therefore means that it is reserved for developers and experienced */ |
---|
24 | /* professionals having in-depth computer knowledge. Users are therefore */ |
---|
25 | /* encouraged to load and test the software's suitability as regards their */ |
---|
26 | /* requirements in conditions enabling the security of their systems and/or */ |
---|
27 | /* data to be ensured and, more generally, to use and operate it in the */ |
---|
28 | /* same conditions as regards security. */ |
---|
29 | /* */ |
---|
30 | /* The fact that you are presently reading this means that you have had */ |
---|
31 | /* knowledge of the CeCILL-C license and that you accept its terms. */ |
---|
32 | /******************************************************************************/ |
---|
33 | /* version 1.7 */ |
---|
34 | /******************************************************************************/ |
---|
35 | #include <stdio.h> |
---|
36 | #include <stdlib.h> |
---|
37 | #include <string.h> |
---|
38 | #include "decl.h" |
---|
39 | |
---|
40 | void Save_Length(char *nom, int whichone) |
---|
41 | { |
---|
42 | if ( whichone == 1 && strlen(nom) > length_last ) |
---|
43 | { |
---|
44 | length_last = strlen(nom); |
---|
45 | if ( length_last > LONG_C ) |
---|
46 | { |
---|
47 | printf("WARNING 1 : The value of LONG_C - define in decl.h -\n"); |
---|
48 | printf(" should be upgrated to %d\n",length_last+100); |
---|
49 | } |
---|
50 | } |
---|
51 | if ( whichone == 2 && strlen(nom) > length_first ) |
---|
52 | { |
---|
53 | length_first = strlen(nom); |
---|
54 | if ( length_first > LONG_C ) |
---|
55 | { |
---|
56 | printf("WARNING 2 : The value of LONG_C - define in decl.h -\n"); |
---|
57 | printf(" should be upgrated to %d\n",length_first+100); |
---|
58 | } |
---|
59 | } |
---|
60 | if ( whichone == 3 && strlen(nom) > length_v_typevar ) |
---|
61 | { |
---|
62 | length_v_typevar = strlen(nom); |
---|
63 | if ( length_v_typevar > LONG_C ) |
---|
64 | { |
---|
65 | printf("WARNING 3 : The value of LONG_C - define in decl.h -\n"); |
---|
66 | printf(" should be upgrated to %d\n",length_v_typevar+100); |
---|
67 | } |
---|
68 | } |
---|
69 | if ( whichone == 4 && strlen(nom) > length_v_nomvar ) |
---|
70 | { |
---|
71 | length_v_nomvar = strlen(nom); |
---|
72 | if ( length_v_nomvar > LONG_C ) |
---|
73 | { |
---|
74 | printf("WARNING 4 : The value of LONG_C - define in decl.h -\n"); |
---|
75 | printf(" should be upgrated to %d\n",length_v_nomvar+100); |
---|
76 | } |
---|
77 | } |
---|
78 | if ( whichone == 5 && strlen(nom) > length_v_dimchar ) |
---|
79 | { |
---|
80 | length_v_dimchar = strlen(nom); |
---|
81 | if ( length_v_dimchar > LONG_C ) |
---|
82 | { |
---|
83 | printf("WARNING 5 : The value of LONG_C - define in decl.h -\n"); |
---|
84 | printf(" should be upgrated to %d\n", |
---|
85 | length_v_dimchar+100); |
---|
86 | } |
---|
87 | } |
---|
88 | if ( whichone == 6 && strlen(nom) > length_v_modulename ) |
---|
89 | { |
---|
90 | length_v_modulename = strlen(nom); |
---|
91 | if ( length_v_modulename > LONG_C ) |
---|
92 | { |
---|
93 | printf("WARNING 6 : The value of LONG_C - define in decl.h -\n"); |
---|
94 | printf(" should be upgrated to %d\n", |
---|
95 | length_v_modulename+100); |
---|
96 | } |
---|
97 | } |
---|
98 | if ( whichone == 7 && strlen(nom) > length_v_commonname ) |
---|
99 | { |
---|
100 | length_v_commonname = strlen(nom); |
---|
101 | if ( length_v_commonname > LONG_C ) |
---|
102 | { |
---|
103 | printf("WARNING 7 : The value of LONG_C - define in decl.h -\n"); |
---|
104 | printf(" should be upgrated to %d\n", |
---|
105 | length_v_commonname+100); |
---|
106 | } |
---|
107 | } |
---|
108 | if ( whichone == 8 && strlen(nom) > length_v_vallengspec ) |
---|
109 | { |
---|
110 | length_v_vallengspec = strlen(nom); |
---|
111 | if ( length_v_vallengspec > LONG_C ) |
---|
112 | { |
---|
113 | printf("WARNING 8 : The value of LONG_C - define in decl.h -\n"); |
---|
114 | printf(" should be upgrated to %d\n", |
---|
115 | length_v_vallengspec+100); |
---|
116 | } |
---|
117 | } |
---|
118 | if ( whichone == 9 && strlen(nom) > length_v_nameinttypename ) |
---|
119 | { |
---|
120 | length_v_nameinttypename = strlen(nom); |
---|
121 | if ( length_v_nameinttypename > LONG_C ) |
---|
122 | { |
---|
123 | printf("WARNING 9 : The value of LONG_C - define in decl.h -\n"); |
---|
124 | printf(" should be upgrated to %d\n", |
---|
125 | length_v_nameinttypename+100); |
---|
126 | } |
---|
127 | } |
---|
128 | if ( whichone == 10 && strlen(nom) > length_v_commoninfile ) |
---|
129 | { |
---|
130 | length_v_commoninfile = strlen(nom); |
---|
131 | if ( length_v_commoninfile > LONG_C ) |
---|
132 | { |
---|
133 | printf("WARNING 10 : The value of LONG_C - define in decl.h -\n"); |
---|
134 | printf(" should be upgrated to %d\n", |
---|
135 | length_v_commoninfile+100); |
---|
136 | } |
---|
137 | } |
---|
138 | if ( whichone == 11 && strlen(nom) > length_v_subroutinename ) |
---|
139 | { |
---|
140 | length_v_subroutinename = strlen(nom); |
---|
141 | if ( length_v_subroutinename > LONG_C ) |
---|
142 | { |
---|
143 | printf("WARNING 11 : The value of LONG_C - define in decl.h -\n"); |
---|
144 | printf(" should be upgrated to %d\n", |
---|
145 | length_v_subroutinename+100); |
---|
146 | } |
---|
147 | } |
---|
148 | if ( whichone == 12 && strlen(nom) > length_v_precision ) |
---|
149 | { |
---|
150 | length_v_precision = strlen(nom); |
---|
151 | if ( length_v_precision > LONG_C ) |
---|
152 | { |
---|
153 | printf("WARNING 12 : The value of LONG_C - define in decl.h -\n"); |
---|
154 | printf(" should be upgrated to %d\n", |
---|
155 | length_v_precision+100); |
---|
156 | } |
---|
157 | } |
---|
158 | if ( whichone == 13 && strlen(nom) > length_v_IntentSpec ) |
---|
159 | { |
---|
160 | length_v_IntentSpec = strlen(nom); |
---|
161 | if ( length_v_IntentSpec > LONG_C ) |
---|
162 | { |
---|
163 | printf("WARNING 13 : The value of LONG_C - define in decl.h -\n"); |
---|
164 | printf(" should be upgrated to %d\n", |
---|
165 | length_v_IntentSpec+100); |
---|
166 | } |
---|
167 | } |
---|
168 | if ( whichone == 14 && strlen(nom) > length_v_initialvalue ) |
---|
169 | { |
---|
170 | length_v_initialvalue = strlen(nom); |
---|
171 | if ( length_v_initialvalue > LONG_4C ) |
---|
172 | { |
---|
173 | printf("WARNING 14 : The value of LONG_4C - define in decl.h -\n"); |
---|
174 | printf(" should be upgrated to %d\n", |
---|
175 | length_v_initialvalue+100); |
---|
176 | } |
---|
177 | } |
---|
178 | if ( whichone == 15 && strlen(nom) > length_v_readedlistdimension ) |
---|
179 | { |
---|
180 | length_v_readedlistdimension = strlen(nom); |
---|
181 | if ( length_v_readedlistdimension > LONG_C ) |
---|
182 | { |
---|
183 | printf("WARNING 15 : The value of LONG_C - define in decl.h -\n"); |
---|
184 | printf(" should be upgrated to %d\n", |
---|
185 | length_v_readedlistdimension+100); |
---|
186 | } |
---|
187 | } |
---|
188 | if ( whichone == 16 && strlen(nom) > length_u_usemodule ) |
---|
189 | { |
---|
190 | length_u_usemodule = strlen(nom); |
---|
191 | if ( length_u_usemodule > LONG_C ) |
---|
192 | { |
---|
193 | printf("WARNING 16 : The value of LONG_C - define in decl.h -\n"); |
---|
194 | printf(" should be upgrated to %d\n", |
---|
195 | length_u_usemodule+100); |
---|
196 | } |
---|
197 | } |
---|
198 | if ( whichone == 17 && strlen(nom) > length_u_charusemodule ) |
---|
199 | { |
---|
200 | length_u_charusemodule = strlen(nom); |
---|
201 | if ( length_u_charusemodule > LONG_C ) |
---|
202 | { |
---|
203 | printf("WARNING 17 : The value of LONG_C - define in decl.h -\n"); |
---|
204 | printf(" should be upgrated to %d\n", |
---|
205 | length_u_charusemodule+100); |
---|
206 | } |
---|
207 | } |
---|
208 | if ( whichone == 18 && strlen(nom) > length_u_cursubroutine ) |
---|
209 | { |
---|
210 | length_u_cursubroutine = strlen(nom); |
---|
211 | if ( length_u_cursubroutine > LONG_C ) |
---|
212 | { |
---|
213 | printf("WARNING 18 : The value of LONG_C - define in decl.h -\n"); |
---|
214 | printf(" should be upgrated to %d\n", |
---|
215 | length_u_cursubroutine+100); |
---|
216 | } |
---|
217 | } |
---|
218 | if ( whichone == 19 && strlen(nom) > length_u_modulename ) |
---|
219 | { |
---|
220 | length_u_modulename = strlen(nom); |
---|
221 | if ( length_u_modulename > LONG_C ) |
---|
222 | { |
---|
223 | printf("WARNING 19 : The value of LONG_C - define in decl.h -\n"); |
---|
224 | printf(" should be upgrated to %d\n", |
---|
225 | length_u_modulename+100); |
---|
226 | } |
---|
227 | } |
---|
228 | if ( whichone == 20 && strlen(nom) > length_n_name ) |
---|
229 | { |
---|
230 | length_n_name = strlen(nom); |
---|
231 | if ( length_n_name > LONG_C ) |
---|
232 | { |
---|
233 | printf("WARNING 20 : The value of LONG_C - define in decl.h -\n"); |
---|
234 | printf(" should be upgrated to %d\n",length_n_name+100); |
---|
235 | } |
---|
236 | } |
---|
237 | if ( whichone == 21 && strlen(nom) > length_c_namevar ) |
---|
238 | { |
---|
239 | length_c_namevar = strlen(nom); |
---|
240 | if ( length_c_namevar > LONG_C ) |
---|
241 | { |
---|
242 | printf("WARNING 21 : The value of LONG_C - define in decl.h -\n"); |
---|
243 | printf(" should be upgrated to %d\n",length_c_namevar+100); |
---|
244 | } |
---|
245 | } |
---|
246 | if ( whichone == 22 && strlen(nom) > length_c_namepointedvar ) |
---|
247 | { |
---|
248 | length_c_namepointedvar = strlen(nom); |
---|
249 | if ( length_c_namepointedvar > LONG_C ) |
---|
250 | { |
---|
251 | printf("WARNING 22 : The value of LONG_C - define in decl.h -\n"); |
---|
252 | printf(" should be upgrated to %d\n", |
---|
253 | length_c_namepointedvar+100); |
---|
254 | } |
---|
255 | } |
---|
256 | if ( whichone == 23 && strlen(nom) > length_o_nom ) |
---|
257 | { |
---|
258 | length_o_nom = strlen(nom); |
---|
259 | if ( length_o_nom > LONG_C ) |
---|
260 | { |
---|
261 | printf("WARNING 23 : The value of LONG_C - define in decl.h -\n"); |
---|
262 | printf(" should be upgrated to %d\n",length_o_nom+100); |
---|
263 | } |
---|
264 | } |
---|
265 | if ( whichone == 24 && strlen(nom) > length_o_module ) |
---|
266 | { |
---|
267 | length_o_module = strlen(nom); |
---|
268 | if ( length_o_module > LONG_C ) |
---|
269 | { |
---|
270 | printf("WARNING 24 : The value of LONG_C - define in decl.h -\n"); |
---|
271 | printf(" should be upgrated to %d\n",length_o_module+100); |
---|
272 | } |
---|
273 | } |
---|
274 | if ( whichone == 25 && strlen(nom) > length_a_nomvar ) |
---|
275 | { |
---|
276 | length_a_nomvar = strlen(nom); |
---|
277 | if ( length_a_nomvar > LONG_C ) |
---|
278 | { |
---|
279 | printf("WARNING 25 : The value of LONG_C - define in decl.h -\n"); |
---|
280 | printf(" should be upgrated to %d\n",length_a_nomvar+100); |
---|
281 | } |
---|
282 | } |
---|
283 | if ( whichone == 26 && strlen(nom) > length_a_subroutine ) |
---|
284 | { |
---|
285 | length_a_subroutine = strlen(nom); |
---|
286 | if ( length_a_subroutine > LONG_C ) |
---|
287 | { |
---|
288 | printf("WARNING 26 : The value of LONG_C - define in decl.h -\n"); |
---|
289 | printf(" should be upgrated to %d\n", |
---|
290 | length_a_subroutine+100); |
---|
291 | } |
---|
292 | } |
---|
293 | if ( whichone == 27 && strlen(nom) > length_a_module ) |
---|
294 | { |
---|
295 | length_a_module = strlen(nom); |
---|
296 | if ( length_a_module > LONG_C ) |
---|
297 | { |
---|
298 | printf("WARNING 27 : The value of LONG_C - define in decl.h -\n"); |
---|
299 | printf(" should be upgrated to %d\n",length_a_module+100); |
---|
300 | } |
---|
301 | } |
---|
302 | if ( whichone == 28 && strlen(nom) > length_t_usemodule ) |
---|
303 | { |
---|
304 | length_t_usemodule = strlen(nom); |
---|
305 | if ( length_t_usemodule > LONG_C ) |
---|
306 | { |
---|
307 | printf("WARNING 28 : The value of LONG_C - define in decl.h -\n"); |
---|
308 | printf(" should be upgrated to %d\n", |
---|
309 | length_t_usemodule+100); |
---|
310 | } |
---|
311 | } |
---|
312 | if ( whichone == 29 && strlen(nom) > length_t_cursubroutine ) |
---|
313 | { |
---|
314 | length_t_cursubroutine = strlen(nom); |
---|
315 | if ( length_t_cursubroutine > LONG_C ) |
---|
316 | { |
---|
317 | printf("WARNING 29 : The value of LONG_C - define in decl.h -\n"); |
---|
318 | printf(" should be upgrated to %d\n", |
---|
319 | length_t_cursubroutine+100); |
---|
320 | } |
---|
321 | } |
---|
322 | if ( whichone == 30 && strlen(nom) > length_curfilename ) |
---|
323 | { |
---|
324 | length_curfilename = strlen(nom); |
---|
325 | if (length_curfilename > LONG_C ) |
---|
326 | { |
---|
327 | printf("WARNING 30 : The value of LONG_C - define in decl.h -\n"); |
---|
328 | printf(" should be upgrated to %d\n", |
---|
329 | length_curfilename+100); |
---|
330 | } |
---|
331 | } |
---|
332 | if ( whichone == 31 && strlen(nom) > length_nomfileoutput ) |
---|
333 | { |
---|
334 | length_nomfileoutput = strlen(nom); |
---|
335 | if ( length_nomfileoutput > LONG_C ) |
---|
336 | { |
---|
337 | printf("WARNING 31 : The value of LONG_C - define in decl.h -\n"); |
---|
338 | printf(" should be upgrated to %d\n", |
---|
339 | length_nomfileoutput+100); |
---|
340 | } |
---|
341 | } |
---|
342 | if ( whichone == 32 && strlen(nom) > length_motparse ) |
---|
343 | { |
---|
344 | length_motparse = strlen(nom); |
---|
345 | if ( length_motparse > LONG_4C ) |
---|
346 | { |
---|
347 | printf("WARNING 32 : The value of LONG_4C - define in decl.h -\n"); |
---|
348 | printf(" should be upgrated to %d\n",length_motparse+100); |
---|
349 | } |
---|
350 | } |
---|
351 | if ( whichone == 33 && strlen(nom) > length_mainfile ) |
---|
352 | { |
---|
353 | length_mainfile = strlen(nom); |
---|
354 | if ( length_mainfile > LONG_C ) |
---|
355 | { |
---|
356 | printf("WARNING 33 : The value of LONG_C - define in decl.h -\n"); |
---|
357 | printf(" should be upgrated to %d\n",length_mainfile+100); |
---|
358 | } |
---|
359 | } |
---|
360 | if ( whichone == 34 && strlen(nom) > length_nomdir ) |
---|
361 | { |
---|
362 | length_nomdir = strlen(nom); |
---|
363 | if ( length_nomdir > LONG_C ) |
---|
364 | { |
---|
365 | printf("WARNING 34 : The value of LONG_C - define in decl.h -\n"); |
---|
366 | printf(" should be upgrated to %d\n",length_nomdir+100); |
---|
367 | } |
---|
368 | } |
---|
369 | if ( whichone == 35 && strlen(nom) > length_commondirout ) |
---|
370 | { |
---|
371 | length_commondirout = strlen(nom); |
---|
372 | if ( length_commondirout > LONG_C ) |
---|
373 | { |
---|
374 | printf("WARNING 35 : The value of LONG_C - define in decl.h -\n"); |
---|
375 | printf(" should be upgrated to %d\n", |
---|
376 | length_commondirout+100); |
---|
377 | } |
---|
378 | } |
---|
379 | if ( whichone == 36 && strlen(nom) > length_commondirin ) |
---|
380 | { |
---|
381 | length_commondirin = strlen(nom); |
---|
382 | if ( length_commondirin > LONG_C ) |
---|
383 | { |
---|
384 | printf("WARNING 36 : The value of LONG_C - define in decl.h -\n"); |
---|
385 | printf(" should be upgrated to %d\n", |
---|
386 | length_commondirin+100); |
---|
387 | } |
---|
388 | } |
---|
389 | if ( whichone == 37 && strlen(nom) > length_filetoparse ) |
---|
390 | { |
---|
391 | length_filetoparse = strlen(nom); |
---|
392 | if ( length_filetoparse > LONG_C ) |
---|
393 | { |
---|
394 | printf("WARNING 37 : The value of LONG_C - define in decl.h -\n"); |
---|
395 | printf(" should be upgrated to %d\n", |
---|
396 | length_filetoparse+100); |
---|
397 | } |
---|
398 | } |
---|
399 | if ( whichone == 38 && strlen(nom) > length_curbuf ) |
---|
400 | { |
---|
401 | length_curbuf = strlen(nom); |
---|
402 | if ( length_curbuf > LONG_40M ) |
---|
403 | { |
---|
404 | printf("WARNING 38 : The value of LONG_40M - define in decl.h -\n"); |
---|
405 | printf(" should be upgrated to %d\n",length_curbuf+100); |
---|
406 | } |
---|
407 | } |
---|
408 | if ( whichone == 39 && strlen(nom) > length_toprintglob ) |
---|
409 | { |
---|
410 | length_toprintglob = strlen(nom); |
---|
411 | if ( length_toprintglob > LONG_4C ) |
---|
412 | { |
---|
413 | printf("WARNING 39 : The value of LONG_4C - define in decl.h -\n"); |
---|
414 | printf(" should be upgrated to %d\n", |
---|
415 | length_toprintglob+100); |
---|
416 | } |
---|
417 | } |
---|
418 | if ( whichone == 40 && strlen(nom) > length_tmpvargridname ) |
---|
419 | { |
---|
420 | length_tmpvargridname = strlen(nom); |
---|
421 | if ( length_tmpvargridname > LONG_4C ) |
---|
422 | { |
---|
423 | printf("WARNING 40 : The value of LONG_4C - define in decl.h -\n"); |
---|
424 | printf(" should be upgrated to %d\n", |
---|
425 | length_tmpvargridname+100); |
---|
426 | } |
---|
427 | } |
---|
428 | if ( whichone == 41 && strlen(nom) > length_ligne_Subloop ) |
---|
429 | { |
---|
430 | length_ligne_Subloop = strlen(nom); |
---|
431 | if ( length_ligne_Subloop > LONG_40M ) |
---|
432 | { |
---|
433 | printf("WARNING 41 : The value of LONG_40M - define in decl.h -\n"); |
---|
434 | printf(" should be upgrated to %d\n", |
---|
435 | length_ligne_Subloop+100); |
---|
436 | } |
---|
437 | } |
---|
438 | if ( whichone == 42 && strlen(nom) > length_lvargridname_toamr ) |
---|
439 | { |
---|
440 | length_lvargridname_toamr = strlen(nom); |
---|
441 | if ( length_lvargridname_toamr > LONG_4C ) |
---|
442 | { |
---|
443 | printf("WARNING 42 : The value of LONG_4C - define in decl.h -\n"); |
---|
444 | printf(" should be upgrated to %d\n", |
---|
445 | length_lvargridname_toamr+100); |
---|
446 | } |
---|
447 | } |
---|
448 | if ( whichone == 43 && strlen(nom) > length_toprint_utilagrif ) |
---|
449 | { |
---|
450 | length_toprint_utilagrif = strlen(nom); |
---|
451 | if ( length_toprint_utilagrif > LONG_C ) |
---|
452 | { |
---|
453 | printf("WARNING 43 : The value of LONG_C - define in decl.h -\n"); |
---|
454 | printf(" should be upgrated to %d\n", |
---|
455 | length_toprint_utilagrif+100); |
---|
456 | } |
---|
457 | } |
---|
458 | if ( whichone == 44 && strlen(nom) > length_toprinttmp_utilchar ) |
---|
459 | { |
---|
460 | length_toprinttmp_utilchar = strlen(nom); |
---|
461 | if ( length_toprinttmp_utilchar > LONG_4C) |
---|
462 | { |
---|
463 | printf("WARNING 44 : The value of LONG_4C - define in decl.h -\n"); |
---|
464 | printf(" should be upgrated to %d\n", |
---|
465 | length_toprinttmp_utilchar+100); |
---|
466 | } |
---|
467 | } |
---|
468 | if ( whichone == 45 && strlen(nom) > length_ligne_writedecl ) |
---|
469 | { |
---|
470 | length_ligne_writedecl = strlen(nom); |
---|
471 | if ( length_ligne_writedecl > LONG_4C ) |
---|
472 | { |
---|
473 | printf("WARNING 45 : The value of LONG_4C - define in decl.h -\n"); |
---|
474 | printf(" should be upgrated to %d\n", |
---|
475 | length_ligne_writedecl+100); |
---|
476 | } |
---|
477 | } |
---|
478 | if ( whichone == 46 && strlen(nom) > length_newname_toamr ) |
---|
479 | { |
---|
480 | length_newname_toamr = strlen(nom); |
---|
481 | if ( length_newname_toamr > LONG_4C ) |
---|
482 | { |
---|
483 | printf("WARNING 46 : The value of LONG_4C - define in decl.h -\n"); |
---|
484 | printf(" should be upgrated to %d\n", |
---|
485 | length_newname_toamr+100); |
---|
486 | } |
---|
487 | } |
---|
488 | if ( whichone == 47 && strlen(nom) > length_newname_writedecl ) |
---|
489 | { |
---|
490 | length_newname_writedecl = strlen(nom); |
---|
491 | if ( length_newname_writedecl > LONG_4C ) |
---|
492 | { |
---|
493 | printf("WARNING 47 : The value of LONG_4C - define in decl.h -\n"); |
---|
494 | printf(" should be upgrated to %d\n", |
---|
495 | length_newname_writedecl +100); |
---|
496 | } |
---|
497 | } |
---|
498 | if ( whichone == 48 && strlen(nom) > length_ligne_toamr ) |
---|
499 | { |
---|
500 | length_ligne_toamr = strlen(nom); |
---|
501 | if ( length_ligne_toamr > LONGNOM ) |
---|
502 | { |
---|
503 | printf("WARNING 48 : The value of LONGNOM - define in decl.h -\n"); |
---|
504 | printf(" should be upgrated to %d\n", |
---|
505 | length_ligne_toamr +100); |
---|
506 | } |
---|
507 | } |
---|
508 | if ( whichone == 49 && strlen(nom) > length_tmpligne_writedecl ) |
---|
509 | { |
---|
510 | length_tmpligne_writedecl = strlen(nom); |
---|
511 | if ( length_tmpligne_writedecl > LONG_4C ) |
---|
512 | { |
---|
513 | printf("WARNING 49 : The value of LONG_4C - define in decl.h -\n"); |
---|
514 | printf(" should be upgrated to %d\n", |
---|
515 | length_tmpligne_writedecl+100); |
---|
516 | } |
---|
517 | } |
---|
518 | } |
---|
519 | |
---|
520 | void Save_Length_int(int val, int whichone) |
---|
521 | { |
---|
522 | if ( whichone == 1 && val > value_char_size ) |
---|
523 | value_char_size = val; |
---|
524 | if ( whichone == 2 && val > value_char_size1 ) |
---|
525 | value_char_size1 = val; |
---|
526 | if ( whichone == 3 && val > value_char_size2 ) |
---|
527 | value_char_size2 = val; |
---|
528 | if ( whichone == 4 && val > value_char_size3 ) |
---|
529 | value_char_size3 = val; |
---|
530 | } |
---|