pro copy_atlas, col,im, xs,ys,size_im, $
                imu=imu, img=img, imr=imr, imi=imi, imz=imz

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;+
;
; NAME: 
;    COPY_ATLAS
;
; PURPOSE: 
;    Subroutine of get_atlas. 
;
; CALLING SEQUENCE:
;  copy_atlas, col,im, xs,ys,size_im, 
;              imu=imu, img=img, imr=imr, imi=imi, imz=imz
;
; INPUTS:  col: color index
;          im:  input image
;          xs: xsize array
;          ys: ysize array
;          imu: img: imr: imi: imz:
;
; OUTPUTS: one of the subimages listed above.
;
; REVISION HISTORY:
;    Erin Scott Sheldon  3/14/99  Just a modularization.
;-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  im = temporary( im[ 0:size_im[0]-1, 0:size_im[1]-1 ] )
  
  CASE col OF

      'u': BEGIN
              imu = im
              usize=size(imu)
              xs[0]=usize(1)
              ys[0]=usize(2)
           END
      'g': BEGIN
              img = im
              gsize=size(img)
              xs[1]=gsize(1)
              ys[1]=gsize(2)
           END
      'r': BEGIN
              imr = im
              rsize=size(imr)
              xs[2]=rsize(1)
              ys[2]=rsize(2)
           END
      'i': BEGIN
              imi = im
              isize=size(imi)
              xs[3]=isize(1)
              ys[3]=isize(2)
           END
      'z': BEGIN
              imz = im
              zsize=size(imz)
              xs[4]=zsize(1)
              ys[4]=zsize(2)
           END
   ENDCASE

   return
end