$b1_1 = ($dZ * $a1);
$b1_2 = int(( int($b1_1 / 32) + 1) / 2);
$Yintern = ($b1_2 + $tmp1);