#!perl                                                      #<HTML><PRE>
#
# Perl script 'chk.pl' to check input data files required by history files
#
# Version: 5.20
# Date: 1998, November 2
# ======================================================================
# Main program 'chk.pl':
# ~~~~~~~~~~~~~~~~~~~~~~
  $PATH=$ARGV[0];
  $FILE=$ARGV[1];
  if ($FILE ne '') {
    @ARGV=();
    require 'go.pl';
    &CHK($PATH,$FILE);
  }
# ======================================================================
1;                                                               #</PRE>
