      block data bkdeqp
c
c     This is the block data subroutine for EQPT.
c
c-----------------------------------------------------------------------
c
      implicit none
c
c-----------------------------------------------------------------------
c
      end
