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

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

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