Nuno R. Pinhco wrote:
>
> Hi,
>
> can somebody explain me why I am getting the following error:
>
> Error: The part-name to the right of a part-ref with nonzero rank has the POINTER attribute (6.1.2). [SPECIES]
>
> in the following line:
>
> PhotElectrons(j) = PhotElectrons(j) &
> & + sum( Denst(i, k, PhotEm(:)%species) * PhotEm(:)%yield )
>
> where the variables have the following definition:
>
> double precision, allocatable, save:: PhotElectrons(:)
> double precision, allocatable, save:: Denst(:,:,:)
> type (PHOT_E_EMISSION), allocatable, save :: PhotEm(:)
>
> and type PHOT_E_EMISSION is:
>
> type PHOT_E_EMISSION
> integer, pointer :: species
> double precision, pointer :: yield
> end type PHOT_E_EMISSION
>
> Thanks
>
PhotEm(:)%species a no signification: the component "species"
of the 1D array PhotEm(:) does not exist. You can access it only
element by element (PhotEm(i)%species)
--
-----------------------------------------------------------------------
Pierre Hugonnet, PhD Student (Geophysics) |phone: 33- 5 59 83 57 94
ELF Exploration Production, PAU (FRANCE) |fax : 33- 5 59 83 48 58
Geological and Geophysical Research Div. |mailto:[log in to unmask]
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|