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 7731 for branches/UKMO/dev_r5518_v3.6_asm_nemovar_community/NEMOGCM/EXTERNAL/AGRIF/LIB/WorkWithvarofsubroutineliste.c – NEMO

Ignore:
Timestamp:
2017-02-23T14:23:32+01:00 (7 years ago)
Author:
dford
Message:

Merge in revisions 6625:7726 of dev_r5518_v3.4_asm_nemovar_community, so this branch will be identical to revison 7726 of dev_r5518_v3.6_asm_nemovar_community.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_v3.6_asm_nemovar_community/NEMOGCM/EXTERNAL/AGRIF/LIB/WorkWithvarofsubroutineliste.c

    r7730 r7731  
    4141/*                      Add_SubroutineArgument_Var_1                          */ 
    4242/******************************************************************************/ 
    43 /* Firstpass 1                                                                */ 
    44 /* We should complete the                                                     */ 
    45 /******************************************************************************/ 
    46 /*                                                                            */ 
    47 /*                                                                            */ 
    48 /******************************************************************************/ 
    4943void Add_SubroutineArgument_Var_1(listvar *listtoadd) 
    5044{ 
    51  
    52    if ( firstpass == 1 ) 
    53    { 
    54        List_SubroutineArgument_Var = AddListvarToListvar 
    55                               (listtoadd,List_SubroutineArgument_Var,1); 
    56    } 
     45    List_SubroutineArgument_Var = AddListvarToListvar(listtoadd, List_SubroutineArgument_Var, 1); 
    5746} 
    5847 
    … …  
    6049/*                             Add_FunctionType_Var_1                         */ 
    6150/******************************************************************************/ 
    62 /* Firstpass 1                                                                */ 
    63 /* We should complete the                                                     */ 
    64 /******************************************************************************/ 
    65 /*                                                                            */ 
    66 /*                                                                            */ 
    67 /******************************************************************************/ 
    68 void Add_FunctionType_Var_1(char *nom) 
     51void Add_FunctionType_Var_1(const char *nom) 
    6952{ 
    70    listvar *newvar; 
     53    listvar *newvar; 
    7154 
    72    if ( firstpass == 1 ) 
    73    { 
    74       curvar=createvar(nom,NULL); 
    75       strcpy(curvar->v_typevar,DeclType); 
    76       newvar = insertvar(NULL,curvar); 
    77       List_FunctionType_Var = AddListvarToListvar 
    78                               (newvar,List_FunctionType_Var,1); 
    79    } 
     55    curvar = createvar(nom, NULL); 
     56    strcpy(curvar->v_typevar, DeclType); 
     57    newvar = insertvar(NULL, curvar); 
     58    List_FunctionType_Var = AddListvarToListvar(newvar,List_FunctionType_Var,1); 
    8059} 
    81  
    8260 
    8361/******************************************************************************/ 
    8462/*                      Add_SubroutineDeclaration_Var_1                       */ 
    8563/******************************************************************************/ 
    86 /* Firstpass 1                                                                */ 
    8764/* We should complete the listvarofsubroutine                                 */ 
    8865/******************************************************************************/ 
    89 /*                                                                            */ 
    90 /*                                                                            */ 
    91 /******************************************************************************/ 
    92 void Add_SubroutineDeclaration_Var_1 (listvar *listtoadd) 
    93 { 
    94    if ( firstpass == 1 ) 
    95    { 
    96       if ( VariableIsParameter == 0 && 
    97            SaveDeclare         == 0 ) 
    98       { 
    99          listduplicated = (listvar *)NULL; 
    100          duplicatelistvar(listtoadd); 
    101          List_SubroutineDeclaration_Var = AddListvarToListvar 
    102                               (listduplicated,List_SubroutineDeclaration_Var,1); 
    103       } 
    104    } 
    105 } 
     66// void Add_SubroutineDeclaration_Var_1 (listvar *listtoadd) 
     67// { 
     68//    if ( firstpass == 1 ) 
     69//    { 
     70//       if ( VariableIsParameter == 0 && 
     71//            SaveDeclare         == 0 ) 
     72//       { 
     73//          listduplicated = (listvar *)NULL; 
     74//          duplicatelistvar(listtoadd); 
     75//          List_SubroutineDeclaration_Var = AddListvarToListvar(listduplicated,List_SubroutineDeclaration_Var,1); 
     76//       } 
     77//    } 
     78// } 
Note: See TracChangeset for help on using the changeset viewer.