QQ

casin没 用 到 !

 

casin的确没有用到！程序改为如下,同样有致命错误！
program test_Warning                          subroutine calsin(x,y)
  real, dimension(100) ::xr, yr                    real(8) ::x,y
  do i=1,100                                             y=dsind(x)
    xr(i)=0.0+360.0/99.0*float(i-1)              return
    call calsin(xr(i),yr(i))                         end subroutine calsin
  enddo
  open(6,file='dat.d11')
  do i=1,100
    write(6,*) xr(i),yr(i)
  enddo
  stop
end program test_Warning

石间野草

  QQ

 

太好了！
      请查看附件！这就是在大型程序设计中需要注意的！
     谢谢你的回答！点击浏览该文件

石间野草

 

一个100多行的源程序，走查一下就能看都问题，那么对于1000多行、10000多行，甚至几十万行，怎麽办？

石间野草