$b1_1 = ($dZ * $a1);
 $b1_2 = ((($b1_1 >> 5) + 1)>>1);
 $Yintern = ($b1_2 + $tmp1);