Changeset 10088 for vendors/AGRIF/CMEMS_2020/LIB/decl.h
- Timestamp:
- 2018-09-05T15:35:32+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
vendors/AGRIF/CMEMS_2020/LIB/decl.h
r9019 r10088 36 36 #define LONG_FNAME 1000 // Max length for a file name 37 37 #define LONG_C 200 38 #define LONG_M 200038 #define LONG_M 1500 39 39 40 40 #define NB_CAT_VARIABLES 5 … … 55 55 struct listdim *suiv; 56 56 } listdim; /* list of the dimensions of a variable */ 57 58 typedef struct listname 59 { 60 char n_name[LONG_M]; 61 struct listname* suiv; 62 } listname ; /* list of names */ 63 64 typedef struct do_loop 65 { 66 char do_variable[LONG_VNAME]; 67 char do_begin[LONG_VNAME]; 68 char do_end[LONG_VNAME]; 69 char do_step[LONG_VNAME]; 70 } do_loop ; 71 72 typedef struct listdoloop 73 { 74 do_loop *cur_do_loop; 75 struct listdoloop* suiv; 76 } listdoloop; 57 77 58 78 typedef struct variable … … 68 88 char v_commoninfile[LONG_FNAME]; 69 89 char v_subroutinename[LONG_VNAME]; 90 listdoloop *v_do_loop; 70 91 char v_precision[LONG_C]; 71 char v_initialvalue[LONG_M]; 92 listname *v_initialvalue; 93 listname *v_initialvalue_array; 72 94 char v_IntentSpec[LONG_M]; 73 95 char v_readedlistdimension[LONG_M]; … … 126 148 } listparameter ; /* list of names */ 127 149 128 typedef struct listname129 {130 char n_name[LONG_VNAME];131 struct listname* suiv;132 } listname ; /* list of names */133 134 150 typedef struct listcouple 135 151 { … … 198 214 listname *List_Pointer_Var; 199 215 listname *List_ImplicitNoneSubroutine; 216 217 listname *List_Do_labels; 218 /* A list that contains the do labels if any */ 200 219 201 220 listusemodule *List_NameOfModuleUsed; … … 321 340 char curmodulename[LONG_VNAME]; 322 341 char subroutinename[LONG_VNAME]; 342 char old_subroutinename[LONG_VNAME]; // For internal subprogramm 323 343 char cur_filename[LONG_FNAME]; // Name of the current parsed Fortran file 324 344 char config_file[LONG_FNAME]; // Name of conv configuration file (ex: amr.in) … … 331 351 FILE *fortran_in; /* Input File */ 332 352 FILE *oldfortran_out; 353 FILE *old_oldfortran_out; // For internal subprogramm 333 354 FILE *subloop; 334 355 FILE *module_declar; … … 433 454 /******************************************************************************/ 434 455 extern void WriteBeginof_SubLoop(); 435 extern void WriteVariablelist_subloop(char * ligne);436 extern void WriteVariablelist_subloop_Call(char **ligne, size_t line_length);437 extern void WriteVariablelist_subloop_Def(char * ligne);456 extern void WriteVariablelist_subloop(char **ligne, size_t *line_length); 457 extern void WriteVariablelist_subloop_Call(char **ligne, size_t *line_length); 458 extern void WriteVariablelist_subloop_Def(char **ligne, size_t *line_length); 438 459 extern void WriteHeadofSubroutineLoop(); 439 460 extern void closeandcallsubloopandincludeit_0(int suborfun); … … 516 537 extern int varistyped_0(char *ident); 517 538 extern void dump_var(const variable* var); 539 extern void removenewline(char *nom); 518 540 /******************************************************************************/ 519 541 /*********** UtilListe.c ******************************************************/ … … 532 554 extern int IsinListe(listvar *lin,char *nom); 533 555 extern listname *Insertname(listname *lin,char *nom,int sens); 556 extern int testandextractfromlist(listname **lin, char*nom); 557 extern void removefromlist(listname **lin, char*nom); 534 558 extern listname *concat_listname(listname *l1, listname *l2); 535 559 extern void createstringfromlistname(char *ligne, listname *lin); … … 540 564 extern void addprecision_derivedfromkind(variable *curvar); 541 565 extern int get_cat_var(variable *var); 566 extern void Insertdoloop(variable *var,char *do_var, char *do_begin, char *do_end, char *do_step); 542 567 /******************************************************************************/ 543 568 /*********** UtilNotGridDep.c *************************************************/ … … 560 585 /******************************************************************************/ 561 586 extern void Add_Data_Var_1 (listvar **curlist,char *name,char *values); 562 extern void Add_Data_Var_Names_01 (listvar **curlist,list name*l1, listname *l2);587 extern void Add_Data_Var_Names_01 (listvar **curlist,listvar *l1, listname *l2); 563 588 /******************************************************************************/ 564 589 /*********** WorkWithlistmoduleinfile.c ***************************************/ … … 641 666 extern void WriteArgumentDeclaration_beforecall(); 642 667 extern void WriteArgumentDeclaration_Sort(FILE* tofile); 643 extern listnom *writedeclarationintoamr(listvar *deb_common, FILE *fileout, variable *var,644 const char *commonname, listnom * neededparameter, const char *name_common);668 extern int writedeclarationintoamr(listvar *deb_common, FILE *fileout, variable *var, 669 const char *commonname, listnom **neededparameter, const char *name_common, int global_check); 645 670 extern void writesub_loopdeclaration_scalar(listvar *deb_common, FILE *fileout); 646 671 extern void writesub_loopdeclaration_tab(listvar *deb_common, FILE *fileout);
Note: See TracChangeset
for help on using the changeset viewer.