Fortran Coder

查看: 15212|回复: 7
打印 上一主题 下一主题

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

[复制链接]

5

帖子

1

主题

0

精华

新人

F 币
26 元
贡献
14 点
跳转到指定楼层
楼主
发表于 2018-4-8 17:46:30 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
出现黑色的窗口,数据是in文件,输出是dat文件,好像没有读取,黑色窗口一直在那里不动。in文件怎么读啊

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

1523180742(1).png
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

835

帖子

2

主题

0

精华

大宗师

F 币
3926 元
贡献
2334 点
沙发
发表于 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 点
5#
 楼主| 发表于 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 点
6#
 楼主| 发表于 2018-4-10 18:51:55 | 只看该作者
这是需要输入的

5

帖子

1

主题

0

精华

新人

F 币
26 元
贡献
14 点
7#
 楼主| 发表于 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

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1642 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

8#
发表于 2018-4-12 08:27:47 | 只看该作者
给出完整代码,完整输入文件。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-26 20:08

Powered by Tencent X3.4

© 2013-2024 Tencent

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