;------------------------------------------------------------
;------------------------------------------------------------
;------------------------------------------------------------
;+
; NAME:pwd
;
; PURPOSE:print the current directory
;
; CATEGORY:like unix function
;
; CALLING SEQUENCE:pwd
; 
; MODIFICATION HISTORY:Sebastien Masson (smasson@lodyc.jussieu.fr)
;
;-
;------------------------------------------------------------
;------------------------------------------------------------
;------------------------------------------------------------
PRO pwd
;
  compile_opt idl2, strictarrsubs
;
   cd, current = pwd
   print, pwd
   return
end