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

Unspecified last dimension of dummy variables should be set to "*" not 

to "1", it is formally wrong and causes bounds check to break.
LP


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@6271 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
paulatto 2010-01-08 09:06:20 +00:00
parent afaaad0078
commit e64007042b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
flib/linpack.f90
View File

@ -2,8 +2,8 @@
SUBROUTINE ZGEFA(A,LDA,N,IPVT,INFO)
USE kinds
INTEGER LDA,N,IPVT(1),INFO
COMPLEX(DP) A(LDA,1)
INTEGER LDA,N,IPVT(*),INFO
COMPLEX(DP) A(LDA,*)
!
! ZGEFA FACTORS A COMPLEX(DP) MATRIX BY GAUSSIAN ELIMINATION.
!
@ -115,8 +115,8 @@
SUBROUTINE ZGEDI(A,LDA,N,IPVT,DET,WORK,JOB)
USE kinds
INTEGER LDA,N,IPVT(1),JOB
COMPLEX(DP) A(LDA,1),DET(2),WORK(1)
INTEGER LDA,N,IPVT(*),JOB
COMPLEX(DP) A(LDA,*),DET(2),WORK(*)
!
! ZGEDI COMPUTES THE DETERMINANT AND INVERSE OF A MATRIX
! USING THE FACTORS COMPUTED BY ZGECO OR ZGEFA.