correct fix for aliasing bugs

[FX Coudert]

>       SUBROUTINE RD2DEG( RAD, DEG )
>
> ...which converts angles from radians to degrees. Is it sufficient to
> do something like...
>
>            CALL RD2DEG((CURANG1), (CURANG1))

You probably want RD2DEG to set the value of its DEG argument, so you 
probably want to call it with:

CALL RD2DEG((CURANG1), CURANG1)

FX