Initialization of user-defined type

Accelerated Computing HPC Compilers Legacy PGI Compilers
1

Hi!

How can I set all elements in (allocated) variable SampleGrid%Sample to zero in 1 call? The types are defined as follows:

TYPE NuclideVector
REAL(Float), DIMENSION(MaxNuclides) :: Values
END TYPE NuclideVector

TYPE SampleType
TYPE(NuclideVector) :: Concentration,MomDeposition,Deposition,IntConcentration,IntDeposition
END TYPE SampleType

TYPE SampleGridType
INTEGER :: CoordinateSystem
TYPE(GridSpecsType) :: GridSpecs
REAL(Float) :: z
TYPE(LocalMeteoGridType) :: Meteo
TYPE(SampleType), ALLOCATABLE, DIMENSION(:,:) :: Sample
END TYPE SampleGridType

TYPE(SampleGridType) :: SampleGrid


Thanks!

Arjan

2

Hi Arjan,

Would this work for you?

samplegrid%sample=sampletype(nuclidevector(0.0),nuclidevector(0.0),nuclidevector(0.0),nuclidevector(0.0),nuclidevector(0.0))


Hongyon

3

Looks as if it works!
Thanks!

Arjan