/disk01/web/ocssw/build/src/auto_qc/l1stat_chk/rd_nav_t.c (r8085/r2592)

Go to the documentation of this file.

#include "l1stat.h"
#include "l1stat_proto.h"

extern int32 stat_status;

int rd_nav_t( int32 sdfid, int32 nscans, nav_t_str *nav_t )
/*******************************************************************

   rd_nav_t

   purpose: read a set of navigation and time values from the 
            L1 dataset

   Returns type: none

   Parameters: (in calling order)
      Type              Name            I/O     Description
      ----              ----            ---     -----------
      int32             sdfid           I       SD interface ID
      int32             nscans          I       # of scan lines
      nav_t_str *       nav_t           O       structure containing the 
                                                pointers to the nav sds data

   Modification history:
      Programmer        Date            Description of change
      ----------        ----            ---------------------
      W. Robinson, GSC  29-Dec-1999     Original development

*******************************************************************/
{
  int32  start[3], edge[3];
 /*
  *  Allocate space for the navigation buffers
  */

  if ((nav_t->orb_vec = (float32 *)calloc (nscans * 3, sizeof(float32))) == NULL)
    {
    sprintf(err_msg,"chk_nav: cannot allocate memory for reading orb_vec");
    return FAIL;
    }

  if ((nav_t->sun_ref = (float32 *)calloc (nscans * 3, sizeof(float32))) == NULL)
    {
    sprintf(err_msg,"chk_nav: cannot allocate memory for reading sun_ref");
    return FAIL;
    }

  if ((nav_t->sen_mat = (float32 *)calloc (nscans*3*3, sizeof(float32))) == NULL)
    {
    sprintf(err_msg,"chk_nav: cannot allocate memory for reading sen_mat");
    return FAIL;
    }
 
  if ((nav_t->scan_ell = (float32 *)calloc (nscans * 6, sizeof(float32))) == NULL)
    {
    sprintf(err_msg,"chk_nav: cannot allocate memory for reading scan_ell");
    return FAIL;
    }

  if ((nav_t->msec = (int32_t *)calloc ( nscans, sizeof(int32_t))) == NULL)
    {
    sprintf(err_msg,"chk_nav: cannot allocate memory for reading msec");
    return FAIL;
    }
  if ((nav_t->nflag = (int32 *)calloc (nscans*8, sizeof(int32))) == NULL)
    {
    sprintf(err_msg,"chk_nav: cannot allocate memory for reading nflag");
    return FAIL;
    }

 /*
  *  Set start and end dims for reading orb_vec sds
  */
  start[0] = start[1] = start[2] = 0;
  edge[0] = nscans;
  edge[1] = 3;
  edge[2] = 0;
  if ((rdslice(sdfid, ORBVEC, start, edge, (VOIDP)nav_t->orb_vec)) < 0)
    {
    stat_status = stat_status | 1;
    return FAIL;
    }

 /*
  *  Set start and end dims and read sun_ref sds
  */
  start[0] = start[1] = start[2] = 0;
  edge[0] = nscans;
  edge[1] = 3;
  edge[2] = 0;
  if ((rdslice(sdfid, SUNREF, start, edge, (VOIDP)nav_t->sun_ref)) < 0)
    {
    stat_status = stat_status | 1;
    return FAIL;
    }

 /*
  *  Set start and end dims and read sen_mat sds
  */
  start[0] = start[1] = start[2] = 0;
  edge[0] = nscans;
  edge[1] = 3;
  edge[2] = 3;
  if ((rdslice(sdfid, SENMAT, start, edge, (VOIDP)nav_t->sen_mat)) < 0)
    {
    stat_status = stat_status | 1;
    return FAIL;
    }

 /*
  *  Set start and end dims and read scan_ell sds
  */
  start[0] = start[1] = start[2] = 0;
  edge[0] = nscans;
  edge[1] = 6;
  edge[2] = 0;
  if ((rdslice(sdfid, SCANELL, start, edge, (VOIDP)nav_t->scan_ell)) < 0)
    {
    stat_status = stat_status | 1;
    return FAIL;
    }

 /*
  *  Set start and end dims and read msec sds
  */
  start[0] = start[1] = start[2] = 0;
  edge[0] = nscans;
  edge[1] = 0;
  edge[2] = 0;
  if ((rdslice(sdfid, "msec", start, edge, (VOIDP)nav_t->msec )) < 0)
    {
    stat_status = stat_status | 1;
    return FAIL;
    }

 /*
  *  Set start and end dims and read nflag sds
  */
  start[0] = start[1] = start[2] = 0;
  edge[0] = nscans;
  edge[1] = 8;
  edge[2] = 0;
  if ((rdslice(sdfid, NFLAG, start, edge, (VOIDP)nav_t->nflag )) < 0)
    {
    stat_status = stat_status | 1;
    return FAIL;
    }
  return SUCCEED;
}