Changeset 4777 for vendors/AGRIF/current/LIB/WorkWithglobliste.c

Timestamp:

2014-09-19T15:51:42+02:00 (10 years ago)

Author:

rblod

Message:

Load working_directory into vendors/AGRIF/current.

File:

• vendors/AGRIF/current/LIB/WorkWithglobliste.c (modified) (2 diffs)

vendors/AGRIF/current/LIB/WorkWithglobliste.c

@@ -46 +46 @@
 void Add_Globliste_1(listvar *listtoadd)
 {
-   if ( firstpass == 1 )
-   {
-      if ( aftercontainsdeclare == 0 &&
-           VariableIsParameter  == 0 )
-      {
-         List_Global_Var = AddListvarToListvar(listtoadd,List_Global_Var,1);
-      }
-   }
+    if ( aftercontainsdeclare == 0 && VariableIsParameter == 0 )
+    {
+        List_Global_Var = AddListvarToListvar(listtoadd, List_Global_Var, 1);
+    }
 }
 
@@ -100 +96 @@
    {
     strcpy(oldvar->v_dimension->dim.last,newvar->v_dimension->dim.last);
-    strcpy(oldvar->v_dimension->dim.first,newvar->v_dimension->dim.first);    
+    strcpy(oldvar->v_dimension->dim.first,newvar->v_dimension->dim.first);
    }
    out = 1;