assign_allocatable_R8P_7D Subroutine

private subroutine assign_allocatable_R8P_7D(lhs, rhs, file_unit, msg, verbose)

Arguments

Type IntentOptional Attributes Name
real(kind=R8P), intent(inout), allocatable :: lhs(:,:,:,:,:,:,:)
real(kind=R8P), intent(in), allocatable :: rhs(:,:,:,:,:,:,:)
integer(kind=I4P), intent(in), optional :: file_unit
character(len=*), intent(in), optional :: msg
logical, intent(in), optional :: verbose

Calls

proc~~assign_allocatable_r8p_7d~2~~CallsGraph proc~assign_allocatable_r8p_7d~2 assign_allocatable_R8P_7D interface~allocate_variable~2 allocate_variable proc~assign_allocatable_r8p_7d~2->interface~allocate_variable~2 proc~alloc_var_i1p_1d~2 alloc_var_I1P_1D interface~allocate_variable~2->proc~alloc_var_i1p_1d~2 proc~alloc_var_i1p_2d~2 alloc_var_I1P_2D interface~allocate_variable~2->proc~alloc_var_i1p_2d~2 proc~alloc_var_i1p_3d~2 alloc_var_I1P_3D interface~allocate_variable~2->proc~alloc_var_i1p_3d~2 proc~alloc_var_i1p_4d~2 alloc_var_I1P_4D interface~allocate_variable~2->proc~alloc_var_i1p_4d~2 proc~alloc_var_i1p_5d~2 alloc_var_I1P_5D interface~allocate_variable~2->proc~alloc_var_i1p_5d~2 proc~alloc_var_i1p_6d~2 alloc_var_I1P_6D interface~allocate_variable~2->proc~alloc_var_i1p_6d~2 proc~alloc_var_i1p_7d~2 alloc_var_I1P_7D interface~allocate_variable~2->proc~alloc_var_i1p_7d~2 proc~alloc_var_i2p_1d~2 alloc_var_I2P_1D interface~allocate_variable~2->proc~alloc_var_i2p_1d~2 proc~alloc_var_i2p_2d~2 alloc_var_I2P_2D interface~allocate_variable~2->proc~alloc_var_i2p_2d~2 proc~alloc_var_i2p_3d~2 alloc_var_I2P_3D interface~allocate_variable~2->proc~alloc_var_i2p_3d~2 proc~alloc_var_i2p_4d~2 alloc_var_I2P_4D interface~allocate_variable~2->proc~alloc_var_i2p_4d~2 proc~alloc_var_i2p_5d~2 alloc_var_I2P_5D interface~allocate_variable~2->proc~alloc_var_i2p_5d~2 proc~alloc_var_i2p_6d~2 alloc_var_I2P_6D interface~allocate_variable~2->proc~alloc_var_i2p_6d~2 proc~alloc_var_i2p_7d~2 alloc_var_I2P_7D interface~allocate_variable~2->proc~alloc_var_i2p_7d~2 proc~alloc_var_i4p_1d~2 alloc_var_I4P_1D interface~allocate_variable~2->proc~alloc_var_i4p_1d~2 proc~alloc_var_i4p_2d~2 alloc_var_I4P_2D interface~allocate_variable~2->proc~alloc_var_i4p_2d~2 proc~alloc_var_i4p_3d~2 alloc_var_I4P_3D interface~allocate_variable~2->proc~alloc_var_i4p_3d~2 proc~alloc_var_i4p_4d~2 alloc_var_I4P_4D interface~allocate_variable~2->proc~alloc_var_i4p_4d~2 proc~alloc_var_i4p_5d~2 alloc_var_I4P_5D interface~allocate_variable~2->proc~alloc_var_i4p_5d~2 proc~alloc_var_i4p_6d~2 alloc_var_I4P_6D interface~allocate_variable~2->proc~alloc_var_i4p_6d~2 proc~alloc_var_i4p_7d~2 alloc_var_I4P_7D interface~allocate_variable~2->proc~alloc_var_i4p_7d~2 proc~alloc_var_i8p_1d~2 alloc_var_I8P_1D interface~allocate_variable~2->proc~alloc_var_i8p_1d~2 proc~alloc_var_i8p_2d~2 alloc_var_I8P_2D interface~allocate_variable~2->proc~alloc_var_i8p_2d~2 proc~alloc_var_i8p_3d~2 alloc_var_I8P_3D interface~allocate_variable~2->proc~alloc_var_i8p_3d~2 proc~alloc_var_i8p_4d~2 alloc_var_I8P_4D interface~allocate_variable~2->proc~alloc_var_i8p_4d~2 proc~alloc_var_i8p_5d~2 alloc_var_I8P_5D interface~allocate_variable~2->proc~alloc_var_i8p_5d~2 proc~alloc_var_i8p_6d~2 alloc_var_I8P_6D interface~allocate_variable~2->proc~alloc_var_i8p_6d~2 proc~alloc_var_i8p_7d~2 alloc_var_I8P_7D interface~allocate_variable~2->proc~alloc_var_i8p_7d~2 proc~alloc_var_r4p_1d~2 alloc_var_R4P_1D interface~allocate_variable~2->proc~alloc_var_r4p_1d~2 proc~alloc_var_r4p_2d~2 alloc_var_R4P_2D interface~allocate_variable~2->proc~alloc_var_r4p_2d~2 proc~alloc_var_r4p_3d~2 alloc_var_R4P_3D interface~allocate_variable~2->proc~alloc_var_r4p_3d~2 proc~alloc_var_r4p_4d~2 alloc_var_R4P_4D interface~allocate_variable~2->proc~alloc_var_r4p_4d~2 proc~alloc_var_r4p_5d~2 alloc_var_R4P_5D interface~allocate_variable~2->proc~alloc_var_r4p_5d~2 proc~alloc_var_r4p_6d~2 alloc_var_R4P_6D interface~allocate_variable~2->proc~alloc_var_r4p_6d~2 proc~alloc_var_r4p_7d~2 alloc_var_R4P_7D interface~allocate_variable~2->proc~alloc_var_r4p_7d~2 proc~alloc_var_r8p_1d~2 alloc_var_R8P_1D interface~allocate_variable~2->proc~alloc_var_r8p_1d~2 proc~alloc_var_r8p_2d~2 alloc_var_R8P_2D interface~allocate_variable~2->proc~alloc_var_r8p_2d~2 proc~alloc_var_r8p_3d~2 alloc_var_R8P_3D interface~allocate_variable~2->proc~alloc_var_r8p_3d~2 proc~alloc_var_r8p_4d~2 alloc_var_R8P_4D interface~allocate_variable~2->proc~alloc_var_r8p_4d~2 proc~alloc_var_r8p_5d~2 alloc_var_R8P_5D interface~allocate_variable~2->proc~alloc_var_r8p_5d~2 proc~alloc_var_r8p_6d~2 alloc_var_R8P_6D interface~allocate_variable~2->proc~alloc_var_r8p_6d~2 proc~alloc_var_r8p_7d~2 alloc_var_R8P_7D interface~allocate_variable~2->proc~alloc_var_r8p_7d~2 interface~str str proc~alloc_var_i1p_1d~2->interface~str proc~get_memory_info~2 get_memory_info proc~alloc_var_i1p_1d~2->proc~get_memory_info~2 proc~alloc_var_i1p_2d~2->interface~str proc~alloc_var_i1p_2d~2->proc~get_memory_info~2 proc~alloc_var_i1p_3d~2->interface~str proc~alloc_var_i1p_3d~2->proc~get_memory_info~2 proc~alloc_var_i1p_4d~2->interface~str proc~alloc_var_i1p_4d~2->proc~get_memory_info~2 proc~alloc_var_i1p_5d~2->interface~str proc~alloc_var_i1p_5d~2->proc~get_memory_info~2 proc~alloc_var_i1p_6d~2->interface~str proc~alloc_var_i1p_6d~2->proc~get_memory_info~2 proc~alloc_var_i1p_7d~2->interface~str proc~alloc_var_i1p_7d~2->proc~get_memory_info~2 proc~alloc_var_i2p_1d~2->interface~str proc~alloc_var_i2p_1d~2->proc~get_memory_info~2 proc~alloc_var_i2p_2d~2->interface~str proc~alloc_var_i2p_2d~2->proc~get_memory_info~2 proc~alloc_var_i2p_3d~2->interface~str proc~alloc_var_i2p_3d~2->proc~get_memory_info~2 proc~alloc_var_i2p_4d~2->interface~str proc~alloc_var_i2p_4d~2->proc~get_memory_info~2 proc~alloc_var_i2p_5d~2->interface~str proc~alloc_var_i2p_5d~2->proc~get_memory_info~2 proc~alloc_var_i2p_6d~2->interface~str proc~alloc_var_i2p_6d~2->proc~get_memory_info~2 proc~alloc_var_i2p_7d~2->interface~str proc~alloc_var_i2p_7d~2->proc~get_memory_info~2 proc~alloc_var_i4p_1d~2->interface~str proc~alloc_var_i4p_1d~2->proc~get_memory_info~2 proc~alloc_var_i4p_2d~2->interface~str proc~alloc_var_i4p_2d~2->proc~get_memory_info~2 proc~alloc_var_i4p_3d~2->interface~str proc~alloc_var_i4p_3d~2->proc~get_memory_info~2 proc~alloc_var_i4p_4d~2->interface~str proc~alloc_var_i4p_4d~2->proc~get_memory_info~2 proc~alloc_var_i4p_5d~2->interface~str proc~alloc_var_i4p_5d~2->proc~get_memory_info~2 proc~alloc_var_i4p_6d~2->interface~str proc~alloc_var_i4p_6d~2->proc~get_memory_info~2 proc~alloc_var_i4p_7d~2->interface~str proc~alloc_var_i4p_7d~2->proc~get_memory_info~2 proc~alloc_var_i8p_1d~2->interface~str proc~alloc_var_i8p_1d~2->proc~get_memory_info~2 proc~alloc_var_i8p_2d~2->interface~str proc~alloc_var_i8p_2d~2->proc~get_memory_info~2 proc~alloc_var_i8p_3d~2->interface~str proc~alloc_var_i8p_3d~2->proc~get_memory_info~2 proc~alloc_var_i8p_4d~2->interface~str proc~alloc_var_i8p_4d~2->proc~get_memory_info~2 proc~alloc_var_i8p_5d~2->interface~str proc~alloc_var_i8p_5d~2->proc~get_memory_info~2 proc~alloc_var_i8p_6d~2->interface~str proc~alloc_var_i8p_6d~2->proc~get_memory_info~2 proc~alloc_var_i8p_7d~2->interface~str proc~alloc_var_i8p_7d~2->proc~get_memory_info~2 proc~alloc_var_r4p_1d~2->interface~str proc~alloc_var_r4p_1d~2->proc~get_memory_info~2 proc~alloc_var_r4p_2d~2->interface~str proc~alloc_var_r4p_2d~2->proc~get_memory_info~2 proc~alloc_var_r4p_3d~2->interface~str proc~alloc_var_r4p_3d~2->proc~get_memory_info~2 proc~alloc_var_r4p_4d~2->interface~str proc~alloc_var_r4p_4d~2->proc~get_memory_info~2 proc~alloc_var_r4p_5d~2->interface~str proc~alloc_var_r4p_5d~2->proc~get_memory_info~2 proc~alloc_var_r4p_6d~2->interface~str proc~alloc_var_r4p_6d~2->proc~get_memory_info~2 proc~alloc_var_r4p_7d~2->interface~str proc~alloc_var_r4p_7d~2->proc~get_memory_info~2 proc~alloc_var_r8p_1d~2->interface~str proc~alloc_var_r8p_1d~2->proc~get_memory_info~2 proc~alloc_var_r8p_2d~2->interface~str proc~alloc_var_r8p_2d~2->proc~get_memory_info~2 proc~alloc_var_r8p_3d~2->interface~str proc~alloc_var_r8p_3d~2->proc~get_memory_info~2 proc~alloc_var_r8p_4d~2->interface~str proc~alloc_var_r8p_4d~2->proc~get_memory_info~2 proc~alloc_var_r8p_5d~2->interface~str proc~alloc_var_r8p_5d~2->proc~get_memory_info~2 proc~alloc_var_r8p_6d~2->interface~str proc~alloc_var_r8p_6d~2->proc~get_memory_info~2 proc~alloc_var_r8p_7d~2->interface~str proc~alloc_var_r8p_7d~2->proc~get_memory_info~2 proc~str_a_i1p str_a_I1P interface~str->proc~str_a_i1p proc~str_a_i2p str_a_I2P interface~str->proc~str_a_i2p proc~str_a_i4p str_a_I4P interface~str->proc~str_a_i4p proc~str_a_i8p str_a_I8P interface~str->proc~str_a_i8p proc~str_a_r4p str_a_R4P interface~str->proc~str_a_r4p proc~str_a_r8p str_a_R8P interface~str->proc~str_a_r8p proc~str_bol str_bol interface~str->proc~str_bol proc~str_i1p str_I1P interface~str->proc~str_i1p proc~str_i2p str_I2P interface~str->proc~str_i2p proc~str_i4p str_I4P interface~str->proc~str_i4p proc~str_i8p str_I8P interface~str->proc~str_i8p proc~str_r4p str_R4P interface~str->proc~str_r4p proc~str_r8p str_R8P interface~str->proc~str_r8p proc~strf_i1p strf_I1P interface~str->proc~strf_i1p proc~strf_i2p strf_I2P interface~str->proc~strf_i2p proc~strf_i4p strf_I4P interface~str->proc~strf_i4p proc~strf_i8p strf_I8P interface~str->proc~strf_i8p proc~strf_r4p strf_R4P interface~str->proc~strf_r4p proc~strf_r8p strf_R8P interface~str->proc~strf_r8p interface~cton cton proc~get_memory_info~2->interface~cton proc~ctoi_i1p ctoi_I1P interface~cton->proc~ctoi_i1p proc~ctoi_i2p ctoi_I2P interface~cton->proc~ctoi_i2p proc~ctoi_i4p ctoi_I4P interface~cton->proc~ctoi_i4p proc~ctoi_i8p ctoi_I8P interface~cton->proc~ctoi_i8p proc~ctor_r4p ctor_R4P interface~cton->proc~ctor_r4p proc~ctor_r8p ctor_R8P interface~cton->proc~ctor_r8p proc~str_a_i1p->proc~str_i1p proc~str_a_i2p->proc~str_i2p proc~str_a_i4p->proc~str_i4p proc~str_a_i8p->proc~str_i8p proc~str_a_r4p->proc~str_r4p proc~str_a_r8p->proc~str_r8p proc~compact_real_string compact_real_string proc~str_r4p->proc~compact_real_string proc~str_r8p->proc~compact_real_string

Called by

proc~~assign_allocatable_r8p_7d~2~~CalledByGraph proc~assign_allocatable_r8p_7d~2 assign_allocatable_R8P_7D interface~assign_allocatable~2 assign_allocatable interface~assign_allocatable~2->proc~assign_allocatable_r8p_7d~2

Source Code

   subroutine assign_allocatable_R8P_7D(lhs, rhs, file_unit, msg, verbose)
   !< Assign CPU variable with memory checking (kind R8P, rank 7).
   !< Variable is returned not allocated if right hand side is not allocated.
   !<
   !<```fortran
   !< use penf
   !< real(R8P), allocatable :: a(:,:,:,:,:,:,:), b(:,:,:,:,:,:,:)
   !< allocate(b(1:1,1:2,1:3,1:4,1:5,1:6,1:7))
   !< call assign_allocatable(a, b)
   !< print*, allocated(a)
   !<```
   !=> T <<<
   real(R8P), allocatable, intent(inout)        :: lhs(:,:,:,:,:,:,:) !< Left hand side of assignement.
   real(R8P), allocatable, intent(in)           :: rhs(:,:,:,:,:,:,:) !< Right hand side of assignement.
   integer(I4P),           intent(in), optional :: file_unit          !< File unit for verbose output.
   character(*),           intent(in), optional :: msg                !< Message to be printed in verbose mode.
   logical,                intent(in), optional :: verbose            !< Flag to activate verbose mode.

   if (allocated(lhs)) deallocate(lhs)
   if (allocated(rhs)) then
      if (size(rhs,dim=1)*size(rhs,dim=2)*size(rhs,dim=3)*size(rhs,dim=4)*size(rhs,dim=5)*size(rhs,dim=6)*size(rhs,dim=7)>0) then
         call allocate_variable(var=lhs,                                                  &
                                ulb=reshape([lbound(rhs,dim=1),ubound(rhs,dim=1),         &
                                             lbound(rhs,dim=2),ubound(rhs,dim=2),         &
                                             lbound(rhs,dim=3),ubound(rhs,dim=3),         &
                                             lbound(rhs,dim=4),ubound(rhs,dim=4),         &
                                             lbound(rhs,dim=5),ubound(rhs,dim=5),         &
                                             lbound(rhs,dim=6),ubound(rhs,dim=6),         &
                                             lbound(rhs,dim=7),ubound(rhs,dim=7)],[2,7]), &
                                file_unit=file_unit, msg=msg, verbose=verbose)
         lhs = rhs
      endif
   endif
   endsubroutine assign_allocatable_R8P_7D