本帖最后由 青衣巷 于 2022-7-23 19:21 编辑
你有源代码,改成
[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode INTEGER NX,NY
REAL*8 XE1,YE1
REAL*8, ALLOCATABLE :: H(:,:)
OPEN(1,FILE="SUR.TXT")
READ(1,*) NX,NY,XE1,YE1,DX,DY
ALLOCATE(H(0:NX-1,0:NY-1))
DO I=0,NX-1
READ(1,*) H(I,:)
ENDDO
READ(1,*) B,C,K
CLOSE(1)
DXR=XE1/(NX-1)
DYR=YE1/(NY-1)
就简单多了。
大部分时候,read都不需要指定格式。
|