Lines Matching refs:vla1
17 real, target, allocatable :: vla1 (:, :, :)
24 allocate (vla1 (10,10,10)) ! vla1-init
25 l = allocated(vla1)
27 allocate (vla2 (1:7,42:50,13:35)) ! vla1-allocated
30 vla1(:, :, :) = 1311 ! vla2-allocated
31 vla1(3, 6, 9) = 42
32 vla1(1, 3, 8) = 1001
33 vla1(6, 2, 7) = 13
35 vla2(:, :, :) = 1311 ! vla1-filled
38 pvla => vla1 ! vla2-filled
49 deallocate (vla1) ! pvla-deassociated
50 l = allocated(vla1)
52 deallocate (vla2) ! vla1-deallocated
58 allocate (vla1 (-2:-1, -5:-2, -3:-1))
59 vla1(:, :, :) = 1
60 vla1(-2, -3, -1) = -231
62 deallocate (vla1) ! vla1-neg-bounds-v1
63 l = allocated(vla1)
65 allocate (vla1 (-2:1, -5:2, -3:1))
66 vla1(:, :, :) = 2
67 vla1(-2, -4, -2) = -242
69 deallocate (vla1) ! vla1-neg-bounds-v2
70 l = allocated(vla1)
Indexes created Tue Sep 29 00:26:59 UTC 2026