[求助]动态数组定义一复型数组，当在给其赋值时出现．Error：the shapes of the array expressions do not conform

我用动态数组定义一复型数组，当在给其赋值时出现．Error：the shapes of the array expressions do not conform  但当改为静态数组时， 就不出现这种问题~~~不知这是什么原因？？还有怎么修改~~~~由于是初学者，对fortran还不是很懂 望高手给予指点！！！ DDGDj)=`  
y_n4Y[4g  
    implicit none 5;/q[oXI  
    complex, allocatable:: a(:,:),cj(:) )=K8mt0qob  
    integer i,j,d(3,4),ee(3,4),ff(3,4) 1I69O6"  
    real*8 lamd,k,u,permittivity0,Rel_permittivity,loss_tangent,pi,freq,c,w N]iarYc  
     g7hI9(8+  
    allocate (a(3,4),cj(1)) K{DmMi];I  
     PH8 88O  
    c=3.0E8 q#c+%,Z=C  
    freq=15.0e+9  !!%%频率%%%%% Qu'#~#L`  
    pi=4.0D0*atan(1.0D0) j~ds)dW%`&  
    lamd=c/freq !%%波长%% P
nE7}  
    k=2*pi/lamd !%%%%波数%%%% ySiZ@i4  
     .EHq.cd
e  
    d=reshape((/1,2,3,4,5,6,7,8,9,10,12,13/),(/3,4/)) PZJn/A1  
    ee=reshape((/11,12,13,14,15,16,17,18,9,10,2,3/),(/3,4/)) Tb2#y]27  
    cj=cmplx(0,1) vO9=CCxvq  
    do i =1,3 qfCZ [D  
       do j =1,4 P#!gP
3  
       ff(i,j)=ee(i,j)-d(i,j) iZnLgkk@  
         a(i,j)=exp(-cj*k*ff(i,j)) }qp)VF  
         enddo Pb T2- F_  
      enddo =e#h;x2  
      write(*,100)((d(i,j),j=1,4),i=1,3)   qvy*; <w  
      read(*,*) qP;1LAX  
      write(*,200)((a(i,j),j=1,4),i=1,3)   4FYV]p8f  
      read(*,*) 9QHj$)?k,  
100 format(4x,4I6) %2I>-0]B  
200 fo .. R|)l^~x  
o@360#njF  

未注册仅能浏览部分内容，查看全部内容及附件请先 登录 或 注册