Question

用FORTRAN穷举法GO TO语句中，循环数最大是多少？

do 10 i=1,1E+10,1
so=front*(2*i)**(b)+k*(2*i)**(c)
d=so-strain
if (abs(d).le.1e-1)then
cyc=i
ianquancyc=i/5
write(1,'("NF=",f12.2)') cyc
write(1,'("ianquanNF=",i12)') ianquancyc
write(1,'("strain=",e12.5)') strain
write(1,'("so=",e12.5)') so
write(1,'("d=",e12.5)') d
goto 100
endif
10 continue
100 continue

上面是我程序的一小部分，当i超过1E10时就会出现warning: An arithmetic error occurred while evaluating constant or constant expression do 10 i=1,1E+10,1
只要小于这个数就没问题，但是我需要至少1E20才够大，如何解决这个问题，谢谢！！！

Answer 1

出错的这句话意思是执行10 i=1,1E+10,1语句的时候出现了算术错误.
不知道楼主i这个变量是什么类型的变量,因为数字太大,要改成比较大的变量类型.查了下fortran语言i不加说明的话默认为整形...可能楼住设定的变量类型最大值是1e10.改成更大的类型就可以了.
C的话有double float类型双精度浮点,不知道fortran有什么类型.楼主看看书吧,这年头好象没怎么见有人用fortran
=.=

Answer 2

放错分类了

Answer 3

将光标移到圆图标内，该圆标成深色，表示进入圆图标状态。在此状态下，可输入各种圆。

Answer 4

★

在程序的开头重新定义一下i，加入(fortran90和95的方法)：
integer(kind=8)::i