1#!/usr/local/bin/perl -w
2#
3# Copyright 2009-2017 The VOTCA Development Team (http://www.votca.org)
4#
5# Licensed under the Apache License, Version 2.0 (the "License");
6# you may not use this file except in compliance with the License.
7# You may obtain a copy of the License at
8#
9#     http://www.apache.org/licenses/LICENSE-2.0
10#
11# Unless required by applicable law or agreed to in writing, software
12# distributed under the License is distributed on an "AS IS" BASIS,
13# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14# See the License for the specific language governing permissions and
15# limitations under the License.
16#
17
18use strict;
19( my $progname = $0 ) =~ s#^.*/##;
20if (defined($ARGV[0])&&("$ARGV[0]" eq "--help")){
21  print <<EOF;
22$progname, version %version%
23Skeleton script
24
25Usage: $progname argument
26EOF
27  exit 0;
28}
29
30die "1 parameter are necessary\n" if ($#ARGV<0);
31
32use CsgFunctions;
33
34my @r;
35my @values;
36my @flags;
37readin_table($ARGV[0],@r,@values,@flags)) || die "$progname: error at readin_table'$ARGV[0]'\n"
38