Commit b23a2792 authored by Zolnierczuk, Piotr's avatar Zolnierczuk, Piotr
Browse files

allowed for fit_flag in get_echo_param 

after offset (not sure if that makes sense)
parent 223996b8

examples/read_add_verify

+3 −3
Original line number Diff line number Diff line
@@ -32,7 +32,7 @@ c ! ==== process runs with predetermined phases 
c ! read HEKS sample data

read s12235.echo as sam

match all

fit sam flag use load heks_phases.dat 

fit run 12235 flag use load heks_phases.dat 

collect to sam_heks_new.dat

dir details
@@ -40,7 +40,7 @@ c ! read HEKS10um sample data 
clear sam

read s12238.echo as sam

match all

fit sam flag use load heks_phases.dat 

fit run 12238 flag use load heks_phases.dat 

collect to sam_heks10um_new.dat

dir details

clear sam
@@ -48,7 +48,7 @@ clear sam 
c ! read HEKS50um sample data

read s12483.echo as sam

match all

fit sam flag use load heks_phases.dat 

fit run 12483 flag use load heks_phases.dat 

collect to sam_heks50um_new.dat

dir details

clear sam

sources/fit_data.f90

+1 −1
Original line number Diff line number Diff line
@@ -92,7 +92,7 @@ contains 
       if ( iand(fit_flag, PHASE_FIT_RESET)  /=0  ) djoffset=0                  ! reset phase offset"

       call get_phase_offset(sig_point, sig_point%matching_ref, djoffset, ierr) ! phase offset get

       if (ierr/=0) return  ! errors are handled by get_phase_offset

       call get_echo_param(sig_point, sig_point%matching_ref, offset=djoffset)  ! redo the extraction using the offset

       call get_echo_param(sig_point, sig_point%matching_ref, flag=fit_flag, offset=djoffset)  ! redo the extraction using the offset



    end do scan_points