Bug typederived parameters

[vincent23]

Hi,
i have a problem with a type parameters, that my module:

module toto
type to3
real, dimension(3) :: k
end type to3

type alfa
type(to3) :: tik
type(to3) :: tok
end type alfa

type agra
real :: r, g, u, z
type(alfa) ::sup
end type agra


TYPE(agra), parameter :: fat_GROS=agra(0.,0.,0.,0.,sup%tik%k(/0.,0.,0./))
! Unexpected Array reference at (1)k(/0.,0.,0./)

end module toto


I don't know what to change with sup%tik%k(/0.,0.,0./)...
At the end, i want to create a constant fat_GROS with all r, g, z, u, and k

Thank you for your help !
Vincent.

 

[FJacq]

I don't know why you want to create such parameter entity. Here is the easiest way in several steps :

   type(to3),parameter :: t03_null=to3((/0.,0.,0./))
   type(alfa),parameter :: alfa_null=alfa(t03_null,t03_null)
   type(agra), parameter :: fat_GROS=agra(0.,0.,0.,0.,alfa_null)

Now, could you explain me why you want such complicated parameter entity ? I say "entity" because a parameter is not a variable : it is a constant which cannot be modified.

François Jacq

 

[vincent23]

Thank you for your answer.
At the end, i want to create a constant (a parameter) call fat_GROS who will include r, g, u, z, sup, tik, tok, k.
fat_GROS have to be a parameter for all.

I tried something and it work :

TYPE(agra), parameter :: fat_GROS=agra(0.,0.,0.,0.,alfa(to3((/0.,0.,0./)),to3((/0.,0.,0./))))

But, it could exist an easier solution ?

 

[xwb]

I think FJacq's declaration is a lot clearer. Remember that programs are read more often than they are written. You want the reader to be able to understand the program quickly and move on to the bits that are relevant instead of pondering about what you've written.