c
c  number Year-Month-Judge subclasses (up to 14,000)
c
      parameter (no=25)
      character*12 anim,farm,prev
      integer judgID,pjudg,pyrmo
      integer mcod(30),tr(no),kpar,jdate,bdate,
     x agej,ageg,kcod
      integer nss

      nss=0
      nob=0
      pyrmo=0
      pjudg=0

      open(10,file='TYP05S.d',form='formatted',status='old')
      open(15,file='TYP06.d',form='formatted',status='unknown')
c
 10   read(10,1601,end=88)anim,farm,jdate,bdate,agej,
     x ageg,judgID,kpar,kcod,tr

      nob=nob+1
      iam=0
      ihys=0
      jyrmo=jdate/100
      if(jyrmo.ne.pyrmo.or.judgID.ne.pjudg)then
         nss=nss+1
         pyrmo=jyrmo
         pjudg=judgID
       endif
       write(15,1607)anim,iam,farm,jdate,bdate,agej,
     x ageg,judgID,nss,ihys,kpar,kcod,tr
 1601 format(1x,a12,1x,a12,2i9,2i5,i6,2i3,25i3)
c                13 14  26  44  54 60 66  141
c  -r142  -ka27a7a59a6  yyyymm-judge           
 1607 format(1x,a12,i10,1x,a12,2i9,3i5,2i8,2i3,25i3)
c                13  23 24  36  54  69  85  91  166
c  -r167  -ka25a19  farm-yyyymm 
      go to 10

 88   close(10)
      print *,nob,nss
   
      stop
      end