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, & WRITE( stdout, '(5X, &
& "crystal axes: (cart. coord. in units of a_0)",/, & & "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) (at (ipol, apol) , ipol = 1, 3) , apol = 1, 3)
! !
WRITE( stdout, '(5x, & WRITE( stdout, '(5x, &

1
PW/write_ns.f90
View File

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