C NCLFORTSTART
      SUBROUTINE hbfilter (input,output,nmax,start_z,end_z,ids,ide,jds,jde,ims,ime,jms,jme)         
      INTEGER, INTENT(IN)                                          :: ids,ide,jds,jde,ims,ime,jms,jme
      INTEGER, INTENT(IN)                                          :: start_z,end_z,nmax
      REAL                                                         :: dx
      REAL, DIMENSION(IMS:IME,JMS:JME,start_z:end_z),INTENT(IN)    :: INPUT
      REAL, DIMENSION(IMS:IME,JMS:JME,start_z:end_z),INTENT(INOUT) :: OUTPUT
      INTEGER :: I,J,K,N,JMIN,JMAX,IMIN,IMAX,NRES,REPEAT
      REAL    :: PI
      REAL, DIMENSION(11) :: M
      DATA M /2,3,4,2,5,6,7,2,8,9,2/
      INTEGER, PARAMETER          :: NF=11
      REAL, DIMENSION(NF)         :: FK
      REAL, DIMENSION(IMS:IME,NF) :: XTU
      REAL, DIMENSION(JMS:JME,NF) :: YTU
C NCLEND