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

我用动态数组定义一复型数组，当在给其赋值时出现．Error：the shapes of the array expressions do not conform  但当改为静态数组时， 就不出现这种问题~~~不知这是什么原因？？还有怎么修改~~~~由于是初学者，对fortran还不是很懂 望高手给予指点！！！ iQ*JU2;7t  
Pgf$GXE  
    implicit none ba|x?kz  
    complex, allocatable:: a(:,:),cj(:) |GE3.g  
    integer i,j,d(3,4),ee(3,4),ff(3,4) o*97Nbjn  
    real*8 lamd,k,u,permittivity0,Rel_permittivity,loss_tangent,pi,freq,c,w AC,$(E  
     =O1CxsKt6  
    allocate (a(3,4),cj(1)) Vi`+2%4  
     6}R^L(^M  
    c=3.0E8 DU$]e1  
    freq=15.0e+9  !!%%频率%%%%% >#dNXH]9  
    pi=4.0D0*atan(1.0D0) 3?Y%|ZVM  
    lamd=c/freq !%%波长%% H7G*Vg  
    k=2*pi/lamd !%%%%波数%%%% K @"m0  
     0*VRFd4  
    d=reshape((/1,2,3,4,5,6,7,8,9,10,12,13/),(/3,4/)) xr!FDfM.K  
    ee=reshape((/11,12,13,14,15,16,17,18,9,10,2,3/),(/3,4/)) R?1;'pvpa[  
    cj=cmplx(0,1) {@g3AG%  
    do i =1,3 {>OuxVl??k  
       do j =1,4 UV)[a%/SB&  
       ff(i,j)=ee(i,j)-d(i,j) #0`2wuo {  
         a(i,j)=exp(-cj*k*ff(i,j)) i:OD)l  
         enddo m}6GVQ'Q  
      enddo hbR;zV|US  
      write(*,100)((d(i,j),j=1,4),i=1,3)   %Z&[wU~  
      read(*,*) e.G&hJr  
      write(*,200)((a(i,j),j=1,4),i=1,3)   8<3J!X+  
      read(*,*) xuO5|{h  
100 format(4x,4I6) "m})~va  
200 fo .. R+lKQAyC0=  
!Qrlb>1z-  

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