Fortran Coder

标题: 出现黑色窗口一直在那里，然后该干什么 [打印本页]

作者: 单身十年笑 时间: 2018-4-8 17:46
标题: 出现黑色窗口一直在那里，然后该干什么
出现黑色的窗口，数据是in文件，输出是dat文件，好像没有读取，黑色窗口一直在那里不动。in文件怎么读啊

1523180742(1).png (18.58 KB, 下载次数: 363)

作者: li913 时间: 2018-4-8 20:58
贴出代码。

作者: 吉大渣渣-固体 时间: 2018-4-8 22:05
具体代码，具体分析

作者: 单身十年笑 时间: 2018-4-10 18:50
C---------------------------------------
C  INPUT GRID SEPARATION in free format
C---------------------------------------
   READ(5,9)  DUMMY
9 FORMAT(A50)
   READ(5,*) (X(I),I=0,IE)
   READ(5,9)  DUMMY
   READ(5,*) (Y(J),J=0,JE)
   READ(5,9)  DUMMY
   READ(5,*) (Z(K),K=0,KE)
   READ(5,9)  DUMMY
   READ(5,*) IXREF,JYREF,VXREF,VYREF
C--------------------------------------------------
C  CALC DISTANCE from the origin: DX(I),DY(J),DZ(K)

作者: 单身十年笑 时间: 2018-4-10 18:51
X-DIRECTION GRID SPACING (M)
0.0  100.0 10.0 4.0 1.0 1.0 1.0 1.0 1.0 1.0
1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0
1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 4.0 10.0
  100.0 0.0
Y-DIRECTION GRID SPACING (M)
0.0  100.0 10.0 4.0 1.0 1.0 1.0 1.0 1.0 1.0
1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0
1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 4.0 10.0
  100.0 0.0
Z-DIRECTION GRID SPACING (M)
0.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0
2.0 2.0 2.0 4.0 10.0  100.0 0.0
REFERENCE POINT
   16    16 0.0 0.0
RESISTIVITY BLOCK (OHM*M)
4
1  15 1  15 1  15    100.0
  16  30 1  15 1  15    200.0
1  15  16  30 1  15    300.0
  16  30  16  30 1  15    400.0
NUM. OF CURRENT NODE AND CURRENT VALUES
2 1.0
CURRNT NODE POINT (X,Y,Z)
   0.0    0.0    0.0
   0.0    0.0    5.0
WRITE CONTROL PARAM. ( X-START,X-END,Y-START,Y-END,RHOa:1 or V:2 )
4  28 4  28 1

作者: 单身十年笑 时间: 2018-4-10 18:51
这是需要输入的

作者: 单身十年笑 时间: 2018-4-10 18:53
我贴出的是输入部分的代码，但是输入只能输入X-DIRECTION GRID SPACING (M)
0.0 100.0 10.0 4.0 1.0 1.0 1.0 1.0 1.0 1.0
1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0
1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 4.0 10.0
100.0 0.0

作者: fcode 时间: 2018-4-12 08:27
给出完整代码，完整输入文件。

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)