subroutine    missing()
      IMPLICIT DOUBLE PRECISION(A-H, O-Z)
      IMPLICIT INTEGER(I-N)

      CHARACTER CHINL*120,CHKF*9,CHVAR(22)*9,CHLIN*72,CHINR*16,
     &CHBLK(20)*72,CHOLD*16,CHTMP*16,CHNEW*16,CHCOM*24

      real          x4
      real*8        x8
      integer       i, idtemp(3)
      character*80  text
      complex       cx, cy, cz
      complex*16    ca16, cb16
      integer       mrpy(10), rrpy(10), chaf, kchg, lfn
      real*8        pmas(10), mwid(10), mdcy(10)
c
      x4 = log10(1.)
      x8 = log10(1.D0)
c
      i = mod(3.,2.)
c
      rewind(1)
c
      text=' '
      call getenv('CERN_ROOT',text)
      call idate(idtemp)
      call itime(idtemp)
c
      cz = log(cy/cx + cx)

      pause 'singular matrix in pyldcm'
      backspace(lfn,err=120,iostat=ierr)
      write(lfn,err=120,iostat=ierr) pmas
 120  continue
      cz = abs(cx)
      ca16 = abs(cb16)
      ca16 = log(cb16)
c
      amp = ap2**0.5d0

      call m1(text)

      if (text.ne.' ') then
        WRITE(6,*) ' NEGATIVE WT IN PYXXZ5 '
      endif

          WRITE(LFN,5000) CHAF,
     &    KCHG,PMAS,MWID(KC),MDCY(KC)

          read(CHTMP,5400) IDIM
          WRITE(CHTMP,5400) IDIM-NRPT+1
        READ(CHLIN,'(I8)') I3
        READ(CHINR,*) RNEW
        WRITE(CHERR,'(I8)') IERR
      stop
      return
          BACKSPACE(5)
      WRITE(LFN,ERR=110,IOSTAT=IERR) MRPY(I1),RRPY(I2)
 110   continue
 5000 FORMAT(1X,I9,2X,A16,2X,A16,3I3,3F12.5,1P,E13.5,2I3)
 5400 FORMAT(I16)
      end



      subroutine m1(title)
      character*(*) title
      title = title//'no nemoe'
      return
      end