| 查看: 363 | 回复: 0 | |||
astringent铜虫 (著名写手)
|
[交流]
【求助】运行出错
|
|
请大家帮忙看看，为什么运行时会出现这个错误？ 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)"  avgnhb100 format(2(a5,1x,i4,3x,a4,3x,a3,2x,i2)) close(nout) end |
回复此楼» 猜你喜欢
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有12人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有18人回复
-
2027博士申请-临床检验诊断学、病原生物学、微生物方向
已经有4人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有17人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有10人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有22人回复
-
越来越担心硕士毕业后没有竞争力了
已经有14人回复
-
论文的挂名怎么评判贡献？基金申请中，排名第一的挂名文章
已经有3人回复
-
申博自荐 2篇一区TOP+1篇EI+2公开发明专利 2027博士申请
已经有3人回复
-
闲聊
已经有6人回复