c234567
      write(47,'(8e10.2)')srb,ubpm,wbpm,yspm(l,m12/2),yspm(lbar,m12/2)

