fortran77的写法：
DO 500 KK=1, NTIME
if(mod(kk,20).eq.1) write(*,*) KK
500 continue
－－－－500是语句标号
fortran90的正确写法：
DO KK=1, NTIME
enddo
