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 1200 for trunk/AGRIF/LIB/decl.h – NEMO

Ignore:
Timestamp:
2008-09-24T15:05:20+02:00 (16 years ago)
Author:
rblod
Message:

Adapt Agrif to the new SBC and correct several bugs for agrif (restart writing and reading), see ticket #133
Note : this fix does not work yet on NEC computerq (sxf90/360)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/AGRIF/LIB/decl.h

    r774 r1200  
    3333/* version 1.7                                                                */ 
    3434/******************************************************************************/ 
    35 #define LONGNOM 800 
    36  
    37 #define LONG_C 300 
    38 #define LONG_4C 400 
     35#define LONGNOM 8000 
     36 
     37#define LONG_C 3000 
     38#define LONG_4C 4000 
    3939#define LONG_4M 4000 
    4040#define LONG_40M 40000 
    … …  
    258258 char DeclType[LONG_C]; 
    259259 char nameinttypename[LONG_C]; 
     260 char nameinttypenameback[LONG_C];  
    260261 int GlobalDeclaration; 
    261262 char InitValue[LONG_4C]; 
    … …  
    339340 long int pos_curcall;     /* current position in the output file             */ 
    340341 long int pos_curuse;      /* current position in the output file             */ 
     342 long int pos_curuseold;   /* current position in the output file             */ 
    341343 long int pos_curfunction; /* current position in the output file             */ 
    342344 long int pos_cur_decl;    /* current position in the output file             */ 
    … …  
    433435 int value_char_size3; 
    434436 
     437  
     438 int inallocate; 
     439 int infixed; 
     440 int infree; 
    435441/******************************************************************************/ 
    436442/*********** Declaration of externals subroutines *****************************/ 
    … …  
    520526extern int Vartonumber(char *tokname); 
    521527extern int Agrif_in_Tok_NAME(char *tokname); 
    522 extern void ModifyTheVariableName_0(char *ident); 
     528extern void ModifyTheVariableName_0(char *ident,int lengthname); 
    523529extern void Add_SubroutineWhereAgrifUsed_1(char *sub,char *mod); 
    524530extern void AddUseAgrifUtil_0(FILE *fileout); 
    … …  
    547553extern FILE * associateaplus (char *filename); 
    548554extern long int setposcur(); 
     555extern long int setposcurname(FILE *fileout); 
    549556extern long int setposcurinoldfortranout(); 
    550557extern void copyuse_0(char *namemodule); 
    … …  
    559566extern int VariableIsInList(listvar *curvar,listvar *listin); 
    560567extern void variableisglobalinmodule(listcouple *listin, char *module, 
    561                                                                  FILE *fileout); 
     568                                                                 FILE *fileout,long int oldposcuruse); 
    562569extern void Remove_Word_Contains_0(); 
    563 extern void Remove_Word_end_module_0(); 
     570extern void Remove_Word_end_module_0(int modulenamelength); 
    564571extern void Write_Word_Contains_0(); 
    565572extern void Write_Word_end_module_0(); 
    … …  
    568575extern void Write_Alloc_Subroutine_For_End_0(); 
    569576extern void Write_GlobalParameter_Declaration_0(); 
     577extern void Write_GlobalType_Declaration_0(); 
    570578extern void Write_NotGridDepend_Declaration_0(); 
    571579extern int IsTabvarsUseInArgument_0(); 
    … …  
    575583extern int varispointer_0(char *ident); 
    576584extern int VariableIsNotFunction(char *ident); 
     585extern int varistyped_0(char *ident); 
    577586/******************************************************************************/ 
    578587/*********** UtilListe.c ******************************************************/ 
    … …  
    589598extern listvar * insertvar(listvar *lin,variable *v); 
    590599extern listvar *settype(char *nom,listvar *lin); 
     600extern void printliste(listvar * lin); 
     601extern int IsinListe(listvar *lin,char *nom); 
     602extern listname *Insertname(listname *lin,char *nom); 
     603extern void printname(listname * lin); 
     604extern void removeglobfromlist(listname **lin); 
     605extern void writelistpublic(listname *lin); 
    591606/******************************************************************************/ 
    592607/*********** UtilNotGridDep.c *************************************************/ 
    … …  
    605620extern void Add_Globliste_1(listvar *listtoadd); 
    606621extern void Add_SubroutineDeclarationSave_Var_1(listvar *listtoadd); 
     622extern void checkandchangedims(listvar *listsecondpass); 
    607623/******************************************************************************/ 
    608624/*********** WorkWithlistdatavariable.c ***************************************/ 
    … …  
    678694/*********** Writedeclarations.c **********************************************/ 
    679695/******************************************************************************/ 
    680 extern void WriteBeginDeclaration(variable *v,char ligne[LONG_4C]); 
     696extern void WriteBeginDeclaration(variable *v,char ligne[LONG_4C],int visibility); 
    681697extern void WriteScalarDeclaration(variable *v,char ligne[LONG_4C]); 
    682698extern void WriteTableDeclaration(variable * v,char ligne[LONG_4C],int tmpok); 
    683699extern void writevardeclaration (listvar * var_record, FILE *fileout, 
    684                                                                      int value); 
     700                                                                     int value,int visibility); 
    685701extern void WriteLocalParamDeclaration(); 
    686 extern void WriteFunctionDeclaration(); 
     702extern void WriteFunctionDeclaration(int value); 
    687703extern void WriteSubroutineDeclaration(int value); 
    688704extern void WriteArgumentDeclaration_beforecall(); 
    … …  
    694710                                                                 FILE *fileout); 
    695711extern void writesub_loopdeclaration_tab (listvar * deb_common, FILE *fileout); 
     712extern void ReWriteDeclarationAndAddTosubroutine_01(listvar *listdecl); 
    696713/******************************************************************************/ 
    697714/*********** WriteInFile.c ****************************************************/ 
    … …  
    705722extern void RemoveWordCUR_0(FILE * filout, long int position, 
    706723                                                         long int sizetoremove); 
     724 
     725/******************************************************************************/ 
     726/*********** WorkWithlistofcoupled.c **********************************************/ 
     727/******************************************************************************/                                                         
     728extern int variscoupled_0(char *ident) ; 
     729extern char * getcoupledname_0(char *ident); 
     730extern void ModifyTheVariableNamecoupled_0(char *ident, char* coupledident); 
Note: See TracChangeset for help on using the changeset viewer.