diff --git a/eigen/lodpot.f90 b/eigen/lodpot.f90
index a304b4b89779e8e69da006ebb454a2770c6263c8..ecb2025c2d2c5ef4a6a628e927cc7aaad103ec55 100644
--- a/eigen/lodpot.f90
+++ b/eigen/lodpot.f90
@@ -146,9 +146,9 @@ CONTAINS
                       WRITE(attributes(4),'(f16.10)') e_lo
                       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/)))
+                      CALL writeXMLElementForm('atomicEP',(/'atomType      ','spin          ','branch        ',&
+                                                            '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
@@ -311,9 +311,9 @@ CONTAINS
                       WRITE(attributes(4),'(f16.10)') e_lo
                       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/)))
+                      CALL writeXMLElementForm('loAtomicEP',(/'atomType      ','spin          ','branch        ',&
+                                                              '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