Fortran Coder

查看: 2945|回复: 6
打印 上一主题 下一主题

[输入输出] 想从TXT读40位的整数,读不出来

[复制链接]

16

帖子

6

主题

0

精华

入门

F 币
100 元
贡献
49 点
跳转到指定楼层
楼主
发表于 2022-9-28 20:50:41 | 显示全部楼层 |只看大图 回帖奖励 |倒序浏览 |阅读模式
想TXT读40位的整数,读不出来。试了很多遍,发现代码30行取I15时能读出来,读15位后就报错了,怎么解决?
[Fortran] 纯文本查看 复制代码
program test
  implicit none
  
  integer                           :: Npop,tmin
  INTEGER(KIND=2)                   ::Run_time
  integer( kind = 8 )               :: Gene
  
  
  CALL Get_Best (8,10,1,Gene)
  write(*,*)'Gene:',Gene
  
  end program test
  
    !     ******************** Get_Best *****************
  subroutine Get_Best (tmin,Npop,Run_time,Gene)
  implicit none
  integer,intent(in)                          :: tmin,Npop 
  integer                                     :: Run_time
  integer(KIND=8)                             :: Gene
  integer(KIND=8),dimension(Npop)             :: GeneZ
  integer                                     :: i,l
  CHARACTER(LEN = 2)                                      :: cRun_time
  character(LEN=100)                          :: Nome,annotation
  CHARACTER(*), PARAMETER                     :: fileplace = "D:/simulation/" 
  
  write(cRun_time,'(I2)') Run_time
  Nome = TRIM(ADJUSTL(cRun_time))//'namlist_in.txt'
  OPEN(1,file = fileplace//Nome,status='old',FORM='FORMATTED')
  read(1,'(A)') annotation
  read(1,'(6X,I40)') (GeneZ(i),i=1,Npop)
  close(1)
  write(*,*)'GeneZ:',GeneZ
  Gene=GeneZ(tmin)
  end subroutine Get_Best

报错.png (124.91 KB, 下载次数: 158)

报错.png

1namlist_in.txt

488 Bytes, 下载次数: 2

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

16

帖子

6

主题

0

精华

入门

F 币
100 元
贡献
49 点
沙发
 楼主| 发表于 2022-9-29 09:39:06 | 显示全部楼层
Transpose 发表于 2022-9-28 21:00
无法解决,integer(8)最大是9223372036854775807,总共19位,没法读取这么大的数。

好的,谢谢

16

帖子

6

主题

0

精华

入门

F 币
100 元
贡献
49 点
板凳
 楼主| 发表于 2022-9-29 09:39:38 | 显示全部楼层
fcode 发表于 2022-9-29 08:48
有些看起来像数字的东西,如果不会参与计算的话,就用字符串来存储和读写吧。

比如身份证号码,你几乎不需 ...

谢谢建议

16

帖子

6

主题

0

精华

入门

F 币
100 元
贡献
49 点
地板
 楼主| 发表于 2022-9-29 09:40:12 | 显示全部楼层
li913 发表于 2022-9-28 21:36
首先从需求分析,你是否需要这么多位?
fortran做不到,可否用变通的方法,比如用多个数来存储,或者用字符 ...

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

本版积分规则

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

GMT+8, 2024-11-1 07:42

Powered by Tencent X3.4

© 2013-2024 Tencent

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