Commit 7530699d authored by Matthias Redies's avatar Matthias Redies

format changes (hopefully temprorary)

parent 69208f45
......@@ -114,7 +114,7 @@ CONTAINS
results%tote = results%tote + results%te_exc
WRITE (6,FMT=8040) results%te_exc
WRITE (16,FMT=8040) results%te_exc
8040 FORMAT (/,10x,'charge density-ex.-corr.energy density integral=', t40,f20.10)
8040 FORMAT (/,10x,'charge density-ex.-corr.energy density integral=', t40,ES20.10)
!
! ---> Fock exchange contribution
!
......
......@@ -45,7 +45,7 @@ CONTAINS
WRITE (6,FMT=8020) tis
WRITE (16,FMT=8020) tis
8020 FORMAT (/,10x,'interstitial :',t40,f20.10)
8020 FORMAT (/,10x,'interstitial :',t40,ES20.10)
RESULT = RESULT + tis
!
......@@ -65,7 +65,7 @@ CONTAINS
ENDDO
WRITE (6,FMT=8030) tmt
WRITE (16,FMT=8030) tmt
8030 FORMAT (/,10x,'muffin tin spheres :',t40,f20.10)
8030 FORMAT (/,10x,'muffin tin spheres :',t40,ES20.10)
RESULT = RESULT + tmt
!
! *********** VACUUM REGION**************
......@@ -99,7 +99,7 @@ CONTAINS
ENDDO
WRITE (6,FMT=8040) tvact
WRITE (16,FMT=8040) tvact
8040 FORMAT (/,10x,'vacuum :',t40,f20.10)
8040 FORMAT (/,10x,'vacuum :',t40,ES20.10)
RESULT = RESULT + tvact
ELSEIF (oneD%odi%d1) THEN
!-odim
......@@ -127,7 +127,7 @@ CONTAINS
tvact = tvact + cell%area*tvac
WRITE (6,FMT=8041) tvact
WRITE (16,FMT=8041) tvact
8041 FORMAT (/,10x,'vacuum :',t40,f20.10)
8041 FORMAT (/,10x,'vacuum :',t40,ES20.10)
RESULT = RESULT + tvact
!+odim
END IF
......
......@@ -181,7 +181,7 @@ CONTAINS
END DO
WRITE (6,FMT=8060) results%te_veff
8060 FORMAT (/,10x,'total density-effective potential integral :', t40,f20.10)
8060 FORMAT (/,10x,'total density-effective potential integral :', t40,ES20.10)
! CALCULATE THE INTEGRAL OF n*exc
......@@ -195,7 +195,7 @@ CONTAINS
CALL int_nv(1,stars,vacuum,atoms,sphhar,cell,sym,input,oneD,exc,workDen,results%te_exc)
WRITE (6,FMT=8080) results%te_exc
8080 FORMAT (/,10x,'total charge density-energy density integral :', t40,f20.10)
8080 FORMAT (/,10x,'total charge density-energy density integral :', t40,ES20.10)
END IF
END IF ! mpi%irank == 0
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment