real*8 time_start_collect(maxR,MaxT_h,Max_Parm),
     &  time_end_collect(maxR,MaxT_h,Max_Parm)
      common /obcinka/ time_start_collect,time_end_collect