Fortran Coder

标题: 新手小白文件读写求助 [打印本页]

作者: ssy 时间: 2023-2-19 09:36
标题: 新手小白文件读写求助

DO K=1,NCOEFF,3
      KP2 = MIN(K+2,NCOEFF)
      READ(*,*,IOSTAT = IN)(DB(KK),KK=K,KP2)
      IF(IN. NE. 0)STOP ' Error reading 1st set of coeffs'
   ENDDO
DOUBLE PRECISION  DB(3000)
DOUBLE  KK , K
INTEGER KP2
读取数据的格式如图

希望大佬解读一下，尤其是READ 一行的代码
万分感谢

SharedScreenshot.jpg (401.81 KB, 下载次数: 295)

作者: li913 时间: 2023-2-19 15:57
(DB(KK),KK=K,KP2) 这是一个隐循环。读取（kp2-k+1）个数据，存入数组db中（位置从k开始存储）

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