program_startup_s.F90 Source File

! Copyright (c), The Regents of the University of California
! Terms of use are as specified in LICENSE.txt
submodule(prif:prif_private_s) program_startup_s
  implicit none
contains

  module procedure prif_init
    logical, save :: prif_init_called_previously = .false.

    if (prif_init_called_previously) then
       stat = PRIF_STAT_ALREADY_INIT
    else
       call caf_caffeinate( &
          initial_team%heap_mspace, &
          initial_team%heap_start, &
          initial_team%heap_size, &
          non_symmetric_heap_mspace, &
          initial_team%gex_team)
       current_team%info => initial_team
       initial_team%parent_team => initial_team
       initial_team%team_number = -1
       initial_team%this_image = caf_this_image(initial_team%gex_team)
       initial_team%num_images = caf_num_images(initial_team%gex_team)
       prif_init_called_previously = .true.
       stat = 0
    end if
  end procedure

end submodule program_startup_s