Commit c3221bec authored by Nick R. Papior's avatar Nick R. Papior
Browse files

mnt: typos in atom.F

parent 490d2d89
......@@ -1958,13 +1958,13 @@ C
rc=rofi(nrc)
if (rc.lt.0.5d0) then
write(6,"('KBproj: WARNING: Rc(',i2,')=',f12.4)")l,rc
write(6,"('KBproj: WARNING: Rc(',i0,')=',f12.4)")l,rc
write(6,"(2a)") 'KBproj: WARNING: ',
. 'Cut of radius for the KB projector too small'
. 'Cut off radius for the KB projector too small'
elseif(rc.gt.4.5d0) then
write(6,"('KBproj: WARNING: Rc(',i2,')=',f12.4)")l,rc
write(6,"('KBproj: WARNING: Rc(',i0,')=',f12.4)")l,rc
write(6,"(2a)") 'KBproj: WARNING: ',
. 'Cut of radius for the KB projector too big'
. 'Cut off radius for the KB projector too big'
write(6,"(2a)") 'KBproj: WARNING: ',
. 'Increasing the tolerance parameter eps'
write(6,"(a)") 'KBproj: WARNING: might be a good idea'
......@@ -3162,7 +3162,7 @@ C
enddo
enddo
write(6,'(/,a, i4)')
.'KBgen: Total number of Kleinman-Bylander projectors: ', nkb
.'KBgen: Total number of Kleinman-Bylander projectors: ', nkb
C
end subroutine KBgen
!
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment