*       track PSI common
*
        real psisp(8,npad,nkik),psise(8,npad,nkik)
        real psis2p(8,npad,nkik),psis2e(8,npad,nkik)
        real psisigp(8,npad,nkik),psisige(8,npad,nkik)
	real psiss(8,npad,nkik),psis2s(8,npad,nkik)
	real psisigs(8,npad,nkik)

        COMMON/trpsi/psisp,psise,psis2p,psis2e,psisigp,psisige,
     1		psiss,psis2s,psisigs