*-- Author : S.Burke
      SUBROUTINE FERCHK(IERR)
C     ------BOSMDL                                                                                            
C     ------                                                                                                  
      CALL HCDIR('//PAWC/FFDBG',' ')                                                                   
            IF (VAL.GT.0.) CALL HFILL(10000+IERCNT(II,2),VAL,0.,1.)                                    
         CALL VZERO(IERCNT,MAXERR)                                                                     
         CALL HBOOK1(10000+IERR,'Error count',100,0.,1000.,0.)                                         
      CALL HCDIR('//PAWC',' ')                                                                         
*