anchor.diff:       &   skew,                                                          ! skew
        &   ncodat,nunits,nprint,                                          ! ioinfo
        &   getshapn,bmatrixn,gload_cmp_ss,elas_strs_cmp_ss,               ! external
  -     &   prestr_strs_mat_cmp_ss,                                        ! external
  +     &   elas_strs_mat_cmp_ss,                                          ! external
        &   ierr,errstrng)                                                 ! errcode
   cdebug        write(6,*) "After iterate (1):"
   c
  
positive.code:      &   skew,                                                          ! skew
       &   ncodat,nunits,nprint,                                          ! ioinfo
       &   getshapb,bmatrixb,gload_cmp_ss,elas_strs_cmp_ss,               ! external
       &   prestr_strs_mat_cmp_ss,                                        ! external
       &   ierr,errstrng)                                                 ! errcode
  cdebug        write(6,*) "After iterate (2):"
  c
  
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
  