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 663 for trunk/AGRIF/LIB/dependfile.c – NEMO

Ignore:
Timestamp:
2007-05-25T18:00:33+02:00 (17 years ago)
Author:
opalod
Message:

RB: update CONV

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/AGRIF/LIB/dependfile.c

    r530 r663  
    33/*     CONV (converter) for Agrif (Adaptive Grid Refinement In Fortran)       */ 
    44/*                                                                            */ 
    5 /* Copyright or © or Copr. Laurent Debreu (Laurent.Debreu@imag.fr)            */ 
    6 /*                        Cyril Mazauric (Cyril.Mazauric@imag.fr)             */ 
     5/* Copyright or   or Copr. Laurent Debreu (Laurent.Debreu@imag.fr)            */ 
     6/*                        Cyril Mazauric (Cyril_Mazauric@yahoo.fr)            */ 
    77/* This software is governed by the CeCILL-C license under French law and     */ 
    88/* abiding by the rules of distribution of free software.  You can  use,      */ 
    … …  
    3131/* knowledge of the CeCILL-C license and that you accept its terms.           */ 
    3232/******************************************************************************/ 
    33 /* version 1.0                                                                */ 
     33/* version 1.6                                                                */ 
    3434/******************************************************************************/ 
    3535#include <stdio.h> 
    … …  
    7373  listvar *parcours; 
    7474  int out; 
    75     
     75 
    7676  /* We are looking for all the variable of the current filetoparse file      */ 
    77   /*    in the globliste                                                      */ 
    78   parcours =globliste; 
     77  /*    in the List_Global_Var                                                */ 
     78  parcours =List_Global_Var; 
    7979  out = 0; 
    8080  while (parcours && out == 0 ) 
    8181  { 
    82      if ( !strcasecmp(parcours->var->nomvar,nbmaillesX) ) out = 1; 
     82     if ( !strcasecmp(parcours->var->v_nomvar,nbmaillesX) ) out = 1; 
    8383     else parcours = parcours->suiv; 
    8484  } 
    85   if ( out == 1 )  
     85  if ( out == 0 ) 
     86  { 
     87     parcours =List_Common_Var; 
     88     while (parcours && out == 0 ) 
     89     { 
     90        if ( !strcasecmp(parcours->var->v_nomvar,nbmaillesX) ) out = 1; 
     91        else parcours = parcours->suiv; 
     92     } 
     93  } 
     94  if ( out == 1 ) 
    8695  { 
    8796     dependfileoutput = fopen(".dependnbxnby","w"); 
    88      fprintf(dependfileoutput,"%d\n",parcours->var->indicetabvars); 
    89      IndicenbmaillesX = parcours->var->indicetabvars; 
     97     fprintf(dependfileoutput,"%d\n",parcours->var->v_indicetabvars); 
     98     IndicenbmaillesX = parcours->var->v_indicetabvars; 
    9099 
    91100     if ( dimprob > 1 ) 
    92101     { 
    93         parcours =globliste; 
     102        parcours =List_Global_Var; 
    94103        out = 0; 
    95104        while (parcours && out == 0 ) 
    96105        { 
    97            if ( !strcasecmp(parcours->var->nomvar,nbmaillesY) ) out = 1; 
     106           if ( !strcasecmp(parcours->var->v_nomvar,nbmaillesY) ) out = 1; 
    98107           else parcours = parcours->suiv; 
    99108        } 
    100         if ( out == 1 )  
    101         { 
    102            fprintf(dependfileoutput,"%d\n",parcours->var->indicetabvars); 
    103            IndicenbmaillesY = parcours->var->indicetabvars; 
     109        if ( out == 0 ) 
     110        { 
     111           parcours =List_Common_Var; 
     112           while (parcours && out == 0 ) 
     113           { 
     114              if ( !strcasecmp(parcours->var->v_nomvar,nbmaillesY) ) out = 1; 
     115              else parcours = parcours->suiv; 
     116           } 
     117        } 
     118        if ( out == 1 ) 
     119        { 
     120           fprintf(dependfileoutput,"%d\n",parcours->var->v_indicetabvars); 
     121           IndicenbmaillesY = parcours->var->v_indicetabvars; 
    104122        } 
    105123     } 
    … …  
    107125     if ( dimprob > 2 ) 
    108126     { 
    109         parcours =globliste; 
     127        parcours =List_Global_Var; 
    110128        out = 0; 
    111129        while (parcours && out == 0 ) 
    112130        { 
    113            if ( !strcasecmp(parcours->var->nomvar,nbmaillesZ) ) out = 1; 
     131           if ( !strcasecmp(parcours->var->v_nomvar,nbmaillesZ) ) out = 1; 
    114132           else parcours = parcours->suiv; 
    115133        } 
    116         if ( out == 1 )  
    117         { 
    118            fprintf(dependfileoutput,"%d\n",parcours->var->indicetabvars); 
    119            IndicenbmaillesZ = parcours->var->indicetabvars; 
     134        if ( out == 0 ) 
     135        { 
     136           parcours =List_Common_Var; 
     137           while (parcours && out == 0 ) 
     138           { 
     139              if ( !strcasecmp(parcours->var->v_nomvar,nbmaillesZ) ) out = 1; 
     140              else parcours = parcours->suiv; 
     141           } 
     142        } 
     143        if ( out == 1 ) 
     144        { 
     145           fprintf(dependfileoutput,"%d\n",parcours->var->v_indicetabvars); 
     146           IndicenbmaillesZ = parcours->var->v_indicetabvars; 
    120147        } 
    121148     } 
    … …  
    141168{ 
    142169  FILE *dependfileoutput; 
    143     
    144   if ((dependfileoutput = fopen(".dependnbxnby","r"))!=NULL)  
     170 
     171  if ((dependfileoutput = fopen(".dependnbxnby","r"))!=NULL) 
    145172  { 
    146173     fscanf(dependfileoutput,"%d\n",&IndicenbmaillesX); 
    … …  
    168195  listusemodule *parcours; 
    169196  char ligne[LONGNOM]; 
    170     
    171   if ( listofmodulebysubroutine ) 
    172   { 
     197 
     198 
     199  if ( List_NameOfModuleUsed ) 
     200  { 
     201     convert2lower(NameTampon); 
    173202     sprintf(ligne,".dependuse%s",NameTampon); 
    174203     dependfileoutput = fopen(ligne,"w"); 
    175      /* We are looking for all the variable of the current filetoparse file   */ 
    176      /*    in the globliste                                                   */ 
    177      parcours = listofmodulebysubroutine; 
     204     /*                                                                       */ 
     205     parcours = List_NameOfModuleUsed; 
    178206     while (parcours) 
    179207     { 
    180         fprintf(dependfileoutput,"%s\n",parcours->usemodule); 
     208        if ( !strcasecmp(NameTampon,parcours->u_modulename) && 
     209             !strcasecmp(parcours->u_cursubroutine,"") 
     210           ) 
     211        { 
     212           /* We are looking for all the variable of the current              */ 
     213           /*    filetoparse file in the List_Global_Var                      */ 
     214           fprintf(dependfileoutput,"%s\n",parcours->u_usemodule); 
     215        } 
    181216        parcours = parcours->suiv; 
    182217     } 
    … …  
    203238  char ligne[LONGNOM]; 
    204239 
     240  convert2lower(NameTampon); 
    205241  sprintf(ligne,".dependuse%s",NameTampon); 
    206    
     242 
    207243  tmpuselocallist = (listusemodule *)NULL; 
    208   if ((dependfileoutput = fopen(ligne,"r"))==NULL)  
     244  if ((dependfileoutput = fopen(ligne,"r"))==NULL) 
    209245  { 
    210246  } 
    … …  
    215251      { 
    216252         parcours=(listusemodule *)malloc(sizeof(listusemodule)); 
    217          fscanf(dependfileoutput,"%s\n",parcours->usemodule); 
     253         fscanf(dependfileoutput,"%s\n",parcours->u_usemodule); 
    218254 
    219255         parcours->suiv = tmpuselocallist; 
    … …  
    244280  listvar *parcours; 
    245281  char ligne[LONGNOM]; 
    246     
    247   if ( globparam ) 
    248   { 
    249   sprintf(ligne,".dependparameter%s",NameTampon); 
    250   dependfileoutput = fopen(ligne,"w"); 
    251  
    252   parcours =globparam; 
    253   while (parcours) 
    254   { 
    255      fprintf(dependfileoutput,"%s\n",parcours->var->nomvar); 
    256      fprintf(dependfileoutput,"%s\n",parcours->var->modulename); 
    257      parcours = parcours->suiv; 
    258   } 
    259   fclose(dependfileoutput); 
     282 
     283  if ( List_GlobalParameter_Var ) 
     284  { 
     285     convert2lower(NameTampon); 
     286     sprintf(ligne,".dependparameter%s",NameTampon); 
     287     dependfileoutput = fopen(ligne,"w"); 
     288     /*                                                                       */ 
     289     parcours = List_GlobalParameter_Var; 
     290     while (parcours) 
     291     { 
     292        if ( !strcasecmp(NameTampon,parcours->var->v_modulename) ) 
     293        { 
     294           fprintf(dependfileoutput,"%s\n",parcours->var->v_nomvar); 
     295           fprintf(dependfileoutput,"%s\n",parcours->var->v_modulename); 
     296        } 
     297        parcours = parcours->suiv; 
     298     } 
     299     fclose(dependfileoutput); 
    260300  } 
    261301} 
    … …  
    280320  char ligne[LONGNOM]; 
    281321 
     322  convert2lower(NameTampon); 
    282323  sprintf(ligne,".dependparameter%s",NameTampon); 
    283324 
    284   if ((dependfileoutput = fopen(ligne,"r"))==NULL)  
     325  if ((dependfileoutput = fopen(ligne,"r"))==NULL) 
    285326  { 
    286327  } 
    … …  
    291332      { 
    292333         parcours=(listparameter *)malloc(sizeof(listparameter)); 
    293          fscanf(dependfileoutput,"%s\n",parcours->name); 
    294          fscanf(dependfileoutput,"%s\n",parcours->modulename); 
     334         fscanf(dependfileoutput,"%s\n",parcours->p_name); 
     335         fscanf(dependfileoutput,"%s\n",parcours->p_modulename); 
    295336 
    296337         parcours->suiv = listout; 
    … …  
    333374  char curname[LONGNOM]; 
    334375  int out; 
    335     
     376 
    336377  if ( input ) 
    337378  { 
     379  convert2lower(NameTampon); 
     380 
    338381  sprintf(ligne,".depend%s",NameTampon); 
    339382  dependfileoutput = fopen(ligne,"w"); 
    … …  
    345388  while (parcours && out == 0 ) 
    346389  { 
    347      if ( !strcasecmp(parcours->var->modulename,NameTampon) || 
    348           !strcasecmp(parcours->var->commonname,NameTampon) ) 
     390     if ( !strcasecmp(parcours->var->v_modulename,NameTampon) || 
     391          !strcasecmp(parcours->var->v_commonname,NameTampon) ) 
    349392     { 
    350393        /*                                                                    */ 
    351         if (  strcasecmp(curname,"") &&  
    352              !strcasecmp(curname,parcours->var->nomvar) ) out = 1 ; 
    353         if ( !strcasecmp(curname,"") ) strcpy(curname,parcours->var->nomvar); 
     394        if (  strcasecmp(curname,"") && 
     395             !strcasecmp(curname,parcours->var->v_nomvar) ) out = 1 ; 
     396        if ( !strcasecmp(curname,"") ) strcpy(curname,parcours->var->v_nomvar); 
    354397        /*                                                                    */ 
    355398        if ( out == 0 ) 
    356399        { 
    357            fprintf(dependfileoutput,"%s\n",parcours->var->typevar); 
    358            fprintf(dependfileoutput,"%s\n",parcours->var->nomvar); 
    359            if ( strcasecmp(parcours->var->dimchar,"") ) 
    360            { 
    361               fprintf(dependfileoutput,"%s\n",parcours->var->dimchar); 
     400           /********** TYPEVAR ************************************************/ 
     401           fprintf(dependfileoutput,"%s\n",parcours->var->v_typevar); 
     402           /********** NOMVAR *************************************************/ 
     403           fprintf(dependfileoutput,"%s\n",parcours->var->v_nomvar); 
     404           /********** DIMCHAR ************************************************/ 
     405           if ( strcasecmp(parcours->var->v_dimchar,"") ) 
     406           { 
     407              fprintf(dependfileoutput,"%s\n",parcours->var->v_dimchar); 
    362408           } 
    363409           else 
    … …  
    365411              fprintf(dependfileoutput,"T\n"); 
    366412           } 
    367            if ( strcasecmp(parcours->var->commoninfile,"") ) 
    368            { 
    369               fprintf(dependfileoutput,"%s\n",parcours->var->commoninfile); 
     413           /********** COMMONINFILE *******************************************/ 
     414           if ( strcasecmp(parcours->var->v_commoninfile,"") ) 
     415           { 
     416              fprintf(dependfileoutput,"%s\n",parcours->var->v_commoninfile); 
    370417           } 
    371418           else 
    … …  
    373420              fprintf(dependfileoutput,"T\n"); 
    374421           } 
    375            if ( strcasecmp(parcours->var->commonname,"") ) 
    376            { 
    377               fprintf(dependfileoutput,"%s\n",parcours->var->commonname); 
     422           /********** COMMONNAME *********************************************/ 
     423           if ( strcasecmp(parcours->var->v_commonname,"") ) 
     424           { 
     425              fprintf(dependfileoutput,"%s\n",parcours->var->v_commonname); 
    378426           } 
    379427           else 
    … …  
    381429              fprintf(dependfileoutput,"T\n"); 
    382430           } 
    383            fprintf(dependfileoutput,"%d\n",parcours->var->nbdim); 
    384            fprintf(dependfileoutput,"%d\n",parcours->var->dimensiongiven); 
    385            fprintf(dependfileoutput,"%d\n",parcours->var->typegiven); 
    386            fprintf(dependfileoutput,"%d\n",parcours->var->allocatable); 
    387            fprintf(dependfileoutput,"%d\n",parcours->var->pointerdeclare); 
    388            if ( strcasecmp(parcours->var->precision,"") ) 
    389            { 
    390               fprintf(dependfileoutput,"%s\n",parcours->var->precision);  
     431           /********** NBDIM **************************************************/ 
     432/*           fprintf(dependfileoutput,"%d\n",parcours->var->v_nbdim);*/ 
     433           /********** DIMENSIONGIVEN *****************************************/ 
     434/*           fprintf(dependfileoutput,"%d\n",parcours->var->v_dimensiongiven);*/ 
     435           /********** ALLOCATABLE ********************************************/ 
     436           fprintf(dependfileoutput,"%d\n",parcours->var->v_allocatable); 
     437           /********** POINTERDECLARE *****************************************/ 
     438           fprintf(dependfileoutput,"%d\n",parcours->var->v_pointerdeclare); 
     439           /********** PRECISION **********************************************/ 
     440           if ( strcasecmp(parcours->var->v_precision,"") ) 
     441           { 
     442              fprintf(dependfileoutput,"%s\n",parcours->var->v_precision); 
    391443           } 
    392444           else 
    … …  
    394446              fprintf(dependfileoutput,"T\n"); 
    395447           } 
    396            if ( strcasecmp(parcours->var->initialvalue,"") ) 
    397            { 
    398               fprintf(dependfileoutput,"%s\n",parcours->var->initialvalue);  
     448           /********** INITIALVALUE *******************************************/ 
     449/*           if ( strcasecmp(parcours->var->v_initialvalue,"") ) 
     450           { 
     451              fprintf(dependfileoutput,"%s\n",parcours->var->v_initialvalue); 
    399452           } 
    400453           else 
    401454           { 
    402455              fprintf(dependfileoutput,"T\n"); 
    403            } 
    404            fprintf(dependfileoutput,"%d\n",parcours->var->indicetabvars); 
    405            if ( parcours->var->dimensiongiven == 1 ) 
    406            { 
    407               dims = parcours->var->dimension; 
     456           }*/ 
     457           /********** NAMEINTYPENAME *****************************************/ 
     458           if ( strcasecmp(parcours->var->v_nameinttypename,"") ) 
     459           { 
     460              fprintf(dependfileoutput,"%s\n",parcours->var->v_nameinttypename); 
     461           } 
     462           else 
     463           { 
     464              fprintf(dependfileoutput,"T\n"); 
     465           } 
     466           /********** INDICETABVARS ******************************************/ 
     467           fprintf(dependfileoutput,"%d\n",parcours->var->v_indicetabvars); 
     468           /********** READEDLISTDIMENSION ************************************/ 
     469           if ( parcours->var->v_dimensiongiven == 1 ) 
     470           { 
     471              dims = parcours->var->v_dimension; 
    408472              strcpy(listdimension,""); 
    409473              while (dims) 
    … …  
    413477                 if ( dims->suiv ) 
    414478                 { 
    415                     strcat(listdimension,",");      
     479                    strcat(listdimension,","); 
    416480                 } 
    417481                 dims = dims->suiv; 
    418482              } 
    419               fprintf(dependfileoutput,"%s\n",listdimension);     
     483              fprintf(dependfileoutput,"%s\n",listdimension); 
    420484           } 
    421485           else 
    … …  
    423487              fprintf(dependfileoutput,"T\n"); 
    424488           } 
     489           /*******************************************************************/ 
    425490           fprintf(dependfileoutput,"------------------------\n"); 
    426491        } 
    … …  
    439504/******************************************************************************/ 
    440505/*                                                                            */ 
    441 /*           .dependmodule -------->  globalvarofusefile = list of var        */ 
     506/*           .dependmodule -------->                      = list of var       */ 
    442507/*                                                                            */ 
    443508/*        not.dependmodule -------->                                          */ 
    … …  
    452517  listvar *parcoursprec; 
    453518  char nothing[LONGNOM]; 
     519  int i; 
    454520 
    455521  parcoursprec = (listvar *)NULL; 
    456   /* we should free the listvar globalvarofusefile                            */ 
     522 
     523  convert2lower(NameTampon); 
    457524  sprintf(ligne,".depend%s",NameTampon); 
    458   if ((dependfileoutput = fopen(ligne,"r"))==NULL)  
     525  if ((dependfileoutput = fopen(ligne,"r"))==NULL) 
    459526  { 
    460527    /* if the file doesn't exist it means that it is the first time           */ 
    … …  
    468535         parcours=(listvar *)malloc(sizeof(listvar)); 
    469536         parcours->var=(variable *)malloc(sizeof(variable)); 
    470          fscanf(dependfileoutput,"%s\n",parcours->var->typevar); 
    471          fscanf(dependfileoutput,"%s\n",parcours->var->nomvar); 
    472          fscanf(dependfileoutput,"%s\n",parcours->var->dimchar); 
    473          if ( !strcasecmp(parcours->var->dimchar,"T") ) 
    474          {  
    475             strcpy(parcours->var->dimchar,""); 
    476          } 
    477          fscanf(dependfileoutput,"%s\n",parcours->var->commoninfile); 
    478          if ( !strcasecmp(parcours->var->commoninfile,"T") ) 
    479          {  
    480             strcpy(parcours->var->commoninfile,""); 
    481          } 
    482          fscanf(dependfileoutput,"%s\n",parcours->var->commonname); 
    483          if ( !strcasecmp(parcours->var->commonname,"T") ) 
    484          {  
    485             strcpy(parcours->var->commonname,""); 
    486          } 
    487          fscanf(dependfileoutput,"%d\n",&parcours->var->nbdim); 
    488          fscanf(dependfileoutput,"%d\n",&parcours->var->dimensiongiven); 
    489          fscanf(dependfileoutput,"%d\n",&parcours->var->typegiven); 
    490          fscanf(dependfileoutput,"%d\n",&parcours->var->allocatable); 
    491          fscanf(dependfileoutput,"%d\n",&parcours->var->pointerdeclare); 
    492          fscanf(dependfileoutput,"%[^\n] \n",parcours->var->precision); 
    493          if ( !strcasecmp(parcours->var->precision,"T") ) 
    494          { 
    495             strcpy(parcours->var->precision,""); 
    496          } 
    497          fscanf(dependfileoutput,"%[^\n] \n",parcours->var->initialvalue); 
    498          if ( !strcasecmp(parcours->var->initialvalue,"T") ) 
    499          { 
    500             strcpy(parcours->var->initialvalue,""); 
    501          } 
    502          fscanf(dependfileoutput,"%d\n",&parcours->var->indicetabvars); 
    503          fscanf(dependfileoutput,"%s\n",parcours->var->readedlistdimension); 
    504          if ( !strcasecmp(parcours->var->readedlistdimension,"T") ) 
    505          { 
    506             strcpy(parcours->var->readedlistdimension,""); 
    507          } 
     537         /*                                                                   */ 
     538         Init_Variable(parcours->var); 
     539         /*                                                                   */ 
     540           /********** TYPEVAR ************************************************/ 
     541         fscanf(dependfileoutput,"%s\n",parcours->var->v_typevar); 
     542           /********** NOMVAR *************************************************/ 
     543         fscanf(dependfileoutput,"%s\n",parcours->var->v_nomvar); 
     544           /********** DIMCHAR ************************************************/ 
     545         fscanf(dependfileoutput,"%s\n",parcours->var->v_dimchar); 
     546         if ( !strcasecmp(parcours->var->v_dimchar,"T") ) 
     547         { 
     548            strcpy(parcours->var->v_dimchar,""); 
     549         } 
     550           /********** COMMONINFILE *******************************************/ 
     551         fscanf(dependfileoutput,"%s\n",parcours->var->v_commoninfile); 
     552         if ( !strcasecmp(parcours->var->v_commoninfile,"T") ) 
     553         { 
     554            strcpy(parcours->var->v_commoninfile,""); 
     555         } 
     556           /********** COMMONNAME *********************************************/ 
     557         fscanf(dependfileoutput,"%s\n",parcours->var->v_commonname); 
     558         if ( !strcasecmp(parcours->var->v_commonname,"T") ) 
     559         { 
     560            strcpy(parcours->var->v_commonname,""); 
     561         } 
     562           /********** NBDIM **************************************************/ 
     563/*         fscanf(dependfileoutput,"%d\n",&parcours->var->v_nbdim);*/ 
     564           /********** DIMENSIONGIVEN *****************************************/ 
     565/*         fscanf(dependfileoutput,"%d\n",&parcours->var->v_dimensiongiven);*/ 
     566           /********** ALLOCATABLE ********************************************/ 
     567         fscanf(dependfileoutput,"%d\n",&parcours->var->v_allocatable); 
     568         if ( parcours->var->v_allocatable == 1 ) 
     569         { 
     570            Add_Allocate_Var_1(parcours->var->v_nomvar, 
     571                               parcours->var->v_commonname); 
     572         } 
     573           /********** POINTERDECLARE *****************************************/ 
     574         fscanf(dependfileoutput,"%d\n",&parcours->var->v_pointerdeclare); 
     575         if ( parcours->var->v_pointerdeclare == 1 ) 
     576         { 
     577            Add_Pointer_Var_1(parcours->var->v_nomvar); 
     578         } 
     579           /********** PRECISION **********************************************/ 
     580         fscanf(dependfileoutput,"%[^\n] \n",parcours->var->v_precision); 
     581         if ( !strcasecmp(parcours->var->v_precision,"T") ) 
     582         { 
     583            strcpy(parcours->var->v_precision,""); 
     584         } 
     585           /********** INITIALVALUE *******************************************/ 
     586/*         fscanf(dependfileoutput,"%[^\n] \n",parcours->var->v_initialvalue); 
     587         if ( !strcasecmp(parcours->var->v_initialvalue,"T") ) 
     588         { 
     589            strcpy(parcours->var->v_initialvalue,""); 
     590         }*/ 
     591           /********** NAMEINTYPENAME *****************************************/ 
     592         fscanf(dependfileoutput,"%[^\n] \n",parcours->var->v_nameinttypename); 
     593         if ( !strcasecmp(parcours->var->v_nameinttypename,"T") ) 
     594         { 
     595            strcpy(parcours->var->v_nameinttypename,""); 
     596         } 
     597           /********** INDICETABVARS ******************************************/ 
     598         fscanf(dependfileoutput,"%d\n",&parcours->var->v_indicetabvars); 
     599           /********** READEDLISTDIMENSION ************************************/ 
     600         fscanf(dependfileoutput,"%s\n",parcours->var->v_readedlistdimension); 
     601         if ( !strcasecmp(parcours->var->v_readedlistdimension,"T") ) 
     602         { 
     603            strcpy(parcours->var->v_readedlistdimension,""); 
     604         } 
     605         else 
     606         { 
     607            parcours->var->v_dimensiongiven = 1; 
     608            parcours->var->v_nbdim = 1; 
     609            i = 1; 
     610            /*                                                                */ 
     611            while ( i < strlen(parcours->var->v_readedlistdimension) ) 
     612            { 
     613               if ( parcours->var->v_readedlistdimension[i] == ',' ) 
     614               { 
     615                  parcours->var->v_nbdim = parcours->var->v_nbdim + 1 ; 
     616               } 
     617               /*                                                             */ 
     618               i=i+1; 
     619            } 
     620         } 
     621           /*******************************************************************/ 
    508622         fscanf(dependfileoutput,"%s\n",nothing); 
    509          parcours->suiv = NULL;  
     623         parcours->suiv = NULL; 
    510624         if ( !listout ) 
    511          {  
     625         { 
    512626            listout = parcours; 
    513627            parcoursprec = parcours; 
    … …  
    535649} 
    536650 
     651void Write_Subroutine_For_Alloc() 
     652{ 
     653   FILE *dependfileoutput; 
     654   listnom *parcours; 
     655 
     656   if ( List_Subroutine_For_Alloc ) 
     657   { 
     658      if ((dependfileoutput=fopen(".dependAllocAgrif","w"))!=NULL) 
     659      { 
     660         parcours = List_Subroutine_For_Alloc; 
     661         while (parcours) 
     662         { 
     663            fprintf(dependfileoutput,"%s\n",parcours->o_nom); 
     664            parcours = parcours->suiv; 
     665         } 
     666         fclose(dependfileoutput); 
     667      } 
     668   } 
     669} 
     670 
     671void Read_Subroutine_For_Alloc() 
     672{ 
     673  FILE *dependfileoutput; 
     674  listnom *parcours; 
     675  listnom *ref; 
     676 
     677  if ((dependfileoutput=fopen(".dependAllocAgrif","r"))!=NULL) 
     678  { 
     679     List_Subroutine_For_Alloc = (listnom *)NULL; 
     680     while (!feof(dependfileoutput)) 
     681     { 
     682        parcours=(listnom *)malloc(sizeof(listnom)); 
     683        fscanf(dependfileoutput,"%s\n",&parcours->o_nom); 
     684        parcours->suiv = NULL; 
     685 
     686        if ( !List_Subroutine_For_Alloc ) 
     687        { 
     688           List_Subroutine_For_Alloc = parcours; 
     689           ref = parcours; 
     690        } 
     691        else 
     692        { 
     693            ref->suiv = parcours; 
     694            ref = parcours; 
     695        } 
     696     } 
     697     fclose(dependfileoutput); 
     698  } 
     699} 
     700 
    537701/******************************************************************************/ 
    538702/*                        Writethedependavailablefile                         */ 
    … …  
    556720  listindice *parcours; 
    557721 
    558   if ( Listofavailableindices ) 
    559   { 
    560   if ((dependfileoutput=fopen(".dependavailable","w"))!=NULL)  
     722  if ((dependfileoutput=fopen(".dependavailable","w"))!=NULL) 
    561723  { 
    562724     /* We are looking for all the indices of the Listofavailableindices      */ 
    … …  
    564726     while (parcours) 
    565727     { 
    566         if ( parcours->indice != 0 ) 
    567         { 
    568            fprintf(dependfileoutput,"%d\n",parcours->indice); 
     728        if ( parcours->i_indice != 0 ) 
     729        { 
     730           fprintf(dependfileoutput,"%d\n",parcours->i_indice); 
    569731        } 
    570732        parcours = parcours->suiv; 
    571733     } 
    572734     fclose(dependfileoutput); 
    573   } 
    574735  } 
    575736} 
    … …  
    596757  listindice *parcours; 
    597758 
    598   if ((dependfileoutput=fopen(".dependavailable","r"))!=NULL)  
     759  if ((dependfileoutput=fopen(".dependavailable","r"))!=NULL) 
    599760  { 
    600761     /* We are looking for all the indices of the Listofavailableindices      */ 
    … …  
    603764     { 
    604765        parcours=(listindice *)malloc(sizeof(listindice)); 
    605         fscanf(dependfileoutput,"%d\n",&parcours->indice); 
    606         if ( parcours->indice != 0 && parcours->indice < 10000000 ) 
     766        fscanf(dependfileoutput,"%d\n",&parcours->i_indice); 
     767        if ( parcours->i_indice != 0 && parcours->i_indice < 10000000 ) 
    607768        { 
    608769           parcours -> suiv = Listofavailableindices; 
    … …  
    633794  int out; 
    634795 
     796  convert2lower(NameTampon); 
    635797  sprintf(ligne,".depend%s",NameTampon); 
    636   if ((dependfileoutput = fopen(ligne,"r"))==NULL)  
     798  if ((dependfileoutput = fopen(ligne,"r"))==NULL) 
    637799  { 
    638800      out = 0; 
    … …  
    645807  return out; 
    646808} 
     809 
     810 
     811/******************************************************************************/ 
     812/*                      Did_module_common_treaded                             */ 
     813/******************************************************************************/ 
     814/* This subroutine is used to know if the .depend<NameTampon> exist           */ 
     815/*    it means if the file has been ever parsed                               */ 
     816/******************************************************************************/ 
     817/*                                                                            */ 
     818/******************************************************************************/ 
     819int Did_module_common_treaded(char *NameTampon) 
     820{ 
     821  FILE *dependfileoutput; 
     822  char ligne[LONGNOM]; 
     823  int out; 
     824 
     825  convert2lower(NameTampon); 
     826  sprintf(ligne,".depend%s",NameTampon); 
     827  if ((dependfileoutput = fopen(ligne,"r"))==NULL) 
     828  { 
     829      out = 0; 
     830  } 
     831  else 
     832  { 
     833      out = 1; 
     834      fclose(dependfileoutput); 
     835  } 
     836  return out; 
     837} 
Note: See TracChangeset for help on using the changeset viewer.