;+
;
; @file_comments
; copy files
; file_copy should be used instead...
;
; @obsolete
;
; @param filenamein {in}{required}
;
; @param filenameout {in}{required}
;
; @keyword _EXTRA
; Used to pass keywords
;
; @history
; June 2005: Sebastien Masson => obsolete routine
;
; @version
; $Id$
;
;-
PRO cp, filenamein, filenameout, _EXTRA=ex
;
  compile_opt idl2, strictarrsubs, obsolete
;
  file_copy, filenamein, filenameout, _extra=ex
  RETURN
END