Skip to content

GitLab

fleur
fleur
Commit 7049ea68 authored by Gregor Michalicek's avatar Gregor Michalicek
Browse files
Options

Corrected typos in output of energy parameters

parent 9100ebcf
Show whitespace changes
Inline Side-by-side
Showing with 6 additions and 6 deletions
eigen/lodpot.f90
View file @ 7049ea68
......@@ -147,8 +147,8 @@ CONTAINS
WRITE(attributes(5),'(f16.10)') e_up
WRITE(attributes(6),'(f16.10)') e
CALL writeXMLElementForm('atomicEP',(/'atomType ','spin ','branch ',&
'branchLowest ','branchHeighes','value '/),&
attributes,reshape((/10,4,6,12,13,5,6,1,3,16,16,16/),(/6,2/)))
'branchLowest ','branchHeighest','value '/),&
attributes,reshape((/10,4,6,12,14,5,6,1,3,16,16,16/),(/6,2/)))
WRITE(6,'(a6,i3,i2,a1,a12,f6.2,a3,f6.2,a13,f8.4)') ' Atom',n,nqn(l),ch(l),' branch from',e_lo, ' to',e_up,' htr. ; e_l =',e
ENDIF
IF( l .EQ. 3 ) THEN
......@@ -312,8 +312,8 @@ CONTAINS
WRITE(attributes(5),'(f16.10)') e_up
WRITE(attributes(6),'(f16.10)') e
CALL writeXMLElementForm('loAtomicEP',(/'atomType ','spin ','branch ',&
'branchLowest ','branchHeighes','value '/),&
attributes,reshape((/8,4,6,12,13,5,6,1,3,16,16,16/),(/6,2/)))
'branchLowest ','branchHeighest','value '/),&
attributes,reshape((/8,4,6,12,14,5,6,1,3,16,16,16/),(/6,2/)))
WRITE(6,'(a6,i3,i2,a1,a12,f6.2,a3,f6.2,a13,f8.4)') ' Atom',n,nqn_lo(ilo),ch(l),' branch from', e_lo,' to',e_up,' htr. ; e_l =',e
ENDIF
......
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