init Subroutine

private subroutine init(self, npe)

Type Bound

nbprocs_info_t

Arguments

Type IntentOptional Attributes Name
class(nbprocs_info_t) :: self
integer, intent(in) :: npe

Called by

proc~~init~~CalledByGraph proc~init nbprocs_info_t%init proc~initialize_amrvac initialize_amrvac proc~initialize_amrvac->proc~init proc~main main proc~main->proc~initialize_amrvac program~agile agile program~agile->proc~main

Source Code

   subroutine init(self, npe)
     class(nbprocs_info_t)  :: self
     integer, intent(in)   :: npe
     ! .. local ..
     integer               :: i

     allocate(self%nbprocs_srl_list(1), &
          self%srl_nb(1))

     allocate(self%nbprocs_f_list(1), &
          self%fine_nb(1))

     allocate(self%nbprocs_c_list(1), &
          self%course_nb(1))

     allocate(self%ipe_to_inbpe_srl(0:npe-1))
     self%ipe_to_inbpe_srl(:) = -1

     allocate(self%ipe_to_inbpe_f(0:npe-1))
     self%ipe_to_inbpe_f(:) = -1

     allocate(self%ipe_to_inbpe_c(0:npe-1))
     self%ipe_to_inbpe_c(:) = -1

   end subroutine init