需要使用数组输出星号和索引的帮助

Question

该程序在 Fortran 95 上的输出显示星号而不是数字。我也无法让实验#按预期打印；实验1、实验2、实验3等等。相反，它打印如下；实验 1，实验 1，实验 1。

关于如何解决此问题有什么想法吗？以下是我的完整程序。

感谢您抽出时间。

PROGRAM numbersgen
    IMPLICIT NONE

        !Variable declaration
        INTEGER, DIMENSION(:,:),ALLOCATABLE::numarray
        INTEGER, DIMENSION(:),ALLOCATABLE::temparray
        INTEGER:: numrolls, numexps
        INTEGER:: i=0, j=0
        REAL:: avg=0, sdv=0, variance=0, sum=0
        INTEGER:: k, min, pos, temp

        .............
        ------

        REAL, INTENT(IN):: sum
        REAL, INTENT(IN):: avg, variance, sdv

        PRINT*, " "
        PRINT*, "Sum: ",sum
        PRINT '(1X,A,F5.3)', "Average: ",avg
        PRINT '(1X,A,F5.3)', "Variance: ",variance
        PRINT '(1X,A,F5.3)', "Standard Deviation: ",sdv

        END SUBROUTINE

END PROGRAM

Answer 1

F5.3 格式要求值介于 0 到 9.999 之间。如果平均值大于该值或为负值，则会出现“啪啪”声。要找到合理的格式规范，请暂时将格式更改为 F15.3，以便您至少可以看到这些值。

我不明白为什么实验编号无法增加。 呃哦！主程序中的i的范围是否在子例程中使用？！它们没有本地声明，并且隐式没有有效，所以我倾向于认为这是一个问题。一个简单的确认实验是将主程序中的i名称更改为完全不同的名称，例如expidx，并查看是否存在编译错误。 （有四个地方需要修改。）

Answer 2

通过将子例程放入程序的包含语句中，您可以让它们访问程序中声明的数据。因此，使用 i 和 j 的子例程实际上会改变程序本身内部的值。不要这样做！

“正确”的方法是将子例程作为单独的程序单元或模块放在一个模块中，并在主程序中使用它。