allocate_memory Subroutine

private subroutine allocate_memory(control)

Allocate memory to MPI Communication

Arguments

Type IntentOptional AttributesName
type(controltype), intent(in) :: control

Calls

proc~~allocate_memory~~CallsGraph proc~allocate_memory allocate_memory interface~alloc alloc proc~allocate_memory->interface~alloc proc~alloc_rank2_real alloc_rank2_real interface~alloc->proc~alloc_rank2_real proc~alloc_rank4_real alloc_rank4_real interface~alloc->proc~alloc_rank4_real proc~alloc_rank3_real alloc_rank3_real interface~alloc->proc~alloc_rank3_real proc~alloc_rank2_integer alloc_rank2_integer interface~alloc->proc~alloc_rank2_integer proc~alloc_rank1_integer alloc_rank1_integer interface~alloc->proc~alloc_rank1_integer proc~alloc_rank6_real alloc_rank6_real interface~alloc->proc~alloc_rank6_real proc~alloc_rank5_real alloc_rank5_real interface~alloc->proc~alloc_rank5_real proc~alloc_rank3_integer alloc_rank3_integer interface~alloc->proc~alloc_rank3_integer proc~alloc_rank1_real alloc_rank1_real interface~alloc->proc~alloc_rank1_real

Called by

proc~~allocate_memory~~CalledByGraph proc~allocate_memory allocate_memory proc~setup_resnorm setup_resnorm proc~setup_resnorm->proc~allocate_memory proc~setup_solver setup_solver proc~setup_solver->proc~setup_resnorm proc~start_run start_run proc~start_run->proc~setup_solver program~main main program~main->proc~start_run

Contents

Source Code


Source Code

    subroutine allocate_memory(control)
      !< Allocate memory to MPI Communication
      implicit none
      type(controltype), intent(in) :: control
      call alloc(Res_abs  , 0,control%n_var)
      call alloc(Res_rel  , 0,control%n_var)
      call alloc(Res_scale, 0,control%n_var)
      call alloc(Res_save , 0,control%n_var)
      call alloc(buffer   , 1,(control%n_var+1)*control%total_process)
    end subroutine allocate_memory