      SUBROUTINE POCA(R,A,X,Y)
      X=R*COS(A)
      Y=R*SIN(A)
      RETURN
      END
