SUBROUTINE HKFILPF(LINE,ID1,X,Y,W)
      CALL HFILPF(ID1,X,Y,W)
      END