anchor.diff:  c
    20   continue
           ierr=1
  +        errstrng="read_fuldat"
           close(kr)
           return
   c
  
positive.code: c
   30   continue
          ierr=3
          close(kr)
          return
  c
  1000  format(//5x,
  
negative.code: c
  c
        subroutine read_fuldat(iprint,icontr,icode,ncycle,lastep,kr,kw,kp,
       & idout,idsk,fdfile,ofile,pfile,ierr,errstrng)
  c
  c........reads data on time steps where full outputs are desired
  c
  