!-------------------------
     ! read attribute (integer)
     !-------------------------
     call h5aopen_by_name_f(f_id, '/', 'Number of Along Track Bins', a_id, err1)
     if( err1.lt.0 ) then
       write(*, *) '#### Error in h5aopen_by_name_f()'
       stop
     endif
     call h5tcopy_f(h5t_std_i32le, m_id, err1)
     if( err1.lt.0 ) then
       write(*, *) '#### Error in h5tcopy_f()'
       stop
     endif
     call h5aread_f(a_id, m_id, nscan, dim1, err1)
     if( err1.lt.0 ) then
       write(*, *) '#### Error in h5aread_f()'
       stop
     endif
     write(*, *) nscan