Lines Matching refs:n
52 subroutine fMtxVdimVecMult( a, b, c, na, nb, nc, m, n ) argument
57 integer na, nb, nc, m, n local
58 real*8 a(n,na), b(n,nb), c(n,nc)
68 do i = 1, n
74 do i = 1, n
81 do i = 1, n
89 do i = 1, n
98 do i = 1, n
113 subroutine flesZero ( a, m, n ) argument
116 integer m, n, i, j local
117 real*8 a(n,m)
119 do i = 1, n
132 subroutine flesCp ( a, b, m, n ) argument
135 integer m, n, i, j local
136 real*8 a(n,m), b(n,m)
138 do i = 1, n
151 subroutine flesScale ( a, s, m, n ) argument
154 integer m, n, i, j local
155 real*8 a(n,m), s
157 do i = 1, n
170 subroutine flesScaleCp ( a, b, s, m, n ) argument
173 integer m, n, i, j local
174 real*8 a(n,m), b(n,m), s
176 do i = 1, n
189 subroutine flesAdd ( a, b, m, n ) argument
192 integer m, n, i, j local
193 real*8 a(n,m), b(n,m)
195 do i = 1, n
208 subroutine flesSub ( a, b, m, n ) argument
211 integer m, n, i, j local
212 real*8 a(n,m), b(n,m)
214 do i = 1, n
227 real*8 function flesDot1 ( a, m, n )
230 integer m, n, i, j local
231 real*8 a(n,m)
234 do i = 1, n
247 real*8 function flesDot2 ( a, b, m, n )
250 integer m, n, i, j local
251 real*8 a(n,m), b(n,m)
254 do i = 1, n
267 subroutine flesDaxpy ( x, y, a, m, n ) argument
270 integer m, n, i, j local
271 real*8 x(n,m), y(n,m)
274 do i = 1, n
287 subroutine flesDxpay ( x, y, a, m, n ) argument
290 integer m, n, i, j local
291 real*8 x(n,m), y(n,m)
294 do i = 1, n
307 subroutine flesInv ( x, m, n ) argument
310 integer m, n, i, j local
311 real*8 x(n,m)
313 do i = 1, n
328 subroutine fMtxBlkDot2( x, y, c, m, n ) argument
333 integer m, n local
334 real*8 x(n,m), y(n), c(m)
351 do i = 1, n
360 do i = 1, n
372 do i = 1, n
387 do i = 1, n
405 do i = 1, n
426 do i = 1, n
450 do i = 1, n
481 do i = 1, n
510 subroutine fMtxBlkDaxpy( x, y, c, m, n ) argument
515 integer m, n local
516 real*8 x(n,m), y(n), c(m)
532 do i = 1, n
541 do i = 1, n
552 do i = 1, n
564 do i = 1, n
577 do i = 1, n
592 do i = 1, n
608 do i = 1, n
630 do i = 1, n
648 subroutine fMtxBlkDyeax( x, y, c, m, n ) argument
653 integer m, n local
654 real*8 x(n,m), y(n), c(m)
670 do i = 1, n
679 do i = 1, n
689 do i = 1, n
701 do i = 1, n
714 do i = 1, n
729 do i = 1, n
745 do i = 1, n
755 do i = 1, n
773 do i = 1, n
791 subroutine fMtxBlkDmaxpy( x, y, c, m, n ) argument
796 integer m, n local
797 real*8 x(n,m), y(n), c(m)
813 do i = 1, n
822 do i = 1, n
832 do i = 1, n
844 do i = 1, n
857 do i = 1, n
872 do i = 1, n
888 do i = 1, n
910 do i = 1, n
928 subroutine fMtxVdimVecCp( a, b, na, nb, m, n ) argument
933 integer na, nb, m, n local
934 real*8 a(n,na), b(n,nb)
942 do i = 1, n
948 do i = 1, n
955 do i = 1, n
963 do i = 1, n
972 do i = 1, n
989 subroutine fMtxVdimVecDot2( a, b, c, na, nb, m, n ) argument
994 integer na, nb, m, n local
995 real*8 a(n,na), b(n,nb), c(m)
1004 do i = 1, n
1012 do i = 1, n
1022 do i = 1, n
1034 do i = 1, n
1045 do i = 1, n
1061 subroutine fMtxVdimVecDaxpy( a, b, c, na, nb, m, n ) argument
1066 integer na, nb, m, n local
1067 real*8 a(n,na), b(n,nb), c(m)
1075 do i = 1, n
1081 do i = 1, n
1088 do i = 1, n
1096 do i = 1, n
1106 do i = 1, n