fortran程序 第一次接触fortran语言,试着编写了一个简单的程序:program tsimplicit noneinteger xx=120call ti(x)endsubroutine ti(x)real*8 xi=xprint *,'i=',xend连接时会有警告:Warning:In the call to TI,actual argument #1 does
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/26 19:46:09
![fortran程序 第一次接触fortran语言,试着编写了一个简单的程序:program tsimplicit noneinteger xx=120call ti(x)endsubroutine ti(x)real*8 xi=xprint *,'i=',xend连接时会有警告:Warning:In the call to TI,actual argument #1 does](/uploads/image/z/12168358-70-8.jpg?t=fortran%E7%A8%8B%E5%BA%8F+%E7%AC%AC%E4%B8%80%E6%AC%A1%E6%8E%A5%E8%A7%A6fortran%E8%AF%AD%E8%A8%80%2C%E8%AF%95%E7%9D%80%E7%BC%96%E5%86%99%E4%BA%86%E4%B8%80%E4%B8%AA%E7%AE%80%E5%8D%95%E7%9A%84%E7%A8%8B%E5%BA%8F%EF%BC%9Aprogram+tsimplicit+noneinteger+xx%3D120call+ti%28x%29endsubroutine+ti%28x%29real%2A8+xi%3Dxprint+%2A%2C%27i%3D%27%2Cxend%E8%BF%9E%E6%8E%A5%E6%97%B6%E4%BC%9A%E6%9C%89%E8%AD%A6%E5%91%8A%EF%BC%9AWarning%3AIn+the+call+to+TI%2Cactual+argument+%231+does)
fortran程序 第一次接触fortran语言,试着编写了一个简单的程序:program tsimplicit noneinteger xx=120call ti(x)endsubroutine ti(x)real*8 xi=xprint *,'i=',xend连接时会有警告:Warning:In the call to TI,actual argument #1 does
fortran程序
第一次接触fortran语言,试着编写了一个简单的程序:
program ts
implicit none
integer x
x=120
call ti(x)
end
subroutine ti(x)
real*8 x
i=x
print *,'i=',x
end
连接时会有警告:Warning:In the call to TI,actual argument #1 does not match the type and kind of the corresponding dummy argument.call ti(x)
但当我把所有的i和x交换,其他不变,就没有问题,能够的到正确的结果.
为什么fortran不能学C那样在形参前面加一个integer 就好?应该怎么改呢?
fortran程序 第一次接触fortran语言,试着编写了一个简单的程序:program tsimplicit noneinteger xx=120call ti(x)endsubroutine ti(x)real*8 xi=xprint *,'i=',xend连接时会有警告:Warning:In the call to TI,actual argument #1 does
错误原因如ls
至于“但当我把所有的i和x交换,其他不变,就没有问题,能够的到正确的结果.”是因为fortran的I-N规则,以字母IJKMLN开头的变量,如果没有定义,默认为整形,交换以后,虚参I是整形,所以就没有问题了