MCR MAC STRMOV=STRMOV
!MCR RAT ATAN3.RAT >ATAN3.FTN
MCR F4P ATAN3=ATAN3/NOTR/NOCK