#!perl #
#
# Perl script 'chk.pl' to check input data files required by history
# files.
#
# For the description refer to the subroutine
# CHK
# of file 'go.pl'.
#
# Version: 6.10
# Date: 2006, October 9
# ======================================================================
# Main program 'chk.pl':
# ~~~~~~~~~~~~~~~~~~~~~~
  $PATH=$ARGV[0];
  $FILE=$ARGV[1];
  if ($FILE ne '') {
    @ARGV=();
    require 'go.pl';
    &CHK($PATH,$FILE);
  }
# ======================================================================
1;                                                               #