text: 
        double precision hdiat, pdiat, fdiat
        double precision hdiag, pdiag, fdiag
        double precision fpmediag, fpmediat, fpmediat1, fpmediat2
        double precision bkk1
        double precision rpair, enuclr, eerep
        common /se_glbmat1/ hdiat(mxdiat),pdiat(mxdiat),fdiat(mxdiat),
       $     hdiag(mxdiag),pdiag(mxdiag),fdiag(mxdiag),fpmediag(mxdiag),
       $     fpmediat(mxdiat),fpmediat1(mxdiat),fpmediat2(mxdiat),
       $     bkk1(mxpair),
       $     rpair(mxpair),enuclr(mxpair),eerep(maxrep)
  