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

Merge branch 'movefar' into 'develop' 

made format fields larger so that when atoms diffuse long distances the field...

See merge request QEF/q-e!524
This commit is contained in:
giannozz 2019-07-12 09:33:37 +00:00
parent 46cd122da0 1feb6d54ff
commit 6603d83219
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
PW/src/output_tau.f90
View File

@ -97,13 +97,13 @@ SUBROUTINE output_tau( print_lattice, print_final )
!
IF ( ALLOCATED( if_pos ) ) THEN
IF ( ANY( if_pos(:,na) == 0 ) ) THEN
WRITE( stdout,'(A3,3X,3F14.9,1X,3i4)') &
WRITE( stdout,'(A3,3X,3F20.10,1X,3i4)') &
atm(ityp(na)), tau_out(:,na), if_pos(:,na)
ELSE
WRITE( stdout,'(A3,3X,3F14.9)') atm(ityp(na)), tau_out(:,na)
WRITE( stdout,'(A3,3X,3F20.10)') atm(ityp(na)), tau_out(:,na)
END IF
ELSE
WRITE( stdout,'(A3,3X,3F14.9)') atm(ityp(na)), tau_out(:,na)
WRITE( stdout,'(A3,3X,3F20.10)') atm(ityp(na)), tau_out(:,na)
END IF
!
END DO