Fortran Coder

查看: 457|回复: 7

[求助] 出现黑色窗口一直在那里,然后该干什么

[复制链接]

5

帖子

1

主题

0

精华

新人

F 币
26 元
贡献
14 点
发表于 2018-4-8 17:46:30 | 显示全部楼层 |阅读模式
出现黑色的窗口,数据是in文件,输出是dat文件,好像没有读取,黑色窗口一直在那里不动。in文件怎么读啊
1523180742(1).png
回复

使用道具 举报

282

帖子

1

主题

0

精华

宗师

F 币
1563 元
贡献
1048 点
发表于 2018-4-8 20:58:43 | 显示全部楼层
贴出代码。
回复

使用道具 举报

27

帖子

0

主题

0

精华

熟手

F 币
212 元
贡献
101 点
发表于 2018-4-8 22:05:46 | 显示全部楼层
具体代码,具体分析

5

帖子

1

主题

0

精华

新人

F 币
26 元
贡献
14 点
 楼主| 发表于 2018-4-10 18:50:53 | 显示全部楼层
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)

5

帖子

1

主题

0

精华

新人

F 币
26 元
贡献
14 点
 楼主| 发表于 2018-4-10 18:51:34 | 显示全部楼层
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

5

帖子

1

主题

0

精华

新人

F 币
26 元
贡献
14 点
 楼主| 发表于 2018-4-10 18:51:55 | 显示全部楼层
这是需要输入的

5

帖子

1

主题

0

精华

新人

F 币
26 元
贡献
14 点
 楼主| 发表于 2018-4-10 18:53:11 | 显示全部楼层
我贴出的是输入部分的代码,但是输入只能输入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

1323

帖子

12

主题

5

精华

论坛跑堂

Fcode跑堂伙计

F 币
220 元
贡献
260 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2018-4-12 08:27:47 | 显示全部楼层
给出完整代码,完整输入文件。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2018-12-12 15:17

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表