From b65b4369894946837afb3461021e2fafb6d0c519 Mon Sep 17 00:00:00 2001 From: QuanSheng Wu Date: Sun, 10 Dec 2023 21:18:06 +0800 Subject: [PATCH] fixed a bug in main.f90 by changing the order between asign num_wann and read symmetry --- src/main.f90 | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/src/main.f90 b/src/main.f90 index 7dc9b432..39793df4 100644 --- a/src/main.f90 +++ b/src/main.f90 @@ -76,11 +76,11 @@ program main endif !> readin the control parameters for this program + call now(time_start) call readinput - - !> Check the symmetry operator if Symmetry_Import_calc= T - call symmetry - + call now(time_end) + call print_time_cost(time_start, time_end, 'readinput') + !> set Num_wann from wt.in, Num_wann should be consistent with the hr.dat Num_wann= sum(Origin_cell%nprojs) if (SOC>0) num_wann= 2*num_wann @@ -99,6 +99,13 @@ program main !> dimension for surface green's function Ndim= Num_wann* Np + + !> Check the symmetry operator if Symmetry_Import_calc= T + call now(time_start) + call symmetry + call now(time_end) + call print_time_cost(time_start, time_end, 'symmetry') + if (cpuid==0)then write(stdout,*) ' >> Begin to read Hmn_R.data'