这个代码就是错的,根本不能运行,那你怎么对比的时间呢。[Fortran] 纯文本查看 复制代码 MODULE mod
REAL,DIMENSION(:,:,:),ALLOCATABLE :: indt,ce
ENDMODULE mod
PROGRAM ceshi
USE mod
IMPLICIT NONE
integer maxx,maxy,maxz
real dzz
dzz=0.6
maxz=80;maxy=80;maxx=80
allocate(indt(maxx,maxy,maxz),ce(maxx,maxy,maxz))
indt=0;ce=0
indt(:39,:,:)=1
ce(:39,:,:)=dzz
ENDPROGRAM ceshi |