您所在位置：主题：[讨论]fortran 77 中if 内部例程出错，急
kqlabc3334
[专家分：0] 发布于 2011-04-02 17:42:00
各位大侠，我一个F77编写的程序，运行到
DO IJ=1,NOPTS
IF ( CDNAME .EQ. OPTION(IJ)) GOTO( 6000, 1000, 2000, 3000,8000,
& 4000,8500),IJ
ENDDO
===================================================================
出现错误：
"GDYN2S.f", Line = 50142, Column = 1: 内部: 在例程cif_message_rec的条件语句中选择 DEFAULT 条件。将无法运行到此处。[color=808000][/color]
其中， Line = 50142是指的IF ( CDNAME .EQ. OPTION(IJ)) GOTO( 6000, 1000, 2000, 3000,8000,
====================================================================
这到底是怎么回事，怎么修改，才能避免这样的错误。我已经对它研究了一个星期，也没有找到解决的办法，请教各位大侠，在此多谢啦。
DO IJ=1,NOPTS
IF ( CDNAME .EQ. OPTION(IJ)) GOTO( 6000, 1000, 2000, 3000,8000,
& 4000,8500),IJ
ENDDO
===================================================================
出现错误：
"GDYN2S.f", Line = 50142, Column = 1: 内部: 在例程cif_message_rec的条件语句中选择 DEFAULT 条件。将无法运行到此处。[color=808000][/color]
其中， Line = 50142是指的IF ( CDNAME .EQ. OPTION(IJ)) GOTO( 6000, 1000, 2000, 3000,8000,
====================================================================
这到底是怎么回事，怎么修改，才能避免这样的错误。我已经对它研究了一个星期，也没有找到解决的办法，请教各位大侠，在此多谢啦。
