This module contains ROHSA subrtoutine
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=xp), | intent(in), | dimension(:,:,:), allocatable | :: | data | initial fits data |
|
real(kind=xp), | intent(in), | dimension(:,:), allocatable | :: | std_cube | standard deviation map fo the cube is given by the user |
|
character(len=512), | intent(in) | :: | fileout | name of the output result |
||
integer | :: | n_gauss | number of gaussian to fit |
|||
integer, | intent(in) | :: | n_gauss_add | number of gaussian to add at each step |
||
real(kind=xp), | intent(in) | :: | lambda_amp | lambda for amplitude parameter |
||
real(kind=xp), | intent(in) | :: | lambda_mu | lamnda for mean position parameter |
||
real(kind=xp), | intent(in) | :: | lambda_sig | lambda for dispersion parameter |
||
real(kind=xp), | intent(in) | :: | lambda_var_amp | lambda for amp dispersion parameter |
||
real(kind=xp), | intent(in) | :: | lambda_var_mu | lambda for mean position dispersion parameter |
||
real(kind=xp), | intent(in) | :: | lambda_var_sig | lambda for variance dispersion parameter |
||
real(kind=xp), | intent(in) | :: | amp_fact_init | times max amplitude of additional Gaussian |
||
real(kind=xp), | intent(in) | :: | sig_init | dispersion of additional Gaussian |
||
integer, | intent(in) | :: | maxiter_init | max iteration for L-BFGS-B alogorithm (init mean spectrum) |
||
integer, | intent(in) | :: | maxiter | max iteration for L-BFGS-B alogorithm |
||
integer, | intent(in) | :: | m | number of corrections used in the limited memory matrix by LBFGS-B |
||
logical, | intent(in) | :: | noise | if false --> STD map computed by ROHSA with lstd and ustd (if true given by the user) |
||
logical, | intent(in) | :: | regul | if true --> activate regulation |
||
logical, | intent(in) | :: | descent | if true --> activate hierarchical descent to initiate the optimization |
||
integer, | intent(in) | :: | lstd | lower bound to compute the standard deviation map of the cube (if noise .eq. false) |
||
integer, | intent(in) | :: | ustd | upper bound to compute the standrad deviation map of the cube (if noise .eq. false) |
||
character(len=8), | intent(in) | :: | init_option | Init ROHSA with the mean or the std spectrum |
||
integer, | intent(in) | :: | iprint | print option |
||
integer, | intent(in) | :: | iprint_init | print option init |