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)
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
533             y(i) = y(i)
542             y(i) = y(i)
553             y(i) = y(i)
565             y(i) = y(i)
578             y(i) = y(i)
593             y(i) = y(i)
609             y(i) = y(i)
631                 y(i) = y(i)
648         subroutine fMtxBlkDyeax( x, y, c, m, n )  argument
654         real*8  x(n,m), y(n),   c(m)  local
671             y(i) =
680             y(i) =
690             y(i) =
702             y(i) =
715             y(i) =
730             y(i) =
746             y(i) =
756             y(i) = 0
774                 y(i) = y(i)
791        subroutine fMtxBlkDmaxpy( x, y, c, m, n )  argument
797         real*8  x(n,m), y(n),   c(m)  local
814             y(i) = y(i)
823             y(i) = y(i)
833             y(i) = y(i)
845             y(i) = y(i)
858             y(i) = y(i)
873             y(i) = y(i)
889             y(i) = y(i)
911                 y(i) = y(i)