--work;/* Function Body */ret_val =0.;if(*lwork < *n * *n + *n) { xerbla_("DTZT02", &c__7);returnret_val; }/* Quick return if possible */if(*m <=0|| *n <=0) {returnret_val; }/* Q := I */dlaset_("Full", n, n, &c_b5, &c_b6, &work[1], n);/...