call tests(12Hmb018 passed,10)
      stop
      end
      subroutine tests(string,n)
      integer string(n/4+1)
      write(6,10) string(1), string(2),string(3)
10    format(' ' , 3a4)
      return
      end