Changeset 2671 for vendors/AGRIF/current/LIB/UtilFortran.c

Timestamp:

2011-03-08T15:08:49+01:00 (13 years ago)

Author:

rblod

Message:

Load working_directory into vendors/AGRIF/current.

File:

• vendors/AGRIF/current/LIB/UtilFortran.c (modified) (4 diffs)

vendors/AGRIF/current/LIB/UtilFortran.c

@@ -97 +97 @@
         /* Now we should give the definition of the variable in the           */
         /* table List_UsedInSubroutine_Var                                    */
+        printf("QDKFLSDFKSLDF\n");
         strcpy(curvar->var->v_typevar,newvar->var->v_typevar);
         strcpy(curvar->var->v_dimchar,newvar->var->v_dimchar);
@@ -102 +103 @@
         curvar->var->v_dimensiongiven = newvar->var->v_dimensiongiven;
         curvar->var->v_allocatable = newvar->var->v_allocatable;
+        curvar->var->v_target = newvar->var->v_target;
         curvar->var->v_pointerdeclare = newvar->var->v_pointerdeclare;
         curvar->var->v_indicetabvars = newvar->var->v_indicetabvars;
@@ -133 +135 @@
         )
      {
+        strcpy(curvar->var->v_commoninfile,newvar->var->v_commoninfile);
         CopyRecord(curvar->var,newvar->var);
         present = 1;
@@ -535 +538 @@
                 sprintf(ligne,"TYPE(Agrif_%s), DIMENSION(:), ALLOCATABLE :: Agrif_%s_var",curmodulename,curmodulename); 
                 tofich(module_declar,ligne,1);
+                sprintf(ligne,"PUBLIC :: Agrif_%s",curmodulename); 
+                tofich(module_declar,ligne,1);
+                sprintf(ligne,"PUBLIC :: Agrif_%s_var",curmodulename); 
+                tofich(module_declar,ligne,1);
         }
    }