integer dstmin, dstmax
      parameter( dstmin = 0, dstmax = 5 )
      character*6 dsttyp(dstmin:dstmax)
      dsttyp(0) = 'GAUSS0'
      dsttyp(1) = 'GAUSS1'
      dsttyp(2) = 'ALMGUS'
      dsttyp(3) = 'ALMUNI'
      dsttyp(4) = 'UNIFOR'
      dsttyp(5) = 'GAUSS '