I wrote:
> Well then, you could do it the other way around:
> Real,Target :: p(30,40,1)
> Real,Pointer :: a(:,:)
> a => a3(:,:,1)
That last line should have been
a=>p(:,:,1)
> Or if sometimes you want p to point to a, and sometimes to something else
>
> Real,Target :: a3(30,40,1)
> Real,Pointer :: a(:,:),p(:,:,:)
> a => a3(:,:,1)
> p => a3
Cheers,
--
................................Malcolm Cohen, Nihon NAG, Tokyo.
|