Commit beeb2819 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

binWriteF77Block: fix last commit.

parent c7508d8c
......@@ -98,13 +98,13 @@ void binWriteF77Block(int fileID, int byteswap, size_t blocksize)
}
else
{
for (int i = 3; i >= 0; --i) f77block[i] = (unsigned char) (ublocksize >> s[i]);
for (int i = 0; i <= 3; ++i) f77block[3-i] = (unsigned char) (ublocksize >> s[i]);
}
break;
case CDI_LITTLEENDIAN:
if ( byteswap )
{
for (int i = 3; i >= 0; --i) f77block[i] = (unsigned char) (ublocksize >> s[i]);
for (int i = 0; i <= 3; ++i) f77block[3-i] = (unsigned char) (ublocksize >> s[i]);
}
else
{
......
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