Modify subroutine writeeigenvectors of print=compact

cmsi · Aug 12, 2021 · 7b9215c · 7b9215c
1 parent 73f6eaf
commit 7b9215c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/fileio.F90 b/src/fileio.F90
@@ -1616,7 +1616,7 @@ subroutine writeeigenvector(cmo,eigen,itype,datajob,datamol,databasis,datacomp)
  endif
  endif
  enddo
- write(datacomp%iout,'(3x,"MO:",i5,5x,"Energy:",f10.5)') jj, eigen(jj)
+ write(datacomp%iout,'(3x,"MO:",i5,3x,"Energy:",f12.5)') jj, eigen(jj)
  do ll= 1,mocount/2
  kk = mosave(2*(ll-1)+1)
  kk2= mosave(2*ll)