Lines Matching refs:num_elems
11 subroutine test_long_long_1d(cPtr, num_elems) bind(c) argument
14 integer(c_int), value :: num_elems
19 shape(1) = num_elems
21 do i = 1, num_elems
45 subroutine test_long_1d(cPtr, num_elems) bind(c) argument
48 integer(c_int), value :: num_elems
53 shape(1) = num_elems
55 do i = 1, num_elems
60 subroutine test_int_1d(cPtr, num_elems) bind(c) argument
63 integer(c_int), value :: num_elems
68 shape(1) = num_elems
70 do i = 1, num_elems
75 subroutine test_short_1d(cPtr, num_elems) bind(c) argument
78 integer(c_int), value :: num_elems
83 shape(1) = num_elems
85 do i = 1, num_elems
90 subroutine test_mixed(cPtr, num_elems) bind(c) argument
93 integer(c_int), value :: num_elems
99 shape1(1) = num_elems
101 do i = 1, num_elems
106 shape2(1) = num_elems
108 do i = 1, num_elems