use vars qw($pi $d2r $r2d $halfpi $pi2 $VOFL $R $hE $hF $GAMMA $LN10
$MINBETA $BOLTZ $NTEMP $DELTAF $MPATH $GLOSS $SLOSS
$noise);
use vars qw($pi $d2r $r2d $halfpi $pi2 $VOFL $R $hE $hF $GAMMA $LN10
$MINBETA $BOLTZ $NTEMP $DELTAF $MPATH $GLOSS $SLOSS
$noise);