You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
599 B
27 lines
599 B
subroutine mprove(a,alud,n,indx,b,x)
|
|
c--- Adapted from Numerical Recipes
|
|
c--- (extension to complex b)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
integer n,indx(n)
|
|
real(dp):: a(n,n),alud(n,n)
|
|
complex(dp):: b(n),x(n),sdp,r(n),rout(n)
|
|
CU USES zlubksb
|
|
integer i,j
|
|
|
|
do i=1,n
|
|
sdp=-b(i)
|
|
do j=1,n
|
|
sdp=sdp+a(i,j)*x(j)
|
|
enddo
|
|
r(i)=sdp
|
|
enddo
|
|
call zlubksb(alud,n,indx,r,rout)
|
|
do i=1,n
|
|
x(i)=x(i)-rout(i)
|
|
enddo
|
|
|
|
return
|
|
end
|
|
|
|
|