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

keyword was missing

This commit is contained in:
Martin Diehl 2020-09-08 23:21:45 +02:00
parent 6d42d13321
commit 0368fdafc1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/base64.f90
View File

@ -73,10 +73,10 @@ function base64_to_bytes(base64_str,s,e) result(bytes)
integer(pLongInt) :: s_bytes, e_bytes, s_str, e_str integer(pLongInt) :: s_bytes, e_bytes, s_str, e_str
integer(C_SIGNED_CHAR), dimension(:), allocatable :: bytes integer(C_SIGNED_CHAR), dimension(:), allocatable :: bytes
if(.not. valid_base64(base64_str)) call IO_error(114,'invalid character') if(.not. valid_base64(base64_str)) call IO_error(114,ext_msg='invalid character')
if(present(s)) then if(present(s)) then
if(s<1_pLongInt) call IO_error(114, 's out of range') if(s<1_pLongInt) call IO_error(114, ext_msg='s out of range')
s_str = ((s-1_pLongInt)/3_pLongInt)*4_pLongInt + 1_pLongInt s_str = ((s-1_pLongInt)/3_pLongInt)*4_pLongInt + 1_pLongInt
s_bytes = mod(s-1_pLongInt,3_pLongInt) + 1_pLongInt s_bytes = mod(s-1_pLongInt,3_pLongInt) + 1_pLongInt
else else
@ -85,7 +85,7 @@ function base64_to_bytes(base64_str,s,e) result(bytes)
endif endif
if(present(e)) then if(present(e)) then
if(e>base64_nByte(len(base64_str,kind=pLongInt))) call IO_error(114, 'e out of range') if(e>base64_nByte(len(base64_str,kind=pLongInt))) call IO_error(114, ext_msg='e out of range')
e_str = ((e-1_pLongInt)/3_pLongInt)*4_pLongInt + 4_pLongInt e_str = ((e-1_pLongInt)/3_pLongInt)*4_pLongInt + 4_pLongInt
e_bytes = e e_bytes = e
else else