Fortran77,90,95,2003,现在都2008 了。
我十分强烈的建议你放弃学习 F77,直接学习 Fortran95。
我非常不愿意看到一大堆的代码,全是大写,全是固定格式,全是 GOTO 和 CONTINUE。
IMPLICIT NONEinteger::I1,I2,I3
do I1=0,33
do I2=0,100
do I3=0,500,5
if(I1*3+I2*1+I3/5==100)then
write(*,*) I1,I2,I3
endif
enddo
enddo
enddo
END
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)