* $Id$
        REAL BB, B1, PHI, Z1
        COMMON/PACT_HIJING/BB,B1,PHI,Z1
        SAVE  /PACT_HIJING/