大家好，我在做一个简单的循环，但是程序出现错误，把程序贴在下面。求大家帮忙谢谢！
  program flood
    implicit none
    real::q,w,v
    real::l,i
    real::q1,q2,q3
    real::m
    q=51.8
    w=53.7
    read(*,*)l
    q1=2.0357*l-1942.5
    write(*,*)'q1=',q1
    do i=961.5,966.5,0.1
      q2=2.0357*i-1942.5
      v=q2-q1
    q3=q*(1-v/w)
    m=q3-q2
    if(m.le.0.01)then
    write(*,*)'q2=',q2
    write(*,*)'i=',i
    write(*,*)'q3=',q3
    write(*,*)'v=',v
    write(*,*)'m',m
    enddo
    end