fortran 程序中出现以下情况求解决
--------------------Configuration:MyThreeAddition-Win32Debug--------------------Compi...
--------------------Configuration: My ThreeAddition - Win32 Debug--------------------
Compiling Fortran...
D:\fortran\My ThreeAddition\example.f90
D:\fortran\My ThreeAddition\example.f90(122) : Error: The shapes of the array expressions do not conform. [AMNS]
AMNS(1,1)=Amns*shn12*ii*m*xx1+Bmns*(dsh12+shn12/(k2*d))*tt1
------------^
D:\fortran\My ThreeAddition\example.f90(123) : Error: The shapes of the array expressions do not conform. [AMNS]
AMNS(2,1)=-Amns*shn12*tt+Bmns*(dsh12+shn12/(k2*d))*ii*m*xx1
----------------^
D:\fortran\My ThreeAddition\example.f90(124) : Error: The shapes of the array expressions do not conform. [AMNS]
AMNS(3,1)=Amns*(dsh12+shn12/(k2*d))*tt1+Bmns*shn12*ii*m*xx1
----------------^
D:\fortran\My ThreeAddition\example.f90(125) : Error: The shapes of the array expressions do not conform. [AMNS]
AMNS(4,1)=Amns*(dsh12+shn12/(k2*d))*ii*m*xx1-Bmns*shn12*tt1
----------------^ 展开
Compiling Fortran...
D:\fortran\My ThreeAddition\example.f90
D:\fortran\My ThreeAddition\example.f90(122) : Error: The shapes of the array expressions do not conform. [AMNS]
AMNS(1,1)=Amns*shn12*ii*m*xx1+Bmns*(dsh12+shn12/(k2*d))*tt1
------------^
D:\fortran\My ThreeAddition\example.f90(123) : Error: The shapes of the array expressions do not conform. [AMNS]
AMNS(2,1)=-Amns*shn12*tt+Bmns*(dsh12+shn12/(k2*d))*ii*m*xx1
----------------^
D:\fortran\My ThreeAddition\example.f90(124) : Error: The shapes of the array expressions do not conform. [AMNS]
AMNS(3,1)=Amns*(dsh12+shn12/(k2*d))*tt1+Bmns*shn12*ii*m*xx1
----------------^
D:\fortran\My ThreeAddition\example.f90(125) : Error: The shapes of the array expressions do not conform. [AMNS]
AMNS(4,1)=Amns*(dsh12+shn12/(k2*d))*ii*m*xx1-Bmns*shn12*tt1
----------------^ 展开
威孚半导体技术
2024-08-19 广告
2024-08-19 广告
威孚(苏州)半导体技术有限公司是一家专注生产、研发、销售晶圆传输设备整机模块(EFEM/SORTER)及核心零部件的高科技半导体公司。公司核心团队均拥有多年半导体行业从业经验,其中技术团队成员博士、硕士学历占比80%以上,依托丰富的软件底层...
点击进入详情页
本回答由威孚半导体技术提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询