From b2db79c8468b7db47638933e3135e431279850d7 Mon Sep 17 00:00:00 2001 From: ebylaska Date: Sat, 14 Dec 2019 22:31:43 -0800 Subject: [PATCH] ...EJB --- src/nwpw/band/lib/cpsp/cpsp_stress.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/nwpw/band/lib/cpsp/cpsp_stress.F b/src/nwpw/band/lib/cpsp/cpsp_stress.F index a2937c6535..cc7e519ecb 100644 --- a/src/nwpw/band/lib/cpsp/cpsp_stress.F +++ b/src/nwpw/band/lib/cpsp/cpsp_stress.F @@ -642,7 +642,7 @@ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc * **** read in semicore density block **** if (semicore) then - !write(*,*) "reading in semicore block" !debug + !!write(*,*) "reading in semicore block" !debug call C3dB_r_Read(1,5,tmp2,tmp,-1,-1,.true.) call Cram_r_pack(0,tmp2) call Cram_r_Copy(0,tmp2,dncore)