Changeset 1200 for trunk/AGRIF/LIB/WorkWithlistvarindoloop.c

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:

• trunk/AGRIF/LIB/WorkWithlistvarindoloop.c (modified) (20 diffs)

trunk/AGRIF/LIB/WorkWithlistvarindoloop.c

@@ -250 +250 @@
 
   pointtmplist = List_CouplePointed_Var;
-
   while ( pointtmplist )
   {
@@ -312 +311 @@
                         strcpy(var1->v_nameinttypename,var2->v_nameinttypename);
    else strcpy(var2->v_nameinttypename,var1->v_nameinttypename);
-
+          
    if ( !strcasecmp(var1->v_commoninfile,"") )
                               strcpy(var1->v_commoninfile,var2->v_commoninfile);
@@ -425 +424 @@
       }
       /* if variable has been found                                           */
+      
       if ( out == 1 ) CopyRecord(parcours->var,parcours1->var);
+      
       /* looking in List_Dimension_Var                                        */
       if (out == 0 )
@@ -447 +448 @@
         }
         /* if variable has been found                                         */
+        
         if ( out == 1 )
         {
@@ -522 +524 @@
    listvar *parcours1;
    int out;
-
    parcours = list_to_modify;
    while( parcours )
@@ -558 +559 @@
    listvar *parcours1;
    int out;
-
+   
    parcours = list_to_modify;
    while( parcours )
    {
       /* looking in List_Global_Var                                           */
+      
+      out = 0;
+      if (list_to_modify != List_SubroutineDeclaration_Var) {
       parcours1 = List_Global_Var;
-      out = 0;
       while ( parcours1 && out == 0 )
       {
@@ -574 +577 @@
          else parcours1 = parcours1->suiv;
       }
+      }
+          
       /* if variable has been found                                           */
-      if ( out == 1 ) CopyRecord(parcours->var,parcours1->var);
+      if ( out == 1 ) {
+      CopyRecord(parcours->var,parcours1->var);
+      }
       /* looking in List_SubroutineDeclaration_Var                            */
       else
@@ -592 +599 @@
             else parcours1 = parcours1->suiv;
          }
+             
          /* if variable has been found                                        */
-         if ( out == 1 ) CopyRecord(parcours->var,parcours1->var);
+         if ( out == 1 ) {
+         CopyRecord(parcours->var,parcours1->var);
+         }
          else
          {
@@ -610 +620 @@
             }
             /* if variable has been found                                     */
-            if ( out == 1 ) CopyRecord(parcours->var,parcours1->var);
+            if ( out == 1 ) CopyRecord(parcours->var,parcours1->var);       
          }
       }
       parcours = parcours->suiv;
    }
+   
 }
 
@@ -823 +834 @@
 void UpdateListDeclarationWithDimensionList()
 {
-
    List_SubroutineDeclaration_Var = AddListvarToListvar(List_Dimension_Var,
                                               List_SubroutineDeclaration_Var,1);
-
 }
 
@@ -843 +852 @@
    listvar *parcoursprec;
    int remove;
-
+    
+        
    parcoursprec = (listvar *)NULL;
    parcours = List_UsedInSubroutine_Var;
@@ -952 +962 @@
    listvar *parcoursprec;
    int out ;
-
+           
    parcoursprec = (listvar *)NULL;
    parcours = List_SubroutineDeclaration_Var;
@@ -1003 +1013 @@
       }
    }
+       
 }
 
@@ -1079 +1090 @@
    Clean_List_UsedInSubroutine_Var();
    Clean_List_SubroutineDeclaration_Var();
-
+   
    newvar = (listvar *)NULL;
 /*   newvar = List_Common_Var;*/
@@ -1104 +1115 @@
 {
    listvar *newvar;
-
+        
    Update_List_Subroutine_Var(List_SubroutineArgument_Var);
+
+
+       
    Update_List_Subroutine_Var(List_FunctionType_Var);
    Update_List_Var(List_Parameter_Var);
@@ -1116 +1130 @@
    Update_List_Var(List_UsedInSubroutine_Var);
    Update_List_From_Common_Var(List_UsedInSubroutine_Var);
+   Update_List_From_Common_Var(List_SubroutineDeclaration_Var);
    Update_NotGridDepend_Var(List_NotGridDepend_Var);
-
+    
    newvar =(listvar * )NULL;
 /*   newvar = List_Common_Var;*/
@@ -1186 +1201 @@
       parcours = parcours -> suiv ;
    }
+       
 }
 
@@ -1255 +1271 @@
       parcours = parcours->suiv;
    }
+       
 }
 
@@ -1574 +1591 @@
               !strcasecmp(parcours->var->v_subroutinename,"")            &&
               parcours->var->v_VariableIsParameter == 0                  &&
-              parcours->var->v_allocatable == 0                          &&
+              (parcours->var->v_allocatable == 0  || !strcasecmp(parcours->var->v_typevar,"type"))      &&
               parcours->var->v_notgrid == 0                              &&
               ( parcours->var->v_nbdim != 0 ||
@@ -1719 +1736 @@
    while ( parcours4 )
    {
-      if ( parcours4->var->v_allocatable == 1 )
+      if ( parcours4->var->v_allocatable == 1 && strcasecmp(parcours4->var->v_typevar,"type"))
       {
          Add_SubroutineWhereAgrifUsed_1(parcours4->var->v_subroutinename,