【求助】请大家帮忙,一个小问题,可是我不知道怎么改,是fortran的问题

rocklet_xy

  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]
      S2=S*2.d0
------^
~fortest1.f90(36) : Error: The shapes of the array expressions do not conform.   [T2]
      T2=T*2.d0
------^
~fortest1.f90(37) : Error: The shapes of the array expressions do not conform.   [SS]
      SS=S*S
------^
~fortest1.f90(38) : Error: The shapes of the array expressions do not conform.   [TT]
      TT=T*T
------^
~fortest1.f90(39) : Error: The shapes of the array expressions do not conform.   [ST]
      ST=S*T
------^
~fortest1.f90(40) : Error: The shapes of the array expressions do not conform.   [STT]
      STT=S*T*T
------^
~fortest1.f90(41) : Error: The shapes of the array expressions do not conform.   [SST]
      SST=S*S*T
------^
~fortest1.f90(42) : Error: The shapes of the array expressions do not conform.   [ST2]
22      ST2=S*T*2.d0
--------^
  
这是什么原因,怎么改,谢谢!!!!

galever

一个数组乘以一个实数不能等于一个实数,建议看一下FORTRAN中数组的基本概念
所有错误都是对数组操作的错误

rocklet_xy

知道了,太糊涂了,谢谢啊,变量命名重复了