27     integer i__, j, l, ix, jx, kx, info;  in ctbmv_()  local
253 			for (i__ = max(i__2,i__3); i__ <= i__4; ++i__) {  in ctbmv_()
254 			    i__2 = i__;  in ctbmv_()
255 			    i__3 = i__;  in ctbmv_()
256 			    i__5 = l + i__ + j * a_dim1;  in ctbmv_()
290 			for (i__ = max(i__4,i__2); i__ <= i__3; ++i__) {  in ctbmv_()
293 			    i__5 = l + i__ + j * a_dim1;  in ctbmv_()
331 			for (i__ = min(i__1,i__3); i__ >= i__4; --i__) {  in ctbmv_()
332 			    i__1 = i__;  in ctbmv_()
333 			    i__3 = i__;  in ctbmv_()
334 			    i__2 = l + i__ + j * a_dim1;  in ctbmv_()
368 			for (i__ = min(i__4,i__1); i__ >= i__3; --i__) {  in ctbmv_()
371 			    i__2 = l + i__ + j * a_dim1;  in ctbmv_()
421 			for (i__ = j - 1; i__ >= i__3; --i__) {  in ctbmv_()
422 			    i__4 = l + i__ + j * a_dim1;  in ctbmv_()
423 			    i__1 = i__;  in ctbmv_()
443 			for (i__ = j - 1; i__ >= i__3; --i__) {  in ctbmv_()
444 			    r_cnjg(&q__3, &a[l + i__ + j * a_dim1]);  in ctbmv_()
445 			    i__4 = i__;  in ctbmv_()
479 			for (i__ = j - 1; i__ >= i__3; --i__) {  in ctbmv_()
480 			    i__4 = l + i__ + j * a_dim1;  in ctbmv_()
502 			for (i__ = j - 1; i__ >= i__3; --i__) {  in ctbmv_()
503 			    r_cnjg(&q__3, &a[l + i__ + j * a_dim1]);  in ctbmv_()
539 			for (i__ = j + 1; i__ <= i__4; ++i__) {  in ctbmv_()
540 			    i__1 = l + i__ + j * a_dim1;  in ctbmv_()
541 			    i__2 = i__;  in ctbmv_()
561 			for (i__ = j + 1; i__ <= i__4; ++i__) {  in ctbmv_()
562 			    r_cnjg(&q__3, &a[l + i__ + j * a_dim1]);  in ctbmv_()
563 			    i__1 = i__;  in ctbmv_()
597 			for (i__ = j + 1; i__ <= i__4; ++i__) {  in ctbmv_()
598 			    i__1 = l + i__ + j * a_dim1;  in ctbmv_()
620 			for (i__ = j + 1; i__ <= i__4; ++i__) {  in ctbmv_()
621 			    r_cnjg(&q__3, &a[l + i__ + j * a_dim1]);  in ctbmv_()