my ($r, $rad, $twopi, $sig, $pi, $a0, $c0);