* $Id$
        REAL BB, B1, PHI, Z1
        COMMON/PACT_HIJING/BB,B1,PHI,Z1
#ifndef BLANKET_SAVE
        SAVE  /PACT_HIJING/
#endif