PRO read1
; This program reads ascii data files of voltages from a thermistor string.
  infile="/d4/Darmat/data/thermist/0109/18/thm10918.000"
  buffer=''; buffer for string input
  iread=0; reading number for voltage data from file
  volti=0.; iread-th value of voltage
  varr=fltarr(12,10000); array for voltages from 12 channels
  nchan=12; number of channels sampled
  openr,lun1,infile,/get_lun
  WHILE eof(lun1) eq 0 DO BEGIN
    readf,lun1,buffer
;    print,buffer
    reads,buffer,iread,volti
    isamp=iread/nchan; sample number (0 for first sampling)
    ichan=iread-isamp*nchan
;    print,iread,isamp,ichan,volti
    varr(ichan,isamp)=volti
  ENDWHILE
  print,"iread, isamp = ", iread, isamp
  varr=varr(0:nchan-1,0:isamp-1)
  SAVE
END