I've defined an n-element array Then, depending on the fulfillment or not of some conditions, some of those elements are given a value. Some not. Is there a fortran function that returns the number of array elements that have been given a value? Suppose that the function in question is called nelements. Then,

integer*4 i
dimension i(50)
i(1) = 7
i(2) = 15
write(6,*)"number of array elements that have been given a value ", nelements(i)
end

would render 2 since only 2 elements of the array i have been defined. Is there a function like that in fortran, or a workaround ?