program vaurum
      parameter (n0=8)
      integer li(n0),n(n0)
      character*1 mr,g(n0)
      character*23 cm
      character*80 s
      character*8 ty(n0)
      data ty/' a36_192','  a36_96',' a36_768',' a36_any',' b32_128',
     1        'b64_1024','b64_2048',' c24_32_'/
      data li/       20 ,      204 ,        8 ,      232 ,       32 ,
     1               16 ,        1 ,        5/
      data g /      ' ' ,      'x' ,      ' ' ,      'x' ,      'G' ,
     1              ' ' ,      ' ' ,       'G'/
      data mr/'x'/
      data cm/'ssh aurum.uochb.cas.cz '/
      mr=char(39)
      call system(cm//mr//'squeue'//mr//' > ts')
      n=0
      open(9,file='ts')
1     read(9,80,end=99,err=99)s
  80  format(a80)
      do 2 i=1,50
      do 2 j=1,50
2     if(s(i:i+7).eq.ty(j))n(j)=n(j)+1
      goto 1
99    close(9)
      do 3 i=1,n0
3     write(6,4)ty(i),g(i),n(i),li(i),100.*real(n(i))/real(li(i))
4     format(1x,A8,1x,A1,i4,' of',i4,f10.0,'%')
      end