Commit 648941e6 authored by Daniel Wortmann's avatar Daniel Wortmann

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

parents 1f7f7d36 c30964a1
......@@ -386,11 +386,11 @@ c
WRITE (iofile,'(''Bravais lattice vectors'')' )
DO ii = 1, 3
WRITE (iofile,'(43x,3(1x,f9.6))') (bltv(ii,ikc), ikc=1,3)
WRITE (iofile,'(43x,3(1x,f11.6))') (bltv(ii,ikc), ikc=1,3)
ENDDO
WRITE (iofile,'(''reciprocal lattice vectors'')' )
DO ii = 1, 3
WRITE (iofile,'(43x,3(1x,f9.6))' ) (rltv(ii,ikc), ikc=1,3)
WRITE (iofile,'(43x,3(1x,f11.6))' ) (rltv(ii,ikc), ikc=1,3)
ENDDO
!
! ---> nmop(i) are Monkhorst-Pack parameters; they determine the
......
......@@ -54,7 +54,7 @@
nline = nline + 1
READ (infh,'(a)',ERR=911,END=999,IOSTAT=ios) line
LINE = adjustl(line)
WRITE(dbgfh,'("line:",i2,">",a71)') nline,line(1:71)
WRITE(dbgfh,'("line:",i5,">",a71)') nline,line(1:71)
n = SCAN(line,'!') ! remove end of line comments
......
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