#!/usr/bin/perl -w

# In case the F value is not included in an output file it can be
# given as the last argument. 2DHF program (ver. September 2002
# onwards) includes the value in its output and thus the variable $F
# should be left empty.

$F="";

$fncore="fh-223-150-";
$ext="output";

$fn_m2=$fncore . "m2-1" . "." . $ext;
$fn_m1=$fncore . "m1-1" . "." . $ext;
$fn_0=$fncore  . "0-1"  . "." . $ext;
$fn_p1=$fncore . "p1-1" . "." . $ext;
$fn_p2=$fncore . "p2-1" . "." . $ext;

#print ("$fn_m2  $fn_m1  $fn_0  $fn_p1  $fn_p2 \n");

system ("./elprop.pl $fn_m2 $fn_m1 $fn_0 $fn_p1 $fn_p2 $F \n" ); 

exit;
