comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-28 22:25:32 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Ensure ceiling of size if originated as real value

Browse source
This commit is contained in:
Hans Pabst 2025-10-16 08:35:46 +02:00
parent 0b5980dc4c
commit c09f6e5e3b
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/fm/cp_fm_diag.F
View file

@ -78,7 +78,6 @@ MODULE cp_fm_diag
#include "../base/base_uses.f90"
IMPLICIT NONE
PRIVATE
CHARACTER(len=*), PARAMETER, PRIVATE :: moduleN = 'cp_fm_diag'
@ -500,7 +499,7 @@ CONTAINS
END IF
! Reallocate work arrays and perform diagonalisation
lwork = INT(work(1))
lwork = NINT(work(1))
ALLOCATE (work(lwork))
liwork = iwork(1)
@ -947,7 +946,7 @@ CONTAINS
CALL cp_fm_error("ERROR in PDGESVD: Work space query failed", myinfo, PRESENT(info))
END IF
lwork = INT(work(1))
lwork = NINT(work(1))
ALLOCATE (work(lwork))
CALL pdgesvd('V', 'V', m, m, matrix_lu%local_data, 1, 1, desca, eigval, matrix_eigvl%local_data, &
@ -965,8 +964,7 @@ CONTAINS
CALL cp_fm_error("ERROR in DGESVD: Work space query failed", myinfo, PRESENT(info))
END IF
! SVD
lwork = INT(work(1))
lwork = NINT(work(1))
ALLOCATE (work(lwork))
CALL dgesvd('S', 'S', m, m, matrix_lu%local_data, m, eigval, matrix_eigvl%local_data, &