From 23fe19ff5c73778268c94c6e98b8ac1a4a9d9894 Mon Sep 17 00:00:00 2001 From: Alberto Otero de la Roza Date: Thu, 14 Mar 2024 10:08:55 +0100 Subject: [PATCH] convert I to A in qe writer --- src/crystalmod@write.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/crystalmod@write.f90 b/src/crystalmod@write.f90 index 3dda3213..f9c7c404 100644 --- a/src/crystalmod@write.f90 +++ b/src/crystalmod@write.f90 @@ -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.,")')