Allocate storage space
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(cell_type), | intent(inout) | :: | self |
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