topic Re: Initialize a default value for a derived type component var in Intel® Fortran Compiler

Initialize a default value for a derived type component variable.

OP1 — Tue, 24 Feb 2009 16:50:36 GMT

I am not sure about the syntax for assigning a default value to a component of a derived type variable. I want all new instances of my derived type have some of their components assigned a default value.
For instance:

TYPE MY_TYPE
LOGICAL IS_IT_INITIALIZED
INTEGERT
...
END TYPE MY_TYPE

Now, when I declare a variable A of type MY_TYPE, I want to make sure that the component IS_IT_INITIALIZED is set to .FALSE. and T to 1000 (for instance).
Is there a way to do this? Or should I manually initialize every new instance of MY_TYPE when I declare it?

Thanks!

Olivier

Re: Initialize a default value for a derived type component var

Les_Neilson — Tue, 24 Feb 2009 17:39:08 GMT

Quoting - opmkl

Yes you can do it.
TYPE MY_TYPE
LOGICAL IS_IT_INITIALIZED = .FALSE.
INTEGER T = 1000
...
END TYPE MY_TYPE

Then TYPE(MY_TYPE) AnOther will take the default values

Les

Re: Initialize a default value for a derived type component var

Steven_L_Intel1 — Tue, 24 Feb 2009 18:10:50 GMT

Almost. You need to use:

LOGICAL :: IS_IT_INITIALIZED = .FALSE.
INTEGER :: T = 1000

If you're going to supply an initial value, the :: delimiter is required.

Re: Initialize a default value for a derived type component var

OP1 — Tue, 24 Feb 2009 19:10:43 GMT

Aah... that's the thing I was also missing... The "::" delimiter...

Thanks a lot Steve. This is a very convenient feature.

Olivier