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

More minor format changes 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13387 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2017-03-08 10:43:50 +00:00
parent 4d32c736be
commit 8ce59762d6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PW/src/bp_c_phase.f90
View File

@ -949,8 +949,8 @@ SUBROUTINE c_phase
WRITE( stdout,"(/,11X,'P = ',F11.7,' (mod ',F11.7,') C/m^2')") &
fac*pdl_tot,fac*DBLE(mod_tot)
! --- Write polarization direction ---
WRITE( stdout,"(/,8X,'The polarization direction is: ( ', &
& F7.5,' , ',F7.5,' , ',F7.5,' )')") upol(1),upol(2),upol(3)
WRITE( stdout,"(/,8X,'The polarization direction is: (', &
& F8.5,' ,',F8.5,' ,',F8.5,' )')") upol(1),upol(2),upol(3)
! --- End of information relative to polarization calculation ---
WRITE( stdout,"(/,/,15X,50('=')/,/)")