*-- Author : S.Burke / J.V. Morris
      SUBROUTINE FKERR(IUTIL,IROUT,ISEV,ICODE,IERR)
**********************************************************************                                        
*                                                                    *                                        
* Routine to record errors.                                          *                                        
*                                                                    *                                        
**********************************************************************                                        
*KEEP,FKCNTL.                                                                                                 
*KEEP,FKLERR.                                                                                                 
*KEND.                                                                                                        
**********************************************************************                                        
* Remember last routine code for printout routine                                                             
* Clear counters if error code is zero                                                                        
         CALL VZERO(NMERR,NCODE*NROUT)                                                                 
         CALL VZERO(NUERR,NCODE*NROUT)                                                                 
* Remove old severity code from ICODE                                                                         
* Write error message to ERRLOG                                                                               
      CALL FKEM(IUTIL,IROUT,ISEV,ICODE)
*                                                                                                             
* Deal with bad arguments - there isn't much point passing                                                    
* these back as an error!                                                                                     
*                                                                                                             
* Print out a message if requested                                                                            
      CALL FKPRNT(-1,IERR)
*