Lines Matching refs:j
16 do j=1,n
17 if (abs(aa(i,j)).gt.aamax) aamax=abs(aa(i,j))
22 do j=1,n
23 do i=1,j-1
24 sum=aa(i,j)
26 sum=sum-aa(i,k)*aa(k,j)
28 aa(i,j)=sum
31 do i=j,n
32 sum=aa(i,j)
33 do k=1,j-1
34 sum=sum-aa(i,k)*aa(k,j)
36 aa(i,j)=sum
43 if (j.ne.imax) then
46 aa(imax,k)=aa(j,k)
47 aa(j,k)=dum
50 vv(imax)=vv(j)
52 indx(j)=imax
53 if(j.ne.n)then
54 dum=1.0/aa(j,j)
55 do i=j+1,n
56 aa(i,j)=aa(i,j)*dum