Changeset 2715 for trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/dependfile.c

Timestamp:

2011-03-30T17:58:35+02:00 (13 years ago)

Author:

rblod

Message:

First attempt to put dynamic allocation on the trunk

File:

• trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/dependfile.c (modified) (8 diffs)

trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/dependfile.c

@@ -431 +431 @@
               fprintf(dependfileoutput,"T\n");
            }
+           /********** MODULENAME *********************************************/
+           if ( strcasecmp(parcours->var->v_modulename,"") )
+           {
+              fprintf(dependfileoutput,"%s\n",parcours->var->v_modulename);
+           }
+           else
+           {
+              fprintf(dependfileoutput,"T\n");
+           }
            /********** NBDIM **************************************************/
 /*           fprintf(dependfileoutput,"%d\n",parcours->var->v_nbdim);*/
@@ -437 +446 @@
            /********** ALLOCATABLE ********************************************/
            fprintf(dependfileoutput,"%d\n",parcours->var->v_allocatable);
+           /********** TARGET ********************************************/
+           fprintf(dependfileoutput,"%d\n",parcours->var->v_target);
            /********** POINTERDECLARE *****************************************/
            fprintf(dependfileoutput,"%d\n",parcours->var->v_pointerdeclare);
@@ -466 +477 @@
               fprintf(dependfileoutput,"T\n");
            }
+           /********** PRIVATE *****************************************/
+           fprintf(dependfileoutput,"%d\n",parcours->var->v_PrivateDeclare);
+              
            /********** INDICETABVARS ******************************************/
            fprintf(dependfileoutput,"%d\n",parcours->var->v_indicetabvars);
@@ -562 +576 @@
             strcpy(parcours->var->v_commonname,"");
          }
+           /********** MODULENAME *********************************************/
+         fscanf(dependfileoutput,"%s\n",parcours->var->v_modulename);
+         
+         printf("MODULENAME = %s %s\n",parcours->var->v_nomvar,parcours->var->v_modulename);
+         
+         if ( !strcasecmp(parcours->var->v_modulename,"T") )
+         {
+            strcpy(parcours->var->v_modulename,"");
+         }
+         
+
            /********** NBDIM **************************************************/
 /*         fscanf(dependfileoutput,"%d\n",&parcours->var->v_nbdim);*/
@@ -573 +598 @@
                                parcours->var->v_commonname);
          }
+           /********** TARGET ********************************************/
+         fscanf(dependfileoutput,"%d\n",&parcours->var->v_target);
+         
            /********** POINTERDECLARE *****************************************/
          fscanf(dependfileoutput,"%d\n",&parcours->var->v_pointerdeclare);
@@ -597 +625 @@
             strcpy(parcours->var->v_nameinttypename,"");
          }
+           /********** PRIVATE *****************************************/
+         fscanf(dependfileoutput,"%d\n",&parcours->var->v_PrivateDeclare);
+         
            /********** INDICETABVARS ******************************************/
          fscanf(dependfileoutput,"%d\n",&parcours->var->v_indicetabvars);
@@ -624 +655 @@
          fscanf(dependfileoutput,"%s\n",nothing);
          parcours->suiv = NULL;
+         if (parcours->var->v_PrivateDeclare == 0)
+         {
          if ( !listout )
          {
@@ -643 +676 @@
                parcoursprec = parcours0->suiv;
             }
+         }
          }
          parcours = NULL;