my($Dyieldr,$Dybf, $Dpiscaler, $Dpbf, $Dgaultr, $Dgbf, 
   $Tformr, $Tfbf, $Dfinalr, $Dfbf, $v_fin);
my(@Dyieldf, $Dyieldf1, $Dyieldf2, 
    @Dpiscalef, $Dpiscalef1, $Dpiscalef2, 
    @Dgaultf, $Dgaultf1, $Dgaultf2, 
    @Tformf, $Tformf1, $Tformf2, 
    @Dfinalf, $Dfinalf1, $Dfinalf2);

$Dybf = Math::BigFloat->new($Dyield);
$Dpbf = Math::BigFloat->new($Dpiscale);
$Dgbf = Math::BigFloat->new($Dgault);
$Tfbf = Math::BigFloat->new($Tform);
$Dfbf = Math::BigFloat->new($Dfinal);

$Dyieldr   = $Dybf->fround(3);
$Dpiscaler = $Dpbf->fround(3);
$Dgaultr   = $Dgbf->fround(3);
$Tformr    = $Tfbf->fround(3);
$Dfinalr   = $Dfbf->fround(3);

$v_fin = $v / 1000;

@Dyieldf = split /E/, $Dyieldr;
$Dyieldf1= substr($Dyieldf[0], 1, 1);
$Dyieldf2= substr($Dyieldf[0], 2);
@Dpiscalef = split /E/, $Dpiscaler;
$Dpiscalef1= substr($Dpiscalef[0], 1, 1);
$Dpiscalef2= substr($Dpiscalef[0], 2);
@Dgaultf = split /E/, $Dgaultr;
$Dgaultf1= substr($Dgaultf[0], 1, 1);
$Dgaultf2= substr($Dgaultf[0], 2);
@Tformf = split /E/, $Tformr;
$Tformf1= substr($Tformf[0], 1, 1);
$Tformf2= substr($Tformf[0], 2);
@Dfinalf = split /E/, $Dfinalr;
$Dfinalf1= substr($Dfinalf[0], 1, 1);
$Dfinalf2= substr($Dfinalf[0], 2);