Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Support
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
A
aderrors
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Alberto Ramos
aderrors
Commits
82c4c57a
Commit
82c4c57a
authored
6 years ago
by
Alberto Ramos
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Solves bug in length of BDIO character strings
parent
b9c2bd4b
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
0 deletions
+5
-0
src/misc/bdio.f90
src/misc/bdio.f90
+5
-0
No files found.
src/misc/bdio.f90
View file @
82c4c57a
...
@@ -1826,6 +1826,7 @@ CONTAINS
...
@@ -1826,6 +1826,7 @@ CONTAINS
Read
(
ptf
%
ifn
)
newr
%
modified
Read
(
ptf
%
ifn
)
newr
%
modified
if
(
.not.
ptf
%
lendian
)
CALL
ByteSwap
(
newr
%
modified
)
if
(
.not.
ptf
%
lendian
)
CALL
ByteSwap
(
newr
%
modified
)
I
=
1
I
=
1
newr
%
cuser
=
''
Do
Do
Read
(
ptf
%
ifn
)
ch
Read
(
ptf
%
ifn
)
ch
If
(
ch
==
char
(
0
))
Exit
If
(
ch
==
char
(
0
))
Exit
...
@@ -1834,6 +1835,7 @@ CONTAINS
...
@@ -1834,6 +1835,7 @@ CONTAINS
End
Do
End
Do
! Write(*,*)'cuser: ', I, Trim(newr%cuser)
! Write(*,*)'cuser: ', I, Trim(newr%cuser)
I
=
1
I
=
1
newr
%
luser
=
''
Do
Do
Inquire
(
ptf
%
ifn
,
Pos
=
newr
%
hlu
)
Inquire
(
ptf
%
ifn
,
Pos
=
newr
%
hlu
)
Read
(
ptf
%
ifn
)
ch
Read
(
ptf
%
ifn
)
ch
...
@@ -1844,6 +1846,7 @@ CONTAINS
...
@@ -1844,6 +1846,7 @@ CONTAINS
newr
%
hlulen
=
I
newr
%
hlulen
=
I
! Write(*,*)'luser: ', I, Trim(newr%luser)
! Write(*,*)'luser: ', I, Trim(newr%luser)
I
=
1
I
=
1
newr
%
chost
=
''
Do
Do
Read
(
ptf
%
ifn
)
ch
Read
(
ptf
%
ifn
)
ch
If
(
ch
==
char
(
0
))
Exit
If
(
ch
==
char
(
0
))
Exit
...
@@ -1852,6 +1855,7 @@ CONTAINS
...
@@ -1852,6 +1855,7 @@ CONTAINS
End
Do
End
Do
! Write(*,*)'chost: ', I, Trim(newr%chost)
! Write(*,*)'chost: ', I, Trim(newr%chost)
I
=
1
I
=
1
newr
%
lhost
=
''
Do
Do
Inquire
(
ptf
%
ifn
,
Pos
=
newr
%
hlh
)
Inquire
(
ptf
%
ifn
,
Pos
=
newr
%
hlh
)
Read
(
ptf
%
ifn
)
ch
Read
(
ptf
%
ifn
)
ch
...
@@ -1862,6 +1866,7 @@ CONTAINS
...
@@ -1862,6 +1866,7 @@ CONTAINS
newr
%
hlhlen
=
I
newr
%
hlhlen
=
I
! Write(*,*)'lhost: ', I, Trim(newr%lhost)
! Write(*,*)'lhost: ', I, Trim(newr%lhost)
I
=
1
I
=
1
newr
%
info
=
''
Do
Do
Read
(
ptf
%
ifn
)
ch
Read
(
ptf
%
ifn
)
ch
If
(
ch
==
char
(
0
))
Exit
If
(
ch
==
char
(
0
))
Exit
...
...
This diff is collapsed.
Click to expand it.
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment