penf_init Subroutine

public subroutine penf_init()

Arguments

None

Calls

proc~~penf_init~7~~CallsGraph proc~penf_init~7 penf_init proc~check_endian~7 check_endian proc~penf_init~7->proc~check_endian~7

Called by

proc~~penf_init~7~~CalledByGraph proc~penf_init~7 penf_init proc~penf_print~7 penf_print proc~penf_print~7->proc~penf_init~7

Contents

Source Code


Source Code

   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