double palEpco	(	char	k0,
		char	k,
		double	e
	)

Definition at line 82 of file palEpco.c.

References eraEpb(), eraEpb2jd(), eraEpj(), and eraEpj2jd().

Referenced by t_epco().

                                            {

  double new_epoch = 0.0;
  double djm;
  double djm0;

  /* Use upper case */
  k0 = toupper( k0 );
  k = toupper( k );

  if (k == k0) {
    new_epoch = e;
  } else if (k0 == 'B') {
    eraEpj2jd( e, &djm0, &djm );
    new_epoch = eraEpb( djm0, djm );
  } else {
    eraEpb2jd( e, &djm0, &djm );
    new_epoch = eraEpj( djm0, djm );
  }
  return new_epoch;
}

Here is the call graph for this function:

Here is the caller graph for this function: