get_lun, lun filename = 'x' array = FltArr( 2, 21 ) openr, lun, filename readf, lun, array free_lun, lun s = array[0,*] v = array[1,*] plot, s, v