view release on metacpan or  search on metacpan

ChangeLog  view on Meta::CPAN

	* t/preces.t: Add test for slaPreces

	* SLA.xs: slaPreces - the ra and dec variables are input and
	output not just output.

	* t/fk4to5.t: Use Test module

2000-04-11  Tim Jenness  <tjenness@cpan.org>

	* t/fk4to5.t: Improve the test (and fix btoj for -00 decs)
	(btoj): dont use abs($d), multiply by dsign instead.

2000-03-28  Tim Jenness  <tjenness@cpan.org>

	* SLA.pm (ut2lst_tel): Add missing command

	* t/mjd.t: Add new test

	* Makefile.PL: Add Test prerequisite

	* SLA.pm: Increase version number to 0.93

t/fk4to5.t  view on Meta::CPAN

print "# Output (J2000): RA=$nra DEC=$ndec\n";


# Now test a positive declination


sub btoj {

  my ($ra,$dec) = (@_);
  my ($nra,$ndec,$bepoch,$dsign,$sign,$sign2,$status,$j);
  my (@idmsf,@ihmsf,$ra_rad,$dec_rad,$ra_j2000_rad,$dec_j2000_rad);


  my ($h,$m,$s) = split(/ /,$ra);
  my ($d,$dm,$ds) = split(/ /,$dec);

  slaDtf2r($h,$m,$s ,$ra_rad,$j);

  # Check for sign. Dont use numeric comparison since this
  # will not trap -00 01
  $dsign = ($d =~ /^\s*-/ ? -1 : 1);
  $d *= $dsign;  # since abs(-0) == -0

  slaDaf2r($d,$dm,$ds ,$dec_rad,$status);

  $dec_rad *= $dsign;

  ###########################################################################

  $bepoch = 1950.0;
  slaFk45z( $ra_rad, $dec_rad, $bepoch, $ra_j2000_rad, $dec_j2000_rad );

  @idmsf = ();
  &slaDr2af(2,$dec_j2000_rad,$sign,\@idmsf);

  @ihmsf = ();