      subroutine dummyblas
      return
      end
