* $Id$
      REAL P, V
      COMMON/LUJETS_HIJING/N,K(9000,5),P(9000,5),V(9000,5)
#ifndef BLANKET_SAVE
      SAVE /LUJETS_HIJING/ 
#endif