real*8          theta
      integer                  nrk,nrc,nrm,nrt,noi,nt
      common /ddata/  theta(3),nrk,nrc,nrm,nrt,noi,nt