MODULE share
        USE nrtype
        IMPLICIT NONE
        CHARACTER(120) :: obs_sp_file
        REAL(DP), DIMENSION(:), ALLOCATABLE :: w_sp, f_sp, f_sp_norm, f_model, cont, weights
        REAL(DP), DIMENSION(:), ALLOCATABLE :: wave_ll,ele_ll,ew,damp_coeff,disp
        REAL(DP), DIMENSION(:), ALLOCATABLE :: wave_rej,rad_rej,sn_var
        REAL(DP), DIMENSION(:,:), ALLOCATABLE :: coeff_4deg,coeff_4deg_quick
        INTEGER(I2B) :: dimsp,dim_ll,dim_rej,n_weig
        INTEGER(I1B) :: dim_ele,dim_ele_dy
        INTEGER(I1B), DIMENSION(:), ALLOCATABLE :: ele2meas,ele2write
        INTEGER(I2B), DIMENSION(:), ALLOCATABLE :: rad_pix
        REAL(DP), DIMENSION(5) :: TGM
        REAL(DP), DIMENSION(:), ALLOCATABLE :: ABD,up_ABD,lo_ABD,ABD_old,residABD
        REAL(DP) :: sn,sigma,fwhm,norm_rad
        REAL(DP) :: temp_infS, temp_supS, logg_infS, logg_supS, met_infS, met_supS
        REAL(DP), DIMENSION(3) :: TGM_prox
        LOGICAL, DIMENSION(:), ALLOCATABLE :: select_ll_mask,cosmic_mask
        LOGICAL(LGT), DIMENSION(5) :: TGM_mask
        LOGICAL(LGT) :: convABD,convTGM
END MODULE share