Searched refs:l_coulomb (Results 1 – 2 of 2) sorted by relevance
170 LOGICAL :: check, l_coulomb, l_exchange, l_lrc local174 l_coulomb = .FALSE.177 IF (PRESENT(coulomb)) l_coulomb = coulomb180 IF (l_coulomb) THEN186 check = (.NOT. l_coulomb) .AND. (.NOT. l_lrc)191 check = (.NOT. l_coulomb) .AND. (.NOT. l_exchange)