Lines Matching defs:components

49 subroutine components(n)  subroutine
50   integer, intent(in) :: n  local
51   real, target, save :: a1(3)
52   real, target :: a2
53   real, save :: a3
54   real, target, save :: a4
55   type :: t1
59   type :: t2(kind, len)
84   type(t2(3,2)) :: o1
85   type(t2(2,n)) :: o2
86   type :: t3
89   type(t3), save, target :: o3
90   real, pointer :: p10 => o3%x