integer function searchlet(let,pos)
      implicit integer(a-z)
      character*13 letterl,letteru
      character*1  let
      data letterl/'abcdefghijklm'/,letteru/'ABCDEFGHIJKLM'/
      searchlet=index(letterl(1:pos),let)+index(letteru(1:pos),let)
      return
      end

      integer function searchnum(num,size,maxprob)
      implicit integer(a-z)
      integer size(*)
      searchnum=0
      do i=1,maxprob
        if(size(i).eq.num)then
          searchnum=i
          go to 1
        endif
      enddo
    1 return
      end