Changeset 663 for trunk/AGRIF/LIB/WorkWithAllocatelist.c

Timestamp:

2007-05-25T18:00:33+02:00 (17 years ago)

Author:

opalod

Message:

RB: update CONV

File:

• trunk/AGRIF/LIB/WorkWithAllocatelist.c (modified) (9 diffs)

trunk/AGRIF/LIB/WorkWithAllocatelist.c

@@ -3 +3 @@
 /*     CONV (converter) for Agrif (Adaptive Grid Refinement In Fortran)       */
 /*                                                                            */
-/* Copyright or © or Copr. Laurent Debreu (Laurent.Debreu@imag.fr)            */
-/*                        Cyril Mazauric (Cyril.Mazauric@imag.fr)             */
+/* Copyright or   or Copr. Laurent Debreu (Laurent.Debreu@imag.fr)            */
+/*                        Cyril Mazauric (Cyril_Mazauric@yahoo.fr)            */
 /* This software is governed by the CeCILL-C license under French law and     */
 /* abiding by the rules of distribution of free software.  You can  use,      */
@@ -31 +31 @@
 /* knowledge of the CeCILL-C license and that you accept its terms.           */
 /******************************************************************************/
-/* version 1.0                                                                */
+/* version 1.6                                                                */
 /******************************************************************************/
 #include <stdio.h>
@@ -38 +38 @@
 #include "decl.h"
 
-
 /******************************************************************************/
-/*                            AddIdentToTheAllocateList_1                     */
+/*                               Add_Allocate_Var_1                           */
 /******************************************************************************/
 /* Firstpass 1                                                                */
@@ -46 +45 @@
 /*                                                                            */
 /******************************************************************************/
-void AddIdentToTheAllocateList_1(char *nom)
+void Add_Allocate_Var_1(char *nom,char *nommodule)
 {
    listallocate *newvar;
@@ -52 +51 @@
    int out;
 
-   if ( firstpass == 1 ) 
+   if ( firstpass == 1 )
    {
-      if ( !AllocateList )
+      if ( !List_Allocate_Var )
       {
          newvar = (listallocate *)malloc(sizeof(listallocate));
-         strcpy(newvar->nomvar,nom);
-         strcpy(newvar->subroutine,subroutinename);
-         strcpy(newvar->module,curmodulename);
+         strcpy(newvar->a_nomvar,nom);
+         strcpy(newvar->a_subroutine,subroutinename);
+         strcpy(newvar->a_module,nommodule);
          newvar->suiv = NULL;
-         AllocateList = newvar;
+         List_Allocate_Var = newvar;
       }
       else
       {
-         parcours = AllocateList;
-         out = 0 ; 
+         parcours = List_Allocate_Var;
+         out = 0 ;
          while ( parcours->suiv && out == 0 )
          {
-            if (  !strcasecmp(parcours->nomvar,nom) &&
-                  !strcasecmp(parcours->subroutine,subroutinename) &&
-                  !strcasecmp(parcours->module,curmodulename) ) out = 1;
+            if (  !strcasecmp(parcours->a_nomvar,nom) &&
+                  !strcasecmp(parcours->a_subroutine,subroutinename) &&
+                  !strcasecmp(parcours->a_module,nommodule) ) out = 1;
             else
-               parcours=parcours->suiv;               
+               parcours=parcours->suiv;
          }
-         if ( out == 0 ) 
+         if ( out == 0 )
          {
-            if (  !strcasecmp(parcours->nomvar,nom) &&
-                  !strcasecmp(parcours->subroutine,subroutinename) &&
-                  !strcasecmp(parcours->module,curmodulename) ) out = 1;
+            if (  !strcasecmp(parcours->a_nomvar,nom) &&
+                  !strcasecmp(parcours->a_subroutine,subroutinename) &&
+                  !strcasecmp(parcours->a_module,nommodule) ) out = 1;
             else
             {
                /* add the record                                              */
               newvar = (listallocate *)malloc(sizeof(listallocate));
-              strcpy(newvar->nomvar,nom);
-              strcpy(newvar->subroutine,subroutinename);
-              strcpy(newvar->module,curmodulename);
+              strcpy(newvar->a_nomvar,nom);
+              strcpy(newvar->a_subroutine,subroutinename);
+              strcpy(newvar->a_module,nommodule);
               newvar->suiv = NULL;
               parcours->suiv = newvar;
@@ -95 +94 @@
 }
 
-/******************************************************************************/
-/*                            IsAllocateInThisSubroutine_0                    */
-/******************************************************************************/
-/* Firstpass 0                                                                */
-/******************************************************************************/
-/*                                                                            */
-/******************************************************************************/
-int IsAllocateInThisSubroutine_0()
-{
-   listallocate *parcours;
-   int out;
-
-   out = 0 ; 
-   if ( firstpass == 0 ) 
-   {
-      parcours = AllocateList;
-      while ( parcours && out == 0 )
-      {
-         if ( !strcasecmp(parcours->subroutine,subroutinename)  )
-         {
-            out = 1 ;
-         }
-         else parcours=parcours->suiv;               
-      }
-   }
-   return out;
-}
 
 /******************************************************************************/
@@ -135 +107 @@
    int out;
 
-   out = 0 ; 
-   if ( firstpass == 0 ) 
+   out = 0 ;
+   if ( firstpass == 0 )
    {
-      parcours = AllocateList;
+      parcours = List_Allocate_Var;
       while ( parcours && out == 0 )
       {
-         if ( !strcasecmp(parcours->nomvar,ident)  ) out = 1 ;
-         else parcours=parcours->suiv;               
+         if ( !strcasecmp(parcours->a_nomvar,ident)  ) out = 1 ;
+         else parcours=parcours->suiv;
       }
    }
@@ -158 +130 @@
 int varisallocatable_0(char *ident)
 {
-   listvar *newvar;
    listallocate *newvaralloc;
    int out;
@@ -165 +136 @@
    if (firstpass == 0 )
    {
-      newvar = globalvarofusefile;
-      while ( newvar && out == 0 )
-      {
-         if ( !strcasecmp(ident,newvar->var->nomvar) && 
-              newvar->var->allocatable == 1 )  out = 1;
-         else newvar = newvar->suiv;
-      }
-      if ( out == 0 )
-      {
-         newvar = globliste;
-         while ( newvar && out == 0 )
+         newvaralloc = List_Allocate_Var;
+         while ( newvaralloc && out == 0 )
          {
-            if ( !strcasecmp(ident,newvar->var->nomvar) && 
-                 newvar->var->allocatable == 1 )  out = 1;
-            else newvar = newvar->suiv;
-         }      
-      }
-      if ( out == 0 )
-      {
-         newvaralloc = AllocateList;
-         while ( newvar && out == 0 )
-         {
-            if ( !strcasecmp(ident,newvaralloc->nomvar) && 
-                 !strcasecmp(newvaralloc->subroutine,subroutinename)
-               )  out = 1;
+            if ( !strcasecmp(ident,newvaralloc->a_nomvar) )  out = 1;
             else newvaralloc = newvaralloc->suiv;
-         }      
-      }
+         }
    }
    return out;