real    pl,pn
      integer ita,isf1,isf2,isf3,ire
      double precision qfor,q2bin,ffnuc,un,qn
      integer          nqbin,nndummy

      common/tail/un,pl,pn,qn,ita,isf1,isf2,isf3,ire
      COMMON /FORCOM/ QFOR,Q2BIN,NQBIN,nndummy,FFNUC(600)