Changeset 2715 for trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/WorkWithlistofmodulebysubroutine.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/WorkWithlistofmodulebysubroutine.c (modified) (3 diffs)

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

@@ -61 +61 @@
            List_ModuleUsed_Var = Readthedependfile
                                (tmplistmodule->u_usemodule,List_ModuleUsed_Var);
-
+         printf("PPPPPPPPPPPPPP\n");
            List_GlobParamModuleUsed_Var = ReaddependParameterList
                       (tmplistmodule->u_usemodule,List_GlobParamModuleUsed_Var);
@@ -281 +281 @@
 /*                                                                            */
 /******************************************************************************/
-void WriteUsemoduleDeclaration()
+void WriteUsemoduleDeclaration(char *cursubroutinename)
 {
   listusemodule *newmodule;
+  
 
   newmodule = List_NameOfModuleUsed;
@@ -290 +291 @@
   while ( newmodule )
   {
-     if ( !strcasecmp(newmodule->u_cursubroutine,subroutinename) )
+     if ( !strcasecmp(newmodule->u_cursubroutine,cursubroutinename) )
+     {
+     if (strcmp(newmodule->u_charusemodule,""))
      {
              fprintf(fortranout,"      USE %s \n"
                                                    ,newmodule->u_charusemodule);
      }
+     }
         newmodule = newmodule ->suiv;
   }