EVOLUTION-MANAGER

Edit File: g2_free.c

#include <stdlib.h>
#include  "grib2.h"

void g2_free(gribfield *gfld)
//$$$  SUBPROGRAM DOCUMENTATION BLOCK
//                .      .    .                                       .
// SUBPROGRAM:    g2_free
//   PRGMMR: Gilbert         ORG: W/NP11    DATE: 2002-10-28
//
// ABSTRACT: This routine frees up memory that was allocated for
//   struct gribfield.
//
// PROGRAM HISTORY LOG:
// 2002-10-28  Gilbert
//
// USAGE:    g2_free(gribfield *gfld)
//   ARGUMENT:
//     gfld - pointer to gribfield structure (defined in include file grib2.h)
//            returned from routine g2_getfld.
//
// REMARKS:  This routine must be called to free up memory used by
//           the decode routine, g2_getfld, when user no longer needs to
//           reference this data.
//
// ATTRIBUTES:
//   LANGUAGE: C
//   MACHINE:
//
//$$$
{

if (gfld->idsect != 0 ) free(gfld->idsect);
      if (gfld->local != 0 ) free(gfld->local);
      if (gfld->list_opt != 0 ) free(gfld->list_opt);
      if (gfld->igdtmpl != 0 ) free(gfld->igdtmpl);
      if (gfld->ipdtmpl != 0 ) free(gfld->ipdtmpl);
      if (gfld->coord_list != 0 ) free(gfld->coord_list);
      if (gfld->idrtmpl != 0 ) free(gfld->idrtmpl);
      if (gfld->bmap != 0 ) free(gfld->bmap);
      if (gfld->fld != 0 ) free(gfld->fld);
      free(gfld);

return;
}