找不到错在哪里了啊

hgsndg

不知道错在哪了
program Console10
    implicit none
    integer,parameter::nx=7,ny=5,nt=365,nxx=26,nyy=21,ntt=73
    real uwnd1987(nx,ny,nt),vwnd1987(nx,ny,nt),olr1(nxx,nyy,nt),olr2(nt),olr3(ntt),iabn(nt),s1(nt),s2(ntt)
    integer i,j,k,t
    open(1,file='e:\aa\uwnd1987.grd',form='binary')
    do k=1,ntt
        read(1)((uwnd1987(i,j,k),j=1,ny),i=1,nx)
    enddo
    close(1)
    open(2,file='e:\aa\vwnd1987.grd',form='binary')
    do k=1,ntt
        read(2)((vwnd1987(i,j,k),j=1,ny),i=1,nx)
    enddo
    close(2)
    open(3,file='e:\aa\olr1987.grd',form='binary')
    do k=1,ntt
        read(3)((olr1(i,j,k),j=1,nyy),i=1,nxx)
    enddo
    close(3)
    i=1
    j=1
    t=1
    do while(t<=365)
        do while(j<=5)
            do while(i<=7)
                s1(t)=(uwnd1987(i,j,t)+vwnd1987(i,j,t))/sqrt(2.0)
        i=i+1
            enddo
            j=j+1
            i=1
        enddo
        t=t+1
        j=1
        i=1
    enddo
    t=1
    do i=0,nt,5
        s2(t)=(s1(i+1)+s1(i+2)+s1(i+3)+s1(i+4)+s1(i+5))/5
        t=t+1
    enddo
    i=1
    j=1
    t=1
      do while(t<=365)
        do while(j<=21)
            do while(i<=26)
                olr2(t)=olr1(i,j,t)+olr2(t)
        i=i+1
            enddo
            j=j+1
            i=1
        enddo
        t=t+1
        j=1
        i=1
      enddo
      t=1
    do i=0,nt,5
        s2(t)=(s1(i+1)+s1(i+2)+s1(i+3)+s1(i+4)+s1(i+5))/5
        t=t+1
    enddo
    t=1
    do i=0,nt,5
        olr3(t)=(olr2(i+1)+olr2(i+2)+olr2(i+3)+olr2(i+4)+olr2(i+5))/5
        t=t+1
    enddo
    do i=1,ntt
        iabn(i)=(s2(i)-1)/1+(235-olr3(i))/10
    enddo
    open(4,file='e:\aa\i1987.grd',form='binary')
    write(4)(iabn(i),i=1,ntt)
    close(4)
    do i=1,
    print*,iban
    end program Console10
这是错误提示
1>E:\aa\Console10\Console10\Console11.f90(88): error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: ( <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> <CHARACTER_CONSTANT> <INTEGER_CONSTANT> ...
1>compilation aborted for E:\aa\Console10\Console10\Console11.f90 (code 1)
1>
1>Build log written to  "file://E:\aa\Console10\Console10\Debug\BuildLog.htm"
1>Console10 - 2 error(s), 0 warning(s)
========== 全部重新生成: 成功 0 个，失败 1 个，跳过 0 个 ==========
求哪位好心的大神帮忙给看看！

hgsndg

有人吗有人吗有人吗？

hgsndg

找到了，最后两三行错了