  i__0 = *ihi;  for (i__ = *ilo; i__ <= i__0; ++i__) {      i__0 = i__ + j * a_dim0;      if (a[i__0].r == 0. && a[i__0].i == 0.) {   goto L000;      }      ++kount;      sum += work[i__ + *n]; L000:      i__0 = i__ + j * b_dim0;      if (b[i__0].r == 0. && b[i__0].i == 0.) {   goto L000;      }      ++kount;      sum += work[i__ + *n]; L000:      