Fortran Coder

查看: 94|回复: 8

[求助] 出错01abc(续)

[复制链接]

19

帖子

11

主题

0

精华

专家

F 币
620 元
贡献
322 点
发表于 2021-11-18 10:41:14 | 显示全部楼层 |阅读模式
谢谢及时回复.   按您的提示, 如下,read(*,*) (a(i,j),j=1,n),i=1,n) ,还是报句法错误, 经略加修改,如下: read(*,*) a(i,j),j=1,n,i=1,n)
             1
read(*,*) (b(i,j),j=1,n,j=1,zz)
             1
并且,已经附上程序要求的输入矩阵值,
但是报错:Expecting variable in READ statement at (1)
    烦请有空过目, 解决. 盼复!    好!
2021-11-18



回复

使用道具 举报

1669

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
2192 元
贡献
1376 点

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

发表于 2021-11-18 12:18:24 | 显示全部楼层
read(*,*) (  ( a(i,j) , j = 1 , n )   ,   i=1 , n )

19

帖子

11

主题

0

精华

专家

F 币
620 元
贡献
322 点
 楼主| 发表于 2021-11-18 13:38:05 | 显示全部楼层
收到, 谢谢!
回复

使用道具 举报

19

帖子

11

主题

0

精华

专家

F 币
620 元
贡献
322 点
 楼主| 发表于 2021-11-18 14:27:56 | 显示全部楼层
有进步,请见,如下:
[Fortran] 纯文本查看 复制代码
  Integer zz
  Dimension a(30, 60), b(30, 50)
  Read (*,*)jr
  Do kk = 1, jr
    read (*,*) n, zz, bass
    read (*,*) ((a(i,j),j=1,n),i=1,n)
    read (*,*) ((b(i,j),j=1,n),j=1,zz)
    Print *, '--------------------------------'
    Print *,' COEFFICIENT OF THE MATRIX  '
..........
..........

    在如下标准输入下:(Input)
3  3  1.0  
9.37460    3.04160   -2.43710
3.04160    6.18320    1.21630
-2.43710    1.21630    8.44290
**********
运执行,报错如下:
Compilation failed due to following error(s). At line 5 of file main.f95 (unit = 5, file = 'stdin')
Fortran runtime error: Bad integer for item 1 in list input
Error termination. Backtrace:
#0  0x7f69a3e49d5a
#1  0x7f69a3e4a869
#2  0x7f69a3e4b54f
....
.....
       烦请有空再看一下, 输入格式??! 盼复!

1669

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
2192 元
贡献
1376 点

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

发表于 2021-11-19 10:19:39 | 显示全部楼层
先输入 jr
然后输入 n, zz, bass

19

帖子

11

主题

0

精华

专家

F 币
620 元
贡献
322 点
 楼主| 发表于 2021-11-19 11:27:03 | 显示全部楼层
收到,谢谢
回复

使用道具 举报

19

帖子

11

主题

0

精华

专家

F 币
620 元
贡献
322 点
 楼主| 发表于 2021-11-19 11:33:13 | 显示全部楼层
另,  出错011(续),
Compiling Fortran...
C:\Program Files\Microsoft Visual Studio\Common\MSDEV98\My Projects\CELSIUS\CELSIUS.FOR
C:\Program Files\Microsoft Visual Studio\Common\MSDEV98\My Projects\CELSIUS\CELSIUS.FOR(40) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: <IDENTIFIER>
      DO (DABS(X1-X2)/2.GT.XTOL)
--------------------------------^
C:\Program Files\Microsoft Visual Studio\Common\MSDEV98\My Projects\CELSIUS\CELSIUS.FOR(67) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: <IDENTIFIER>
      DO (DABS((X1-X2)/2).GE.XTOL)
----------------------------------^
C:\Program Files\Microsoft Visual Studio\Common\MSDEV98\My Projects\CELSIUS\CELSIUS.FOR(89) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: <IDENTIFIER>
      DO (DABS(FNC(X1)).GE.FTOL)
--------------------------------^
Error executing df.exe.

CELSIUS.OBJ - 3 error(s), 0 warning(s)

1669

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
2192 元
贡献
1376 点

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

发表于 2021-11-19 11:55:22 | 显示全部楼层
DO (DABS(X1-X2)/2.GT.XTOL)
是否为
DO while (DABS(X1-X2)/2.GT.XTOL)

19

帖子

11

主题

0

精华

专家

F 币
620 元
贡献
322 点
 楼主| 发表于 2021-11-19 13:26:41 | 显示全部楼层
收到, 谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2021-12-3 02:08

Powered by Tencent X3.4

© 2013-2021 Tencent

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