source: branches/2015/dev_r5021_UKMO1_CICE_coupling/NEMOGCM/EXTERNAL/AGRIF/LIB/WorkWithlistmoduleinfile.c @ 5445

Last change on this file since 5445 was 5445, checked in by davestorkey, 5 years ago

Clear SVN keywords from 2015/dev_r5021_UKMO1_CICE_coupling branch.

File size: 21.4 KB
Line 
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
40void 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
520void 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}
Note: See TracBrowser for help on using the repository browser.