ROTANG=-ATAN(DLONG/DLAT*COS(DEGRAD*XLATD))            INIT.181

Note: ROTANG's Russian cousin is UGOPOV ("ugol povorota"; thank you, V.N.).