do while循环读取两个txt遇到的小错误

时间：2020-06-18 22:39:48 收藏：0 阅读：53

do while(.true.)
read(11,"(A512)",iostat=status1)cRead
if(status1/=0) exit
CALL parserRead(cRead)
!write(*,*)lat,lon
lon=lon-97
lat=lat-21

READ(14,"(A512)",iostat=status2)dRead
if(status2/=0) exit
CALL parserRead1(dRead)
!write(*,*)lat1,lon1
lon1=lon1-97
lat1=lat1-21

　.......　　

11文件比13文件多出很多行。这样循环，在运行的时候，结果就不是预想的那样了。

改成两个do while就好了。

原文：https://www.cnblogs.com/stelliformzm/p/13160444.html