早教吧作业答案频道 -->其他-->
急求fortran大神帮忙,编译出现Theshapesofthearrayexpressionsdonotconform.[U]ubroutineInit(U,dx,dy)implicitdoubleprecision(a-h,o-z)common/Gdef/Gama,Pi,Jx,Jy,dLx,dLy,TT,Sfdimension::U(Jx+1,Jy+1,4)u=3.0v=0.0rou=1.0p=0.71429dx=dLx/
题目详情
急求fortran大神帮忙,编译出现The shapes of the array expressions do not conform. [U]
ubroutine Init(U,dx,dy)
implicit double precision (a-h,o-z)
common/G_def/Gama,Pi,Jx,Jy,dLx,dLy,TT,Sf
dimension ::U(Jx+1,Jy+1,4)
u=3.0
v=0.0
rou=1.0
p=0.71429
dx=dLx/Jx
dy=dLy/Jy
do i=2,Jx/4
do j=1,Jy
U(i,j,1)=rou
U(i,j,2)=rou*u
U(i,j,3)=rou*v
U(i,j,4)=p/(Gama-1.0)+rou*(u*u+v*v)/2.0
end do
end do
do i=Jx/4+1,Jx
do j=Jy/5+1,Jy
U(i,j,1)=rou
U(i,j,2)=rou*u
U(i,j,3)=rou*v
U(i,j,4)=p/(Gama-1.0)+rou*(u*u+v*v)/2.0
end do
end do
ubroutine Init(U,dx,dy)
implicit double precision (a-h,o-z)
common/G_def/Gama,Pi,Jx,Jy,dLx,dLy,TT,Sf
dimension ::U(Jx+1,Jy+1,4)
u=3.0
v=0.0
rou=1.0
p=0.71429
dx=dLx/Jx
dy=dLy/Jy
do i=2,Jx/4
do j=1,Jy
U(i,j,1)=rou
U(i,j,2)=rou*u
U(i,j,3)=rou*v
U(i,j,4)=p/(Gama-1.0)+rou*(u*u+v*v)/2.0
end do
end do
do i=Jx/4+1,Jx
do j=Jy/5+1,Jy
U(i,j,1)=rou
U(i,j,2)=rou*u
U(i,j,3)=rou*v
U(i,j,4)=p/(Gama-1.0)+rou*(u*u+v*v)/2.0
end do
end do
▼优质解答
答案和解析
U和u一样,fortran不分大小写的,最后几行都是数等于数组,所以错了
看了急求fortran大神帮忙,编...的网友还看了以下:
1)已知f(x)=ax的平方+bx+c满足f(1)=0,a>b>c①求c/a的取值范围②若该函数图 2020-05-20 …
高中数学~高手进.难题!已知f(x)=ax/(ax+b)且不等式|f(x)|>2的解集为(-2,- 2020-06-04 …
1、成本函数C(Q)=F+1/2aQ2,A,F为正的常数.(1)求规模报酬区间答案给的是先对C求导 2020-07-14 …
成本函数C(Q)=F+1/2aQ2,A,F为正的常数求规模报酬区间为何答案里只是求规模报酬递增区间 2020-07-14 …
4/a+4/b+4/c=196/225,求a,b,c的值!1/a+1/b+1/c+1/d+1/e+ 2020-07-18 …
f(x)=x2+2ax+1在0,1上最大值为f(1),求a的取值范围(用求导解决) 2020-07-20 …
已知二次函数f(x)=ax^2+bx+c(a,b,c∈R)且同时满足下列条件:①f(-1)=0②对 2020-07-26 …
f(x)=xa(幂函数),f(-1)=-4,a的值是多少用导数怎么求?x^a的导数不是x^a*ln 2020-08-01 …
高数求指导1.已知g(x)=1/x^2且复合函数f(g(x))对x的导数为-1/2x,那么f'(1 2020-08-02 …
F=A+A×(1+i)+…+A×(1+i)n-1,(1)等式两边同乘以(1+i):F(1+i)=A( 2020-11-01 …