c
c structure for pick header
c
      structure /PICK/
            character*(DH_STATION_LEN) station_id
            character*(DH_CHANNEL_LEN) channel_id
            record /INT_TIME/ ptime
            character*4 pid
            integer*4 noff
            character*1 qual
            character*1 fmotion
      end structure
