Merge pull request #96 from michele-casula/devel

bug in write_fort10 for 2body Jas fac
sissaschool · Mar 6, 2025 · 3583003 · 3583003
2 parents 518424a + 0ba599c
commit 3583003
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/b_complex/fort10_io.f90 b/src/b_complex/fort10_io.f90
@@ -5839,8 +5839,8 @@ subroutine write_fort10(unit)
         else
         write(unit, *) -1
         endif
-        elseif(abs(iesdr).le.3) then
-        write(unit, *) (vj(i), i = 1, abs(iesdr))
+!        elseif(abs(iesdr).le.3) then
+!        write(unit, *) (vj(i), i = 1, abs(iesdr))
                 else
                 if(symmagp) then
         write(unit, *) abs(niesd),(vj(i), i = 1, abs(niesd))