Add bibliography entry for submatrix method

Additionally, add a missing reference to Richters2018 to matrix_sign_proot.
cp2k · Mar 12, 2020 · a540c23 · a540c23
1 parent 650a7fd
commit a540c23
Show file tree

Hide file tree

Showing 3 changed files with 23 additions and 1 deletion.
diff --git a/src/common/bibliography.F b/src/common/bibliography.F
@@ -87,7 +87,7 @@ MODULE bibliography
                             Grimme2017, Kondov2007, &
                             Ren2011, Ren2013, Cohen2000, Rogers2002, Filippetti2000, Paziani2006, &
                             Toulouse2004, Limpanuparb2011, Martin2003, Yin2017, Goerigk2017, &
-                            Wilhelm2016a, Wilhelm2016b, Wilhelm2017, Wilhelm2018
+                            Wilhelm2016a, Wilhelm2016b, Wilhelm2017, Wilhelm2018, Lass2018
 
 CONTAINS
 
@@ -4422,6 +4422,23 @@ SUBROUTINE add_all_references()
                          "ER"), &
                          DOI="10.1021/acs.jpclett.7b02740")
 
+      CALL add_reference(key=Lass2018, ISI_record=s2a( &
+                         "PT C", &
+                         "AU Lass, M", &
+                         "   Mohr, S", &
+                         "   Wiebeler, H", &
+                         "   Kuehne, TD", &
+                         "   Plessl, C", &
+                         "TI A Massively Parallel Algorithm for the Approximate Calculation of ", &
+                         "   Inverse P-Th Roots of Large Sparse Matrices", &
+                         "SO Proceedings of the Platform for Advanced Scientific Computing (PASC)", &
+                         "   Conference", &
+                         "PY 2018", &
+                         "DI 10.1145/3218176.3218231", &
+                         "PI New York, NY, USA", &
+                         "ER"), &
+                         DOI="10.1145/3218176.3218231")
+
    END SUBROUTINE add_all_references
 
 END MODULE bibliography
diff --git a/src/iterate_matrix.F b/src/iterate_matrix.F
@@ -1010,6 +1010,8 @@ SUBROUTINE matrix_sign_proot(matrix_sign, matrix, threshold, sign_order)
       TYPE(dbcsr_type)                                   :: matrix2, matrix_sqrt, matrix_sqrt_inv, &
                                                             tmp1, tmp2
 
+      CALL cite_reference(Richters2018)
+
       CALL timeset(routineN, handle)
 
       logger => cp_get_default_logger()

diff --git a/src/submatrix_dissection.F b/src/submatrix_dissection.F
@@ -38,6 +38,7 @@
 
 MODULE submatrix_dissection
 
+   USE bibliography, ONLY: Lass2018, cite_reference
    USE dbcsr_api, ONLY: dbcsr_create, dbcsr_distribution_get, dbcsr_distribution_type, dbcsr_finalize, &
                         dbcsr_get_block_p, dbcsr_get_info, dbcsr_get_stored_coordinates, &
                         dbcsr_iterator_blocks_left, dbcsr_iterator_next_block, dbcsr_iterator_start, &
@@ -153,6 +154,8 @@ SUBROUTINE submatrix_dissection_init(this, matrix_p) ! Should be PURE but the it
       LOGICAL                                          :: valid
       REAL(KIND=dp), DIMENSION(:), POINTER             :: blockp
 
+      CALL cite_reference(Lass2018)
+
       this%dbcsr_mat = matrix_p
       CALL dbcsr_get_info(matrix=this%dbcsr_mat, nblkcols_total=this%nblkcols, nblkrows_total=this%nblkrows, &
                           row_blk_size=this%row_blk_size, col_blk_size=this%col_blk_size, group=this%group, distribution=this%dist)