C file:wpath.inc

      character     rootp*256
C ***      character     crdbp*256
C ***      character     outp*256
C ***      character     soutp*256
C ***      character     manp*256
C ***      character     cligp*256
C ***      character     windp*256
C ***      character     swindp*256
C ***      character     soilp*256
C ***      character     plotp*256

C ***      common /wpath/
C ***     c  rootp, crdbp, outp, soutp, manp, cligp,
C ***     c  windp, swindp, soilp, plotp
      common /wpath/ rootp