mirror of
https://code.it4i.cz/sccs/easyconfigs-it4i.git
synced 2025-04-17 04:00:49 +01:00
33 lines
889 B
Fortran
33 lines
889 B
Fortran
scr(it+abc)=scr(it+abc)/(fa(i,i)+fb(j,j)+fb(k,k)
|
|
&-fa(a+nal,a+nal)-fb(b+nbe,b+nbe)-fb(c+nbe,c+nbe))
|
|
|
|
enddo
|
|
enddo
|
|
enddo
|
|
C$OMP END PARALLEL DO
|
|
|
|
tmp=ddot(nval*nvbe*(nvbe-1)/2,scr(it+1),1,scr(iw+1),1)
|
|
et=et+tmp
|
|
if(qscale) ets=ets+tmp*(tscalea(i)+tscaleb(j)+tscaleb(k))
|
|
c if(qscale) ets=ets+tmp*(epab(i,j)+epab(i,k)+epbb(j,k))
|
|
call managerestart('w','(t)2',-1,scr,scr,scr,et,scr,scr,scr,
|
|
& scr,scr,icurrent,0,0,0,0,ets,-1)
|
|
|
|
enddo
|
|
enddo
|
|
c Monitoring percentage
|
|
pr=pr+nbe*(nbe-1)/2
|
|
if ((dble(pr).ge.dble(prold)+0.1d0*dble(total)).and.pr.ne.total)
|
|
&then
|
|
write(iout,"(i4,'% done.')") int(100.d0*dble(pr)/dble(total))
|
|
prold=pr
|
|
endif
|
|
|
|
enddo
|
|
close(16)
|
|
close(17)
|
|
close(20)
|
|
|
|
return
|
|
end
|