c
c  match master pedigree file with data file
c   trim pedigrees down to essential animals
c
      parameter(nam=6000000)

      character*12 ia,is,id
      character*12 prev,blnk
      character*3 isex
      integer ayy,amm,add,syy,smm,sdd,dyy,dmm,ddd
      integer bdate
c
c  read in PED0A.d
c
      blnk='            '
      mam=0
      open(10,file='PED0A.d',form='formatted',status='old')
      open(15,file='Ped00.d',form='formatted',status='unknown')

 10   read(10,1010,end=50)ia,ayy,amm,add,isex,is,syy,smm,sdd,
     x id,dyy,dmm,ddd
 1010 format(a12,3x,i4,1x,i2,1x,i2,1x,a3,1x,a12,3x,
     x i4,1x,i2,1x,i2,2x,a12,3x,i4,1x,i2,1x,i2)
      mam = mam + 1
c      if(mam.gt.3)go to 50
c      print *,ia,ayy,amm,add,syy,smm,sdd,dyy,dmm,ddd,is,id
      bdate = ayy*10000+(amm*100)+add
      write(15,1505)ia,bdate,isex,is,id
      mam = mam + 1
      bdate = syy*10000+(smm*100)+sdd
      isex = ' M '
      if(is.ne.'            ')then
         write(15,1505)is,bdate,isex,blnk,blnk
         mam=mam+1
       endif
      isex = ' F '
      bdate = dyy*10000 + (dmm*100)+ddd
      if(id.ne.blnk)then
          write(15,1505)id,bdate,isex,blnk,blnk
          mam = mam + 1
          endif
 1505 format(1x,a12,1x,i9,a3,1x,a12,1x,a12)
c   -r        1  13 14 23 26 27 39  40 52
c   -r53 -ka2a12a28a12
      go to 10
c
 50   print *,mam,' Pedigrees out'
      close(15)
      close(10)
      stop
      end