* $Id$
      REAL R, D, FNORM, W
      COMMON/WOOD_HIJING/R,D,FNORM,W
      SAVE  /WOOD_HIJING/