Commit 86f21fc2 authored by Zolnierczuk, Piotr's avatar Zolnierczuk, Piotr
Browse files

allow for missing up point

parent fd93b4b2

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=2

export VERSION_RELEASE=1

export VERSION_RELEASE=2



export PROJLIB=lib$(PROJECT).a

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

sources/read_data.f90

+5 −1
Original line number Diff line number Diff line
@@ -216,9 +216,13 @@ contains 
       phase_point_do: do

          nphase = nphase + 1

          if ( nphase .gt. number_of_phases ) exit phase_point_do

!!---          call read_phase_point(iret, scan_point, nphase, norm_counter)

          call read_phase_point(iret, scan_point, nphase, config%norm_counter)

          if(iret.ne.0) then

             nphase  = number_of_phases - nphase + 1 

             if (nphase<=2) then ! FIXME: (paz) HACK - accept if at most two up points at the end of a scan

                call msg_warning('read_echo_data', msg_fmt("('missing: ', i0, ' up points, acceptint the data')", nphase))

                exit scan_point_do

             end if

             call readdaterrhandler(inunit, 997)

             nscan  = nscan - 1

             nphase = nphase - 1