From 5d9f55b4d413b34a2f1d76fcd98ba1c3e57b7347 Mon Sep 17 00:00:00 2001 From: William Dawson Date: Mon, 6 Dec 2021 19:34:11 +0900 Subject: [PATCH] Removed testing line --- Source/Fortran/FermiOperatorModule.F90 | 1 - 1 file changed, 1 deletion(-) diff --git a/Source/Fortran/FermiOperatorModule.F90 b/Source/Fortran/FermiOperatorModule.F90 index 61f52cac..7acfcfbb 100644 --- a/Source/Fortran/FermiOperatorModule.F90 +++ b/Source/Fortran/FermiOperatorModule.F90 @@ -123,7 +123,6 @@ SUBROUTINE ComputeDenseFOE(H, ISQ, nel, K, inv_temp_in, & ELSE sval = tlist%DATA(II)%point_value - chemical_potential occ = 1.0 / (1 + EXP(inv_temp * sval)) - WRITE(*,*) II, occ energy_value = energy_value + occ * tlist%DATA(II)%point_value tlist%DATA(II)%point_value = occ END IF