Commit 68306625 authored by Gregor Michalicek's avatar Gregor Michalicek

Removal of another usage of a nonstandard Fortran extension

parent 4acf2392
......@@ -220,7 +220,7 @@ MODULE m_corespec_eval
write(*,'(a,i5,3f8.4)') "ui",0,sum1,sum2,sum1+sum2
write(60,*) ""
csv%occ(iljc) = dble(occ((nc-1)**2+csi%edgeidx(iljc),jspin))
csv%occ(iljc) = dble(occ((csv%nc-1)**2+csi%edgeidx(iljc),jspin))
write(*,"(a,2(a,i2),a,f3.1,2(a,i2),a,f16.8,a)") trim(smeno)//ssep,&
&"core state: iljc = ",iljc,&
&", nc = ",nint(nc),&
......
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