penf_init Subroutine

public subroutine penf_init()

Arguments

None

Calls

proc~~penf_init~4~~CallsGraph proc~penf_init~4 penf_init proc~check_endian~4 check_endian proc~penf_init~4->proc~check_endian~4

Called by

proc~~penf_init~4~~CalledByGraph proc~penf_init~4 penf_init proc~penf_print~4 penf_print proc~penf_print~4->proc~penf_init~4

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