0

当我尝试编译时，我不断收到此错误。我不太确定问题是什么。我不是最擅长编码，因此，调试不是我的强项。任何想法是什么导致错误？

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
4

1 回答 1

1

可能是这条线末端的 D-8

IndexOfRe(i) = 1 + (((5791817.0/(238.0185 - WaveNumber**2))+(167909.0/(57.362-WaveNumber**2))))D-8
于 2013-04-13T15:41:44.880 回答