IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Oct 4, 2006, 4:29:10 PM (20 years ago)
Author:
eugene
Message:

cleanup the CreateBuffer function and use, fix buffer init

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Ohana/src/opihi/cmd.data/vgrid.c

    r7917 r9275  
    3434  Ny = (Ymax - Ymin) / dY + 1;
    3535 
    36   /* these steps are a standard 'createbuffer', define? */
    37   bf[0].bitpix = -32;
    38   bf[0].unsign = FALSE;
    39   bf[0].bscale = 1.0;
    40   bf[0].bzero  = 0.0;
     36  gfits_free_matrix (&bf[0].matrix);
     37  gfits_free_header (&bf[0].header);
     38  CreateBuffer (bf, Nx, Ny, -32, 0.0, 1.0);
    4139  strcpy (bf[0].file, "(empty)");
    42 
    43   bf[0].header.bitpix = bf[0].bitpix;
    44   bf[0].header.bscale = bf[0].bscale;
    45   bf[0].header.bzero  = bf[0].bzero;
    46   bf[0].header.unsign = bf[0].unsign;
    47   bf[0].header.Naxes = 2;
    48   bf[0].header.Naxis[0] = Nx;
    49   bf[0].header.Naxis[1] = Ny;
    50   free (bf[0].header.buffer);  /* ALLOCATEd in SelectBuffer */
    51   free (bf[0].matrix.buffer);  /* ALLOCATEd in SelectBuffer */
    52   gfits_create_header (&bf[0].header);
    53   gfits_create_matrix (&bf[0].header, &bf[0].matrix);
    5440
    5541  ALLOCATE (val, float, Nx*Ny);
Note: See TracChangeset for help on using the changeset viewer.