pro pwd,cwd ;+ ; routine pwd ; purpose print the current working directory ; ; output: ; cwd directory name string. if present in argument list ; directory string is not printed to terminal. ; ; author: Paul Ricchiazzi jan93 ; Institute for Computational Earth System Science ; University of California, Santa Barbara ;- cd,current=cwd if n_params() eq 0 then print,cwd end