关于Fortran语句的问题
题目
关于Fortran语句的问题
do ir=1,maxtri
read(1,*) mat_number(ir),npotri(1,ir),npotri(2,ir),npotri(3,ir)
call atclxx(npotri(1,ir),x)
-------------------------------------------------------------
subroutine atclxx(node,x)
implicit real*8 (a-h),real*8 (o-z)
dimension node(1),x(2,1)
ax=x(1,node(2))-x(1,node(1))
ay=x(2,node(2))-x(2,node(1))
bx=x(1,node(3))-x(1,node(2))
by=x(2,node(3))-x(2,node(2))
主程序第二行中读取文件1中的4个值给四个变量
然后调用atclxx函数,只把npotri(1,ir)的值传递给了子程序,但为什么子程序的node里面会有npotri(1,ir),npotri(2,ir),npotri(3,ir) 三个值
注:x是一个点的横纵坐标,npotri(1,ir),npotri(2,ir),npotri(3,ir)分别是三角形的三个顶点
答案
你确定你的程序没有报错?
你这段代码前后矛盾.
首先你定义一个node(1),这是一个容量只有1个的一维数组,它根本不是数组就是一个数.
这从语法上来讲没什么错误,但是你在后面又用node(2),node(3),这就超出数组边界了.
再看数组x,本身是个二维的,但是你把第二维的容量定义成一位,那它就只能等效成一个一维数组了.
你确定你给的程序能正确编译出来?我猜测应该是用了use module 语句了吧,如果代码有点年代了可能是common 语句.这些语句都可以让数据在相应的程序间共享的,不需要通过地址传递.
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 小李来看望我,写一份英语感谢卡片
- -Is this ruler yours Yes,please give( )
- 设全集U=R,A={x/1≤≤2},B={x/x≤—1或x≥5},求A∩B,Cu(A∪B),A∪CuB
- 孔子曰:"学而不思则罔,思而不学则殆."这句话的意思.
- 关于正余弦定理的运用的一道数学题
- 采莲赋 原文 出处
- 一种由铜,锌,锡熔帛成的合金中,其重量之比为43:5:2
- 刃这个字里的点可不可以写成与刀这个字的一撇相交?
- P1(2,1),P2(0,-3)的截距式
- 谁能帮我翻译一下这句话是什么意思?
热门考点
- 可导必连续,不连续一定不可导,可为什么分段函数中的间断点可以通过定义求出间断点的导数呢
- 请问质量分数为0.6 硫代巴比妥酸怎么配制啊
- .not… any more= no more He is not my friend any more..= He is no more
- 甲种酒精含纯酒精70℅,乙种酒精含纯酒精55℅.现在要用着两种酒精配制成含纯酒精60℅的混合酒3000克,那么甲种酒精,乙种酒精各要取多少克
- 解释下面句子中震撼的意思!
- 在等差数列{an}中,a10=18,前5项的和S5=-15,求数列{an}的通项公式//求数列{an}的前n项和的最小值,并
- 上联:良马有缘遇伯乐
- 当x为何值时,分式x的绝对值-3分之x+3的值为-1
- 用英语介绍法国.
- 在极坐标系中 圆p= 2cos θ与直线 θ=π/4所表示的圆形的交点的极坐标系是