scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix LAXlib/ptoolkit.f90

This commit is contained in:
Oscar Baseggio 2021-11-10 11:53:17 +01:00
parent 430bff52a2
commit 52dc2dfa99
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LAXlib/ptoolkit.f90
View File

@ -1182,6 +1182,7 @@ SUBROUTINE laxlib_dsqmsym_x( n, a, lda, idesc )
INTEGER, INTENT(IN) :: idesc(LAX_DESC_SIZE)
!! laxlib descriptor
!
TYPE(la_descriptor) :: desc
#if defined __MPI
INTEGER :: istatus( MPI_STATUS_SIZE )
#endif
@ -5023,7 +5024,6 @@ SUBROUTINE laxlib_pdpotrf_x( sll, ldx, n, idesc )
REAL(DP) :: sll( ldx, ldx )
!! matrix sll
REAL(DP) :: one, zero
REAL(DP) :: sll( ldx, ldx )
integer :: myrow, mycol, ierr
integer :: jb, info, ib, kb
integer :: jnr, jir, jic, jnc