New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6487 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/EXTERNAL/AGRIF/LIB/WorkWithlistmoduleinfile.c – NEMO

Ignore:
Timestamp:
2016-04-20T11:33:10+02:00 (8 years ago)
Author:
davestorkey
Message:

Changes from nemo_v3_6_STABLE_copy branch.
Custom merge into /branches/UKMO/dev_r5518_GO6_package/NEMOGCM: r6237 cf. r5781 of /branches/UKMO/nemo_v3_6_STABLE_copy/NEMOGCM@6486

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/EXTERNAL/AGRIF/LIB/WorkWithlistmoduleinfile.c

    r6486 r6487  
    3838#include "decl.h" 
    3939 
    40 void Save_Length(char *nom, int whichone) 
     40void Save_Length(const char *nom, int whichone) 
    4141{ 
    42    if ( whichone == 1  && strlen(nom) > length_last ) 
     42    size_t len_nom = strlen(nom); 
     43     
     44   if ( whichone == 1  && len_nom > length_last ) 
    4345   { 
    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       } 
     46      length_last = len_nom; 
     47      if ( length_last > LONG_M ) 
     48            printf("WARNING 1 : The value of LONG_M (defined in decl.h) should be upgrated to %lu\n", length_last+100); 
    5049   } 
    51    if ( whichone == 2  && strlen(nom) > length_first ) 
     50   if ( whichone == 2  && len_nom > length_first ) 
    5251   { 
    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       } 
     52      length_first = len_nom; 
     53      if ( length_first > LONG_M ) 
     54           printf("WARNING 2 : The value of LONG_M (defined in decl.h) should be upgrated to %lu\n", length_first+100); 
    5955   } 
    60    if ( whichone == 3  && strlen(nom) > length_v_typevar ) 
     56   if ( whichone == 8  && len_nom > length_v_vallengspec ) 
    6157   { 
    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       } 
     58      length_v_vallengspec = len_nom; 
     59      if ( length_v_vallengspec > LONG_M ) 
     60           printf("WARNING 8 : The value of LONG_M (defined in decl.h) should be upgrated to %lu\n", length_v_vallengspec+100); 
    6861   } 
    69    if ( whichone == 4  && strlen(nom) > length_v_nomvar ) 
     62   if ( whichone == 12 && len_nom > length_v_precision ) 
    7063   { 
    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       } 
     64      length_v_precision = len_nom; 
     65      if ( length_v_precision > LONG_M ) 
     66           printf("WARNING 12 : The value of LONG_M (defined in decl.h) should be upgrated to %lu\n", length_v_precision+100); 
    7767   } 
    78    if ( whichone == 5  && strlen(nom) > length_v_dimchar ) 
     68   if ( whichone == 13 && len_nom > length_v_IntentSpec ) 
    7969   { 
    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       } 
     70      length_v_IntentSpec = len_nom; 
     71      if ( length_v_IntentSpec > LONG_M ) 
     72           printf("WARNING 13 : The value of LONG_M (defined in decl.h) should be upgrated to %lu\n", length_v_IntentSpec+100); 
    8773   } 
    88    if ( whichone == 6  && strlen(nom) > length_v_modulename ) 
     74   if ( whichone == 14 && len_nom > length_v_initialvalue ) 
    8975   { 
    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       } 
     76      length_v_initialvalue = len_nom; 
     77      if ( length_v_initialvalue > LONG_M ) 
     78           printf("WARNING 14 : The value of LONG_M (defined in decl.h) should be upgrated to %lu\n", length_v_initialvalue+100); 
    9779   } 
    98    if ( whichone == 7  && strlen(nom) > length_v_commonname ) 
     80   if ( whichone == 15 && len_nom > length_v_readedlistdimension ) 
    9981   { 
    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       } 
     82      length_v_readedlistdimension = len_nom; 
     83      if ( length_v_readedlistdimension > LONG_M ) 
     84           printf("WARNING 15 : The value of LONG_M (defined in decl.h) should be upgrated to %lu\n", length_v_readedlistdimension+100); 
    10785   } 
    108    if ( whichone == 8  && strlen(nom) > length_v_vallengspec ) 
     86   if ( whichone == 25 && len_nom > length_a_nomvar ) 
    10987   { 
    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       } 
     88      length_a_nomvar = len_nom; 
     89      if ( length_a_nomvar > LONG_C ) 
     90           printf("WARNING 25 : The value of LONG_C (defined in decl.h) should be upgrated to %lu\n", length_a_nomvar+100); 
    11791   } 
    118    if ( whichone == 9  && strlen(nom) > length_v_nameinttypename ) 
     92   if ( whichone == 39 && len_nom > length_toprintglob ) 
    11993   { 
    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       } 
     94      length_toprintglob = len_nom; 
     95      if ( length_toprintglob > LONG_M ) 
     96           printf("WARNING 39 : The value of LONG_M (defined in decl.h) should be upgrated to %lu\n", length_toprintglob+100); 
    12797   } 
    128    if ( whichone == 10 && strlen(nom) > length_v_commoninfile ) 
     98   if ( whichone == 40 && len_nom > length_tmpvargridname ) 
    12999   { 
    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       } 
     100      length_tmpvargridname = len_nom; 
     101      if ( length_tmpvargridname > LONG_M ) 
     102           printf("WARNING 40 : The value of LONG_M (defined in decl.h) should be upgrated to %lu\n", length_tmpvargridname+100); 
    137103   } 
    138    if ( whichone == 11 && strlen(nom) > length_v_subroutinename ) 
     104   if ( whichone == 41 && len_nom > length_ligne_Subloop ) 
    139105   { 
    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       } 
     106       length_ligne_Subloop = len_nom; 
     107      if ( length_ligne_Subloop > LONG_M ) 
     108           printf("WARNING 41 : The value of LONG_M (defined in decl.h) should be upgrated to %lu\n",length_ligne_Subloop+100); 
    147109   } 
    148    if ( whichone == 12 && strlen(nom) > length_v_precision ) 
     110   if ( whichone == 43 && len_nom > length_toprint_utilagrif ) 
    149111   { 
    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       } 
     112      length_toprint_utilagrif = len_nom; 
     113      if ( length_toprint_utilagrif > LONG_M ) 
     114           printf("WARNING 43 : The value of LONG_M (defined in decl.h) should be upgrated to %lu\n", length_toprint_utilagrif+100); 
    157115   } 
    158    if ( whichone == 13 && strlen(nom) > length_v_IntentSpec ) 
     116   if ( whichone == 44 && len_nom > length_toprinttmp_utilchar ) 
    159117   { 
    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       } 
     118      length_toprinttmp_utilchar = len_nom; 
     119      if ( length_toprinttmp_utilchar > LONG_M) 
     120           printf("WARNING 44 : The value of LONG_M (defined in decl.h) should be upgrated to %lu\n", length_toprinttmp_utilchar+100); 
    167121   } 
    168    if ( whichone == 14 && strlen(nom) > length_v_initialvalue ) 
     122   if ( whichone == 45 && len_nom > length_ligne_writedecl ) 
    169123   { 
    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       } 
     124      length_ligne_writedecl = len_nom; 
     125      if ( length_ligne_writedecl > LONG_M ) 
     126           printf("WARNING 45 : The value of LONG_M (defined in decl.h) should be upgrated to %lu\n", length_ligne_writedecl+100); 
    177127   } 
    178    if ( whichone == 15 && strlen(nom) > length_v_readedlistdimension ) 
     128   if ( whichone == 46 && len_nom > length_newname_toamr ) 
    179129   { 
    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       } 
     130      length_newname_toamr = len_nom; 
     131      if ( length_newname_toamr > LONG_C ) 
     132           printf("WARNING 46 : The value of LONG_C (defined in decl.h) should be upgrated to %lu\n", length_newname_toamr+100); 
    187133   } 
    188    if ( whichone == 16 && strlen(nom) > length_u_usemodule ) 
     134   if ( whichone == 47 && len_nom > length_newname_writedecl ) 
    189135   { 
    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       } 
     136      length_newname_writedecl = len_nom; 
     137      if ( length_newname_writedecl > LONG_M ) 
     138           printf("WARNING 47 : The value of LONG_M (defined in decl.h) should be upgrated to %lu\n", length_newname_writedecl +100); 
    197139   } 
    198    if ( whichone == 17 && strlen(nom) > length_u_charusemodule ) 
     140   if ( whichone == 48 && len_nom > length_ligne_toamr ) 
    199141   { 
    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       } 
     142      length_ligne_toamr = len_nom; 
     143      if ( length_ligne_toamr > LONG_M ) 
     144           printf("WARNING 48 : The value of LONG_M (defined in decl.h) should be upgrated to %lu\n", length_ligne_toamr +100); 
    207145   } 
    208    if ( whichone == 18 && strlen(nom) > length_u_cursubroutine ) 
     146   if ( whichone == 49 && len_nom > length_tmpligne_writedecl ) 
    209147   { 
    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       } 
     148      length_tmpligne_writedecl = len_nom; 
     149      if ( length_tmpligne_writedecl > LONG_M ) 
     150           printf("WARNING 49 : The value of LONG_M (defined in decl.h) should be upgrated to %lu\n", length_tmpligne_writedecl+100); 
    517151   } 
    518152} 
    … …  
    520154void Save_Length_int(int val, int whichone) 
    521155{ 
    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; 
     156   if ( whichone == 1 && val > value_char_size )    value_char_size  = val; 
     157   if ( whichone == 2 && val > value_char_size1 )   value_char_size1 = val; 
     158   if ( whichone == 3 && val > value_char_size2 )   value_char_size2 = val; 
     159   if ( whichone == 4 && val > value_char_size3 )   value_char_size3 = val; 
    530160} 
Note: See TracChangeset for help on using the changeset viewer.