c_allocate Subroutine

private subroutine c_allocate(self)

Allocate storage space

Type Bound

cell_type

Arguments

Type IntentOptional Attributes Name
class(cell_type), intent(inout) :: self

Contents

Source Code


Source Code

  subroutine c_allocate(self)
    implicit none
    class(cell_type), intent(inout) :: self
    integer :: ir
    allocate(self%tmp_sum(self%nrow))
    do ir=1,self%nrb
       call self%rb(ir)%allocate
    enddo
  end subroutine c_allocate