Commit 5b9e1250 authored by Daniel Wortmann's avatar Daniel Wortmann

Merge branch 'develop' of fleur-git:fleur into develop

parents b57dbf6a d28b8734
......@@ -49,12 +49,13 @@
INTEGER ios,istep0, binSize, maxBinSize
INTEGER locBinDim(3), secondAtom(natin)
INTEGER binDim(3), iBin(3)
INTEGER trIndices(natin)
CHARACTER(len=30) :: filen
REAL posr(3,natin),rtau(3),tr(3),disp(3,natin)
REAL ttau(3,nop48),trs(3,natin)
REAL eps7
REAL trVecs(3,natin), trIndices(natin)
REAL trVecs(3,natin)
LOGICAL lnew,lclose, foundOne, boundary(3)
LOGICAL l_exist
......
......@@ -60,7 +60,7 @@ c----------------------------------------------------------------------
+ .OR. icorr.EQ.icorr_hseloc .OR. icorr.EQ.icorr_vhse ) THEN
uk=0.8040
ELSE
WRITE(6,'(//'' icorr error. icorr='',i5)'),icorr
WRITE(6,'(//'' icorr error. icorr='',i5)') icorr
CALL judft_error("icorr is not correctly transferred",
+ calledby="exchpbe.F")
ENDIF
......
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