新手小白文件读写求助

查看数: 2650 | 评论数: 1 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

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 ...

li913 发表于 2023-2-19 15:57:23

(DB(KK),KK=K,KP2) 这是一个隐循环。读取（kp2-k+1）个数据，存入数组db中（位置从k开始存储）

回复