penf_init Subroutine

public subroutine penf_init()

Arguments

None

Calls

proc~~penf_init~6~~CallsGraph proc~penf_init~6 penf_init proc~check_endian~6 check_endian proc~penf_init~6->proc~check_endian~6

Called by

proc~~penf_init~6~~CalledByGraph proc~penf_init~6 penf_init proc~penf_print~6 penf_print proc~penf_print~6->proc~penf_init~6

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