C---- statement function 
      real(kind=qp) quad
      complex(kind=qp) zzz
      quad(zzz)=real(zzz,kind=qp)
C---- end statement function