#include <string.h>

#include "OpSySInD.h"
#include <time.h>
#include <stdlib.h>

#include "UDFCDF_Ansi.h"
#include "UDFCDF_Str.h"
#include "UDFCDF_Defs.h"

  /**************************************************************************/
  /* Close A CDF Skeleton file                                              */
  /**************************************************************************/

void CloseCDF (ByTe_4 rN)
{
   extern struct UserDefs InFo;

   CDFstatus rV;
   long dInt[2];

   if (InFo.CdfId == 0)
     return;


   dInt[0] = 0;
   dInt[1] = rN;
   rV = CDFlib (SELECT_, ATTR_NAME_, "Data_intervals", gENTRY_, (long) 1,
                PUT_, gENTRY_DATA_, CDF_INT4, (long) 2, dInt, NULL_);
   if (rV != CDF_OK)
   {
      printf ("CDFLib ERROR!!\n");
      exit(-1);
   }

   rV = CDFclose (InFo.CdfId);
   if (rV != CDF_OK)
   {
      printf ("Error closing the CDF file - LET ME OUT!!!!\n");
      exit(-1);
   }
}