COMMON /CWDIR/ IWDIR, WSIZE, WDIR(WDIRSIZE), WMOD
   INTEGER IWDIR%# INODE NUMBER FOR WORKING DIRECTORY, INIT = 0
   INTEGER WSIZE%# LENGTH OF WORKING DIRECTORY
   CHARACTER WDIR%# CONTENTS OF WORKING DIRECTORY
   INTEGER WMOD%%# TIMES WDIR HAS BEEN MODIFIED, INIT = 0
