convert I to A in qe writer

aoterodelaroza · Mar 14, 2024 · 23fe19f · 23fe19f
1 parent 628d7a5
commit 23fe19f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/[email protected] b/src/[email protected]
@@ -1289,8 +1289,8 @@ module subroutine write_espresso(c,file,rklength,ti)
     write (lu,'("/")')
     write (lu,'("&system")')
     write (lu,'(" ibrav=0,")')
-    write (lu,'(" nat=",I6,",")') c%ncel
-    write (lu,'(" ntyp=",I3,",")') c%nspc
+    write (lu,'(" nat=",A,",")') string(c%ncel)
+    write (lu,'(" ntyp=",A,",")') string(c%nspc)
     write (lu,'(" ecutwfc=60.0,")')
     write (lu,'(" ecutrho=600.0,")')
     write (lu,'(" xdm=.true.,")')