Solve surface green's function: method: decimation technique input: ml,m0,mr - complex rectangular matrices output: x - result, matrix of same type as before
Note
NEW VERSION (speeded up) by V.Bellini (march,1999)
S o l v e
s u r f a c e
g r e e n ' s
f u n c t i o n :
\ ( f ( x ) = m l ( m 0 - x ) ^ { ( - 1 ) * m r } \ )
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | ndim | |||
complex(kind=dp), | intent(in), | dimension (ndim, ndim) | :: | ml | ||
complex(kind=dp), | intent(in), | dimension (ndim, ndim) | :: | m0 | ||
complex(kind=dp), | intent(in), | dimension (ndim, ndim) | :: | mr | ||
complex(kind=dp), | intent(out), | dimension (ndim, ndim) | :: | x | ||
integer, | intent(in) | :: | itermax | |||
real(kind=dp), | intent(in) | :: | errmax | |||
integer, | intent(in) | :: | ichck |