Commit 2437cb7a authored by Daniel Wortmann's avatar Daniel Wortmann
Browse files

Added defaults in wrtdop for nicer reading of charge/potential with older versions

parent 4fc4fa9b
......@@ -34,6 +34,12 @@
! .. Intrinsic Functions ..
! ..
!Defaults, as the character arrays are no longer used, we should
!write some defaults for old fleur-versions
name =' '
dop ='in/out '
iop ='char/pot'
WRITE (nu) name
! WRITE (6,FMT=8000) name
8000 FORMAT (' wrtdop title:',10a8)
Supports Markdown
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