急求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,Sfdimension ::U(Jx+1,Jy+1,4)u=3.0v=0.0rou=1.0...
print *, n end a.f90(5): error #6366: The shapes of the array expressions do not conform. [N] n = maxloc(x) + 1 ---^ compilation aborted for a.f90 (code 1) 因为,maxloc的输出值是数组 即使p是一个一维数组 即使maxloc(p)输出只有一个值 但是你还是不得不定义一个只有一个元素的数...
14.Error:the shapes of the array expressions do not conform 可能用户定义变量与系统变量重复造成冲突。 15.Warning link4084:total image size warningexceed max image may not run 这个没有关系的。不用管它。这是fortran编译器的问题。对生成程序和计算没有影响。 16.Error:list element in braces followed...
急求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,Sfdimension ::U(Jx+1,Jy+1,4)u=3.0v=0.0rou=1.0p=0.71429dx=dLx/Jxdy=dLy/Jydo i=2,Jx/4 do j...
错误1 error #6366: The shapes of the array expressions do not conform. [GROUP]E:\work\Fortran_prac\PartComposite_140415\Part_Composite.for19 扫码下载作业帮搜索答疑一搜即得 答案解析 查看更多优质解析 解答一 举报 REAL::GROUP(7,3)=(/0.3,0.6,1.2,& &0.016,0.022,0.038,& &0.016,0.022,...
本帖内容被屏蔽
12 error FOR2979: expected 2 subscripts but found 1 for array EU1 用 NFE 文件时, 在 EQUATION 段的声明语句出错。13 生成 NFE 时出错 可能 pde 中材料参数太多。14 Error : the shapes of the array expressions do not conform 可能用户定义变量与系统变量重复造成冲突。15 Warning link4084 : t...
14.Error :the shapes of the array expressions do not conform 可能用户定义变量与系统变量重复造成冲突。 - 3 - 15.Warning link4084 :total image size warning exceed max image may not run 这个没有关系的。不用管它。这是fortran 编译器的问题。对生成程序和计算没有影响。 16.Error:list element in...
But the compiler shows the following error: error # 6366: The shapes of the array expressions do not conform Please guide me in solving this case. thank you. PROGRAM DOS2IMPLICIT NONE INTEGER :: omega=1 ,k ,w ,Nc=1000 ,Ne=1000 ,M ,L INTEGER, PARAMETER :: N=2 REA...
assign matrix to real(r8) array end interface assignment(=) contains subroutine a2m(d,s) class(adj_matrix), intent(inout) :: d class(*), dimension(:,:), intent(in) :: s integer :: istat istat = 0 if ( allocated(d%m) ) then deallocate(d%m, stat=istat) ...