Commit 78945c75 authored by Zolnierczuk, Piotr's avatar Zolnierczuk, Piotr
Browse files

moved const param in read_data to global part

parent a558cb04

sources/read_data.f90

+2 −5
Original line number Diff line number Diff line
@@ -19,8 +19,8 @@ module read_data 
  public check_scan_data, check_magnetic_fields





!!---  integer :: norm_counter = -1 ! use default value



  ! FIXME: 

  integer, parameter     :: max_number_of_missing_phases = 2



contains
@@ -45,9 +45,6 @@ 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)