subroutine sblas3
      call sgemm
      call strmm
      call strsm
      call ssymm
      call ssyrk
      call ssyr2k
      end