read_bintable (version 1.0)

• The description page for this routine
• The list of all subroutines

#! /usr/bin/perl

##############################################################################
#
# SYNTAX: read_bintable bintable column row
#
# DESCRIPTION: This utility reads a FITS BINTABLE entry.
#
# VERSION: 1.0
#
# HISTORY: 0.0 -> 1.0 1999-05-07
# HISTORY: Converted from ksh to perl
#
# CALLS: $UTIL/setup_parfile
# CALLS: $UTIL/read_parfile
# CALLS: $UTIL/ftool_test
# CALLS: $FTOOL/ftabpar
#
##############################################################################

($bintable, $column, $row) = @ARGV;

$UTIL = $ENV{"UTIL"};
$FTOOL = $ENV{"FTOOL"};

`$UTIL/setup_parfile $FTOOL/ftabpar.par fitsfile=$bintable \\
                                        column=$column     \\
                                        row=$row`;

`$FTOOL/ftabpar >stdout${$}.log 2>stderr${$}.log`;
$code = $?;
system("$UTIL/read_parfile ftabpar.par value");

`$UTIL/ftool_test ftabpar $code $0 1 stdout${$}.log stderr${$}.log`;

exit 0;