Commit 8542c56d authored by Zolnierczuk, Piotr's avatar Zolnierczuk, Piotr
Browse files

skip masked taus from fitting 

see file: examples/macro_mask_badecho
parent 5e292226

Makefile.version

+1 −1
Original line number Diff line number Diff line
@@ -3,7 +3,7 @@ export PROJECT=drspine 


export VERSION_MAJOR=1

export VERSION_MINOR=4

export VERSION_RELEASE=7

export VERSION_RELEASE=8



export PROJLIB=lib$(PROJECT).a

export PROJARCH=$(PROJECT)-$(VERSION_MAJOR).$(VERSION_MINOR)

examples/macro_mask_badecho

0 → 100644
+15 −0
Original line number Diff line number Diff line 
macro



clear all

bins  pix  nbins  8

bins  tof  custom 4 10 16 23 30 38



datapath /SNS/NSE/IPTS-30242



read s12085.echo as res             !  8A Q=0.070 - Grafoil

read s12111.echo as sam tfac 0.9243 !  8A Q=0.070

match all

fit   res  ! fit resolution data

mask tau set 8 run 12111

fit   sample flag offset

sources/fit_data.f90

+2 −1
Original line number Diff line number Diff line
@@ -59,7 +59,8 @@ contains 
    ref_point => null()

    do iscan=1, data%number_of_points

       sig_point => data%scan_point(iscan)

        call msg_debug('fit_echo_data', msg='fitting tau', point=cpoint(run=sig_point%id, tau=sig_point%point))

       if (sig_point%flag .ne. SCAN_OK) cycle ! skip masked scans

       call msg_debug('fit_echo_data', msg='fitting tau', values=cpoint(run=sig_point%id, tau=sig_point%point))



       if ( associated(sig_point%matching_ref) ) ref_point => sig_point%matching_ref