      subroutine cblas3
      call ctrmm
      call ctrsm
      call csymm
      call csyrk
      call csyr2k
      call cher2k
      call cgemm
      call chemm
      call cherk
      end
