anchor.diff:  c     Bbar selective integration.
   c
         include "implicit.inc"
  +c
  +c...  dimension parameters
  +c
         include "nshape.inc"
   c
   c...  subroutine arguments
  
positive.code:       end
  c
  c version
  c $Id: getshapb.f,v 1.1 2004/04/14 21:18:30 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c...  local variables
  c
  cdebug      integer idb,jdb
        integer l
        double precision xs(3,3)
  c
  c...compute shape function derivatives over number of strain integration
  