From a1786b2ade0cb07f023dfa44e12230bed952a786 Mon Sep 17 00:00:00 2001 From: Abdallah Ammar Date: Wed, 21 Aug 2024 09:13:25 +0200 Subject: [PATCH] rm print ispin --- src/GT/GTpp_excitation_density.f90 | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/GT/GTpp_excitation_density.f90 b/src/GT/GTpp_excitation_density.f90 index a3be531..05f9c2d 100644 --- a/src/GT/GTpp_excitation_density.f90 +++ b/src/GT/GTpp_excitation_density.f90 @@ -54,8 +54,6 @@ subroutine GTpp_excitation_density(ispin,nBas,nC,nO,nV,nR,nOO,nVV,ERI,X1,Y1,rho1 if(ispin == 1) then - print*, "ispin = ", ispin - !$OMP PARALLEL DEFAULT(NONE) & !$OMP PRIVATE(p, q, a, b, ab, c, d, cd, i, j, ij, k, l, kl) & !$OMP SHARED(nC, nBas, nR, nO, rho1, rho2, ERI, X1, Y1, X2, Y2) @@ -269,8 +267,6 @@ subroutine GTpp_excitation_density(ispin,nBas,nC,nO,nV,nR,nOO,nVV,ERI,X1,Y1,rho1 if(ispin == 3) then - print*, "ispin = ", ispin - dim_1 = (nBas - nO) * (nBas - nO) dim_2 = nO * nO