vlist::nlock removed

src/vlist.c

@@ -169,7 +169,6 @@ void vlist_init_entry(vlist_t *vlistptr)
 {
   vlistptr->self           = vlist_from_pointer(vlistptr);
 
-  vlistptr->nlock          = 0;
   vlistptr->nvars          = 0;
   vlistptr->vars           = NULL;
   vlistptr->ngrids         = 0;
@@ -297,8 +296,6 @@ int vlistCreate(void)
 
   vlistID = vlistptr->self;
 
-  if ( vlistID >= 0 ) vlistLock(vlistID);
-
   return (vlistID);
 }
 
@@ -315,77 +312,29 @@ int vlistCreate(void)
 void vlistDestroy(int vlistID)
 {
   vlist_t *vlistptr;
+  int nvars = vlistptr->nvars;
+  int varID;
 
   vlistptr = vlist_to_pointer(vlistID);
 
   vlist_check_ptr(__func__, vlistptr);
 
-  vlistUnlock(vlistID);
+  vlistDelAtts(vlistID, CDI_GLOBAL);
 
-  if ( vlistptr->nlock > 0 )
-    {
-      Warning("vlist %d is locked!", vlistID);
-    }
-  else
+  for ( varID = 0; varID < nvars; varID++ )
     {
-      int nvars = vlistptr->nvars;
-      int varID;
-
-      vlistDelAtts(vlistID, CDI_GLOBAL);
-
-      for ( varID = 0; varID < nvars; varID++ )
-	{
-	  if ( vlistptr->vars[varID].levinfo )  free(vlistptr->vars[varID].levinfo);
-	  if ( vlistptr->vars[varID].name )     free(vlistptr->vars[varID].name);
-	  if ( vlistptr->vars[varID].longname ) free(vlistptr->vars[varID].longname);
-	  if ( vlistptr->vars[varID].stdname )  free(vlistptr->vars[varID].stdname);
-	  if ( vlistptr->vars[varID].units )    free(vlistptr->vars[varID].units);
-
-	  vlistDelAtts(vlistID, varID);
-	}
-
-      if ( vlistptr->vars ) free(vlistptr->vars);
-
-      vlist_delete_entry(vlistptr);
+      if ( vlistptr->vars[varID].levinfo )  free(vlistptr->vars[varID].levinfo);
+      if ( vlistptr->vars[varID].name )     free(vlistptr->vars[varID].name);
+      if ( vlistptr->vars[varID].longname ) free(vlistptr->vars[varID].longname);
+      if ( vlistptr->vars[varID].stdname )  free(vlistptr->vars[varID].stdname);
+      if ( vlistptr->vars[varID].units )    free(vlistptr->vars[varID].units);
+      
+      vlistDelAtts(vlistID, varID);
     }
-}
-
-
-int vlistNlock(int vlistID)
-{
-  vlist_t *vlistptr;
-
-  vlistptr = vlist_to_pointer(vlistID);
-
-  vlist_check_ptr(__func__, vlistptr);
-
-  return (vlistptr->nlock);
-}
-
-
-void vlistLock(int vlistID)
-{
-  vlist_t *vlistptr;
-
-  vlistptr = vlist_to_pointer(vlistID);
-
-  vlist_check_ptr(__func__, vlistptr);
-
-  vlistptr->nlock++;
-  /*  Message("vlistID %d nlock %d", vlistID, vlistptr->nlock); */
-}
-
-
-void vlistUnlock(int vlistID)
-{
-  vlist_t *vlistptr;
-
-  vlistptr = vlist_to_pointer(vlistID);
-
-  vlist_check_ptr(__func__, vlistptr);
+  
+  if ( vlistptr->vars ) free(vlistptr->vars);
 
-  vlistptr->nlock--;
-  /*  Message("vlistID %d nlock %d", vlistID, vlistptr->nlock); */
+  vlist_delete_entry(vlistptr);
 }
 
 /*
@@ -447,8 +396,6 @@ void vlistCopy(int vlistID2, int vlistID1)
 	  vlistCopyVarAtts(vlistID1, varID, vlistID2, varID);
 	}
     }
-
-  vlistptr2->nlock = 0;
 }
 
 /*

src/vlist.h

@@ -81,7 +81,6 @@ typedef struct
 {
   int         self;
   int         used;
-  int         nlock;
   int         nvars;        /* number of variables                */
   int         ngrids;
   int         nzaxis;
@@ -100,9 +99,6 @@ vlist_t;
 
 
 vlist_t *vlist_to_pointer(int vlistID);
-int      vlistNlock(int vlistID);
-void     vlistLock(int vlistID);
-void     vlistUnlock(int vlistID);
 char    *vlistInqVarNamePtr(int vlistID, int varID);
 char    *vlistInqVarLongnamePtr(int vlistID, int varID);
 char    *vlistInqVarStdnamePtr(int vlistID, int varID);