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 ...
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 ...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.