mirror of https://gitlab.com/QEF/q-e.git
Define first array bounds, then the array (some compilers may complain)
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@1491 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
69be49757b
commit
388d02aa08
|
@ -768,8 +768,8 @@ SUBROUTINE poolrecover( vec, length, nkstot, nks )
|
|||
!
|
||||
IMPLICIT NONE
|
||||
!
|
||||
REAL (KIND=DP) :: vec(length,nkstot)
|
||||
INTEGER :: length, nks, nkstot
|
||||
REAL (KIND=DP) :: vec(length,nkstot)
|
||||
!
|
||||
#if defined (__PARA)
|
||||
!
|
||||
|
@ -843,8 +843,8 @@ SUBROUTINE ipoolrecover( ivec, length, nkstot, nks )
|
|||
!
|
||||
IMPLICIT NONE
|
||||
!
|
||||
INTEGER :: ivec(length,nkstot)
|
||||
INTEGER :: length, nks, nkstot
|
||||
INTEGER :: ivec(length,nkstot)
|
||||
!
|
||||
#if defined (__PARA)
|
||||
!
|
||||
|
|
Loading…
Reference in New Issue