【求助】请大家帮忙,一个小问题,可是我不知道怎么改,是fortran的问题
program fortest1 implicit none
double precision s(4),t(4),s2,t2,ss,tt,st,stt,sst,st2,ls(9),lt(9),wg(4),tg(4),sg(4),g
integer i,j
! Variables
! Body of fortest1
DATA LS/-1.0d0,1.0d0,1.0d0,-1.0d0,0.0d0,1.0d0,0.0d0,-1.0d0,0.0d0/,LT/-1.0d0,-1.0d0,1.0d0,1.0d0,-1.0d0,0.0d0,1.0d0,0.0d0,0.0d0/
DATA S/-0.50d0,0.50d0,0.50d0,-0.50d0/,T/-0.50d0,-0.50d0,0.50d0,0.50d0/
G = 1.0d0/SQRT(3.00d0)
DO 21 I = 1,4
SG(I) = G*LS(I)
TG(I) = G*LT(I)
21 WG(I) = 1.0d0
do 22 j=1,4
s=sg(j)
t=tg(j)
S2=S*2.d0
T2=T*2.d0
SS=S*S
TT=T*T
ST=S*T
STT=S*T*T
SST=S*S*T
22 ST2=S*T*2.d0
end program fortest1
编译的时候总是出现这样的错误:
~fortest1.f90(35) : Error: The shapes of the array expressions do not conform.
S2=S*2.d0
------^
~fortest1.f90(36) : Error: The shapes of the array expressions do not conform.
T2=T*2.d0
------^
~fortest1.f90(37) : Error: The shapes of the array expressions do not conform.
SS=S*S
------^
~fortest1.f90(38) : Error: The shapes of the array expressions do not conform.
TT=T*T
------^
~fortest1.f90(39) : Error: The shapes of the array expressions do not conform.
ST=S*T
------^
~fortest1.f90(40) : Error: The shapes of the array expressions do not conform.
STT=S*T*T
------^
~fortest1.f90(41) : Error: The shapes of the array expressions do not conform.
SST=S*S*T
------^
~fortest1.f90(42) : Error: The shapes of the array expressions do not conform.
22 ST2=S*T*2.d0
--------^
这是什么原因,怎么改,谢谢!!!!
回复： 【求助】请大家帮忙,一个小问题,可是我不知道怎么改,是fortran的问题
一个数组乘以一个实数不能等于一个实数,建议看一下FORTRAN中数组的基本概念所有错误都是对数组操作的错误
回复： 【求助】请大家帮忙,一个小问题,可是我不知道怎么改,是fortran的问题
知道了,太糊涂了,谢谢啊,变量命名重复了
页:
[1]