From 4f3f218e3e6c3cd2f75ec3d826380c57287b4d2d Mon Sep 17 00:00:00 2001 From: giannozz Date: Thu, 16 Jul 2009 06:26:03 +0000 Subject: [PATCH] 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 --- PW/data_structure.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/PW/data_structure.f90 b/PW/data_structure.f90 index d586437a4..c8c0d88ec 100644 --- a/PW/data_structure.f90 +++ b/PW/data_structure.f90 @@ -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