;+
;
; @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