;------------------------------------------------------------
;------------------------------------------------------------
;------------------------------------------------------------
;+
;
; @file_comments 
; print the current directory
;
; @categories like unix function
; 
; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
;
; @version $Id$
;
;-
;------------------------------------------------------------
;------------------------------------------------------------
;------------------------------------------------------------
PRO pwd
;
  compile_opt idl2, strictarrsubs
;
   cd, current = pwd
   print, pwd
   return
end