*-- Author : S.Burke / J.V. Morris SUBROUTINE FKRPXY(SIN,CIN,SOUT,COUT) ********************************************************************** * * * Transform a state vector and covariance from (R,PHI) to (x,y) * * * * 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) *