Skip to content

Commit

Permalink
applied the linter
Browse files Browse the repository at this point in the history
  • Loading branch information
kousuke-nakano committed Jun 27, 2024
1 parent c2e6153 commit 880f8ce
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/a_makefort10/makefort10.f90
Original file line number Diff line number Diff line change
Expand Up @@ -1463,8 +1463,8 @@ subroutine write_fort10
do i1 = 1, ntotatoms
zetaw = zeta(1, i1)
! K.N. on 27 June. 2024. Why .ge. 5? because for zeta .le. 4., there are pseudo potentials that
! do not remove any core electrons. In such a case, zeta and zetaw should be different to tell
! turborvb that valence electrons = atomic number for that atom, but a pseudo potential is assgined.
! do not remove any core electrons. In such a case, zeta and zetaw should be different to tell
! turborvb that valence electrons = atomic number for that atom, but a pseudo potential is assgined.
if ((int(zeta(1, i1)) .ge. 5) .or. nopseudo) then
zetaw = int(zeta(1, i1))
end if
Expand Down

0 comments on commit 880f8ce

Please sign in to comment.