FUNCTION resize_img,image,img_resize,head

  IF N_ELEMENTS(head) EQ 0 THEN MKHDR,head,image
  sz = size(image) ; *** updating size of image *** 

  nx = sz(1)
  ny = sz(2)
 
  CASE sz(3) OF
   1: tmp = BYTARR(nx,ny)
   2: tmp = INTARR(nx,ny)
   3: tmp = LONARR(nx,ny)
   4: tmp = FLTARR(nx,ny)
   ELSE: donothing = 0
  ENDCASE

  x_resize = FIX( nx * img_resize )
  y_resize = FIX( ny * img_resize )  

  tmp = image(0:nx-1,0:ny-1)
  image = REBIN ( tmp, x_resize, y_resize )

  sz = size(image)
RETURN,image
END