test_ELPA_NEW.f90 310 Bytes
Newer Older
1 2 3
      program test
      use elpa1
      integer:: ierr,mpi_subcom, myrowblacs, mycolblacs
Uliana Alekseeva's avatar
Uliana Alekseeva committed
4 5
      integer:: mpi_comm_rows,mpi_comm_cols,m,nb,mycolssca
      logical ::ok
6 7 8
      real :: bsca(10,10)
      CALL CHOLESKY_real (m,bsca,SIZE(bsca,1),nb,mycolssca,mpi_comm_rows,mpi_comm_cols,.false.,ok)      
      end