Changeset 5989 for branches/2014/dev_r4650_UKMO10_Tidally_Meaned_Diagnostics/NEMOGCM/EXTERNAL/AGRIF/LIB/WorkWithvarofsubroutineliste.c
- Timestamp:
- 2015-12-03T09:10:32+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO10_Tidally_Meaned_Diagnostics/NEMOGCM/EXTERNAL/AGRIF/LIB/WorkWithvarofsubroutineliste.c
r2528 r5989 41 41 /* Add_SubroutineArgument_Var_1 */ 42 42 /******************************************************************************/ 43 /* Firstpass 1 */44 /* We should complete the */45 /******************************************************************************/46 /* */47 /* */48 /******************************************************************************/49 43 void Add_SubroutineArgument_Var_1(listvar *listtoadd) 50 44 { 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); 57 46 } 58 47 … … 60 49 /* Add_FunctionType_Var_1 */ 61 50 /******************************************************************************/ 62 /* Firstpass 1 */ 63 /* We should complete the */ 64 /******************************************************************************/ 65 /* */ 66 /* */ 67 /******************************************************************************/ 68 void Add_FunctionType_Var_1(char *nom) 51 void Add_FunctionType_Var_1(const char *nom) 69 52 { 70 listvar *newvar;53 listvar *newvar; 71 54 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); 80 59 } 81 82 60 83 61 /******************************************************************************/ 84 62 /* Add_SubroutineDeclaration_Var_1 */ 85 63 /******************************************************************************/ 86 /* Firstpass 1 */87 64 /* We should complete the listvarofsubroutine */ 88 65 /******************************************************************************/ 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.