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

small typos in read_data

parent 6690735d

sources/read_data.f90

+5 −2
Original line number Diff line number Diff line
@@ -45,6 +45,9 @@ contains 
    character(len=MAX_LINE_LENGTH) :: cmsg      ! message buffer

    integer                     :: iret    ! return call result



    ! FIXME: 

    integer, parameter     :: max_number_of_missing_phases = 2



    ! data dimensions

    ! FIXME: we have a chaos terminology pixels, bins, ....

    integer                :: no_tchans           ! detector time channels (raw)
@@ -219,8 +222,8 @@ contains 
          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))

             if (nphase<max_number_of_missing_phases) 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, ' point(s), accepting the data')", nphase))

                exit scan_point_do

             end if

             call readdaterrhandler(inunit, 997)