b64_init Subroutine

public subroutine b64_init()

Arguments

None

Calls

proc~~b64_init~2~~CallsGraph proc~b64_init~2 b64_init proc~penf_init penf_init proc~b64_init~2->proc~penf_init proc~check_endian check_endian proc~penf_init->proc~check_endian

Contents

Source Code


Source Code

   subroutine b64_init()
   !< Initialize the BeFoR64 library.
   !<
   !< @note This procedure **must** be called before encoding/decoding anything!
   !<
   !<```fortran
   !< use befor64
   !< call b64_init
   !< print "(L1)", is_b64_initialized
   !<```
   !=> T <<<

   if (.not.is_initialized) call penf_init
   is_b64_initialized = .true.
   endsubroutine b64_init