#! /usr/bin/perl -w
#
# XcompS  -- compare actual and "theory" systems described by "system.pscf"
#
# All components must have been measured and ".ccft" files exist for each.
#
system "rm -f *.state";
system "SmeasS";
system "compR -I -V -O SystemCode";
system "rm -f SystemCode.re; mv SystemCode SystemCode.re";
system "rm -f output.re.datt; mv output.datt output.re.datt";
system "rm -f *.state";
system "SmeasS -X";
system "compR -I -V -O SystemCode";
system "rm -f SystemCode.th; mv SystemCode SystemCode.th";
system "rm -f output.th.datt; mv output.datt output.th.datt";
system "rms output.re.datt output.th.datt";
system "rm -f *.state";
