Lines Matching refs:aa
1 subroutine ludcmp(aa,n,np,indx,d) argument
11 dimension aa(np,np), indx(n), vv(500)
17 if (abs(aa(i,j)).gt.aamax) aamax=abs(aa(i,j))
24 sum=aa(i,j)
26 sum=sum-aa(i,k)*aa(k,j)
28 aa(i,j)=sum
32 sum=aa(i,j)
34 sum=sum-aa(i,k)*aa(k,j)
36 aa(i,j)=sum
45 dum=aa(imax,k)
46 aa(imax,k)=aa(j,k)
47 aa(j,k)=dum
54 dum=1.0/aa(j,j)
56 aa(i,j)=aa(i,j)*dum