Question

我在尝试编译时遇到此错误。我不太清楚问题是什么。我不是最好的编码，因此，调试不是我的强项。有什么想法导致错误吗？

PROGRAM Atmospheric_Reflection
    IMPLICIT NONE

    REAL*8:: Wavelength = 0.200D-6, WaveNumber = 0.0, pi = 3.14159265, Length(1:71) = 0, Number(1:71) = 0, IndexOfRe(1:71) = 0
    INTEGER:: i = 0


    !Calculate the wave number for wavelengths varying from 0.2 micrometers to 1.6 micrometers  in increments of 0.02 micrometers
    i = 1

    DO WHILE (Wavelength <= 1.600D-6)
        WaveNumber = 1/Wavelength
        Length(i) = Wavelength
        Number(i) = WaveNumber
        IndexOfRe(i) = 1 + (((5791817.0/(238.0185 - WaveNumber**2))+(167909.0/(57.362-WaveNumber**2))))D-8
        Wavelength = Wavelength + 0.02D-6

        i = i+1
    END DO
END PROGRAM

Answer 1

可能是这一行末尾的D-8

IndexOfRe(i) = 1 + (((5791817.0/(238.0185 - WaveNumber**2))+(167909.0/(57.362-WaveNumber**2))))D-8

（1）中的不可分类声明，Fortran90错误

1 个答案: