Commit e37dde81 authored by Matthias Redies's avatar Matthias Redies

one last lop

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