anchor.diff:        double precision shj(nsd+1,nenmax,ngaussmax,netypes)
         double precision skew(nskdim,numnp)
   c
  +c...  included dimension and type statements
  +c
  +      include "rtimdat_dim.inc"
  +      include "rgiter_dim.inc"
  +      include "ntimdat_dim.inc"
  +c
   c...  intrinsic functions
   c
         intrinsic mod
  
positive.code:      & numelt,nconsz,                                                   ! elemnt
       & prop,infmat,nprop,matgpt,elas_strs,td_strs,                      ! materl
       & gauss,sh,shj,infetype,                                           ! eltype
       & skew,numrot,                                                     ! skew
       & getshape,bmatrix,                                                ! bbar
       & ierr,errstrng)                                                   ! errcode
  
negative.code:       end
  c
  c version
  c $Id: elas_strs_cmp_ss.f,v 1.6 2004/06/24 20:09:47 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  