*-- Author : S.Burke
      SUBROUTINE FKITOE(Z,SINT,CINT,EXT)
*-----------------------------------------Updates 21/09/92-------                                             
**: FKITOE.......SB. Cope better (?) with zero field.                                                         
*-----------------------------------------Updates 07/09/93-------                                             
**: FKITOE 40000 SB. Only print field warning in production run.                                              
*-----------------------------------------Updates 15/04/94-------                                             
**: FKITOE 40313.GR. only 10 printouts if zero field                                                          
*-----------------------------------------Updates----------------                                             
**********************************************************************                                        
*                                                                    *                                        
* Convert an `internal' vector and covariance to an `external'       *                                        
* state vector.                                                      *                                        
*                                                                    *                                        
* External: 1/r, phi, theta, x, y, z, IPTYPE, covariance             *                                        
* Internal: x, y, q/p, tan(theta), phi                               *                                        
*                                                                    *                                        
* The `external' covariance is packed with COVCP.                    *                                        
*                                                                    *                                        
**********************************************************************                                        
*KEEP,FKPIDP.                                                                                                 
*KEND.                                                                                                        
**********************************************************************                                        
* Get the field                                                                                               
      CALL GUFLD(R,B)                                                                                  
* Trap zero field problems                                                                                    
         CALL ERRLOG(334,'S:FKITOE: Bad magnetic field')                                               
         CALL H1ENVI(JS,JP,NP)                                                                         
* Transform the state vector                                                                                  
      CALL UCOPY(IPTYPE,EXT(7),1)                                                                      
* Differential coefficients                                                                                   
* Transform the covariance ...                                                                                
* ... and pack                                                                                                
      CALL COVCP(5,COV,EXT(8),-2)                                                                      
*