c ======================================================================
c
c COMMON block definitions of internal data for ojf_013.
c Use provided interface procedure to access the data.
c Data that cannot be accessed that way are not supposed to be
c used by the user.
c
c ---------------------------------------------------------------------
c       Event [input]:

        DOUBLE PRECISION  ojf_p( 0:6, 1:nparts_max )
        DOUBLE PRECISION  ojf_e( 1:nparts_max ), ojf_e_scale
        INTEGER  ojf_kinematics, ojf_nparts
        LOGICAL  ojf_event_begin, ojf_event_set
c
c The two logical values bracket the event setup:
c FALSE, FALSE -- at start of program, no event has been set up;
c TRUE,  FALSE -- event setup in progress, adding particles;
c FALSE, TRUE  -- event setup completed, can search for jets.

        COMMON /ojf_event/
     &      ojf_p, ojf_e, ojf_e_scale,
     &      ojf_kinematics, ojf_nparts,
     &      ojf_event_begin, ojf_event_set


c ---------------------------------------------------------------------
c       Configuration of jets [output]:

        DOUBLE PRECISION  ojf_Radius
        DOUBLE PRECISION  ojf_z( 0:njets_max, 1:nparts_max )
        DOUBLE PRECISION  ojf_q( 0:12, 1:njets_max )
        DOUBLE PRECISION  ojf_Omega, ojf_Y, ojf_Esoft
        INTEGER  ojf_njets, ojf_seed
        LOGICAL           ojf_b( 0:njets_max, 1:nparts_max )
        LOGICAL  ojf_jets_begin, ojf_jets_set
c
c The two logical values bracket setup of initial jet configuration:
c FALSE, FALSE -- at start of program, or after event set up;
c TRUE,  FALSE -- jets setup in progress, change anything;
c FALSE, TRUE  -- jets setup complete, can do minimization.

        COMMON /ojf_jets/
     &      ojf_Radius,
     &      ojf_z, ojf_q, 
     &      ojf_Omega, ojf_Y, ojf_Esoft,
     &      ojf_njets, ojf_seed, 
     &      ojf_b, ojf_jets_begin, ojf_jets_set

c ---------------------------------------------------------------------
c       Work stuff:

        DOUBLE PRECISION  ojf_z_old( 0:njets_max )
        DOUBLE PRECISION  ojf_pi180, ojf_Radius2
        DOUBLE PRECISION  ojf_q_old( 0:12, 1:njets_max )
        DOUBLE PRECISION  ojf_Omega_old, ojf_Y_old, ojf_Esoft_old
        INTEGER  ojf_max_iter, ojf_random, 
     &      ojf_njets_start, ojf_njets_stop, ojf_ntries
        INTEGER  ojf_a_old, ojf_att_moves, ojf_undone_moves, ojf_iter
        LOGICAL  ojf_trace_nmoved, ojf_ran_lock, ojf_retain
        LOGICAL  ojf_zb_set ( 1:nparts_max )
        LOGICAL  ojf_b_old( 0:njets_max )

        COMMON /ojf_work/
     &      ojf_z_old,
     &      ojf_pi180, ojf_Radius2,
     &      ojf_q_old,
     &      ojf_Omega_old, ojf_Y_old, ojf_Esoft_old, 
     &      ojf_max_iter, ojf_random,
     &      ojf_njets_start, ojf_njets_stop, ojf_ntries,
     &      ojf_a_old, ojf_att_moves, ojf_undone_moves, ojf_iter, 
     &      ojf_trace_nmoved, ojf_ran_lock, ojf_retain, ojf_zb_set,
     &      ojf_b_old

        SAVE /ojf_event/, /ojf_jets/, /ojf_work/

c ======================================================================