anchor.diff:        end
   c
   c version
  -c $Id: autoprestr.f,v 1.1 2005/01/17 21:23:07 willic3 Exp $
  +c $Id: autoprestr.f,v 1.2 2005/01/18 17:51:45 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code: clater     &   skew,                                                          ! skew
  clater     &   ncodat,nunits,nprint,                                          ! ioinfo
  clater     &   getshapb,bmatrixb,gload_cmp_ld,elas_strs_cmp_ld,               ! external
  clater     &   prestr_strs_mat_cmp_ld,                                        ! external
  clater     &   ierr,errstrng)                                                 ! errcode
  c
  clater        if(ierr.ne.izero) return
  
negative.code: clater     &   skew,                                                          ! skew
  clater     &   ncodat,nunits,nprint,                                          ! ioinfo
  clater     &   getshapn,bmatrixn,gload_cmp_ld,elas_strs_cmp_ld,               ! external
  clater     &   elas_strs_mat_cmp_ld,                                          ! external
  clater     &   ierr,errstrng)                                                 ! errcode
  c
  clater        if(ierr.ne.izero) return
  