Solves bug in length of BDIO character strings

src/misc/bdio.f90

@@ -1826,6 +1826,7 @@ CONTAINS
          Read(ptf%ifn)newr%modified
          if (.not.ptf%lendian) CALL ByteSwap(newr%modified)
          I=1
+         newr%cuser=''
          Do
             Read(ptf%ifn)ch
             If (ch == char(0)) Exit
@@ -1834,6 +1835,7 @@ CONTAINS
          End Do
 !         Write(*,*)'cuser: ', I, Trim(newr%cuser)
          I=1
+         newr%luser=''
          Do
             Inquire(ptf%ifn,Pos=newr%hlu)
             Read(ptf%ifn)ch
@@ -1844,6 +1846,7 @@ CONTAINS
          newr%hlulen=I
 !         Write(*,*)'luser: ', I, Trim(newr%luser)
          I=1
+         newr%chost=''
          Do
             Read(ptf%ifn)ch
             If (ch == char(0)) Exit
@@ -1852,6 +1855,7 @@ CONTAINS
          End Do
 !         Write(*,*)'chost: ', I, Trim(newr%chost)
          I=1
+         newr%lhost=''
          Do
             Inquire(ptf%ifn,Pos=newr%hlh)
             Read(ptf%ifn)ch
@@ -1862,6 +1866,7 @@ CONTAINS
          newr%hlhlen=I
 !         Write(*,*)'lhost: ', I, Trim(newr%lhost)
          I=1
+         newr%info=''
          Do
             Read(ptf%ifn)ch
             If (ch == char(0)) Exit