Allocate memory to MPI Communication
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(controltype), | intent(in) | :: | control |
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