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

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:
giannozz 2004-12-01 14:05:25 +00:00
parent 69be49757b
commit 388d02aa08
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PW/para.f90
View File

@ -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)
!