anchor.diff:  c
   30    continue
           ierr=3
  +        errstrng="read_bc"
           close(kr)
           return
   c
  
positive.code:         read(kr,"(a80)") dummy
          j=index(dummy,"=")
          if(j.eq.0) then
            ierr=2
            return
          end if
        end do
  
negative.code: c     Error codes:
  c         0:  No error
  c         1:  Error opening input file
  c         3:  Read error
  c         5:  Units not specified
  c       104:  BC assigned for nonexistent node
  c
        include "implicit.inc"
  c
  c...  parameter definitions
  c
        include "ndimens.inc"
        include "nconsts.inc"
        include "rconsts.inc"
  c
  c...  subroutine arguments
  c
        integer numnp,numbc,neq,kr,kw,idout,ierr
        integer ibond(ndof,numnp),id(ndof,numnp)
        double precision bond(ndof,numnp)
        double precision dscale,vscale,fscale
        character bcfile*(*),ofile*(*),errstrng*(*)
  c
  c...  included dimension and type statements
  c
        include "labeld_dim.inc"
  c
  c...  local constants
  c
        character ltype(4)*4
        data ltype/'free','disp','velo','forc'/
  