scalerのデータをexcelで読む		98/11/17 Y.Sugaya

analyzerが作る、rxxxxxx.scaをからrun numberと64ch scaler
情報のみを抜きだし、一列に出力する。
標準入力出力を使用。

>> excel < r000000.sca > r000000.txt

と言うようにつかう。
あとはcat *.txt > temp.txt
などとして、excelにftpする。


miho:~sugaya/UNIDAQ/anal/ana.gl/excel

ccc program -------------
      character*132 line
      logical first,scaler
      integer iscaler(100)


      first = .true.
      scaler = .false.


 10   read(5,'(a)',end=999)line
      i=1
 20   if(i.ge.122) go to 10
      if(first.and.(line(i:i+9).eq.'RUN NUMBER'))then
         lineend = min0(I+20,132)
         read(line(I+10:lineend),*)nrun
         first = .false.
         go to 10
      end if
      if(.not.first.and.(line(i:i+5).eq.'scaler'))then
         scaler = .true.
         iscalerline = 1
         go to 10
      end if

      if(scaler)then
         iscaler0 = (iscalerline-1)*4+1
         read(line,*)iscaler(iscaler0), iscaler(iscaler0+1), 
     &        iscaler(iscaler0+2), iscaler(iscaler0+3) 
         iscalerline = iscalerline + 1
         go to 10
      end if

      i = i+1
      go to 20

 999  write(*,'(I6,64(",",I16))')nrun,(iscaler(ii),ii=1,64)
      end