anchor.diff:       &   nfault,dfault,tfault,numfn,                                    ! split
        &   getshapn,bmatrixn,                                             ! bbar
        &   ierr,errstrng)                                                 ! errcode
  +cdebug        write(6,*) "After formf_ss (1):"
   c
           if(ierr.ne.izero) return
   c
  
positive.code:      &   getshapn,bmatrixn,gload_cmp_ss,elas_strs_cmp_ss,               ! external
       &   elas_strs_mat_cmp_ss,                                          ! external
       &   ierr,errstrng)                                                 ! errcode
  c
          if(ierr.ne.izero) return
  c
  
negative.code:      &   nfault,dfault,tfault,numfn,                                    ! split
       &   getshapb,bmatrixb,                                             ! bbar
       &   ierr,errstrng)                                                 ! errcode
  cdebug        write(6,*) "After formf_ss (2):"
  c
          if(ierr.ne.izero) return
  c
  