223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

clearer logic

This commit is contained in:
Martin Diehl 2020-09-08 05:56:01 +02:00
parent 3fdcebc0a0
commit cfad4a71f6
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/base64.f90
View File

@ -112,7 +112,7 @@ pure subroutine decode_base64(bytes,base64_str)
c = 1_pLongInt c = 1_pLongInt
b = 1_pLongInt b = 1_pLongInt
do while(.True.) do while(b <= bytesLen+3_pLongInt .and. c <= base64Len+4_pLongInt)
do p=0_pLongInt,3_pLongInt do p=0_pLongInt,3_pLongInt
if(c+p<=len(base64_str,kind=pLongInt)) then if(c+p<=len(base64_str,kind=pLongInt)) then
charPos(p) = int(merge(index(encoding,base64_str(c+p:c+p))-1, 0, base64_str(c+p:c+p) /= '='),C_SIGNED_CHAR) charPos(p) = int(merge(index(encoding,base64_str(c+p:c+p))-1, 0, base64_str(c+p:c+p) /= '='),C_SIGNED_CHAR)
@ -135,7 +135,6 @@ pure subroutine decode_base64(bytes,base64_str)
endif endif
b = b+3_pLongInt b = b+3_pLongInt
c = c+4_pLongInt c = c+4_pLongInt
if(b>bytesLen+3_pLongInt .or. c > base64Len+4_pLongInt) exit
enddo enddo
end subroutine decode_base64 end subroutine decode_base64