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
46 subroutine test_long_1d(cPtr, num_elems) bind(c) argument
49 integer(c_int), value :: num_elems
54 shape(1) = num_elems
56 do i = 1, num_elems
61 subroutine test_int_1d(cPtr, num_elems) bind(c) argument
64 integer(c_int), value :: num_elems
69 shape(1) = num_elems
71 do i = 1, num_elems
76 subroutine test_short_1d(cPtr, num_elems) bind(c) argument
79 integer(c_int), value :: num_elems
84 shape(1) = num_elems
86 do i = 1, num_elems
91 subroutine test_mixed(cPtr, num_elems) bind(c) argument
94 integer(c_int), value :: num_elems
100 shape1(1) = num_elems
102 do i = 1, num_elems
107 shape2(1) = num_elems
109 do i = 1, num_elems