fortran95中数数组元素个数的函数

在Fortran 95中，没有内置的函数可以直接获取数组元素的数量或长度。但是，你可以通过程序逻辑来计算数组的大小。如果你有一个一维数组`A`, 它的长度可以通过定义时的声明或者运行时检查数组下标范围得到。

例如，如果你知道数组是用`INTEGER`类型并且是从1开始计数的，你可以创建一个名为`LEN_ARRAY`的函数，如下所示：

FUNCTION LEN_ARRAY(ARRAY) INTEGER
    INTEGER, DIMENSION(:), INTENT(IN) :: ARRAY
    INTEGER :: LENGTH

    LENGTH = SIZE(ARRAY)
    IF (.NOT. PRESENT(LENGTH)) THEN
        LENGTH = LBOUND(ARRAY, 1) - 1 + NUMEL(ARRAY)
    END IF
    LEN_ARRAY = LENGTH
END FUNCTION LEN_ARRAY

在这个例子中，`SIZE()` 函数返回数组的实际元素数量（包括边界），而 `LBOUND()` 和 `NUMEL()` 可能有助于处理未指定大小的情况。调用`LEN_ARRAY(A)` 就能得到数组`A`的长度。

如果你想要获取动态分配的数组长度，可能需要使用`ALLOCATED()`函数和数组的`STATUS`属性。