* $Id$
      REAL HIPR1, HINT1
      COMMON/HIPARNT/HIPR1(100),IHPR2(50),HINT1(100),IHNT2(50)
#ifndef BLANKET_SAVE
      SAVE  /HIPARNT/
#endif