Lines Matching defs:fMtxBlkDmaxpy
791 subroutine fMtxBlkDmaxpy( x, y, c, m, n ) subroutine
796 integer m, n local
797 real*8 x(n,m), y(n), c(m)
799 real*8 tmp1, tmp2, tmp3, tmp4
800 real*8 tmp5, tmp6, tmp7, tmp8
801 integer i, j, m1
811 1000 continue
819 2000 continue
828 3000 continue
839 4000 continue
851 5000 continue
865 6000 continue
880 7000 continue
899 8000 continue