anchor.diff:  c
   c...  subroutine arguments
   c
  -      integer ipstrs,numsn,numnp,nstep,lgdefp,kto
  +      integer ipstrs,numsn,numnp,nstep,lgdefp,ierr
         integer idslp(numsn),ipslp(npdim,numsn)
         double precision x(nsd,numnp),d(ndof,numnp),skew(nskdim,numnp)
  +      character errstrng*(*)
   c
   c...  intrinsic functions
   c
  
positive.code:       if(numsn.eq.ifour) nd=ifour
        if(numsn.eq.ithree) nd=ithree
        if(numsn.lt.ithree) then
          write(kto,*) 'Not enough points to define a plane in skcomp!'
          stop
        end if
        ncvm=ithree
        ldtmp=lgdefp
  
negative.code:       end do
  c*      write(17,720)
  c*      call flush(17)
  710   format(i6,5(2x,1pe12.5))
  720   format(///)
        return
        end
  c
  c version
  c $Id: skcomp.f,v 1.3 2004/07/13 16:40:58 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  