The subroutine REG2
calculates the coefficients of a equalization polynomial of
the 2nd degree after the discrete error square method of Gauss
Note
This module seems to be used nowhere
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer | :: | m | ||||
real(kind=dp), | dimension(*) | :: | x | |||
real(kind=dp), | dimension(*) | :: | f | |||
real(kind=dp), | dimension(*) | :: | w | |||
real(kind=dp), | dimension(*) | :: | c | |||
real(kind=dp) | :: | xm | ||||
real(kind=dp) | :: | fm |