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
Nuno Pinhão
**********************************************************************
* _|_|_|_|
* _|N|_|_| Dr. Nuno R. Pinhão
* _|_|P|_| Computational Physics Group
* _|_|_|_| Physics Department
* ITN - Nuclear and Technological Institute
* Estrada Nacional 10
* 2685 Sacavém
* Portugal
* fax: (+351)-1-994.15.25
* tel: (+351)-1-955.00.21
* email: mailto:[log in to unmask] (Institute)
* mailto:[log in to unmask] (private)
* http: http://newton.itn.pt/users/Nuno
*
*********************************************************************
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|