*-- Author : S.Burke / J.V. Morris
      SUBROUTINE FKXYRP(SIN,CIN,SOUT,COUT)
**********************************************************************                                        
*                                                                    *                                        
* Transform a state vector and covariance from (x,y) to (R,PHI)      *                                        
*                                                                    *                                        
* Both are assumed to be at fixed z.                                 *                                        
*                                                                    *                                        
*                        *** NOT TESTED ***                          *                                        
*                                                                    *                                        
**********************************************************************                                        
**********************************************************************                                        
      CALL UCOPY(SIN(3),SOUT(3),6)                                                                     
      CALL UCOPY(CIN(3,3),COUT(3,3),26)                                                                
*