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

format increased to deal with > 1000 processors 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@5691 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2009-07-16 06:26:03 +00:00
parent f1864ffe69
commit 4f3f218e3e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PW/data_structure.f90
View File

@ -241,7 +241,7 @@ subroutine data_structure( lgamma )
& "Proc/ planes cols G planes cols G columns G"/5X, &
& "Pool (dense grid) (smooth grid) (wavefct grid)")')
do i=1,nproc_pool
WRITE( stdout,'(5x,i3,2x,2(i5,i7,i9),i7,i9)') i, dfftp%npp(i), ncp(i), ngp(i), &
WRITE( stdout,'(5x,i4,1x,2(i5,i7,i9),i7,i9)') i, dfftp%npp(i), ncp(i), ngp(i), &
& dffts%npp(i), ncps(i), ngps(i), nkcp(i), ngkp(i)
end do
IF ( nproc_pool > 1 ) THEN