[Fortran] 纯文本查看 复制代码
INTEGER NX,NY
REAL*8 XE1,YE1
REAL*8, ALLOCATABLE :: H(:,:)
OPEN(1,FILE="SUR.TXT")
READ(1,400) NX,NY,XE1,YE1,DX,DY
ALLOCATE(H(0:NX-1,0:NY-1))
DO I=0,NX-1
READ(1,300) (H(I,J),J=0,NY-1)
ENDDO
READ(1,*) B,C,K
CLOSE(1)
300 FORMAT(1X,5E16.8)
400 FORMAT(2X,2I4,4X,4E16.8)
DXR=XE1/(NX-1)
DYR=YE1/(NY-1)
[Fortran] 纯文本查看 复制代码
INTEGER NX,NY
REAL*8 XE1,YE1
REAL*8, ALLOCATABLE :: H(:,:)
DXR=XE1/(NX-1)
DYR=YE1/(NY-1)
[Fortran] 纯文本查看 复制代码
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)