24小时热门版块排行榜

返回列表

astringent

铜虫 (著名写手)

应助: 16 (小学生)
金币: 2210.7
散金: 1233
红花: 4
帖子: 1180
在线: 354.8小时
虫号: 900839
注册: 2009-11-12
专业: 理论和计算化学

[交流] 【求助】运行出错

请大家帮忙看看，为什么运行时会出现这个错误？
findcswb.f90:77.10:

      enddo
      1
Error: Syntax error in WRITE statement at (1)
findcswb.f90:84.10:

      end
      1
Error: END DO statement expected at (1)
Error: Unexpected end of file in 'findcswb.f90'

program main
----

do i=1, nattot
            if (('atomname'.eq.'O').and.('resname'.eq.'WAT')) then
                  io = i
                  ih1 = io+1
                  ih2 = io+2
            call test &
            (io,ih1,ia1,xxx,yyy,zzz,nattot,cell,atomname,resname,ihbnum)
               if (ihbnum.eq.1) then
                  call test  &
                  (io,ih2,ia2,xxx,yyy,zzz,nattot,cell, &
                  atomname,resname,ihbnum)
                     if (ihbnum.eq.1) then
                           if (resindex(ia1).eq.resindex(ia2)+1 &
                           .or. resindex(ia1).eq. resindex(ia2)-1) then
                        write(*,*) 'not find a cswb'
                        else
                        write(*,*) 'find a cswb'
                        nhb=nhb+1
                        acc1(nhb)=ia1
                        acc2(nhb)=ia2
                        endif
                     endif

endif
               endif
            enddo
      do j=1,nhb
      write (nout,100) 'acc1:',label(acc1(j)),atomename(acc1(j)),&
         resname(acc1(j)),resindex(acc1(j)), &
            &'acc2:',label(acc2(j)),atomename(acc2(j)),&
         resname(acc2(j)),resindex(acc2(j))&
      enddo
      sum=sum+nhb
      enddo
      avgnhb=sum/nstep
      write (nout,"('avergaed number is',i2)"

avgnhb
100    format(2(a5,1x,i4,3x,a4,3x,a3,2x,i2))
      close(nout)
      end

回复此楼

» 猜你喜欢

1楼 2010-11-16 17:15:45

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 astringent 的主题更新

返回列表