subroutine sclims(iims)
c this routine takes the ims settings that are in iims and replaces
c it with an index from 1 to 32.
c written by r.c.olsen 2/4/82
      integer iims(32),imsh(32)
      integer lkuims(2,32),evken(32)
      common/scale/lkuims,
     *        /keneng/evken
c the values contained in lkuims (lookup-ims) array are ims settings
c      these values are loaded into lkuims by a call to sclim2
c
c let's do the lookup
c
      do 4000 j=1,32
      iims(j)=j
 4000 continue
      return
c
      entry sclim2(imsh,ibad)
      ibad = 0
      do 1010 k=1,32
      vims=imsh(k)*0.54932
c      type *, 'sclim2:imsh, vims = ', imsh(k), vims
c      if vims is not 1-50, there is trouble
c      check for this, and on error, exit with ibad=1, and
c          in main (imstgs) do not plot frame, but go ahead and plot data
      if( (vims.lt.50.).or.(vims.gt.3000) ) ibad=1
      if(ibad.eq.1) return
      mmsh = (8100./vims) + 0.5
      mmsl = ((2025./vims)+0.5)
      if( (mmsl.lt.0).or.(mmsl.gt.15) ) ibad=1
      if(ibad.eq.1) return
      evken(k)=vims+0.5
      lkuims(1,k)=mmsl
1010  lkuims(2,k)=mmsh
c      type *, 'sclim2:lkuims(1,k) = ', (lkuims(1,iii), iii = 1,32)
c      type *, 'sclim2:lkuims(2,k) = ', (lkuims(2,iii), iii = 1,32)
c      type *, ' '
      return 
      end