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

Changeset 530 for trunk/AGRIF/LIB/decl.h


Ignore:
Timestamp:
2006-10-17T17:36:11+02:00 (18 years ago)
Author:
opalod
Message:

RB: update of the conv for IOM and NEC MPI library

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/AGRIF/LIB/decl.h

    r396 r530  
    33/*     CONV (converter) for Agrif (Adaptive Grid Refinement In Fortran)       */ 
    44/*                                                                            */ 
    5 /*     Copyright (C) 2005 Laurent Debreu (Laurent.Debreu@imag.fr)             */ 
     5/* Copyright or © or Copr. Laurent Debreu (Laurent.Debreu@imag.fr)            */ 
    66/*                        Cyril Mazauric (Cyril.Mazauric@imag.fr)             */ 
     7/* This software is governed by the CeCILL-C license under French law and     */ 
     8/* abiding by the rules of distribution of free software.  You can  use,      */ 
     9/* modify and/ or redistribute the software under the terms of the CeCILL-C   */ 
     10/* license as circulated by CEA, CNRS and INRIA at the following URL          */ 
     11/* "http://www.cecill.info".                                                  */ 
    712/*                                                                            */ 
    8 /*     This program is free software; you can redistribute it and/or modify   */ 
    9 /*    it                                                                      */ 
     13/* As a counterpart to the access to the source code and  rights to copy,     */ 
     14/* modify and redistribute granted by the license, users are provided only    */ 
     15/* with a limited warranty  and the software's author,  the holder of the     */ 
     16/* economic rights,  and the successive licensors  have only  limited         */ 
     17/* liability.                                                                 */ 
    1018/*                                                                            */ 
    11 /*    This program is distributed in the hope that it will be useful,         */ 
    12 /*     but WITHOUT ANY WARRANTY; without even the implied warranty of         */ 
    13 /*     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          */ 
    14 /*    GNU General Public License for more details.                            */ 
     19/* In this respect, the user's attention is drawn to the risks associated     */ 
     20/* with loading,  using,  modifying and/or developing or reproducing the      */ 
     21/* software by the user in light of its specific status of free software,     */ 
     22/* that may mean  that it is complicated to manipulate,  and  that  also      */ 
     23/* therefore means  that it is reserved for developers  and  experienced      */ 
     24/* professionals having in-depth computer knowledge. Users are therefore      */ 
     25/* encouraged to load and test the software's suitability as regards their    */ 
     26/* requirements in conditions enabling the security of their systems and/or   */ 
     27/* data to be ensured and,  more generally, to use and operate it in the      */ 
     28/* same conditions as regards security.                                       */ 
    1529/*                                                                            */ 
     30/* The fact that you are presently reading this means that you have had       */ 
     31/* knowledge of the CeCILL-C license and that you accept its terms.           */ 
     32/******************************************************************************/ 
     33/* version 1.0                                                                */ 
    1634/******************************************************************************/ 
    1735#define LONGNOM 800 
    … …  
    4260   listdim *dimension; 
    4361   int nbdim; 
    44    struct variable *vinit; 
    4562   int common; 
    4663   int positioninblock; 
    … …  
    5572   char vallengspec[LONGNOM]; 
    5673   char nameinttypename[LONGNOM]; 
    57    int lengspecgiven; 
    5874   int pointedvar; 
    5975   char commoninfile[LONGNOM]; 
    … …  
    6278   int c_star; 
    6379   int typegiven; 
    64    int isparameter; 
    6580   char precision[LONGNOM];  
    6681   char initialvalue[LONGNOM];  
    … …  
    92107   char nomvar[LONGNOM] ; 
    93108   char commonname[LONGNOM]; 
    94    char commoninfile[LONGNOM]; 
    95109   char subroutinename[LONGNOM]; 
    96110   int dimensiongiven; 
    … …  
    132146} listname ;            /* list of names                                  */ 
    133147 
    134 listname *listimplicitnone; 
    135148 
    136149typedef struct listmodule  
    137150{ 
    138151   char module[LONGNOM]; 
    139    int InstanceShouldMade; 
    140    int Instance; 
     152   int AllocShouldMade; 
     153   int Alloc; 
    141154   struct listmodule * suiv; 
    142155} listmodule;              /* list of names                                   */ 
    … …  
    185198  
    186199 
    187 typedef struct listparameters  
    188 { 
    189    char initial[LONGNOM]; 
    190    char nom[LONGNOM]; 
    191    char subroutinename[LONGNOM]; 
    192    struct listparameters * suiv; 
    193  } listparameters;         /* list of parameters                              */ 
    194  
    195 typedef struct  
    196 { 
    197    char name[LONGNOM]; 
    198    char filename[LONGNOM]; 
    199    int inclcommon; 
    200    listvar *lvar; 
    201 } common; 
    202  
    203 typedef struct listcommons 
    204 { 
    205  common *curcommon ; 
    206  struct listcommons *suiv; 
    207 } listcommons ; 
    208  
    209  
    210 typedef struct listcommonsname 
    211 { 
    212  char nom[LONGNOM] ; 
    213  listnom *subroutine; 
    214  struct listcommonsname *suiv; 
    215 } listcommonsname ; 
    216  
    217  
    218  
    219200 int fortran77;            /* = 1; the code has been writen in                */ 
    220201                           /*    fortran77 else in fortran 90                 */ 
    … …  
    226207 char commonvar[LONGNOM]; 
    227208 char commonblockname[LONGNOM]; 
    228  listdim *commondim; 
    229209 
    230210/******************************************************************************/ 
    … …  
    233213 int inagrifcallargument; 
    234214 int adduseagrifutil; 
    235  
     215 int sameagrifargument; 
    236216 int InAgrifParentDef; 
    237  
     217 char sameagrifname[LONGNOM]; 
    238218/******************************************************************************/ 
    239219/****************   *** VAR DEF Variables ***   *******************************/ 
    … …  
    245225 int PrivateDeclare;       /* Variable has been declared as PRIVATE */  
    246226 int ExternalDeclare;      /* Variable has been declared as EXTERNAL */  
    247  int PrecisionGiven;       /* A precision has been given for the variable */  
    248  int CharacterSizeGiven;   /* A size for the character has been given */  
    249227 int InitialValueGiven;    /* An initial value has been given */  
    250228 int formatdeclare; 
    251  int inttypename; 
    252229 int Allocatabledeclare; 
    253  int lengspecgiven; 
    254230 int SaveDeclare; 
    255231 int pointerdeclare; 
    … …  
    257233 int VariableIsParameter;  
    258234 int dimsgiven; 
    259  int IntentDeclare; 
    260235 int c_star; 
    261236 char DeclType[LONGNOM];  
    … …  
    277252/****************   *** CONV Variables ***   **********************************/ 
    278253/******************************************************************************/ 
    279  int coeffrafx;            /* space refinement factor in the x                */ 
    280  int coeffrafy;            /* space refinement factor in the y                */  
    281  int coeffrafz;            /* space refinement factor in the z                */ 
    282  int coeffraftx;           /* time refinement factor in the x                 */ 
    283  int coeffrafty;           /* time refinement factor in the y                 */ 
    284  int coeffraftz;           /* time refinement factor in the z                 */ 
    285  int regridding;           /* number of time steps between two regridding     */ 
    286254 int dimprob ;             /* dimension of the problem : 1 for 1D,2 for 2D,   */ 
    287255                           /*    3 for 3D                                     */ 
    288  int rafmaxx; 
    289  int rafmaxy; 
    290  int rafmaxz; 
    291  int userefficiency;       /* = 1 efficiency is given in the input            */ 
    292  int minwidth;             /* minimum width of the rectangles in the          */ 
    293                            /*    clustering algorithm                         */ 
    294256 int onlyfixedgrids;       /* = 1 if onlyfixedgrids is true                   */ 
    295257 int todebug; 
    296258 int fixedgrids;           /* = 1 if fixedgrids is true                       */ 
    297  int efficiency;           /* efficacity of the clustering algorithm          */ 
    298                            /*    (by percent)                                 */ 
    299259 char nbmaillesX[LONGNOM]; /* number of cells in the x direction              */ 
    300260 char nbmaillesY[LONGNOM]; /* number of cells in the y direction              */ 
    … …  
    304264 int IndicenbmaillesZ; 
    305265 
    306  listvar *listvartempo; 
    307  variable *variabletempo; 
    308  
    309  listdim *curdim; 
    310  variable *curvar; 
    311266 listvar *globliste; 
    312  listvar *globvarforcommon; 
    313267 listvar *globparam; 
    314268 listvar *listdatavariable; 
    … …  
    324278 listvar *functionlistvar; 
    325279 listvar *listenotgriddepend; /* List of the variables which are not grid dependent */ 
     280 listvar *listvartempo; 
     281 listvar *listduplicated; 
     282 
    326283 listvarcommon *commonlist; 
     284 
     285 listname *listimplicitnone; 
     286 
    327287 listusemodule *listofmodulebysubroutine; 
    328288 listusemodule *listofincludebysubroutine; 
    329289 listusemodule *listofmoduletmp; 
    330290 listusemodule *tmpuselocallist; 
     291 
    331292 listparameter *tmpparameterlocallist2; 
    332293 listparameter *tmpparameterlocallist; 
     294 
    333295 listmodule *listmoduleinfile; 
     296 
    334297 listnamelist *listenamelist; 
     298 
    335299 listnom *NewModuleList; 
    336300 listnom *listofmodules; 
    … …  
    338302 listnom *Listofvariableinagriffunction; 
    339303 listnom *listofsubroutinewhereagrifisused; 
     304 
    340305 listallocate *AllocateList; 
     306 
    341307 listvarpointtovar *Listofvarpointtovar;  
    342308                           /*  variables which are pointed to an other one    */ 
     309 
    343310 listindice *Listofavailableindices;  
    344311                           /* List of available indices in the tabvars table  */ 
     312 
    345313 int indeclarationvar; 
    346314 int inmodulemeet; 
    … …  
    365333 int insubroutinedeclare; 
    366334 int tmpdeclaration_everdone; 
     335 int paramdeclaration_everdone; 
     336 int inmoduledeclare; 
     337 int AllocEmpty; 
     338 int dimsempty; 
     339 int created_dimensionlist; 
     340 
    367341 char meetagrifinitgrids[LONGNOM]; 
    368342 char meetmpiinit[LONGNOM]; 
    369343 char mpiinitvar[LONGNOM]; 
    370  int paramdeclaration_everdone; 
    371  int inmoduledeclare; 
    372  int IntegerIShouldBeAdd; 
    373  int AllocEmpty; 
    374  int dimsempty; 
    375344 char *NameTamponfile; 
    376345 char toprintglob[LONGNOM]; 
    … …  
    380349 char OriginalFileName[LONGNOM]; /* Name of the parsing file*/  
    381350 char EmptyChar[LONGNOM];        /* An empty char */  
    382  char commonfile[LONGNOM]; 
    383351 char curfilename[LONGNOM]; 
    384  char commonfile_main[LONGNOM];  /* name of the common file */ 
    385352 char nomfileoutput[LONGNOM]; 
    386353 char curbuf[100*LONGNOM]; 
    … …  
    418385 long int pos_end;         /* final position of a line in file                */ 
    419386 
     387 variable *variabletempo; 
     388 variable *curvar; 
     389 
     390 listdim *curdim; 
     391 listdim *commondim; 
    420392 
    421393/******************************************************************************/ 
    … …  
    429401extern void RemoveNotgriddependFromGlobliste(); 
    430402extern int VarIsNonGridDepend(char *name); 
    431 extern void DECL_0_NonGridDepDeclaration(listvar *listtomodify); 
     403extern void NonGridDepDeclaration_0(listvar *listtomodify); 
    432404/******************************************************************************/ 
    433405/*********** WriteInFile.c ****************************************************/ 
    … …  
    436408extern void tofich (FILE * filout, char *s,int returnlineornot); 
    437409extern void tofich_blanc (FILE * filout, int size); 
    438 extern void RemoveWordCUR(FILE * filout, long int position,  
    439                                          long int sizetoremove); 
    440 extern void RemoveWordSET(FILE * filout, long int position,  
    441                                          long int sizetoremove); 
     410extern void RemoveWordCUR_0(FILE * filout, long int position,  
     411                                           long int sizetoremove); 
     412extern void RemoveWordSET_0(FILE * filout, long int position,  
     413                                           long int sizetoremove); 
    442414/******************************************************************************/ 
    443415/*********** Writedeclarations.c **********************************************/ 
    … …  
    446418extern void WriteScalarDeclaration(variable *v,char ligne[LONGLIGNE]); 
    447419extern void WriteTableDeclaration(variable * v,char ligne[LONGLIGNE],int tmpok); 
    448 extern void ModifTableDeclaration(variable * v,char ligne[LONGLIGNE]); 
    449420extern void writevardeclaration (listvar * var_record, FILE *fileout); 
    450421extern void NonGridDepDeclaration(listvar * deb_common); 
    … …  
    461432extern void CleanThelistvarofsubroutineliste(); 
    462433extern void UpdatevarofsubroutinelisteWithcommonlist(); 
    463 extern void OPTI_1_ajoutvarofsubroutine(listvar *listtoadd); 
    464 extern void COM_1_UpdatevarsubroutineWithvarofsubroutinelist(); 
     434extern void ajoutvarofsubroutine_1(listvar *listtoadd); 
     435extern void UpdatevarsubroutineWithvarofsubroutinelist_1(); 
    465436/******************************************************************************/ 
    466437/*********** toamr.c **********************************************************/ 
    … …  
    473444extern char *vargridparam (variable * v, int whichone); 
    474445extern void write_probdimagrif_file(); 
    475 extern void write_includeagrif_file(); 
    476446extern void write_keysagrif_file(); 
    477447extern void write_clusteringagrif_file(); 
    … …  
    486456                          listnom *listedesnoms, 
    487457                          FILE *alloccalls, 
    488                           FILE *instanceUSE, 
     458                          FILE *AllocUSE, 
    489459                          FILE *modulealloc, 
    490460                          int *IndiceMax); 
    … …  
    493463/*********** dependfile.c *****************************************************/ 
    494464/******************************************************************************/ 
    495 extern void Writethedependnbxnbyfile_fromgloliste(); 
    496 extern void Readthedependnbxnbyfile_fromgloliste(); 
     465extern void Writethedependnbxnbyfile(); 
     466extern void Readthedependnbxnbyfile(); 
    497467extern void Writethedependlistofmoduleused(char *NameTampon ); 
    498468extern void Readthedependlistofmoduleused(char *NameTampon); 
    … …  
    501471                                                        listparameter *listout); 
    502472extern void Writethedependfile(char *NameTampon, listvar *input ); 
    503 extern void Recordtmplocallist( char *NameTampon); 
    504 extern listvar *Recordglobalvarofusefile( char *NameTampon , listvar *listout); 
     473extern listvar *Readthedependfile( char *NameTampon , listvar *listout); 
    505474extern void Writethedependavailablefile(); 
    506475extern void Readthedependavailablefile(); 
    … …  
    509478/*********** SubLoopCreation.c ************************************************/ 
    510479/******************************************************************************/ 
    511 extern void OPTI_0_writeheadnewsubforsub(); 
    512 extern void OPTI_0_writeheadnewsubforfunc(); 
    513 extern void OPTI_0_writesubroutinedeclaration(listvar *listtomodify); 
    514 extern void  WriteVariablelist_subloop(FILE *outputfile); 
    515 extern void  WriteVariablelist_subloop_Call(FILE *outputfile); 
    516 extern void  WriteVariablelist_subloop_Def(FILE *outputfile); 
    517 extern void  WriteHeadofSubroutineLoop(); 
    518 extern void OPTI_0_closeandcallsubloopandincludeit(int suborfun,  
     480extern void writeheadnewsub_0(); 
     481extern void writesubroutinedeclaration_0(listvar *listtomodify); 
     482extern void WriteVariablelist_subloop(FILE *outputfile); 
     483extern void WriteVariablelist_subloop_Call(FILE *outputfile); 
     484extern void WriteVariablelist_subloop_Def(FILE *outputfile); 
     485extern void WriteHeadofSubroutineLoop(); 
     486extern void closeandcallsubloopandincludeit_0(int suborfun,  
    519487                                   char endsub[LONGNOM], char optname[LONGNOM]); 
    520488/******************************************************************************/ 
    … …  
    522490/******************************************************************************/ 
    523491extern void CompareNewparsingandoldone(); 
    524 extern void decl_1_ajoutevar(listvar *listtoadd); 
    525 extern void decl_1_ajoutevarsave(listvar *listtoadd); 
     492extern void ajoutevar_1(listvar *listtoadd); 
     493extern void ajoutevarsave_1(listvar *listtoadd); 
    526494extern void UpdateIndiceTabvarsofGlobliste(); 
    527495extern void UpdateIndiceTabvarsofGloblisteFromCommon(); 
    528 extern void COM_1_UpdateGloblisteWithcommonlist(); 
     496extern void UpdateGloblisteWithcommonlist_1(); 
    529497/******************************************************************************/ 
    530498/*********** WorkWithlistvarindoloop.c ****************************************/ 
    531499/******************************************************************************/ 
    532 extern void OPTI_1_cleanlistvarfordoloop(int endsuborfunc); 
    533 extern void OPTI_1_ajoutevarindoloop(char *ident); 
    534 extern void ajoutevarindoloop (char *name); 
     500extern void cleanlistvarfordoloop_1(int endsuborfunc); 
     501extern void ajoutevarindoloop_1(char *ident); 
    535502extern void ajoutevarindoloop_definedimension (char *name); 
    536503extern void CleanFromThelistvarindoloopTheAgrifSubArguments(); 
    … …  
    539506extern void CompleteThelistvarindoloop(); 
    540507/******************************************************************************/ 
    541 /*********** test.c ***********************************************************/ 
    542 /******************************************************************************/ 
    543 extern int tests_entrees(); 
    544 /******************************************************************************/ 
    545508/*********** WorkWithlistdatavariable.c ***************************************/ 
    546509/******************************************************************************/ 
    547 extern void DATA_n_CompleteDataList (char *name,char *values); 
    548 extern void DATA_1_CompleteGlobListeWithDatalist (); 
     510extern void CompleteDataList (char *name,char *values); 
     511extern void CompleteGlobListeWithDatalist_1(); 
    549512/******************************************************************************/ 
    550513/*********** UtilAgrif.c ******************************************************/ 
    551514/******************************************************************************/ 
    552 extern int AGRIF_n_Vartonumber(char *tokname); 
    553 extern int AGRIF_n_Agrif_in_Tok_NAME(char *tokname); 
    554 extern void AGRIF_1_completeListofvariableinagriffunction(char *ident); 
    555 extern void AGRIF_0_ModifyTheVariableName(char *ident); 
    556 extern void AGRIF_n_AddsubroutineTolistsubwhereagrifused(); 
    557 extern void AGRIF_n_AddUseAgrifUtil(); 
    558 extern void AGRIF_0_NotifyAgrifFunction(char *ident); 
    559 extern void AGRIF_0_ModifyTheAgrifFunction(char *ident); 
    560 extern void AGRIF_0_AgriffunctionModify(char *ident,int whichone); 
    561 extern void AGRIF_0_AddUseAgrifInModuleDeclaration(); 
     515extern void Instanciation_0(char *ident); 
     516extern int Vartonumber(char *tokname); 
     517extern int Agrif_in_Tok_NAME(char *tokname); 
     518extern void completeListofvariableinagriffunction_1(char *ident); 
     519extern void ModifyTheVariableName_0(char *ident); 
     520extern void AddsubroutineTolistsubwhereagrifused(); 
     521extern void AddUseAgrifUtil_0(); 
     522extern void NotifyAgrifFunction_0(char *ident); 
     523extern void ModifyTheAgrifFunction_0(char *ident); 
     524extern void AgriffunctionModify_0(char *ident,int whichone); 
     525extern void AddUseAgrifInModuleDeclaration_0(); 
    562526/******************************************************************************/ 
    563527/*********** WorkWithParameterlist.c ******************************************/ 
    564528/******************************************************************************/ 
    565 extern void COM_1_AddvartoParamlist(listvar *listin); 
    566 extern void COM_1_UpdateparameterlistWithlistvarindoloop(); 
     529extern void AddvartoParamlist_1(listvar *listin); 
     530extern void UpdateparameterlistWithlistvarindoloop_1(); 
    567531/******************************************************************************/ 
    568532/*********** WorkWithAllocatelist.c *******************************************/ 
    569533/******************************************************************************/ 
    570 extern void OPTI_1_AddIdentToTheAllocateList(char *nom); 
    571 extern int OPTI_0_IsAllocateInThisSubroutine(); 
    572 extern int OPTI_0_IsVarAllocatable(char *ident); 
    573 extern int OPTI_0_varisallocatable(char *ident); 
     534extern void AddIdentToTheAllocateList_1(char *nom); 
     535extern int IsAllocateInThisSubroutine_0(); 
     536extern int IsVarAllocatable_0(char *ident); 
     537extern int varisallocatable_0(char *ident); 
    574538/******************************************************************************/ 
    575539/*********** UtilCharacter.c **************************************************/ 
    … …  
    579543extern char *ChangeTheInitalvaluebyTabvarsName(char *nom,listvar *listtoread, 
    580544                                                                  int whichone); 
     545extern int IsVariableReal(char *nom); 
    581546extern void IsVarInUseFile(char *nom); 
    582547extern listnom *DecomposeTheNameinlistnom(char *nom, listnom * listout); 
    … …  
    589554extern void CreateAndFillin_Curvar(char *type,char *tokname, 
    590555                                                listdim *dims,variable *curvar); 
    591 extern listvar *duplicatelistvar(listvar * orig); 
     556extern void duplicatelistvar(listvar * orig); 
    592557extern listdim *insertdim(listdim *lin,typedim nom); 
    593 extern listdim *reverse(listdim *lin); 
    594558extern void change_dim_char(listdim *lin,listvar * l); 
    595559extern int num_dims(listdim *d); 
    … …  
    604568extern long int setposcur(); 
    605569extern long int setposcurinoldfortranout(); 
    606 extern void decl_0_modifdeclarationssave(listvar *listtomodify); 
    607 extern void OPTI_0_copyuse(char *namemodule); 
    608 extern void OPTI_0_copyuseonly(char *namemodule); 
     570extern void copyuse_0(char *namemodule); 
     571extern void copyuseonly_0(char *namemodule); 
    609572/******************************************************************************/ 
    610573/*********** WorkWithlistofmodulebysubroutine.c *******************************/ 
    611574/******************************************************************************/ 
    612575extern void RecordUseModulesVariables(); 
    613 extern void  RecordUseModulesUseModulesVariables(); 
     576extern void RecordUseModulesUseModulesVariables(); 
     577extern void Addmoduletothelist_1(char *name); 
    614578extern void Addmoduletothelist(char *name); 
    615579extern void WriteUsemoduleDeclaration(); 
    … …  
    617581/*********** WorkWithlistmoduleinfile.c ***************************************/ 
    618582/******************************************************************************/ 
    619 extern void MOD_1_FillInlistmodule(); 
    620 extern void MOD_1_InstanceShouldMadeTo0InModule(); 
    621 extern void MOD_1_InstanceShouldMadeTo1InModule(); 
    622 extern void MOD_1_InstanceTo1InModule(); 
    623 extern int MOD_n_InstanceShouldMadeInModule(); 
    624 extern int MOD_n_InstanceInModule(); 
     583extern void FillInlistmodule_1(); 
     584extern void AllocShouldMadeTo0InModule_1(); 
     585extern void AllocShouldMadeTo1InModule_1(); 
     586extern void AllocTo1InModule_1(); 
     587extern int AllocShouldMadeInModule(); 
     588extern int AllocInModule(); 
    625589/******************************************************************************/ 
    626590/*********** UtilFortran.c ****************************************************/ 
    … …  
    629593extern int Variableshouldberemove(char *nom); 
    630594extern int variableisglobal(listvar *curvar, listvar *listin); 
     595extern void variableisglobalinmodule(listcouple *listin, char *module,  
     596                                                                 FILE *fileout); 
    631597extern int variableisparameterglobal(listvar *curvar, listparameter *listin); 
    632 extern void addi_0_addsubroutine_inst_back_alloc(int moduleorcontains); 
    633 extern int OPTI_0_IsTabvarsUseInArgument(); 
     598extern void addsubroutine_alloc_0(int moduleorcontains); 
     599extern int IsTabvarsUseInArgument_0(); 
    634600extern int ImplicitNoneInSubroutine(); 
    635 extern int OPTI_0_varispointer(char *ident); 
     601extern int varispointer_0(char *ident); 
     602extern int VariableIsNotFunction(char *ident); 
    636603/******************************************************************************/ 
    637604/*********** DiversListe.c ****************************************************/ 
    638605/******************************************************************************/ 
    639 extern void COM_1_AddCommonvartolist(); 
     606extern void Addtolistvarcommon(); 
    640607extern listnom *Addtolistnom(char *nom, listnom *listin); 
    641 extern listname *Add_listname(char *nom,listname *input); 
    642 extern void Add_ModuleTo_listofmodules(char *nom); 
     608extern listname *Addtolistname(char *nom,listname *input); 
    643609extern int ModuleIsDefineInInputFile(char *name); 
    644 extern void AddNameToListNamelist(char * name); 
     610extern void AddNameToListNamelist_1(char * name); 
    645611extern void Addmoduletothelisttmp(char *name); 
    646 extern void Add_ModuleTo_Modulelist(char *nom); 
    647 extern void OPTI_1_completelistvarpointtovar(char *namemodule, 
     612extern void Add_ModuleTo_Modulelist_1(char *nom); 
     613extern void completelistvarpointtovar_1(char *namemodule, 
    648614                                                            listcouple *couple); 
    649 extern void Addincludetothelist(char *name); 
     615extern void Addincludetothelist_1(char *name); 
    650616extern void WriteIncludeDeclaration(); 
    651617/******************************************************************************/ 
Note: See TracChangeset for help on using the changeset viewer.