Commit e37dde81 authored by Matthias Redies's avatar Matthias Redies

one last lop

parent d44bbc29
......@@ -101,7 +101,7 @@ CONTAINS
conv = .true.
delrv = 0.100
inr0 = log(5.0/rnot)/h + 1.5
DO 180 it = 1, itmax
DO it = 1, itmax
DO ispin = 1, input%jspins
!
!----> load potential
......@@ -252,7 +252,7 @@ CONTAINS
vr1(i, ispin) = p1*vr1(i, ispin) + p*vr2(i, ispin)
ENDDO
ENDDO
180 CONTINUE
ENDDO
!
! output
!
......
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