#!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; #