COMMON /CUWDIR/ IUWDIR
   INTEGER IUWDIR%# INUMBER OF USER'S WORKING DIRECTORY, INIT = ROOTDIR
