; delfitsval - delete a value from existing fits header.
; Jul. 1992  I. Zayer LPARL

pro delfitsval,header,keyw
common fitsw,rowno

  last=find_key(header,'END')			;see where header ends
  rowno=find_key(header,keyw)			;see where keyword is
  if (rowno lt last) and (rowno ge 5) then begin;can't remove compulsory keywords
    temp=header(*,rowno+1:last)			;move following header part up
    header(0,rowno)=temp			;rowno is gone
    header(0,last)=replicate(32b,80)		;delete previous 'END' line
    adjhdr,header,last-1			;make smaller if necessary
  endif

end