Lines Matching refs:x
267 subroutine flesDaxpy ( x, y, a, m, n ) argument
271 real*8 x(n,m), y(n,m) local
276 y(i,j) = y(i,j) + a * x(i,j)
287 subroutine flesDxpay ( x, y, a, m, n ) argument
291 real*8 x(n,m), y(n,m) local
296 y(i,j) = a * y(i,j) + x(i,j)
307 subroutine flesInv ( x, m, n ) argument
311 real*8 x(n,m) local
315 if ( x(i,j) .ne. 0 ) x(i,j) = 1. / x(i,j)
328 subroutine fMtxBlkDot2( x, y, c, m, n ) argument
334 real*8 x(n,m), y(n), c(m) local
352 tmp1 = tmp1 + x(i,1) * y(i)
361 tmp1 = tmp1 + x(i,1) * y(i)
362 tmp2 = tmp2 + x(i,2) * y(i)
373 tmp1 = tmp1 + x(i,1) * y(i)
374 tmp2 = tmp2 + x(i,2) * y(i)
375 tmp3 = tmp3 + x(i,3) * y(i)
388 tmp1 = tmp1 + x(i,1) * y(i)
389 tmp2 = tmp2 + x(i,2) * y(i)
390 tmp3 = tmp3 + x(i,3) * y(i)
391 tmp4 = tmp4 + x(i,4) * y(i)
406 tmp1 = tmp1 + x(i,1) * y(i)
407 tmp2 = tmp2 + x(i,2) * y(i)
408 tmp3 = tmp3 + x(i,3) * y(i)
409 tmp4 = tmp4 + x(i,4) * y(i)
410 tmp5 = tmp5 + x(i,5) * y(i)
427 tmp1 = tmp1 + x(i,1) * y(i)
428 tmp2 = tmp2 + x(i,2) * y(i)
429 tmp3 = tmp3 + x(i,3) * y(i)
430 tmp4 = tmp4 + x(i,4) * y(i)
431 tmp5 = tmp5 + x(i,5) * y(i)
432 tmp6 = tmp6 + x(i,6) * y(i)
451 tmp1 = tmp1 + x(i,1) * y(i)
452 tmp2 = tmp2 + x(i,2) * y(i)
453 tmp3 = tmp3 + x(i,3) * y(i)
454 tmp4 = tmp4 + x(i,4) * y(i)
455 tmp5 = tmp5 + x(i,5) * y(i)
456 tmp6 = tmp6 + x(i,6) * y(i)
457 tmp7 = tmp7 + x(i,7) * y(i)
482 tmp1 = tmp1 + x(i,j+0) * y(i)
483 tmp2 = tmp2 + x(i,j+1) * y(i)
484 tmp3 = tmp3 + x(i,j+2) * y(i)
485 tmp4 = tmp4 + x(i,j+3) * y(i)
486 tmp5 = tmp5 + x(i,j+4) * y(i)
487 tmp6 = tmp6 + x(i,j+5) * y(i)
488 tmp7 = tmp7 + x(i,j+6) * y(i)
489 tmp8 = tmp8 + x(i,j+7) * y(i)
510 subroutine fMtxBlkDaxpy( x, y, c, m, n ) argument
516 real*8 x(n,m), y(n), c(m) local
534 1 + tmp1 * x(i,1)
543 1 + tmp1 * x(i,1) + tmp2 * x(i,2)
554 1 + tmp1 * x(i,1) + tmp2 * x(i,2)
555 2 + tmp3 * x(i,3)
566 1 + tmp1 * x(i,1) + tmp2 * x(i,2)
567 2 + tmp3 * x(i,3) + tmp4 * x(i,4)
579 1 + tmp1 * x(i,1) + tmp2 * x(i,2)
580 2 + tmp3 * x(i,3) + tmp4 * x(i,4)
581 3 + tmp5 * x(i,5)
594 1 + tmp1 * x(i,1) + tmp2 * x(i,2)
595 2 + tmp3 * x(i,3) + tmp4 * x(i,4)
596 3 + tmp5 * x(i,5) + tmp6 * x(i,6)
610 1 + tmp1 * x(i,1) + tmp2 * x(i,2)
611 2 + tmp3 * x(i,3) + tmp4 * x(i,4)
612 3 + tmp5 * x(i,5) + tmp6 * x(i,6)
613 4 + tmp7 * x(i,7)
632 1 + tmp1 * x(i,j+0) + tmp2 * x(i,j+1)
633 2 + tmp3 * x(i,j+2) + tmp4 * x(i,j+3)
634 3 + tmp5 * x(i,j+4) + tmp6 * x(i,j+5)
635 4 + tmp7 * x(i,j+6) + tmp8 * x(i,j+7)
648 subroutine fMtxBlkDyeax( x, y, c, m, n ) argument
654 real*8 x(n,m), y(n), c(m) local
672 1 + tmp1 * x(i,1)
681 1 + tmp1 * x(i,1) + tmp2 * x(i,2)
691 1 + tmp1 * x(i,1) + tmp2 * x(i,2)
692 2 + tmp3 * x(i,3)
703 1 + tmp1 * x(i,1) + tmp2 * x(i,2)
704 2 + tmp3 * x(i,3) + tmp4 * x(i,4)
716 1 + tmp1 * x(i,1) + tmp2 * x(i,2)
717 2 + tmp3 * x(i,3) + tmp4 * x(i,4)
718 3 + tmp5 * x(i,5)
731 1 + tmp1 * x(i,1) + tmp2 * x(i,2)
732 2 + tmp3 * x(i,3) + tmp4 * x(i,4)
733 3 + tmp5 * x(i,5) + tmp6 * x(i,6)
747 1 + tmp1 * x(i,1) + tmp2 * x(i,2)
748 2 + tmp3 * x(i,3) + tmp4 * x(i,4)
749 3 + tmp5 * x(i,5) + tmp6 * x(i,6)
750 4 + tmp7 * x(i,7)
775 1 + tmp1 * x(i,j+0) + tmp2 * x(i,j+1)
776 2 + tmp3 * x(i,j+2) + tmp4 * x(i,j+3)
777 3 + tmp5 * x(i,j+4) + tmp6 * x(i,j+5)
778 4 + tmp7 * x(i,j+6) + tmp8 * x(i,j+7)
791 subroutine fMtxBlkDmaxpy( x, y, c, m, n ) argument
797 real*8 x(n,m), y(n), c(m) local
815 1 - tmp1 * x(i,1)
824 1 - tmp1 * x(i,1) - tmp2 * x(i,2)
834 1 - tmp1 * x(i,1) - tmp2 * x(i,2)
835 2 - tmp3 * x(i,3)
846 1 - tmp1 * x(i,1) - tmp2 * x(i,2)
847 2 - tmp3 * x(i,3) - tmp4 * x(i,4)
859 1 - tmp1 * x(i,1) - tmp2 * x(i,2)
860 2 - tmp3 * x(i,3) - tmp4 * x(i,4)
861 3 - tmp5 * x(i,5)
874 1 - tmp1 * x(i,1) - tmp2 * x(i,2)
875 2 - tmp3 * x(i,3) - tmp4 * x(i,4)
876 3 - tmp5 * x(i,5) - tmp6 * x(i,6)
890 1 - tmp1 * x(i,1) - tmp2 * x(i,2)
891 2 - tmp3 * x(i,3) - tmp4 * x(i,4)
892 3 - tmp5 * x(i,5) - tmp6 * x(i,6)
893 4 - tmp7 * x(i,7)
912 1 - tmp1 * x(i,j+0) - tmp2 * x(i,j+1)
913 2 - tmp3 * x(i,j+2) - tmp4 * x(i,j+3)
914 3 - tmp5 * x(i,j+4) - tmp6 * x(i,j+5)
915 4 - tmp7 * x(i,j+6) - tmp8 * x(i,j+7)