urtabt.fSee urtap.html for anything else but - keyword: - band_response
A Fundamental Band (FB) in the present context comprises tides of degree 2 and orders 0, 1, 2, and tides of degree and order 3.
The complex response parameters in each (selectable) FB are approximated with a complex polynomial.
As a constraint, the first and last response parameters are copied to the FB corners and applied with an upscaled weight
wghtc_band_response
For further investigation, wave group signals can be written to file, e.g. for cross-correlation analysis (*bands_out).
In application, the polynomial is evaluated at the wave-group's pivot frequency, Zp = P(fp).
A partial wave in the same wave-group with frequency f is admitted to the wave-group with a factor P(f) / Zp
tap/t/p/bandfrsps.f
File unit iun_band_response , BIN, read/write, to be included in open-file block.
File unit iun_bands_out , BIN MC, write, to be included in open-file block (analysis stage only).
name |
type |
description |
default |
iun_band_response | - integer - | A negative number signals that the file
and its content are ignored in wave-group construction. This is the case in the analysis stage. |
-76 |
q_band_response |
- logical - |
Do application and/or analysis stage If .true. and iun_band_response > 0, do application. |
.false. |
opt_band_response | - char*8 - |
'S' - skip writing 'R' - re-write iun_band_response 'N' - write to iun_band_response+1 'A' - append iun_band_response |
'A' |
nords_band_response(2,0:3) |
- integer - |
Polynomial order bracket for FB
= 0,1,2,3 (1,FB) ≤ order ≤ (2,FB) |
8*-1 |
qdbg_band_response |
- logical - |
General debug option |
.false. |
qshow_band_response |
- logical - |
Show response tuning in application stage
|
.false. |
wghtc_band_response |
- real*8 - |
Relative inverse weight at the band
corner (a large value down-weights) |
1.0d0 |
nbands_out(200) |
- integer - |
Write these signal bands to BIN mc-file |
200*-1 |
iun_bands_out |
- integer - |
File unit number (skip if <= 0) |
-1 |
label_bands_out |
- char*16 - |
(use only 10 chars!) just an arbitrary
string, first part of label |
'URTAPBT' |