Home | History | Annotate | Download | only in f2c

Lines Matching refs:kplus1

26     integer kplus1;
236 	    kplus1 = *k + 1;
242 			l = kplus1 - j;
251 			    x[j] *= a[kplus1 + j * a_dim1];
263 			l = kplus1 - j;
273 			    x[jx] *= a[kplus1 + j * a_dim1];
335 	    kplus1 = *k + 1;
339 		    l = kplus1 - j;
341 			temp *= a[kplus1 + j * a_dim1];
360 		    l = kplus1 - j;
362 			temp *= a[kplus1 + j * a_dim1];