Fortran90 未分类语句 While 循环 [英] Fortran90 Unclassified Statement While Loop

问题描述

我正在尝试在 Fortran90 中运行一小段代码，但我收到了一个带有 while 语句的未分类语句错误.我在网上查看并找不到为什么会在 while 语句中发生这种情况.这是我收到的错误:

I'm trying to make a little snipett of code run in Fortran90 and I'm getting an Unclassified Statement Error with a while statement. I've looked online and could not find why this would occur with a while statement. Here is the errors I'm getting:

Test.f90:11.4:

    while (R < MinimumEnergy) do
    1
Error: Unclassifiable statement at (1)
Test.f90:15.8:

        while (f < R) do
        1
Error: Unclassifiable statement at (1)
Test.f90:19.11:

        enddo
           1
Error: Expecting END PROGRAM statement at (1)
Test.f90:23.7:

    enddo
       1
Error: Expecting END PROGRAM statement at (1)

这是我的代码:

program FD_Number
      REAL :: MinimumEnergy = 4.5;
      REAL :: a = -9;
      REAL :: b = 9;
      REAL R, randomN, f

      REAL :: FD
            FD(R) = (1 + exp(R))**(-1)
      R = 0;

    while (R < MinimumEnergy) do
        R = 999999;
        f = FD(a + (b - a)*R);

        while (f < R) do
            call random_number(randomN)
            f = FD(a + (b - a)*randomN);
            call random_number(R)
        enddo

        R = a + (b - a)*R;
        f = FD(R);
    enddo

    print *, f
end

推荐答案

我有代码

while (statement) do
  code
enddo

而不是

identifier: do while (statement)
  code
end do identifier

这篇关于Fortran90 未分类语句 While 循环的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！