MtkTaiToTaiJd.c

Go to the documentation of this file.

/*===========================================================================
=                                                                           =
=                              MtkTaiToTaiJd                                =
=                                                                           =
=============================================================================

                         Jet Propulsion Laboratory
                                   MISR
                               MISR Toolkit

            Copyright 2006, California Institute of Technology.
                           ALL RIGHTS RESERVED.
                 U.S. Government Sponsorship acknowledged.

============================================================================*/

#include "MisrUtil.h"
#include "MisrError.h"
#include <math.h>

MTKt_status MtkTaiToTaiJd(
  double secTAI93, 
  double jdTAI[2]  )
{
  double dayFraction;

  dayFraction = fmod(secTAI93,SECONDSperDAY);
  jdTAI[0] = EPOCH_DAY + ((secTAI93 - dayFraction) / SECONDSperDAY);
  jdTAI[1] = dayFraction / SECONDSperDAY + EPOCH_DAY_FRACTION;

  if (jdTAI[1] >= 1.0)
  {
    jdTAI[0] += 1.0;
    jdTAI[1] -= 1.0;
  }
  else if (jdTAI[1] < 0)
  {
    jdTAI[0] -= 1.0;
    jdTAI[1] += 1.0;
  }

  return MTK_SUCCESS;
}