*-- Author : S.Burke / J.V. Morris
      SUBROUTINE FKNORM(S,IERR)
*-----------------------------------------Updates 27/07/93-------                                             
**: FKNORM 30907 SB. Error 17 now tan(theta)>5.                                                               
**********************************************************************                                        
*                                                                    *                                        
* Normalise the theta and phi components of the state vector S       *                                        
*                                                                    *                                        
* ERROR CONDITIONS;                                                  *                                        
*       IERR =   0 ; normal termination                              *                                        
*       IERR = 116 ; tan(theta) > 10**6: reset to 10**6              *                                        
*                  | x or y > 10**4: reset to 10**4                  *                                        
*       IERR =  17 ; tan(theta) > 50                                 *                                        
*                                                                    *                                        
**********************************************************************                                        
*KEEP,FKECODE.                                                                                                
*KEND.                                                                                                        
*KEEP,FKPIDP.                                                                                                 
*KEND.                                                                                                        
**********************************************************************                                        
         CALL FKERR(IUTIL,IROUT,IFATAL,ITHGP2,IERR)
         CALL FKERR(IUTIL,IROUT,IWARN,ITHG1,IERR)
         CALL FKERR(IUTIL,IROUT,IFATAL,ITHGP2,IERR)
         CALL FKERR(IUTIL,IROUT,IFATAL,ITHGP2,IERR)
*