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