Do read(11,*,ioStat=k) num1 , num2 , num3 if(k/=0) cycle End Do
fcode 发表于 2022-9-19 08:17 跳过格式不符的行 [mw_shl_code=fortran,true]Do read(11,*,ioStat=k) num1 , num2 , num3