use_8bytes_int Function

public function use_8bytes_int() bind(c, name='__use_8bytes_int')

This function is used to know if the library is compiled using integer 8 or 4 bytes long.

Arguments

None

Return Value logical(kind=c_bool)


Contents

Source Code

use_8bytes_int

Source Code

    function use_8bytes_int() bind(c, name='__use_8bytes_int')
        !! This function is used to know if the library is
        !! compiled using integer 8 or 4 bytes long.
        logical(kind=c_bool) :: use_8bytes_int

#ifdef USE_I8
        use_8bytes_int = .true.
#else
        use_8bytes_int = .false.
#endif
    end function use_8bytes_int