subr mvload_read, name
 ;called by the file_read routine when it found that it has read a 3-D array
 ;note that the file is already read
 $mv_label = name
 name_divide, name, pre, ext
 ;also try to read standard times and notes
 xtpopup, readcube_widget()
 xmtextfieldsetstring, $mvload_filenamewidgets(0), pre
 xmtextfieldsetstring, $mvload_filenamewidgets(1), ext
 xmtextfieldsetstring, $mvload_filenamewidgets(2), '.times'
 xmtextfieldsetstring, $mvload_filenamewidgets(3), '.notes'
 if !read_file_class eq 7 then mvload_symarr else {
  nt = get_nt($data15)
  fakemovietimes, nt
  ;10/10/2001 - read the notes and times after defining the needed variables
  ;or we have lots of trouble !
  read_movie_times, pre + '.times'
  read_movie_notes, pre + '.notes'
 }
 cube_scale_setup
 ;;xtpopup, mvget_widget()
 endsubr
 ;========================================================