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

Minor format changes 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@6968 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2010-08-15 13:33:44 +00:00
parent 724267f66f
commit 8b448251e8
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PW/summary.f90
View File

@ -169,7 +169,7 @@ SUBROUTINE summary()
!
WRITE( stdout, '(5X, &
& "crystal axes: (cart. coord. in units of a_0)",/, &
& 3(15x,"a(",i1,") = (",3f10.6," ) ",/ ) )') (apol, &
& 3(15x,"a(",i1,") = (",3f11.6," ) ",/ ) )') (apol, &
(at (ipol, apol) , ipol = 1, 3) , apol = 1, 3)
!
WRITE( stdout, '(5x, &

1
PW/write_ns.f90
View File

@ -59,7 +59,6 @@ subroutine write_ns
enddo
call cdiagh(ldim, f, ldmx, lambda, vet)
WRITE( stdout,'("atom ",i4,3x,"spin ",i2)') na, is
WRITE( stdout,'(a,1x,i2,2x,a,1x,i2)') 'atom', na, 'spin', is
WRITE( stdout,'(a,7f10.7)') 'eigenvalues: ',(lambda(m1),m1=1,ldim)
WRITE( stdout,*) 'eigenvectors'
do m2 = 1, ldim