libgfortran/generated/matmul_r10.c

91   const GFC_REAL_10 * restrict abase;
237   abase = a->base_addr;
273 		&n, &k,	&one, abase, &lda, bbase, &ldb, &zero, dest,
307       a = abase;
571 		  abase_x = &abase[x*axstride];
589 		s += abase[n*axstride] * bbase_y[n];
604 	    s += abase[n*axstride] * bbase_y[n*bxstride];
619 					abase[x*axstride + n*aystride] *
635 	      abase_x = &abase[x*axstride];
660   const GFC_REAL_10 * restrict abase;
806   abase = a->base_addr;
842 		&n, &k,	&one, abase, &lda, bbase, &ldb, &zero, dest,
876       a = abase;
1140 		  abase_x = &abase[x*axstride];
1158 		s += abase[n*axstride] * bbase_y[n];
1173 	    s += abase[n*axstride] * bbase_y[n*bxstride];
1188 					abase[x*axstride + n*aystride] *
1204 	      abase_x = &abase[x*axstride];
1229   const GFC_REAL_10 * restrict abase;
1375   abase = a->base_addr;
1411 		&n, &k,	&one, abase, &lda, bbase, &ldb, &zero, dest,
1445       a = abase;
1709 		  abase_x = &abase[x*axstride];
1727 		s += abase[n*axstride] * bbase_y[n];
1742 	    s += abase[n*axstride] * bbase_y[n*bxstride];
1757 					abase[x*axstride + n*aystride] *
1773 	      abase_x = &abase[x*axstride];
1812   const GFC_REAL_10 * restrict abase;
1958   abase = a->base_addr;
1994 		&n, &k,	&one, abase, &lda, bbase, &ldb, &zero, dest,
2028       a = abase;
2292 		  abase_x = &abase[x*axstride];
2310 		s += abase[n*axstride] * bbase_y[n];
2325 	    s += abase[n*axstride] * bbase_y[n*bxstride];
2340 					abase[x*axstride + n*aystride] *
2356 	      abase_x = &abase[x*axstride];
2455   const GFC_REAL_10 * restrict abase;
2601   abase = a->base_addr;
2637 		&n, &k,	&one, abase, &lda, bbase, &ldb, &zero, dest,
2671       a = abase;
2935 		  abase_x = &abase[x*axstride];
2953 		s += abase[n*axstride] * bbase_y[n];
2968 	    s += abase[n*axstride] * bbase_y[n*bxstride];
2983 					abase[x*axstride + n*aystride] *
2999 	      abase_x = &abase[x*axstride];