c
c  RED02 - number years and contemporary groups
c
      Parameter (ntr=6)
      Character*15 cow,herd,prev
      Character*8  tnam(ntr)
      Integer bdate,cdate,fdate,age,CE,NS,DAYS
      Integer ix(ntr),adis(200)

      tnam(1)='Age Cal '
      tnam(2)='CInt    '
      tnam(3)=' CE  '
      tnam(4)=' NNR '
      tnam(5)=' NS  '
      tnam(6)=' DO  '
c
      adis=0
      prev='               '
      mpar=0
      myr=0
      open(10,file='REP02S.d',form='formatted',status='old')
      open(12,file='REP03.d',form='formatted',status='unknown')
c
      jcg=0
      nin=0
      nout=0
 10   read(10,1207,end=99)cow,bdate,kpar,herd,cdate,iyr,icg,imo,ix
c         -r125
      nin = nin + 1
      if(kpar.ne.mpar)go to 21
c      if(herd.ne.prev)go to 21
      if(iyr.ne.myr)go to 21
 15   jyr=iyr - 2000
      adis(imo)=adis(imo)+1
      img = 1
      if(imo.gt.28)img=2
      if(imo.gt.32)img=3
      if(imo.gt.33)img=4
      if(imo.gt.34)img=5
      if(imo.gt.35)img=6
      if(imo.gt.36)img=7
      if(imo.gt.44)img=8
      if(imo.gt.48)img=9
      if(imo.gt.50)img=10
      if(imo.gt.58)img=11
      adis(img)=adis(img)+1      
      write(12,1207)cow,bdate,kpar,herd,cdate,jyr,jcg,img,ix
 1207 format(1x,a15,i10,i5,a15,i10,i5,i10,i5,6i8)
      nout=nout+1
c                16  26 31  46  56 61  71 76 116
c     -r125  -ka27a20a57a5

      go to 10
 21   jcg=jcg+1
      mpar=kpar
c      prev=herd
      myr=iyr
      go to 15
c
 99   close(10)
      print 3001,nin,nout,jcg
 3001 format(1x,i10,' Records in'/1x,i10,' OUT'/
     x 1x,i10,' PYs ')
c
      print 3007
 3007 format(/10x,'Age Distribution')
      do 55 k=1,20
       if(adis(k).gt.0)then
        print 3009,k,adis(k)
 3009   format(1x,2i10)
        endif
 55   continue
c
      close(12)
      stop
      end