Modifying change in pscfpp group output format, reflecting changes th…

…ere.
dmorse · Aug 18, 2019 · 5174b17 · 5174b17
1 parent 4e54f19
commit 5174b17
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/group_mod.f90 b/src/group_mod.f90
@@ -527,8 +527,8 @@ subroutine output_group(g,iunit,mode_arg)
 
  else if (mode == 2) then
 
- ! Write number of symmetry elements
- write(iunit,FMT="(i9)") g%order
+ write(iunit,FMT="('dim ', i3)") dim
+ write(iunit,FMT="('size ', i3)") g%order
  write(iunit,*)
 
  ! Write symmetry elements