;
;  This function provides a quick way to increment the y-dimension of a 2D
;  array.
;  USAGE:  array=incarray(arr)
;
;  Drafted by Tony Darnell
;  2-17-98
;

FUNCTION incarray,arr

  sz=SIZE(arr)
  old_ysz=sz(2)
  new_ysz=old_ysz+1
  IF (sz(3) EQ 4) THEN temp=FLTARR(sz(1),new_ysz)
  IF (sz(3) EQ 2) THEN temp=INTARR(sz(1),new_ysz)
  IF (sz(3) EQ 1) THEN temp=BYTARR(sz(1),new_ysz)
  IF (sz(3) EQ 7) THEN temp=STRARR(sz(1),new_ysz)

  temp(*,0:old_ysz-1)=arr(*,0:old_ysz-1)
  arr=temp
  RETURN,arr
END