c
c  Conformation traits, Korean data
c  25 traits 
c  same model for all traits
c  Model:
c    y = Yr-Mo-Judge of Class. date + AgeClass + HYS + Anim + APE + e
c          F                              F       R     R      R   
c
      include 'TThead.f'
      character*12 tnam(no)
      character*12 oid
      real*8 x,z
c
c  read in parameters 
c
      iter=0
      itest = 0
      bayes = 0
      if(bayes.gt.0)then
      open(19,file='ttMi.d',form='unformatted',status='unknown')
      endif
      
      call parms
c
c read in pedigree info
c
      call pedin
c
c  read in data
c
      call datin
c
c  initialize solution vectors
c
c  iterations on equations to solve
c
       mxit=6000
       if(itest.gt.0)mxit=5
 800  iter = iter + 1
      if(iter.gt.mxit)go to 9901
c
      ccn = 0.d0
      ccd = 0.d0
      ccc = 0.d0
c
      call facYMJ
      call facAGE
      call facHYS
      call facAPE
      call facANM
c
      ccc = 100.0*(ccn/ccd)
      if(bayes.gt.0)call facRES
      print 4044,iter,ccc
 4044 format(1x,'ITER ',i6,f20.10)
      if(ccc.gt.0.1d-09)go to 800
c
c  finished, save solutions
c
 9901 continue
      if(bayes.gt.0)then
         close(19)
      else
         call wout
      endif
c     
      stop
      end

      include 'TTparms.f'
      include 'TTpedin.f'
      include 'TTdatin.f'
      include 'TTYMJ.f'
      include 'TTHYS.f'
      include 'TTanm.f'
      include 'TTAge.f'
      include 'TTape.f'
      include 'TToutf.f'     
      include 'TTres.f'
      include 'dkmvhf.f'