anchor.diff:  c
   c                             Charles A. Williams
   c                       Rensselaer Polytechnic Institute
  -c                        (C) 2004  All Rights Reserved
  +c                        (C) 2005  All Rights Reserved
   c
  -c  Copyright 2004 Rensselaer Polytechnic Institute.
   c  All worldwide rights reserved.  A license to use, copy, modify and
   c  distribute this software for non-commercial research purposes only
   c  is hereby granted, provided that this copyright notice and
  
positive.code:       end
  c
  c version
  c $Id: read_mathist.f,v 1.3 2004/08/25 01:12:48 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c
   70   continue
          call pskip(kr)
          read(kr,*,end=60,err=30) ifam,iprop,imhist
          if(imhist.le.izero.or.imhist.gt.nhist) then
            ierr=100
            errstrng="read_mathist"
            return
          end if
          indprop=ivfamily(5,ifam)
          indpropg=indprop+iprop-ione
          mhist(indpropg)=imhist
          if(idout.gt.izero) write(kw,810,err=50) ifam,iprop,imhist
          go to 70
   60   continue
        close(kr)
  