* $Id$
      REAL R, D, FNORM, W
      COMMON/WOOD_HIJING/R,D,FNORM,W
#ifndef BLANKET_SAVE
      SAVE  /WOOD_HIJING/
#endif