From 4e6f57de75c587144df276eae66f1b9bcfd2839c Mon Sep 17 00:00:00 2001 From: QuanSheng Wu Date: Mon, 24 Jun 2024 21:11:24 +0800 Subject: [PATCH] update --- src/readinput.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/readinput.f90 b/src/readinput.f90 index d7530ecf..ee7e5e2e 100644 --- a/src/readinput.f90 +++ b/src/readinput.f90 @@ -4864,7 +4864,7 @@ subroutine build_map_supercell_primitivecell print *, 'The selected atoms position' do i=1, NumberofSelectedAtoms(1) !ia= Selected_Atoms(1)%iarray(i) - write(*, '(i7, 30f14.6)')ia, pos_cart_sc_all(:, i ), pos_direct_sc_all(:, i ) + write(*, '(i7, 30f14.6)')i, pos_cart_sc_all(:, i ), pos_direct_sc_all(:, i ) enddo print *, 'The reduced atoms position' do ia=1, Nleft