Initialize PENF’s variables that are not initialized into the definition specification.
use penf
call penf_init
print FI1P, BYR4P
subroutine penf_init()
!< Initialize PENF's variables that are not initialized into the definition specification.
!<
!<```fortran
!< use penf
!< call penf_init
!< print FI1P, BYR4P
!<```
!=> 4 <<<
call check_endian
is_initialized = .true.
endsubroutine penf_init