c     real*8   cosd, sind, tand, acosd, asind, atand
c     external cosd, sind, tand, acosd, asind, atand