Commit 6d8bd8fa authored by Govoni's avatar Govoni
Browse files

Moved ICHAR.

parent a92b1fe1
......@@ -20,8 +20,6 @@ module base64_module
!
SAVE
!
INTEGER :: ICHAR
!
INTERFACE
!
SUBROUTINE base64_init() BIND(C, NAME="b64init")
......@@ -80,6 +78,7 @@ module base64_module
!
LOGICAL FUNCTION islittleendian( )
IMPLICIT NONE
INTEGER :: ICHAR
islittleendian = (.NOT.( ICHAR( TRANSFER(1,'a') ) == 0 ))
END FUNCTION
!
......
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