Re: Derived types and allocatable

Kurt Kallblad wrote:
> 
> "Gib Bogle" <g.bogle@[EMAIL PROTECTED]
> wrote in message 
> news:481ff61f$1@[EMAIL PROTECTED]
> <snip>
>> do i = 1,2
>>     if (allocated(cell1(i)%cdata)) then
>>         deallocate(cell1(i)%cdata)
>>     endif
>> enddo
>> if (allocated(cell1)) then
>>     deallocate(cell1)
>> endif
>> do i = 1,2
>>     if (allocated(cell2(i)%cdata)) then
>>         write(*,*) 'deallocate cell2(i)%cdata: ',i
>>         deallocate(cell2(i)%cdata)
>>     endif
>> enddo
>> if (allocated(cell2)) then
>>     deallocate(cell2)
>> endif
>>
>> end
> 
> A different questions:
> Is it necessery to deallocate the components?
> I thought it's enough to deallocate cell1 and cell2.
> Kurt

I was going to ask that question.